Jump to content

طلب : فنكشن لقيم مود

Maksoud

By Maksoud
in البرمجة

Recommended Posts

Maksoud Hustler

Maksoud

Posted
Posted

السلام عليكم و رحمة الله و بركاته

كيفكم شباب ؟

ان شاء الله بخير

اانا ابي فنكشن

انا سويت لوحة تسجيل و ابي بعد اما اسجل يجيب الكاميرا على اختيار الشخصيات و اغيرها بواسطة الاسهم

و اختار بالانتر ولما اختار يجيبلي اختار البداية او الدائري او الطعس

ممكن شباب ؟

Link to comment
#DRAGON!FIRE Hawg

#DRAGON!FIRE

Posted
Posted 

createPed -- انشاء البيد 
setCameraMatrix -- وضع الكميرا ع البيد 
table -- انشاء جدولين واحد يحتوي ع الشخصيات والثاني ع الامكان 
bindKey -- نحط سهم يمين وسهم يسار وانتر 
setElementModel -- تستخدمها عشان تغير السكن حق البيد مع كل ضغطة سهم 
var -- عشان تعرف اي شخصية وصل ووقت يضغط سهم يسار تنقص هذا المتغير ووقت يضغط يمين تزيده وهو ف الاصل يكون 1 
unbindKey -- نشيل السهمين والانتر عشان نحطهم بوظائف جديدة 
setCameraMatrix -- بعد ما يضغط انتر نحط الكميرا ع اول مكان ف الجدول حق الامكان 
setElementPosition -- نفس الامر مع الامكان نرجع المتغير ل رقم 1 ونسوي بيند كي من جديد يحط الكميرا ع حسب رقم المتغير من الجدول 
 

للمعلومية طلبكـ موجود بالمنتدى ابحث بس ولو احتجت مساعده احنا موجودين

Link to comment
#Plair07 Punk-@ss B*tch

#Plair07

Posted
Posted 
createPed -- انشاء البيد 
setCameraMatrix -- وضع الكميرا ع البيد 
table -- انشاء جدولين واحد يحتوي ع الشخصيات والثاني ع الامكان 
bindKey -- نحط سهم يمين وسهم يسار وانتر 
setElementModel -- تستخدمها عشان تغير السكن حق البيد مع كل ضغطة سهم 
var -- عشان تعرف اي شخصية وصل ووقت يضغط سهم يسار تنقص هذا المتغير ووقت يضغط يمين تزيده وهو ف الاصل يكون 1 
unbindKey -- نشيل السهمين والانتر عشان نحطهم بوظائف جديدة 
setCameraMatrix -- بعد ما يضغط انتر نحط الكميرا ع اول مكان ف الجدول حق الامكان 
setElementPosition -- نفس الامر مع الامكان نرجع المتغير ل رقم 1 ونسوي بيند كي من جديد يحط الكميرا ع حسب رقم المتغير من الجدول 
 

للمعلومية طلبكـ موجود بالمنتدى ابحث بس ولو احتجت مساعده احنا موجودين

البيد وش فايدته ؟

Link to comment
#Plair07 Punk-@ss B*tch

#Plair07

Posted
Posted 
createPed -- انشاء البيد 
setCameraMatrix -- وضع الكميرا ع البيد 
table -- انشاء جدولين واحد يحتوي ع الشخصيات والثاني ع الامكان 
bindKey -- نحط سهم يمين وسهم يسار وانتر 
setElementModel -- تستخدمها عشان تغير السكن حق البيد مع كل ضغطة سهم 
var -- عشان تعرف اي شخصية وصل ووقت يضغط سهم يسار تنقص هذا المتغير ووقت يضغط يمين تزيده وهو ف الاصل يكون 1 
unbindKey -- نشيل السهمين والانتر عشان نحطهم بوظائف جديدة 
setCameraMatrix -- بعد ما يضغط انتر نحط الكميرا ع اول مكان ف الجدول حق الامكان 
setElementPosition -- نفس الامر مع الامكان نرجع المتغير ل رقم 1 ونسوي بيند كي من جديد يحط الكميرا ع حسب رقم المتغير من الجدول 
 

للمعلومية طلبكـ موجود بالمنتدى ابحث بس ولو احتجت مساعده احنا موجودين

البيد وش فايدته ؟

اسف حسبته يبغى قيم مود :roll:

Link to comment
#Plair07 Punk-@ss B*tch

#Plair07

Posted
Posted
يا شباب ابي الفنكشن كامل موب كذا لاني موب فاهم

ادخل على كل فنكشن حطه لك زاحف وشوف طريقة الفنكشن وطبق كلامه وشوف وش يصير معك

وإذا م عرفت حط كودك فالموضوع هنا

Link to comment
#DRAGON!FIRE Hawg

#DRAGON!FIRE

Posted
Posted

ما في شي يجي بالسريع .. بعدين تعلم الاساسيات زيد خبرتك بعدين فكر تسوي مود زي كذا

