Jump to content

#_مساعده

max-mohammed

By max-mohammed
in البرمجة

Recommended Posts

max-mohammed Sucka

max-mohammed

Posted
Posted

السلام عليكم ورحمة الله

شباب انا حملت تاج ادمن وكمان حملت مود عدم السب والنشر وزعاج الادمن

ولكن لما احد يسب يكنسل الايفنت عشان مايظهر شيء

بس مود التاج يخليه يظهر يعني لو سويت كانسل ايفنت مايفيدني في شيء

عشان كذا قررت ادمجهم في وظيفة واحدة

بس فيه اخطاء :D:D:D

اتمنى تعدلوها

Wa = {ماعليكم منه} 
  
We = {ماعليكم منه} 
  
Wd = {كمان معليكم منه} 
  
function chatbox(msg, msgtype) 
    local account = getAccountName(getPlayerAccount(source)) 
    local name = getPlayerName(source) 
 for k,v in ipairs (Wa) do 
  if string.find(msg,v) then return 
     cancelEvent() 
    outputChatBox("#ff0000 لاتحاول تنشر  لوسمحت #ffff00"..name.." #ff0000حبيبي ",source,255,255,255,true) 
        setPlayerMuted(source, true) 
    setTimer (function ( source  ) 
    setPlayerMuted (source, false ) 
    end, 
    400000000,1, source ) 
     end  
  end 
 for k,v in ipairs (We) do 
  if string.find(msg,v) then return 
     cancelEvent() 
     outputChatBox("#ff0000 ميوت لقوله كلام غير سليم #ffff00"..name.."#ff0000 تم صك",getRootElement(),255,255,255,true) 
     outputChatBox("#00ff00قال تعالىما يلفظ من قول الا لديه رقيب عتيد):. صدق الله العظيم ",source,255,255,255,true) 
     setPlayerMuted(source, true) 
     setTimer (function ( source  ) 
     setPlayerMuted (source, false ) 
     end, 
     40000000,1, source ) 
  end 
end 
 for k,v in ipairs (Wd) do 
  if string.find(msg,v) then return 
     cancelEvent() 
     outputChatBox("#00ff00" ..name.. " الرجاء عدم ازعاج الادمن والا سيتم اعطاءك ميووت ",source,255,255,255,true) 
  end 
end 
 cancelEvent() 
هنا التاجات 
----------- 
----------- 
------------ 
  
        end 
end 
addEventHandler("onPlayerChat", root, chatbox)   
  
 

والديبق يقول

SCRIPT ERROR: tag\tag.lua:83: 'end' expected (to close 'if' at line 81) near 'outputChatBox'

ERROR: Loading script failed: فtag\tag.lua:83: 'end' expected (to close 'if' at line 81) near 'outputChatBox'

بس عشاني سويت تعديل (معليكم منه وألخ..)صار الصطر رقم11

Link to comment
™!>VàLéNTiNô<!™ Fool

™!>VàLéNTiNô<!™

Posted
Posted

(to close 'if' at line 81) near 'outputChatBox' معناها ناقصك اند حتى تقفل التحقق فى السطر 81 دور عليه فى كودك لان هنا 41 سطر بس لانك مو حاطط السب اللى فى الجدول

+

local account = getAccountName(getPlayerAccount(source)) = ليه جايب حساب اللاعب هنا سطر رقم 8

+

     outputChatBox("#ff0000 ميوت لقوله كلام غير سليم #ffff00"..name.."#ff0000 تم صك",getRootElement(),255,255,255,true)

getRootElement() لو موجودة بتخلى كلامك ابيض مايتلون فاحذفها افضل

+

then return حط بعدها انت حاطط وظيفة كنسل افنت حط بعدها end

تصير كذا

then return cancelEvent () end

لاتحطها بنهاية الكود

سطر 24 اند زايدة

+

سطر 39 كانسل افنت مالها فايده

الى اذا كنت نقلتها من التاج بالغلط بس انت حاططها فوق التاج

+

التايمر عندك كاتبو غلط

