flag_holder.cfg

reset_flags = [
    reset_blue_flag
    reset_red_flag
]

reset_blue_flag = [
    blue_flag_taken = 0
    blue_flag_droped = 0
    blue_flag_time = -1
    enemy_cn = -1
]

reset_red_flag = [
    red_flag_taken = 0
    red_flag_droped = 0
    red_flag_time = -1
    teammate_cn = -1
]

set_player_cn = [
    if (strcmp (getteam) (getclientteam $arg1)) [
        red_flag_taken = 1
        red_flag_droped = 0
        teammate_cn = $arg1
    ][
        blue_flag_taken = 1
        blue_flag_droped = 0
        enemy_cn = $arg1
    ]
]

set_flag_time = [
    if (strcmp (getteam) (getclientteam $arg1)) [
        red_flag_droped = 1
        red_flag_taken = 0
        red_flag_time = (getlastmillis)
    ][
        blue_flag_droped = 1
        blue_flag_taken = 0
        blue_flag_time = (getlastmillis)
    ]
]

get_flag_reset = [
    if (strcmp (getteam) (getclientteam $arg1)) [
        reset_blue_flag
    ][
        reset_red_flag
    ]
]

scriptevent "flagtake" "player_cn"   [ set_player_cn $player_cn ]
scriptevent "flagdrop" "player_cn"   [ set_flag_time $player_cn ]
scriptevent "flagreturn" "player_cn" [ get_flag_reset $player_cn ]
scriptevent "flagscore" [ reset_flags ]
scriptevent "startup" [ reset_flags ]
//scriptevent "mapstart" [ reset_flags ]
scriptevent "intermission" [ reset_flags ]
scriptevent "disconnect" [ reset_flags ]

scriptevent "scriptinit" [ echo "^f6Flag holders extension loaded."]

// This function dont like me so much because every ms is called
// (when some flag is droped).
count_down = [
    local time_millis secs
    time_millis = (- (getlastmillis) $arg1)

    if (< $time_millis 0) [
        secs = -1       // or maybe just secs = $time_millis
    ][
        secs = (- 10 (div $time_millis 1000))
    ]
    result $secs
]
// flag_holder_hud (flag_taken, flag_droped, 1 | 0 )
//                        arg1,        arg2, arg3
flag_holder_hud = [
    local color
    color = (? $arg3 "^f3" "^f1")   // arg3 [1 blue flag actions | 0 red flag actions]

    cond $arg1 [  // flag_taken if $arg1
        result (concatword $color (getclientname (? $arg3 $enemy_cn $teammate_cn)) "^f4 has the " (? $arg3 "blue" "red") " flag.")
    ] $arg2 [  // flag_droped
        local seconds
        seconds = (count_down (? $arg3 $blue_flag_time $red_flag_time))
        if (> $seconds 0) [
            color = (? $arg3 "^f1" "^f3")
            result (concatword "^f4" (? $arg3 "Blue" "Red") " flag return in " $color $seconds "^f9 sec." )
        ][
            if $arg3 [ blue_flag_droped = 0 ] [ red_flag_droped = 0 ]
        ]
    ][
        result (concatword $color "--")
    ]
]

gamehud = [ if (m_ctf (getmode)) [ format "^n%1 ^n%2" (flag_holder_hud $blue_flag_taken $blue_flag_droped 1) (flag_holder_hud $red_flag_taken $red_flag_droped 0) ]]