Guest User

Untitled

a guest
Dec 6th, 2010
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.85 KB | None | 0 0
  1. local rootElement= getRootElement()
  2. addEvent("onMapStarting")
  3. addEvent("onPlayerPickupRacePickup")
  4. addEvent("onPlayerReachCheckpoint")
  5. addEvent("onPlayerRaceWasted")
  6. addEvent("onPlayerFinish")
  7. addEvent("onRaceStateChanging")
  8.  
  9. function ResourceStart()
  10. executeSQLCreateTable("MoneyB", "serial STRING,B INT")
  11. end
  12. addEventHandler("onResourceStart", getResourceRootElement(getThisResource()), ResourceStart)
  13.  
  14. function ClientReady(g_player)
  15. local serial = getPlayerSerial(g_player)
  16. local playername = getPlayerName(g_player)
  17. CheckPlayer4 = executeSQLSelect ( "MoneyB", "serial", "serial = '" .. serial .. "'" )
  18. if ( type( CheckPlayer4 ) == "table" and #CheckPlayer4 == 0 ) or not CheckPlayer4 then
  19. executeSQLInsert ( "MoneyB", "'"..serial.."','0','0'" )
  20. end
  21. end
  22. addEvent("onClientReady",true)
  23. addEventHandler("onClientReady",getRootElement(),ClientReady)
  24.  
  25. function DestructionMoney2(mapInfo,mapOptions,gameOptions)
  26. local alivePlayers = getAlivePlayers()
  27. if info == "Destruction derby" then
  28. if #alivePlayers == 1 then
  29. local playername = getPlayerName(alivePlayers[1])
  30. local serial = getPlayerSerial(alivePlayers[1])
  31. local Money = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  32.  
  33. outputChatBox("*Wins: "..playername.." took 20 B Points for surviving!",getRootElement(),255,255,0)
  34.  
  35. Money = tonumber(Money[1]["B"]) + 20
  36.  
  37. setElementData(alivePlayers[1] ,"B Points", Money)
  38.  
  39. executeSQLUpdate ( "MoneyB", "B = '"..Money.."'","serial = '" .. serial .. "'")
  40. end
  41. end
  42. end
  43.  
  44. function hunterBonus(pickupID, pickupType, vehicleModel)
  45. if info == "Destruction derby" then
  46. if pickupType == "vehiclechange" then
  47. if vehicleModel == 425 then
  48.  
  49. local serial = getPlayerSerial(source)
  50. local Money = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  51.  
  52. Money = tonumber(Money[1]["B"]) + 5
  53.  
  54. outputChatBox("*"..getPlayerName(source).." gets the hunter!",25,125,225)
  55. outputChatBox("*You reicive 5 B Points!",25,125,225)
  56.  
  57.  
  58. setElementData(source ,"B Points", Money)
  59.  
  60. executeSQLUpdate ( "MoneyB", "B = '"..Money.."'","serial = '" .. serial .. "'")
  61. end
  62. end
  63. end
  64. end
  65. addEventHandler("onPlayerPickUpRacePickup",getRootElement(),hunterBonus)
  66.  
  67. function RespawnTime(mapInfo,mapOptions)
  68. mapinfo = mapInfo.modename
  69. respawntime = mapOptions.respawntime
  70. setTime (12, 0)
  71. setWeather (0)
  72. end
  73. addEventHandler("onMapStarting",getRootElement(),RespawnTime)
  74.  
  75. function checkMoney (player,cmd)
  76. local serial = getPlayerSerial(player)
  77. local Money = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  78. outputChatBox("You Have "..tonumber(Money[1]["B"]).." B Points!" , player,255,255,0)
  79. end
  80.  
  81. function AchExplode()
  82. local driver = getVehicleOccupant(source)
  83. AchExplodeAlternative(driver)
  84. end
  85. addEventHandler("onVehicleExplode", rootElement, AchExplode)
  86.  
  87. --Scoreboard 'B' Column & Refreshing
  88. addEventHandler("onResourceStart",
  89. getResourceRootElement(getThisResource()),
  90. function()
  91. exports.scoreboard:addScoreboardColumn( "B Points")
  92. end)
  93.  
  94. addEventHandler ("onPlayerJoin",getRootElement(), function()
  95. local serial = getPlayerSerial(source)
  96. local AchB = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  97. setElementData(source, "B Points", tonumber(AchB[1]["B"])) end)
  98.  
  99. --- Cash !Command
  100. function PubMoney(message,messageType)
  101. if message == "!points" or message =="!Points" then
  102. local serial = getPlayerSerial(source)
  103. local Money = executeSQLSelect ( "MoneyB", "B","serial = '" .. serial .. "'")
  104. local name = getPlayerName(source)
  105. outputChatBox(name.." has $"..tonumber(Money[1]["B"]),getRootElement(),255,255,0,true)
  106. end
  107. end
  108. addEventHandler("onPlayerChat",getRootElement(),PubMoney)
  109.  
  110. addCommandHandler( "Points", checkMoney )
  111. addCommandHandler( "points", checkMoney )
  112. addEventHandler("onPlayerFinish", rootElement, raceWin )
  113. addEventHandler("onMapStarting", rootElement , DestructionMoney)
  114. addEventHandler("onPlayerWasted", rootElement , DestructionMoney2)
Advertisement
Add Comment
Please, Sign In to add comment