Jump to content

SmoKing

Members
  • Posts

    182
  • Joined

  • Last visited

Everything posted by SmoKing

  1. السلام عليكم شباب انا سويت مود عباره عن لفلات ونقاط واشياء ومايشتغل المود --- server side --- gRoot = getRootElement() LastWinners={"","","","",""} function onPlayerQuit ( ) local playeraccount = getPlayerAccount ( source ) if ( playeraccount ) and not isGuestAccount ( playeraccount ) then local playerpoints = getElementData(source,"Points") local playerwins = getElementData(source,"Wins") local playerdeaths = getElementData(source,"Deaths") local playerhunters = getElementData(source,"Hunters") local playerlevels = getElementData ( source, "lvl" ) setAccountData ( playeraccount, "points", playerpoints ) setAccountData ( playeraccount, "wins", playerwins ) setAccountData ( playeraccount, "deaths", playerdeaths ) setAccountData ( playeraccount, "hunters", playerhunters ) setAccountData ( playeraccount, "lvl", playerlevels ) end end function onPlayerLogin (_, playeraccount ) if ( playeraccount ) then local playerpoints = getAccountData ( playeraccount, "points" ) local playerwins = getAccountData ( playeraccount, "wins" ) local playerdeaths = getAccountData ( playeraccount, "deaths" ) local playerhunters = getAccountData ( playeraccount, "hunters" ) local playerlevels = getAccountData ( playeraccount, "lvl" ) setElementData(source,"Points",playerpoints or 0) setElementData(source,"Wins",playerwins or 0) setElementData(source,"Deaths",playerdeaths or 0) setElementData(source,"Hunters",playerhunters or 0) setElementData(source,"lvl",playerlevels or 0) end end addEventHandler ( "onPlayerQuit", getRootElement ( ), onPlayerQuit ) addEventHandler ( "onPlayerLogin", getRootElement ( ), onPlayerLogin) addEventHandler ("onPlayerChat",getRootElement(), function checkForHunter(number,sort,model) thePlayer = source if sort == "vehiclechange" then if model == 425 then if getElementData(thePlayer,"playerGotHunter") == false then setElementData(thePlayer,"playerGotHunter",true) outputChatBox ( "#ff9900[iNFO] #c0c0c0"getPlayerName(source).." #FFFFFFgot #c0c0c0(400)points #FFFFFFhunter bonus!", getRootElement(), 255, 255, 255, true ) setElementData(thePlayer,"Points",tonumber(getElementData(thePlayer,"Points"))+400) setElementData(thePlayer,"Hunters",tonumber(getElementData(thePlayer,"Hunters"))+1) end end end end addEventHandler("onPlayerPickUpRacePickup",getRootElement(),checkForHunter) function onPlayerDeadInRace() local thePlayer = source local dPlayers = getDeadRacePlayers() local aPlayers = getAliveRacePlayers() local Position = aPlayers + 1 local playerpoints = getElementData(source,"Points") local needexp = lvl * 35 local lvl = lvl + 1 if dPlayers + aPlayers >= 2 then local pointsForPlayer = math.floor((30/Position)*(dPlayers + aPlayers)) setElementData(thePlayer,"Points",tonumber(getElementData(thePlayer,"Points"))+pointsForPlayer) if Position == 1 then outputChatBox ("#ff9900[iNFO] #c0c0c01st #ffffffYou got #c0c0c0(" .. pointsForPlayer ..")points !",thePlayer,255,255,255,true) setElementData(thePlayer,"Wins",tonumber(getElementData(thePlayer,"Wins"))+1) if LastWinners[1] == "" then if LastWinners[2] == "" then if LastWinners[3] == "" then if LastWinners[4] == "" then if LastWinners[5] == "" then LastWiners[5] = thePlayer else LastWinners[4] = thePlayer end else LastWinners[3] = thePlayer end else LastWinners[2] = thePlayer end else LastWinners[1] = thePlayer end else LastWinners[5] = LastWinners[4] LastWinners[4] = LastWinners[3] LastWinners[3] = LastWinners[2] LastWinners[2] = LastWinners[1] LastWinners[1] = thePlayer end else outputChatBox ("#ff9900[iNFO]#ffffff You got #c0c0c0(" .. pointsForPlayer ..")points !",thePlayer,255,255,255,true) setElementData(thePlayer,"Deaths",tonumber(getElementData(thePlayer,"Deaths"))+1) end else outputChatBox("#ff9900[iNFO] #ffffffMinimum 2 players to get Points !",thePlayer,255,255,255,true) end if tonumber(playerpoints) == 10000 then setElementData(thePlayer, "lvl", "1") elseif tonumber(playerpoints) == 15000 then setElementData(thePlayer, "lvl", "2") elseif tonumber(playerpoints) == 25000 then setElementData(thePlayer, "lvl", "3") elseif tonumber(playerpoints) == 50000 then setElementData(thePlayer, "lvl", "4") elseif tonumber(playerpoints) == 60000 then setElementData(thePlayer, "lvl", "5") elseif tonumber(playerpoints) == 80000 then setElementData(thePlayer, "lvl", "6") elseif tonumber(playerpoints) == 100000 then setElementData(thePlayer, "lvl", "7") elseif tonumber(playerpoints) == 125000 then setElementData(thePlayer, "lvl", "8") elseif tonumber(playerpoints) == 130000 then setElementData(thePlayer, "lvl", "9") elseif tonumber(playerpoints) == 150000 then setElementData(thePlayer, "lvl", "10") elseif tonumber(playerpoints) == 200000 then setElementData(thePlayer, "lvl", "11") elseif tonumber(playerpoints) == 220000 then setElementData(thePlayer, "lvl", "12") elseif tonumber(playerpoints) == 250000 then setElementData(thePlayer, "lvl", "13") elseif tonumber(playerpoints) == 275720 then setElementData(thePlayer, "lvl", "14") elseif tonumber(playerpoints) == 305274 then setElementData(thePlayer, "lvl", "15") elseif tonumber(playerpoints) == 315247 then setElementData(thePlayer, "lvl", "16") elseif tonumber(playerpoints) == 332452 then setElementData(thePlayer, "lvl", "17") elseif tonumber(playerpoints) == 365785 then setElementData(thePlayer, "lvl", "18") elseif tonumber(playerpoints) == 400000 then setElementData(thePlayer, "lvl", "19") elseif tonumber(playerpoints) == 410000 then setElementData(thePlayer, "lvl", "20") elseif tonumber(playerpoints) == 427857 then setElementData(thePlayer, "lvl", "21") elseif tonumber(playerpoints) == 442787 then setElementData(thePlayer, "lvl", "22") elseif tonumber(playerpoints)", "485757") setElementData(thePlayer, "lvl", "23") elseif tonumber(playerpoints) == 512547 then setElementData(thePlayer, "lvl", "24") elseif tonumber(playerpoints) == 520557 then setElementData(thePlayer, "lvl", "25") elseif tonumber(playerpoints) == 535757 then setElementData(thePlayer, "lvl", "26") elseif tonumber(playerpoints) == 555785 then setElementData(thePlayer, "lvl", "27") elseif tonumber(playerpoints) == 604854 then setElementData(thePlayer, "lvl", "28") elseif tonumber(playerpoints) == 622752 then setElementData(thePlayer, "lvl", "29") elseif tonumber(playerpoints) == 642785 then setElementData(thePlayer, "lvl", "30") elseif tonumber(playerpoints) == 747547 then setElementData(thePlayer, "lvl", "31") elseif tonumber(playerpoints) == 785757 then setElementData(thePlayer, "lvl", "32") elseif tonumber(playerpoints) == 855785 then setElementData(thePlayer, "lvl", "33") elseif tonumber(playerpoints) == 952000 then setElementData(thePlayer, "lvl", "34") elseif tonumber(playerpoints) == 1000000 then setElementData(thePlayer, "lvl", "35") end if lvls == needexp then outputChatBox("#ff9900* #c0c0c0".. getPlayerName(source).. " #ffffffis now #ffff00 Level. ".. lvl .." #ffffff!", getRootElement(), 0, 255, 0) end end addEvent("onPlayerWasted", true) addEventHandler("onPlayerWasted", gRoot , onPlayerDeadInRace) function getAliveRacePlayers() local alivePlayers = 0 for index,player in ipairs(getElementsByType("player")) do if getElementData(player,"state") == "alive" then alivePlayers = alivePlayers + 1 end end return alivePlayers end function getDeadRacePlayers() local deadPlayers = 0 for index,player in ipairs(getElementsByType("player")) do if getElementData(player,"state") == "dead" then deadPlayers = deadPlayers + 1 end end return deadPlayers end --- client side --- localPlayer = getLocalPlayer() function addColumns() exports.scoreboard:scoreboardAddColumn("Points") end addEventHandler("onClientResourceStart", getResourceRootElement(getThisResource()), addColumns) addEventHandler('onClientPlayerJoin', root, function() setElementData(source,"Points",0) setElementData(source,"Wins",0) setElementData(source,"Deaths",0) setElementData(source,"Hunters",0) setElementData(source,"lvl",0) end )
  2. السلام عليكم شباب انا سويت ذا بس مدري ليه مايضبط كل شوي يطلع failed ---- Client Side ! ---- image1 = guiCreateStaticImage(0,500,799,99,"images/info.png", false) guiSetVisible(image1,false) image2 = guiCreateStaticImage(628,28,161,71,"images/leaders.png", false, image1) guiSetAlpha(image2, 0.77) image3 = guiCreateStaticImage(10,28,161,71,"images/member.png", false, image1) guiSetAlpha(image3, 0.77) image4 = guiCreateStaticImage(321,28,161,71,"images/cw.png", false, image1) guiSetAlpha(image4, 0.77) image5 = guiCreateStaticImage(0,0,799,499,"images/open1.png", false) guiSetVisible(image5,false) image6 = guiCreateStaticImage(0,0,799,499,"images/open2.png", false) guiSetVisible(image6,false) image7 = guiCreateStaticImage(0,0,799,499,"images/open3.png", false) guiSetVisible(image7,false) image8 = guiCreateStaticImage(260,-12,283,98,"images/leaders2.png", false) guiSetVisible(image8,false) image9 = guiCreateStaticImage(260,-12,283,98,"images/member2.png", false) guiSetVisible(image9,false) image10 = guiCreateStaticImage(260,-12,283,98,"images/cw2.png", false) guiSetVisible(image10,false) image11 = guiCreateStaticImage(628,32,161,71,"images/leaders.png", false) guiSetVisible(image11,false) image12 = guiCreateStaticImage(10,32,161,71,"images/member.png", false) guiSetVisible(image12,false) image13 = guiCreateStaticImage(321,32,161,71,"images/cw.png", false) guiSetVisible(image13,false) function open() guiSetVisible(image1,not guiGetVisible(image1)) showCursor(guiGetVisible(image1)) guiSetInputEnabled(guiGetVisible(image1)) guiSetVisible(image5,false) guiSetVisible(image6,false) guiSetVisible(image7,false guiSetVisible(image8,false) guiSetVisible(image9,false) guiSetVisible(image10,false) guiSetVisible(image11,false) guiSetVisible(image12,false) guiSetVisible(image13,false) end bindKey("F1","down",open) function oppen(button, state, absoluteX, absoluteY) if (source == image2) then showCursor(true) guiSetVisible(image2,false) guiSetVisible(image3,true) guiSetVisible(image4,true) guiSetVisible(image5,true) guiSetVisible(image6,false) guiSetVisible(image7,false) guiSetVisible(image8,true) guiSetVisible(image9,false) guiSetVisible(image10,false) guiSetVisible(image11,true) guiSetVisible(image12,false) guiSetVisible(image13,false) elseif (source == image3) then showCursor(true) guiSetVisible(image2,true) guiSetVisible(image3,false) guiSetVisible(image4,true) guiSetVisible(image5,false) guiSetVisible(image6,true) guiSetVisible(image7,false) guiSetVisible(image8,false) guiSetVisible(image9,true) guiSetVisible(image10,false) guiSetVisible(image11,false) guiSetVisible(image12,true) guiSetVisible(image13,false) elseif (source == image4) then showCursor(true) guiSetVisible(image2,true) guiSetVisible(image3,true) guiSetVisible(image4,false) guiSetVisible(image5,false) guiSetVisible(image6,false) guiSetVisible(image7,true) guiSetVisible(image8,false) guiSetVisible(image9,false) guiSetVisible(image10,true) guiSetVisible(image11,false) guiSetVisible(image12,false) guiSetVisible(image13,true) end end addEventHandler ("onClientGUIClick", getRootElement(), oppen) ---- Meta ---- "Client.lua" type="client"/> "images/open1.png"/> "images/open2.png"/> "images/open3.png"/> "images/info.png"/> "images/leaders.png"/> "images/member.png"/> "images/cw.png"/> "images/leaders2.png"/> "images/member2.png"/> "images/cw2.png"/>
  3. شككرا اشتغل يعطيكم العافيه شباب ماقصرتم وأسف لاني تعبتكم معاي
  4. شككرا اشتغل يعطيكم العافيه شباب ماقصرتم وأسف لاني تعبتكم معاي
  5. طيب لو ابي اعدلها اروح اسوي صوره من جديد
  6. طيب انا ابي اسويها بملف مقدر ؟ عشان اقدر اعدل وكذا
  7. شف انا بكتب في ذي اللوحه بس انا مابي اكتب عليها كذا لان ابي اعدل بعدين ابيها بملف
  8. يعني اسوي ملف لوا او اي شي اكتب فيه ويطلع في اللوحه مثلا اكتب SmoKing ويطلع في اللوحه واقدر امسح وكذا
  9. شككرا طيب الحين انا ابي اسوي ملف اكتب فيه ويصير في اللوحه كيف؟
  10. image1 = guiCreateStaticImage(0,0,105,599,"bar.png", false) image2 = guiCreateStaticImage(21,38,77,117,"lea.png", false, image1) image3 = guiCreateStaticImage(20,229,69,131,"mem.png", false, image1) image4 = guiCreateStaticImage(21,424,76,156,"cw.png", false, image1) image5 = guiCreateStaticImage(218,23,412,550,"win.png", false) guiSetVisible(image5,false) image6 = guiCreateStaticImage(218,23,412,550,"win1.png", false) guiSetVisible(image6,false) image7 = guiCreateStaticImage(218,23,412,550,"win2.png", false) guiSetVisible(image7,false) image8 = guiCreateStaticImage(363,23,119,28,"leaw.png", false) guiSetVisible(image8,false) image9 = guiCreateStaticImage(363,23,119,28,"memw.png", false) guiSetVisible(image9,false) image10 = guiCreateStaticImage(363,23,119,28,"cww.png", false) guiSetVisible(image10,false) function open() guiSetVisible(image1,not guiGetVisible(image1)) showCursor(guiGetVisible(image1)) guiSetInputEnabled(guiGetVisible(image1)) guiSetVisible(image5,false) guiSetVisible(image6,false) guiSetVisible(image7,false) guiSetVisible(image8,false) guiSetVisible(image9,false) guiSetVisible(image10,false) end bindKey("F1","down",open) function open(button, state, absoluteX, absoluteY) if (source == image2) then showCursor(true) guiSetVisible(image5,true) guiSetVisible(image6,false) guiSetVisible(image7,false) guiSetVisible(image8,true) guiSetVisible(image9,false) guiSetVisible(image10,false) elseif (source == image3) then showCursor(true) guiSetVisible(image5,false) guiSetVisible(image6,true) guiSetVisible(image7,false) guiSetVisible(image8,false) guiSetVisible(image9,true) guiSetVisible(image10,false) elseif (source == image4) then showCursor(true) guiSetVisible(image5,false) guiSetVisible(image6,false) guiSetVisible(image7,true) guiSetVisible(image8,false) guiSetVisible(image9,false) guiSetVisible(image10,true) end end addEventHandler ("onClientGUIClick", getRootElement(), open)
  11. شباب اول ماشغل المود يطلع الوندو انا ابيه اذا ضغط الزر يطلع له مو اول مايخش
  12. طيب كيف اعدل الاي دي من الادمنيه ؟
  13. SmoKing

    طلب

    طيب لو ابي بدون تسجيل كيف اخليه
  14. SmoKing

    طلب

    يخوي ضفته !
  15. SmoKing

    طلب

    طيب لازم يكون مسجل ولالا
  16. SmoKing

    طلب

    طيب الحين لازم اغير Admin واحطه Everyone عشان يصير للكل ولا على طول اركبها
  17. SmoKing

    طلب

    طيب ذا بس الادمن يقدر يسويها ولا اي احد
  18. SmoKing

    طلب

    ماضبط اسامه
  19. SmoKing

    طلب

    add = يضيف الاعب في الجوله ذي يستخدمونها حقين البيس مود
  20. SmoKing

    طلب

    السلاام عليكم شباب ابي اكواد الي يكتب في الشات add يجيه ادد حتى ولو ماكان معه ادمنيه
×
×
  • Create New...