-
Posts
2,490 -
Joined
-
Days Won
18
Everything posted by N3xT
-
إنسخ ذا الكود exports["vMZ-TopBar"]:sendClientMessage ( "Press 'p' to open your admin panel", player ) وركبه ع الباقية كلها عشان يرجع يشتغل
-
triggerClientEvent("AddMezo",source,text1,text2,text3) سورس راح يجي للاعب اللي ظغط الزر فقط ، لذلك يعدل التريقر لـ روت . triggerClientEvent("AddMezo",root,text1,text2,text3)
-
^ فيه 2 إند ناقصتك , حاط 3 تحققات وفنكشن ومستعمل 2 إند لا تسوي أنتر بين الأكواد عشان تبان الأكواد
-
function start(msg) message = msg end addEvent("M3nFsK2", true ) addEventHandler("M3nFsK2", getRootElement(), start) function as() local Name = getPlayerName(localPlayer) dxDrawFramedText("Admin ["..Name:gsub('#%x%x%x%x%x%x', '').."]: ",14, 235, 783, 264,tocolor(255, 0, 0, 255),1.0,"default-bold","left","top",false,false,false) dxDrawFramedText(" "..message.."", 119, 236, 887, 270,tocolor(255,255,255,255),1.0,"default-bold","left","top",false,false,false) end addEventHandler("onClientRender", getRootElement(), as)
-
أنت بالكود الأول عرفت الإلمنت اللي هو " بلاير " عشان يطلع بالتوبار exports["vMZ-TopBar"]:sendClientMessage ( "Press 'p' to open your admin panel", player ) لكن بالباقية م عرفت الإلمنت ؟ exports["vMZ-TopBar"]:sendClientMessage ( "ERROR: "..getPlayerName ( player ).." - Invalid Serial." )
-
أطرح التريقر اللي بملف سيرفر
-
. ميزو الكود حقك سطر 5 ناقصه قوس
-
ي لعبة كيف تعطي الداتا للوكال بلاير ؟ وهو يبي يحط التاج للاعب المحدد مب اللوكل بلاير setElementData (localPlayer,'Tag',guiGetText (edittag)) setElementData (localPlayer,'colour',guiGetText (editcolor))
-
للمعلومية أظن فيه كومند موجود أصلا يقتلك kill
-
# Client : addEventHandler("onClientGUIClick",root, function () if ( source == الزر ) then local row = guiGridListGetSelectedItem (القريد) local select = guiGridListGetItemText (القريد, row, 1) if (select and select ~= "") then triggerServerEvent ("kill", localPlayer, select) else outputChatBox("#FF0000# #FFFFFFPlease Select A Player",255,0,0,true) end end end ) # Server : addEvent ( "kill", true ) addEventHandler ( 'kill', getRootElement ( ), function ( select ) local pl = getPlayerFromName ( select ) local plr = getPlayerName(select) killPed(pl) outputChatBox("#FF0000# #FFFFFFSuccessfully Killed [ " .. plr:gsub('#%x%x%x%x%x%x', '') .. " ]",source,255,0,0,true) end )
-
" السرينه البوليس الفي السياره " ممكن تفهمنا عشان نقدر نساعدك ؟
-
ممكن تقولي وش يطلع لك بالديبق ؟ ولا تبيني أفتش لك بـ 1500 سطر ؟
-
عدل ع أسم القريد والزر # Client : addEventHandler("onClientGUIClick",root, function () if ( source == الزر ) then local row = guiGridListGetSelectedItem (القريد) local select = guiGridListGetItemText (القريد, row, 1) if (select and select ~= "") then triggerServerEvent ("kill", localPlayer, select) else outputChatBox("#FF0000# #FFFFFFPlease Select A Player",255,0,0,true) end end end ) # Server : addEvent ( "kill", true ) addEventHandler ( 'kill', getRootElement ( ), function ( select ) local pl = getPlayerFromName ( select ) killPed(pl) outputChatBox("#FF0000# #FFFFFFSuccessfully Killed [ " .. pl:gsub('#%x%x%x%x%x%x', '') .. " ]",source,255,0,0,true) end )
-
شغال عندي وكل شيء تمام , المشكلة من عندك
-
كيف اخلي الكلام باللوحه لمني احط الماوس فوقع يتغيير لونه
N3xT replied to likemike12's topic in البرمجة
' onClientMouseEnter ' ' onClientMouseLeave ' guiSetProperty -
ذا مود خاص بالوزارة : dxDrawText interpolateBetween setTimer
-
أستبدل ملف أدمن سيرفر بالأكواد ذي وسطر 25 تحط الرتب اللي تبيها تفك الميوت --[[********************************** * * Multi Theft Auto - Admin Panel * * admin_server.lua * * Original File by lil_Toady * **************************************]] _root = getRootElement() _types = { "player", "team", "vehicle", "resource", "bans", "server", "admin" } _settings = nil aPlayers = {} aLogMessages = {} aInteriors = {} aStats = {} aReports = {} aWeathers = {} aNickChangeTime = {} local aUnmuteTimerList = {} Groups = { "Admin", } function notifyPlayerLoggedIn(player) outputChatBox ( "Press 'p' to open your admin panel", player ) local unread = 0 for _, msg in ipairs ( aReports ) do unread = unread + ( msg.read and 0 or 1 ) end if unread > 0 then outputChatBox( unread .. " unread Admin message" .. ( unread==1 and "" or "s" ), player, 255, 0, 0 ) end end addEventHandler ( "onResourceStart", _root, function ( resource ) if ( resource ~= getThisResource() ) then for id, player in ipairs(getElementsByType("player")) do if ( hasObjectPermissionTo ( player, "general.tab_resources" ) ) then triggerClientEvent ( player, "aClientResourceStart", _root, getResourceName ( resource ) ) end end return end _settings = xmlLoadFile ( "conf\\settings.xml" ) if ( not _settings ) then _settings = xmlCreateFile ( "conf\\settings.xml", "main" ) xmlSaveFile ( _settings ) end aSetupACL() aSetupCommands() for id, player in ipairs ( getElementsByType ( "player" ) ) do aPlayerInitialize ( player ) if ( hasObjectPermissionTo ( player, "general.adminpanel" ) ) then notifyPlayerLoggedIn(player) end end local node = xmlLoadFile ( "conf\\interiors.xml" ) if ( node ) then local interiors = 0 while ( xmlFindChild ( node, "interior", interiors ) ) do local interior = xmlFindChild ( node, "interior", interiors ) interiors = interiors + 1 aInteriors[interiors] = {} aInteriors[interiors]["world"] = tonumber ( xmlNodeGetAttribute ( interior, "world" ) ) aInteriors[interiors]["id"] = xmlNodeGetAttribute ( interior, "id" ) aInteriors[interiors]["x"] = xmlNodeGetAttribute ( interior, "posX" ) aInteriors[interiors]["y"] = xmlNodeGetAttribute ( interior, "posY" ) aInteriors[interiors]["z"] = xmlNodeGetAttribute ( interior, "posZ" ) aInteriors[interiors]["r"] = xmlNodeGetAttribute ( interior, "rot" ) end xmlUnloadFile ( node ) end local node = xmlLoadFile ( "conf\\stats.xml" ) if ( node ) then local stats = 0 while ( xmlFindChild ( node, "stat", stats ) ) do local stat = xmlFindChild ( node, "stat", stats ) local id = tonumber ( xmlNodeGetAttribute ( stat, "id" ) ) local name = xmlNodeGetAttribute ( stat, "name" ) aStats[id] = name stats = stats + 1 end xmlUnloadFile ( node ) end local node = xmlLoadFile ( "conf\\weathers.xml" ) if ( node ) then local weathers = 0 while ( xmlFindChild ( node, "weather", weathers ) ~= false ) do local weather = xmlFindChild ( node, "weather", weathers ) local id = tonumber ( xmlNodeGetAttribute ( weather, "id" ) ) local name = xmlNodeGetAttribute ( weather, "name" ) aWeathers[id] = name weathers = weathers + 1 end xmlUnloadFile ( node ) end local node = xmlLoadFile ( "conf\\reports.xml" ) if ( node ) then local messages = 0 while ( xmlFindChild ( node, "message", messages ) ) do subnode = xmlFindChild ( node, "message", messages ) local author = xmlFindChild ( subnode, "author", 0 ) local subject = xmlFindChild ( subnode, "subject", 0 ) local category = xmlFindChild ( subnode, "category", 0 ) local text = xmlFindChild ( subnode, "text", 0 ) local time = xmlFindChild ( subnode, "time", 0 ) local read = ( xmlFindChild ( subnode, "read", 0 ) ~= false ) local id = #aReports + 1 aReports[id] = {} if ( author ) then aReports[id].author = xmlNodeGetValue ( author ) else aReports[id].author = "" end if ( category ) then aReports[id].category = xmlNodeGetValue ( category ) else aReports[id].category = "" end if ( subject ) then aReports[id].subject = xmlNodeGetValue ( subject ) else aReports[id].subject = "" end if ( text ) then aReports[id].text = xmlNodeGetValue ( text ) else aReports[id].text = "" end if ( time ) then aReports[id].time = xmlNodeGetValue ( time ) else aReports[id].time = "" end aReports[id].read = read messages = messages + 1 end -- Remove duplicates local a = 1 while a <= #aReports do local b = a + 1 while b <= #aReports do if table.cmp( aReports[a], aReports[b] ) then table.remove( aReports, b ) b = b - 1 end b = b + 1 end a = a + 1 end -- Upgrade time from '4/9 5:9' to '2009-09-04 05:09' for id, rep in ipairs ( aReports ) do if string.find( rep.time, "/" ) then local monthday, month, hour, minute = string.match( rep.time, "^(.-)/(.-) (.-).-)$" ) rep.time = string.format( '%04d-%02d-%02d %02d:%02d', 2009, month + 1, monthday, hour, minute ) end end -- Sort messages by time table.sort(aReports, function(a,b) return(a.time < b.time) end) -- Limit number of messages while #aReports > g_Prefs.maxmsgs do table.remove( aReports, 1 ) end xmlUnloadFile ( node ) end local node = xmlLoadFile ( "conf\\messages.xml" ) if ( node ) then for id, type in ipairs ( _types ) do local subnode = xmlFindChild ( node, type, 0 ) if ( subnode ) then aLogMessages[type] = {} local groups = 0 while ( xmlFindChild ( subnode, "group", groups ) ) do local group = xmlFindChild ( subnode, "group", groups ) local action = xmlNodeGetAttribute ( group, "action" ) local r = tonumber ( xmlNodeGetAttribute ( group, "r" ) ) local g = tonumber ( xmlNodeGetAttribute ( group, "g" ) ) local b = tonumber ( xmlNodeGetAttribute ( group, "b" ) ) aLogMessages[type][action] = {} aLogMessages[type][action]["r"] = r or 0 aLogMessages[type][action]["g"] = g or 255 aLogMessages[type][action]["b"] = b or 0 if ( xmlFindChild ( group, "all", 0 ) ) then aLogMessages[type][action]["all"] = xmlNodeGetValue ( xmlFindChild ( group, "all", 0 ) ) end if ( xmlFindChild ( group, "admin", 0 ) ) then aLogMessages[type][action]["admin"] = xmlNodeGetValue ( xmlFindChild ( group, "admin", 0 ) ) end if ( xmlFindChild ( group, "player", 0 ) ) then aLogMessages[type][action]["player"] = xmlNodeGetValue ( xmlFindChild ( group, "player", 0 ) ) end if ( xmlFindChild ( group, "log", 0 ) ) then aLogMessages[type][action]["log"] = xmlNodeGetValue ( xmlFindChild ( group, "log", 0 ) ) end groups = groups + 1 end end end xmlUnloadFile ( node ) end end ) addEventHandler ( "onResourceStop", _root, function ( resource ) -- Incase the resource being stopped has been deleted local stillExists = false for i, res in ipairs(getResources()) do if res == resource then stillExists = true break end end if not stillExists then return end if ( resource ~= getThisResource() ) then for id, player in ipairs(getElementsByType("player")) do if ( hasObjectPermissionTo ( player, "general.tab_resources" ) ) then triggerClientEvent ( player, "aClientResourceStop", _root, getResourceName ( resource ) ) end end else local node = xmlLoadFile ( "conf\\reports.xml" ) if ( node ) then while ( xmlFindChild ( node, "message", 0 ) ~= false ) do local subnode = xmlFindChild ( node, "message", 0 ) xmlDestroyNode ( subnode ) end else node = xmlCreateFile ( "conf\\reports.xml", "messages" ) end for id, message in ipairs ( aReports ) do local subnode = xmlCreateChild ( node, "message" ) for key, value in pairs ( message ) do if ( value ) then xmlNodeSetValue ( xmlCreateChild ( subnode, key ), tostring ( value ) ) end end end xmlSaveFile ( node ) xmlUnloadFile ( node ) -- Unmute anybody muted by admin for i, player in ipairs(getElementsByType("player")) do local serial = getPlayerSerial( player ) if (aUnmuteTimerList[serial]) then aUnmuteTimerList[serial] = nil setPlayerMuted(player, false) end end end aclSave () end ) function aGetSetting ( setting ) local result = xmlFindChild ( _settings, tostring ( setting ), 0 ) if ( result ) then result = xmlNodeGetValue ( result ) if ( result == "true" ) then return true elseif ( result == "false" ) then return false else return result end end return false end function aSetSetting ( setting, value ) local node = xmlFindChild ( _settings, tostring ( setting ), 0 ) if ( not node ) then node = xmlCreateChild ( _settings, tostring ( setting ) ) end
-
# Client : addEventHandler("onClientGUIClick",root, function () if ( source == X ) then guiSetVisible(wnd,false) showCursor(false) guiSetInputEnabled(false) elseif ( source == GUIEditor.button[1]) then local item = guiComboBoxGetSelected ( GUIEditor.combobox[1] ) local text = guiComboBoxGetItemText ( GUIEditor.combobox[1] , item ) if ( guiGetText ( editname) and guiGetText ( GUIEditor.edit[2] ) and guiGetText ( GUIEditor.edit[1] ) ~= '' ) then triggerServerEvent("AddMe",localPlayer,guiGetText (editname)) end end end ) addEvent("AddToGrid",true) addEventHandler("AddToGrid",root, function ( text ) local Row = guiGridListAddRow ( gridlist ) local item = guiComboBoxGetSelected ( GUIEditor.combobox[1] ) local text = guiComboBoxGetItemText ( GUIEditor.combobox[1] , item ) guiGridListSetItemText ( gridlist , Row ,1 ,text , false , false ) guiGridListSetItemText ( gridlist , Row , 2 , text , false , false ) guiGridListSetItemText ( gridlist , Row , 3 , text , false , false ) end ) # Server : addEvent("AddMe",true) addEventHandler("AddMe",root, function ( edit ) triggerClientEvent(source,"AddToGrid",source,edit) end )