Jump to content

SAM!!

Members
  • Posts

    259
  • Joined

  • Last visited

Everything posted by SAM!!

  1. شوف ذا الدي بق لما اسويها سمول وش الي استهبل؟ ابي اخلص المود يخي 69:Bad argument @ 'login' [Expected account at argument 2, got nill] Database query faild: no such column: serial AbU - W6N AbU - W6N وين روحت؟
  2. attempt to call global 'login' (anil value) دي في السطر ذا logIn(source,user,pass) AbU - W6N لما كانت كابتل المود ماكان يشتغل
  3. AbU - W6N يب سويت الاوت بوت ------------ الدي بق كامل attempt to call global 'login' (anil value) Database query faild: no such column: serial Database query faild: no such column: serial
  4. 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)------------- ذا الي انت معطهولي شوف كاتب logIn لهيك مايشتغل بس سويتها login اشتغل triggerClientEvent(source,"onCl",source) end end ) ------- login(source,user,pass)---سويتها هيك
  5. AbU - W6N اخي عرفت منين المشاكل وسويتها كنت انت كاتب حرف خطأ الحين ظهرت اللوحة بس لما اخرج وادخل من السيرفر تظهرلي تاني معا العلم اني كتبت في اف8 auto
  6. الديبق يبي قوي لانهاء if في السطر 17
  7. AbU - W6N اخي ولا يهمك بس للاأسف المود وقف؟ اللوحة ماتظهر دي بق Database query faild: no such column: serial
  8. AbU - W6N عندك مشكلة بالسطر رقم #5
  9. AbU - W6N 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 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 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 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 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) 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 )
  10. السلام عليكم الحين مسوي لوحة تسجيل دخول بس المشكلة لو الرقم السري والباس خطأ اللوحة تختفي انا مابيها تختفي الا لو المعلومات حقة صح ككلنت triggerServerEvent("onGetSave",localPlayer) showCursor ( true ) addEvent("onPutSave",true) addEventHandler("onPutSave",root, function (puser,ppass) guiSetText(user,puser) guiSetText(pass,ppass) end ) addEventHandler("onClientGUIClick",root, function () local user = guiGetText(user) local pass = guiGetText(pass) if ( source == btn.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 == btn.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 ) ---------------------------------------------------------------------------- addEventHandler ( "onClientGUIClick", resourceRoot, function ( ) if ( source == btn.login ) then guiSetVisible ( main, false ) showCursor ( false ) end end ) addEventHandler ( "onClientGUIClick", resourceRoot, function ( ) if ( source == gust ) then guiSetVisible ( main, false ) showCursor ( false ) end end ) وابي كمان شئ لو سمحت ابي يسوي حفظ تلقائي للتسجيل الدخول يعني لو ادخل بعدين ماتظهر امامي اللوحة يسوي تسجيل دخول تلقائي ولو ابغا الغية اسوي مثلا unauto في اف8 لو ابي ارجعة auto وشكرااا
  11. MARIY وقف المود ياغالي من كودك
  12. االسلام عليكم ورحمه الله ابي تصحيح للكود ذا الكود حق لو احد اخد بوكس واحد يموت ابي لو الشخص مات تروح منه هالخاصية ويصير عادي محاولتي addEventHandler("onPlayerWasted", root, function(attacker, weapon, bodypart) if ( getElementData(attacker,"Damage") == true ) then if attacker and attacker ~= source and getElementType(attacker) == "player" then if weapon == 0 then killPed(source, attacker, weapon, bodypart) ==false) ---- ذا من عندي سويتة فولس end end end end )
  13. السلام عليكم ابي تصحيح للكود ذا لانة مايشتغل ابي لما شخص يقتل شخص يجي مثلا man killed by sam ياريت تصحيح addEventHandler("onPlayerWasted", root, function(_,killer) outputChatBox( killer .. " من قبل" .. getPlayerName(source) .. " لقد قُتل الاعب" ) end)
  14. لما اخرج وادخل من السيرفر يختفي الاكونت من الليبل لازم اسوي للمود ريستارت ليظهر الاكونت في الليبل من ثاني --Client guiSetText( label.playeraccount, "Account Name : "..getElementData(localPlayer,"AccountName").."" ) --------- --server addEventHandler("onPlayerJoin",root, function () setElementData(source,"Name",getPlayerName(source)) end ) addEventHandler("onResourceStart",resourceRoot, function () for _,v in ipairs ( getElementsByType ( "player" ) ) do setElementData(v,"Name",getPlayerName(v)) end end )
  15. N3xT تمام اشتغلت بالسيرفر طيب بالنسبة للقفزة العالية ابي لما اموت يصير ييقفز عادي setWorldSpecialPropertyEnabled ( "extrajump", true )
  16. N3xT حطيتة كلنت ماشتغل
  17. N3xT ذا احطة فين ممكن الكود كامل #
  18. السلام عليكم شباب الحين انا مسوي مود يعطي اختفاء بس لما الشخص يمود يضل معة الاختفاء انا ابي لما يموت يظهر ثاني وشكرااااااااااااااا addEvent ( "buyInvisible", true) addEventHandler ( "buyInvisible", root, function ( ) local accName = getAccountName ( getPlayerAccount ( source ) ) if isObjectInACLGroup ("user."..accName, aclGetGroup ( "VIP" ) ) then local check = getElementAlpha ( source ) == 255 if ( getPlayerMoney ( source ) >= 0 ) then takePlayerMoney ( source, check and 0 or 0 ) outputChatBox ( check and "Now You Hide" or "Now You show", source, 0, 255, 0, true ) setElementAlpha ( source, check and 0 or 255 ) setPlayerNametagShowing ( source, not check ) end end end )
  19. ,#Savage اخوي كودك يجيب كلام علي الزر انا ابي تايمر عد تنازلي علي التايمر ,#Savage كودك تمام شغال بس مشكلتي مابي يجي كلام علي الزر ابي يجي تايمر #,+( _xiRoc[K]; > نجح كودك شكرا شكرا شكرا شكرا شكرا شكرا #,+( _xiRoc[K]; > شوف كمان طلب معلش ابي لما ينتهي الوقت يرسل رسالة في الشات يقولة يمكنك الشراء مرة اخري او يجيب صوت مثلا للشخص كتنبية لة وشكرا مقدما
  20. #,+( _xiRoc[K]; > elseif ( source == btn.mp5 ) then guiSetDelay(source, {ms = 300000}) playSound("open.wav") triggerServerEvent('giveWeapon_', localPlayer , 0 , 29, 1000 , "MP5" ) يعني اكتب الكود ذا فقط؟؟ ولا اكتب ذا ة والي فوقة في الكلنت؟
  21. السلام عليكم الحين انا مسوي مود مثلا زر يقفل ويفتح بعد 5 دقائق لما اضغط علية لكن المشلكة ننتظر ومانعرف متي بيفتح ابي يجي تايمر (عد تنازلي علي الزر) حتي يفتح الزر مرة اخرة وشكرا elseif ( source == btn.mp5 ) then playSound("open.wav") guiSetEnabled (btn.mp5 ,false) setTimer(guiSetEnabled, 300000, 0 ,btn.mp5 ,true) triggerServerEvent('giveWeapon_', localPlayer , 0 , 29, 1000 , "MP5" ) ياريت يكون بسيط وشكررا
  22. #_iMr,[E]coo معلش ممكن تصلحة لي لاني ماعرف كيف addEventHandler ( "onClientResourceStart", resourceRoot, function ( ) ذاا؟
×
×
  • Create New...