Ram,

يب ماتجيب لاق , بس قلت ملاحظة :3

السيرفرات الاجنبية هذي عشان تنطفى لازم استهلاك 9000 قيقا بالثانية

عندي رام 8 قيقا و i7 core 4.5GHz ( 8 CPUs ) وكرت شاشة 2 قيقا ونت 28 ميجا ومافي لاق ولا تعليق والوضع فلة

ليش ""..message.."" وتقدر تسويها outputChatBox(message,255,0,0,true)

إطرح أكوادك و وضح المشكلة بشكل أكبر لو سمحت ؟

مش ملاحظ إن نظام هذا المنتدى تم إستخدامه في اكثر من 500 منتدى قبله ؟؟ لا تجلس تتفلسف ولو تلاحظ تحت المنتدى باليمين مكتوب Powered by Invision Community وهذي الشركة أنتجت هذا النظام و نشرته , وتم استخدامه بملايين مو بمئات المواقع !! لا تجلس تتفلسف تمام ؟

addDebugHook

على هذا المسار : mods/deathmatch/logs تحصل ملف اسمه server.log يوجد به كل كلام اللاعبين ..

ولا شي لكن اليوزفل فنكشن موجود أساساً .. هذا المقصد

DELETED

https://wiki.multitheftauto.com/wiki/GetPlayersByData

جميل , موفق وإستمر .. @ععيونككء اخخر امممأليء ^

صاحب الموضوع طلب كذا

ينفع تحط داتا وينفع تحط متغير ..

اجل الاخ مسوي لو ضغط ع اي زر بيسوي , معناها إما تقدمله الصحيح او تظل صامت . الكود حقي تمام

الكود مافيه مشاكل وشغال مية مية , ايش مشكلتك ؟ , + لازم يكون سيرفر سايد #

ليش تسوي رو فيها ايدي الكلام ورو فيها الكلام ؟ , سوي 2 كولمن وحده للايدي و وحدة للكلام .. انت تبي لو كتبت شيء ب ايدت بوكس وضغطت زر , يجي الكلام بالقريد لست .. بسويها لك زي م تبي , تفضل : --@Client Side addEventHandler("onClientGUIClick",root,function() if ( source == ButtonName ) then -- غير إسم الزر local text = guiGetText(EditBox) -- غير إسم الإيدت if ( text ~= "" ) then if ( getElementData(localPlayer,"Numbers") == false ) then setElementData(localPlayer,"Numbers",0) end setElementData(localPlayer,"Numbers",getElementData(localPlayer,"Numbers") + 1 ) local Number = getElementData(localPlayer,"Numbers") local row = guiGridListAddRow(GridList) -- غير إسم القريد guiGridListSetItemText( GridList,row, 1,tostring(Number), false, false ) -- غير إسم القريد guiGridListSetItemText( GridList,row, 1,text, false, false ) -- غير إسم القريد end end end )

Useful function : table.random

صراحة إبداع .. إستمر يمبدع

