Jump to content

Ahmed Ly

Members
  • Posts

    1,282
  • Joined

  • Last visited

  • Days Won

    5

Everything posted by Ahmed Ly

  1. غير كلمة player الي localPlayer وغير اسم الزر بدون فصله
  2. مشكور عادي مافيه شي في نهايه لعبه يعني مشكور و موفق ان شاء لله تسلم و شكرا لك
  3. لو حد حب اضيف شي في مود ي ريت يقول
  4. https://forum.multitheftauto.com/topic/88478-مود-اختراق-الجدران/?tab=comments#comment-806452 ?
  5. سلام عليكم يوم اقدام لكم مود عباره انها تقدر تشغل مودات عن طريق برنامج مميزات مو: 1- تقدر توقف لوق و تشغله عن طريق ملف اسمه config.ini لو كتبت true بيشتغل لوق لو false العكس 2-تقدر تشغل و توقف مودات من برنامج 3- تقدر تشوف لوق من ملف log.log function getinfos () local open2 = fileOpen("config.ini") texts = fileRead(open2,100) fileClose(open2) text = string.sub(""..texts.."", 7, 10) return text end function typeinlog (str) tr = getinfos () if tr == "true" then local open = fileOpen("log.log") fileRead(open,1500000) fileWrite(open,"["..os.date("%H:%M:%S").."]:"..str.."\n") fileFlush(open) fileClose(open) else outputServerLog("Note:log.log dont work you must set true in file config.ini") end end function getnames() names = "" local Table = getResources() for k, v in ipairs(Table) do if v then names = names .. " " .. getResourceName(v) .. " " else names = "false" end end return names end function start (res) local name = getResourceFromName(res) if name then startResource(name) outputChatBox("[Resource Manager] Has Been Start Resource "..getResourceName(name).."",root,0,255,0,true) typeinlog("Has Been Start Resource "..getResourceName(name).."") return "Has Been Start Resource "..getResourceName(name).."" else return "there is error" end end function stop (ress) local name = getResourceFromName(ress) if name then stopResource(name) outputChatBox("[Resource Manager] Has Been Stop Resource "..getResourceName(name).."",root,0,255,0,true) return "Has Been Stop Resource "..getResourceName(name).."" else return "there is error" end end C# using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using MTA_SDK; namespace Resource { public partial class Form1 : Form { public Form1() { InitializeComponent(); MTA server = new MTA("ip",port, "username", "passworld"); MTA_LuaArgs luaArgs = new MTA_LuaArgs(); string returned = server.CallFunction("resourcemmf", "getnames", luaArgs); foreach (string ppr in returned.ToString().Split(' ')) { if (ppr != "") listBox1.Items.Add(ppr); } } private void button1_Click(object sender, EventArgs e) { MTA server = new MTA("ip",port, "username", "passworld"); MTA_LuaArgs luaArgs = new MTA_LuaArgs("" + listBox1.Text + ""); string returned = server.CallFunction("resourcemmf", "start", luaArgs); MessageBox.Show("" + returned + ""); } private void button2_Click(object sender, EventArgs e) { MTA server = new MTA("ip",port, "username", "passworld"); MTA_LuaArgs luaArgs = new MTA_LuaArgs("" + listBox1.Text + ""); string returned = server.CallFunction("resourcemmf", "stop", luaArgs); MessageBox.Show("" + returned + ""); } } } رابط تحميل : https://up.top4top.net/downloadf-1165vrya31-zip.html صوره ل برنامج ان شاء الله عجبتكم الفكره : )
  6. -- كلنت addEventHandler("onClientGUIClick",root, function () if source == button then text = guiGetText(...) if text ~= "" then triggerServerEvent("onPlayerchangename3",localPlayer,text) end end end ) --- سيرفر addEvent("onPlayerchangename3",true) addEventHandler("onPlayerchangename3",root, function (text) setPlayerName(source,...) end ) -- طبعا كود ناقص انت حاول فيها عشان تعرف وتعلم
  7. Your Real name : Ahmed [snip] Email(for panel information): [snip] Country : Libya What u want(Game type) :MTA:SAN Sv Location (France available) : France Sv Mx player(max200) : 20 Extra note : i want test some scripts
  8. كفو استمر مود كويس لي حماية سيرفرات
  9. 0 = الاحد وكذا ارقام حسب يوم من 0 الي 6
  10. week = { ["0"] = "الاحد", ["1"] = "الاثنين", ["2"] = "الثلاثاء", ["3"] = "الاربعاء", ["4"] = "الخميس", ["5"] = "الجمعة", ["6"] = "السبت" } function getNameday() local time = getRealTime() local nameday = time.weekday for i, v in pairs ( week ) do if string.find ( i , nameday ) then if v ~= "" then return v end end end end addCommandHandler("today", function (p) name = getNameday() outputChatBox(name,p,255,0,0,true) end )
  11. تسلم و منور موضوع يا باد بوي
  12. لوحه فكره حلوه لكن قديمه لكن انا فكرة اضيف شي جديد في لعبه و يكون حصري فهمت وانا احترام رايك و شكرا لك ومنور موضوع
  13. منور ياعسل , تسلم و ربي يحفضك
  14. لو حد حب اضيف شي في مود ي ريت يقول
  15. سلام عليكم لي فتره معتزل من برمجه لكن رجعتتت بمود جديد و حصري مود عباره عن امر اسمه #send تكتب بالشات مثل كذا #send 100 100 عدد فلوس وبعدين مود نفسه يطلب منك علي طول تكتب اسم الاعب بالشات ( يجب عليك الان كتبت اسم الاعب ) يطلع لك بالشات كذا تكتب اسم الاعب عشان يوصلو له الفلوس وكل ذا داخل الشات وبنحط كود تحت طبعا هو يشتغل وكل شي لكن لو في غلط او شي او بق ياريت تقولو لي سيرفر addEventHandler("onPlayerChat",root,function(msg2) if getElementData(source,"go") == true then plr = getPlayerFromName(msg2) if plr then if plr ~= source then if getPlayerMoney(source) > 1 then givePlayerMoney(plr,tonumber(moeny)) givePlayerMoney(source,getPlayerMoney(source) - tonumber(moeny) ) outputChatBox(""..getPlayerName(source).." Has Been give moeny To "..getPlayerName(plr).." money is "..moeny.."",root,0,255,0,true) setElementData(source,"go",false) else outputChatBox("ليس لديك المال الكافي لارسله",source,255,0,0,true) setElementData(source,"go",false) outputChatBox("يجب عليك كتبت امر من جديد #send",source,255,0,0,true) end else outputChatBox("لا يمكن ارسل الفلوس لانفسك",source,255,0,0,true) setElementData(source,"go",false) outputChatBox("يجب عليك كتبت امر من جديد #send",source,255,0,0,true) end else outputChatBox("الاعب غير موجود بالسيرفر",source,255,0,0,true) setElementData(source,"go",false) outputChatBox("يجب عليك كتبت امر من جديد #send",source,255,0,0,true) end end end ) addEventHandler("onPlayerChat",root,function(msg) if string.find(msg,"#send") then if getElementData(source,"go") == false then len = string.len(""..msg.."") if len > 6 then text = string.sub(""..msg.."", 7,len) outputChatBox("يجب عليك الان كتبت اسم الاعب",source,0,255,0,true) setElementData(source,"go",true) moeny = text else outputChatBox("يجب عليك كتبت عدد الفلوس",root,255,0,0,true) end else outputChatBox("يجب عليك كتبت اسم الاعب لي ارسل الفلوس اليه",source,0,255,0,true) end end end ) الميتا <meta> <script src="server.lua" type="server" /> </meta> وفي مود ثاني قعد اشتغل عليه هو برنامج مثل لوحة ادمن بس لسه ما خلصته
  16. بنسالك نسيت كلمة مهابل معنها مجنين وتسلم والله علي راسي
×
×
  • Create New...