--Creator: AelitePrime

    --Script Name: Colored Team Gametypes Script

    --Website: http://phasorscripts.wordpress.com/

    --Xfire: eliteprime14789x

        --Included Scripts: Nuggetz sendconsoletext overload

        --Version: 1.0

 

 

allow_change, colors_random, gametype = {}, {}, {}  -- do not touch

team_color, friendly_fire, object_respawn_time = {}, {}, {}  -- do not touch

max_flags, betray_kill, suicide_kill = {}, {}, {}  -- do not touch

max_score, spawn_with_team, timelimit = {}, {}, {} -- do not touch

 

 

 

welcome_message = "Welcome to Colored Team Gametypes. Your team color is %s" -- Message when the player joins telling them what team color they are.

teamchange_message = "You have just changed teams. Your team color is " -- Tells the player they have switched teams and the color their team is

slayer_message = "Script Gametype: Team Slayer" -- Message when gametype is teamslayer

ctf_message =  "Script Gametype: CTF" -- Message when gametype is ctf

 

 

allow_change.           beavercreek             =               false -- battle creek

allow_change.           bloodgulch                      =               false

allow_change.           boardingaction          =               false

allow_change.           carousel                        =               false -- derelict

allow_change.           chillout                        =               false

allow_change.           damnation                       =               false

allow_change.           dangercanyon            =               false

allow_change.           deathisland             =               false

allow_change.           gephyrophobia           =               false

allow_change.           hangemhigh                      =               false

allow_change.           icefields                       =               false

allow_change.           infinity                        =               false

allow_change.           longest                         =               false

allow_change.           prisoner                        =               false

allow_change.           putput                          =               false -- chiron tl34

allow_change.           ratrace                         =               false

allow_change.           sidewinder                      =               false

allow_change.           timberland                      =               false

allow_change.           wizard                          =               false

 

colors_random.          beavercreek             =               false -- battle creek

colors_random.          bloodgulch                      =               false

colors_random.          boardingaction          =               false

colors_random.          carousel                        =               false -- derelict

colors_random.          chillout                        =               false

colors_random.          damnation                       =               false

colors_random.          dangercanyon            =               false

colors_random.          deathisland             =               false

colors_random.          gephyrophobia           =               false

colors_random.          hangemhigh                      =               false

colors_random.          icefields                       =               false

colors_random.          infinity                        =               false

colors_random.          longest                         =               false

colors_random.          prisoner                        =               false

colors_random.          putput                          =               false -- chiron tl34

colors_random.          ratrace                         =               false

colors_random.          sidewinder                      =               false

colors_random.          timberland                      =               false

colors_random.          wizard                          =               false

 

gametype.               beavercreek             =               "ctf" -- battle creek

gametype.               bloodgulch                      =               "ctf"

gametype.               boardingaction          =               "ctf"

gametype.               carousel                        =               "ctf" -- derelict

gametype.               chillout                        =               "ctf"

gametype.               damnation                       =               "ctf"

gametype.               dangercanyon            =               "ctf"

gametype.               deathisland             =               "ctf"

gametype.               gephyrophobia           =               "ctf"

gametype.               hangemhigh                      =               "ctf"

gametype.               icefields                       =               "ctf"

gametype.               infinity                        =               "ctf"

gametype.               longest                         =               "ctf"

gametype.               prisoner                        =               "ctf"

gametype.               putput                          =               "ctf" -- chiron tl34

gametype.               ratrace                         =               "ctf"

gametype.               sidewinder                      =               "ctf"

gametype.               timberland                      =               "ctf"

gametype.               wizard                          =               "ctf"

 

team_color.             beavercreek             =               {"cyan", "pink"} -- battle creek

team_color.             bloodgulch                      =               {"cyan", "pink"}

team_color.             boardingaction          =               {"cyan", "pink"}

team_color.             carousel                        =               {"cyan", "pink"} -- derelict

team_color.             chillout                        =               {"cyan", "pink"}

team_color.             damnation                       =               {"cyan", "pink"}

team_color.             dangercanyon            =               {"cyan", "pink"}

team_color.             deathisland             =               {"cyan", "pink"}

team_color.             gephyrophobia           =               {"cyan", "pink"}

team_color.             hangemhigh                      =               {"cyan", "pink"}

team_color.             icefields                       =               {"cyan", "pink"}

team_color.             infinity                        =               {"cyan", "pink"}

team_color.             longest                         =               {"cyan", "pink"}

team_color.             prisoner                        =               {"cyan", "pink"}

team_color.             putput                          =               {"cyan", "pink"} -- chiron tl34

team_color.             ratrace                         =               {"cyan", "pink"}

team_color.             sidewinder                      =               {"cyan", "pink"}

team_color.             timberland                      =               {"cyan", "pink"}

team_color.             wizard                          =               {"cyan", "pink"}

 

timelimit.              beavercreek             =               30 -- battle creek

timelimit.              bloodgulch                      =               30

timelimit.              boardingaction          =               30

timelimit.              carousel                        =               30 -- derelict

timelimit.              chillout                        =               30

timelimit.              damnation                       =               30

timelimit.              dangercanyon            =               30

timelimit.              deathisland             =               30

timelimit.              gephyrophobia           =               30

timelimit.              hangemhigh                      =               30

timelimit.              icefields                       =               30

timelimit.              infinity                        =               30

timelimit.              longest                         =               30

timelimit.              prisoner                        =               30

