Advertisement
s4turns

maryjane.tcl

Jan 10th, 2020
941
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. bind time - "20 16*" syncupman
  2. bind time - "20 16*" syncupman2
  3. bind time - "20 16*" syncupman3
  4.  
  5. set antiflood "5"
  6. set packwait "30"
  7. set toplimit "121"
  8.  
  9. setudef flag fourtwenty
  10.  
  11. proc syncupman {args} { putserv "PRIVMSG #201337 :\002\00309\\|/\\|/\\|/ \00310\002IT'S \00304\0374:20!\037\00310 Hit that shit, pass that shit\002!\002" }
  12. proc syncupman2 {args} { putserv "PRIVMSG #efnetnews :\002\00309\\|/\\|/\\|/ \00310\002IT'S \00304\0374:20!\037\00310 Hit that shit, pass that shit\002!\002" }
  13. proc syncupman3 {args} { putserv "PRIVMSG #IRC30 :\002\00309\\|/\\|/\\|/ \00310\002IT'S \00304\0374:20!\037\00310 Hit that shit, pass that shit\002!\002" }
  14.  
  15. bind pub - !menu pub_menu
  16. proc pub_menu {n u h c a} {
  17.     putserv "PRIVMSG $c :\00309\002!redbull\002, \002!pizza\002, \002!bong\002, \002!sex\002, \002!pack"; return 0
  18. }
  19.  
  20. bind pub - !sex suckadick
  21. proc suckadick {n u h c t} {
  22.     switch -- [rand 5] {
  23.         1 { putserv "privmsg $c :\001ACTION watches $n wrap their lips around [lindex [chanlist $c] [rand [llength [chanlist $c]]]]'s cock and suck and slurp and lick...\001" }
  24.         2 { putserv "privmsg $c :\002BREAKING NEWS\002: [lindex [chanlist $c] [rand [llength [chanlist $c]]]] needs to /msg $n (the cocksucker) in the next 15 minutes for virtual cock suck!" }
  25.         3 { putserv "privmsg $c :$n, NO COCK FOR YOU! Try eating pussy instead. MEOW! Here kitty kitty." }
  26.         4 { putserv "privmsg $c :\001ACTION shoves his cock down $n's throat! Who is next? Type !gag_$n.\001" }
  27.         default { putserv "privmsg $c :$n, there is fucking nobody wants their cock anywhere near the vicinity of you or your lips. Try again." }
  28.     }
  29. }
  30.  
  31. bind pub - !pizza pub_pizza
  32. proc pub_pizza {n u h c a} {
  33.     unbind pub - !pizza pub_pizza
  34.     putserv "PRIVMSG $c :\001ACTION \00309gives \00310$n\00309 a \00304\037hot\037\00309 slice of cheese pizza. \00310\002YUM!";
  35.     utimer $::antiflood "bind pub - !pizza pub_pizza"
  36. }
  37.  
  38. bind pub - !redbull pub_redbull
  39. proc pub_redbull {n u h c a} {
  40.     unbind pub - !redbull pub_redbull
  41.     putserv "PRIVMSG $c :\001ACTION \00309looks @ \00310$n \0039I'm sure you need some energy be ready here it comes. by grabs *grabs a can of REDBULL and tosses it to \00310$n\00309 slides down to $n some ice in a glass enjoy!!! :)\001";
  42.     utimer $::antiflood "bind pub - !redbull pub_redbull"
  43. }
  44.  
  45. bind pub - !bong pub_burger
  46. proc pub_burger {n u h c a} {
  47.     unbind pub - !bong pub_burger;
  48.     if {![string length [set v [lindex $a 0]]]} { set v $n ; set n $::botnick }
  49.     putserv "PRIVMSG $c :\00310$n\00309 passes the bong to \00310$v\00309, hit that shit an pass bitch! No parking!";
  50.     utimer $::antiflood "bind pub - !bong pub_burger"
  51. }
  52.  
  53. bind pub - !pack pub:sack
  54. proc pub:sack {n u h c a} {
  55.       set mins 0 ; set secs 0
  56.         regexp -- {([0-9]+)m} $a - mins
  57.         regexp -- {([0-9]+)s} $a - secs
  58.         if {$mins == 0 && $secs == 0} { set secs $::packwait }
  59.         if {($mins > 0 || $secs > 0 ) && [expr {$mins*60+$secs}] < $::toplimit} {
  60.                 unbind pub - !pack pub:sack
  61.                 putserv "PRIVMSG $c :\00309\\|/\\|/ \00310\002listen up\00309... public announcement\002: Pick it, Pack it, just be ready for a chan wide toke-out in \00310[duration [expr {$mins*60+$secs}]]\00309. \\|/\\|/"
  62.                 utimer [expr {$mins*60+$secs}] [list pub:sync $n $u $h $c $a]
  63.         } else {
  64.                 putserv "PRIVMSG $c :\00310listen up\00309... pack correctly.. don't \00304\037abuse\037\00309 the command.. or else.. haw"
  65.         }
  66. }
  67.  
  68. bind pub - !sync pub:sync
  69. proc pub:sync {n u h c a} {
  70.     bind pub - !pack pub:sack
  71.     utimer 1 [list putserv "PRIVMSG $c :\00309\\|/\\|/\\|/ \00310Ladies & Gents, get your \00309\037BOWLS, BONGS, DAB RIGS\037\00310 \002READY\002! \00309\\|/\\|/\\|/"]
  72.     utimer 2 [list putserv "PRIVMSG $c :\00309\\|/\\|/\\|/\\|/\\|/ \002\003105\002\00309 \\|/\\|/\\|/\\|/\\|/"]
  73.     utimer 3 [list putserv "PRIVMSG $c :\00309\\|/\\|/\\|/\\|/\002\003104\002\00309 \\|/\\|/\\|/\\|/"]
  74.     utimer 4 [list putserv "PRIVMSG $c :\00309\\|/\\|/\\|/\002\003103\002\00309 \\|/\\|/\\|/"]
  75.     utimer 5 [list putserv "PRIVMSG $c :\00309\\|/\\|/\002\003102\002\00309 \\|/\\|/"]
  76.     utimer 6 [list putserv "PRIVMSG $c :\00309\\|/\002\003101\002\00309 \\|/"]
  77.     utimer 8 [list putserv "PRIVMSG $c :\002\00309\037SYNCHRONIZED!\037 \\|/\\|/\\|/ \00310FIRE UP YOUR DANK SHIT!! \00309\\|/\\|/\\|/"]
  78.     utimer $::antiflood "bind pub - !sync pub:sync"
  79. }
  80.  
  81.  
  82. putlog "maryjane-v2.0 black@blackmajic: loaded."
Advertisement
RAW Paste Data Copied
Advertisement