Try, executeSQLQuery("CREATE TABLE IF NOT EXISTS players_auto( serialx TEXT, userx TEXT, passx TEXT)") executeSQLQuery("CREATE TABLE IF NOT EXISTS players_save( serial TEXT, user TEXT, pass TEXT)") function AddPlayer(serial,user,pass) executeSQLQuery("INSERT INTO players_save(serial,user,pass) VALUES(?,?,?)",serial,user,pass) end function addPlayerxz(serial,user,pass) executeSQLQuery("INSERT INTO players_auto(serialx,userx,passx) VALUES(?,?,?)",serial,user,pass) end function isPlayerSave(serial) local sel = executeSQLQuery("SELECT serial FROM players_save WHERE serial=?",serial) if sel == 0 then return false else return true end end function isPlayerSavedAuto(serial) local sel = executeSQLQuery("SELECT serial FROM players_auto WHERE serialx=?",serial) if sel == 0 then return false else return true end end function getUserAndPass(serial) local user,pass = "","" if isPlayerSave(serial) then local sel = executeSQLQuery("SELECT * FROM players_save WHERE serial=?",serial) for i,player in ipairs(sel) do if i == 1 then user = player.user pass = player.pass end end return user,pass end return false end function getUsernameAndPassword(serial) local user,pass = "","" if isPlayerSavedAuto(serial) then local sel = executeSQLQuery("SELECT * FROM players_auto WHERE serialx=?",serial) for i,player in ipairs(sel) do if i == 1 then userx = player.userx passx = player.passx end end return userx,passx end return false end addEvent("onGetSave",true) addEventHandler("onGetSave",root, function () local serial = getPlayerSerial(source) if isPlayerSave(serial) then local user,pass = getUserAndPass(serial) triggerClientEvent(source,"onPutSave",source,user,pass) end if isPlayerSavedAuto(serial) then local user,pass = getUsernameAndPassword(serial) logIn(source,user,pass) triggerClientEvent(source,"onCl",source) end end ) addEvent("onLoginWith",true) addEventHandler("onLoginWith",root, function (user,pass) local acc = getAccount(user,pass) local serial = getPlayerSerial(source) if acc then logIn(source,acc,pass) outputChatBox("* تم بنجاح تسجيل دخول",source,0,255,0) AddPlayer(serial,user,pass) triggerClientEvent(source,"onCl",source) else outputChatBox("* الحساب او كلمة المرور خطأ",source,255,0,0) end end ) addEvent("onLogin",true) addEventHandler("onLogin",root, function (user,pass) local acc = getAccount(user,pass) if acc then logIn(source,acc,pass) outputChatBox("* تم بنجاح تسجيل دخول",source,0,255,0) triggerClientEvent(source,"onCl",source) setElementData(source,"Password",""..pass.."") else outputChatBox("* الحساب او كلمة مرور خطأ",source,255,0,0) end end ) addEvent("onReg",true) addEventHandler("onReg",root, function (user,pass) local acc = getAccount(user,pass) if acc then outputChatBox("* هذا الحساب مستخدم من قبل",source,255,0,0) else addAccount(user,pass) outputChatBox("* Username = " .. user .. "",source,0,255,0) outputChatBox("* Password = " .. pass .. "",source,0,255,0) end end ) addCommandHandler("auto",function(p) local acc = getPlayerAccount(p) if ( not isGuestAccount(acc) ) then local serial = getPlayerSerial(p) if ( not isPlayerSavedAuto(serial) ) then local Data = getElementData(p,"Password") local user = tostring(acc) addPlayerxz(serial,user,Data) outputChatBox("* تم تفعيل الميزة",p,0,255,0) else ouputChatBox("* لقد قمت بتفعيل الميزة من قبل",p,255,0,0) end else outputChatBox("* عليك ان تسجل دخولك أولاً",p,255,0,0) end end ) addCommandHandler("unauto",function(p) local acc = getPlayerAccount(p) if ( not isGuestAccount(acc) ) then local serial = getPlayerSerial(p) if ( isPlayerSavedAuto(serial) ) then executeSQLQuery("DELETE FROM players_auto WHERE serialx=?", serial) outputChatBox("* تم إلغاء تفعيل الميزة",p,0,255,0) else outputChatBox("* هذه الميزة غير مفعلة",p,255,0,0) end else outputChatBox("* عليك ان تسجل دخولك أولاً",p,255,0,0) end end ) جرب إلي فوق , ولو ماضبط جرب هذا executeSQLQuery("CREATE TABLE IF NOT EXISTS players_auto( serialx TEXT, userx TEXT, passx TEXT)") executeSQLQuery("CREATE TABLE IF NOT EXISTS players_save( serial TEXT, user TEXT, pass TEXT)") function AddPlayer(serial,user,pass) executeSQLQuery("INSERT INTO players_save(serial,user,pass) VALUES(?,?,?)",serial,user,pass) end function addPlayerxz(serial,user,pass) executeSQLQuery("INSERT INTO players_auto(serialx,userx,passx) VALUES(?,?,?)",serial,user,pass) end function isPlayerSave(serial) local sel = executeSQLQuery("SELECT serial FROM players_save WHERE serial=?",serial) if sel == 0 then return false else return true end end function isPlayerSavedAuto(serial) local sel = executeSQLQuery("SELECT serial FROM players_auto WHERE serialx=?",serial) if sel == 0 then return false else return true end end function getUserAndPass(serial) local user,pass = "","" if isPlayerSave(serial) then local sel = executeSQLQuery("SELECT * FROM players_save WHERE serial=?",serial) for i,player in ipairs(sel) do if i == 1 then user = player.user pass = player.pass end end return user,pass end return false end function getUsernameAndPassword(serial) local user,pass = "","" if isPlayerSavedAuto(serial) then local sel = executeSQLQuery("SELECT * FROM players_auto WHERE serial=?",serial) for i,player in ipairs(sel) do if i == 1 then userx = player.userx passx = player.passx end end return userx,passx end return false end addEvent("onGetSave",true) addEventHandler("onGetSave",root, function () local serial = getPlayerSerial(source) if isPlayerSave(serial) then local user,pass = getUserAndPass(serial) triggerClientEvent(source,"onPutSave",source,user,pass) end if isPlayerSavedAuto(serial) then local user,pass = getUsernameAndPassword(serial) logIn(source,user,pass) triggerClientEvent(source,"onCl",source) end end ) addEvent("onLoginWith",true) addEventHandler("onLoginWith",root, function (user,pass) local acc = getAccount(user,pass) local serial = getPlayerSerial(source) if acc then logIn(source,acc,pass) outputChatBox("* تم بنجاح تسجيل دخول",source,0,255,0) AddPlayer(serial,user,pass) triggerClientEvent(source,"onCl",source) else outputChatBox("* الحساب او كلمة المرور خطأ",source,255,0,0) end end ) addEvent("onLogin",true) addEventHandler("onLogin",root, function (user,pass) local acc = getAccount(user,pass) if acc then logIn(source,acc,pass) outputChatBox("* تم بنجاح تسجيل دخول",source,0,255,0) triggerClientEvent(source,"onCl",source) setElementData(source,"Password",""..pass.."") else outputChatBox("* الحساب او كلمة مرور خطأ",source,255,0,0) end end ) addEvent("onReg",true) addEventHandler("onReg",root, function (user,pass) local acc = getAccount(user,pass) if acc then outputChatBox("* هذا الحساب مستخدم من قبل",source,255,0,0) else addAccount(user,pass) outputChatBox("* Username = " .. user .. "",source,0,255,0) outputChatBox("* Password = " .. pass .. "",source,0,255,0) end end ) addCommandHandler("auto",function(p) local acc = getPlayerAccount(p) if ( not isGuestAccount(acc) ) then local serial = getPlayerSerial(p) if ( not isPlayerSavedAuto(serial) ) then local Data = getElementData(p,"Password") local user = tostring(acc) addPlayerxz(serial,user,Data) outputChatBox("* تم تفعيل الميزة",p,0,255,0) else ouputChatBox("* لقد قمت بتفعيل الميزة من قبل",p,255,0,0) end else outputChatBox("* عليك ان تسجل دخولك أولاً",p,255,0,0) end end ) addCommandHandler("unauto",function(p) local acc = getPlayerAccount(p) if ( not isGuestAccount(acc) ) then local serial = getPlayerSerial(p) if ( isPlayerSavedAuto(serial) ) then executeSQLQuery("DELETE FROM players_auto WHERE serialx=?", serial) outputChatBox("* تم إلغاء تفعيل الميزة",p,0,255,0) else outputChatBox("* هذه الميزة غير مفعلة",p,255,0,0) end else outputChatBox("* عليك ان تسجل دخولك أولاً",p,255,0,0) end end ) NOTE : جرب الأول بعدين جرب الثاني

