Untitled

SUBMITTED BY: Guest

DATE: March 4, 2015, 7:13 a.m.

FORMAT: Text only

SIZE: 8.1 kB

Raw Download

HITS: 572

Report
  1. function SelectGamemode()
  2. local chance = math.random(1,3)
  3. local FilePath = "REgmod/GameMode/GameMode.txt"
  4. local Gamemode = file.Read(FilePath)
  5. if Gamemode == "Survivor" then
  6. SetGlobalString( "Game", "Survivor" )
  7. elseif Gamemode == "Vip" then
  8. SetGlobalString( "Game", "VIP" )
  9. elseif Gamemode == "Mercenaries" then
  10. SetGlobalString( "Game", "Mercenaries" )
  11. elseif Gamemode == "Escape" then
  12. SetGlobalString( "Game", "Escape" )
  13. else
  14. if chance == 1 then
  15. SetGlobalString( "Game", "VIP" )
  16. else
  17. SetGlobalString( "Game", "Survivor" )
  18. end
  19. end
  20. end
  22. function ChooseVip()
  23. SetGlobalEntity( "Thevip", "" )
  24. local hunks = team.GetPlayers(TEAM_HUNK)
  25. local VIP = team.GetPlayers(TEAM_HUNK)[math.random(1,#hunks)]
  26. SetGlobalEntity( "Thevip", VIP )
  27. end
  29. function GameCheck()
  30. if GetGlobalString("Mode") == "End" then return end
  31. if GetGlobalString("Game") == "VIP" then
  32. if GetGlobalEntity("Thevip",player.GetByID(1)):Team() != TEAM_HUNK then
  33. EndGame()
  34. return
  35. end
  36. elseif GetGlobalString("Game") == "Survivor" then
  37. if team.NumPlayers(TEAM_HUNK) <= 0 then
  38. EndGame()
  39. return
  40. end
  41. elseif GetGlobalString("Game") == "Escape" then
  42. if team.NumPlayers(TEAM_HUNK) <= 0 then
  43. EndGame()
  44. return
  45. end
  46. elseif GetGlobalString("Game") == "Mercenaries" then
  47. if team.NumPlayers(TEAM_HUNK) <= 0 then
  48. timer.Destroy("Countdowntimer")
  49. EndGame()
  50. return
  51. end
  52. end
  53. end
  55. function GameModeStart()
  56. if GetGlobalString("Game") == "VIP" then
  57. ChooseVip()
  58. SetGlobalInt("countdown", 300 + (table.Count(team.GetPlayers(TEAM_HUNK)) * 60) )
  59. timer.Create("CountdownMercenaries",1,0, function() SetGlobalInt("GameTime", GetGlobalInt("GameTime") + 1) SetGlobalInt("countdown", GetGlobalInt("countdown") - 1) if GetGlobalInt("countdown") <= 0 then timer.Destroy("CountdownMercenaries") EndGame() end end)
  60. elseif GetGlobalString("Game") == "Mercenaries" then
  61. Zombies = {
  62. "snpc_zombie",
  63. "snpc_zombie_crimzon",
  64. "snpc_zombie_crimzon",
  65. "snpc_zombie_crimzon",
  66. "snpc_zombie_crimzon",
  67. "snpc_zombie_crimzon",
  68. "snpc_zombie_crimzon",
  69. "snpc_zombie_crimzon",
  70. }
  71. SetGlobalInt("countdown", 120)
  72. timer.Create("CountdownMercenaries",1,0, function() SetGlobalInt("GameTime", GetGlobalInt("GameTime") + 1) SetGlobalInt("countdown", GetGlobalInt("countdown") - 1) if GetGlobalInt("countdown") <= 0 then timer.Destroy("CountdownMercenaries") EndGame() end end)
  73. elseif GetGlobalString("Game") == "Survivor" then
  74. for k,v in pairs(player.GetAll()) do
  75. local modifier = math.random(30,100)
  76. SetGlobalInt("DeadZombieKillNumber", GetGlobalInt("DeadZombieKillNumber") + modifier)
  77. end
  78. timer.Create("TimeSurvivedTimer",1,0, function() SetGlobalInt("GameTime", GetGlobalInt("GameTime") + 1) for k,v in pairs(team.GetPlayers(TEAM_HUNK)) do v:SetNWInt("Time",v:GetNWInt("Time") + 1 ) if GetGlobalInt("DeadZombies") >= GetGlobalInt("DeadZombieKillNumber") && GetGlobalInt("Game") != "End" then timer.Destroy("TimeSurvivedTimer") EndGame() end end end)
  79. elseif GetGlobalString("Game") == "Escape" then
  80. timer.Create("TimeSurvivedTimer",1,0, function() SetGlobalInt("GameTime", GetGlobalInt("GameTime") + 1) for k,v in pairs(team.GetPlayers(TEAM_HUNK)) do v:SetNWInt("Time",v:GetNWInt("Time") + 1 ) end end)
  83. end
  85. SetGlobalInt("DeadZombies",0)
  86. end
  88. hook.Add("OnNPCKilled","ASD",function()
  89. SetGlobalInt("DeadZombies",GetGlobalInt("DeadZombies") + 1)
  90. end)
  92. function GameModeEnd()
  93. local leader = player.GetAll()[1]
  94. if GetGlobalString("Game") == "VIP" then
  95. if GetGlobalEntity( "Thevip", player.GetByID(1) ):Team() == TEAM_HUNK then
  96. local reward = (GetGlobalInt("DeadZombies") * table.Count(player.GetAll())) / 2
  97. PrintMessage( HUD_PRINTTALK, "The Vip has survived! All players won $"..reward.." . Fine Work!" )
  98. for k,v in pairs(player.GetAll()) do
  99. v:SetNWInt("Money",math.Round(v:GetNWInt("Money")+ reward))
  100. end
  101. else
  102. PrintMessage( HUD_PRINTTALK, "The Vip has died, nobody is rewarded a special bonus." )
  103. end
  104. for k,v in pairs(player.GetAll()) do
  105. if v:Team() == TEAM_HUNK then
  106. v:SetNWBool("Infected", false)
  107. v:SetNWInt("InfectedPercent", 0)
  108. if v.CanEarn then
  109. local money = v:GetNWInt("Time")/60*v:GetNWInt("killcount")
  110. if money >= 3000 then
  111. v:SetNWInt("Money",math.Round(v:GetNWInt("Money")+3000))
  112. v.CanEarn = false
  113. else
  114. v:SetNWInt("Money",math.Round(v:GetNWInt("Money")+(v:GetNWInt("Time")/60)*v:GetNWInt("killcount")))
  115. v.CanEarn = false
  116. end
  117. end
  118. end
  119. end
  120. timer.Destroy("Countdowntimer")
  121. elseif GetGlobalString("Game") == "Mercenaries" then
  122. for k,v in pairs(player.GetAll()) do
  123. if v:GetNWInt("killcount") >= leader:GetNWInt("killcount") && v != leader then
  124. leader = v
  125. end
  126. if v:Team() == TEAM_HUNK then
  127. v:SetNWBool("Infected", false)
  128. v:SetNWInt("InfectedPercent", 0)
  129. if v.CanEarn then
  130. local money = v:GetNWInt("Time")/60*v:GetNWInt("killcount")
  131. if money >= 3000 then
  132. v:SetNWInt("Money",math.Round(v:GetNWInt("Money")+3000))
  133. v.CanEarn = false
  134. else
  135. v:SetNWInt("Money",math.Round(v:GetNWInt("Money")+(v:GetNWInt("Time")/60)*v:GetNWInt("killcount")))
  136. v.CanEarn = false
  137. end
  138. end
  139. end
  140. end
  141. PrintMessage( HUD_PRINTTALK, leader:Nick().." won "..table.Count(player.GetAll())*150 .." for getting the most kills. Well done!" )
  142. leader:SetNWInt("Money", leader:GetNWInt("Money") + (math.Round(table.Count(player.GetAll())*150)))
  143. elseif GetGlobalString("Game") == "Survivor" then
  144. if GetGlobalInt("DeadZombies") >= GetGlobalInt("DeadZombieKillNumber") then
  145. if table.Count(team.GetPlayers(TEAM_HUNK)) > 0 then
  146. local reward = table.Count(team.GetPlayers(TEAM_HUNK)) * 100
  147. PrintMessage( HUD_PRINTTALK, "Surviving players won $"..reward.." for staying alive. Well done!" )
  148. for k,v in pairs(player.GetAll()) do
  149. if v:Team() == TEAM_HUNK then
  150. v:SetNWBool("Infected", false)
  151. v:SetNWInt("InfectedPercent", 0)
  152. if v.CanEarn then
  153. local money = v:GetNWInt("Time")/60*v:GetNWInt("killcount")
  154. if money >= 3000 then
  155. v:SetNWInt("Money",math.Round(v:GetNWInt("Money")+3000))
  156. v.CanEarn = false
  157. else
  158. v:SetNWInt("Money",math.Round(v:GetNWInt("Money")+((v:GetNWInt("Time")/60)*v:GetNWInt("killcount"))+ reward))
  159. v.CanEarn = false
  160. end
  161. end
  162. end
  163. end
  164. end
  165. end
  166. elseif GetGlobalString("Game") == "Escape" then
  167. if table.Count(team.GetPlayers(TEAM_HUNK)) > 0 then
  168. local reward = RewardTable[game.GetMap()]
  169. PrintMessage( HUD_PRINTTALK, "You Have Escaped! Surviving players won $"..reward.." for staying alive. Well done!" )
  170. for k,v in pairs(player.GetAll()) do
  171. if v:Team() == TEAM_HUNK then
  172. v:SetNWBool("Infected", false)
  173. v:SetNWInt("InfectedPercent", 0)
  174. if v.CanEarn then
  175. local money = v:GetNWInt("Time")/60*v:GetNWInt("killcount")
  176. if money >= 3000 then
  177. v:SetNWInt("Money",math.Round(v:GetNWInt("Money")+3000))
  178. v.CanEarn = false
  179. else
  180. v:SetNWInt("Money",math.Round(v:GetNWInt("Money")+((v:GetNWInt("Time")/60)*v:GetNWInt("killcount"))+ reward))
  181. v.CanEarn = false
  182. end
  183. end
  184. end
  185. end
  186. end
  187. end
  188. end
comments powered by Disqus