Server Side

Wa = {s} 
  
We = {s} 
  
Wd = {s} 
  
function chatbox(msg, msgtype) 
    local name = getPlayerName(source) 
 for k,v in ipairs (Wa) do 
  if string.find(msg,v) then return 
  cancelEvent() end 
    outputChatBox("#ff0000 لاتحاول تنشر  لوسمحت #ffff00"..name.." #ff0000حبيبي ",source,255,255,255,true) 
        setPlayerMuted(source, true) 
        setTimer ( setPlayerMuted, 400000000,1, source, false ) 
     end 
 for k,v in ipairs (We) do 
  if string.find(msg,v) then return 
  cancelEvent() end 
     outputChatBox("#ff0000 ميوت لقوله كلام غير سليم #ffff00"..name.."#ff0000 تم صك",getRootElement(),255,255,255,true) 
     outputChatBox("#00ff00قال تعالىما يلفظ من قول الا لديه رقيب عتيد):. صدق الله العظيم ",source,255,255,255,true) 
     setPlayerMuted(source, true) 
     setTimer ( setPlayerMuted, 40000000, 1, source, false ) 
  end 
 for k,v in ipairs (Wd) do 
  if string.find(msg,v) then return 
  cancelEvent() end 
     outputChatBox("#00ff00" ..name.. " الرجاء عدم ازعاج الادمن والا سيتم اعطاءك ميووت ",source,255,255,255,true) 
  end 
end 
  
addEventHandler("onPlayerChat", root, chatbox)  
  
  
-------------------------- Tag 
local root = getRootElement() 
  
function chatbox(text, msgtype) 
    local account = getAccountName(getPlayerAccount(source)) 
    local name = getPlayerName(source) 
 cancelEvent() 
    if isObjectInACLGroup("user." .. account, aclGetGroup("Admin")) then 
    outputChatBox("#ff0000 ][Admin][ #aaaaaa#ff0000x" .. name .. ":#bbbbbb " .. text, root, 255, 255, 255, true) 
  
elseif isObjectInACLGroup("user." .. account, aclGetGroup("HDADMIN")) then 
         outputChatBox("#00ffff ][HeadAdmin][ #aaaaaa#ff0000x" .. name ..":#bbbbbb " .. text, root, 255, 255, 255, true) 
        end 
end

اكمل على التاج مثل مانت شايفو

Link to comment
max-mohammed Sucka

max-mohammed

Posted
  • Author
Posted
السلام عليكم ورحمة الله

شباب انا حملت تاج ادمن وكمان حملت مود عدم السب والنشر وزعاج الادمن

ولكن لما احد يسب يكنسل الايفنت عشان مايظهر شيء

بس مود التاج يخليه يظهر يعني لو سويت كانسل ايفنت مايفيدني في شيء

عشان كذا قررت ادمجهم في وظيفة واحدة

بس فيه اخطاء :D:D:D

اتمنى تعدلوها

Wa = {ماعليكم منه} 
  
We = {ماعليكم منه} 
  
Wd = {كمان معليكم منه} 
  
function chatbox(msg, msgtype) 
    local account = getAccountName(getPlayerAccount(source)) 
    local name = getPlayerName(source) 
 for k,v in ipairs (Wa) do 
  if string.find(msg,v) then return 
     cancelEvent() 
    outputChatBox("#ff0000 لاتحاول تنشر  لوسمحت #ffff00"..name.." #ff0000حبيبي ",source,255,255,255,true) 
        setPlayerMuted(source, true) 
    setTimer (function ( source  ) 
    setPlayerMuted (source, false ) 
    end, 
    400000000,1, source ) 
     end  
  end 
 for k,v in ipairs (We) do 
  if string.find(msg,v) then return 
     cancelEvent() 
     outputChatBox("#ff0000 ميوت لقوله كلام غير سليم #ffff00"..name.."#ff0000 تم صك",getRootElement(),255,255,255,true) 
     outputChatBox("#00ff00قال تعالىما يلفظ من قول الا لديه رقيب عتيد):. صدق الله العظيم ",source,255,255,255,true) 
     setPlayerMuted(source, true) 
     setTimer (function ( source  ) 
     setPlayerMuted (source, false ) 
     end, 
     40000000,1, source ) 
  end 