timelimit.              putput                          =               30 -- chiron tl34

timelimit.              ratrace                         =               30

timelimit.              sidewinder                      =               30

timelimit.              timberland                      =               30

timelimit.              wizard                          =               30

 

friendly_fire.          beavercreek             =               false -- battle creek

friendly_fire.          bloodgulch                      =               false

friendly_fire.          boardingaction          =               false

friendly_fire.          carousel                        =               false -- derelict

friendly_fire.          chillout                        =               false

friendly_fire.          damnation                       =               false

friendly_fire.          dangercanyon            =               false

friendly_fire.          deathisland             =               false

friendly_fire.          gephyrophobia           =               false

friendly_fire.          hangemhigh                      =               false

friendly_fire.          icefields                       =               false

friendly_fire.          infinity                        =               false

friendly_fire.          longest                         =               false

friendly_fire.          prisoner                        =               false

friendly_fire.          putput                          =               false -- chiron tl34

friendly_fire.          ratrace                         =               false

friendly_fire.          sidewinder                      =               false

friendly_fire.          timberland                      =               false

friendly_fire.          wizard                          =               false

 

 

object_respawn_time.            beavercreek             =               30 -- battle creek

object_respawn_time.            bloodgulch                      =               30

object_respawn_time.            boardingaction          =               30

object_respawn_time.            carousel                        =               30 -- derelict

object_respawn_time.            chillout                        =               30

object_respawn_time.            damnation                       =               30

object_respawn_time.            dangercanyon            =               30

object_respawn_time.            deathisland             =               30

object_respawn_time.            gephyrophobia           =               30

object_respawn_time.            hangemhigh                      =               30

object_respawn_time.            icefields                       =               30

object_respawn_time.            infinity                        =               30

object_respawn_time.            longest                         =               30

object_respawn_time.            prisoner                        =               30

object_respawn_time.            putput                          =               30 -- chiron tl34

object_respawn_time.            ratrace                         =               30

object_respawn_time.            sidewinder                      =               30

object_respawn_time.            timberland                      =               30

object_respawn_time.            wizard                          =               30

 

max_flags.              beavercreek             =               3 -- battle creek

max_flags.              bloodgulch                      =               3

max_flags.              boardingaction          =               3

max_flags.              carousel                        =               3 -- derelict

max_flags.              chillout                        =               3

max_flags.              damnation                       =               3

max_flags.              dangercanyon            =               3

max_flags.              deathisland             =               3

max_flags.              gephyrophobia           =               3

max_flags.              hangemhigh                      =               3

max_flags.              icefields                       =               3

max_flags.              infinity                        =               3

max_flags.              longest                         =               3

max_flags.              prisoner                        =               3

max_flags.              putput                          =               3 -- chiron tl34

max_flags.              ratrace                         =               3

max_flags.              sidewinder                      =               3

max_flags.              timberland                      =               3

max_flags.              wizard                          =               3

 

 

betray_kill.            beavercreek             =               false -- battle creek

betray_kill.            bloodgulch                      =               false

betray_kill.            boardingaction          =               false

betray_kill.            carousel                        =               false -- derelict

betray_kill.            chillout                        =               false

betray_kill.            damnation                       =               false

betray_kill.            dangercanyon            =               false

betray_kill.            deathisland             =               false

betray_kill.            gephyrophobia           =               false

betray_kill.            hangemhigh                      =               false

betray_kill.            icefields                       =               false

betray_kill.            infinity                        =               false

betray_kill.            longest                         =               false

betray_kill.            prisoner                        =               false

betray_kill.            putput                          =               false -- chiron tl34

betray_kill.            ratrace                         =               false

betray_kill.            sidewinder                      =               false

betray_kill.            timberland                      =               false

betray_kill.            wizard                          =               false

 

suicide_kill.           beavercreek             =               false -- battle creek

suicide_kill.           bloodgulch                      =               false

suicide_kill.           boardingaction          =               false

suicide_kill.           carousel                        =               false -- derelict

suicide_kill.           chillout                        =               false

suicide_kill.           damnation                       =               false

suicide_kill.           dangercanyon            =               false

suicide_kill.           deathisland             =               false

suicide_kill.           gephyrophobia           =               false

suicide_kill.           hangemhigh                      =               false

suicide_kill.           icefields                       =               false

suicide_kill.           infinity                        =               false

suicide_kill.           longest                         =               false

suicide_kill.           prisoner                        =               false

suicide_kill.           putput                          =               false -- chiron tl34

suicide_kill.           ratrace                         =               false

suicide_kill.           sidewinder                      =               false

suicide_kill.           timberland                      =               false

suicide_kill.           wizard                          =               false

 

max_score.              beavercreek             =               50 -- battle creek

max_score.              bloodgulch                      =               50

max_score.              boardingaction          =               50

max_score.              carousel                        =               50 -- derelict

max_score.              chillout                        =               50

max_score.              damnation                       =               50

max_score.              dangercanyon            =               50

max_score.              deathisland             =               50

max_score.              gephyrophobia           =               50

max_score.              hangemhigh                      =               50

max_score.              icefields                       =               50

max_score.              infinity                        =               50

max_score.              longest                         =               50

max_score.              prisoner                        =               50

max_score.              putput                          =               50 -- chiron tl34

max_score.              ratrace                         =               50

max_score.              sidewinder                      =               50

max_score.              timberland                      =               50

max_score.              wizard                          =               50

 

spawn_with_team.                beavercreek             =               false -- battle creek

