home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / shutils / internet / irc / script / bw10b1.exe / events.bio < prev    next >
Encoding:
Text File  |  1997-08-25  |  14.4 KB  |  269 lines
  1. on 1:nosound:if (%nosoundget == on) { msg $comchan($nick,1) ! $+ $nick $filename áááGimme that $upper($right($filename,3)) $+ ! $logo 14sound-grabber | halt }
  2. on 1:deop:#:{ if (%mdeoppro == on) { inc %mdeopvar1 | .timer818 1 1 massdeoppro $chan $nick | .timer819 1 2 unset %mdeopvar1 } }
  3. on 1:join:#:{
  4.   if ($nick == $me) {
  5.     echo 1 -a 2,15[5,15Entering $chan $+ 2,15]
  6.     set %jointime $ticks
  7.     set %tempchan $chan 
  8.     set %whoclone yes | who $chan
  9.     halt
  10.   }
  11.   writeini seen.bio $nick ctime $ctime | writeini seen.bio $nick date $adate
  12.   writeini seen.bio $nick action Joined $chan
  13.   echo $chan 5-=(2Join5)=-14 $nick $+ < $+ $address $+ > 5-=(2Join5)=-
  14.   set %tempaol $address($nick,2)
  15.   if ((%auto-aol-kick == on) && ($right(%tempaol,7) == aol.com) && ($me isop $chan)) { kick $chan $nick Auto-AOL kick - $logo }
  16.   set %tempauto $readini user.ini auto-op $address($nick,3)
  17.   if ((%tempauto == yes) && ($me isop $chan)) { mode $chan +o $nick | .notice $nick $logo Auto-op }
  18.   set %tempauto $readini user.ini shitlist $address($nick,3)
  19.   if ((%tempauto == yes) && ($me isop $chan)) { kick $chan $nick $logo Shitlist | ban $chan $nick 3 }
  20.   clonejoin $address($nick,2) $nick
  21.   if (%revolvdoor == on) { set %rdoor [ $+ [ $nick ] ] on | timer14 1 5 unset %rdoor [ $+ [ $nick ] ] }
  22. }
  23. on 1:text:*:?:{
  24.   if (($nick == $me) && (%awayloggin == on)) { write logs.txt < $+ $clock $+ > I wrote : $1- | goto next }
  25.   if (%awayloggin == on) {
  26.     write logs.txt < $+ $clock $+ > $nick wrote : $1-
  27.     msg $nick I'm away : ñ2 $+ %reason $+ ñ Msg Saved $logo
  28.     goto next
  29.   }
  30.   if (%reason != $null) { msg $nick I'm away : ñ2 $+ %reason $+ ñ $logo }
  31.   :next
  32.   if (%msg-flood == on) { unset %temp*
  33.     set %tempctcp $readini flood.ini msg $nick
  34.     if (%tempctcp == $null) { writeini flood.ini msg $nick $ctime | writeini flood.ini msg $nick [ $+ [ 1 ] ] 1 | halt }
  35.     %tempctcp = $ctime - %tempctcp | set %tempctcp1 $readini flood.ini msg $nick [ $+ [ 1 ] ]
  36.     if ((%tempctcp <= 2) && (%tempctcp1 >= 5)) { .ignore -u120 $nick 2 | echo 12 -a MSG Flood Detected by : $nick $+ , 2 minute ignore | goto end }
  37.     if (%tempctcp > 2) { writeini flood.ini msg $nick $ctime | writeini flood.ini ctcp $nick [ $+ [ 1 ] ] 1 | halt }
  38.     inc %tempctcp1 | writeini flood.ini msg $nick [ $+ [ 1 ] ] %tempctcp1 | halt | :end
  39.     writeini flood.ini msg $nick $ctime | writeini flood.ini msg $nick [ $+ [ 1 ] ] 1 | halt
  40.   }
  41. }
  42. on 1:part:#:{
  43.   echo $chan 5-=(2Part5)=-14 $nick $+ < $+ $address $+ > 5-=(2Part5)=-
  44.   if ((%rdoor [ $+ [ $nick ] ] == on) && ($me isop $chan)) { ban -u1000 $chan $nick | msg $chan $logo Revolving Door Ban $logo | unset %rdoor [ $+ [ $nick ] ] }
  45.   writeini seen.bio $nick ctime $ctime | writeini seen.bio $nick action Left $chan
  46.   writeini seen.bio $nick date $adate
  47.   unset % $+ $nick $+ text
  48. }
  49. on 1:quit:{
  50.   writeini seen.bio $nick ctime $ctime | writeini seen.bio $nick action Quit with the Message : $1-
  51.   writeini seen.bio $nick date $adate
  52.   set %chans 1
  53.   :loop
  54.   if ($chan(%chans) == $null) { halt }
  55.   if ($nick ison $chan(%chans)) { echo $chan(%chans) 5-=(2Quit5)=-14 $nick $+ < $+ $address $+ > ( $+ $1- $+ ) 5-=(2Quit5)=- }
  56.   inc %chans
  57.   goto loop
  58. }
  59. on 1:start:{
  60.   if ((%servnotices == on) || (%wallops == on)) {
  61.     window @áServeráMessagesá@ 360 0 280 363
  62.     echo 1 @áServeráMessagesá@ This is where your Server Messages will go
  63.   }
  64.   inc %numtimesusing | set %hd-loc $left($mircdir,3) | set %mircdir $mircdir | if (%numtimesusing == 1) { setup | set %mididir $mircdir | set %wavdir $mircdir }
  65.   .remove flood.ini
  66.   if (%password != $null) {
  67.     set %var12 $$?="Enter your password"
  68.     if (%var12 != %password) { echo -a Password Incorrect, IRC will shut down in 5 seconds | .timer 1 5 exit }
  69.     else { echo -a Password Correct.  Connect when ready. }
  70.   }
  71.   titlebar Good $timofday $+ , Quote o` the Day : $read quotes.bio | biostartup
  72.   echo 2 -s Welcome to $logo $+ , this is your $th(%numtimesusing) time using BioWar.
  73.   echo 5 -s Ready for connection to server
  74. }
  75. on 1:connect:{
  76.   .remove flood.ini
  77.   if (%auto-idle == on) { .timer11 0 1 idlecheck | .timer12 0 1 titleidle }
  78.   .timer15 1 10 /autochanjoin %chanstojoin
  79.   if (%chanstojoin == $null) { .timer15 off }
  80.   if (%chanstojoin != $null) { echo 2 -s Auto-Joining %chanstojoin in 10 Seconds, press F5 to stop }
  81.   mode $me +sw
  82.   if (%channelstart == yes) { window -l @Channels@ 200 0 250 200 chanjoin.bio | /loadbuf 1- $+ $lines(chans.txt) @Channels@ chans.txt }
  83.   titlebar Connected to $server $+ , Welcome to BioWar.  It is Currently $clock [Away/ $+ %awa1 $+ ] [Idle/ $+ $durate($idle) $+ ]
  84.   .timer2221 0 1 title1
  85. }
  86. #httpdl off
  87. on 1:dns:{
  88.   if ($iaddress == $null) { .ruser httpdl $me | echo 12 -a Cannot Download File, doesn't exist | .disable #httpdl | halt }
  89.   .creq auto | .raw privmsg $me :DCC CHAT CHAT $longip($iaddress) 80 $+ 
  90.   .auser httpdl $me | .disable #httpdl
  91. }
  92. #httpdl end
  93. on +httpdl:chatopen:.creq ask | msg = [ $+ [ $me ] ] GET %wwwaddress
  94. on +httpdl:chat:*:/write $mircdir [ $+ [ %wwwtemp1 ] ] $1-
  95. on +httpdl:chatclose:.ruser httpdl $me | close -c $me | /run $mircdir [ $+ [ %wwwtemp1 ] ]
  96. #httpview off
  97. on 1:dns:{
  98.   if ($iaddress == $null) { .ruser httpview $me | echo 5 -a Server does not have a DNS entry | .disable #httpview | halt }
  99.   .creq auto | .raw privmsg $me :DCC CHAT CHAT $longip($iaddress) 80 $+ 
  100.   .auser httpview $me | .disable #httpview
  101. }
  102. #httpview end
  103. on +httpview:chatopen:.creq ask | msg = [ $+ [ $me ] ] GET %wwwaddress | echo 7 @áWebáBrowserá:á $+ %wwwfull $+ á@ ----->Begin Document<-----
  104. on +httpview:chat:*:{
  105.   set %htmlstuff $1-
  106.   %htmlstuff = $replace(%htmlstuff,<html>,á) | %htmlstuff = $replace(%htmlstuff,<title>,Title :) | %htmlstuff = $replace(%htmlstuff,</title>,)
  107.   %htmlsutff = $replace(%htmlstuff,<head>,á) | %htmlstuff = $replace(%htmlstuff,</head>,á) | %htmlstuff = $replace(%htmlstuff,<b>,)
  108.   %htmlstuff = $replace(%htmlstuff,</b>,) | %htmlstuff = $replace(%htmlstuff,<u>,) | %htmlstuff = $replace(%htmlstuff,</u>,)
  109.   %htmlstuff = $replace(%htmlstuff,<font,á) | %htmlstuff = $replace(%htmlstuff,color="red",4) | %htmlstuff = $replace(%htmlstuff,color="blue",12)
  110.   %htmlstuff = $replace(%htmlstuff,color="green",3) | %htmlstuff = $replace(%htmlstuff,color=",á) | %htmlstuff = $replace(%htmlstuff,color=,á)
  111.   %htmlstuff = $replace(%htmlstuff,size=",á) | %htmlstuff = $replace(%htmlstuff,size=,á) | %htmlstuff = $replace(%htmlstuff,<table,á)
  112.   %htmlstuff = $replace(%htmlstuff,cellpadding=,á) | %htmlstuff = $replace(%htmlstuff,cellspacing=,á) | %htmlstuff = $replace(%htmlstuff,<align=,á)
  113.   %htmlstuff = $replace(%htmlstuff,<br>,á) | %htmlstuff = $replace(%htmlstuff,<tr>,á) | %htmlstuff = $replace(%htmlstuff,<tr,á)
  114.   %htmlstuff = $replace(%htmlstuff,+1>,á) | %htmlstuff = $replace(%htmlstuff,<body,Body Tag:) | %htmlstuff = $replace(%htmlstuff,text=,Text Color:)
  115.   %htmlstuff = $replace(%htmlstuff,link=,Link Color:) | %htmlstuff = $replace(%htmlstuff,vlink=,Visited Link:) | %htmlstuff = $replace(%htmlstuff,alink=,Active Link:)
  116.   %htmlstuff = $replace(%htmlstuff,<p>,á) | %htmlstuff = $replace(%htmlstuff,</p>,á) | %htmlstuff = $replace(%htmlstuff,<a href=,Link :)
  117.   %htmlstuff = $replace(%htmlstuff,</a>,) | %htmlstuff = $replace(%htmlstuff,<td,á) | %htmlstuff = $replace(%htmlstuff,<center>,á) | %htmlstuff = $replace(%htmlstuff,</font>,á)
  118.   %htmlstuff = $replace(%htmlstuff,<i>,á) | %htmlstuff = $replace(%htmlstuff,</i>,á) | %htmlstuff = $replace(%htmlstuff,<img src=,Image :)
  119.   %htmlstuff = $replace(%htmlstuff,border=0,á) | %htmlstuff = $replace(%htmlstuff,border=,á) | %htmlstuff = $replace(%htmlstuff,alt=,Alt:)
  120.   %htmlstuff = $replace(%htmlstuff,<h1>,á) | %htmlstuff = $replace(%htmlstuff,</h1>,á) | %htmlstuff = $replace(%htmlstuff,<h2>,á) | %htmlstuff = $replace(%htmlstuff,</h2>,á)
  121.   %htmlstuff = $replace(%htmlstuff,<h3>,á) | %htmlstuff = $replace(%htmlstuff,</h3>,á) | %htmlstuff = $replace(%htmlstuff,<h4>,á) | %htmlstuff = $replace(%htmlstuff,</h4>,á)
  122.   %htmlstuff = $replace(%htmlstuff,<li>,á) | %htmlstuff = $replace(%htmlstuff,</li>,á) | %htmlstuff = $replace(%htmlstuff,</td>,á) | %htmlstuff = $replace(%htmlstuff,<td>,á)
  123.   %htmlstuff = $replace(%htmlstuff,width=,á) | %htmlstuff = $replace(%htmlstuff,height=,á) | %htmlstuff = $replace(%htmlstuff,<meta,á) | %htmlstuff = $replace(%htmlstuff,name=,á)
  124.   %htmlstuff = $replace(%htmlstuff,valign=top,á) | %htmlstuff = $replace(%htmlstuff,valign=bottom,á) | %htmlstuff = $replace(%htmlstuff,valign=right,á)
  125.   %htmlstuff = $replace(%htmlstuff,valign=left,á) | %htmlstuff = $replace(%htmlstuff,content=,á) | %htmlstuff = $replace(%htmlstuff,<img,á) | %htmlstuff = $replace(%htmlstuff,src=,á)
  126.   %htmlstuff = $replace(%htmlstuff,</table>,á) | %htmlstuff = $replace(%htmlstuff,<form,á) | %htmlstuff = $replace(%htmlstuff,</form>,á) | %htmlstuff = $replace(%htmlstuff,value=,á)
  127.   %htmlstuff = $replace(%htmlstuff,<a,á) | %htmlstuff = $replace(%htmlstuff,target=_top,á) | %htmlstuff = $replace(%htmlstuff,target=main,á)
  128.   %htmlstuff = $replace(%htmlstuff,<option,á) | %htmlstuff = $replace(%htmlstuff,<select,á) | %htmlstuff = $replace(%htmlstuff,<input,á) | %htmlstuff = $replace(%htmlstuff,type=,á)
  129.   %htmlstuff = $replace(%htmlstuff,<h5>,á) | %htmlstuff = $replace(%htmlstuff,</h5>,á) | %htmlstuff = $replace(%htmlstuff,href=,á) | %htmlstuff = $replace(%htmlstuff,</head>,á)
  130.   %htmlstuff = $replace(%htmlstuff,</select>,á) | %htmlstuff = $replace(%htmlstuff,ismap,á) | %htmlstuff = $replace(%htmlstuff,</tr>,á) | %htmlstuff = $replace(%htmlstuff,-1,á)
  131.   %htmlstuff = $replace(%htmlstuff,</center>,á) | %htmlstuff = $replace(%htmlstuff, ,á) | %htmlstuff = $replace(%htmlstuff,©,⌐)
  132.   %htmlstuff = $replace(%htmlstuff,valign="top",á) | %htmlstuff = $replace(%htmlstuff,vspace=,á) | %htmlstuff = $replace(%htmlstuff,hspace=,á)
  133.   %htmlstuff = $replace(%htmlstuff,<tt>,á) | %htmlstuff = $replace(%htmlstuff,</tt>,á) | %htmlstuff = $replace(%htmlstuff,<span,á)
  134.   %htmlstuff = $replace(%htmlstuff,>,á)
  135.   if (%htmlstuff == $null) { halt } | echo 2 @áWebáBrowserá:á $+ %wwwfull $+ á@ %htmlstuff
  136. }
  137. on +httpview:chatclose:.ruser httpview $me | close -c $me | echo 7 @áWebáBrowserá:á $+ %wwwfull $+ á@ ----->End HTML Document<-----
  138. #gmaillookup off
  139. on 1:dns:{
  140.   if ($iaddress == $null) {
  141.     echo -a 5-=(2▀\\'5)=- POP3 server %gmailip could not be resolved.
  142.     .ruser getmail $me
  143.     .disable #gmaillookup
  144.   }
  145.   else {
  146.     echo -a 5-=(2▀\\'5)=- POP3 server %gmailip found. Waiting for reply...
  147.     .creq auto
  148.     set %gmailipnum $longip($iaddress)
  149.     rawchat %gmailipnum 110
  150.     .disable #gmaillookup
  151.   }
  152. }
  153. #gmaillookup end
  154. on +getmail:chatopen:{ 
  155.   msg = $+ $me USER %mailuser
  156.   msg = $+ $me PASS %mailpass
  157.   .creq ask
  158.   .timer5575 1 2 echo = $+ $me 5-=(2▀\\'5)=- To retrieve a message, type "RETR" followed by the message number
  159.   .timer5585 1 2 echo = $+ $me 5-=(2▀\\'5)=- To delete a message, type "DELE" followed by the message number
  160.   .timer5595 1 2 echo = $+ $me 5-=(2▀\\'5)=- To end this e-mail retrieval session, type "QUIT"
  161. }
  162. on +getmail:chatclose:.ruser getmail $me
  163. on 1:snotice:*too many connections*:halt
  164. on 1:snotice:*ip# mismatch*:halt
  165. on 1:snotice:*all connections in use*:halt
  166. on 1:snotice:*settime*:halt
  167. on 1:snotice:*:{
  168.   if (%servnotices == on) {
  169.     window @áServeráMessagesá@ 360 0 280 363
  170.     echo 1 @áServeráMessagesá@ 2-=Notice2=- $remove($1-,*** Notice --)
  171.   }
  172.   halt
  173. }
  174. on 1:wallops:*:{
  175.   if (%wallops == on) {
  176.     window @áServeráMessagesá@ 360 0 280 363
  177.     echo 1 @áServeráMessagesá@ 2! $+ $nick $+ 2! $1-
  178.   }
  179.   halt
  180. }
  181. on 1:notice:*:*:{
  182.   if (%noticesound == on) {
  183.     if (%noticesound1 == beep) { beep 5 50 }
  184.     if (%noticesound1 == notice1.wav) { splay notice1.wav }
  185.     if (%noticesound1 == notice2.wav) { splay notice2.wav }
  186.   }
  187. }
  188. on 1:text:**:#:if ((%colorkick == on) && ($me isop $chan) && ($nick !isop $chan)) kick $chan $nick Color Kick $logo1
  189. on 1:text:*:#:if ((%colorkick == on) && ($me isop $chan) && ($nick !isop $chan)) kick $chan $nick Color Kick $logo1
  190. on 1:text:*:#:if ((%colorkick == on) && ($me isop $chan) && ($nick !isop $chan)) kick $chan $nick Color Kick $logo1
  191. on 1:text:*:#:{
  192.   set %tempauto $readini user.ini shutupkick $address($nick,3)
  193.   if ((%tempauto == yes) && ($me isop $chan)) { kick $chan $nick You are on my Shut Up kick list.  SHUT UP! }
  194.   if ($nick !isop $chan) {
  195.     textfloodpro $nick $chan
  196.     if ($nick != $me) {
  197.       if (%capskick == on) {
  198.         set %totaltext $1-
  199.         :loop1
  200.         if ($len(%totaltext) == $null) { goto end1 }
  201.         if ($left(%totaltext,1) == $chr(32)) {
  202.           set %numletters [ $len(%totaltext) - 1 ]
  203.           set %totaltext $mid(%totaltext,2,%numletters)
  204.           goto loop1
  205.         }
  206.         else {
  207.           if ($asc($left(%totaltext,1)) isnum 65-90) { inc %caps }
  208.           inc %all
  209.         }
  210.         set %numletters [ $len(%totaltext) - 1 ]
  211.         set %totaltext $mid(%totaltext,2,%numletters)
  212.         goto loop1
  213.         :end1
  214.         if ($percent(%caps,%all) => 80) { kick $chan $nick Caps Kick $logo1 }
  215.         unset %totaltext %numletters %caps %all
  216.       }
  217.       if (%repeatkick == on) {
  218.         if ($1- == [ % [ $+ [ $nick [ $+ [ text ] ] ] ] ]) { kick $chan $nick Repeat Kick $logo1 }
  219.         else { set % $+ $nick $+ text $1- }
  220.       }
  221.     }
  222.   }
  223. }
  224. on 1:action:*:#:textfloodpro $nick $chan
  225. menu @Channels@ {
  226.   dclick { join $line(@Channels@,$sline(@Channels@,1).ln) }
  227. }
  228. menu @áWhoisá@ {
  229.   dclick { window -c @áWhoisá@ }
  230. }
  231. menu @áAboutáBioWará@ {
  232.   dclick { window -c @áAboutáBioWará@ }
  233. }
  234. menu @áCloneáDetectorá@ {
  235.   dclick { window -c @áCloneáDetectorá@ }
  236. }
  237. menu @Setup@ {
  238.   dclick { wavplay pop | setupclick $1 }
  239. }
  240. menu @áExplorerá@ {
  241.   dclick { wavplay pop | set %ex-line $sline(%ex-winder,1).ln | set %ex-run %ex-dir $+ $line(%ex-winder,%ex-line) | run %ex-run }
  242. }
  243. menu @áClickáGame {
  244.   dclick { clickgameclicked $1 }
  245. }
  246. menu @áCalculator {
  247.   dclick { calclick $1 }
  248. }
  249. on 1:DNS:{
  250.   echo 5 -a ____________________
  251.   echo 5 -a DNS : $nick
  252.   echo 5 -a IP Address : $iaddress
  253.   if ($raddress == $null) echo 5 -a Could Not resolve Address
  254.   echo 5 -a »»»»»»»»»»»»»»»»»»»»
  255.   halt
  256. }
  257. on 1:action:*:#:{
  258.   if (%repeatkick == on) {
  259.     if ($1- == [ % [ $+ [ $nick [ $+ [ text ] ] ] ] ]) { kick $chan $nick Repeat Kick $logo1 }
  260.     else { set % $+ $nick $+ text $1- }
  261.   }
  262. }
  263. on 1:kick:#:{
  264.   writeini seen.bio $nick ctime $ctime | writeini seen.bio $nick action Kicked from $chan
  265.   writeini seen.bio $nick date $adate
  266.   unset % $+ $knick $+ text
  267. }
  268. on 1:quit:unset % $+ $nick $+ text
  269.