end 
 for k,v in ipairs (Wd) do 
  if string.find(msg,v) then return 
     cancelEvent() 
     outputChatBox("#00ff00" ..name.. " الرجاء عدم ازعاج الادمن والا سيتم اعطاءك ميووت ",source,255,255,255,true) 
  end 
end 
 cancelEvent() 
هنا التاجات 
----------- 
----------- 
------------ 
  
        end 
end 
addEventHandler("onPlayerChat", root, chatbox)   
  
 

والديبق يقول

SCRIPT ERROR: tag\tag.lua:83: 'end' expected (to close 'if' at line 81) near 'outputChatBox'

ERROR: Loading script failed: فtag\tag.lua:83: 'end' expected (to close 'if' at line 81) near 'outputChatBox'

بس عشاني سويت تعديل (معليكم منه وألخ..)صار الصطر رقم11

+

+

الكود حقك مو شغال كويس لأنه يكرر الفنكشن سبع مرات عندي مثلا يوم انشر بدل مايسوي كانسل للإيفنت ويطلع الكلمة المحددة في الشات

يطلع جميع فنكشات الشات حقت السب والنشر ويكررها سبع مرات

#__

Link to comment
#DRAGON!FIRE Hawg

#DRAGON!FIRE

Posted
Posted

* Server Side:

local gWords = { 
    'Word', 
    'Word2', 
} 
  
addEventHandler ( 'onPlayerChat', root, 
    function ( gMessage ) 
        for _, v in ipairs ( gWords ) do 
            if ( string.find ( gMessage, v ) ) then 
                setTimer ( function ( ) 
                    for i = 1, 9 do 
                        outputChatBox ( ' ' ) 
                    end 
                    outputChatBox ( '* Chat Was Cleared Automatically', root, 0, 255, 0 ) 
                end, 50, 1 ) 
                break 
            end 
        end 
    end 
)

Link to comment
max-mohammed Sucka

max-mohammed

Posted
  • Author
Posted

* Server Side:

local gWords = { 
    'Word', 
    'Word2', 
} 
  
addEventHandler ( 'onPlayerChat', root, 
    function ( gMessage ) 
        for _, v in ipairs ( gWords ) do 
            if ( string.find ( gMessage, v ) ) then 
                setTimer ( function ( ) 
                    for i = 1, 9 do 
                        outputChatBox ( ' ' ) 
                    end 
                    outputChatBox ( '* Chat Was Cleared Automatically', root, 0, 255, 0 ) 
                end, 50, 1 ) 
                break 
            end 
        end 
    end 
)

مشكور على تعبك لكن هذا مو طلبي

+

يحبيبي انا مابي الشات يتمسح ابي الايفنت يتكنسل +

بوضحح لك~~

انا مركب مودين واحد تاج(تاج ادمن اكيد تعرفه)

والثاني انه لو سب او نشر مايظهر شيء في الشات

ولكن كودك يمسح الشات + اقدر اشوف الكلمة الي قالها

لو انا مادمجت المودين هذولي

يصير لو سب يتكنسل الايفنت ولكن مود التاج يرجعهه

يعني لو نشرت مثلا المفروض مايظهر شيء بس عشان اكوااد التااج صار يظهر

انا ابي ادمجهم مع بعض عشان لو ما قال شيء محظوور يستمر الايفنت

ولو قال شيء محظوور يكنسل الايفنت وايظهر شيء في الشات

Link to comment
max-mohammed Sucka

max-mohammed

Posted
  • Author
Posted

ممكن تضيف لي اياه على ذا الفنكشن لاني معرف للاكواد ذي ولا اعرف اسوي table