spawn_with_team.                bloodgulch                      =               false

spawn_with_team.                boardingaction          =               false

spawn_with_team.                carousel                        =               false -- derelict

spawn_with_team.                chillout                        =               false

spawn_with_team.                damnation                       =               false

spawn_with_team.                dangercanyon            =               false

spawn_with_team.                deathisland             =               false

spawn_with_team.                gephyrophobia           =               false

spawn_with_team.                hangemhigh                      =               false

spawn_with_team.                icefields                       =               false

spawn_with_team.                infinity                        =               false

spawn_with_team.                longest                         =               false

spawn_with_team.                prisoner                        =               false

spawn_with_team.                putput                          =               false -- chiron tl34

spawn_with_team.                ratrace                         =               false

spawn_with_team.                sidewinder                      =               false

spawn_with_team.                timberland                      =               false

spawn_with_team.                wizard                          =               false

 

 

path = getprofilepath()

 

colorspawn = {}

last_killer = nil

first = {}

target = {}

player_scores = {}

score = {}

second = {}

spawns = {}

object_respawn_timer = nil

script_loaded = false

count1 = 0

count2 = 0

 

color_table = {}

color_table[0] = "White"

color_table[1] = "Black"

color_table[2] = "Red"

color_table[3] = "Blue"

color_table[4] = "Gray"

color_table[5] = "Yellow"

color_table[6] = "Green"

color_table[7] = "Pink"

color_table[8] = "Purple"

color_table[9] = "Cyan"

color_table[10] = "Cobalt"

color_table[11] = "Orange"

color_table[12] = "Teal"

color_table[13] = "Sage"

color_table[14] = "Brown"

color_table[15] = "Tan"

color_table[16] = "Maroon"

color_table[17] = "Salmon"

 

function GetRequiredVersion()

        return 200

 

function OnScriptLoad(process, game, persistent)

        if game == "PC" or game == true then

                GAME = "PC"

        else

                GAME = "CE"

        end

        if GAME == "PC" then

                map_name = readstring(0x698F21)

                slayer_globals = 0x63A0E8

                gametype_base = 0x671340

                gametime_base = 0x671420

                timelimit_address = 0x626630

                slayer_score_patch = 0x48F428

        else

                map_name = readstring(0x61D151)

                slayer_globals = 0x5BE108

                gametype_base = 0x5F5498

                gametime_base = 0x5F55BC

                timelimit_address = 0x5AA5B0

                slayer_score_patch = 0x469CF8

        end

        if map_name then

        if allow_change[map_name] == nil then

            allow_change[map_name] = false

        end

        if colors_random[map_name] == nil then

            colors_random[map_name] = true

        end

        if gametype[map_name] == nil then

            gametype[map_name] = "ctf"

        end

        if team_color[map_name] == nil then

            team_color[map_name] = false

        end

        if friendly_fire[map_name] == nil then

                        friendly_fire[map_name] = false

                end

        if timelimit[map_name] == nil then

                        timelimit[map_name] = 30

                end

        if object_respawn_time[map_name] == nil then

                        object_respawn_time[map_name] = 30

                end

        if max_flags[map_name] == nil then

                        max_flags[map_name] = 3

                end

        if betray_kill[map_name] == nil then

                        betray_kill[map_name] = false

                end

        if suicide_kill[map_name] == nil then

                        suicide_kill[map_name] = false

                end

        if max_score[map_name] == nil then

                        max_score[map_name] = 50

                end

        if spawn_with_team[map_name] == nil then

                        spawn_with_team[map_name] = false

                end

    end

        local file = io.open(path .. "\\data\\colored-data.data","r")

        if not file then createData()

        else file:close()

        end

        registertimer(0, "NewGame", true)

 

function OnScriptUnload()

        writebyte(slayer_score_patch, 0x74)

 

function OnNewGame(map)

    map_name = map

        if map_name then

            -- If the map is not located in any of the tables, default settings will be set.

        if allow_change[map_name] == nil then

            allow_change[map_name] = false

        end

        if colors_random[map_name] == nil then

            colors_random[map_name] = true

        end

        if gametype[map_name] == nil then

            gametype[map_name] = "ctf"

        end

        if team_color[map_name] == nil then

            team_color[map_name] = false

        end

        if friendly_fire[map_name] == nil then

                        friendly_fire[map_name] = false

                end

        if timelimit[map_name] == nil then

                        timelimit[map_name] = 30

                end

        if object_respawn_time[map_name] == nil then

                        object_respawn_time[map_name] = 30

                end

        if max_flags[map_name] == nil then

                        max_flags[map_name] = 3

                end

        if betray_kill[map_name] == nil then

                        betray_kill[map_name] = false

                end

        if suicide_kill[map_name] == nil then

                        suicide_kill[map_name] = false

                end

        if max_score[map_name] == nil then

                        max_score[map_name] = 50

                end

        if spawn_with_team[map_name] == nil then

                        spawn_with_team[map_name] = false

                end

    end

    registertimer(0, "NewGame", true)

 

function OnGameEnd(stage)

        script_loaded = false

        if stage == 1 then

                if object_respawn_timer then

                        removetimer(object_respawn_timer)

                        object_respawn_timer = nil

                end

                if gametype[map_name] == "teamslayer" then

                        Say(getname(last_killer) .. " got the winning kill")

                end

                if score[1] > score[2] then

                        Say(color_table[Team_Color_1] .. " team has won the game!")

                elseif score[1] < score[2] then

                        Say(color_table[Team_Color_2] .. " team has won the game!")

                end

        end

 

