Code:

namespace eval cupbot {    variable author "r0t3n"    variable version "1.03"        variable trigger "$"    variable adminflag "C|C"        bind pub $adminflag "${trigger}start" [namespace current]::start    bind pub $adminflag "${trigger}stop" [namespace current]::stop    bind pub $adminflag "${trigger}setmap" [namespace current]::setmap    bind pub $adminflag "${trigger}setprize" [namespace current]::setprize    bind pub $adminflag "${trigger}winner" [namespace current]::setwinner    bind pub -|- "${trigger}map" [namespace current]::map    bind pub -|- "${trigger}prize" [namespace current]::prize    }setudef flag cupsetudef str cupadminsetudef str cuptypesetudef int cupteamssetudef str cupprizesetudef str cupmapsetudef str cupwinnerproc cupbot::start {nickname hostname handle channel text} {    if {[channel get $channel cup]} {        putserv "NOTICE $nickname :There is already a cup in process with [channel get $channel cupadmin]."    } else {        set type [lindex [split $text] 0]        set teams [lindex [split $text] 1]        set map [lindex [split $text] 2]        if {$type == "" || $teams == ""} {            putserv "NOTICE $nickname :Usage: $::lastbind <type> <teams>."        } elseif {![string is integer $teams]} {            putserv "NOTICE $nickname :Teams must only consist on numbers."        } elseif {$type != "1on1" && $type != "2on2" && $type != "3on3" && $type != "4on4" && $type != "5on5"} {            putserv "NOTICE $nickname :Invalid cup type '$type'. Valid cup types are: 1on1|2on2|3on3|4on4|5on5."        } elseif {$teams != "8" && $teams != "16" && $teams != "64"} {            putserv "NOTICE $nickname :Invalid teams '$teams'. Valid teams are: 8|16|64."        } else {            channel set $channel +cup            channel set $channel cupadmin $nickname            channel set $channel cuptype $type            channel set $channel cupteams $teams            channel set $channel cupprize ""            if {[botisop $channel] && ![string match *m* [getchanmode $channel]]} {                putserv "MODE $channel +m"                set modem "1"            }            putserv "PRIVMSG $channel :$nickname started a $type cup with $teams teams."            if {$type == "1on1"} {                putserv "PRIVMSG $channel :Use ${cupbot::trigger}add <teamname> to add yourself to the $type cup."            } elseif {$type == "2on2"} {                putserv "PRIVMSG $channel :Use ${cupbot::trigger}add <teamname> <mate> to add your team to the $type cup."            } elseif {$type == "3on3"} {                putserv "PRIVMSG $channel :Use ${cupbot::trigger}add <teamname> <mate> <mate> to add your team to the $type cup."            } elseif {$type == "4on4"} {                putserv "PRIVMSG $channel :Use ${cupbot::trigger}add <teamname> <mate> <mate> <mate> to add your team to the $type cup."            } elseif {$type == "5on5"} {                putserv "PRIVMSG $channel :Use ${cupbot::trigger}add <teamname> <mate> <mate> <mate> <mate> to add your team to the $type cup."            }            if {$map != ""} {                channel set $channel cupmap $map                putserv "PRIVMSG $channel :The map is: $map."            } else {                putserv "PRIVMSG $channel :No map has been set."            }            if {$modem == "1"} {                if {[botisop $channel] && [string match *m* [getchanmode $channel]]} {                    putserv "MODE $channel -m"                }            }        }    }}proc cupbot::stop {nickname hostname handle channel text} {    if {[channel get $channel cup]} {        channel set $channel -cup        putserv "PRIVMSG $channel :$nickname stopped the [channel get $channel cuptype] cup."    } else {        putserv "NOTICE $nickname :There is currently no cup in progress on $channel."    }}proc cupbot::setmap {nickname hostname handle channel text} {    if {![channel get $channel cup]} {        putserv "NOTICE $nickname :There is currently no cup in progress on $channel."    } elseif {$text == ""} {        putserv "NOTICE $nickname :Usage: $::lastbind <map>."    } else {        channel set $channel cupmap $text        putserv "PRIVMSG $channel :$nickname changed the map to: $text."    }}proc cupbot::setprize {nickname hostname handle channel text} {    if {![channel get $channel cup]} {        putserv "NOTICE $nickname :There is currently no cup in progress on $channel."    } elseif {$text == ""} {        putserv "NOTICE $nickname :Usage: $::lastbind <prize>."    } else {        channel set $channel cupprize $text        putserv "PRIVMSG $channel :$nickname changed the prize to: $text."    }}proc cupbot::setwinner {nickname hostname handle channel text} {    if {![channel get $channel cup]} {        putserv "NOTICE $nickname :There is currently no cup in progress on $channel."    } elseif {$text == ""} {        putserv "NOTICE $nickname :Usage: $::lastbind <winner>."    } else {        channel set $channel cupwinner $text        putserv "PRIVMSG $channel :The cup winner is: $text."    }}proc cupbot::map {nickname hostname handle channel text} {    if {![channel get $channel cup]} {        putserv "PRIVMSG $channel :There is currently no cup running."    } else {        if {[channel get $channel cupmap] == ""} {            putserv "PRIVMSG $channel :There is currently no map set."        } else {            putserv "PRIVMSG $channel :The current map is: [channel get $channel cupmap]."        }    }}proc cupbot::prize {nickname hostname handle channel text} {    if {![channel get $channel cup]} {        putserv "PRIVMSG $channel :There is currently no cup running."    } else {        if {[channel get $channel cupprize] == ""} {            putserv "PRIVMSG $channel :There is currently no prize set."        } else {            putserv "PRIVMSG $channel :The prize is: [channel get $channel cupprize]."        }    }}putlog "Cupbot.tcl v$cupbot::version by $cupbot::author loaded."