ما اقولك مستحيل لكن اللي اشوفه انك ما تعرف شي وكيف تبي تسوي مود زي كذا ..

حنا هنا نساعدكـ فقط .. وغير كذا ابحث بالمنتدى راح تلقى طلبكـ او شي يفيدك ع الاقل

Link to comment
#Plair07 Punk-@ss B*tch

#Plair07

Posted
Posted
طيب

كيف اسوي ال table

؟

viewtopic.php?f=164&t=50471

إذا انك م تفهم شيء بالجداول مره حاول تدقق فالشرح ولا تقرا وتمشي على طول

ولا تيأس ابداً لأن اليأس هو اللي بيخليك على نفس خبرتك

Link to comment
Maksoud Hustler

Maksoud

Posted
  • Author
Posted

شباب سويت كل شئ و القيم اشتغل و تمام بس لوحة التسجيل خربت مرة ثانية

كل اما اسجل يقول ان الباس او الاسم خطأ و هما الاثنين صحيحين

و لما اسوي حساب بنفس اسم حسابي القديم يسويه و اجي ادخله يقول ان الباس او الاسم خطأ باردوا

ارجوكم محتاج حل

Link to comment
#Plair07 Punk-@ss B*tch

#Plair07

Posted
Posted
شباب سويت كل شئ و القيم اشتغل و تمام بس لوحة التسجيل خربت مرة ثانية

كل اما اسجل يقول ان الباس او الاسم خطأ و هما الاثنين صحيحين

و لما اسوي حساب بنفس اسم حسابي القديم يسويه و اجي ادخله يقول ان الباس او الاسم خطأ باردوا

ارجوكم محتاج حل

جيب كوداتك ونحاول نشوف لك حل

Link to comment
Maksoud Hustler

Maksoud

Posted
  • Author
Posted

--- Server Side ---

executeSQLQuery("CREATE TABLE IF NOT EXISTS players_save( serial TEXT, user TEXT, Password TEXT)") 
  
function AddPlayer(serial,user,Password) 
    executeSQLQuery("INSERT INTO players_save(serial,user,Password) VALUES(?,?,?)",serial,user,Password) 
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,Password = "","" 
    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 
                Password = player.Password 
            end 
        end 
        return user,Password 
    end 
    return false 
end 
  
  
addEvent("onLoginWith",true) 
addEventHandler("onLoginWith",root, 
    function (user,Password) 
        local acc = getAccount(user,Password) 
        local serial = getPlayerSerial(source) 
        if acc then 
            logIn(source,acc,Password) 
            outputChatBox("# You Have Been Successfuly Login",source,0,255,0) 
            AddPlayer(serial,user,Password) 
            triggerClientEvent(source,"onCl",source) 
        else 
            outputChatBox("# Worng Username Or Password",source,255,0,0) 
        end 
    end 
) 
  
addEvent("onLogin",true) 
addEventHandler("onLogin",root, 
    function (user,Password) 
        local acc = getAccount(user,Password) 
        if acc then 
            logIn(source,acc,Password) 
            outputChatBox("# You Have Been Successfuly Login",source,0,255,0) 
            triggerClientEvent(source,"onCl",source) 
        else 
            outputChatBox("# Worng Username Or Password",source,255,0,0) 
        end 
    end 
) 
  
addEvent("onReg",true) 
addEventHandler("onReg",root, 
    function (user,Password) 
        local acc = getAccount(user,Password) 
        if acc then 
            outputChatBox("# This Account is Already Exist",source,255,0,0) 
        else 
            addAccount(user,Password) 
            outputChatBox("# Username = " .. user .. "",source,0,255,0) 
            outputChatBox("# Password = " .. Password .. "",source,0,255,0) 
        end 
    end 
)

--- Client Side ---

addEventHandler("onClientGUIClick",root, 
    function () 
        local user = guiGetText(user) 
        local pass = guiGetText(pass) 
        if ( source == login1 ) then 
            if user ~= "" and Password ~= "" 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 Password ~= "" 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 
)

شباب اسماء الازرار و الايدت

user = guiCreateEdit(59, 52, 242, 29, "", false, wnd) 
Password = guiCreateEdit(58, 106, 242, 29, "", false, wnd)

الازرار

login1 
reg

login1 = login button

reg = register button

Link to comment
#Plair07 Punk-@ss B*tch

#Plair07

Posted
Posted
--- Server Side ---

executeSQLQuery("CREATE TABLE IF NOT EXISTS players_save( serial TEXT, user TEXT, Password TEXT)") 
  
function AddPlayer(serial,user,Password) 
    executeSQLQuery("INSERT INTO players_save(serial,user,Password) VALUES(?,?,?)",serial,user,Password) 
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,Password = "","" 
    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 
                Password = player.Password 
            end 
        end 
        return user,Password 
    end 
    return false 
