طلب كود صعب جدداا

momar5600 · June 19, 2016

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

انا كل يلي ابيه تعديل فقد ماتبون تعضوني جاهز قول لي كيف اسويها

انا عندي قيم مود وابيه بعد مايختار شخصية يدخل بالمكان يلي انا ممحددة

انا ابي اشيل اختيار المكان كيف اشيلها

انا ابي يكون مكان يلي انا محددة فقد

فهمتم علي؟؟؟؟

كلنت

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") 
                setElementData(localPlayer,"skin",skin[num][1]) 
                num = 1 
                text = place[num][1] 
                setCameraMatrix(place[num][2],place[num][3],place[num][4],place[num][5],place[num][6],place[num][7]) 
                dx = true 
                bindKey("arrow_l","down",Pleft) 
                bindKey("arrow_r","down",Pright) 
                bindKey("enter","down",Penter) 
            end 
              
              
            addEventHandler("onClientRender",root, 
                function () 
                    local size = {guiGetScreenSize()} 
                    if dx == true then 
                        dxDrawText("\n( " .. text .. " )",1,0,size[1] + 1,size[2],tocolor(0,0,0,255),3,"default-bold","center","top",false,false,false,true) 
                        dxDrawText("\n( " .. text .. " )",0,0,size[1],size[2],tocolor(25,145,9,255),3,"default-bold","center","top",false,false,false,true) 
                    end 
                end 
            ) 
              
              
  
  
              
            function Pleft() 
                if num == 1 then 
                    num = #place 
                else 
                    num = num - 1 
                end 
                text = place[num][1] 
                setCameraMatrix(place[num][2],place[num][3],place[num][4],place[num][5],place[num][6],place[num][7]) 
                playSoundFrontEnd(32) 
            end 
              
            function Pright() 
                if num == #place then 
                    num = 1 
                else 
                    num = num + 1 
                end 
                text = place[num][1] 
                setCameraMatrix(place[num][2],place[num][3],place[num][4],place[num][5],place[num][6],place[num][7]) 
                playSoundFrontEnd(32) 
            end 
              
            function Penter() 
                playSoundFrontEnd(33) 
                unbindKey("arrow_l") 
                unbindKey("arrow_r") 
                unbindKey("enter") 
                dx = false 
                text = "" 
                setPlayerXYZ(place[num][8],place[num][9],place[num][10]) 
                triggerServerEvent("SpawnPlayer",localPlayer) 
                showPlayerHudComponent("all", true) 
                addEventHandler ("onClientRender",root,Dx) 
                if isElement ( IntroSong ) then 
                    destroyElement ( IntroSong ) 
                     end 
            end 
              
            fileDelete("Client.lua") 
  
-----------------------------------|Medic|----------------------------------- 
addEventHandler("onClientPlayerDamage", localPlayer, 
function(healer, weapon) 
    if healer and getElementType(healer) == "player" then 
        local team = getPlayerTeam(healer) 
        local teamName = team and getTeamName(team) or false 
        local Health = getElementHealth(source) 
        if (teamName == "Medic") and (weapon == 41) then 
            cancelEvent() 
            if (Health < 99) then 
                triggerServerEvent("healP", localPlayer, healer) 
            end 
        end 
    end 
end) 
-----------------------------------|Medic|----------------------------------- 
  
msg = { 
    "_____$____حيااكم الله بسيرفر ابو عشاق الوناسة للهجولة والحرب .. منورين السيرفر _____$____", 
    "نرجو منكم عدم الضغط على صاحب السيرفر وعدم طلب الادمنية_____$____", 
    "_____$____يمنع السب والشتم.. في النهايه اللي تكلمهم اخوانك_____$____", 
    "_____$____شروط الادمنيه بسيطة :تواجد 3 ايام .امتلاك خبره بالادمنية.لا تتكبر ع الاخرين.عدم طلب الترقيه_____$____", 
    "_____$____في حال وجود مخالف. سوى كان زائر او ادمن ..قم بالتبليغ عليه بالرسائل الخاصة_____$____", 
    "_____$____مفدرين لكم دعاونكم نتمني منكم تواجد كثير _____$____لاخفاء شريط القوانين اكتب في اف8|msg|او اظهارها____$____", 
    } 
r,g,b = 254,168,0 
rr,gg,bb = 0,0,0 
num = 1 
px = 0 
-------------------- 
function getColor() 
    return r,g,b 
end 
function getBackColor() 
    return rr,gg,bb 
end 
function setColor(tr,tg,tb) 
    r,g,b = tr,tg,tb 
