gape.tcl

set antiflood "5"

bind pubm - "% *gape*" gape
proc gape {n u h c a} {
    unbind pubm - "% *gape*" gape
    utimer 2 [list putserv "PRIVMSG $c :gaping this faggot $n in 60 seconds.."]
    utimer 3 [list putserv "PRIVMSG $c :nevermind gaping this faggot $n now.."]
    utimer 5 [list putserv "PRIVMSG $c :3.."]
    utimer 6 [list putserv "PRIVMSG $c :2..."]
    utimer 7 [list putserv "PRIVMSG $c :1...."]
    utimer 8 [list putserv "PRIVMSG $c :$n GET GAPED BITCH!!"]
    utimer $::antiflood bind pubm - "% *gape*" gape
}

bind pubm - "% *mesa*" mesa
proc mesa {n u h c a} {
    unbind pubm - "% *mesa*" mesa
    putserv "PRIVMSG $c :\001ACTION listens to the newest mesa beats \001";
    utimer $::antiflood bind pubm - "% *mesa*" mesa
}

putlog "interdome custom commands loaded"