إنت كل ما أسوي كود تقول مايشتغل , + سويت فنكشن اللوق إن سمول وجاك nil و صرت تقول اشتغل , يعني تسوقها ؟؟؟ خلي صاحب الموضوع الي يقرر وانا مجرب الكود شغال مية مية ..

أنا وإيكو إخوة , بس منحب نتهبل

لي ساعة أقلك مافي فنكشن كذا وماترد , دامك تعرف ف سوها بنفسك

ايه الحين تذكرت ذذ شكراً . هذا الصحيح :- addCommandHandler("tst", function(commander) h,m,s = 2,60,60 timer = setTimer( function() local seconds = s = s - 1 local hours = h if ( seconds < 1 ) then s = 60 local minutes = m = m - 1 end local minutes = m if ( minutes == 0 ) then if ( hours ~= 0 ) then m = 60 h = h - 1 else m = 60 end end if ( h == 0 and m == 0 and s == 0 ) then setGameType( "إنتهى العد التنازلي #" ) return timer = nil end setGameType(tostring(h)..":"..tostring(m)..":"..tostring(s)..":- العد التنازلي") end, 1000, 0 ) end ) * Edited, added ( .. ) next to tostring(s) يلا أستأذنكم, برب

يب نسيت ذذ setGameType(tostring(h)..":"..tostring(m)..":"..tostring(s)..":- العد التنازلي")