function OnServerChat(player, type, message)

        local response = nil

        if message == "changeteam" and allow_change[map_name] then

                response = false

                local team,key = getteam(player)

                if team == 1 then

                        table.remove(first, key)

                        table.insert(second, player)

                else

                        table.remove(second, key)

                        table.insert(first, player)

                end

                registertimer(0, "SetColor", {player, false})

                local team1,key1,color = getteam(player)

                sendconsoletext(player, teamchange_message .. color, nil, nil, "center")

                if target[team].playerholder ~= nil then setNav(player, team) end

                local m_player = getplayer(player)

                writebyte(m_player + 0x20, team1)

                writebyte(m_player + 0x66, team1)

        elseif message == "changeteam" and not allow_change[map_name] then

                sendconsoletext(player, "You cannot switch teams!", nil, nil, "center")

        end

        return response

 

function OnServerCommand(player, command)

        local response = nil

        local t = tokenizecmdstring(command)

        local count = #t

        if t[1] == "sv_script_reload" then

        if gametype[map_name] == "ctf" then

                if target[1].object then destroyobject(target[1].object) end

                if target[2].object then destroyobject(target[2].object) end

        end

        elseif t[1] == "sv_map_reset" then

                if gametype[map_name] == "ctf" then

                        if target[1].object then destroyobject(target[1].object) end

                        if target[2].object then destroyobject(target[2].object) end

                end

                target = {}

                player_scores = {}

                score = {}

                spawns = {}

                object_respawn_timer = nil

                count1 = 0

                count2 = 0

                registertimer(0, "NewGame", false)

        elseif t[1] == "sv_changeteamcolor" then

                response = false

                Command_ChangeTeamColor(player, t[1], t[2], t[3], count)

        elseif t[1] == "sv_changeteam" then

                response = false

                Command_ChangePlayerTeam(player, t[1], t[2], count)

        end

        return response

 

function OnPlayerJoin(player)

        if #first > #second then table.insert(second, player)

        else table.insert(first, player)

        end

        registertimer(0, "SetColor", {player, true})

        local team,key,color = getteam(player)

        local msg = string.format(welcome_message, color)

        sendconsoletext(player, msg, nil, nil, "center")

        local msg = ""

        if gametype[map_name] == "ctf" then

            msg = ctf_message

        elseif gametype[map_name] == "teamslayer" then

            msg = slayer_message

        end

        sendconsoletext(player, msg, nil, nil, "center")

        local m_player = getplayer(player)

        writebyte(m_player + 0x20, team)

        writebyte(m_player + 0x66, team)

        writeword(m_player + 0x88, player)

 

function OnPlayerLeave(player)

        local team,key = getteam(player)

        if team == 1 then

            table.remove(first, key)

        else

            table.remove(second, key)

        end

 

function OnPlayerSpawn(player)

        local m_objectId = getplayerobjectid(player)

        if m_objectId then

                if colorspawn[player] == nil then

                        colorspawn[player] = {}

                elseif colorspawn[player][1] then

                        movobjectcoords(m_objectId, colorspawn[player][1], colorspawn[player][2], colorspawn[player][3])

                        colorspawn[player] = {}

                        return

                end

                if spawn_with_team then

                local team = getteam(player)

                local r

                if team == 1 then

                r = getrandomnumber(0, count1-1)

                else

                    r = getrandomnumber(0, count2-1)

                end

                movobjectcoords(m_objectId, spawns[team][r].x, spawns[team][r].y, spawns[team][r].z)

        end

        end

 

function OnObjectInteraction(player, objId, mapId)

        if gametype[map_name] == "ctf" then

                local team = getteam(player)

                local o_team

                if team == 1 then

                    o_team = 2

                else

                    o_team = 1

                end

                if objId == target[team].object then

                        local m_objectId = getplayerobjectid(player)

                        if m_objectId then

                                if not check_sphere(m_objectId, target[team].x, target[team].y, target[team].z, 1.0) then

                                        sayteam("Your team has returned the flag!", team, player)

                                        sayteam("The other team has returned their flag!", o_team)

                                        sendconsoletext(player, "You have returned the flag", nil, nil, "center")

                                        destroyobject(objId)

                                        target[team].object = createobject(object_tag_id, 0, object_respawn_time, true, target[team].x , target[team].y, target[team].z)

                                        target[o_team].boolean = true

                                        target[o_team].playerholder = nil

                                        resetNavs(team)

                                elseif playerisholding(player, o_team) and check_sphere(m_objectId, target[team].x, target[team].y, target[team].z, 1.0) then

                                        local ip = getip(player)

                                        if player_scores[ip] == nil then player_scores[ip] = 0 end

                                        player_scores[ip] = player_scores[ip] + 1

                                        score[team] = score[team] + 1

                                        if target[o_team].object then destroyobject(target[o_team].object) end

                                        target[o_team].object = createobject(object_tag_id, 0, object_respawn_time, true, target[o_team].x , target[o_team].y, target[o_team].z)

                                        local msg = getname(player) .. " has scored!"

                                        Say(msg)

                                        target[team].boolean = true

                                        target[team].playerholder = nil

                                        resetNavs(o_team)

                                        if score[team] < max_flags then

                                                if score[1] == score[2] then

                                                        local msg = "Score is tied!"

                                                        Say(msg)

                                                elseif score[1] > score[2] and score[1] == score[2]+1 then

                                                        local msg = color_table[Team_Color_1] .. " team has taken the lead!"

                                                        Say(msg)

                                                elseif score[1] < score[2] and score[1]+1 == score[2] then

                                                        local msg = color_table[Team_Color_2] .. " team has taken the lead!"

                                                        Say(msg)

                                                elseif score[1] > score[2] then

                                                        local msg = color_table[Team_Color_1] .. " team has scored!"

                                                        Say(msg)

                                                elseif score[1] < score[2] then

                                                        local msg = color_table[Team_Color_2] .. " team has scored!"

                                                        Say(msg)

                                                end

                                                local msg = color_table[Team_Color_1] .. " has " .. score[1] .. " flag(s)"

                                                local msg2 = color_table[Team_Color_2] .. " has " .. score[2] .. " flag(s)"

                                                Say(msg)

                                                Say(msg2)

                                        else

                                                svcmd("sv_map_next")

                                        end

                                end

                        end

                        return false

                elseif objId == target[o_team].object then

                        if target[team].boolean == true then

                                setNavs(player, o_team)

                                target[team].boolean = false

                                sayteam("Your team has taken the flag!", team, player)

                                sayteam("The other team has taken your flag!", o_team)

                                local msg = "You have taken the flag"

                                sendconsoletext(player, msg, nil, nil, "center")

                        end

                        return true

                end

        end

        return nil

 

