home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / gz-311a.zip / gzextras.irc < prev    next >
Text File  |  1997-12-01  |  8KB  |  277 lines
  1. #############
  2. #GemZ Extras#
  3. #############
  4. @ gz.extras = 1
  5.  
  6. #added by request -- Ripped from Kanji :)
  7. alias bleah {
  8.  if ([$0]) {
  9.   ^msg $0  \\|/ ____ \\|/             \\|/ ____ \\|/
  10.   ^msg $0  ~@-/ oO \\-@~             ~@-/ Oo \\-@~
  11.   ^msg $0  /_\( \\__/ \)_\\   Bleah!!   /_\( \\__/ \)_\\;
  12.   ^msg $0     \\__U_/                   \\_U__/
  13.   gecho BLEAH launched on $0.
  14.  }{gecho Usage: /BLEAH <nick/channel>}
  15. }
  16. alias bork {
  17.  if (C) {
  18.   @ _o.s = lastserver()
  19.   @ _o.t = _dfn($_o.s)
  20.   evalserver $_o.s @ _o.n = N
  21.   evalserver $_o.s @ _o.c = C
  22.   evalserver $_o.s nick SwdshChef
  23.   evalserver $_o.s WAIT
  24.   evalserver $_o.s saysend $_o.c bork bork bork bork
  25.   evalserver $_o.s nick $_o.n
  26.   @ _rfn($_o.s $_o.t)
  27.   purge _o
  28.  }{gecho Yer not on a channel in this window.}
  29. }
  30.  
  31. alias _dfn {
  32.  @ function_return = fn[$servergroup($0)]
  33.  @ fn[$servergroup($0)] = 0
  34. }
  35. alias _rfn {@ fn[$servergroup($0)] = [$1]}
  36.  
  37. alias fozzie {
  38.  if (C) {
  39.   @ _o.s = lastserver()
  40.   @ _o.t = _dfn($_o.s)
  41.   evalserver $_o.s @ _o.c = C
  42.   evalserver $_o.s @ _o.n = N
  43.   evalserver $_o.s nick _fozzie_
  44.   evalserver $_o.s WAIT
  45.   evalserver $_o.s saysend $_o.c wakka wakka wakka
  46.   evalserver $_o.s nick $_o.n
  47.   @ _rfn($_o.s $_o.t)
  48.   purge _o
  49.  }{gecho Your not in a channel in this window.}
  50. }
  51.  
  52. alias beaker {@ o.n = [$N];nick _Beaker_;WAIT;say meep meep meep meep;nick $o.n;^assign -o.n}
  53.  
  54. alias gimpkick {
  55.  @ _g.s = lastserver()
  56.  @ _g.t = _dfn($_g.s)
  57.  @ _g.n = N
  58.  @ _g.c = C
  59.  if (ischanop($_g.n $_g.c)) {
  60.  evalserver $_g.s saysend $_g.c $0, I think The Gimp would love a piece of meat like you...
  61.  evalserver $_g.s saysend $_g.c You're the kind of piece of shit trash he likes...
  62.  evalserver $_g.s nick _The_Gimp_
  63.  evalserver $_g.s WAIT
  64.  evalserver $_g.s saysend $_g.c ARRRGGGGGGGGGHHHHHHHH!!!!!
  65.  evalserver $_g.s saysend $_g.c I'm gonna drill you a new asshole!!!
  66.  evalserver $_g.s WAIT
  67.  evalserver $_g.s me Bends $0 over and "goes to town" on him!
  68.  evalserver $_g.s saysend $_g.c AAHHHHHHHHHHHHHHHHHHHHHHHHHHH!!!!
  69.  evalserver $_g.s saysend $_g.c Feels so fuckin good don't it boy!!!!?????
  70.  evalserver $_g.s WAIT
  71.  evalserver $_g.s me zip up $gender leather pants and leaves $0 crying and rubbing his ass!
  72.  evalserver $_g.s //kick $_g.c $0 You're good...you should give references...
  73.  evalserver $_g.s nick $_g.n
  74.  @ _rfn($_g.s $_g.t)
  75. }{gecho You're not a channel Operator}
  76.  purge _g
  77. }
  78. #
  79. alias soupkick {
  80.  @ _s.s = lastserver()
  81.  @ _s.t = _dfn($_s.s)
  82.  @ _s.c = C
  83.  if (ischanop($N $C)) {
  84.   evalserver $_s.s @ _s.n = N
  85.   evalserver $_s.s nick Soup_Nzi
  86.   evalserver $_s.s Wait
  87.   evalserver $_s.s saysend $_s.c VAT!??!??!!!!
  88.   evalserver $_s.s //kick $_s.c $0 N() S()UP F()R Y()U
  89.   evalserver $_s.s Wait
  90.   evalserver $_s.s nick $_s.n
  91.   @ _rfn($_s.s $_s.t)
  92.  }
  93.  purge _s
  94. }
  95.   
  96. #ripped from Kanji_man
  97. alias gerbilkick {
  98.  if (ischanop($N $C)) {
  99.  @ old_nick = N
  100.  say $0, watch out for the giant gerbil...
  101.  say I hear he likes MomoBoys like you...
  102.  nick _Gerbil_
  103.  WAIT
  104.  me towers above the entire channel... looking for pleasure...
  105.  me reaches down and grabs $0 by the shoulders with one claw...
  106.  WAIT
  107.  me bends over, parts both cheeks with the other claw...
  108.  WAIT
  109.  me begins to scream as a muffled shreek can be heard from $0
  110.  /k $0 SCREEEEEEEEEEEEEECH!
  111.  nick $old_nick
  112.  ^assign -old_nick
  113. }{gecho You're not a channel operator}
  114. }
  115. ###Pimp Ideas Ripped from PimpToolz
  116. alias pimpslap {
  117.  if (ischanop($N $C)) {
  118.  @ old_nick = N
  119.  nick PimpGuido
  120.  WAIT
  121.  say WhaT HaPPenS wHeN YeR hO dOn'T WoRk??
  122.  /k $0 !PiMPSlaP HeR!
  123.  WAIT
  124.  nick $old_nick
  125.  WAIT
  126.  ^assign -old_nick
  127. }{gecho You're not a channel operator}
  128. }
  129. alias pimpkick {
  130.  if (ischanop($N $C)) {
  131.  @ old_nick = N
  132.  nick PimpGuido
  133.  WAIT
  134.  say WHAT IS THE MEANING OF PIMP?
  135.  say PiMP = PoWeR!
  136.  say PiMP = PoWeR!
  137.  say PiMP = PoWeR!
  138.  WAIT
  139.  /k $0 !PiMP-PoWeR! !PiMP-PoWeR!
  140.  WAIT
  141.  nick $old_nick
  142.  WAIT
  143.  ^assign -old_nick
  144. }{gecho You're not a channel Operator}
  145. }
  146. alias stinkkick {
  147.  if (ischanop($N $C)) {
  148.   say ShiT SomEThinG FuXinG StINkS!!!
  149.   /k $0 !ThaT'S BeTTeR!
  150.  }{gecho You're not a channel Operator}
  151. }
  152. alias lamahkick {
  153.  if (ischanop($N $C)) {
  154.   say I'M A LaMaH HawK...
  155.   say HuNtInG FoR A LaMaH...
  156.   /k $0 !FuXinG LaMaH!
  157.  }{gecho You're not a channel Operator}
  158. }
  159.  
  160. #-------------------------------------------------------------------------#
  161. #Swedish Chef Filter by gemini
  162. alias chefsay {
  163.  @ in_line = [$0-]
  164.  fe ($in_line) _in_word {
  165.   switch ($_in_word) {
  166.    (bork) {@ _out_line = _out_line ## [$_in_word]}
  167.    (*tion) {
  168.     @ _len = [$@_in_word] - 4
  169.     @ _out_line = [$_out_line ]##[$subchef($left($_len $_in_word))]##[shun]
  170.    }
  171.    (an) {@ _out_line = _out_line ## [un ]}
  172.    (the) {@ _out_line = _out_line ## [zee ]}
  173.    (*) {@ _out_line = _out_line##[$subchef($_in_word)]
  174.    }
  175.   }
  176.  }
  177.  say $_out_line
  178.  ^assign -_out_line;^assign -_in_line;^assign -_in_word
  179. }
  180.  
  181. alias chefme {
  182.  @ in_line = [$0-]
  183.  fe ($in_line) _in_word {
  184.   switch ($_in_word) {
  185.    (bork) {@ _out_line = _out_line ## [$_in_word]}
  186.    (*tion) {
  187.     @ _len = [$@_in_word] - 4
  188.     @ _out_line = [$_out_line ]##[$subchef($left($_len $_in_word))]##[shun]
  189.    }
  190.    (an) {@ _out_line = _out_line ## [un]}
  191.    (the) {@ _out_line = _out_line ## [zee]}
  192.    (*) {@ _out_line = _out_line##[$subchef($_in_word)]
  193.    }
  194.   }
  195.  }
  196.  me $_out_line
  197.  ^assign -_out_line;^assign -_in_line;^assign -_in_word
  198. }
  199.  
  200. alias chefmsg {
  201.  @ in_line = [$1-]
  202.  fe ($in_line) _in_word {
  203.   switch ($_in_word) {
  204.    (bork) {@ _out_line = _out_line ## [$_in_word]}
  205.    (*tion) {
  206.     @ _len = [$@_in_word] - 4
  207.     @ _out_line = [$_out_line ]##[$subchef($left($_len $_in_word))]##[shun]
  208.    }
  209.    (an) {@ _out_line = _out_line ## [un]}
  210.    (the) {@ _out_line = _out_line ## [zee]}
  211.    (*) {@ _out_line = _out_line ##[$subchef($_in_word)]
  212.    }
  213.   }
  214.  }
  215.  /msg $0 $_out_line
  216.  ^assign -_out_line;^assign -_in_line;^assign _in_word
  217. }
  218.  
  219. alias subchef {
  220.  @ __bork = [$0]
  221.  fec ($__bork) _bork {
  222.   switch ($_bork) {
  223.    (a) {@ bork_return = bork_return ## [e]}
  224.    (e) {@ bork_return = bork_return ## [i]}
  225.    (f) {@ bork_return = bork_return ## [ff]}
  226.    (i) {@ bork_return = bork_return ## [ee]}
  227.    (v) {@ bork_return = bork_return ## [f]}
  228.    (o) {@ bork_return = bork_return ## [u]}
  229.    (u) {@ bork_return = bork_return ## [oo]}
  230.    (w) {@ bork_return = bork_return ## [v]}
  231.    #(.) {@ bork_return = bork_return ## [. Bork Bork Bork!]}
  232.    (!) {@ bork_return = bork_return ## [! Bork Bork Bork!]}
  233.    (*) {@ bork_return = bork_return ## [$_bork]}
  234.   }
  235.  }
  236.  @ FUNCTION_RETURN = [$bork_return ]
  237.  ^assign -bork_return;^assign -_bork;^assign -__bork
  238. }
  239.  
  240. alias postal {
  241.  if (C) {
  242.   @ _p.s = lastserver()
  243.   @ _p.t = _dfn($_p.s)
  244.   @ _p.c = C
  245.   @ _p.mn = N
  246.   evalserver $_p.s if (ischanop($_p.mn $_p.c)) {
  247.    if ([$0]==[all]) {
  248.     evalserver $_p.s @ _p.l = chanusers($_p.c)
  249.    }{
  250.     evalserver $_p.s fe ($chanusers($_p.c)) _p.u {if (!ischanop($_p.u $_p.c)) {@ _p.l = [$_p.l $_p.u]}}
  251.    }
  252.    @ _p.n = [$mid(0 3 $_p.mn)]
  253.    @ _p.n = [$_p.n]##[Postal]
  254.    @ _p.o = [$_p.mn]
  255.    evalserver $_p.s /me suddenly has an urge to become a postal worker.
  256.    evalserver $_p.s /nick $_p.n
  257.    evalserver $_p.s WAIT
  258.    evalserver $_p.s /me grabs an assault weapon and picks a random person...
  259.    evalserver $_p.s //kick $_p.c $word($rand($#_p.l - 1) $_p.l) pOsTaLkIcK vIcTiM
  260.    evalserver $_p.s /nick $_p.o
  261.    @ _rfn($_p.s $_p.t)
  262.   }{gecho You don't own a gun, You can't go postal without one!}
  263.  }{gecho Not in a channel, how can you go postal???}
  264.  purge _p
  265. }
  266.  
  267. alias gz.unloadextras {
  268.  ^alias -bleah;^alias -bork;^alias -fozzie;^alias -beaker
  269.  ^alias -postal;^alias -chefme;^alias -chefsay;^alias -subchef
  270.  ^alias -gimpkick;^alias -soupkick;^alias -gerbilkick;^alias -pimpslap
  271.  ^alias -pimpkick;^alias -pimpslap;^alias -lamahkick;^alias -stinkkick
  272.  ^assign -gz.extras;
  273.  ^timer 1 ^alias -gz.unloadextras
  274.  ^timer 2 makegemzmenu
  275. }
  276.  
  277.