if (g_arena == nil) then g_arena = nil g_GameTime = nil -- To store team Build Points g_BuildPoints = { } g_BuildPoints["Collective Navy"] = 500 g_BuildPoints["Titan Navy"] = 500 -- To keep track of transactions g_Transactions = { } g_Transactions["Collective Navy"] = { } g_Transactions["Titan Navy"] = { } -- For wormholes to work g_CollectiveWormholeAlpha = { false, nil } g_CollectiveWormholeBeta = { false, nil } g_TitanWormholeAlpha = { false, nil } g_TitanWormholeBeta = { false, nil } -- To keep track of the last time a player withdrew Build Points g_PlayerGetTimes = { }endfunction Reload() dofile("../Fleet_Resources/fleet2.lua")end-- Player statistics for each game-- 1 = kills-- 2 = deaths-- 3 = eljacium asteroids harvested-- 4 = resource deposited-- 5 = vehicles destroyed-- 6 = structures destroyed-- 7 = resources withdrawn -- How do I know when the game has ended? For now I'll display the last games stats when this game beginsfunction PlayerBreakdown(player) player:message("Breakdown of Statistics:") player:message("Total Game Time: " .. os.time() - g_GameTime .. " seconds") player:message("! Kills: " .. player:getStat(1)) player:message("! Deaths: " .. player:getStat(2)) player:message("! Asteroids Harvested: " .. player:getStat(3)) player:message("! Resource Efficiency: " .. (player:getStat(4) - player:getStat(7))) player:message("! Capitals Destroyed: " .. player:getStat(5)) player:message("! Structures Destroyed: " .. player:getStat(6))endfunction Arena_OnCreate(arena) g_arena = arena math.randomseed(os.time())endfunction Player_OnJoin(player) player:message("Welcome to Fleet " .. player.m_name .. "") InitialisePlayerStats(player) RemovePlayerBuildPoints(player)endfunction Msg_OnCommand(player, command, payload, recipient, msg_type) if ((command == "?give") and (player:spectator() == false) and (payload ~= "") and (tonumber(payload) ~= nil)) then local amount = player:inventory_find("Build Points") payload = tonumber(payload) if (amount <= 0) then player:message("You have no Build Points to deposit") return elseif (payload > amount) then player:message("You do not have that many Build Points to deposit") return elseif (payload > 0) then player:message("" .. payload .. " Build Points deposited for the " .. player:getTeam().m_name .. ", there are now " .. (g_BuildPoints[player:getTeam().m_name] + payload) .. " deposited.") player:inventory_modify("Build Points",-payload) g_BuildPoints[player:getTeam().m_name] = g_BuildPoints[player:getTeam().m_name] + payload table.insert( g_Transactions[player:getTeam().m_name], "" .. command .. " " .. payload .. " - " .. player.m_name .."" ) player:setStat(4, player:getStat(4) + payload) return end elseif ((command == "?give") and (player:spectator() == false) and (payload == "")) then local amount = player:inventory_find("Build Points") if (amount > 0) then player:message("" .. amount .. " Build Points deposited for the " .. player:getTeam().m_name .. ", there are now " .. (g_BuildPoints[player:getTeam().m_name] + amount) .. " deposited.") player:inventory_modify("Build Points",-amount) g_BuildPoints[player:getTeam().m_name] = g_BuildPoints[player:getTeam().m_name] + amount table.insert( g_Transactions[player:getTeam().m_name], "" .. command .. " " .. amount .. " - " .. player.m_name .."" ) player:setStat(4, player:getStat(4) + amount) return end elseif ((command == "?get") and (player:spectator() == false) and (payload ~= "") and (tonumber(payload) ~= nil)) then local amountFree = g_BuildPoints[player:getTeam().m_name] payload = tonumber(payload) if (amountFree <= 0) then player:message("Your team has no Build Points") return elseif (payload > amountFree) then player:message("Your team does not have this many Build Points, there are currently " .. g_BuildPoints[player:getTeam().m_name] .. " deposited") return elseif ((payload >= 50) and (payload <= 2200)) then if ( g_PlayerGetTimes[player.m_name] == nil ) then g_PlayerGetTimes[player.m_name] = os.time() elseif ( (os.time() - g_PlayerGetTimes[player.m_name]) < 20 ) then local seconds = (os.time() - g_PlayerGetTimes[player.m_name]) player:message("You're attempting to withdraw Build Points too quick, please wait another " .. (20-seconds) .. " seconds") return else g_PlayerGetTimes[player.m_name] = os.time() end player:message("" .. payload .. " Build Points withdrawn from the " .. player:getTeam().m_name .. ", there are now " .. (g_BuildPoints[player:getTeam().m_name] - payload) .. " deposited.") g_BuildPoints[player:getTeam().m_name] = g_BuildPoints[player:getTeam().m_name] - payload player:inventory_modify("Build Points",payload) table.insert( g_Transactions[player:getTeam().m_name], "" .. command .. " " .. payload .. " - " .. player.m_name .."" ) player:setStat(7, player:getStat(7) + payload) elseif (payload > 2200) then player:message("You are only allowed to withdraw up to 2200 BP") elseif (payload < 50) then player:message("You are only allowed to withdraw a minimum of 50 BP") end elseif ((command == "?get") and (player:spectator() == false) and (payload == "")) then local amountFree = g_BuildPoints[player:getTeam().m_name] if (amountFree >= 50) then if ( g_PlayerGetTimes[player.m_name] == nil ) then g_PlayerGetTimes[player.m_name] = os.time() elseif ( (os.time() - g_PlayerGetTimes[player.m_name]) < 20 ) then local seconds = (os.time() - g_PlayerGetTimes[player.m_name]) player:message("You're attempting to withdraw Build Points too quick, please wait another " .. (20-seconds) .. " seconds") return else g_PlayerGetTimes[player.m_name] = os.time() end player:message("" .. 50 .. " Build Points withdrawn from the " .. player:getTeam().m_name .. ", there are now " .. (g_BuildPoints[player:getTeam().m_name] - 50) .. " deposited.") g_BuildPoints[player:getTeam().m_name] = g_BuildPoints[player:getTeam().m_name] - 50 player:inventory_modify("Build Points",50) table.insert( g_Transactions[player:getTeam().m_name], "" .. command .. " " .. 50 .. " - " .. player.m_name .."" ) player:setStat(7, player:getStat(7) + 50) end elseif ((command == "?history") and (player:spectator() == false)) then local total = table.getn( g_Transactions[player:getTeam().m_name] ) if (total > 9) then for i = total-9, total do player:message("*" .. g_Transactions[player:getTeam().m_name][i] .. "") end else for i = 1, total do player:message("*" .. g_Transactions[player:getTeam().m_name][i] .. "") end end elseif ((command == "?resources") and (player:spectator() == false)) then player:message("" .. g_BuildPoints[player:getTeam().m_name] .. " Build Points currently stored") elseif (command == "?view") then local target = g_arena:getPlayer(recipient) if (target:valid() == true) then if (player:getTeam().m_name == target:getTeam().m_name) then player:message("*" .. target.m_name .. " has " .. target:inventory_find("Build Points") .. " Build Points") end end elseif (command == "?viewall") then local team = player:getTeam().m_name for i = 1, g_arena:num() do local target = g_arena:get(i) if ((target:getTeam().m_name == team) and (target:inventory_find("Build Points") >= 200) and (player.m_name ~= target.m_name)) then player:message("*" .. target.m_name .. " has " .. target:inventory_find("Build Points") .. " Build Points") end end elseif (command == "?breakdown") then PlayerBreakdown(player) endendfunction Vehicle_OnDeath(vehicle, killer) local vid = nil vid = vehicle:vehicletypeid() if (vid == nil) then return true elseif (vid == 417) then c = vehicle:coords() local numOres = math.random(4,8) for i = 1, numOres do local xChange = math.random(-300, 300) local yChange = math.random(-300, 300) g_arena:item_create("Eljaycium Ore",1,(xChange + c.x),(yChange + c.y)) end if (killer:valid() == true) then killer:setStat(3, killer:getStat(3) + 1) end elseif (vid == 418) then -- Collective Wormhole Alpha g_CollectiveWormholeAlpha = { false, nil } if (killer:valid() == true) then killer:setStat(6, killer:getStat(6) + 1) end elseif (vid == 420) then -- Collective Wormhole Beta g_CollectiveWormholeBeta = { false, nil } if (killer:valid() == true) then killer:setStat(6, killer:getStat(6) + 1) end elseif (vid == 419) then -- Titan Wormhole Alpha g_TitanWormholeAlpha = { false, nil } if (killer:valid() == true) then killer:setStat(6, killer:getStat(6) + 1) end elseif (vid == 421) then -- Titan Wormhole Beta g_TitanWormholeBeta = { false, nil } if (killer:valid() == true) then killer:setStat(6, killer:getStat(6) + 1) end elseif ( (vid == 108) or (vid == 107) or (vid == 111) or (vid == 113) or (vid == 101) or (vid == 104) or (vid == 115) or (vid == 112) or (vid == 110) ) then --Collie cap ship destroyed if (killer:valid() == true) then killer:setStat(5, killer:getStat(5) + 1) end elseif ( (vid == 114) or (vid == 207) or (vid == 108) or (vid == 211) or (vid == 201) or (vid == 204) or (vid == 109) or (vid == 209) or (vid == 213) or (vid == 210) ) then --Titan cap ship destroyed if (killer:valid() == true) then killer:setStat(5, killer:getStat(5) + 1) end elseif ( (vid == 401) or (vid == 409) or (vid == 400) or (vid == 403) or (vid == 405) or (vid == 413) or (vid == 415) or (vid == 404) ) then --Collie base structure destroyed if (killer:valid() == true) then killer:setStat(6, killer:getStat(6) + 1) end elseif ( (vid == 411) or (vid == 406) or (vid == 407) or (vid == 408) or (vid == 410) or (vid == 414) or (vid == 416) or (vid == 412) ) then --Titan base structure destroyed if (killer:valid() == true) then killer:setStat(6, killer:getStat(6) + 1) end end return trueendfunction On_FlagGameStart() g_BuildPoints["Collective Navy"] = 500 g_BuildPoints["Titan Navy"] = 500 g_Transactions["Collective Navy"] = { } g_Transactions["Titan Navy"] = { } g_CollectiveWormholeAlpha = { false, nil } g_CollectiveWormholeBeta = { false, nil } g_TitanWormholeAlpha = { false, nil } g_TitanWormholeBeta = { false, nil } g_PlayerGetTimes = { } g_GameTime = os.time() --// Clear Stats for i = 1, g_arena:num() do local player = g_arena:get(i) InitialisePlayerStats(player) if (player:spectator() == true) then RemovePlayerBuildPoints(player) end endendfunction Player_OnDeath(killer, victim) if (victim:valid() == true) then local amount = victim:inventory_find("Eljaycium Ore") if (amount >= 1) then local c = victim:coords() victim:inventory_modify("Eljaycium Ore",-amount) g_arena:item_create("Eljaycium Ore",amount,c.x,c.y) end end -- Increase number of deaths victim:setStat(2, victim:getStat(2) + 1) -- Increase number of kills if (killer:valid() == true) then if (killer.m_name ~= victim.m_name) then killer:setStat(1, killer:getStat(1) + 1) end endendfunction Vehicle_OnProduce(vehicle,user,menuitem) -- Produce Menu Item Reservations For Wormholes -- 13 - Collective Alpha Wormhole -- 14 - Collective Beta Wormhole -- 15 - Titan Alpha Wormhole -- 16 - Titan Beta Wormhole if (menuitem == 12) then -- Collective Alpha Wormhole if (g_CollectiveWormholeAlpha[1] == false) then user:message("Wormhole Activated") g_CollectiveWormholeAlpha[1] = true g_CollectiveWormholeAlpha[2] = user:coords() return false else if (g_CollectiveWormholeBeta[1] == false) then user:message("The other end of this wormhole is inactive or unstable") return false else local playerc = user:coords() g_arena:explosion_create("WarpEffectIn",playerc.x, playerc.y, 1) local c = g_CollectiveWormholeBeta[2] user:warp(c.x, c.y, 50) return true end end elseif (menuitem == 13) then -- Collective Beta Wormhole if (g_CollectiveWormholeBeta[1] == false) then user:message("Wormhole Activated") g_CollectiveWormholeBeta[1] = true g_CollectiveWormholeBeta[2] = user:coords() return false else if (g_CollectiveWormholeAlpha[1] == false) then user:message("The other end of this wormhole is inactive or unstable") return false else local playerc = user:coords() g_arena:explosion_create("WarpEffectIn",playerc.x, playerc.y, 1) local c = g_CollectiveWormholeAlpha[2] user:warp(c.x, c.y, 50) return true end end elseif (menuitem == 14) then -- Titan Alpha Wormhole if (g_TitanWormholeAlpha[1] == false) then user:message("Wormhole Activated") g_TitanWormholeAlpha[1] = true g_TitanWormholeAlpha[2] = user:coords() return false else if (g_TitanWormholeBeta[1] == false) then user:message("The other end of this wormhole is inactive or unstable") return false else local playerc = user:coords() g_arena:explosion_create("WarpEffectIn",playerc.x, playerc.y, 1) local c = g_TitanWormholeBeta[2] user:warp(c.x, c.y, 50) return true end end elseif (menuitem == 15) then -- Titan Beta Wormhole if (g_TitanWormholeBeta[1] == false) then user:message("Wormhole Activated") g_TitanWormholeBeta[1] = true g_TitanWormholeBeta[2] = user:coords() return false else if (g_TitanWormholeAlpha[1] == false) then user:message("The other end of this wormhole is inactive or unstable") return false else local playerc = user:coords() g_arena:explosion_create("WarpEffectIn",playerc.x, playerc.y, 1) local c = g_TitanWormholeAlpha[2] user:warp(c.x, c.y, 50) return true end end end return trueendfunction InitialisePlayerStats(player) for i = 1, 7 do player:setStat(i, 0) endendfunction RemovePlayerBuildPoints(player) if (player:valid() == true) then local amount = player:inventory_find("Build Points") if (amount > 0) then player:inventory_modify("Build Points",-amount) end endend