function OnPlayerKill(killer, victim, mode)

        if gametype[map_name] == "teamslayer" and mode > 3 then

                if mode == 4 then

                        local team = getteam(killer)

                        score[team] = score[team] + 1

                        if score[team] >= max_score then

                                if last_killer == nil then last_killer = killer end

                                svcmd("sv_map_next")

                        end

                elseif mode == 5 and betray_kill then

                        local team = getteam(killer)

                        score[team] = score[team] - 1

                elseif mode == 6 and suicide_kill then

                        local team = getteam(victim)

                        score[team] = score[team] - 1

                end

        elseif gametype[map_name] == "ctf" then

                local ip = getip(victim)

                if player_scores[ip] == nil then player_scores[ip] = 0 end

                writedwordsigned(slayer_globals, 0x40 + victim * 4, player_scores[ip])

        end

 

function OnDamageLookup(receiving, causing, tagid)

        if not friendly_fire[map_name] and causing and receiving then

                local causer = objectidtoplayer(causing)

                local receiver = objectidtoplayer(receiving)

                if causer and receiver and causer ~= receiver and getteam(causer) == getteam(receiver) then

                        return false

                end

        end

        return nil

 

function OnClientUpdate(player)

        if gametype[map_name] == "ctf" then

                local ip = getip(player)

                if player_scores[ip] == nil then player_scores[ip] = 0 end

                writedwordsigned(slayer_globals, 0x40 + player * 4, player_scores[ip])

        elseif gametype[map_name] == "teamslayer" then

                local team = getteam(player)

                writedwordsigned(slayer_globals, 0x40 + player * 4, score[team])

        end

 

function Command_ChangeTeamColor(executor, command, team, color, count)

        if count == 3 then

                team = tonumber(team)

                if team and team == 1 or team == 2 then

                        local bool = true

                        for i=0,17 do

                                if string.lower(color_table[i]) == string.lower(color) then

                                        bool = false

                                        if team == 1 then

                                                if i == Team_Color_2 then

                                                        sendresponse("The team color cannot be the same as the other team.", executor)

                                                        return

                                                elseif i == Team_Color_1 then

                                                        sendresponse("That is already the team color", executor)

                                                        return

                                                else

                                                        Team_Color_1 = i

                                                end

                                        else

                                                if i == Team_Color_1 then

                                                        sendresponse("The team color cannot be the same as the other team.", executor)

                                                        return

                                                elseif i == Team_Color_2 then

                                                        sendresponse("That is already the team color", executor)

                                                        return

                                                else

                                                        Team_Color_2 = i

                                                end

                                        end

                                        break

                                end

                        end

                        if bool then

                                sendresponse("Invalid Color!", executor)

                        else

                                for i=0,15 do

                                        if getplayer(i) and getteam(i) == team then

                                                registertimer(0, "SetColor", {i, true})

                                        end

                                end

                                sendresponse("Team color has been changed", executor)

                        end

                else

                        sendresponse("Invalid Team! Valid Teams: 1 or 2", executor)

                end

        else

                sendresponse("Invalid Syntax: " .. command .. " [team] [color]", executor)

        end

 

function Command_ChangePlayerTeam(executor, command, player, count)

        if count == 2 then

                local m_player = getplayer(player)

                if m_player then

                        local team,key = getteam(player)

                        if team == 1 then

                                table.remove(first, key)

                                table.insert(second, player)

                        else

                                table.remove(second, key)

                                table.insert(first, player)

                        end

                        registertimer(0, "SetColor", {player, false})

                        local team1,key1,color = getteam(player)

                        sendconsoletext(player, teamchange_message .. color, nil, nil, "center")

                        if target[team].playerholder ~= nil then setNav(player, team) end

                        writebyte(m_player + 0x20, team1)

                        writebyte(m_player + 0x66, team1)

                else

                        sendresponse("Invalid Player", executor)

                end

        else

                sendresponse("Invalid Syntax: " .. command .. " [player]", executor)

        end

 

