home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / raw.mrc < prev    next >
Encoding:
Text File  |  2000-02-13  |  8.4 KB  |  235 lines
  1. raw 14:* {
  2.   if (%cookie) .quote cookie %cookie
  3.   set %cookie $2
  4.   timoff %cookie.timer cookie.timer
  5. }
  6. raw 203:* { halt }
  7. raw 204:* {
  8.   if (%rawcode.204 == off) { unset %rawcode.204 | return }
  9.   inc %trcnm
  10.   if (%trcnm == 1) {
  11.     window -a @Trace %tloc $tp(trace.txt) FixedSys 9
  12.     write -c $tp(trace.txt)
  13.     write $tp(trace.txt) exit $chr(123) set % $+ tloc $chr(36) $+ swlc(@Trace) $vl window -c @Trace $chr(125)
  14.     write $tp(trace.txt) -
  15.     aline @Trace . $+ $str(-,50) $+ .
  16.     aline @Trace $vl IRC Operators on $fix(31,$hc(%trcsvr)) $vl
  17.     aline @Trace $vl $+ $str(-,50) $+ $vl
  18.     aline @Trace $fix(5,$vl) $fix(16,Nick) $fix(27,Address) $vl
  19.   }
  20.   aline @Trace $vl $lfix(2,%trcnm) $+ . $fix(11,$gettok($4,1,91)) $fix(32,$sc($remove($gettok($4,2,91),]))) $vl
  21.   titlebar @Trace - %trcnm IRCops found on %trcsvr
  22.   write $tp(trace.txt) $gettok($4,1,91)
  23.   write $tp(trace.txt) .who $chr(123) who $gettok($4,1,91) $chr(125)
  24.   write $tp(trace.txt) .ping $chr(123) ctcp $gettok($4,1,91) ping $chr(125)
  25.   write $tp(trace.txt) .query $chr(123) query $gettok($4,1,91) $chr(125)
  26.   write $tp(trace.txt) .finger $chr(123) finger $gettok($4,1,91) $chr(125)
  27.   write $tp(trace.txt) .whois $chr(123) whois $gettok($4,1,91) $chr(125)
  28.   write $tp(trace.txt) .version $chr(123) ctcp $gettok($4,1,91) version $chr(125)
  29.   halt
  30. }
  31. raw 206:* { halt }
  32. raw 209:* { halt }
  33. raw 211:* {
  34.   if (%rawcode.211 == off) { unset %rawcode.211 | return }
  35.   if (%clientscan == on) {
  36.     inc %clientnum
  37.     write -c $tp(clientscan.txt)
  38.     write $tp(clientscan.txt) exit $chr(123) set % $+ csloc $chr(36) $+ swlc(@ClientScan) $vl window -c @ClientScan $chr(125)
  39.     window -a @ClientScan %csloc $tp(clientscan.txt) FixedSys 9
  40.     if (%clientnum == 1) {
  41.       aline @ClientScan . $+ $str(-,60) $+ .
  42.       aline @ClientScan $vl $center(58,Client Scan of [ $hc(%pserver) ] ) $vl
  43.       aline @ClientScan $vl $+ $str(-,60) $+ $vl
  44.       aline @ClientScan $fix(2,$vl) $fix(12,Nick) $fix(44,Host) $vl
  45.       aline @ClientScan $fix(60,$vl) $vl
  46.     }
  47.     if (($left($2,$len(%pserver)) != %pserver) && ((. !isin $left($2,$pos($2,[))) && ($remove($left($2,$pos($2,[)),[)))) aline @ClientScan $vl $fix(13,$sc($left($2,$sub($pos($2,[),1)))) $fix(44,$replace($strip($remove($right($2,$sub($len($2),$pos($2,[))),])),@, [ $hc(@) $+  ] )) $vl
  48.     halt
  49.   }
  50.   elseif (%spoofchk.nick) {
  51.     set %spoofchk.chkhost $gettok($gettok($2,2,41),1,93)
  52.     set %spoofchk.chkip $gettok($gettok($2,2,64),1,93)
  53.     .dns $gettok(%spoofchk.host,2,64)
  54.     halt
  55.   }
  56. }
  57. raw 219:* {
  58.   if (%rawcode.219 == off) { unset %rawcode.219 | return }
  59.   if (%spoofchk.nick) {
  60.     if (%spoofchk.chkip) halt
  61.     else {
  62.       if ($form(errors,checkhost)) iecho $readini %formats errors checkhost
  63.       else iecho Could not check %spoofchk.nick for a spoofed address. (no /stats L reply)
  64.       unset %spoofchk*
  65.       halt
  66.     }
  67.   }
  68.   elseif (%spoofchk.nick) halt
  69.   elseif (%clientscan == on) {
  70.     unset %clientscan %clientnum %pserver
  71.     aline @ClientScan ' $+ $str(-,60) $+'
  72.     halt
  73.   }
  74. }
  75. raw 250:* {
  76.   if (%rawcode.250 == off) { unset %rawcode.250 | return }
  77.   secho $str( ,5) $fix(51,$vl) $vl
  78.   secho $str( ,5) $vl $center(49,Type /help for help.) $vl
  79.   secho $str( ,5) $fix(51,$vl) $vl
  80.   secho $str( ,5) ' $+ $str(-,51) $+ '
  81.   halt
  82. }
  83. raw 251:* {
  84.   if (%rawcode.251 == off) { unset %rawcode.251 | return }
  85.   secho  
  86.   secho $lfix(7,.) $+ $str(-,51) $+ .
  87.   secho $lfix(7,$vl) users[ $+ $lfix(6,$hc($4)) $+ ] - invisible[ $+ $lfix(6,$hc($7)) $+ ] - servers[ $+ $lfix(4,$hc($10)) $+ ] $vl
  88.   unset %tmp %tmp2 %tmp1
  89.   halt
  90. }
  91. raw 252:* {
  92.   if (%rawcode.252 == off) { unset %rawcode.252 | return }
  93.   secho $lfix(7,$vl) opers[ $+ $lfix(6,$hc($2)) $+ ] $lfix(37,$vl)
  94.   secho $lfix(7,$vl) $center(49,$sc($nick)) $vl
  95.   halt
  96. }
  97. raw 253:* { halt }
  98. raw 254:* {
  99.   if (%rawcode.254 == off) { unset %rawcode.254 | return }
  100.   secho $lfix(7,$vl) chans[ $+ $lfix(6,$hc($2)) $+ ] $lfix(37,$vl)
  101.   halt
  102. }
  103. raw 255:* {
  104.   if (%rawcode.255 == off) { unset %rawcode.255 | return }
  105.   secho $lfix(7,$vl) clnts[ $+ $lfix(6,$hc($4)) $+ ] $fix(19,-) - servers[ $+ $lfix(4,$hc($7)) $+ ] $vl
  106.   halt
  107. }
  108. raw 262:* {
  109.   if (%rawcode.262 == off) { unset %rawcode.262 | return }
  110.   if (%trcsvr) {
  111.     if (%trcnm == 0) {
  112.       if ($form(errors,trace)) iecho $readini %formats errors trace
  113.       else iecho No ircops were found on $hc(%trcsvr) $+ .
  114.     }
  115.     else aline @Trace ' $+ $str(-,50) $+ '
  116.     unset %trcnm %trcsvr
  117.     halt
  118.   }
  119. }
  120. raw 265:* {
  121.   if (%rawcode.265 == off) { unset %rawcode.265 | return }
  122.   secho $str( ,5) $fix(51,$vl) $vl
  123.   secho $str( ,5) $vl $center(49,Type /help for help.) $vl
  124.   secho $str( ,5) $fix(51,$vl) $vl
  125.   secho $str( ,5) ' $+ $str(-,51) $+ '
  126.   halt
  127. }
  128. raw 266:* { halt }
  129. raw 301:* {
  130.   if (%rawcode.301 == off) { unset %rawcode.301 | return }
  131.   if ($tokmatch(%whois,$2,44)) {
  132.     if ($form(whois,away)) whecho $readini %formats whois away
  133.     else whecho $sc(|) $hc(away) $sc(:) $3-
  134.     halt
  135.   }
  136.   elseif ($tokmatch(%cwhois,$2,44)) {
  137.     if ($form(cwhois,away)) msg $active $readini %formats cwhois away
  138.     else msg $active $vl away : $3-
  139.     halt
  140.   }
  141.   elseif ($2 != %lastaway) {
  142.     if ($query($2)) echo $2 $hc($2) is away: $3-
  143.     else secho $2 is away: $3-
  144.   }
  145.   set %lastaway $2
  146.   halt
  147. }
  148. #notify1 on
  149. raw 302:* {
  150.   if (%rawcode.302 == off) { unset %rawcode.302 | return }
  151.   set %tmpadd1 $gettok($2,1,61)
  152.   set %tmpadd2 $right($gettok($2,2,61),$sub($len($gettok($2,2,61)),1))
  153.   set %tmpadd %tmpadd1 $+ ! $+ %tmpadd2
  154.   if ($findtok($usrhost(%tmpadd1),$ulist(%tmpadd,1),1,32) != $null) {
  155.     if ($form(notify,registered)) iecho $readini %formats notify registered
  156.     else iecho $hc(NOTIFY) $+ : $sc(%tmpadd1) ( $+ %tmpadd2 $+ ) is on IRC (registered address). $rbrk($notify(%tmpadd1).note)
  157.     if ((%inotify == on) && ($chan(0) > 0)) ia %tmpadd1
  158.     if (%ntwhs == on) whois %tmpadd1
  159.     unset %tmpadd*
  160.     halt
  161.   }
  162.   elseif ($readini users.ini Users $ulist(%tmpadd,1)) {
  163.     if ($form(notify,registered-to-other-nick)) iecho $readini %formats notify registered-to-other-nick
  164.     else iecho $hc(NOTIFY) $+ : $sc(%tmpadd1) ( $+ %tmpadd2 $+ ) is on IRC (address registered to $usrh($ulist(%tmpadd,1)) $+ ). $rbrk($notify(%tmpadd1).note)
  165.     if ((%inotify == on) && ($chan(0) > 0)) ia %tmpadd1
  166.     if (%ntwhs == on) whois %tmpadd1
  167.     unset %tmpadd*
  168.     halt
  169.   }
  170.   else {
  171.     if (%nsukn == on) {
  172.       if ($form(notify,unknown)) iecho $readini %formats notify unknown
  173.       else iecho $hc(NOTIFY) $+ : $sc(%tmpadd1) ( $+ %tmpadd2 $+ ) is on IRC (unknown host). $rbrk($notify(%tmpadd1).note)
  174.       if (%ntwhs == on) whois %tmpadd1
  175.     }
  176.     unset %tmpadd*
  177.     halt
  178.   }
  179. }
  180. #notify1 end
  181. raw 305:* {
  182.   if (%rawcode.305 == off) { unset %rawcode.305 | return }
  183.   if ($form(ircn,back)) iecho $readini %formats ircn back
  184.   else iecho You are no longer marked as being away.
  185.   tsound back
  186.   halt
  187. }
  188. raw 306:* {
  189.   if (%rawcode.306 == off) { unset %rawcode.306 | return }
  190.   if ($form(ircn,away)) iecho $readini %formats ircn away
  191.   else iecho You have been marked as being away.
  192.   tsound away
  193.   halt
  194. }
  195. raw 312:* {
  196.   if (%rawcode.312 == off) { unset %rawcode.312 | return }
  197.   if ($tokmatch(%whois,$2,44)) {
  198.     if ($form(whois,server)) whecho $readini %formats whois server
  199.     else whecho $sc(|) $hc(serv) $sc(:) $3
  200.     halt
  201.   }
  202.   elseif ($findtok(%whowas,$2,1,44)) {
  203.     if ($form(whowas,server)) iiecho $readini %formats whowas server
  204.     else iiecho $sc(|) $hc(serv) $sc(:) $3
  205.     if ($form(whowas,last)) iiecho $readini %formats whowas last
  206.     else iiecho $sc(|) $hc(last) $sc(:) $4-
  207.     halt
  208.   }
  209.   elseif ($tokmatch(%cwhois,$2,44)) {
  210.     if ($form(cwhois,server)) msg $active $readini %formats cwhois server
  211.     else msg $active $vl serv : $3
  212.     halt
  213.   }
  214.   elseif ($findtok(%cwhowas,$2,1,44)) {
  215.     if ($form(cwhowas,server)) msg $active $readini %formats cwhowas server
  216.     else msg $active $vl serv : $3
  217.     if ($form(cwhowas,last)) msg $active $readini %formats cwhowas last
  218.     else msg $active $vl last : $4-
  219.     halt
  220.   }
  221. }
  222. raw 313:* {
  223.   if (%rawcode.313 == off) { unset %rawcode.313 | return }
  224.   if ($tokmatch(%whois,$2,44)) {
  225.     if ($form(whois,ircop)) whecho $readini %formats whois ircop
  226.     else whecho $sc(|) $hc(ircop) $+ $sc(:) yes
  227.     halt
  228.   }
  229.   elseif ($tokmatch(%cwhois,$2,44)) {
  230.     if ($form(cwhois,ircop)) msg $active $readini %formats cwhois ircop
  231.     else msg $active $vl ircop: yes
  232.     halt
  233.   }
  234. }
  235.