mody134

addEventHandler("onClientGUIChanged", root, function () if ( source == search ) then if ( guiGetText ( source ) == "" ) then guiGridListClear(grdPlayers) for i,v in ipairs(getElementsByType("player")) do local row = guiGridListAddRow(grdPlayers) guiGridListSetItemText(grdPlayers,row,1,getPlayerName(v):gsub("#%x%x%x%x%x%x", ""),false,false) end else guiGridListClear(grdPlayers) for i,v in ipairs(getElementsByType("player")) do if string.find(getPlayerName(v),guiGetText(search)) then local row = guiGridListAddRow(grdPlayers) guiGridListSetItemText(grdPlayers,row,1,getPlayerName(v):gsub("#%x%x%x%x%x%x", ""),false,false) end end end end end ) search = guiCreateEdit(62, 341, 216, 34, "", false, GUIEditor.window[1]) وش الخطا بالكود ؟

السلام عليكم , سويت لوحة وابي احط فيها الاعبين الموجدين بالديربي حد يعرف كيف ؟

يب , ببعتلك الاكواد كلها خاص عشان تتاكد

مفي اخطاء بالدي بق

ما ظبظ , صار ما يطلع المعلومات

السلام عليكم , دلوقتي لما اكتب اسم الاعب يطلع ملعوماتة مثل اسم حسابة , رتبتة , سريالة ابي لما اكتب حساب الاعب يطلع معلوماتة كلينت addEvent("aad",true) addEventHandler("aad", root,function (name,acc,acl,serial,My,Ping) guiSetText(GUIEditor.memo[1],"\n Name:"..name.."\n Account :"..acc.."\n Groups :"..acl.."\n Serial :"..serial.."\n Money :"..My.."\n Ping : " ..Ping) end) سيرفر local acc = getAccountName(getPlayerAccount(Player)) local acl = getPlayerAcls(Player) local name = getPlayerName(Player) local serial = getPlayerSerial(Player) local My = getPlayerMoney(Player) local ping = getPlayerPing(Player) triggerClientEvent(client,"aad",client,name,acc,tostring( table.concat(acl, ", ") ),serial,My,ping) end)

بعتة في الرسائل الخاصة

السلام عليكم , عدلت علي مود شات خاص , المشكلة لما اجي اضغط علي اسم الاعب يفتح اكتر من ناقذة صورة : http://b.top4top.net/p_3692x00f1.png

