--- Basic lua scipt--- Syco --- 09.11.06-- Player stat settings-- 0 - Kills-- 1 - Deaths-- 2 - items picked up-- 3 - current consecutive kills-- 4 - vehicles destroyed-- 5 - -- 6 - -- 7 --- 8 - -- 9 -- highest consecutive killsg_arena = nil -- holds the arena objcetg_state = nil -- The global arena class, to avoid having to pass it around functionsg_bGameRunning = false -- says whether the game is running or notg_statsEvent = 0 -- holds the event for displaying stats when the game endsg_gameTime = nil -- holds the game timeg_event = 0g_table = { } -- global tableg_titanscore = 1000g_colliescore = 1000function Player_OnWarpItem(user, itemid, target) if (itemid == 30) then g_arena:message("Do warp items work?") return true elseif (itemid == 13) then Teleport(user,300) end return trueendfunction Arena_OnCreate(arena) -- Set our global value g_arena = arena -- Initialize random math.randomseed(os.time()) -- Use our own game dynamic local cfg = GameSettings() cfg.minplayers = 1 cfg.gamedelay = 10 cfg.str_pregame = "Game starting in " cfg.str_noplayers = "Not Enough Players" cfg.bDesertedGameEnd = false cfg.bIngameTicker = true cfg.tckrUpdateSpacing = 10000 g_state = g_arena:Takeover_State(cfg)endfunction Arena_TickerUpdate() g_state:SetNotice(0, "Collective=" .. g_colliescore .. " | Titan=" .. g_titanscore .. "")endfunction Syco() local syco = g_arena:getPlayer("Syco").m_name g_table["syco"] = "Hi This Is Syco's Personal Message" g_arena:message("" .. g_table["syco"] .. "")endfunction Event(ev) g_arena:message("test") return falseendfunction startevent(player) g_event = event_create(Event, -1000, g_arena) event_createarg(Event, -500, g_arena, player.m_base)endfunction endevent() event_flush(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) player:setstat(6,0) player:setstat(7,0) player:setstat(8,0) player:setstat(9,0)endfunction Player_OnJoin(player) player:message("Welcome to the Battlefield " .. player.m_name .. "") WipePlayerStats(player) player:inventory_modify("Jedi",1)endfunction Vehicle_OnProduce(vehicle, user, menuitem) return trueendfunction LinkItem(player,distance,vid) local c = player:coords() local facing = math.rad(c.rotation * 1.5) -- We want to get it so we have 360 degrees, the current vehicle has 240 frames, so we times it by 1.5. -- 360 degrees / 240 frames = 1.5 ratio local xpos = (c.x + (distance * (math.sin(facing)))) local ypos = (c.y - (distance * (math.cos(facing)))) g_arena:vehicle_create(vid, xpos, ypos, 0)endfunction Teleport(player,distance) local c = player:coords() local facing = math.rad(c.rotation * 1.5) -- We want to get it so we have 360 degrees, the current vehicle has 240 frames, so we times it by 1.5. -- 360 degrees / 240 frames = 1.5 ratio local xpos = (c.x + (distance * (math.sin(facing)))) local ypos = (c.y - (distance * (math.cos(facing)))) player:warp(xpos,ypos,c.rotation)endfunction Msg_OnCommand(player, command, payload, recipient, msg_type) --if ( ((msg_type == 0) or (msg_type == 1)) and (command == "?breakdown") ) then if (command == "?break") then Breakdown(player) elseif (command == "?syco") then g_arena:message("Does ?syco work?") elseif (command == "?start") then elseif (command == "?vehicle") then g_arena:message("VehicleId: " .. player:getVehicle():vehicleid() .. "") g_arena:message("VehicleTypeId: " .. player:getVehicle():vehicletypeid() .. "") elseif (command == "?warp") then for x = 1, g_arena:num() do --This gets the person with most kills local player2 = g_arena:get(x) if (player2.m_name == payload) then player:warp(player2:coords().x, player2:coords().y, 1) end end endendfunction Item_OnPickUp(looter, loot, loot_type, amounttopickup) IncreasePickUp(looter)end-- used for checking coordsfunction Check(a) local s = g_arena:getPlayer("syco") local c = s:coords() local x1 = 2032 local x2 = 2320 local y1 = 5488 local y2 = 5680 g_arena:message("!Checking for matching coords..") if ( (c.x > x1) and (c.x < x2) and (c.y > y1) and (c.y < y2) ) then g_arena:message("Found!") endendfunction DisplayStats(ev) --g_bGameRunning = false local bestKiller = "" local bestVictim = "" local bestItem = "" local bestCon = "" local mostKills = 0 local mostDeaths = 0 local mostItems = 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) > mostItems) then mostItems = player:getstat(2) bestItem = player.m_name elseif (player:getstat(2) == mostItems) then bestItem = ("" .. bestItem .. ", " .. 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 (mostCon == 0) then g_arena:message("!_ No one got any consecutive kills!") else g_arena:message("!_ Most Consecutive Kills: " .. bestCon .. "(" .. mostCon .. ")") end if (mostItems == 0) then g_arena:message("!_ No one picked any items up!") else g_arena:message("!_ Most Items Picked Up: " .. bestItem .. "(" .. mostItems .. ")") end if (mostDeaths == 0) then g_arena:message("!_ No one got any deaths!") else g_arena:message("!_ Most Deaths: " .. bestVictim .. "(" .. mostDeaths .. ")") end ------------------------------------------------------------------------endfunction Arena_OnGameEnd() local blah = 0 g_statsEvent = event_create(DisplayStats, 1000, g_arena)endfunction Arena_OnGameStart() g_bGameRunning = true g_gameTime = os.time() g_arena:message("has the game started??.testterr..") for x = 1, g_arena:num() do local player = g_arena:get(x) WipePlayerStats(player) endendfunction Player_OnDeath(killer, victim) if (g_bGameRunning == 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 end -- else one player killed another player, so we increase the kill count and death count respectively IncreaseKill(killer) IncreaseDeath(victim) if (victim:getTeam().m_name == "Titan Militia") then g_titanscore = (g_titanscore - 1) elseif (victim:getTeam().m_name == "Collective Military") then g_colliescore = (g_colliescore - 1) endendfunction IncreaseKill(killer) killer:setstat(0,(killer:getstat(0) + 1)) -- increase kills killer:setstat(3,(killer:getstat(3) + 1)) -- increase consec kills if (killer:getstat(3) > killer:getstat(9)) then -- if current consec kills is greater than highest consec kills, replace it killer:setstat(9,killer:getstat(3)) endendfunction IncreaseDeath(victim) victim:setstat(1,(victim:getstat(1) + 1)) -- increase deaths victim:setstat(3,0) -- reset consecutive killsendfunction IncreasePickUp(looter) looter:setstat(2,(looter:getstat(2) + 1))end--function Vehicle_OnProduce(player, menuitem) -- if (menuitem == 0) then -- local c = player:coords() -- g_arena:explosion_create("Kill Laser -Inactive", c.x, c.y, c.rotation) -- elseif (menuitem == 1) then -- local c = player:coords() -- g_arena:explosion_create("Kill Laser", c.x, c.y, c.rotation) -- end -- return true--endfunction Vehicle_OnDeath(victim, killer, itemid) if (victim:vehicletypeid() == 400) then killer:warp(victim:coords().x,victim:coords().y,1) return endend