Jump to content

iMr5YaLeY

Members
  • Posts

    39
  • Joined

  • Last visited

Posts posted by iMr5YaLeY

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

    يا ليت لو تزينولي ها الكود

    ابي اخليه لقروب محدد

    +

    يوم ياخذ سياره يقوله انك خذيت سياره بس المشكله تطلع لكل الي في السيرفر ابي تطلع له لحاله

    server.lua

    markers = { 
        {220.6918182373,1919.1173095703,17.640625}, 
        {190.79113769531,1919.2520751953,17.640625}, 
      --{ x, y, z }, 
      } 
      
      
    for i,v in ipairs (markers) do 
        marker = createMarker(v[1], v[2], v[3], "cylinder", get("markerSize"), get("markerColorR"), get("markerColorG"), get("markerColorB"), get("markerAlpha")) 
        blip = createBlip ( v[1] , v[2] , v[3] , get("blipIconID") ) 
    end 
      
    veh = {} 
      
    addEvent ("getCar", true) 
    addEventHandler ("getCar", getRootElement(), 
    function(car) 
        if veh[source] and isElement( veh[source] ) then destroyElement( veh[source] )  
        veh[source] = nil  
        end 
        local carID = getVehicleModelFromName (car) 
        local x,y,z = getElementPosition(source) 
        local carName = getVehicleNameFromModel (carID) 
        veh[source] = createVehicle(carID, x,y,z) 
        setVehicleColor(veh[source], 255, 255, 255) 
        warpPedIntoVehicle(source, veh[source]) 
        outputChatBox ( "* #FF5A5ACreated #ffffff"..carName.." #FF5A5Awas successful!",player,255,90,90,true)        
    end 
    ) 
      
    addEventHandler ( "onPlayerQuit", getRootElement(),  
    function () 
        if veh[source] and isElement( veh[source] ) then destroyElement( veh[source] )  
        veh[source] = nil  
        end 
    end) 
         
    function markerHit (hitPlayer, matchingDimension) 
    if isPedInVehicle (hitPlayer) then return end 
    if getElementType(hitPlayer) == "player" then 
        triggerClientEvent ("openMean", hitPlayer) 
    end 
    end 
    addEventHandler ("onMarkerHit", resourceRoot, markerHit) 
      
    function markerLeave (hitPlayer, matchingDimension) 
    if getElementType(hitPlayer) == "player" then 
       triggerClientEvent ("closeOpenMean", hitPlayer) 
    end 
    end 
    addEventHandler ("onMarkerLeave", resourceRoot, markerLeave) 
    

    Window.lua

    GUIEditor = { 
        gridlist = {}, 
        window = {}, 
        button = {} 
    } 
      
    cars = { 
        {523}, 
        {463}, 
        {509}, 
        {481}, 
        {510}, 
        {470}, 
      --{carID}, 
        } 
      
    local l, w = guiGetScreenSize() 
    GUIEditor.window[1] = guiCreateWindow((l - 144) / 2, (w - 353) / 2, 144, 353, "Window", false) 
    guiWindowSetSizable(GUIEditor.window[1], false) 
    guiSetVisible(GUIEditor.window[1],false) 
    guiSetAlpha(GUIEditor.window[1], 1.00) 
    guiSetProperty(GUIEditor.window[1], "CaptionColour", "FFFF5A5A") 
      
    GUIEditor.gridlist[1] = guiCreateGridList(9, 24, 126, 265, false, GUIEditor.window[1]) 
    guiGridListAddColumn(GUIEditor.gridlist[1], "#", 0.3) 
    guiGridListAddColumn(GUIEditor.gridlist[1], "Vehicle", 0.9) 
    GUIEditor.button[1] = guiCreateButton(9, 295, 126, 22, "get", false, GUIEditor.window[1]) 
    guiSetProperty(GUIEditor.button[1], "NormalTextColour", "FFFF5A5A") 
    guiSetFont(GUIEditor.button[1], "default-bold-small") 
    GUIEditor.button[2] = guiCreateButton(9, 321, 126, 22, "close", false, GUIEditor.window[1]) 
    guiSetProperty(GUIEditor.button[2], "NormalTextColour", "FFB50000") 
    guiSetFont(GUIEditor.button[2], "default-bold-small") 
      
    for i,v in ipairs (cars) do 
        local carName = getVehicleNameFromModel (v[1]) 
        local row = guiGridListAddRow (GUIEditor.gridlist[1]) 
        guiGridListSetItemText (GUIEditor.gridlist[1], row, 1, i.."-", false, true) 
        guiGridListSetItemText (GUIEditor.gridlist[1], row, 2, carName, false, true) 
        guiGridListSetItemColor(GUIEditor.gridlist[1], row, 1, 255, 90, 90, 255) 
    end 
      
    addEvent ("openMean", true) 
    function openMean () 
    if (getLocalPlayer() == source) then 
    guiSetVisible(GUIEditor.window[1],true) 
    showCursor(true) 
    end 
    end 
    addEventHandler ("openMean", getRootElement(), openMean) 
      
    addEvent ("closeOpenMean", true) 
    function closeOpenMean () 
    if (getLocalPlayer() == source) then 
    guiSetVisible(GUIEditor.window[1],false) 
    showCursor(false) 
    end 
    end 
    addEventHandler ("closeOpenMean", getRootElement(), closeOpenMean) 
      
    addEventHandler ("onClientGUIClick", GUIEditor.button[2], 
    function (button, state, absoluteX, absoluteYe) 
     guiSetVisible(GUIEditor.window[1],false) 
     showCursor(false) 
    end) 
    function trigger () 
    if (guiGridListGetSelectedItem (GUIEditor.gridlist[1])) then 
    local car = guiGridListGetItemText (GUIEditor.gridlist[1], guiGridListGetSelectedItem (GUIEditor.gridlist[1]), 2) 
    if car == "" or car == nil then outputChatBox( "please selected car from list.",255,90,90,true ) return end 
      triggerServerEvent ("getCar", getLocalPlayer(), car) 
      guiSetVisible(GUIEditor.window[1],false) 
      showCursor(false) 
    end 
    end 
      
    addEventHandler ("onClientGUIClick", GUIEditor.button[1], 
    function (button, state, absoluteX, absoluteYe) 
    trigger(getLocalPlayer()) 
    end) 
      
    addEventHandler ("onClientGUIDoubleClick", GUIEditor.gridlist[1], 
    function (button, state, absoluteX, absoluteYe) 
    trigger(getLocalPlayer()) 
    end) 
    

  2. addEventHandler("onResourceStart", resourceRoot, 
        function() 
            resetMapInfo() 
            for i,player in ipairs(getElementsByType("player")) do 
                spawn(player) 
            end 
        end 
    ) 
      
    function spawn(player) 
        if not isElement(player) then return end 
        repeat until spawnPlayer ( player, 214.24290466309+math.random(1,5), 1866.6018066406+math.random(5,9), 13.140625, 180,  0, 0)       
    local Skins = { 287, 285 , 283 } 
      
    rs = Skins [math.random(#Skins)] 
        fadeCamera(player, true) 
        setCameraTarget(player, player) 
        showChat(player, true) 
    end 
      
    addEventHandler("onPlayerJoin", root, 
        function() 
            spawn(source) 
        end 
    ) 
      
    addEventHandler("onPlayerWasted", root, 
        function() 
            setTimer(spawn, 1800, 1, source) 
        end 
    ) 
    

    كذا ؟

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

    حاولت اني اخلي ملف البلاي عندما اثبت الشخصية يكون الشخصية عشوائيه مثلا

    انا ثبتت البلاي على شخصية

    287

    راح تتثبت على الشخصيه هذي بس انا حاولت اني اخليها تثبت الشخصية على اكثر من 1

    مثلا

    اثبت الشخصية على

    287

    و

    285

    بس ما قدرت دورت بلويكي وتعبت وقل انشاء الله يفرجة المنتدى

    مود البلاي حقي القديم الي يدعم تثبيت الشخصية

    play:

      
    addEventHandler("onResourceStart", resourceRoot, 
        function() 
            resetMapInfo() 
            for i,player in ipairs(getElementsByType("player")) do 
                spawn(player) 
            end 
        end 
    ) 
      
    function spawn(player) 
        if not isElement(player) then return end 
        repeat until spawnPlayer ( player, 214.24290466309+math.random(1,5), 1866.6018066406+math.random(5,9), 13.140625, 180, 287, 0, 0)       الشخصية   
        fadeCamera(player, true) 
        setCameraTarget(player, player) 
        showChat(player, true) 
    end 
      
    addEventHandler("onPlayerJoin", root, 
        function() 
            spawn(source) 
        end 
    ) 
      
    addEventHandler("onPlayerWasted", root, 
        function() 
            setTimer(spawn, 1800, 1, source) 
        end 
    ) 
      
      
    

  4. طيب الحين شباب ضبط

    بس انا مالقيت الكود في موقع الفكنشات

    يعني ماركر مكطتوب علية مكان الزومبي

    وكذا

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

  5. local myMarker = createMarker(-2596.625, 579.358, 15.626, 'cylinder', 2.0, 255, 0, 0, 150)  
      
    function MarkerHit( hitElement, matchingDimension )  
        local elementType = getElementType( hitElement ) --  
        outputChatBox( elementType.." inside myMarker", getRootElement(), 255, 255, 0 ) 
    end 
    addEventHandler( "onMarkerHit", myMarker, MarkerHit ) 
      
    function onPlayerTarget ( targetElem ) 
        if getElementType ( targetElem ) == "object" and getElementModel ( targetElem ) == 3374 then 
            destroyElement ( targetElem ) 
        end 
    end 
    addEventHandler ( "onPlayerTarget", getRootElement(), onPlayerTarget ) 
      
    function consoleSetPlayerPosition ( source, commandName, posX, posY, posZ ) 
        setElementPosition ( source, posX, posY, posZ ) 
    end 
    addCommandHandler ( "setpos", consoleSetPlayerPosition  )   
    

    كذا صح

    واذا غلط با لله صلحولي

  6. اخوي يعني مكتوب فية مثلا مثل طارة زومبي لي البنك مكتوب دخول علىيها

    مثل كذا والحين بطرح الكود على شان اذا كان فية خطا

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

    لو ممكن

    كود

    اروح لم ماركر او اي شي يوديني مكان محدد مثلاا

    اسوي ماركر مكتوب فية مكان السيارات اروح لمة يوديني لم مكان محدد انا اختارة او احداثياتة

    وطبعا ابي يكون مكتوب فية لو ممكن ممكن الي يعرف يعطيني

  8. السلامم عليكم ورحمةة الله

    لو ممكن تخلونلي هال الكود

    ما يركب السياره الاا الي لفلة 5

    مود الافل

    setTimer(flucht_stop_func,5000,-1) 
      
      
    function enterVeh ( player,seat) 
     if seat == 0 then 
      local lvl = getElementData(player,"Level") 
      if lvl >= 5 then 
      else 
       removePedFromVehicle(player) 
       outputChatBox("You can only level 5 driving",player,125,0,0) 
      end 
     end 
    end 
    addEventHandler("onVehicleEnter",getRootElement(),enterVeh) 
      
      
    function onDeathmatchStart () 
     local time = getRealTime() 
     local hours = time.hour 
     local minutes = time.minute 
     setTime(hours,minutes) 
    end 
    addEventHandler("onResourceStart",getResourceRootElement(getThisResource()),onDeathmatchStart) 
      
      
    function setData_func ( player, data, value ) 
     if player then 
      setElementData(player,data,value) 
      local acc = getPlayerAccount(player) 
      if not isGuestAccount(acc) then 
       setElementData(acc,data,value) 
      end 
     end 
    end 
    addEvent("setData",true) 
    addEventHandler("setData",getRootElement(),setData_func) 
    

  9. السلامم عليكم

    ورحمة الله وبركاته

    الزبده

    انا عندي مود الفل

    و ابي اخليه يعني

    الي يبي يركب سياره يكون لفله

    5

    لو ممكن

    الكود

    حق الفل الي معي

    الكود الاول

    level_server

    local ExpRewardForKill = {1, 8}  
      
      
      
    local levels = {} 
      
    addEventHandler ( "onResourceStart", resourceRoot, 
        function ( ) 
            connection = dbConnect( "sqlite", "levels.db" ) 
            --exports["scoreboard"]:scoreboardAddColumn ( "level", root, 90, "Player's Level") 
            if ( connection )then 
                dbExec ( connection, "CREATE TABLE IF NOT EXISTS levels (levelID INTEGER PRIMARY KEY NOT NULL, accountName TEXT, level INT, experience INT)" ) 
                outputDebugString ( "Successfully connected to levels.db" ) 
            else 
                outputDebugString ( "Failed to connect to levels.db", 3 ) 
            end 
             
            local LivelsFile = xmlLoadFile ( "levels.xml" ) 
            if ( LivelsFile ) then 
                outputDebugString ( "levels.xml successfully open") 
                for index, levelData in ipairs ( xmlNodeGetChildren ( LivelsFile ) ) do 
                    local levelAttributes = xmlNodeGetAttributes ( levelData ) 
                    table.insert(levels, { ["levelName"] = levelAttributes.levelName, ["experienceRequired"] = tonumber(levelAttributes.experienceRequired), ["moneyReward"] = tonumber(levelAttributes.moneyReward)}) 
                end 
            else 
                outputDebugString ( "Failed to open to levels.xml", 1 ) 
            end 
             
             
        end 
    ) 
      
      
    --[[ 
    addCommandHandler ( "level", 
        function ( thePlayer ) 
            removeElementData(thePlayer,"experience") 
            removeElementData(thePlayer,"level") 
        end 
    ) 
    ]] 
      
      
    addEventHandler("onResourceStop",resourceRoot, 
        function ( ) 
            if isElement ( connection ) then  
                setTimer(destroyElement, 1000, 1, connection ) 
            end 
        end 
    ) 
      
    addEventHandler("onResourceStop",resourceRoot, 
    function () 
        for index, player in ipairs(getElementsByType("player")) do 
            local experience = tonumber(getElementData(player,"experience")) or 0 
            setPlayerExperience(player, experience) 
            local PlayerLevel = tonumber(getElementData(player,"level")) or 1 
            setPlayerLevel(player, PlayerLevel) 
        end 
    end) 
      
    function saveExpOnQuitOrLogout(account) 
        local experience = tonumber(getElementData(source,"experience")) or 0 
        local PlayerLevel = tonumber(getElementData(source,"level")) or 1 
        if (experience) then 
            if (account and account == "userdata") then 
                setPlayerExperience(account, experience) 
                setPlayerLevel(account, PlayerLevel) 
            else 
                setPlayerExperience(source, experience) 
                setPlayerLevel(source, PlayerLevel) 
            end 
        end 
        setElementData(source,"experience",0) 
    end 
    addEventHandler("onPlayerLogout",root,saveExpOnQuitOrLogout) 
    addEventHandler("onPlayerQuit",root,saveExpOnQuitOrLogout) 
      
      
    function CheckLevelFromExp(dataName) 
        if (source and getElementType(source) == "player" and dataName == "experience") then 
            local SourceLevel = tonumber( getElementData(source,"level") ) 
            local SourceExp = tonumber( getElementData(source,"experience") ) 
            local NewLvl = SourceLevel+1 
            if ( levels[sourceLevel] ) then 
                if ( levels[NewLvl]) then 
                    local RequiredExp = tonumber( levels[sourceLevel]["experienceRequired"] ) 
                    if ( SourceExp >= RequiredExp ) then 
                        setElementData(source,"experience_n", tonumber(levels[NewLvl]["experienceRequired"])) 
                        setElementData(source,"level",NewLvl) 
                        setTimer(setElementData, 50, 1, source,"experience",0) 
                        givePlayerMoney(source,tonumber(levels[NewLvl].moneyReward)) 
                        triggerClientEvent ( source, "LevelUpEffect", source ) 
                        outputChatBox("*LEVEL UP* You're now level ".. tostring(NewLvl) .."! Congratulations.",source,0,255,0) 
                    end 
                end 
            end 
        end 
    end 
    addEventHandler("onElementDataChange",root,CheckLevelFromExp) 
      
    function OnZombieKill (killer) 
        if (killer and killer ~= source) then 
            if getPlayerAccount(killer) then 
                local experience = tonumber(getElementData(killer,"experience")) 
                local SourceLevel = getElementData(killer,"level") 
                if ( not SourceLevel ) then  
                    SourceLevel = 1  
                    setElementData(killer,"level",1)  
                end 
                if ( levels[sourceLevel+1] ) then 
                    local randomExperience = math.random(unpack(ExpRewardForKill)) 
                    if (experience) then 
                        setElementData(killer,"experience",experience+tonumber(randomExperience)) 
                    else 
                        setElementData(killer,"experience",randomExperience) 
                    end 
                else 
                    setElementData(killer,"experience",tonumber(levels[sourceLevel]["experienceRequired"])) 
                end 
            end 
        end 
    end 
    addEvent("onZombieWasted",true) 
    addEventHandler ("onZombieWasted", root, OnZombieKill) 
      
      
    addEventHandler("onPlayerLogin",root, 
    function (_,account) 
        local accountName = getAccountName(account) 
        local handler = connection 
        local query = dbQuery( handler, "SELECT accountName FROM levels WHERE accountName=?", tostring(accountName) ) 
        local result, numrows, errmsg = dbPoll ( query, -1 ) 
        if ( type( result ) == "table" and #result == 0 or not result ) then 
            if dbExec( handler, "INSERT INTO `levels` (`levelID`, `accountName`, `level`, `experience`) VALUES (NULL, '".. accountName .."', '1', '0');") then 
                setElementData(source, "experience", 0) 
                setElementData(source, "experience_n", tonumber(levels[1].experienceRequired)) 
                setElementData(source, "level", 1) 
            end 
        else 
            local level = getPlayerLevel(source) 
            setElementData(source, "experience", getPlayerExperience(source)) 
            if (levels[level]) then 
                setElementData(source, "experience_n", tonumber(levels[level].experienceRequired)) 
            else 
                setElementData(source, "experience_n", tonumber(levels[level -1].experienceRequired)) 
            end 
            setElementData(source, "level", level) 
        end 
    end) 
      
      
      
    function getPlayerLevel(thePlayer) 
        local handler = connection 
        if (isElement(thePlayer) and getElementType(thePlayer) == "player") then 
            account = getPlayerAccount(thePlayer) 
        else 
            account = thePlayer 
        end 
        if (not account or isGuestAccount(account)) then return false end 
        local accountName = getAccountName(account) 
        local query = dbQuery( handler, "SELECT level FROM `levels` WHERE accountName='".. tostring(accountName) .."'") 
        local result, numrows, errmsg = dbPoll( query, -1 ) 
        if (result) then 
            return tonumber(result[1]["level"]) 
        end 
    end 
      
    function setPlayerLevel(thePlayer, theLevel) 
        local handler = connection 
        if (isElement(thePlayer) and getElementType(thePlayer) == "player") then 
            account = getPlayerAccount(thePlayer) 
        else 
            account = thePlayer 
        end 
        if (not account or isGuestAccount(account)) then return false end 
        local accountName = getAccountName(account) 
        if dbExec( handler, "UPDATE `levels` SET `level` = '" .. tonumber(theLevel) .. "' WHERE `accountName` = '" .. tostring(accountName) .."'" ) then 
            return true 
        else 
            return false 
        end 
    end 
      
    function getPlayerExperience(thePlayer) 
        local handler = connection 
        if (isElement(thePlayer) and getElementType(thePlayer) == "player") then 
            account = getPlayerAccount(thePlayer) 
        else 
            account = thePlayer 
        end 
        if (not account or isGuestAccount(account)) then return false end 
        local accountName = getAccountName(account) 
        local query = dbQuery( handler, "SELECT experience FROM `levels` WHERE accountName='".. tostring(accountName) .."'") 
        local result, numrows, errmsg = dbPoll( query, -1 ) 
        if (result) then 
            return tonumber(result[1]["experience"]) 
        end 
    end 
      
    function setPlayerExperience(thePlayer, theExperience) 
        local handler = connection 
        if (isElement(thePlayer) and getElementType(thePlayer) == "player") then 
            account = getPlayerAccount(thePlayer) 
        else 
            account = thePlayer 
        end 
        if (not account or isGuestAccount(account)) then return false end 
        local accountName = getAccountName(account) 
        if dbExec( handler, "UPDATE `levels` SET `experience` = '" .. tonumber(theExperience) .. "' WHERE `accountName` = '" .. tostring(accountName) .."'" ) then 
            return true 
        else 
            return false 
        end 
    end 
    

    الكود الثاني

    level_client

    local sx, sy = guiGetScreenSize() 
      
    function drawExperience() 
        dxDrawRectangle((310/1024)*sx,(698/768)*sy,(481/1024)*sx,(36/768)*sy,tocolor(255,255,255,35),false) 
        dxDrawRectangle((315/1024)*sx,(703/768)*sy,(472/1024)*sx,(26/768)*sy,tocolor(0,0,0,255),false) 
        local experience = getElementData(localPlayer,"experience") or 0 
        local experience_n = getElementData(localPlayer,"experience_n") or 0 
        local level = getElementData(localPlayer,"level") or 1 
        local percent = (experience / experience_n * 100) 
        if (percent >= 100) then 
            percent = 100 
        elseif (experience_n < 1) then 
            percent = 0 
        end 
        dxDrawRectangle((320/1024)*sx,(706/768)*sy,(tonumber(percent)*4.64/1024)*sx,(20/768)*sy,tocolor(255,255,255,75),false) 
        dxDrawBorderedText("Level: ".. tostring(level) .." | Experience Points: ".. tostring(experience) .." > ".. tostring(experience_n),(430/1024)*sx,(707/768)*sy,(667/1024)*sx,(724/768)*sy,tocolor(0,0,0,255),(sx/1024)*0.6,"bankgothic","center","center",false,false,false) 
    end 
    addEventHandler("onClientRender",root,drawExperience) 
      
    function dxDrawBorderedText( text, x, y, w, h, color, scale, font, alignX, alignY, clip, wordBreak, postGUI ) 
        dxDrawText ( text, x - 1, y - 1, w - 1, h - 1, tocolor ( 255, 255, 255, 255 ), scale, font, alignX, alignY, clip, wordBreak, false ) -- black 
        dxDrawText ( text, x + 1, y - 1, w + 1, h - 1, tocolor ( 255, 255, 255, 255 ), scale, font, alignX, alignY, clip, wordBreak, false ) 
        dxDrawText ( text, x - 1, y + 1, w - 1, h + 1, tocolor ( 255, 255, 255, 255 ), scale, font, alignX, alignY, clip, wordBreak, false ) 
        dxDrawText ( text, x + 1, y + 1, w + 1, h + 1, tocolor ( 255, 255, 255, 255 ), scale, font, alignX, alignY, clip, wordBreak, false ) 
        dxDrawText ( text, x - 1, y, w - 1, h, tocolor ( 255, 255, 255, 255 ), scale, font, alignX, alignY, clip, wordBreak, false ) 
        dxDrawText ( text, x + 1, y, w + 1, h, tocolor ( 255, 255, 255, 255 ), scale, font, alignX, alignY, clip, wordBreak, false ) 
        dxDrawText ( text, x, y - 1, w, h - 1, tocolor ( 255, 255, 255, 255 ), scale, font, alignX, alignY, clip, wordBreak, false ) 
        dxDrawText ( text, x, y + 1, w, h + 1, tocolor ( 255, 255, 255, 255 ), scale, font, alignX, alignY, clip, wordBreak, false ) 
        dxDrawText ( text, x, y, w, h, color, scale, font, alignX, alignY, clip, wordBreak, postGUI ) 
    end 
      
      
      
    addEvent ( "LevelUpEffect", true ) 
    addEventHandler ( "LevelUpEffect", root, 
        function ( ) 
            PlayerLevelUpSound() 
            addEventHandler("onClientRender",root,DrawLevelUp) 
            setTimer(function() 
                removeEventHandler("onClientRender",root,DrawLevelUp) 
            end, 4000, 1) 
        end 
    ) 
      
    function PlayerLevelUpSound() 
        local sound = playSound("levelup.mp3") 
        setSoundVolume(sound, 1) 
    end 
      
    function DrawLevelUp() 
        dxDrawBorderedText( "LEVEL UP!!!", sx/2, sy/15, sx/2, sx/2, tocolor(255,144,0,255),(sx/1024)*2.5,"bankgothic","center","center",false,false,false ) 
    end 
      
      
    

×
×
  • Create New...