s4turns

gape.tcl

Nov 22nd, 2020
664
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. set antiflood "5"
  2.  
  3. bind pubm - "% *gape*" gape
  4. proc gape {n u h c a} {
  5.     unbind pubm - "% *gape*" gape
  6.     utimer 2 [list putserv "PRIVMSG $c :gaping this faggot $n in 60 seconds.."]
  7.     utimer 3 [list putserv "PRIVMSG $c :nevermind gaping this faggot $n now.."]
  8.     utimer 5 [list putserv "PRIVMSG $c :3.."]
  9.     utimer 6 [list putserv "PRIVMSG $c :2..."]
  10.     utimer 7 [list putserv "PRIVMSG $c :1...."]
  11.     utimer 8 [list putserv "PRIVMSG $c :$n GET GAPED BITCH!!"]
  12.     utimer $::antiflood bind pubm - "% *gape*" gape
  13. }
  14.  
  15. bind pubm - "% *mesa*" mesa
  16. proc mesa {n u h c a} {
  17.     unbind pubm - "% *mesa*" mesa
  18.     putserv "PRIVMSG $c :\001ACTION listens to the newest mesa beats \001";
  19.     utimer $::antiflood bind pubm - "% *mesa*" mesa
  20. }
  21.  
  22. putlog "interdome custom commands loaded"
RAW Paste Data