العاجل ( تعديلات مطورة )

[twitter]

بسم اله الرحمن الرحيم

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

 

 

بكل اختصار

تذكرون العاجل الي حطيته اليوم ؟؟

بحطه لكم من جديد

: وابغى إضافات كالتالي

1. يكون العاجل على اسم الحساب او السيريال

2. يتلون العاجل عند الارسال ( كلمه ادمن تتلون اخضر , والكلام يتلون اصفر , ثم يرجع )

3. اكتب كلمه باف8 تشيل العاجل

4. اكتب كلمه باف8 وتغلق العاجل ( يعني محد يقدر يكتب الين اكتب نفس الكلمه مره ثانيه )

بطرح لكم الأكواد

للي يسأل ليه م تسويها انت

لأن م عندي القدرات علشن اسويها ولا سويتها

كلنت

 

local x,y = guiGetScreenSize();

addEvent ( "3MEED", true )
addEventHandler ( "3MEED", getRootElement(),function(message)
	txt = message;
	playSoundFrontEnd ( 49 )
end)

addEventHandler("onClientRender", getRootElement(  ),function(  )
	if ( txt ) then
		dxDrawText ( "#FF0000Admin :", x*(9.0/800), y*(145.0/600), x*(55.0/800), y*(182.0/600), tocolor ( 255, 255, 0, 255 ), 1.1, "default-bold", "left", "top", false, false, false ,true)
		dxDrawText (txt, x*(38.0/800), y*(147.0/600), x*(799.0/800), y*(224.0/600), tocolor ( 255, 255, 255, 255 ), 1.0, "default-bold", "left", "top", false, false, false ,true)
	end
	if ( getElementData(resourceRoot,"PlrAdmin") ) then
		dxDrawText("#ffffff "..getElementData(resourceRoot,"PlrAdmin"),x*(9.0/800),y*(160.0/600),x*(799.0/800),y*(224.0/600),tocolor(255,255,255,255),1.0,"default-bold","left","top",false,false,false,true)
	end
end)
	
bindKey ( "i", "down", "chatbox", "AM" )


addEventHandler ( "onClientResourceStart", resourceRoot, function (  )
triggerServerEvent ( "SetMessage", localPlayer )
end
)

سيرفر

Groups = {  -- القروبات المسموح لها بالكتابة
"Console", 

} 

-------------------- لا داعي لتعديل الأكواد تحت هذا السطر -------------------

function check ( thePlayer, commandName, ... )
        local accName = getAccountName ( getPlayerAccount ( thePlayer ) ) 
		local veve = { ... }
		local message = table.concat ( veve, " " )
        for i, v in ipairs ( Groups ) do
          if isObjectInACLGroup ( "user."..accName, aclGetGroup ( v ) ) then		
		setElementData ( resourceRoot, "MessageAdmin", message);
		setElementData(resourceRoot,"PlrAdmin",getPlayerName(thePlayer));
        SaveMessage (  )
		triggerClientEvent ( "3MEED", getRootElement(  ), getElementData ( resourceRoot, "MessageAdmin" ) )
		end
	end
end
addCommandHandler( "AM", check )

addEventHandler ( "onResourceStart", resourceRoot, function (  )
        executeSQLQuery("CREATE TABLE IF NOT EXISTS SaveMessagee (Message, Server)")
end
)

addEvent ( "SetMessage", true )
addEventHandler ( "SetMessage", root, function (  )
   getMessage (  )
end
)

SaveMessage = function (  )
local msg = executeSQLQuery ( "SELECT * FROM SaveMessagee WHERE Server = '" .. getServerName ( ) .."'" )
if ( #msg ~= 0  )   then
   return executeSQLQuery("UPDATE SaveMessagee SET Message=? WHERE Server=? ", tostring ( getElementData ( resourceRoot, "MessageAdmin"  ) ), getServerName ( ) )
else
   return executeSQLQuery("INSERT INTO SaveMessagee (Message,Server) VALUES(?,?)", tostring ( getElementData ( resourceRoot, "MessageAdmin" ) ), getServerName ( ) )
   end
end

getMessage = function (  )
local msg = executeSQLQuery ( "SELECT * FROM SaveMessagee" )
if ( #msg ~= 0  ) then
    setElementData ( resourceRoot, "MessageAdmin", msg[1]["Message"] )
    return setTimer ( triggerClientEvent, 1000, 1, "3MEED", getRootElement(  ), getElementData ( resourceRoot, "MessageAdmin" ) )
else
   return setTimer ( triggerClientEvent, 1000, 1, "3MEED", getRootElement(  ), " " )
  end
end 

اذا احتاج السيرفر تغير م امنع والكلنت اذا احتاج م امنع لكن ابغى نفس الشكل

ملاحظة : يمكن أتأخر في الرد اعذرني

وبرد على كل واحد