home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / INTERNET / SCRIPTS1.ZIP / CS5.IRC < prev    next >
Encoding:
Text File  |  1996-08-19  |  13.0 KB  |  423 lines
  1. ###This is CyBeRScript Version 5.55,
  2. ###Thanx fur usin' it!
  3.  
  4. assign pingmsg If This Action Is Repeated I Shall Stab You 25 Times - Have A Nice Day
  5. assign signmsg Byeeeeeeeeeeeeeeee!
  6. assign ex [C|S]
  7. assign showkill on
  8. assign awaystat on
  9. assign isaway no
  10. assign logirc off
  11.  
  12. ^set input_prompt Now loading CyBeRScript...please wait...
  13. ^set status_chanop OPS 
  14. ^set channel_name_width 12
  15. ^set flood_warning off
  16. ^set input_protection on
  17. ^set show_channel_names on
  18. ^set show_end_of_msgs on
  19. ^set show_numerics off
  20. ^set show_who_hopcount on
  21. ^set suppress_server_motd on
  22. ^set user_wallops off
  23. ^set use_old_msg on
  24. ^set dcc_block_size 1024
  25. ^set inverse_video on
  26. ^set exec_protection off
  27. ^set auto_unmark_away off
  28. ^set bold_video on
  29. ^set underline_video on
  30. ^set auto_whowas on
  31. ^set notify_on_termination on
  32. ^set scroll on
  33. ^set clock on
  34. ^set clock_24hour off
  35. ^set novice off
  36. ^set status_hold  --(o) (o)-- 
  37. ^set hold_mode on
  38. ^set insert_mode on
  39. ^set highlight_char bold
  40. ^set full_status_line on
  41. ^set beep_on_msg msg
  42. ^set command_mode off
  43. load tabkey
  44.  
  45. bind meta1-[ meta2
  46. bind meta1-O meta2
  47. bind meta2-A backward_history
  48. bind meta2-B forward_history
  49. bind meta2-C forward_character
  50. bind meta2-D backward_character
  51. bind ^B self_insert
  52. bind ^_ self_insert
  53. bind ^V self_insert
  54. bind ^Z stop_irc
  55. bind ^X switch_channels
  56. bind ^O parse_command /ig $,
  57. bind ^I parse_command ^getmsg 1 $msglist
  58. bind ^R parse_command ^getmsg -1 $msglist
  59. bind ^F parse_command /flush
  60.  
  61. ###Startup Stuff
  62.  
  63. ^set status_format  <CyBeRScript> %T %*%@%N%#%S%H%B%Q%A%C%+%I%O%M%F %W%>%U
  64. EVAL ^assign OLD_STATUS $STATUS_FORMAT
  65.  
  66. ###Useful Crap
  67.  
  68. alias ww whowas
  69. alias sc names $C
  70. alias n notice
  71. alias wi whois
  72. alias unignore noig
  73. alias chops /w -chops
  74. alias re redirect
  75. alias c /mode $C $0-
  76. alias op {
  77.   /mode $C +ooo $0 $1 $2
  78.   if ([$3]) {/op $3-}
  79. }
  80. alias dop {
  81.   /mode $C -oo $0 $1
  82.   if ([$2]) {/dop $2-}
  83. }
  84. alias signoff {
  85.   if ([$0]) {
  86.     EVAL /echo *** Signoff: $N \($0-\)
  87.     //signoff $0-
  88.   }
  89.   {
  90.     EVAL /echo *** Signoff: $N \($signmsg\)
  91.     EVAL //signoff $signmsg
  92.   }
  93. }
  94. on ^raw_irc "% PONG *" {
  95.   if ([$0]==[$S]) {
  96.         ^assign lagtime ${time()-mid(1 999 $3)}
  97.         if (lagtime==0) {/set status_user  C|S}
  98.         {/set status_user  Lag $lagtime - C|S}
  99.   }
  100. }
  101. on ^mail "*" {/echo You Have New E-Mail! \(Mail Waiting: $1\)}
  102. on ^send_msg "*" {
  103.    /echo <[$0]> $1-
  104.   ^addmsg $0 $msglist
  105. }
  106. alias addmsg {
  107.         @ matched = rmatch($0 $^\1-)
  108.         if (matched) {@ msglist = [$(0-${matched-1}) $(${matched+1}-)]}
  109.         {@ msglist = [$(0-${msgmax-1})]}
  110.         @ msgcnt = 0
  111.         ^assign -matched
  112. }
  113. alias getmsg {
  114.         @ msgcnt = msgcnt + [$0]
  115.         if ( #msglist < msgcnt ) {@ msgcnt = 1}
  116.         if (msgcnt <= 0) {@ msgcnt =  #msglist}
  117.         @ junk = K ## [msg]
  118.         /type ^U$junk $^^{[$($msgcnt)]}
  119. }
  120. alias addmsg {
  121.         @ matched = rmatch($0 $^\1-)
  122.         if (matched) {@ msglist = [$(0-${matched-1}) $(${matched+1}-)]}
  123.         {@ msglist = [$(0-${msgmax-1})]}
  124.         @ msgcnt = 0
  125.         ^assign -matched
  126. }
  127. on ^send_action "*" if ([$[1]0]!=[#])
  128.  {/echo * $0 >> $N $1-}
  129.  {/echo * $N $1-}
  130. on ^send_public "*" {
  131.     if ([$0]==C) {/echo <${N}> $1-}
  132.     {/echo -> <${N}> $1-}
  133. }
  134. on ^action "*" if ([$[1]1]!=[#])
  135.  {echo * $0 $2-}
  136.  {if ([$C]!=[$1]) {/echo * $1 >> $0 $2-}
  137.  {/echo * $0 $2-}
  138. }
  139. alias inv {
  140.   if ([$0]) {
  141.         if ([$1]) {/invite $0-}
  142.         {/invite $0 $C}
  143.   }
  144.   {/echo You need to specify a nick to invite.}
  145. }
  146. alias j join
  147. alias l leave
  148.     
  149. CLEAR -ALL
  150.     echo [----------------------------------------------]
  151.     echo [     Now Loading CyBeRScript V5.55...         ]
  152.     echo [----------------------------------------------]
  153.  
  154. ###Special Commands:
  155.  
  156. alias burp me burps...BRAAAAAAAAAAAPPPPPPP!!!
  157. alias pee me pees all over $0
  158. alias drunk me vomits all over $0 (one too many beers)
  159. alias odour me smells a disgusting odour coming from $0
  160. alias rob me comes up and steals all of $0's possessions
  161. alias poke me pokes $0 in the ribs
  162. alias bignoogie me crushes his/her fist into $0's skull (tough noogies)
  163. alias relatives me kills all of his living relatives in a fit of rage
  164. alias fart me cuts the cheese and kills all life on the planet
  165. alias killer1 me kicks $0's fat ass through the window
  166. alias killer2 me pops the zit named $0 with a shotgun
  167. alias killer3 me rips all of $0 's guts out with a spoon
  168. alias killer4 me coats $0 in gasoline and torches him/her
  169. alias killer5 me tears $0's face off with a cheese grater
  170. alias killer6 me takes an axe and splits $0's head open
  171. alias suprkick me gives $0 a roundhouse in the solar-plexus
  172. alias suprpnch me punches the life out of $0
  173. alias suicide {
  174.     me takes a razor blade to both his wrists..ewww, bloood...
  175.     assign signmsg I don't feel so gooood...
  176.     wait
  177.     signoff
  178. }
  179. alias pong describe $0 Stabs $0 25 times (Don't ping me!)
  180. alias hugehug me squeeezes $0 until $0 can hardly breathe..
  181. alias hehe say hehehehehehehehehehehehehehehehehehehehehehehehehehehehehehe!
  182. alias haha say hahahahahahahahahahahahahahahahahahahahahahahahahahahahahaha!
  183. alias hoho say hohohohohohohohohohohohohohohohohohohohohohohohohohohohohoho!
  184. alias gig me giggles *hehehe!*
  185. alias 5mw say Damn, Damn, Damn! I got a FREAKING 5MW!!!!!!! 
  186. alias love me feels a deep and powerful love for $0
  187. alias loveu me loves $0 very much!
  188. alias hug me hugs $0
  189. alias peck me softly kisses $0 on the cheek
  190. alias kiss me grabs $0 and plants him/her a kiss on the lips
  191. alias invite2 {
  192.     describe $0 invites you to his/her own private channel
  193.     inv $0
  194. }
  195. alias suprkill {
  196.     killer1 $0
  197.     killer2 $0
  198.     killer3 $0
  199.     killer4 $0
  200.     killer5 $0
  201.     killer6 $0
  202.     suprkick $0
  203.     suprpnch $0
  204.     bignoogie $0
  205.     me has killed $0! Yaaaay!
  206. }
  207. alias magic {
  208.     me prays to the Gods...
  209.     @old_nick=[$N]
  210.     /nick The_Gods
  211.     wait
  212.     say     _
  213.     say    //
  214.     say   //_
  215.     say  /_ /
  216.     say   //_
  217.     say  /_ /
  218.     say   //
  219.     say   /
  220.     kick * $0
  221.     mode * +b $0
  222.     nick $old_nick
  223.     wait
  224.     say My Prayers Have Been Answered!
  225. }
  226. alias x1a me ?  ,_____,_   __ _ __  ?
  227. alias x2a me ? (,,__  -_/ |_  __,,) ?      T H E
  228. alias x3a me ?     \\ \\      / )     ?  
  229. alias x4a me ?      :_/    / I      ? (X) - F I L E S    
  230. alias x5a me ?       /\\    I /      ?
  231. alias x6a me ?       \\ |  / /       ?
  232. alias x7a me ?        \\ \\/ /        ?
  233. alias x8a me ?         >  <         ?
  234. alias x9a me ?        :  I \\        ?
  235. alias x1b me ?       / /  \\ \\       ?
  236. alias x2b me ?      / /    | :      ?
  237. alias x3b me ?  _..v |_    _\\ \\_,.  ?
  238. alias x4b me ? (._.__ _)  |, __- _) ?
  239. alias x1 { ;x1a;x2a;x3a;x4a;x5a;x6a;x7a;}
  240. alias x2 { ;x8a;x9a;x1b;x2b;x3b;x4b;}
  241. alias X { ;x1;x2;}
  242. alias rs1 me [            ____          ___           __----__   _/\\       ]
  243. alias rs2 me [         _/^ __ ^\\_    /~^_/ |       ()/^        ^-^ _/      ]
  244. alias rs3 me [       _/^ _/^  ^\\_ ^\\ | ./  /~      /()            _/\\.     ]
  245. alias rs4 me [     _/^_/^--_     ^\\_^\\-__-~      _/()\         _/  ./       ]
  246. alias rs5 me [   ./^_/|  \\_ ~\\      \\_^\\_      /^ _() ~-_    _/ \\./\\       ]
  247. alias rs6 me [ _/^_/   \\_  ~\\ \\      ^\\__^\\../^_/^()\\    ~~~~    _\\/       ] 
  248. alias rs7 me [<__/       ~\\__\\|         ^\.__./^      ~---____--~ ~\\        ]
  249. alias rs8 me hands a Rose to $0 ...I hope you like it!! =)
  250. alias rose {
  251.         rs1
  252.         rs2
  253.         rs3
  254.         rs4
  255.         rs5
  256.         rs6
  257.         rs7
  258.         rs8
  259. }
  260. alias romance {
  261.     me gracefully doffs his hat and bows toward $0...
  262.     me accepts $0's sexy hand and gently kisses it...
  263. }
  264. alias romance-f {
  265.     me looks alluringly in $0's direction...
  266.     me smiles, and says "Come here, big boy!"
  267. }
  268. alias hello {
  269.     say  ##  ##  ######  ##      ##      ######  | |
  270.     say  ##  ##  ##      ##      ##      ##  ##  | |
  271.     say  ######  ####    ##      ##      ##  ##  | |
  272.     say  ##  ##  ##      ##      ##      ##  ##
  273.     say  ##  ##  ######  ######  ######  ######  O O
  274. }
  275. alias cya {
  276.     say  ######  ##  ##    ##    | |
  277.     say  ##      ##  ##  ##  ##  | |
  278.     say  ##      ######  ######  | |
  279.     say  ##        ##    ##  ##
  280.     say  ######    ##    ##  ##  O O
  281. }
  282. alias msghi {
  283.     msg $0  ##  ##  ######  # # # 
  284.     msg $0  ##  ##    ##    # # #
  285.     msg $0  ######    ##    # # #
  286.     msg $0  ##  ##    ##    
  287.     msg $0  ##  ##  ######  # # #
  288.     }
  289. alias ht1a      *****   ***** 
  290. alias ht2a    ******** ********
  291. alias ht3a   *******************
  292. alias ht4a   *******************
  293. alias ht5a    *****************
  294. alias ht6a     ***************
  295. alias ht7a       ***********
  296. alias ht8a         *******
  297. alias ht9a           ***
  298. alias ht1b            *
  299. alias heart {
  300. ht1a
  301. ht2a
  302. ht3a
  303. ht4a
  304. ht5a
  305. ht6a
  306. ht7a
  307. ht8a
  308. ht9a
  309. ht1b
  310. }
  311. alias cyb2 {
  312.     echo $ex These Are The Looooove Commands:
  313.     echo $ex  
  314.     echo $ex /heart - draws a heart in Ascii Art
  315.     echo $ex /hugehug <nick> - gives somebody a huge hug
  316.     echo $ex /rose <nick> - The cool rose from titan1.irc 
  317.     echo $ex /love <nick> - 'Whisper Sweet Words Of Love..'
  318.     echo $ex /romance <nick> - romance somebody
  319.     echo $ex /romance-f <nick> - /romance for females
  320.     echo $ex /invite2 <nick> - invite in a special way (need OPS)
  321.     echo $ex /hug <nick> - give somebody a hug
  322.     echo $ex /peck <nick> - give somebody a kiss on the cheek
  323.     echo $ex /kiss <nick> - give somebody a kiss on the lips
  324.     echo $ex /loveu <nick> - 'Tell somebody Your True Feelings'
  325.     echo $ex   
  326.     echo $ex       ----===<-CyBeRWolf %)->===----
  327. }
  328. alias cyb1 {
  329.     echo $ex These Are The Violent Commands:
  330.     echo $ex  
  331.     echo $ex /killer1 <nick> - See for yourself
  332.     echo $ex /killer2 <nick> - See for yourself
  333.     echo $ex /killer3 <nick> - See for yourself
  334.     echo $ex /killer4 <nick> - See for yourself
  335.     echo $ex /killer5 <nick> - See for yourself
  336.     echo $ex /killer6 <nick> - See for yourself
  337.     echo $ex /suicide - Commit suicide (literally!)
  338.     echo $ex /pong <nick> - If you hate people pinging you...
  339.     echo $ex /poke <nick> - (Not very violent)
  340.     echo $ex /bignoogie <nick> - Give somebody a really big noogie
  341.     echo $ex /relatives - Have a fit of rage
  342.     echo $ex /suprpnch <nick> - Punch the life out of somebody
  343.     echo $ex /suprkick <nick> - Kick 'em in the solar-plexus
  344.     echo $ex /suprkill <nick> - Many of the above commands
  345.     echo $ex  
  346.     echo $ex        ----===<-CyBeRWolf %)->===----
  347. }
  348. alias cyb3 {
  349.     echo $ex These are the "Other" commands:
  350.     echo $ex  
  351.     echo $ex /fart - Cut the cheese
  352.     echo $ex /hehe - Say 'hehehehehehe...!'
  353.     echo $ex /haha - Say 'hahahahahaha...!'
  354.     echo $ex /hoho - Say 'hohohohohoho...!'
  355.     echo $ex /gig - giggle
  356.     echo $ex /5mw - Tell everyone that you got a 5mw
  357.      echo $ex /hello - Say 'hello!!' in Ascii Art
  358.     echo $ex /msghi - Say 'hi!' in Ascii Art in secret
  359.     echo $ex /cya - Say 'cya!!' in Ascii Art
  360.     echo $ex /pee <nick> - Pee on somebody
  361.     echo $ex /drunk <nick> - One too many beers..
  362.     echo $ex /odour <nick> - Somebody needs deodorant..
  363.     echo $ex /rob <nick> - Steal somebody's possessions
  364.     echo $ex /magic <nick> (OPS) - Kick somebody off the channel
  365.     echo $ex /X - My representation of the X-Files (Ascii Art)
  366.     echo $ex /BTW - A little editor's note that I couldn't find
  367.     echo $ex     room for anywhere else =)
  368.     echo $ex  
  369.     echo $ex You may thank (?) my neighbor for many of the above :)
  370.     echo $ex        -----===<-CyBeRWolf %)->===----
  371. }
  372. alias helpme {
  373.     echo $ex This is my help file, for new users of scripts:
  374.     echo  
  375.     echo  Need Help?
  376.     echo      If you are new at this, and haven't used IRC or scripts
  377.     echo  much, you may be asking yourself a few questions:
  378.     echo 
  379.     echo  1. What does OPS mean? 
  380.     echo      A. OPS is a term used by IRCers to represent 'Operator
  381.     echo      Status' this means that you have control of the channel
  382.     echo      that you are in. More than one person can have OPS in a
  383.     echo     channel, and if you created the channel, you will 
  384.     echo      automatically have it. 
  385.     echo   
  386.     echo  2. What does '<nick>' mean?
  387.     echo      A. <nick> simply means that you have to input the nickname
  388.     echo      of the person that you want to use the command on. When
  389.     echo      typing in the nickname, do not use the < and > signs.
  390.     echo 
  391.     echo  3. What does '(OPS)' mean?
  392.     echo       A. '(OPS)' means that you need OPS to use this command.
  393.     echo   
  394.     echo    For help on using other features on IRC, such as changing your
  395.     echo  nickname or editing your ircrc file, simply type /help while in
  396.     echo  IRC. If you still can't figure it out you can write me (I suppose)
  397.     echo  at br156.     Cya' On IRC!    CyBeRWolf %)!
  398. }
  399. alias BTW {
  400.     echo   BTW, If you have ever used Phoenix.NCF, you will find that many of your
  401.     echo favourite commands from that script have been added to this script.
  402.     echo Some examples are: /j, /l, /inv, /j -inv, /op, and /dop
  403.     echo     I feel much better with that of my chest =)   Sincerely,
  404.     echo                                           CyBeRWolf %)
  405. }
  406. EVAL /chgst
  407. EVAL /do301
  408. EVAL /your_host
  409. EVAL /quote PING $time() $S
  410. CLEAR -ALL
  411.     echo [----------------------------------------------]
  412.     echo [     CyBeRScript V5.55 is Now Loaded!!        ]
  413.     echo [----------------------------------------------]
  414.     echo [  For CyBeRScript Online Help, type /helpme   ]
  415.     echo [For Many Commands, Type /cyb1, /cyb2, or /cyb3]
  416.     echo [----------------------------------------------]
  417.     echo [     Send Questions and Comments to br156     ]
  418.     echo [                      -CyBeRWolf %)           ]
  419.     echo [----------------------------------------------]
  420.     echo 
  421.     echo   
  422. ^set input_prompt >> 
  423.