var
    FFAS=0
    playernum=0
    p1=0
    p2=0
    p3=0
    p4=0
    p5=0
    p6=0
mob/var
    p1=0
    p2=0
    p3=0
    p4=0
    p5=0
    p6=0
    FFAT=0
var/list/Players=list()
mob/FFAEL/verb
    EnterFFA()
        set category="Channels"
        set name = "Enter FFA Game"
        if(fused)
            usr<<"\red You are fused!"
            return
        if(dead)
            usr<<"/red You are Dead!"
            return
        for(var/obj/O in usr)
            if(O.dball)
                usr<<"You cannot enter the Game with the dragonballs!"
                return
        if(buku_lock||in_hbtc||challenge||guild_challenge||grav_trainer)
            usr<<"\red You're doing something that Game doesn't allow!"
            return
        if(jailed)
            usr<<"\red You are in jail!"
            return
        if(!pk)
            usr<<"You are not a combatant, train more!"
            return
        if(z!=4&&z!=3&&z!=2&&z!=1)
            usr<<"You're not in right place!"
            return
        for(var/mob/PC/M in world)
            if(M!=usr)
                if(M.client)
                    if(M.client.address==client.address)
                        if(M.CTFT)
                            usr<<"Your another character is already in The Game!"
                            return
        if(FFAT)
            usr<<"/red You Are Alreadly in The FFA Game."
            return
        if(playernum==6)
            usr<<"/red The FFA Game is Fulled."
            return
        else
            insafezone=0
            szactivated=0
            traintimer=0
            wait_room=1
            safe=0
            temptraintimer=0
            loc=locate(201,218,6)
            if(p1==0)
                usr.p1=1
                playernum+=1
                Players.Add(usr)
                world<<""
            if(p2==0)
                usr.p2=1
                playernum+=1
                Players.Add(usr)
                world<<""
            if(p3==0)
                usr.p3=1
                playernum+=1
                Players.Add(usr)
                world<<""
            if(p4==0)
                usr.p4=1
                playernum+=1
                Players.Add(usr)
                world<<""
            if(p5==0)
                usr.p5=1
                playernum+=1
                Players.Add(usr)
                world<<""
            if(p6==0)
                usr.p6=1
                playernum+=1
                Players.Add(usr)
                world<<""

    LeaveFFA()
        set category="Channels"
        set name = "Leave FFA Game"
        if(FFAS)
            usr<<"The Game has already Started."
            return
        if(!FFAT)
            usr<<"You Are Not In The FFA Game."
            return
        else
            loc=locate(rand(268,284),rand(14,32),1)
            safe=0
            wait_room=0
            FFAT=0
            if(usr.p1==1)
                usr.p1=0
                Players.Remove(usr)
                world<<""
            if(usr.p2==1)
                usr.p2=0
                playernum-=1
                Players.Remove(usr)
                world<<""
            if(usr.p3==1)
                usr.p3=0
                playernum-=1
                Players.Remove(usr)
                world<<""
            if(usr.p4==1)
                usr.p4=0
                playernum-=1
                Players.Remove(usr)
                world<<""
            if(usr.p5==1)
                usr.p5=0
                playernum-=1
                Players.Remove(usr)
                world<<""
            if(usr.p6==1)
                usr.p6=0
                playernum-=1
                Players.Remove(usr)
                world<<""

proc
    FFAST()
        FFAS=1
        for(var/mob/PC/M in world)
            M.verbs+=typesof(/mob/FFAEL/verb)
        spawn(71)AutoRevive()
        world<<"<center><font size=3><font color = gray><b><center>The automatic FFA Game Has Started!<br><font size=1>To join, please go to Channels tab and select Enter CTF Game."
        sleep(600)
        if(playernum<4)
            world<<"<center><font size=3><font color = gray><b><center>The FFA Game Has Been Canceled Not Enough Players."
            KillFFA()
            return
        for(var/mob/PC/M in world)
            M.verbs-=typesof(/mob/FFAEL/verb)
        world<<"<font size=1><font color=red><b>FFA Entrants:"
        for(var/mob/PC/M in Players) world <<"[M]"
        FFA_AI()

proc
    KillFFA()
        for(var/mob/PC/M in world)
            M.verbs-=typesof(/mob/FFAEL/verb)
            if(M.FFAT)
                M.loc=locate(rand(268,284),rand(14,32),1)
                M.FFAT=0
        Players=list()
        playernum=0
        FFAS=0

proc
    FFA_AI(var/mob/PC/M in Players)
        FFAS=1
        M.loc=locate(10,5,1)
        if(M.dead)
            Players.Remove(M)
            playernum-=1
            world<<"[M] has died in the FFA Game."
        if(playernum==1)
            world<<"[M] has won the FFA Game and will recieve their prize."
            M.tp+=200000
            KillFFA()
            return