function check_sphere(m_objectId, X, Y, Z, R)

        local Pass = false

        if m_objectId then

                local x,y,z = getobjectcoords(m_objectId)

                if (X - x)^2 + (Y - y)^2 + (Z - z)^2 <= R then

                        Pass = true

                end

        end

    return Pass

 

function ObjectRespawnTimer(id, count)

        local temp = object_respawn_timer

        object_respawn_timer = nil

    if gametype[map_name] == "ctf" then

        for team = 1,2 do

                if team == 1 then o_team = 2

                else o_team = 1

                end

                local bool = true

                for player=0,15 do

                        if getplayer(player) then

                                local m_objectId = getplayerobjectid(player)

                                if m_objectId then

                                        local m_object = getobject(m_objectId)

                                        if m_object then

                                                if playerisholding(player, team) then

                                                        if target[team].playerholder ~= player then

                                                                target[team].playerholder = player

                                                                setNavs(player, o_team)

                                                        end

                                                        target[team].count = 0

                                                        bool = false

                                                        break

                                                end

                                        end

                                end

                        end

                end

                if bool then

                        resetNavs(o_team)

                        target[team].playerholder = nil

                        target[team] = target[team] or {}

                        if target[team].count == nil then target[team].count = 0 end

                        if not check_sphere(target[team].object, target[team].x, target[team].y, target[team].z, 1.0) then

                                target[team].count = target[team].count + 1

                        end

                        if target[team].count == object_respawn_time then

                                target[team].boolean = true

                                sayteam("The flag has been reset", team)

                                sayteam("The flag has been reset", o_team)

                                destroyobject(target[team].object)

                                target[team].count = 0

                                target[team].object = createobject(object_tag_id, 0, object_respawn_time, true, target[team].x , target[team].y, target[team].z)

                        end

                end

        end

    end

        object_respawn_timer = temp

        return true

 

function getteam(player)

        for k,v in pairs(first) do

                if v == player then

                        return 1,k,tostring(color_table[Team_Color_1])

                end

        end

        for k,v in pairs(second) do

                if v == player then

                        return 2,k,tostring(color_table[Team_Color_2])

                end

        end

        return nil,nil,nil

 

function NewGame(id, count, bool)

        if readbyte(gametype_base + 0x30) ~= 2 then

                raiseerror("    >> Invalid gametype. It must be FFA Slayer.")

        end

        if readbyte(gametype_base + 0x34) ~= 0 then

                raiseerror("    >> Team play must be off for this script.")

        end

        local file = io.open(path .. "\\data\\colored-data.data","r")

        if not file then

                raiseerror("    >> the colored-data.data file is missing.")

        end

        if GAME == "PC" then map = readstring(0x698F21)

        else map = readstring(0x61D151)

        end

        colorspawn = {}

        first = {}

        target = {}

        player_scores = {}

        score = {}

        second = {}

        spawns = {}

        last_killer = nil

        if bool == true then

                for player = 0,15 do

                        if getplayer(player) then

                                setassists(0, player)

                                setdeaths(0, player)

                                setkills(0, player)

                                if #first > #second then

                                        table.insert(second, player)

                                else

                                        table.insert(first, player)

                                end

                                registertimer(0, "SetColor", {player, false})

                        end

                end

        end

        if tonumber(timelimit) then

                settimelimit(tonumber(timelimit))

                hprintf("Current Timelimit is " .. round(timelimit) .. " minutes. Time remaining: " .. tostring(round(readdword(gametype_base + 0x78) / 1800 - readdword(readdword(gametime_base) + 0xC) / 1800)) .. " minutes.")

        end

        Team_Color_1 = team_color[map][1]

        Team_Color_2 = team_color[map][2]

        if colors_random[map_name] == false then

                for i=0,17 do

                        if string.lower(color_table[i]) == string.lower(Team_Color_1) then

                                Team_Color_1 = i

                        end

                        if string.lower(color_table[i]) == string.lower(Team_Color_2) then

                                Team_Color_2 = i

                        end

                end

                if Team_Color_1 == Team_Color_2 then

                        repeat Team_Color_2 = getrandomnumber(0, 17)

                        until Team_Color_2 ~= Team_Color_1

                end

        end

        if tonumber(Team_Color_1) == nil or colors_random[map_name] then

                repeat Team_Color_1 = getrandomnumber(0, 17)

                until Team_Color_1 ~= Team_Color_2

        end

        if tonumber(Team_Color_2) == nil or colors_random[map_name] then

                repeat Team_Color_2 = getrandomnumber(0, 17)

                until Team_Color_2 ~= Team_Color_1

        end

        writebyte(slayer_score_patch, 0xEB)

        for team=1,2 do

                spawns[team] = {}

                score[team] = 0

                target[team] = {}

                target[team].boolean = true

                target[team].playerholder = nil

                target[team].x = 0

                target[team].y = 0

                target[team].z = 0

                target[team].object = 0

        end

        for line in file:lines() do

                local t = tokenizestring(line, ",")

                if t[5] == map then

                        local team = tonumber(t[4])

                        if team == 1 or team == 2 then

                                local count = nil

                                if team == 2 then

                                        count = count2

                                        count2 = count2 + 1

                                else

                                        count = count1

                                        count1 = count1 + 1

                                end

                                spawns[team][count] = {}

                                spawns[team][count].x = t[1]

                                spawns[team][count].y = t[2]

                                spawns[team][count].z = t[3]

                        else

                                if gametype[map_name] == "ctf" then

                                        if t[4] == "flag_1" then team = 1

                                        else team = 2 end

                                        target[team].x = t[1]

                                        target[team].y = t[2]

                                        target[team].z = t[3]

                                elseif gametype[map_name] ~= "teamslayer" then

                                    raiseerror("Invalid gametype set in the script.")

                                end

                        end

                end

        end

        if gametype[map_name] == "ctf" then

                object_tag_id = gettagid("weap", "weapons\\flag\\flag")

                object_respawn_timer = registertimer(1000, "ObjectRespawnTimer")

                if target[1].x then target[1].object = createobject(object_tag_id, 0, object_respawn_time, true, target[1].x , target[1].y, target[1].z) end

                if target[2].x then target[2].object = createobject(object_tag_id, 0, object_respawn_time, true, target[2].x , target[2].y, target[2].z) end

        end

        return false

 