function chatbox(msg, msgtype) 
    local account = getAccountName(getPlayerAccount(source)) 
    local name = getPlayerName(source) 
    cancelEvent() 
    if isObjectInACLGroup("user." .. account, aclGetGroup("Admin")) then 
        outputChatBox("##4E387E°][Admin][°#FFFFFF:#ff0000" .. name .. ":#806517 " .. msg, root, 255, 255, 255, true) 
        
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("HED.ADMIN")) then 
        outputChatBox("#8D38C9 °][Head Admin][°#FFFFFF:#ff0000" .. name .. ":#E8A317 " .. msg, root, 255, 255, 255, true)  
  
  
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("Big.Admin")) then 
        outputChatBox("#347235°][big Admin][°#FFFFFF:#ff0000" .. name .. ":#AF7817 " .. msg, root, 255, 255, 255, true) 
    
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("Console")) then 
        outputChatBox("#555555°][server Onwer][°:#ff0000" .. name ..":#ff0000 " .. msg, root, 255, 255, 255, true) 
        
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("oneradmin")) then 
        outputChatBox("#000000°][Professional Admin][°#aaaaaa:#ff0000" .. name ..":#fff000 " .. msg, root, 255, 255, 255, true) 
        
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("SuperModerator")) then 
        outputChatBox("#7D1B7E°][superMode Plus][°#FFFFFF:#ff0000" .. name ..":#FFFFFF " .. msg, root, 255, 255, 255, true) 
        
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("Moderator")) then 
        outputChatBox("#F778A1°][Moderator][°#FFFFFF:#ff0000" .. name .. ":#FFFFFF " .. msg, root, 255, 255, 255, true) 
     
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("V.I.P")) then 
        outputChatBox("#ff00ff°][V.I.P][°#FFFFFF:#ff0000" .. name .. ":#FFFFFF " .. msg, root, 255, 255, 255, true) 
     
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("Vote")) then 
        outputChatBox("#0099ff°][Vote][°#FFFFFF:#ff0000" .. name .. ":#FFFFFF " .. msg, root, 255, 255, 255, true) 
  
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("Level_1")) then 
        outputChatBox("#330033~°][Level-1][°#ffffff:#ff0000" .. name .. ":#FFFFFF " .. msg, root, 255, 255, 255, true) 
  
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("Level_2")) then 
        outputChatBox("#7D1B7E~°][Level-2][°#ffffff:#ff0000" .. name .. ":#FFFFFF " .. msg, root, 255, 255, 255, true) 
  
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("Level_3")) then 
        outputChatBox("#827B60°][Level-3][°#ffffff:#ff0000" .. name .. ":#FFFFFF " .. msg, root, 255, 255, 255, true) 
  
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("Level_4")) then 
        outputChatBox("#E78A61~°][Level-4][•°#ffffff:#ff0000" .. name .. ":#FFFFFF " .. msg, root, 255, 255, 255, true) 
  
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("Level_5")) then 
        outputChatBox("#15317E~°][Level-5][°#ffffff:#ff0000" .. name .. ":#FFFFFF " .. msg, root, 255, 255, 255, true) 
  
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("police")) then 
        outputChatBox("#949E6C~°][Police][°#ffffff:#ff0000" .. name .. ":#FFFFFF " .. msg, root, 255, 255, 255, true) 
  
    elseif isObjectInACLGroup("user." .. account, aclGetGroup("Everyone")) then 
        outputChatBox(name .. ":#ffffff " .. msg, root, 255, 255, 255, true) 
  end  
end 
addEventHandler("onPlayerChat", root, chatbox)

وتأكد لو سمحت ان لو نشرت او سبيت ميظهر اي كلام في الشات يعني يكنسل الافنت كامل يعني ما يظهر شيء

Link to comment
™!>VàLéNTiNô<!™ Fool

™!>VàLéNTiNô<!™

Posted
Posted
السلام عليكم ورحمة الله

شباب انا حملت تاج ادمن وكمان حملت مود عدم السب والنشر وزعاج الادمن

ولكن لما احد يسب يكنسل الايفنت عشان مايظهر شيء