end 
function setBackColor(r,g,b) 
    rr,gg,bb = r,g,b 
end 
  
function Dx() 
   local x,y = guiGetScreenSize() 
   dxDrawRectangle(0,y - 20,x,y,tocolor(rr,gg,bb,120)) 
   dxDrawText(msg[num],px,y - 20,x,y,tocolor(r,g,b,255),1.5,"default-bold","center","center",false,false,false,true) 
end 
    
addEventHandler ("onClientRender", root,Dx) 
  
function makeTurn() 
    local x,y = guiGetScreenSize() 
    local x = x + 50 
    if px >= x then 
        px = -x 
        setMsg() 
    else 
        px = px + 6 
    end 
end 
function setMsg() 
    if num == #msg then 
        num = 1 
    else 
        num = num + 1 
    end 
end 
---- 
start = setTimer(makeTurn,50,0) 
  
 function OpenWin() 
if removeEventHandler("onClientRender",root,Dx)then 
removeEventHandler("onClientRender",root,Dx)  
else 
addEventHandler("onClientRender",root,Dx) 
    end 
    end 
addCommandHandler ("msg", OpenWin )

سيرفر

addEventHandler("onPlayerJoin", root, 
function () 
    source:setPosition(0,0,0); 
    source:setInterior(0) 
    fadeCamera( source, false ); 
end ); 
  
  
function getPlayerSkin(player) 
    return getElementData(player,"skin") 
end 
  
function getPlayerXYZ(player) 
    local x,y,z = getElementData(player,"x"),getElementData(player,"y"),getElementData(player,"z") 
    return x,y,z 
end 
  
-- Login Register System 
  
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("* You Have Been Successfuly Login",source,0,255,0) 
            AddPlayer(serial,user,pass) 
            triggerClientEvent(source,"onCl",source) 
        else 
            outputChatBox("* Worng Username Or Password",source,255,0,0) 
        end 
    end 
) 
  
addEvent("onLogin",true) 
addEventHandler("onLogin",root, 
    function (user1,pass1) 
        local acc = getAccount(user1,pass1) 
        if acc then 
            logIn(source,acc,pass1) 
            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 (user1,pass1) 
        local acc = getAccount(user1,pass1) 
        if acc then 
            outputChatBox("لايمكن استخدام نفس اسم حساب اكثر من مرة",source,255,0,0) 
        else 
            outputChatBox("*تم انشاء حساب جديد يرجو حفظ اسم حساب وسر وعدم نسيانه",source,0,255,0) 
            addAccount(user1,pass1) 
            outputChatBox("* اسم حساب جديد : = " .. user1 .. "",source,0,255,0) 
            outputChatBox("* باسورد الحالي : = " .. pass1 .. "",source,0,255,0) 
        end 
    end 
) 
  
  
addEventHandler("onPlayerWasted",root, 
    function () 
        if getElementData(source,"new") == true then 
            setTimer(function(player) 
                spawnPlayer(player,326.87582397461,2542.5478515625,16.806928634644,0,46,0,1) 
                setCameraTarget(player,player) 
                fadeCamera(player,true) 
            end,3500,1,source) 
        else 
            setTimer(function(player) 
                local x,y,z = getPlayerXYZ(player) 
                spawnPlayer(player,x,y,z,0,getPlayerSkin(player),0,0) 
                setCameraTarget(player,player) 
                fadeCamera(player,true) 
            end,3500,1,source) 
        end 
    end 
) 
  
addEvent("SpawnPlayer",true) 
addEventHandler("SpawnPlayer",root, 
    function () 
        local x,y,z = getPlayerXYZ(source) 
        spawnPlayer(source,x,y,z,0,getPlayerSkin(source),0,0) 
        setCameraTarget(source,source) 
        fadeCamera(source,true) 
        showChat(source,true) 
    end 
)

واتمنا تساعدوني

Edited June 19, 2016 by Guest

momar5600 · June 19, 2016

انا كاتب لغز والله زهقد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

Mostafa MohammeD · June 19, 2016

انا كاتب لغز والله زهقد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

طب ما تسوي طريقة احسن بدل تعب بي الاكواد امسح كل الاماكن وخلي مكان واحد بس الي هو انت عاوزه

فاّرس · June 19, 2016

محد فاضي يشيك على 244 سطر, يعني اعرف وش تستخدم ولا لاتعدل مودات طويله كذا بتتعب..

Sign In

طلب كود صعب جدداا

Recommended Posts

momar5600

Link to comment

momar5600

Link to comment

Mostafa MohammeD

Link to comment

فاّرس

Link to comment

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

Activity

MTA Network

Social Media