GUIEditor = { gridlist = {}, window = {}, button = {}, label = {} } local screenW, screenH = guiGetScreenSize() GUIEditor.window[1] = guiCreateWindow((screenW - 738) / 2, (screenH - 487) / 2, 738, 487, "- [ لوحة اعلي 40 تواجد ] -", false) guiWindowSetSizable(GUIEditor.window[1], false) guiSetAlpha(GUIEditor.window[1], 1.00) guiSetProperty(GUIEditor.window[1], "CaptionColour", "FFFCFE00") guiSetVisible(GUIEditor.window[1], false) GUIEditor.button[1] = guiCreateButton(264, 443, 207, 30, " اغلاق |#| Close ", false, GUIEditor.window[1]) guiSetProperty(GUIEditor.button[1], "NormalTextColour", "FFFCFE00") GUIEditor.label[1] = guiCreateLabel(624, 443, 53, 30, "", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[1], "default-bold-small") guiLabelSetColor(GUIEditor.label[1], 0, 253, 233) guiLabelSetHorizontalAlign(GUIEditor.label[1], "right", false) guiLabelSetVerticalAlign(GUIEditor.label[1], "center") GUIEditor.label[2] = guiCreateLabel(481, 443, 143, 30, "", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[2], "default-bold-small") guiLabelSetColor(GUIEditor.label[2], 59, 0, 252) guiLabelSetHorizontalAlign(GUIEditor.label[2], "right", false) guiLabelSetVerticalAlign(GUIEditor.label[2], "center") GUIEditor.label[3] = guiCreateLabel(25, 443, 112, 30, "", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[3], "default-bold-small") guiLabelSetColor(GUIEditor.label[3], 250, 112, 0) guiLabelSetHorizontalAlign(GUIEditor.label[3], "center", false) guiLabelSetVerticalAlign(GUIEditor.label[3], "center") GUIEditor.gridlist[1] = guiCreateGridList(25, 36, 686, 397, false, GUIEditor.window[1]) guiGridListAddColumn(GUIEditor.gridlist[1], "#اسم اللاعب", 0.7) guiGridListAddColumn(GUIEditor.gridlist[1], "#عدد الساعات", 0.3) GUIEditor.label[4] = guiCreateLabel(142, 443, 112, 30, "", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[4], "default-bold-small") guiLabelSetColor(GUIEditor.label[4], 17, 249, 0) guiLabelSetHorizontalAlign(GUIEditor.label[4], "center", false) guiLabelSetVerticalAlign(GUIEditor.label[4], "center") function getHours() playersTable = {} ; for i, v in ipairs(getElementsByType('player')) do local playerData = getElementData(v, "PlayTime") or "0:0:0" local Hour, Min, Sec = unpack( split ( playerData, ":" ) ) table.insert(playersTable, {name = v, time = playerData}) end table.sort ( playersTable, function ( a, b ) return ( tostring ( a.time ) or "" ) > ( tostring ( b.time ) or "" ) end ) return playersTable end setTimer(function() --guiSetEnabled(GUIEditor.gridlist[1], false) guiSetVisible(GUIEditor.gridlist[1], false) guiSetVisible(GUIEditor.gridlist[1], true) guiGridListClear(GUIEditor.gridlist[1]) local Hours = getHours() for one = 1, #getElementsByType('player') do if one >= 40 then return end local item = guiGridListAddRow(GUIEditor.gridlist[1]) if (Hours[1]) then local itemName = guiGridListSetItemText(GUIEditor.gridlist[1], item, 1, one ..'- ' .. getPlayerName(Hours[one].name), false, false) local itemName = guiGridListSetItemText(GUIEditor.gridlist[1], item, 2, Hours[one].time, false, false) guiGridListSetItemColor(GUIEditor.gridlist[1], item, 1, 255, 0, 0) guiGridListSetItemColor(GUIEditor.gridlist[1], item, 2, 0, 255, 0) end end end, 1000, 0) addEventHandler( 'onClientGUIClick', root, function() if source == GUIEditor.button[1] then guiSetVisible(GUIEditor.window[1], false) showCursor(false) end end ) function open() if guiGetVisible(GUIEditor.window[1]) == false then guiSetVisible(GUIEditor.window[1], true) showCursor(true) else guiSetVisible(GUIEditor.window[1], false) showCursor(false) end end addCommandHandler('time', function() guiSetVisible(GUIEditor.window[1],true) showCursor( true ) end )

مثلا واحد ساعتة 40 يكون اعلي من الي معة 1000 ساعة

لما انسخ اسم الحساب ما يتنسخ PPP = getLocalPlayer() GUIEditor = { label = {} } local screenW, screenH = guiGetScreenSize() INFORM_WND = guiCreateWindow((screenW - 459) / 2, (screenH - 526) / 2, 459, 526, "=[ معلومات اللاعب ]=", false) guiWindowSetSizable(INFORM_WND, false) guiSetAlpha(INFORM_WND, 0.95) guiSetVisible(INFORM_WND,false) GUIEditor.label[1] = guiCreateLabel(158, 41, 151, 26, "=[ السيريال الخاص بك ]=", false, INFORM_WND) guiSetFont(GUIEditor.label[1], "default-bold-small") guiLabelSetColor(GUIEditor.label[1], 0, 251, 255) guiLabelSetHorizontalAlign(GUIEditor.label[1], "center", false) guiLabelSetVerticalAlign(GUIEditor.label[1], "center") Serial_Copy = guiCreateButton(158, 86, 151, 32, "=[ Copy |#| نسخ ]=", false, INFORM_WND) guiSetProperty(Serial_Copy, "NormalTextColour", "FFFF0066") GUIEditor.label[2] = guiCreateLabel(148, 160, 171, 27, "=[ اسم الحساب ألخاص بك ]=", false, INFORM_WND) guiSetFont(GUIEditor.label[2], "default-bold-small") guiLabelSetColor(GUIEditor.label[2], 0, 251, 255) guiLabelSetHorizontalAlign(GUIEditor.label[2], "center", false) guiLabelSetVerticalAlign(GUIEditor.label[2], "center") AccName_Copy = guiCreateButton(158, 225, 151, 32, "=[ Copy |#| نسخ ]=", false, INFORM_WND) guiSetProperty(AccName_Copy, "NormalTextColour", "FFFF0066") GUIEditor.label[3] = guiCreateLabel(158, 299, 151, 26, "=[ النك نيم الخاص بك ]=", false, INFORM_WND) guiSetFont(GUIEditor.label[3], "default-bold-small") guiLabelSetColor(GUIEditor.label[3], 0, 251, 255) guiLabelSetHorizontalAlign(GUIEditor.label[3], "center", false) guiLabelSetVerticalAlign(GUIEditor.label[3], "center") NickName_Copy = guiCreateButton(158, 360, 151, 32, "=[ Copy |#| نسخ ]=", false, INFORM_WND) guiSetProperty(NickName_Copy, "NormalTextColour", "FFFF0066") GUIEditor.label[4] = guiCreateLabel(0, 402, 460, 15, "===========================================================================", false, INFORM_WND) guiLabelSetColor(GUIEditor.label[4], 215, 0, 0) GUIEditor.label[5] = guiCreateLabel(144, 417, 180, 29, "", false, INFORM_WND) guiSetFont(GUIEditor.label[5], "default-bold-small") guiLabelSetColor(GUIEditor.label[5], 0, 251, 255) guiLabelSetHorizontalAlign(GUIEditor.label[5], "center", false) Close_Button = guiCreateButton(158, 463, 151, 32, "=[ Close |#| إغلاق ]=", false,INFORM_WND) guiSetProperty(Close_Button, "NormalTextColour", "FFFF0066") Serial_EDIT = guiCreateEdit(1012, 281, 348, 30, "",false,INFORM_WND) guiSetText(Serial_EDIT,"" .. getPlayerSerial()) guiSetAlpha(Serial_EDIT, 0.00) guiEditSetReadOnly(Serial_EDIT, true) Acc__EDIT = guiCreateEdit(1012, 327, 348, 30, "",false,INFORM_WND) guiSetText ( Acc__EDIT,getElementData(localPlayer,"AccountName") ) guiSetAlpha(Acc__EDIT, 0.00) guiEditSetReadOnly(Acc__EDIT, true) NickName_EDIT = guiCreateEdit(1012, 372, 348, 30, "",false,INFORM_WND) guiSetText(NickName_EDIT,"" .. getPlayerName(localPlayer) ) guiSetAlpha(NickName_EDIT, 0.00) guiEditSetReadOnly(NickName_EDIT, true) addEventHandler( "onClientElementDataChange", root, function( dataName, OldValue ) if ( source and dataName == "AccountName" ) then guiGetText ( Acc__EDIT,getElementData(localPlayer,"AccountName") ) end end ) addEventHandler('onClientPlayerChangeNick', root, function(oldNick, newNick) guiSetText(NickName_EDIT,"" .. newNick ) end ) addEventHandler("onClientGUIClick",root, function () if source == Close_Button then if ( guiGetVisible(INFORM_WND) == false ) then showCursor(true) end guiSetVisible ( INFORM_WND, false ) showCursor(false) guiSetInputEnabled(false) end end ) addEventHandler ("onClientGUIClick", getRootElement(), function() if ( source == NickName_Copy ) then local text = guiGetText ( NickName_EDIT ) setClipboard( text ) end end ) addEventHandler ( "onClientGUIClick", resourceRoot, function ( ) if ( source == NickName_Copy ) then if ( isTimer ( TimerEnabled ) ) then return end guiSetEnabled(NickName_Copy, true) guiSetText ( source, "تم نسخ النك نيم" ) TimerEnabled = setTimer ( guiSetText, 3000, 1, source, "=[ Copy |#| نسخ ]=" ) guiSetEnabled(source, false) setTimer(guiSetEnabled, 3000, 1, NickName_Copy, true) end end ) addEventHandler ("onClientGUIClick", getRootElement(), function() if ( source == Serial_Copy ) then local text = guiGetText ( Serial_EDIT ) setClipboard( text ) end end ) addEventHandler ( "onClientGUIClick", resourceRoot, function ( ) if ( source == Serial_Copy ) then if ( isTimer ( TimerEnabled ) ) then return end guiSetEnabled(Serial_Copy, true) guiSetText ( source, "تم نسخ السيريال" ) TimerEnabled = setTimer ( guiSetText, 3000, 1, source, "=[ Copy |#| نسخ ]=" ) guiSetEnabled(source, false) setTimer(guiSetEnabled, 3000, 1, Serial_Copy, true) end end ) addEventHandler ("onClientGUIClick", getRootElement(), function() if ( source == AccName_Copy ) then local text = guiGetText ( Acc__EDIT ) setClipboard( text ) end end ) addEventHandler ( "onClientGUIClick", resourceRoot, function ( ) if ( source == AccName_Copy ) then if ( isTimer ( TimerEnabled ) ) then return end guiSetEnabled(AccName_Copy, true) guiSetText ( source, "تم نسخ الحساب" ) TimerEnabled = setTimer ( guiSetText, 3000, 1, source, "=[ Copy |#| نسخ ]=" ) guiSetEnabled(source, false) setTimer(guiSetEnabled, 3000, 1, AccName_Copy, true) end end ) addEventHandler( "onClientElementDataChange", root, function( dataName, OldValue ) if ( source and dataName == "AccountName" ) then guiSetText ( Acc__EDIT,getElementData(localPlayer,"AccountName") ) end end ) ------------------------ addEventHandler("onClientGUIClick",root, function () if source == clsps then guiSetVisible (window, false ) showCursor(false) guiSetInputEnabled(false) end end ) addCommandHandler('Serial', function() guiSetVisible(INFORM_WND,true) showCursor( true ) end )

مفي اخطاء بالدي بق

لما احفظ المكان يتحفظ بس لما اطلع وادخل المكان الي حفظتة يختفي Client ______________________________________________ local sw,sh=guiGetScreenSize() ---------------- -- Window ---------------- local x,y = (sw-419)/2,(sh-294)/2 Window = guiCreateWindow(x, y, 419, 294, "=[ Save Places System ]=", false) guiSetAlpha(Window, 1.00) guiSetProperty(Window, "CaptionColour", "FF18EB13") guiSetVisible(Window,false) Lbl1 = guiCreateLabel(10, 30, 270, 15, "=[ Save Places ]=", false, Window) guiSetFont(Lbl1, "default-bold-small") guiLabelSetColor(Lbl1, 253, 0, 0) Close = guiCreateButton(356, 26, 47, 25, "✖", false, Window) guiSetFont(Close, "default-bold-small") guiSetProperty(Close, "NormalTextColour", "FF0D62EE") List = guiCreateGridList(9, 63, 184, 221, false, Window) guiGridListAddColumn(List, " The Place ", 0.7) NamePlace = guiCreateEdit(202, 85, 201, 24, "", false, Window) guiEditSetMaxLength(NamePlace, 15) Lbl2 = guiCreateLabel(260, 68, 94, 17, "Place Name : ", false, Window) guiSetFont(Lbl2, "default-bold-small") guiLabelSetColor(Lbl2, 241, 206, 9) Add = guiCreateButton(207, 123, 191, 20, "Add Place", false, Window) guiSetFont(Add, "default-bold-small") guiSetProperty(Add, "NormalTextColour", "FF1A77DF") Warp = guiCreateButton(207, 160, 191, 20, "Warp To Place", false, Window) guiSetFont(Warp, "default-bold-small") guiSetProperty(Warp, "NormalTextColour", "FF1A77DF") Delete = guiCreateButton(207, 198, 191, 20, "Delete Place", false, Window) guiSetFont(Delete, "default-bold-small") guiSetProperty(Delete, "NormalTextColour", "FF1A77DF") Lbl2 = guiCreateLabel(207, 250, 210, 15, "", false, Window) guiSetFont(Lbl2, "default-bold-small") guiLabelSetColor(Lbl2, 255, 255, 0) --------------- -- On Click --------------- addEventHandler("onClientGUIClick",guiRoot,function() if ( source == Warp ) then local Select = guiGridListGetSelectedItem(List) local getNamePlaceFromList = guiGridListGetItemText(List,Select,1) if ( tostring(getNamePlaceFromList) ) then triggerServerEvent("WarpPlace",localPlayer,tostring(getNamePlaceFromList)) guiSetVisible(Window,false) showCursor(false) guiSetInputEnabled(false) else outputChatBox("Please Select Place .",255,0,0,true) end elseif ( source == Delete ) then local Select = guiGridListGetSelectedItem(List) local getNamePlaceFromList = guiGridListGetItemText(List,Select,1) if ( tostring(getNamePlaceFromList) ) then triggerServerEvent("DeletePlace",localPlayer,tostring(getNamePlaceFromList)) else outputChatBox("Please Select Place .",255,0,0,true) end elseif ( source == Add ) then local Name = guiGetText(NamePlace) if ( tostring(Name) and string.len(tostring(Name)) >= 1 ) then triggerServerEvent("AddNewPlace",localPlayer,tostring(Name)) end elseif ( source == Close ) then guiSetVisible(Window,false) showCursor(false) guiSetInputEnabled(false) end end) ----------------------- -- Event From Server ----------------------- addEvent("UpPleaceToList",true) addEventHandler("UpPleaceToList",root,function(Table) guiGridListClear(List) for _,v in ipairs(Table) do local row = guiGridListAddRow(List) guiGridListSetItemText(List,row,1,tostring(v.NamePlaceT),false,false) guiGridListSetItemColor(List,row,1,0,255,255) end end) _________________________________ Server _________________________________ addEventHandler("onResourceStart",resourceRoot,function() executeSQLQuery("CREATE TABLE IF NOT EXISTS PlaceSystem (NamePlace,SerialPlr,X,Y,Z) ") end) addEvent("AddNewPlace",true) addEventHandler("AddNewPlace",root,function(Name) local serial = getPlayerSerial(source) local Row = executeSQLQuery("SELECT * FROM PlaceSystem WHERE SerialPlr=?",tostring(serial)) if ( Row and Row ~= 0 ) then for _,v in ipairs(Row) do if ( tostring(v.NamePlace) == tostring(Name) ) then outputChatBox("Please Choose Another Name .",source,255,0,0,true) return end end end local x,y,z = getElementPosition(source) executeSQLQuery("INSERT INTO PlaceSystem (NamePlace,SerialPlr,X,Y,Z) VALUES (?,?,?,?,?)",tostring(Name),tostring(serial),tostring(x),tostring(y),tostring(z)) outputChatBox("Successfully Add Place [ "..tostring(Name).." ]",source,0,0,255,true) sendPlaceForClient(source,serial) end) addEvent("WarpPlace",true) addEventHandler("WarpPlace",root,function(Name) local skin = getElementModel(source) if ( Name and string.len(Name) >= 1 ) then local Row = executeSQLQuery("SELECT * FROM PlaceSystem WHERE SerialPlr=? AND NamePlace=?",getPlayerSerial(source),Name) if ( type(Row) == "table" and Row == 0 or not Row ) then outputChatBox("Please Select Place .",source,255,0,0,true) return end spawnPlayer(source,Row[1]["X"],Row[1]["Y"],Row[1]["Z"],math.random(0,270),skin) else outputChatBox("Please Select Place .",source,255,0,0,true) end end) addEvent("UpPleacesOnOpenWindow",true) addEventHandler("UpPleacesOnOpenWindow",root,function() sendPlaceForClient(source,getPlayerSerial(source)) end) addEvent("DeletePlace",true) addEventHandler("DeletePlace",root,function(Name) if ( Name and string.len(Name) >= 1 ) then local Row = executeSQLQuery("SELECT * FROM PlaceSystem WHERE SerialPlr=? AND NamePlace=?",getPlayerSerial(source),Name) executeSQLQuery("DELETE FROM PlaceSystem WHERE NamePlace =? AND X=? AND Y=? AND Z=? AND SerialPlr=?",Name,Row[1]["X"],Row[1]["Y"],Row[1]["Z"],getPlayerSerial(source)) sendPlaceForClient(source,getPlayerSerial(source)) end end) function sendPlaceForClient(plr,serial) local Table = {} for _,v in ipairs (getPleaces(serial)) do table.insert(Table,{NamePlaceT = v.NamePlace,}) end triggerClientEvent(plr,"UpPleaceToList",plr,Table) end function getPleaces(Serial) if ( Serial and type(Serial) == "string" ) then local Row = executeSQLQuery("SELECT * FROM PlaceSystem WHERE SerialPlr=?",tostring(Serial)) if ( type(Row) == "table" and #Row == 0 or not Row ) then return {} else return Row end end end

ابي طريقة لحماية المودات من السرقة غير التشفير

يب

كيف اضيف زر الوزنيات بالفري روم

عايز لما حد يغير الوقت يتغير عندة هو بس مش عند كل الناس --------------------------- -- Time --------------------------- function timeInit() local hours, minutes = getTime() setControlNumbers(wndTime, { hours = hours, minutes = minutes }) end function selectTime(leaf) setControlNumbers(wndTime, { hours = leaf.h, minutes = leaf.m }) end function applyTime() local hours, minutes = getControlNumbers(wndTime, { 'hours', 'minutes' }) server.setTime(hours, minutes) closeWindow(wndTime) end wndTime = { 'wnd', text = 'Set time', width = 220, controls = { { 'lst', id='timelist', width=200, height=150, columns={ {text='Time', attr='name'} }, rows={ {name='Midnight', h=0, m=0}, {name='Dawn', h=5, m=0}, {name='Morning', h=9, m=0}, {name='Noon', h=12, m=0}, {name='Afternoon', h=15, m=0}, {name='Evening', h=20, m=0}, {name='Night', h=22, m=0} }, onitemclick=selectTime, ondoubleclick=applyTime }, {'txt', id='hours', text='', width=40}, {'lbl', text=':'}, {'txt', id='minutes', text='', width=40}, {'btn', id='ok', onclick=applyTime}, {'btn', id='cancel', closeswindow=true} }, oncreate = timeInit } function setTimeCommand(cmd, hours, minutes) if not hours then return end local curHours, curMinutes = getTime() hours = tonumber(hours) or curHours minutes = minutes and tonumber(minutes) or curMinutes setTime(hours, minutes) end addCommandHandler('settime', setTimeCommand) addCommandHandler('st', setTimeCommand) function toggleFreezeTime() local state = guiCheckBoxGetSelected(getControl(wndMain, 'freezetime')) guiCheckBoxSetSelected(getControl(wndMain, 'freezetime'), not state) server.setTimeFrozen(state) end function setTimeFrozen(state, h, m, w) guiCheckBoxSetSelected(getControl(wndMain, 'freezetime'), state) if state then if not g_TimeFreezeTimer then g_TimeFreezeTimer = setTimer(function() setTime(h, m) setWeather(w) end, 5000, 0) setMinuteDuration(9001) end else if g_TimeFreezeTimer then killTimer(g_TimeFreezeTimer) g_TimeFreezeTimer = nil end setMinuteDuration(1000) end end

عايز لما الاعب ياخد ميوت يجيلة ميوت فى الوكال شات chat_range=100 addEventHandler("onPlayerJoin",getRootElement(), function () bindKey(source,"r","down","chatbox","LocalChat") end) addEventHandler("onResourceStart",getResourceRootElement(getThisResource()), function () for index, player in pairs(getElementsByType("player")) do bindKey(player,"r","down","chatbox","LocalChat") end end) function isPlayerInRangeOfPoint(player,x,y,z,range) local px,py,pz=getElementPosition(player) return ((x-px)^2+(y-py)^2+(z-pz)^2)^0.5<=range end function onChat(player,_,...) local px,py,pz=getElementPosition(player) local msg = table.concat({...}, " ") local nick=getPlayerName(player) local r,g,b = getTeamColor(getPlayerTeam(player)) for _,v in ipairs(getElementsByType("player")) do if isPlayerInRangeOfPoint(v,px,py,pz,chat_range) then end end end addCommandHandler("LocalChat",onChat)

كل لما اكتب حاجة بالعاجل يتغير لوحدة بعد دقيقة local x,y = guiGetScreenSize(); addEvent ( "MoDy", true ) addEventHandler ( "MoDy", getRootElement(),function(message) txt = message; playSoundFrontEnd ( 49 ) end) addEventHandler("onClientRender", getRootElement( ),function( ) if ( txt ) then dxDrawText ( "#ffFFFF[ #1E90FFAdmin#FFFFFF ] :", x*(13.0/800), y*(167.0/600), x*(55.0/800), y*(182.0/600), tocolor ( 255, 255, 0, 255 ), 1.0, "default-bold", "left", "top", false, false, false ,true) dxDrawText (txt, x*(60.0/800), y*(168.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*(13.0/800),y*(184.0/600),x*(799.0/800),y*(224.0/600),tocolor(255,255,255,255),0.85,"default-bold","left","top",false,false,false,true) end end) bindKey ( "i", "down", "chatbox", "Admin" ) addEventHandler ( "onClientResourceStart", resourceRoot, function ( ) triggerServerEvent ( "SetMessage", localPlayer ) end ) ____________________________________ Groups = { -- القروبات المسموح لها بالكتابة "Control", "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 ( "MoDy", getRootElement( ), getElementData ( resourceRoot, "MessageAdmin" ) ) end end end addCommandHandler( "Admin", check ) addEventHandler ( "onResourceStart", resourceRoot, function ( ) executeSQLQuery("CREATE TABLE IF NOT EXISTS SaveMessages (Message, Server)") end ) addEvent ( "SetMessage", true ) addEventHandler ( "SetMessage", root, function ( ) getMessage ( ) end ) SaveMessage = function ( ) local msg = executeSQLQuery ( "SELECT * FROM SaveMessages WHERE Server = '" .. getServerName ( ) .."'" ) if ( #msg ~= 0 ) then return executeSQLQuery("UPDATE SaveMessages SET Message=? WHERE Server=? ", tostring ( getElementData ( resourceRoot, "MessageAdmin" ) ), getServerName ( ) ) else return executeSQLQuery("INSERT INTO SaveMessages (Message,Server) VALUES(?,?)", tostring ( getElementData ( resourceRoot, "MessageAdmin" ) ), getServerName ( ) ) end end getMessage = function ( ) local msg = executeSQLQuery ( "SELECT * FROM SaveMessages" ) if ( #msg ~= 0 ) then setElementData ( resourceRoot, "MessageAdmin", msg[1]["Message"] ) return setTimer ( triggerClientEvent, 1000, 1, "MoDy", getRootElement( ), getElementData ( resourceRoot, "MessageAdmin" ) ) else return setTimer ( triggerClientEvent, 1000, 1, "MoDy", getRootElement( ), " " ) end end

كيف اركب اكتر من ماب ديربي

وين احط الكود ؟

معاية مود الكتابة على شاشة الاعبين بس عايز يظهر اسم الى كتب الرسالة فى الشات function shout(player, cmd, ...) local accountname = getAccountName(getPlayerAccount(player)) if isObjectInACLGroup ( "user." .. accountname, aclGetGroup ( "official" )) then for id, players in ipairs(getElementsByType("player")) do local message = table.concat({...}," ") local textDisplay = textCreateDisplay () local nombre = getPlayerName(player) local textItem = textCreateTextItem( ""..message, 0.5, 0.5, 2, 255, 255, 255, 255, 2, "center", "center" ) textDisplayAddText ( textDisplay, textItem ) textDisplayAddObserver ( textDisplay, players ) setTimer ( textDestroyTextItem, 2000, 1, textItem ) setTimer ( textDestroyDisplay, 2000, 1, textDisplay ) end else outputChatBox("You cannot use this command!",player,255,12,15) end end addCommandHandler("hi", shout) --Credits to SolidSnake14 for help.

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