بس مود التاج يخليه يظهر يعني لو سويت كانسل ايفنت مايفيدني في شيء

عشان كذا قررت ادمجهم في وظيفة واحدة

بس فيه اخطاء :D:D:D

اتمنى تعدلوها

Wa = {ماعليكم منه} 
  
We = {ماعليكم منه} 
  
Wd = {كمان معليكم منه} 
  
function chatbox(msg, msgtype) 
    local account = getAccountName(getPlayerAccount(source)) 
    local name = getPlayerName(source) 
 for k,v in ipairs (Wa) do 
  if string.find(msg,v) then return 
     cancelEvent() 
    outputChatBox("#ff0000 لاتحاول تنشر  لوسمحت #ffff00"..name.." #ff0000حبيبي ",source,255,255,255,true) 
        setPlayerMuted(source, true) 
    setTimer (function ( source  ) 
    setPlayerMuted (source, false ) 
    end, 
    400000000,1, source ) 
     end  
  end 
 for k,v in ipairs (We) do 
  if string.find(msg,v) then return 
     cancelEvent() 
     outputChatBox("#ff0000 ميوت لقوله كلام غير سليم #ffff00"..name.."#ff0000 تم صك",getRootElement(),255,255,255,true) 
     outputChatBox("#00ff00قال تعالىما يلفظ من قول الا لديه رقيب عتيد):. صدق الله العظيم ",source,255,255,255,true) 
     setPlayerMuted(source, true) 
     setTimer (function ( source  ) 
     setPlayerMuted (source, false ) 
     end, 
     40000000,1, source ) 
  end 
end 
 for k,v in ipairs (Wd) do 
  if string.find(msg,v) then return 
     cancelEvent() 
     outputChatBox("#00ff00" ..name.. " الرجاء عدم ازعاج الادمن والا سيتم اعطاءك ميووت ",source,255,255,255,true) 
  end 
end 
 cancelEvent() 
هنا التاجات 
----------- 
----------- 
------------ 
  
        end 
end 
addEventHandler("onPlayerChat", root, chatbox)   
  
 

والديبق يقول

SCRIPT ERROR: tag\tag.lua:83: 'end' expected (to close 'if' at line 81) near 'outputChatBox'

ERROR: Loading script failed: فtag\tag.lua:83: 'end' expected (to close 'if' at line 81) near 'outputChatBox'

بس عشاني سويت تعديل (معليكم منه وألخ..)صار الصطر رقم11

+

+

الكود حقك مو شغال كويس لأنه يكرر الفنكشن سبع مرات عندي مثلا يوم انشر بدل مايسوي كانسل للإيفنت ويطلع الكلمة المحددة في الشات

يطلع جميع فنكشات الشات حقت السب والنشر ويكررها سبع مرات

#__

ورينى وش كاتب بالجداول انت حىت يكرر الكلام مكرر انت الكلام ؟

Link to comment
#DRAGON!FIRE Hawg

#DRAGON!FIRE

Posted
Posted 

local Words = 
 { 
   "كلمة", 
   "كلمة", 
   "كلمة", } 
  
addEventHandler( "onPlayerChat", root, function( Msg, type ) 
   if ( type == 0 ) then 
        for _,v in ipairs( Words ) do 
           if ( string.find( Msg, v ) ) then 
                 cancelEvent (  true  )  
            end 
        end 
    end 
end )
Link to comment
max-mohammed Sucka

max-mohammed

Posted
  • Author
Posted 
local Words = 
 { 
   "كلمة", 
   "كلمة", 
   "كلمة", } 
  
addEventHandler( "onPlayerChat", root, function( Msg, type ) 
   if ( type == 0 ) then 
        for _,v in ipairs( Words ) do 
           if ( string.find( Msg, v ) ) then 
                 cancelEvent (  true  )  
            end 
        end 
    end 
end )

طيب وين احط التاج؟

+

انا ابي احدد اكثر من جدول واحد للسب وواحد للنشر وواحد لإزعاج الادمن

Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...