function playerisholding(player, team)

        for i = 1,16 do

                if target[team].object then

                        local m_objectId = getplayerobjectid(player)

                        if m_objectId then

                                local m_object = getobject(m_objectId)

                                for j = 0,3 do

                                        if readdword(m_object, 0x2F8 + (j*4)) == target[team].object then

                                                return true

                                        end

                                end

                        end

                end

        end

        return false

 

function setNavs(player, team)

        for i=0,15 do

                local m_player = getplayer(i)

                if m_player and player ~= i and getteam(i) == team then

                        writeword(m_player + 0x88, player)

                end

        end

 

function setNav(player, team)

        writeword(getplayer(player) + 0x88, target[team].playerholder)

end    

 

function resetNavs(team)

        for i=0,15 do

                local m_player = getplayer(i)

                if m_player and getteam(i) == team then

                        writeword(m_player + 0x88, i)

                end

        end

 

function sendresponse(message, player)

        if message == "" then

                return

        end

        player = tonumber(player)

        if tonumber(player) and player ~= nil and player ~= -1 and player >= 0 and player < 16 then

                sendconsoletext(player, message)

        else

                hprintf(message)

        end

 

function SetColor(id, count, arg)

        local player = arg[1]

        local m_objectId = getplayerobjectid(player)

        if m_objectId then

                local m_player = getplayer(player)

                local x,y,z = getobjectcoords(m_objectId)

                if getteam(player) == 1 then

                        writebyte(m_player + 0x60, Team_Color_1)

                else

                        writebyte(m_player + 0x60, Team_Color_2)

                end

                destroyobject(m_objectId)

                if arg[2] then

                        if colorspawn == nil then colorspawn = {} end

                        if colorspawn[player] == nil then colorspawn[player] = {} end

                        colorspawn[player][1] = x

                        colorspawn[player][2] = y

                        colorspawn[player][3] = z

                end

                ReduceDeaths(player)

                return false

        end

        return true

 

function settimelimit(value)

        if tonumber(value) then

                writedword(timelimit_address, tonumber(value))

                local time_passed = readdword(readdword(gametime_base) + 0xC)

                writedword(gametype_base + 0x78, 30*60*value + time_passed)

        end

 

function ReduceDeaths(player)

        setdeaths(readword(getplayer(player), 0xAE), player)

 

function round(val, decimal)

        if (decimal) then

                return math.floor((val * 10^decimal) + 0.5) / (10^decimal)

        else

                return math.floor(val+0.5)

        end

 

function sayteam(message, team, player)

        for i=0,15 do

                if getplayer(i) and player ~= i and getteam(i) == team then

                        sendconsoletext(i, tostring(message), nil, nil, "center")

                end

        end

 

function Say(message)

        for i=0,15 do

                if getplayer(i) then

                        sendconsoletext(i, message)

                end

        end

 

function setassists(value, player)

        local m_player = getplayer(player)

        if m_player then

                if value > 0x7FFF then

                        writewordsigned(m_player + 0xA4, 0x7FFF)

                elseif value < -0x7FFF then

                        writewordsigned(m_player + 0xA4, -0x7FFF)

                else

                        writewordsigned(m_player + 0xA4, value)

                end

        end

 

function setkills(value, player)

        local m_player = getplayer(player)

        if m_player then

                if value > 0x7FFF then

                        writewordsigned(m_player + 0x9C, 0x7FFF)

                elseif value < -0x7FFF then

                        writewordsigned(m_player + 0x9C, -0x7FFF)

                else

                        writewordsigned(m_player + 0x9C, value)

                end

        end

 

function setdeaths(value, player)

        local m_player = getplayer(player)

        if m_player then

                if value > 0x7FFF then

                        writewordsigned(m_player + 0xAE, 0x7FFF)

                elseif value < -0x7FFF then

                        writewordsigned(m_player + 0xAE, -0x7FFF)

                else

                        writewordsigned(m_player + 0xAE, value)

                end

        end

 

function writewordsigned(address, word)

        value = tonumber(word)

        if value == nil then value = tonumber(word, 16) end

        if value and value > 0x7FFF then

                local max = 0xFFFF

                local difference = max - value

                value = -1 - difference

        end

        writeword(address, value)

 

function writedwordsigned(address, offset, value)

        if value and value > 0x7FFFFFFF then

                local max = 0xFFFFFFFF

                local difference = max - value

                value = -1 - difference

        end

        if tonumber(value) then

                writedword(address + offset, value)

        end

 

 

 

console = {}

console.__index = console

registertimer(100, "ConsoleTimer")

phasor_sendconsoletext = sendconsoletext

 

