-
Posts
506 -
Joined
-
Last visited
Everything posted by Mostafa MohammeD
-
شو القسم الي اروحه طيب + كيف من الانترنت عندي انا العب في سيرفرات كتير وما يحدث شئ كيف يعني من عندي في خلل اكيد شو هو ما في احد غيري يقدر يشغل السيرفر ويبرمجه ساعدني بليز
-
هذا من النت + القسم الغلط ذة هذا فقط للبرمجة شو القسم الي اروحه طيب + كيف من الانترنت عندي انا العب في سيرفرات كتير وما يحدث شئ كيف يعني من عندي
-
بعد function ولا قبلها
-
هاي الكلينكت local sm = {} sm.moov = 0 sm.object1, sm.object2 = nil, nil local function removeCamHandler () if(sm.moov == 1) then sm.moov = 0 removeEventHandler ( "onClientPreRender", getRootElement(), camRender ) end end function camRender () if sm.object1 and isElement(sm.object1) then local x1, y1, z1 = getElementPosition ( sm.object1 ) local x2, y2, z2 = getElementPosition ( sm.object2 ) setCameraMatrix ( x1, y1, z1, x2, y2, z2 ) end end function smoothMoveCamera ( x1, y1, z1, x1t, y1t, z1t, x2, y2, z2, x2t, y2t, z2t, time ) if(sm.moov == 1) then return false end sm.object1 = createObject ( 1337, x1, y1, z1 ) sm.object2 = createObject ( 1337, x1t, y1t, z1t ) setElementAlpha ( sm.object1, 0 ) setElementAlpha ( sm.object2, 0 ) setObjectScale(sm.object1, 0.01) setObjectScale(sm.object2, 0.01) moveObject ( sm.object1, time, x2, y2, z2, 0, 0, 0, "InOutQuad" ) moveObject ( sm.object2, time, x2t, y2t, z2t, 0, 0, 0, "InOutQuad" ) addEventHandler ( "onClientPreRender", getRootElement(), camRender ) sm.moov = 1 setTimer ( removeCamHandler, time, 1 ) setTimer ( destroyElement, time, 1, sm.object1 ) setTimer ( destroyElement, time, 1, sm.object2 ) return true end function centerWindow(center_window) local screenW,screenH=guiGetScreenSize() local windowW,windowH=guiGetSize(center_window,false) local x,y = (screenW-windowW)/2,(screenH-windowH)/2 guiSetPosition(center_window,x,y,false) end addEventHandler("onClientResourceStart",resourceRoot, function () setTimer(function () if isPedInVehicle(localPlayer) then destroyElement(getPedOccupiedVehicle(localPlayer)) end dx = true setCameraMatrix(-2684.654296875,1933.3981933594,185.04570007324,-2684.6457519531,1932.5715332031,184.48304748535) setTime(1,0) showCursor(true) guiSetInputEnabled(true) fadeCamera(true) showChat(false) setElementDimension(localPlayer,0) setElementData(localPlayer,"new",false) outputChatBox("#0069c7 ## #ff0000 GameMode By #0069c7[#ff0000MR~#0069c7Mos.[T].aّّّfA~#ff0000] #0069c7##",255,0,0,true) end,500,1) end ) wnd = guiCreateStaticImage(0,-268,389,268,"abed.png",false) english = guiCreateButton(0.0231,0.0284,0.0566,0.1082,"En",true,wnd) guiSetFont(english,"default-bold-small") setTimer(function() guiSetProperty(english, 'NormalTextColour', string.format("%.2X%.2X%.2X%.2X", 255, math.random(255), math.random(255), math.random(255))) end, 1000, 0) arabic = guiCreateButton(0.0848,0.0284,0.0566,0.1082,"Ar",true,wnd) guiSetFont(arabic,"default-bold-small") setTimer(function() guiSetProperty(arabic, 'NormalTextColour', string.format("%.2X%.2X%.2X%.2X", 255, math.random(255), math.random(255), math.random(255))) end, 1000, 0) user_l = guiCreateLabel(0.0206,0.1903,0.9614,0.0784,"Username",true,wnd) function Color ( ) guiLabelSetColor (user_l, math.random(0, 255), math.random(0, 255), math.random(0, 255) ) end setTimer ( Color, 1000, 0 ) guiLabelSetHorizontalAlign(user_l,"center",false) guiSetFont(user_l,"default-bold-small") user = guiCreateEdit(0.0231,0.2724,0.9537,0.1306,"",true,wnd) setTimer(function() guiSetProperty(user, 'NormalTextColour', string.format("%.2X%.2X%.2X%.2X", 255, math.random(255), math.random(255), math.random(255))) end, 1000, 0) pass_l = guiCreateLabel(0.0206,0.4216,0.9614,0.0784,"Password",true,wnd) function Color ( ) guiLabelSetColor (pass_l, math.random(0, 255), math.random(0, 255), math.random(0, 255) ) end setTimer ( Color, 1000, 0 ) guiLabelSetHorizontalAlign(pass_l,"center",false) guiSetFont(pass_l,"default-bold-small") pass = guiCreateEdit(0.0231,0.5187,0.9537,0.1306,"",true,wnd) setTimer(function() guiSetProperty(pass, 'NormalTextColour', string.format("%.2X%.2X%.2X%.2X", 255, math.random(255), math.random(255), math.random(255))) end, 100, 0) guiEditSetMasked(pass,true) remember = guiCreateCheckBox(0.0231,0.6642,0.3728,0.0746,"Remember Me !!",false,true,wnd) guiSetFont(remember,"default-bold-small") setTimer(function() guiSetProperty(remember, 'NormalTextColour', string.format("%.2X%.2X%.2X%.2X", 255, math.random(255), math.random(255), math.random(255))) end, 1000, 0) reg = guiCreateButton(0.5244,0.7724,0.3239,0.153,"Register",true,wnd) guiSetFont(reg,"default-bold-small") setTimer(function() guiSetProperty(reg, 'NormalTextColour', string.format("%.2X%.2X%.2X%.2X", 255, math.random(255), math.random(255), math.random(255))) end, 1000, 0) login = guiCreateButton(0.144,0.7724,0.3239,0.153,"Login",true,wnd) guiSetFont(login,"default-bold-small") setTimer(function() guiSetProperty(login, 'NormalTextColour', string.format("%.2X%.2X%.2X%.2X", 255, math.random(255), math.random(255), math.random(255))) end, 1000, 0) centerWindow(wnd) triggerServerEvent("onGetSave",localPlayer) addEvent("onPutSave",true) addEventHandler("onPutSave",root, function (puser,ppass) guiSetText(user,puser) guiSetText(pass,ppass) end ) addEventHandler("onClientGUIClick",root, function () if ( source == ex ) then guiSetVisible(wnd,false) showCursor(false) guiSetInputEnabled(false) Show() elseif ( source == english ) then guiSetText(user_l,"Username") guiSetText(pass_l,"Password") guiSetText(login,"Login") guiSetText(reg,"Register") guiSetText(remember,"Remember Me !!") elseif ( source == arabic ) then guiSetText(user_l,"اسم المستخدم") guiSetText(pass_l,"كلمه المرور") guiSetText(login,"تسجيل الدخول") guiSetText(reg,"حساب جديد") guiSetText(remember,"تذكرني") end end ) addEventHandler("onClientGUIClick",root, function () local user = guiGetText(user) local pass = guiGetText(pass) if ( source == login ) then if user ~= "" and pass ~= "" then if guiCheckBoxGetSelected(remember) then triggerServerEvent("onLoginWith",localPlayer,user,pass) else triggerServerEvent("onLogin",localPlayer,user,pass) end else outputChatBox("* You Must Write Username Or Password",255,0,0) end elseif ( source == reg ) then if user ~= "" and pass ~= "" then triggerServerEvent("onReg",localPlayer,user,pass) else outputChatBox("* You Must Write Username Or Password",255,0,0) end end end ) addEvent("onCl",true) addEventHandler("onCl",root, function () guiSetVisible(wnd,false) showCursor(false) guiSetInputEnabled(false) Show() end ) function setPlayerXYZ(x,y,z) local player = getLocalPlayer() setElementData(player,"x",x) setElementData(player,"y",y) setElementData(player,"z",z) end text = "~( حياكم الله في وناسة مصر )~" dx = false skin = {{46,"ثوب ابيض"},{0,"cj"},{181,"شخصية كوول"},{230,"شحات"}} num = 1 place = { {"النخيل",2021.6854248047,1441.3870849609,40.58459854126,2022.5858154297,1441.0551757813,40.303291320801,2119.56250,1396.94238,10.81252}, {"الدائري",1869.2296142578,1426.2882080078,74.245399475098,1868.2775878906,1426.3618164063,73.948387145996,1686.27844,1400.07080,10.74839}, {"ساحة القتال",414.17388916016,2046.4881591797,61.682598114014,413.30380249023,2046.0771484375,61.410533905029,277.93359,1988.82581,17.64063}, {"البداية",-2722.78125,-7649.55859375,29.089599609375,-2722.8061523438,-7650.5581054688,29.066226959229,-2730.98242,-7836.83105,8.25537}, {"الطعس",439.50900268555,-1871.9624023438,43.744899749756,438.60696411133,-1871.5866699219,43.532466888428,305.20020,-1840.30493,3.60009} } --[[ 1- -2693.33984375,377.26239013672,44.666900634766,-2692.5363769531,377.23040771484,44.072536468506 2- -2653.2521972656,375.9367980957,15.524200439453,-2652.2685546875,375.97338867188,15.348023414612 -2649.80957,376.06485,14.30767 ]]--[[ 2086.59619,1472.00696,10.82031 2040.5595703125,1424.5876464844,38.590599060059,2040.6915283203,1425.5034179688,38.211277008057 ---------------------------------------------------------------------------------------------------------------- 2109.34326,1549.89893,10.82031 2021.6854248047,1441.3870849609,40.58459854126,2022.5858154297,1441.0551757813,40.303291320801 1686.27844 1400.07080 10.74839 1869.2296142578,1426.2882080078,74.245399475098,1868.2775878906,1426.3618164063,73.948387145996 ]] function Show() smoothMoveCamera(-2693.33984375,377.26239013672,44.666900634766,-2692.5363769531,377.23040771484,44.072536468506,-2653.2521972656,375.9367980957,15.524200439453,-2652.2685546875,375.97338867188,15.348023414612,2000) ped = createPed(skin[1][1],-2649.80957,376.06485,14.30767,90) bindKey("arrow_l","down",left) bindKey("arrow_r","down",right) bindKey("enter","down",enter) text = skin[1][2] end function left() if num == 1 then num = #skin else num = num - 1 end setElementModel(ped,skin[num][1]) text = skin[num][2] playSoundFrontEnd(32) end function right() if num == #skin then num = 1 else num = num + 1 end setElementModel(ped,skin[num][1]) text = skin[num][2] playSoundFrontEnd(32) end function enter() playSoundFrontEnd(33) destroyElement(ped) unbindKey("arrow_l") unbindKey("arrow_r") unbindKey("enter")
-
شباب ابي مساعده انا اشتريت سيرفر بس لما اخشه بعود شوية ويتم اخراجي منه رغم ان اصدقائي دخلو وما خرجو يعني المشكلة عندي ولما يخرجني يظهرلي هيك disconnected : connection to the server was lost ارجوكم ساعدوني انا ما بعرف شو اسوي
-
وبحطه بي اي مكان
-
bool destroyElement ( ,root,هون بيكون اسم المود ؟؟ )
-
يب انا اعرف اعدل بس قلي شو بعمل وانا بسويه
-
طب شو بحط مشان لما القيم مود يبداء الي لحد ما ينتهي بدل من onplayerwasted اقصد الفنكشات function wasted (killer, weapon, bodypart) <-- هون شو بحط local sound = playSound("sounds/wasted<-- وهون اسم الاغنية .mp3") --Play wasted.mp3 from the sounds folder setSoundVolume(sound, 0.5) -- set the sound volume to 50% end addEventHandler("onClientPlayerWasted<-- وايضا هون شو بحط ", localPlayer, wasted)
-
فعلته ولما اشغلها يقولي couldnt find resource in "اسم المود" غير اسم المود الا كلام انجليزي ويكون بدون مسافة او رموز او شرطة الخ... مثال car car999 شكرا
-
طب وينفع لو كان كليب
-
functionوال eventوشو هي الاساسيات البرمجية مو هي الميتا وال serverوال clinct ال ولا في اشياء تانية
-
شباب كيف اضيف الاغنية للقيم مود و لو كانت الاغنية كليب يمكن تشتغل ولا لا وشكر ملاحظة (الي ما فاهم الكليب يعني فيديو وفيه الاغنية )
-
يعني شو بكتب
-
مب شرط هاي المود اي مود تاني
-
--[[********************************** * * 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 = {} 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 xmlNodeSetValue ( node, tostring ( value ) ) xmlSaveFile ( _settings ) end function aRemoveSetting ( setting )
-
يب حق الوزاره انا جبتها من الانترنت ما بعرف مسروقة ولا حد صنع مثلها ولا شو
-
server بعديها شو في كلام كتير فيه سيرفر بس بعديه كلام
-
^؟ وكيف اسوي هيك ؟؟
-
هاي الكلينكت الاول GUIEditor = { edit = {}, button = {}, window = {}, label = {}, gridlist = {} } function cc(center_window) local screenW,screenH=guiGetScreenSize() local windowW,windowH=guiGetSize(center_window,false) local x,y = (screenW-windowW)/8,(screenH-windowH)/2 guiSetPosition(center_window,x,y,false) end GUIEditor = { button = {}, edit = {}, window = {}, gridlist = {}, label = {}, } GUIEditor.window[1] = guiCreateWindow(174, 120, 502, 334, "X[ لوحة تحويل النقود ]X ", false) cc(GUIEditor.window[1]) guiSetAlpha(GUIEditor.window[1], 0.98) guiWindowSetSizable(GUIEditor.window[1], false) guiSetAlpha(GUIEditor.window[1], 0.98) guiSetVisible(GUIEditor.window[1],false) guiSetProperty(GUIEditor.window[1], "CaptionColour", "FF0041FF") GUIEditor.gridlist[1] = guiCreateGridList(10, 31, 224, 293, false, GUIEditor.window[1]) guiGridListAddColumn(GUIEditor.gridlist[1], "# Players ...", 0.9) GUIEditor.edit[1] = guiCreateEdit(244, 51, 223, 25, "", false, GUIEditor.window[1]) GUIEditor.label[1] = guiCreateLabel(279, 26, 213, 15, "أسم الاعب الذي تريد تحويل له النقود :", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[1], "default-bold-small") guiLabelSetColor(GUIEditor.label[1], 251, 255, 0) GUIEditor.edit[2] = guiCreateEdit(244, 108, 223, 25, "", false, GUIEditor.window[1]) GUIEditor.label[2] = guiCreateLabel(332, 86, 162, 15, "قيمة المبلغ اللذي تريد تحويله :", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[2], "default-bold-small") guiLabelSetColor(GUIEditor.label[2], 89, 255, 0) GUIEditor.label[3] = guiCreateLabel(244, 304, 94, 15, "[ Q.5 ]", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[3], "default-bold-small") guiLabelSetColor(GUIEditor.label[3], 0, 255, 197) GUIEditor.button[1] = guiCreateButton(442, 299, 50, 25, "X", false, GUIEditor.window[1]) guiSetFont(GUIEditor.button[1], "default-bold-small") guiSetProperty(GUIEditor.button[1], "NormalTextColour", "FFFF0000") GUIEditor.label[4] = guiCreateLabel(330, 304, 112, 15, "", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[4], "default-bold-small") guiLabelSetColor(GUIEditor.label[4], 162, 0, 255) GUIEditor.label[5] = guiCreateLabel(244, 181, 48, 42, "*", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[5], "sa-gothic") guiLabelSetColor(GUIEditor.label[5], 219, 100, 35) GUIEditor.label[6] = guiCreateLabel(444, 240, 48, 42, "*", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[6], "sa-gothic") guiLabelSetColor(GUIEditor.label[6], 255, 0, 101) GUIEditor.label[7] = guiCreateLabel(244, 244, 48, 42, "*", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[7], "sa-gothic") guiLabelSetColor(GUIEditor.label[7], 6, 0, 255) GUIEditor.label[8] = guiCreateLabel(444, 181, 48, 42, "*", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[8], "sa-gothic") guiLabelSetColor(GUIEditor.label[8], 29, 255, 0) GUIEditor.label[9] = guiCreateLabel(310, 208, 112, 53, "Q.5", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[9], "sa-gothic") GUIEditor.button[2] = guiCreateButton(244, 143, 117, 28, "=[ تحويل ]=", false, GUIEditor.window[1]) guiSetFont(GUIEditor.button[2], "default-bold-small") guiSetProperty(GUIEditor.button[2], "NormalTextColour", "FF1EDDDF") addEventHandler("onClientMouseEnter",root, function ( ) for k,v in ipairs(getElementsByType("gui-button",resourceRoot)) do if source == v then playSoundFrontEnd(3) end end end ) function CreateSearch ( gridlist,edit ) guiGridListClear(gridlist) local text = guiGetText(GUIEditor.edit[1]) if text == "" then for id,player in ipairs(getElementsByType("player")) do local row = guiGridListAddRow(gridlist) guiGridListSetItemText(gridlist, row, 1, getPlayerName(player), false, false) end else for id,player in ipairs(getElementsByType("player")) do if string.find(string.upper(getPlayerName(player)), string.upper(text), 1, true) then local row = guiGridListAddRow(gridlist) guiGridListSetItemText(gridlist, row, 1, getPlayerName(player), false, false) end end end end function Search() CreateSearch ( GUIEditor.gridlist[1] ) end addEventHandler ("onClientGUIChanged", GUIEditor.edit[1], Search, false) addEventHandler ( "onClientGUIClick",GUIEditor.gridlist[1], function ( ) local playerName = guiGridListGetItemText ( GUIEditor.gridlist[1], guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ), 1 ) if ( guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ) == -1 ) then guiSetText(GUIEditor.edit[1],'') return end guiSetText(GUIEditor.edit[1],playerName) end,false ) bindKey ( "F7", "down",'sendMoney') addCommandHandler('sendMoney', function() local vis = not guiGetVisible(GUIEditor.window[1]) guiSetVisible(GUIEditor.window[1],vis) showCursor(vis) end ) function outputChatBox(text, r, b, g) return exports.infobox:outputMessage(text, r, b, g) end addEventHandler ( "onClientGUIClick", GUIEditor.button[2], function ( ) local Amount = guiGetText ( GUIEditor.edit[2] ) local playerName = guiGridListGetItemText ( GUIEditor.gridlist[1], guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ), 1 ) if ( guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ) == -1 ) then outputChatBox("* الرجاء اختيار لاعب | Choose Player Please ..",0,255,0) return end if not tonumber ( Amount ) then outputChatBox("* يجب ادخال ارقام فقط ! | You can only use numbers for the amout!",255,0,0) return end if tonumber ( Amount ) < 0 then outputChatBox("* يجب أن يكون المبلغ المرسل أكبر من 0! | you can send amount only more than 0!",255,0,0) return end if getPlayerMoney ( localPlayer ) <= ( tonumber( Amount or 0 ) ) then outputChatBox("* ليس لديكـ المبلغ الكآفي | You don't have money",255,0,0) return end if getPlayerFromName(playerName) == localPlayer then return end playSoundFrontEnd(40) triggerServerEvent ( "SendMoney",localPlayer,Amount, playerName) guiSetEnabled(source,false) setTimer(guiSetEnabled, 5000, 1, GUIEditor.button[2],true) end,false ) addEventHandler ( "onClientGUIClick", GUIEditor.button[1], function ( ) playSoundFrontEnd(40) guiSetVisible ( GUIEditor.window[1] , false) showCursor ( false ) end,false ) function refresh() for id, player in ipairs ( getElementsByType ( "player" ) ) do guiGridListSetItemText ( GUIEditor.gridlist[1], guiGridListAddRow ( GUIEditor.gridlist[1] ), 1, getPlayerName ( player ), false, false ) end end addEventHandler ( "onClientResourceStart", resourceRoot, refresh) function update( old, new ) if ( eventName == "onClientPlayerJoin" ) then guiGridListSetItemText ( GUIEditor.gridlist[1], guiGridListAddRow ( GUIEditor.gridlist[1] ), 1, getPlayerName ( source ), false, false ) elseif ( eventName == "onClientPlayerQuit" ) then for row = 0, guiGridListGetRowCount ( GUIEditor.gridlist[1] ) do if ( guiGridListGetItemText ( GUIEditor.gridlist[1], row, 1 ) == getPlayerName ( source ) ) then guiGridListRemoveRow ( GUIEditor.gridlist[1], row ) break end end elseif ( eventName == "onClientPlayerChangeNick" ) then for row = 0, guiGridListGetRowCount ( GUIEditor.gridlist[1] ) do if ( guiGridListGetItemText ( GUIEditor.gridlist[1], row, 1 ) == old ) then guiGridListSetItemText ( GUIEditor.gridlist[1], row, 1, new, false, false ) break end end end end addEventHandler("onClientPlayerJoin", root, update) addEventHandler("onClientPlayerQuit", root, update) addEventHandler("onClientPlayerChangeNick", root, update) fileDelete("1.lua") وهاي الكلنكت الثاني اسف كنت اظن الكلينكت الثاني سيرفر local fuck = "جاي تزرف برا ياقحبه مافيه شي _!_" local ressName = getResourceName(getThisResource()) function includeFiles(fileList) for _,v in ipairs(fileList) do func = assert(loadstring(v)) func() end end addEvent("include"..ressName.."Files",true) addEventHandler("include"..ressName.."Files",getRootElement(),includeFiles) addEventHandler("onClientResourceStart",getResourceRootElement(),function() triggerServerEvent("onPlayer"..ressName.."Start",getLocalPlayer()) end) وهاي الميتا "[MR~Mos.[T].aّّّfA~]" name="shilat" version="1.0.0" type="script" />
-
مب فيه سيرفر اخطائت انا اسف فيه ملفين والاتنين كلينكت اسف
-
يعني شو هو الكود الصحيح ووين احطه فهموني انتو كل واحد يقول كود وانا ما فاهم شئ
-
-
بحط هاي الكود كا مود ولا في مكان بلوحة الادمن ولا شو
-
فعلته ولما اشغلها يقولي couldnt find resource in "اسم المود"