end 
  
  
addEvent("onLoginWith",true) 
addEventHandler("onLoginWith",root, 
    function (user,Password) 
        local acc = getAccount(user,Password) 
        local serial = getPlayerSerial(source) 
        if acc then 
            logIn(source,acc,Password) 
            outputChatBox("# You Have Been Successfuly Login",source,0,255,0) 
            AddPlayer(serial,user,Password) 
            triggerClientEvent(source,"onCl",source) 
        else 
            outputChatBox("# Worng Username Or Password",source,255,0,0) 
        end 
    end 
) 
  
addEvent("onLogin",true) 
addEventHandler("onLogin",root, 
    function (user,Password) 
        local acc = getAccount(user,Password) 
        if acc then 
            logIn(source,acc,Password) 
            outputChatBox("# You Have Been Successfuly Login",source,0,255,0) 
            triggerClientEvent(source,"onCl",source) 
        else 
            outputChatBox("# Worng Username Or Password",source,255,0,0) 
        end 
    end 
) 
  
addEvent("onReg",true) 
addEventHandler("onReg",root, 
    function (user,Password) 
        local acc = getAccount(user,Password) 
        if acc then 
            outputChatBox("# This Account is Already Exist",source,255,0,0) 
        else 
            addAccount(user,Password) 
            outputChatBox("# Username = " .. user .. "",source,0,255,0) 
            outputChatBox("# Password = " .. Password .. "",source,0,255,0) 
        end 
    end 
)

--- Client Side ---

addEventHandler("onClientGUIClick",root, 
    function () 
        local user = guiGetText(user) 
        local pass = guiGetText(pass) 
        if ( source == login1 ) then 
            if user ~= "" and Password ~= "" 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 Password ~= "" 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 
)

شباب اسماء الازرار و الايدت

user = guiCreateEdit(59, 52, 242, 29, "", false, wnd) 
Password = guiCreateEdit(58, 106, 242, 29, "", false, wnd)

الازرار

login1 
reg

login1 = login button

reg = register button

لما تحط اكوادك استخدم Lua

عشان توضح الوان الاكواد وتصير قراءة الكود اسهل

Link to comment
iMr.Dawix~# Loc

iMr.Dawix~#

Posted
Posted 

executeSQLQuery("CREATE TABLE IF NOT EXISTS players_save( serial TEXT, user TEXT, Password TEXT)") 
  
function AddPlayer(serial,user,Password) 
    executeSQLQuery("INSERT INTO players_save(serial,user,Password) VALUES(?,?,?)",serial,user,Password) 
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,Password = "","" 
    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 
                Password = player.Password 
            end 
        end 
        return user,Password 
    end 
    return false 
end 
  
  
addEvent("onLoginWith",true) 
addEventHandler("onLoginWith",root, 
    function (user,Password) 
        local acc = getAccount(user,Password) 
        local serial = getPlayerSerial(source) 
        if acc then 
            logIn(source,acc,Password) 
            outputChatBox("# You Have Been Successfuly Login",source,0,255,0) 
            AddPlayer(serial,user,Password) 
            triggerClientEvent(source,"onCl",source) 
        else 
            outputChatBox("# Worng Username Or Password",source,255,0,0) 
        end 
    end 
) 
  
addEvent("onLogin",true) 
addEventHandler("onLogin",root, 
    function (user,Password) 
        local acc = getAccount(user,Password) 
        if acc then 
            logIn(source,acc,Password) 
            outputChatBox("# You Have Been Successfuly Login",source,0,255,0) 
            triggerClientEvent(source,"onCl",source) 
        else 
            outputChatBox("# Worng Username Or Password",source,255,0,0) 
        end 
    end 
) 
  
addEvent("onReg",true) 
addEventHandler("onReg",root, 
    function (user,Password) 
        local acc = getAccount(user,Password) 
        if acc then 
            outputChatBox("# This Account is Already Exist",source,255,0,0) 
        else 
            addAccount(user,Password) 
            outputChatBox("# Username = " .. user .. "",source,0,255,0) 
            outputChatBox("# Password = " .. Password .. "",source,0,255,0) 
        end 
    end 
)

--- Client Side ---

addEventHandler("onClientGUIClick",root, 
    function () 
        local user = guiGetText(username) 
        local pass = guiGetText(Password) 
        if ( source == login1 ) then 
            if user ~= "" and Password ~= "" 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 Password ~= "" 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 
)

خل اسم الأيدت حق النيم كذا

username= guiCreateEdit(59, 52, 242, 29, "", false, wnd)

Link to comment
iMr.Dawix~# Loc

iMr.Dawix~#

Posted
Posted
هلا اخوي

دلوقتي شكرا جدا اللوحة اشتغلت و كله تمام بس ابي سؤال

وين كان الغلط ؟

العفوو

الغلط كان

user = guiCreateEdit(59, 52, 242, 29, "", false, wnd) 


local user = guiGetText(user)

^ كان اليوزر هو الأيدت وبعدين انت خليت الأيدت هو اليوزر وبعدين قلت له جيب اليوزر يجيب لك فراغ لأنه يجيب نفسه

فيه لحسهه شوي :mrgreen:

المهم لا تخلي متغير يشبه اسم متغير ثاني

Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...