home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / shutils / internet / irc / script / bw10b1.exe / raw.bio < prev    next >
Encoding:
Text File  |  1997-08-23  |  2.9 KB  |  78 lines
  1. raw 366:*:{
  2.   set %synctime $ticks
  3.   set %sync [ %synctime - %jointime ]
  4.   if ($len(%sync) == 4) {
  5.     set %sync-1 $right(%sync,3)
  6.     set %sync-2 $left(%sync,1)) $+ . $+ %sync-1 secs
  7.     echo $2 5-=(2▀\\'5)=- Join to %tempchan Synced in: %sync-2
  8.   }
  9.   if ($len(%sync) == 3) {
  10.     set %sync-3 0. $+ %sync secs
  11.     echo $2 5-=(2▀\\'5)=- Join to %tempchan Synced in: %sync-3
  12.   }
  13.   if ($len(%sync) == 2) {
  14.     set %sync-3 0.0 $+ %sync secs
  15.     echo $2 5-=(2▀\\'5)=- join to %tempchan Synced in: %sync-3
  16.   }
  17.   if ($len(%sync) == 1) {
  18.     set %sync-3 0.00 $+ %sync secs
  19.     echo $2 5-=(2▀\\'5)=- Join to %tempchan Synced in: %sync-3
  20.   }
  21.   unset %jointime %sync*
  22.   if ($chan($chan(0)).topic != $null) { echo 2 -a ñTopic :5 $chan($chan(0)).topic $+ ñ } | if ($chan($chan(0)).topic == $null) { echo 2 -a ñTopic :5 no topic setñ } | echo 2 -a ñOps :5 $opnick(0,%tempchan) $+ ñ áñNon-Ops :5 $nopnick(0,%tempchan) $+ ñ
  23.   halt
  24. }
  25. raw 352:*:{
  26.   if (%ircopscan == on) { inc %ircopsnum | echo 2 -a  $+ $chr(35) $+ %ircopsnum : $6 5-=( $+ $3 $+ @ $+ $4 $+ 5)=- | halt }
  27.   if (%whoclone == yes) { halt }
  28. }
  29. raw 315:*:{
  30.   if (%ircopscan == on) { echo 2 -a 5-=(IRC Op Scan Complete5)=- | unset %ircopscan | halt }
  31.   if (%whoclone == yes) { unset %whoclone | halt }
  32. }
  33. raw 311:*:{
  34.   if (%whoi == -w) {
  35.     set %msg echo 1 @áWhoisá@
  36.     window @áWhoisá@ 100 0 400 200
  37.   } 
  38.   if (%whoi == -c) set %msg msg $comchan($2,1)
  39.   if (%whoi == -e) set %msg echo -a
  40.   %msg $logo1 5-=(2Whois5)=- :14 $2
  41.   %msg 5-=(2Address5)=- :14 $2 $+ ! $+ $3 $+ @ $+ $4
  42.   %msg 5-=(2Real Name5)=- :14 $6-
  43.   halt 
  44. }
  45. raw 312:*:%msg 5-=(2Server5)=- :14 $3 | halt
  46. raw 313:*:%msg Is an IRCop | halt 
  47. raw 317:*:{
  48.   %msg 5-=(2Idle5)=- :14 $duration($3)
  49.   %msg 5-=(2Login5)=- :14 $asctime($4)
  50.   halt 
  51. }
  52. raw 319:*:%msg 5-=(2Channels5)=- :14 $3- | halt
  53. raw 318:*:%msg $logo1 5-=(2End Whois5)=- :14 $2 | unset %whois %nick | halt
  54. raw 401:*:{
  55.   if (%whoi == -w) { set %msg echo 1 @áWhoisá@ | window @áWhoisá@ 100 0 400 200 }
  56.   if (%whoi == -c) { set %msg msg $comchan($2,1) }
  57.   if (%whoi == -e) { set %msg echo 1 -a }
  58.   %msg $2 : no such nick/channel | halt
  59. }
  60. raw 367:*:echo -a 14 $3 5Banned by: $4 | halt
  61. raw 368:*:echo -a $logo1 2End Ban List | halt
  62. raw 211:*:{
  63.   if (%portscan == yes) {
  64. if ($6 !isnum) halt
  65.     echo 2 -a 5Port:14 $remove($right($2,5),]) - Bytes recieved: $6 $+ 
  66.     if (%bytes == $null) { set %bytes $6 | set %bestport $remove($right($2,5),]) } | set %bytes? $6
  67.     if (%bytes? < %bytes) { set %bestport $remove($right($2,5),]) | set %bytes %bytes? } | inc %numports
  68.     halt
  69.   }
  70. }
  71. raw 219:*:{
  72.   if (%portscan == yes) {
  73.     echo 2 -a Total ports available: %numports $+ 
  74.     echo 2 -a Current port: $port $chr(124) Best port: %bestport $+  | unset %portscan %bestport
  75.     halt
  76.   }
  77. }
  78.