API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 25th, 2012
48
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 24.58 KB | None | 0 0
raw download clone embed print report
  1. ---  --- --- --- --- --- --- --- --- ---
  2. --Ach1 ==> 50 Race Wins.
  3. --Ach2 ==> 30 Explosions.
  4. --Ach3 ==> $1000000.
  5. --Ach4 ==> 100 Rolls.
  6. --Ach5 ==> 100 Spins.
  7. --Ach6 ==> 10 Shop Purchases.
  8. --Ach7 ==> VIP Purchase.
  9. --Ach8 ==> Win a race with 10 or more players::
  10. --Ach9 ==> Change your vehicle light color::
  11.  
  12. local rootElement= getRootElement()
  13. addEvent("onMapStarting")
  14. addEvent("onPlayerPickupRacePickup")
  15. addEvent("onPlayerReachCheckpoint")
  16. addEvent("onPlayerRaceWasted")
  17. addEvent("onPlayerFinish")
  18. addEvent("onRaceStateChanging")
  19. function recover(playerSource)
  20. if (isGuestAccount(getPlayerAccount(playerSource)) == false) then
  21.       accountname = getAccountName (getPlayerAccount(playerSource))      
  22.       if isObjectInACLGroup ( "user." .. accountname, aclGetGroup ( "Admin" ) ) then
  23.        
  24. executeSQLDropTable("RaceWins")
  25. executeSQLDropTable("RaceAttempts")
  26. executeSQLDropTable("DDDM")
  27. executeSQLDropTable("SpinsRolls")
  28. executeSQLDropTable("Colors")
  29. executeSQLDropTable("LColors")
  30. executeSQLDropTable("VColors")
  31. executeSQLDropTable("Achievments")
  32. executeSQLDropTable("PersonalInfo")
  33. executeSQLDropTable("MoneyB")
  34. executeSQLDropTable("GmBlockList")
  35. outputChatBox("Successfully Recovered. Please restart the resource. /restart race_starter_pack")
  36. end
  37. end
  38. end
  39. addCommandHandler("recover",recover)
  40. function ResourceStart()
  41. executeSQLCreateTable("RaceWins", "serial STRING,RaceWins INT,RaceWins2 INT,RaceWins3 INT,RaceWins4 INT")
  42. executeSQLCreateTable("RaceAttempts", "serial STRING,RaceAttempts INT")
  43. executeSQLCreateTable("DDDM", "serial STRING,DDAttempts INT, DDWins INT")
  44. executeSQLCreateTable("SpinsRolls", "serial STRING,Spins INT,Rolls INT")
  45. executeSQLCreateTable("Colors", "serial STRING,Ccolor STRING,Ncolor STRING")
  46. executeSQLCreateTable("LColors", "serial STRING,R INT,G INT,B INT")
  47. executeSQLCreateTable("VColors", "serial STRING,Col1 INT,Col2 INT,Col3 INT,Col4 INT")
  48. executeSQLCreateTable("Achievments", "serial STRING,Ach1 INT,Ach2 INT,Ach3 INT,Ach4 INT,Ach5 INT,Ach6 INT,Ach7 INT,Ach8 INT,Ach9 INT")
  49. executeSQLCreateTable("PersonalInfo", "serial STRING,Edit1 TEXT,Edit2 TEXT,Edit3 STRING,Edit4 TEXT,Edit5 TEXT,Edit6 STRING")
  50. executeSQLCreateTable("MoneyB", "serial STRING,Money INT,B INT")
  51. executeSQLCreateTable("GmBlockList", "serial STRING")
  52. end
  53. addEventHandler("onResourceStart", getResourceRootElement(getThisResource()), ResourceStart)
  54.  
  55. function ClientReady(g_player)
  56. local serial = getPlayerSerial(g_player)
  57. local playername = getPlayerName(g_player)
  58. local defaultvCol = get("defaultvehiclecolor")
  59. local defaultcCol = get("defaultchatcolor")
  60. local defaultnCol = get("defaultnamecolor")
  61. CheckPlayer  = executeSQLSelect ( "RaceWins", "serial", "serial = '" .. serial .. "'" )
  62. CheckPlayer2 = executeSQLSelect ( "SpinsRolls", "serial", "serial = '" .. serial .. "'" )
  63. CheckPlayer3 = executeSQLSelect ( "Achievments", "serial", "serial = '" .. serial .. "'" )
  64. CheckPlayer4 = executeSQLSelect ( "MoneyB", "serial", "serial = '" .. serial .. "'" )
  65. CheckPlayer5 = executeSQLSelect ( "PersonalInfo", "serial", "serial = '" .. serial .. "'" )
  66. CheckPlayer6 = executeSQLSelect ( "VColors", "serial", "serial = '" .. serial .. "'" )
  67. CheckPlayer7 = executeSQLSelect ( "LColors", "serial", "serial = '" .. serial .. "'" )
  68. CheckPlayer8 = executeSQLSelect ( "Colors", "serial", "serial = '" .. serial .. "'" )
  69. CheckPlayer9 = executeSQLSelect ( "RaceAttempts", "serial", "serial = '" .. serial .. "'" )
  70. CheckPlayer10= executeSQLSelect ( "DDDM", "serial", "serial = '" .. serial .. "'" )
  71.  
  72. if ( type( CheckPlayer ) == "table" and #CheckPlayer == 0 ) or not CheckPlayer then
  73. executeSQLInsert ( "RaceWins", "'"..serial.."','0','0','0','0'" )
  74. end
  75.  
  76. if ( type( CheckPlayer2 ) == "table" and #CheckPlayer2 == 0 ) or not CheckPlayer2 then
  77. executeSQLInsert ( "SpinsRolls", "'"..serial.."','0','0'" )
  78. end
  79.  
  80. if ( type( CheckPlayer3 ) == "table" and #CheckPlayer3 == 0 ) or not CheckPlayer3 then
  81. executeSQLInsert ( "Achievments", "'"..serial.."','0','0','0','0','0','0','0','0','0'" )
  82. end
  83.  
  84. if ( type( CheckPlayer4 ) == "table" and #CheckPlayer4 == 0 ) or not CheckPlayer4 then
  85. executeSQLInsert ( "MoneyB", "'"..serial.."','0','0'" )
  86. end
  87.  
  88. if ( type( CheckPlayer5 ) == "table" and #CheckPlayer5 == 0 ) or not CheckPlayer5 then
  89. executeSQLInsert ( "PersonalInfo", "'"..serial.."','Unknown','Unknown','Unknown','Unknown','Unknown','Unknown'" )
  90. end
  91.  
  92. if ( type( CheckPlayer6 ) == "table" and #CheckPlayer6 == 0 ) or not CheckPlayer6 then
  93. executeSQLInsert ( "VColors", "'"..serial.."','"..defaultvCol.."','"..defaultvCol.."','"..defaultvCol.."','"..defaultvCol.."'" )
  94. end
  95.  
  96. if ( type( CheckPlayer7 ) == "table" and #CheckPlayer7 == 0 ) or not CheckPlayer7 then
  97. executeSQLInsert ( "LColors", "'"..serial.."','255','255','255'" )
  98. end
  99.  
  100. if ( type( CheckPlayer8 ) == "table" and #CheckPlayer8 == 0 ) or not CheckPlayer8 then
  101. executeSQLInsert ( "Colors", "'"..serial.."','"..defaultcCol.."','"..defaultnCol.."'" )
  102. end
  103.  
  104. if ( type( CheckPlayer9 ) == "table" and #CheckPlayer9 == 0 ) or not CheckPlayer9 then
  105. executeSQLInsert ( "RaceAttempts", "'"..serial.."','0'" )
  106. end
  107.  
  108. if ( type( CheckPlayer10 ) == "table" and #CheckPlayer10 == 0 ) or not CheckPlayer10 then
  109. executeSQLInsert ( "DDDM", "'"..serial.."','0','0'" )
  110. end
  111. end
  112. addEvent("onClientReady",true)
  113. addEventHandler("onClientReady",getRootElement(),ClientReady)
  114.  
  115. function giveCash(playerSource,giveCash,tPlayer,amount)
  116. if (isGuestAccount(getPlayerAccount(playerSource)) == false) then
  117.       accountname = getAccountName (getPlayerAccount(playerSource))      
  118.       if isObjectInACLGroup ( "user." .. accountname, aclGetGroup ( "Admin" ) ) then
  119.          
  120. if not tPlayer or not amount then
  121. outputChatBox("ERROR: Syntax is /givecash [player] [amount]",255,0,0)
  122. return
  123. end
  124.  
  125. if getPlayerFromName(tPlayer) == false then outputChatBox("Invalid Player Selected",playerSource,255,0,0)
  126. else
  127. local serial = getPlayerSerial(getPlayerFromName(tPlayer))
  128. local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  129. newMoney = tonumber(Money[1]["Money"]) + tonumber(amount)
  130. outputChatBox(getPlayerName(playerSource).." has given you $"..tonumber(amount),getPlayerFromName(tPlayer),255,255,0)
  131. executeSQLUpdate ( "MoneyB", "Money = '"..newMoney.."'","serial = '" .. serial .. "'")
  132. end
  133. end
  134. end
  135. end
  136. addCommandHandler("givecash",giveCash)
  137.  
  138. function stats(psource,cname,tplayer)
  139.         if not getPlayerFromName(tplayer) then tplayer = psource else tplayer = getPlayerFromName(tplayer) end
  140.         achUnlockedNumber(tplayer)
  141.         local serial = getPlayerSerial(tplayer)
  142.         local RaceAttempts = executeSQLSelect ( "RaceAttempts", "RaceAttempts","serial = '" .. serial .. "'")
  143.         local DDAttempts = executeSQLSelect ("DDDM","DDAttempts","serial = '" .. serial .. "'")
  144.         local DDWins =executeSQLSelect ( "DDDM", "DDWins","serial = '" .. serial .. "'")
  145.         local Wins1 = executeSQLSelect ( "RaceWins", "RaceWins","serial = '" .. serial .. "'")
  146.         local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  147.         local MoneyB = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  148.         if tonumber(RaceAttempts[1]['RaceAttempts']) == 0 then ratio = 0 else ratio = (tonumber(Wins1[1]['RaceWins'])/tonumber(RaceAttempts[1]['RaceAttempts']))*100 end      
  149.         if tonumber(DDAttempts[1]['DDAttempts']) == 0 then rratio = 0 else rratio = (tonumber(DDWins[1]['DDWins'])/tonumber(DDAttempts[1]['DDAttempts']))*100 end
  150.        
  151.         outputChatBox(getPlayerName(tplayer).."'s Stats: Attempted: "..RaceAttempts[1]['RaceAttempts'].." races, "..DDAttempts[1]['DDAttempts']
  152.         .." DDs. Won: "..Wins1[1]['RaceWins'].." races("..ratio.."%), "..DDWins[1]['DDWins'].." DDs("..rratio.."%). Cash: $"..Money[1]['Money']..
  153.         " Unlocked "..getElementData(tplayer,"data.Achnum").."/9 Achievements("..MoneyB[1]['B'].."B)",root,173,218,068)
  154.  
  155. end
  156. addCommandHandler("stats",stats)
  157. addCommandHandler("st",stats)
  158. function Ach1(playeer)
  159. local playername = getPlayerName(playeer)
  160. local serial = getPlayerSerial(playeer)        
  161. local Ach1 = executeSQLSelect ( "Achievments", "Ach1","serial = '" .. serial .. "'")
  162. local AchB = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  163. local AchNumb = getElementData(playeer,"data.Achnum")
  164.  
  165.                 Ach1 = tonumber(Ach1[1]["Ach1"]) + 1
  166.                 if Ach1 == 50 then
  167.                 triggerClientEvent (playeer, "onAchUnlock", getRootElement())  
  168.                 AchB = tonumber(AchB[1]["B"]) + 30
  169.                 setElementData(playeer, "B Points",AchB)
  170.                 executeSQLUpdate ( "MoneyB", "B = '"..AchB.."'","serial = '" .. serial .. "'")
  171.                 setElementData ( playeer ,"data.money",Money,true)
  172.                 setElementData ( playeer ,"data.AchB",AchB,true)
  173.                 outputChatBox("**Achievments: "..playername.." unlocked the achievment 'Pro Racer' for winning 50 races! (30B)",getRootElement(),255,100,0)            
  174.                 AchNumb = tonumber(AchNumb) + 1
  175.                 setElementData(playeer,"data.Achnum",AchNumb,true)
  176.                 end            
  177.                 setElementData   ( playeer ,"data.Ach1",Ach1,true)
  178.         executeSQLUpdate ( "Achievments", "Ach1 = '"..Ach1.."'","serial = '" .. serial .. "'")
  179. end
  180.  
  181. function raceWin(rank)
  182.         if rank ~= 1 then --Check if the player's rank is 1
  183.                 return
  184.                 end
  185.                 local playername = getPlayerName(source)
  186.                 local serial = getPlayerSerial(source)
  187.                 local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  188.                 local Wins1 = executeSQLSelect ( "RaceWins", "RaceWins","serial = '" .. serial .. "'")
  189.                
  190.                 Money = tonumber(Money[1]["Money"]) + get('MoneyForTheFirst')
  191.                 if get('ShowWinMessages') == "true" then
  192.                 triggerClientEvent (source,"onPlayerWin", getRootElement())
  193.                 end
  194.                 setElementData (source, "Money" ,Money)
  195.                 setElementData ( source ,"data.money",Money,true)
  196.         executeSQLUpdate ( "MoneyB", "Money = '"..Money.."'","serial = '" .. serial .. "'")
  197.                 outputChatBox("*Win: "..playername.." took $"..get('MoneyForTheFirst').." for finishing first!",getRootElement(),255,153,0)
  198.                 setElementData(source,"data.playername",playername,true)
  199.                
  200.                 Wins1 = tonumber(Wins1[1]["RaceWins"]) + 1
  201.                 setElementData ( source ,"race.Wins",Wins1,true)
  202.                 if get("Achievments") == 'true' then
  203.                 Ach1(source)
  204.                 end
  205.                 executeSQLUpdate ( "RaceWins", "RaceWins = '"..Wins1.."'","serial = '" .. serial .. "'")      
  206. end
  207.  
  208.  
  209.  
  210. function raceSec(rank)
  211.         if rank ~= 2 then
  212.                 return
  213.                 end  
  214.                 local playername = getPlayerName(source)
  215.                 local serial = getPlayerSerial(source)
  216.                 local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  217.                 local Wins2 = executeSQLSelect ( "RaceWins", "RaceWins2","serial = '" .. serial .. "'")
  218.                                
  219.         Money = tonumber(Money[1]["Money"]) + get('MoneyForTheSecond')
  220.                 outputChatBox("*Win: "..playername.." took $"..get('MoneyForTheSecond').." for finishing second!",getRootElement(),255,153,0)
  221.                 if get('ShowWinMessages') == "true" then
  222.                 triggerClientEvent (source,"onPlayerWin2", getRootElement())  
  223.                 end
  224.         setElementData(source, "Money", Money)        
  225.                 setElementData ( source ,"data.money",Money,true)
  226.                 setElementData(source,"data.playername",playername,true)
  227.                
  228.                 Wins2 = tonumber(Wins2[1]["RaceWins2"]) + 1
  229.                 setElementData ( source ,"race.Wins2",Wins2,true)
  230.                
  231.                 executeSQLUpdate ( "MoneyB", "Money = '"..Money.."'","serial = '" .. serial .. "'")
  232.                 executeSQLUpdate ( "RaceWins", "RaceWins2 = '"..Wins2.."'","serial = '" .. serial .. "'")
  233. end
  234. addEventHandler( "onPlayerFinish", rootElement, raceSec ) -- Race Wins
  235.  
  236. function raceTh(rank)
  237.         if rank ~= 3 then
  238.                 return
  239.                 end  
  240.                 local playername = getPlayerName(source)
  241.                 local serial = getPlayerSerial(source)
  242.                 local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  243.                 local Wins3 = executeSQLSelect ( "RaceWins", "RaceWins3","serial = '" .. serial .. "'")
  244.                
  245.                 Money = tonumber(Money[1]["Money"]) + get('MoneyForTheThird')
  246.                 outputChatBox("*Win: "..playername.." took $"..get('MoneyForTheThird').." for finishing third!",getRootElement(),255,153,0)
  247.                 if get('ShowWinMessages') == "true" then
  248.                 triggerClientEvent (source,"onPlayerWin3", getRootElement())
  249.                 end
  250.                 setElementData(source, "Money", Money)
  251.                 setElementData ( source ,"data.money",Money,true)
  252.                 setElementData(source,"data.playername",playername,true)
  253.                
  254.                 Wins3 = tonumber(Wins3[1]["RaceWins3"]) + 1
  255.                 setElementData ( source ,"race.Wins3",Wins3,true)
  256.        
  257.                 executeSQLUpdate ( "MoneyB", "Money = '"..Money.."'","serial = '" .. serial .. "'")
  258.                 executeSQLUpdate ( "RaceWins", "RaceWins3 = '"..Wins3.."'","serial = '" .. serial .. "'")              
  259. end
  260. addEventHandler( "onPlayerFinish", rootElement, raceTh  ) -- Race Wins
  261.  
  262. function raceAny(rank)
  263.         if rank < 4 then
  264.                 return
  265.                 end  
  266.                 local playername = getPlayerName(source)
  267.                 local serial = getPlayerSerial(source)    
  268.                 local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  269.                 local Wins4 = executeSQLSelect ( "RaceWins", "RaceWins4","serial = '" .. serial .. "'")
  270.                
  271.                 Money = tonumber(Money[1]["Money"]) + get('MoneyFor>Third')
  272.                 outputChatBox("*Win: "..playername.." took $"..get('MoneyFor>Third').." for completing the race!",getRootElement(),255,153,0)
  273.                
  274.                 if get('ShowWinMessages') == "true" then
  275.                 triggerClientEvent (source,"onPlayerWino", getRootElement())
  276.                 end
  277.                
  278.                 setElementData(source, "Money", Money)
  279.                 setElementData ( source ,"data.money",Money,true)
  280.                 setElementData(source,"data.playername",playername,true)
  281.                
  282.                 Wins4 = Wins4[1]["RaceWins4"] + 1
  283.         setElementData ( source ,"race.Wins4",Wins4,true)
  284.                
  285.                 executeSQLUpdate ( "MoneyB", "Money = '"..Money.."'","serial = '" .. serial .. "'")
  286.                 executeSQLUpdate ( "RaceWins", "RaceWins4 = '"..Wins4.."'","serial = '" .. serial .. "'")
  287. end            
  288. addEventHandler( "onPlayerFinish", rootElement, raceAny ) -- Race Wins
  289.  
  290. function DestructionMoney(mapInfo,mapOptions,gameOptions)
  291.    info = mapInfo.modename
  292.    if mapInfo.modename == "Destruction derby" then
  293.    local players = getElementsByType("player")
  294.    for k,v in ipairs(players) do
  295.    local serial = getPlayerSerial(v)
  296.    local DDAttempts = executeSQLSelect ( "DDDM", "DDAttempts","serial = '" .. serial .. "'")
  297.    DDAttempts = tonumber(DDAttempts[1]["DDAttempts"]) + 1
  298.    executeSQLUpdate ( "DDDM", "DDAttempts = '"..DDAttempts.."'","serial = '" .. serial .. "'")
  299.    setElementData(v,"data.DDAttempts",DDAttempts,true)
  300.    end
  301.    end
  302. end
  303.  
  304. function DestructionMoney2(thePlayer)
  305.    local playername = getPlayerName(thePlayer)
  306.    local serial = getPlayerSerial(thePlayer)
  307.    local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  308.    local DDWins = executeSQLSelect( "DDDM", "DDWins","serial = '" .. serial .. "'")
  309.    
  310.    outputChatBox("*Wins: "..playername.." took $"..get('MoneyForDD').." for surviving!",getRootElement(),255,255,0)
  311.    
  312.    Money  = tonumber(Money[1]["Money"]) + get('MoneyForDD')
  313.    DDWinss = tonumber(DDWins[1]["DDWins"]) + 1
  314.    
  315.    setElementData(thePlayer ,"Money", Money)
  316.    setElementData(thePlayer ,"data.money",Money,true)
  317.    setElementData(thePlayer ,"data.playername",playername,true)
  318.    setElementData(thePlayer ,"data.DDWins",DDWinss,true)
  319.                
  320.    executeSQLUpdate ( "MoneyB", "Money = '"..Money.."'","serial = '" .. serial .. "'")
  321.    executeSQLUpdate ( "DDDM", "DDWins = '"..DDWinss.."'","serial = '" .. serial .. "'")
  322.    if get('ShowWinMessages') == "true" then
  323.    triggerClientEvent(thePlayer,"onPlayerWinD", getRootElement())              
  324.    end
  325.  
  326. end
  327.  
  328.  function hunterBonus(pickupID, pickupType, vehicleModel)
  329. if info == "Destruction derby" then
  330. if pickupType == "vehiclechange" then
  331. if vehicleModel == 425 then
  332.  
  333. local serial = getPlayerSerial(source)
  334. local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  335.  
  336. Money  = tonumber(Money[1]["Money"]) + 1250
  337.  
  338. outputChatBox("*Hunter: "..getPlayerName(source).." gets a $1250 hunter bonus!",source,25,125,225)
  339.  
  340. setElementData(source ,"Money", Money)
  341. setElementData(source ,"data.money",Money,true)
  342.  
  343. executeSQLUpdate ( "MoneyB", "Money = '"..Money.."'","serial = '" .. serial .. "'")
  344. end
  345. end
  346. end
  347. end
  348. addEventHandler("onPlayerPickUpRacePickup",getRootElement(),hunterBonus)
  349.  
  350. function RespawnTime(mapInfo,mapOptions)
  351. mapinfo = mapInfo.modename
  352. respawntime = mapOptions.respawntime
  353. end
  354. addEventHandler("onMapStarting",getRootElement(),RespawnTime)
  355.  
  356. function respawnColor()
  357. if respawntime == false then
  358. return
  359. end
  360. if mapinfo == "Sprint" or mapinfo == "Freeroam" then
  361. setTimer(timer2,respawntime*1000,1)
  362. end
  363. end
  364. addEventHandler("onPlayerWasted",getRootElement(),respawnColor)
  365.  
  366. function checkMoney (player,cmd)
  367.                 local serial = getPlayerSerial(player)
  368.                 local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  369.         outputChatBox("You Have $"..tonumber(Money[1]["Money"]) , player,255,255,0)
  370. end
  371.  
  372. function AchExplode()
  373.                  local driver = getVehicleOccupant(source)
  374.                  AchExplodeAlternative(driver)        
  375. end
  376. addEventHandler("onVehicleExplode", rootElement, AchExplode)
  377.  
  378. function AchExplodeAlternative(pplayer)
  379.                  local serial = getPlayerSerial(pplayer)
  380.                  local playername = getPlayerName(pplayer)
  381.                  local Ach2 = executeSQLSelect ( "Achievments", "Ach2","serial = '" ..serial.. "'")
  382.                  local AchB = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  383.                  local AchNumb = getElementData(pplayer,"data.Achnum")
  384.          Ach2 = tonumber(Ach2[1]["Ach2"]) + 1
  385.                  if Ach2 == 30 then              
  386.                         if get('Achievments') == 'true' then
  387.                  outputChatBox("**Achievments: "..playername.." unlocked the achievment 'Explosion Expert' for exploding 30 times! (10B)",getRootElement(),255,100,0)
  388.                  triggerClientEvent(pplayer, "onAchUnlock2", getRootElement())
  389.                  AchB = tonumber(AchB[1]["B"]) + 10
  390.                  setElementData(pplayer, "B Points",AchB)
  391.                  setElementData(pplayer, "data.AchB",AchB,true)          
  392.                  executeSQLUpdate ( "MoneyB", "B = '"..AchB.."'","serial = '" .. serial .. "'")
  393.                  AchNumb = tonumber(AchNumb) + 1
  394.                  setElementData(pplayer,"data.Achnum",AchNumb,true)
  395.                  end
  396.                  end
  397.                  setElementData(pplayer, "data.Ach2",Ach2,true)          
  398.                  executeSQLUpdate ("Achievments", "Ach2 = '"..Ach2.."'","serial = '" .. serial .. "'")
  399. end
  400.  
  401. function AchMoney(playeer)            
  402.                 local serial = getPlayerSerial(playeer)
  403.                 local playername = getPlayerName(playeer)
  404.                 local Ach3 = executeSQLSelect ( "Achievments", "Ach3","serial = '" .. serial .. "'")
  405.                 local AchB = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  406.                 local Money = executeSQLSelect( "MoneyB", "Money","serial = '" .. serial .. "'")
  407.                 local Ach3A = tonumber(Ach3[1]["Ach3"])
  408.                 local AchNumb = getElementData(playeer,"data.Achnum")
  409.                 if tonumber(Money[1]["Money"]) >= 1000000 then
  410.                 if Ach3A == 0 then
  411.                 Ach3A = 1
  412.                 triggerClientEvent (playeer, "onAchUnlock3", getRootElement())
  413.                 outputChatBox("**Achievments: "..playername.." unlocked the achievment 'I'm Rich' for earning $1000000! (30B)",getRootElement(),255,100,0)
  414.                 AchNumb = tonumber(AchNumb) + 1
  415.                 setElementData(playeer,"data.Achnum",AchNumb,true)
  416.                 AchB = tonumber(AchB[1]["B"]) + 30
  417.                 executeSQLUpdate ( "MoneyB", "B = '"..AchB.."'","serial = '" .. serial .. "'")
  418.                 setElementData(playeer, "B Points",AchB)
  419.                 setElementData(playeer ,"data.AchB",AchB,true)
  420.                 end
  421.                 end
  422.                 executeSQLUpdate ( "Achievments", "Ach3 = '"..Ach3A.."'","serial = '" .. serial .. "'")
  423. end
  424.  
  425. function onPlayerFinish()
  426. if get("Achievments") == 'true'then
  427. AchMoney(source)
  428. end
  429. end
  430. addEventHandler( "onPlayerFinish", rootElement, onPlayerFinish ) -- Achievment
  431.  
  432. --Roll Achievment
  433. function AchRoll(playeer)
  434. local playername = getPlayerName(playeer)
  435. local serial = getPlayerSerial(playeer)
  436. local AchB = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  437. local Ach4 = executeSQLSelect ( "Achievments", "Ach4","serial = '" .. serial .. "'")
  438. local AchNumb = getElementData(playeer,"data.Achnum")
  439. Ach4 = tonumber(Ach4[1]["Ach4"]) + 1
  440. executeSQLUpdate ( "Achievments", "Ach4 = '"..Ach4.."'","serial = '" .. serial .. "'")
  441. setElementData (playeer ,"data.Ach4",Ach4,true)
  442. if Ach4 == 100 then
  443. triggerClientEvent (playeer, "onAchUnlock4", getRootElement())
  444. outputChatBox("**Achievments: "..playername.." unlocked the achievment 'Roll The Dice' for rolling 100 times! (25B)",getRootElement(),0,100,255)
  445. AchB = tonumber(AchB[1]["B"]) + 25
  446. executeSQLUpdate ( "MoneyB", "B = '"..AchB.."'","serial = '" .. serial .. "'")
  447. setElementData(playeer, "B Points",AchB)
  448. setElementData (playeer ,"data.AchB",AchB,true)
  449. AchNumb = tonumber(AchNumb) + 1
  450. setElementData(playeer,"data.Achnum",AchNumb,true)
  451. end
  452. end
  453.  
  454.  
  455. --Scoreboard Money Column & Refreshing
  456. addEventHandler("onResourceStart",
  457.         getResourceRootElement(getThisResource()),
  458.         function()
  459.                 exports.scoreboard:addScoreboardColumn("Money")
  460.         end)
  461.        
  462. addEventHandler ( "onPlayerJoin", rootElement, function()
  463. local serial = getPlayerSerial(source)
  464. local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  465. if ( Money and type ( Money ) == "table" ) then
  466.     setElementData(source, "Money", tonumber(Money[1]["Money"])) end)
  467. end
  468.  
  469.  
  470. --Scoreboard 'B' Column & Refreshing
  471. addEventHandler("onResourceStart",
  472.         getResourceRootElement(getThisResource()),
  473.         function()
  474.                 exports.scoreboard:addScoreboardColumn( "B Points")
  475.         end)
  476.        
  477. addEventHandler ("onPlayerJoin",getRootElement(), function()
  478. local serial = getPlayerSerial(source)
  479. local AchB = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  480. if ( AchB and type ( AchB ) == "table" ) then
  481.     setElementData(source, "B Points", tonumber(AchB[1]["B"])) end)
  482. end
  483.  
  484.  
  485. -- User Panel
  486. function GetInfo(g_player)
  487. local source = g_player
  488. local ip = getPlayerIP(source)
  489. local serial = getPlayerSerial(source)
  490. achUnlockedNumber(g_player)
  491. setElementData ( source ,"data.ip",ip,true)
  492. setElementData ( source ,"data.serial",serial,true)
  493.  
  494. local Money = executeSQLSelect ( "MoneyB", "Money","serial = '" .. serial .. "'")
  495. local AchB = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  496. if ( AchB and type ( AchB ) == "table" ) then
  497.     setElementData ( source ,"data.AchB",tonumber(AchB[1]["B"]),true)
  498. end
  499. if ( Money and type ( Money ) == "table" ) then
  500.     setElementData ( source ,"data.money",tonumber(Money[1]["Money"]),true)
  501. end
  502.  
  503. local Ach1 = executeSQLSelect ( "Achievments", "Ach1","serial = '" .. serial .. "'") --50 wins
  504. local Ach2 = executeSQLSelect ( "Achievments", "Ach2","serial = '" .. serial .. "'") --30 explosions
  505. local Ach4 = executeSQLSelect ( "Achievments", "Ach4","serial = '" .. serial .. "'") --100 rolls
  506. local Ach5 = executeSQLSelect ( "Achievments", "Ach5","serial = '" .. serial .. "'") --100 spins
  507. local Ach6 = executeSQLSelect ( "Achievments", "Ach6","serial = '" .. serial .. "'") --10 shop purchases
  508. setElementData ( source ,"data.Ach1",tonumber(Ach1[1]["Ach1"]),true)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!