function sendconsoletext(player, message, time, order, align, func)

        console[player] = console[player] or {}

        local temp = {}

        temp.player = player

        temp.id = nextid(player, order)

        temp.message = message or ""

        temp.time = time or 5

        temp.remain = temp.time

        temp.align = align or "left"

        if type(func) == "function" then

                temp.func = func

        elseif type(func) == "string" then

                temp.func = _G[func]

        end

        console[player][temp.id] = temp

        setmetatable(console[player][temp.id], console)

        return console[player][temp.id]

 

function nextid(player, order)

        if not order then

                local x = 0

                for k,v in pairs(console[player]) do

                        if k > x + 1 then

                                return x + 1

                        end

                       

                        x = x + 1

                end

                return x + 1

        else

                local original = order

                while console[player][order] do

                        order = order + 0.001

                        if order == original + 0.999 then break end

                end

                return order

        end

 

function getmessage(player, order)

        if console[player] then

                if order then

                        return console[player][order]

                end

        end

 

function getmessages(player)

        return console[player]

 

function getmessageblock(player, order)

        local temp = {}

        for k,v in pairs(console[player]) do

                if k >= order and k < order + 1 then

                        table.insert(temp, console[player][k])

                end

        end

        return temp

 

function console:getmessage()

        return self.message

 

function console:append(message, reset)

        if console[self.player] then

                if console[self.player][self.id] then

                        if getplayer(self.player) then

                                if reset then

                                        if reset == true then

                                                console[self.player][self.id].remain = console[self.player][self.id].time

                                        elseif tonumber(reset) then

                                                console[self.player][self.id].time = tonumber(reset)

                                                console[self.player][self.id].remain = tonumber(reset)

                                        end

                                end

                                console[self.player][self.id].message = message or ""

                                return true

                        end

                end

        end

 

function console:shift(order)

        local temp = console[self.player][self.id]

        console[self.player][self.id] = console[self.player][order]

        console[self.player][order] = temp

 

function console:pause(time)

        console[self.player][self.id].pausetime = time or 5

 

function console:delete()

        console[self.player][self.id] = nil

 

function ConsoleTimer(id, count)

        for i,_ in opairs(console) do

                if tonumber(i) then

                        if getplayer(i) then

                                for k,v in opairs(console[i]) do

                                        if console[i][k].pausetime then

                                                console[i][k].pausetime = console[i][k].pausetime - 0.1

                                                if console[i][k].pausetime <= 0 then

                                                        console[i][k].pausetime = nil

                                                end

                                        else

                                                if console[i][k].func then

                                                        if not console[i][k].func(i) then

                                                                console[i][k] = nil

                                                        end

                                                end

                                                if console[i][k] then

                                                        console[i][k].remain = console[i][k].remain - 0.1

                                                        if console[i][k].remain <= 0 then

                                                                console[i][k] = nil

                                                        end

                                                end

                                        end

                                end

                                if table.len(console[i]) > 0 then

                                        local paused = 0

                                        for k,v in pairs(console[i]) do

                                                if console[i][k].pausetime then

                                                        paused = paused + 1

                                                end

                                        end

                                        if paused < table.len(console[i]) then

                                                local str = ""

                                                for i = 0,30 do

                                                        str = str .. " \n"

                                                end

                                                phasor_sendconsoletext(i, str)

                                                for k,v in opairs(console[i]) do

                                                        if not console[i][k].pausetime then

                                                                if console[i][k].align == "right" or console[i][k].align == "center" then

                                                                        phasor_sendconsoletext(i, consolecenter(string.sub(console[i][k].message, 1, 78)))

                                                                else

                                                                        phasor_sendconsoletext(i, string.sub(console[i][k].message, 1, 78))

                                                                end

                                                        end

                                                end

                                        end

                                end

                        else

                                console[i] = nil

                        end

                end

        end

        return true

 

function consolecenter(text)

        if text then

                local len = string.len(text)

                for i = len + 1, 78 do

                        text = " " .. text

                end

                return text

        end

 

function opairs(t)

        local keys = {}

        for k,v in pairs(t) do

                table.insert(keys, k)

        end    

        table.sort(keys,

        function(a,b)

                if type(a) == "number" and type(b) == "number" then

                        return a < b

                end

                an = string.lower(tostring(a))

                bn = string.lower(tostring(b))

                if an ~= bn then

                        return an < bn

                else

                        return tostring(a) < tostring(b)

                end

        end)

        local count = 1

        return function()

                if table.unpack(keys) then

                        local key = keys[count]

                        local value = t[key]

                        count = count + 1

                        return key,value

                end

        end

 

function table.len(t)

        local count = 0

        for k,v in pairs(t) do

                count = count + 1

        end

        return count

 

 

function createData()

    local file = io.open(path .. "\\data\\colored-data.data","w")

        file:write("29.055599212646,13.732000350952,-0.10000000149012,flag_1,beavercreek\n")

        file:write("-0.86037802696228,13.764800071716,-0.0099999997764826,flag_2,beavercreek\n")

        file:write("25.5445,8.1934,-0.2155,1,beavercreek\n")

        file:write("22.3614,10.6675,-0.2157,1,beavercreek\n")

        file:write("21.4196,11.4317,-0.2157,1,beavercreek\n")

        file:write("22.5042,13.7062,-0.2157,1,beavercreek\n")

        file:write("27.8517,15.1745,-0.2157,1,beavercreek\n")