Public feed
#724828
-- Player stat settings (used for player:setstat & player:getstat)-- 0 - Kills-- 1 - Deaths-- 2 - Crown kills?????? (to-do)-- 3 - Consec kills (current)-- 5 - Has Crown? Boolean yes/no 1/0-- 9 - Consec kills (best)-- For NiTe: Added in expItem and cashItem, and fiddled with lua items such as burrow/burrowing-- Warp graphics when ds etc -- Other crown detect items -- Stat stuff.. and show last crown --- C4/translocator to-do-- Keep same hp when using warp items, such as burrowg_arena = nil -- holds the arena objectg_bGameRunningArena = false -- says whether the game is running or not, this is false when the Arena_OnGameEnd is calledg_bGameRunningStats = false -- says whether the game is running or not, this is false when the DisplayStats is calledg_statsEvent = 0 -- holds the event for displaying stats when the game endsg_crownEvent = 0 --holds the event for continually checking the status of all the crownsg_gameTime = nil -- holds the game timefunction Arena_OnCreate(arena) g_arena = arena math.randomseed(os.time())endfunction Player_OnWarpItem(user, itemid, target) g_arena:message("" .. itemid) if (itemid == 184) then -- Telekinesis -- Click on target player, and use, displays coords if (target:valid() == false) then user:message("No target selected") user:inventory_modify("Telekinesis", 1) return false elseif (target:crown() == false) then user:message("Target had no crown, Telekinesis wasted.") return false else local coordsArray = GetCoordsArray(target:coords()) local x = coordsArray[0] local y = coordsArray[1] user:message("" .. target.m_name .. " has been sensed at " .. x .. y .. "") return true end elseif (itemid == 185) then -- Adv. Telekinesis -- Use and it displays all crowners local crownString = "" for x = 1, g_arena:num() do local player = g_arena:get(x) if (player:crown() == true) then local coordsArray = GetCoordsArray(player:coords()) local x = coordsArray[0] local y = coordsArray[1] crownString = (crownString .. " " .. player.m_name .. ":" .. x .. y .. "") end end if (crownString == "") then user:message("No crowns sensed in the arena, Telekenesis wasted.") return false else user:message("" .. crownString .. "") end elseif (itemid == 81) then -- Burrow -- Change the alien into his burrowing form -- Get him, and his vehicle id, and store in an array local burrowArray = { } burrowArray[0] = user burrowArray[1] = user:getVehicle():vehicletypeid() g_arena:message("" .. burrowArray[1] .. "") -- Change him to the burrow vehicle user:setVehicle(170) -- Give him an item to show how long he's got left user:inventory_modify("Burrowing", 1) -- And start an event to change him back in 5 seconds event_createarg(ChangeBackToOldVehicle, 5000, g_arena, burrowArray) elseif (itemid == 137) then -- Greater Burrow -- Change the alien into his burrowing form -- Get him, and his vehicle id, and store in an array local burrowArray = { } burrowArray[0] = user burrowArray[1] = user:getVehicle():vehicletypeid() g_arena:message("" .. burrowArray[1] .. "") -- Change him to the burrow vehicle user:setVehicle(170) -- Give him an item to show how long he's got left user:inventory_modify("Burrowing!", 1) -- And start an event to change him back in 5 seconds event_createarg(ChangeBackToOldVehicle, 8000, g_arena, burrowArray) elseif (itemid == 138) then -- Permeability -- Get him, and his vehicle id, and store in an array local permArray = { } permArray[0] = user permArray[1] = user:getVehicle():vehicletypeid() -- Change him to the permea vehicle user:setVehicle(159) -- Give him an item to show how long he's got left user:inventory_modify("Permeable", 1) -- And start an event to change him back in 5 seconds event_createarg(ChangeBackToOldVehicle, 5000, g_arena, permArray) elseif (itemid == 139) then -- Enhanced Permeability -- Get him, and his vehicle id, and store in an array local permArray = { } permArray[0] = user permArray[1] = user:getVehicle():vehicletypeid() -- Change him to the permea vehicle user:setVehicle(159) -- Give him an item to show how long he's got left user:inventory_modify("Permeable!", 1) -- And start an event to change him back in 5 seconds event_createarg(ChangeBackToOldVehicle, 8000, g_arena, permArray) elseif (itemid == 244) then -- Give steroids to all the team around you local radius = 50 local players = {} local numplayers = g_arena:GetPlayersInArea(players, user:coords().x, user:coords().y, 50) if (numplayers > 0) then for i = 1, numplayers do local player = players[i] -- Is on the users team? if (player:getTeam().m_name == user:getTeam().m_name) then player:inventory_modify("Steroid Lite",1) end end end elseif (itemid == 57) then g_arena:message("" .. user.m_name .. " has just warped to the DS") elseif (itemid == 25) then g_arena:message("" .. user.m_name .. " has just warped to another player") end return trueendfunction Msg_OnCommand(player, command, payload, recipient, msg_type) if (command == "?breakdown") then --Breakdown(player) player:message("?breakdown not added in yet, to-do") endendfunction ChangeBackToOldVehicle(playerArray) local player = playerArray[0] local oldVehicleID = playerArray[1] if (player:valid()) then player:setVehicle(oldVehicleID) end return trueend function GetCoordsArray(coords) local x = coords.x local y = coords.y local lettercoord = "" local numbercoord = "" x = math.floor((x / 80) / 16) y = ((y / 80) / 16) + 1 local numbercoord = ("" .. math.floor(y) .. "") if (x == 0) then lettercoord = "A" elseif (x == 1) then lettercoord = "B" elseif (x == 2) then lettercoord = "C" elseif (x == 3) then lettercoord = "D" elseif (x == 4) then lettercoord = "E" elseif (x == 5) then lettercoord = "F" elseif (x == 6) then lettercoord = "G" elseif (x == 7) then lettercoord = "H" elseif (x == 8) then lettercoord = "I" elseif (x == 9) then lettercoord = "J" elseif (x == 10) then lettercoord = "K" elseif (x == 11) then lettercoord = "L" elseif (x == 12) then lettercoord = "M" elseif (x == 13) then lettercoord = "N" elseif (x == 14) then lettercoord = "O" elseif (x == 15) then lettercoord = "P" else lettercoord = "LuaError" end local coordsArray = {} coordsArray[0] = lettercoord coordsArray[1] = numbercoord return coordsArrayend function Player_OnJoin(player) player:message("Welcome to the tournament " .. player.m_name .. ", may your weapons of choice serve you well") WipePlayerStats(player)endfunction Vehicle_OnProduce(vehicle, user, menuitem) return trueendfunction DisplayStats(ev) g_bGameRunningStats = false local bestKiller = "" local bestVictim = "" local bestCrowns = "" local bestCon = "" local mostKills = 0 local mostDeaths = 0 local mostCrowns = 0 local mostCon = 0 for x = 1, g_arena:num() do --This gets the person with most kills local player = g_arena:get(x) if (player:getstat(0) > mostKills) then mostKills = player:getstat(0) bestKiller = player.m_name elseif (player:getstat(0) == mostKills) then bestKiller = ("" .. bestKiller .. ", " .. player.m_name .. "") end if (player:getstat(1) > mostDeaths) then mostDeaths = player:getstat(1) bestVictim = player.m_name elseif (player:getstat(1) == mostDeaths) then bestVictim = ("" .. bestVictim .. ", " .. player.m_name .. "") end if (player:getstat(2) > mostDeaths) then mostCrowns = player:getstat(2) bestCrowns = player.m_name elseif (player:getstat(2) == mostCrowns) then bestCrowns = ("" .. bestCrowns .. ", " .. player.m_name .. "") end if (player:getstat(9) > mostCon) then mostCon = player:getstat(9) bestCon = player.m_name elseif (player:getstat(9) == mostCon) then bestCon = ("" .. bestCon .. ", " .. player.m_name .. "") end end ------------------------------------------------------------------------- -- GAME TIME STATISTICS -- if (g_gameTime ~= nil) then local diff = (os.time() - g_gameTime) local minutes = math.floor(diff / 60) if (minutes == 1) then local seconds = (diff-60*math.floor(diff/60)) g_arena:message("Total Game Time: " .. minutes .. " minute, " .. seconds .. " seconds") elseif (minutes > 1) then local seconds = (diff-60*math.floor(diff/60)) g_arena:message("Total Game Time: " .. minutes .. " minutes, " .. seconds .. " seconds") else g_arena:message("Total Game Time: " .. diff .. " seconds") end else g_arena:message("No game is running, weird..") end ------------------------------------------------------------------------ ------------------------------------------------------------------------ -- PLAYER STATISTICS -- if (mostKills == 0) then g_arena:message("!_ No one got any kills!") else g_arena:message("!_ Most Kills: " .. bestKiller .. "(" .. mostKills .. ")") end if (mostCrowns == 0) then g_arena:message("!_ No one got any crowner kills!") else g_arena:message("!_ Most Crowner Kills: " .. bestCrowns .. "(" .. mostCrowns .. ")") end if (mostCon == 0) then g_arena:message("!_ No one got any consecutive kills!") else g_arena:message("!_ Most Consecutive Kills: " .. bestCon .. "(" .. mostCon .. ")") end if (mostDeaths == 0) then g_arena:message("!_ No one got any deaths!") else g_arena:message("!_ Most Deaths: " .. bestVictim .. "(" .. mostDeaths .. ")") end ------------------------------------------------------------------------ return trueendfunction Arena_OnGameEnd() g_bGameRunningArena = false event_destroy(g_crownEvent) g_statsEvent = event_create(DisplayStats, 200, g_arena)endfunction Arena_OnGameStart() g_bGameRunningArena = true g_bGameRunningStats = true g_gameTime = os.time() for x = 1, g_arena:num() do local player = g_arena:get(x) WipePlayerStats(player) end g_testEvent = event_create(Eventt, -100, g_arena)endfunction WipePlayerStats(player) player:setstat(0,0) player:setstat(1,0) player:setstat(2,0) player:setstat(3,0) player:setstat(4,0) player:setstat(5,0) endfunction Player_OnDeath(killer, victim) ----=== STAT CODE ===---- if (g_bGameRunningStats == false) then -- if the game isn't running, don't record stats return elseif (killer:valid() == false) then -- if the killer was a turret/terrain we just increase the death count IncreaseDeath(victim) return elseif (killer.m_name == victim.m_name) then -- if the player killed themself we just increase the death count IncreaseDeath(victim) return else -- else one player killed another player, so we increase the kill count and death count respectively IncreaseKill(killer) IncreaseDeath(victim) end ----=== CROWN CODE ===---- if (victim:getstat(5) == 1) then -- then the victim had a crown local stolecrown = false if (g_bGameRunningArena == false) then-- the game HAS ended, but the stats havn't been shown yet, this means this kill must been the last kill, let them know they killed the last crowner local reward = (g_arena:num() * 10) killer:inventory_modify("expItem", reward) killer:inventory_modify("cashItem", reward) killer:message("!You killed the last crowner! - received " .. reward .. " bonus cash/xp") IncreaseCrownerKill(killer) --TEST CODE:::: To see if we can see who the winning crowner is killer:setstat(5,0) for x = 1, g_arena:num() do local player = g_arena:get(x) if (player:getstat(5) == 1) then g_arena:message("" .. player.m_name .. " was the last crowner...? (test)") end end --::::::::::::::::::::: end if ((killer:getstat(5) == 0) and (killer:crown() == true)) then-- if they didn't have a crown, but they now do, they must have stolen the crown! stolecrown = true killer:setstat(5,1) -- set it so he now shows to have a crown g_arena:message("!" .. killer.m_name .. " has stolen " .. victim.m_name .. "'s crown!") end if (g_bGameRunningArena == true) then CheckCrowns() local reward = ((g_arena:numplaying() - g_numCrowners) * 5) killer:inventory_modify("expItem", reward) killer:inventory_modify("cashItem", reward) killer:message("!You killed 1 of the last " .. (g_crowners + 1).. " crowners - received " .. reward .. " bonus cash/xp") IncreaseCrownerKill(killer) end end victim:setstat(5,0) -- set it so the victim no longer has a crownendfunction UpdateCrownList(ev) for x = 1, g_arena:num() do local player = g_arena:get(x) if (player:crown() == true) then player:setstat(5,1) else player:setstat(5,0) end end return falseendfunction CheckCrowns(ev) local crowners = 0 for x = 1, g_arena:num() do local player = g_arena:get(x) if (player:crown() == true) then player:setstat(5,1) crowners = (crowners + 1) end end g_numCrowners = crowners return falseendfunction IncreaseKill(killer) killer:setstat(0,(killer:getstat(0) + 1)) -- increase kills killer:setstat(3,(killer:getstat(3) + 1)) if (killer:getstat(3) > killer:getstat(8)) then killer:setstat(9,killer:getstat(3)) end local kills = killer:getstat(3) local x = killer:coords().x local y = killer:coords().y if (kills == 2) then -- g_arena:explosion_create("Double Kill", x, y, 0, 0) elseif (kills == 5) then g_arena:explosion_create("Killing Spree", x, y, 0, 0) elseif (kills == 10) then g_arena:explosion_create("Rampage", x, y, 0, 0) elseif (kills == 15) then g_arena:explosion_create("Dominating", x, y, 0, 0) elseif (kills == 20) then g_arena:explosion_create("Unstoppable", x, y, 0, 0) elseif (kills == 25) then g_arena:explosion_create("Slaughter", x, y, 0, 0) elseif (kills == 30) then g_arena:explosion_create("Wicked Sick", x, y, 0, 0) elseif (kills == 35) then g_arena:explosion_create("Holy Shit", x, y, 0, 0) elseif (kills == 40) then g_arena:explosion_create("God Like", x, y, 0, 0) endendfunction IncreaseCrownerKill(killer) killer:setstat(2,(killer:getstat(2) + 1)) -- increase crown killsendfunction IncreaseDeath(victim) victim:setstat(1,(victim:getstat(1) + 1)) -- increase deaths victim:setstat(3,0)end