home *** CD-ROM | disk | FTP | other *** search
- raw 14:* {
- if (%cookie) .quote cookie %cookie
- set %cookie $2
- timoff %cookie.timer cookie.timer
- }
- raw 203:* { halt }
- raw 204:* {
- if (%rawcode.204 == off) { unset %rawcode.204 | return }
- inc %trcnm
- if (%trcnm == 1) {
- window -a @Trace %tloc $tp(trace.txt) FixedSys 9
- write -c $tp(trace.txt)
- write $tp(trace.txt) exit $chr(123) set % $+ tloc $chr(36) $+ swlc(@Trace) $vl window -c @Trace $chr(125)
- write $tp(trace.txt) -
- aline @Trace . $+ $str(-,50) $+ .
- aline @Trace $vl IRC Operators on $fix(31,$hc(%trcsvr)) $vl
- aline @Trace $vl $+ $str(-,50) $+ $vl
- aline @Trace $fix(5,$vl) $fix(16,Nick) $fix(27,Address) $vl
- }
- aline @Trace $vl $lfix(2,%trcnm) $+ . $fix(11,$gettok($4,1,91)) $fix(32,$sc($remove($gettok($4,2,91),]))) $vl
- titlebar @Trace - %trcnm IRCops found on %trcsvr
- write $tp(trace.txt) $gettok($4,1,91)
- write $tp(trace.txt) .who $chr(123) who $gettok($4,1,91) $chr(125)
- write $tp(trace.txt) .ping $chr(123) ctcp $gettok($4,1,91) ping $chr(125)
- write $tp(trace.txt) .query $chr(123) query $gettok($4,1,91) $chr(125)
- write $tp(trace.txt) .finger $chr(123) finger $gettok($4,1,91) $chr(125)
- write $tp(trace.txt) .whois $chr(123) whois $gettok($4,1,91) $chr(125)
- write $tp(trace.txt) .version $chr(123) ctcp $gettok($4,1,91) version $chr(125)
- halt
- }
- raw 206:* { halt }
- raw 209:* { halt }
- raw 211:* {
- if (%rawcode.211 == off) { unset %rawcode.211 | return }
- if (%clientscan == on) {
- inc %clientnum
- write -c $tp(clientscan.txt)
- write $tp(clientscan.txt) exit $chr(123) set % $+ csloc $chr(36) $+ swlc(@ClientScan) $vl window -c @ClientScan $chr(125)
- window -a @ClientScan %csloc $tp(clientscan.txt) FixedSys 9
- if (%clientnum == 1) {
- aline @ClientScan . $+ $str(-,60) $+ .
- aline @ClientScan $vl $center(58,Client Scan of [ $hc(%pserver) ] ) $vl
- aline @ClientScan $vl $+ $str(-,60) $+ $vl
- aline @ClientScan $fix(2,$vl) $fix(12,Nick) $fix(44,Host) $vl
- aline @ClientScan $fix(60,$vl) $vl
- }
- 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
- halt
- }
- elseif (%spoofchk.nick) {
- set %spoofchk.chkhost $gettok($gettok($2,2,41),1,93)
- set %spoofchk.chkip $gettok($gettok($2,2,64),1,93)
- .dns $gettok(%spoofchk.host,2,64)
- halt
- }
- }
- raw 219:* {
- if (%rawcode.219 == off) { unset %rawcode.219 | return }
- if (%spoofchk.nick) {
- if (%spoofchk.chkip) halt
- else {
- if ($form(errors,checkhost)) iecho $readini %formats errors checkhost
- else iecho Could not check %spoofchk.nick for a spoofed address. (no /stats L reply)
- unset %spoofchk*
- halt
- }
- }
- elseif (%spoofchk.nick) halt
- elseif (%clientscan == on) {
- unset %clientscan %clientnum %pserver
- aline @ClientScan ' $+ $str(-,60) $+'
- halt
- }
- }
- raw 250:* {
- if (%rawcode.250 == off) { unset %rawcode.250 | return }
- secho $str( ,5) $fix(51,$vl) $vl
- secho $str( ,5) $vl $center(49,Type /help for help.) $vl
- secho $str( ,5) $fix(51,$vl) $vl
- secho $str( ,5) ' $+ $str(-,51) $+ '
- halt
- }
- raw 251:* {
- if (%rawcode.251 == off) { unset %rawcode.251 | return }
- secho
- secho $lfix(7,.) $+ $str(-,51) $+ .
- secho $lfix(7,$vl) users[ $+ $lfix(6,$hc($4)) $+ ] - invisible[ $+ $lfix(6,$hc($7)) $+ ] - servers[ $+ $lfix(4,$hc($10)) $+ ] $vl
- unset %tmp %tmp2 %tmp1
- halt
- }
- raw 252:* {
- if (%rawcode.252 == off) { unset %rawcode.252 | return }
- secho $lfix(7,$vl) opers[ $+ $lfix(6,$hc($2)) $+ ] $lfix(37,$vl)
- secho $lfix(7,$vl) $center(49,$sc($nick)) $vl
- halt
- }
- raw 253:* { halt }
- raw 254:* {
- if (%rawcode.254 == off) { unset %rawcode.254 | return }
- secho $lfix(7,$vl) chans[ $+ $lfix(6,$hc($2)) $+ ] $lfix(37,$vl)
- halt
- }
- raw 255:* {
- if (%rawcode.255 == off) { unset %rawcode.255 | return }
- secho $lfix(7,$vl) clnts[ $+ $lfix(6,$hc($4)) $+ ] $fix(19,-) - servers[ $+ $lfix(4,$hc($7)) $+ ] $vl
- halt
- }
- raw 262:* {
- if (%rawcode.262 == off) { unset %rawcode.262 | return }
- if (%trcsvr) {
- if (%trcnm == 0) {
- if ($form(errors,trace)) iecho $readini %formats errors trace
- else iecho No ircops were found on $hc(%trcsvr) $+ .
- }
- else aline @Trace ' $+ $str(-,50) $+ '
- unset %trcnm %trcsvr
- halt
- }
- }
- raw 265:* {
- if (%rawcode.265 == off) { unset %rawcode.265 | return }
- secho $str( ,5) $fix(51,$vl) $vl
- secho $str( ,5) $vl $center(49,Type /help for help.) $vl
- secho $str( ,5) $fix(51,$vl) $vl
- secho $str( ,5) ' $+ $str(-,51) $+ '
- halt
- }
- raw 266:* { halt }
- raw 301:* {
- if (%rawcode.301 == off) { unset %rawcode.301 | return }
- if ($tokmatch(%whois,$2,44)) {
- if ($form(whois,away)) whecho $readini %formats whois away
- else whecho $sc(|) $hc(away) $sc(:) $3-
- halt
- }
- elseif ($tokmatch(%cwhois,$2,44)) {
- if ($form(cwhois,away)) msg $active $readini %formats cwhois away
- else msg $active $vl away : $3-
- halt
- }
- elseif ($2 != %lastaway) {
- if ($query($2)) echo $2 $hc($2) is away: $3-
- else secho $2 is away: $3-
- }
- set %lastaway $2
- halt
- }
- #notify1 on
- raw 302:* {
- if (%rawcode.302 == off) { unset %rawcode.302 | return }
- set %tmpadd1 $gettok($2,1,61)
- set %tmpadd2 $right($gettok($2,2,61),$sub($len($gettok($2,2,61)),1))
- set %tmpadd %tmpadd1 $+ ! $+ %tmpadd2
- if ($findtok($usrhost(%tmpadd1),$ulist(%tmpadd,1),1,32) != $null) {
- if ($form(notify,registered)) iecho $readini %formats notify registered
- else iecho $hc(NOTIFY) $+ : $sc(%tmpadd1) ( $+ %tmpadd2 $+ ) is on IRC (registered address). $rbrk($notify(%tmpadd1).note)
- if ((%inotify == on) && ($chan(0) > 0)) ia %tmpadd1
- if (%ntwhs == on) whois %tmpadd1
- unset %tmpadd*
- halt
- }
- elseif ($readini users.ini Users $ulist(%tmpadd,1)) {
- if ($form(notify,registered-to-other-nick)) iecho $readini %formats notify registered-to-other-nick
- else iecho $hc(NOTIFY) $+ : $sc(%tmpadd1) ( $+ %tmpadd2 $+ ) is on IRC (address registered to $usrh($ulist(%tmpadd,1)) $+ ). $rbrk($notify(%tmpadd1).note)
- if ((%inotify == on) && ($chan(0) > 0)) ia %tmpadd1
- if (%ntwhs == on) whois %tmpadd1
- unset %tmpadd*
- halt
- }
- else {
- if (%nsukn == on) {
- if ($form(notify,unknown)) iecho $readini %formats notify unknown
- else iecho $hc(NOTIFY) $+ : $sc(%tmpadd1) ( $+ %tmpadd2 $+ ) is on IRC (unknown host). $rbrk($notify(%tmpadd1).note)
- if (%ntwhs == on) whois %tmpadd1
- }
- unset %tmpadd*
- halt
- }
- }
- #notify1 end
- raw 305:* {
- if (%rawcode.305 == off) { unset %rawcode.305 | return }
- if ($form(ircn,back)) iecho $readini %formats ircn back
- else iecho You are no longer marked as being away.
- tsound back
- halt
- }
- raw 306:* {
- if (%rawcode.306 == off) { unset %rawcode.306 | return }
- if ($form(ircn,away)) iecho $readini %formats ircn away
- else iecho You have been marked as being away.
- tsound away
- halt
- }
- raw 312:* {
- if (%rawcode.312 == off) { unset %rawcode.312 | return }
- if ($tokmatch(%whois,$2,44)) {
- if ($form(whois,server)) whecho $readini %formats whois server
- else whecho $sc(|) $hc(serv) $sc(:) $3
- halt
- }
- elseif ($findtok(%whowas,$2,1,44)) {
- if ($form(whowas,server)) iiecho $readini %formats whowas server
- else iiecho $sc(|) $hc(serv) $sc(:) $3
- if ($form(whowas,last)) iiecho $readini %formats whowas last
- else iiecho $sc(|) $hc(last) $sc(:) $4-
- halt
- }
- elseif ($tokmatch(%cwhois,$2,44)) {
- if ($form(cwhois,server)) msg $active $readini %formats cwhois server
- else msg $active $vl serv : $3
- halt
- }
- elseif ($findtok(%cwhowas,$2,1,44)) {
- if ($form(cwhowas,server)) msg $active $readini %formats cwhowas server
- else msg $active $vl serv : $3
- if ($form(cwhowas,last)) msg $active $readini %formats cwhowas last
- else msg $active $vl last : $4-
- halt
- }
- }
- raw 313:* {
- if (%rawcode.313 == off) { unset %rawcode.313 | return }
- if ($tokmatch(%whois,$2,44)) {
- if ($form(whois,ircop)) whecho $readini %formats whois ircop
- else whecho $sc(|) $hc(ircop) $+ $sc(:) yes
- halt
- }
- elseif ($tokmatch(%cwhois,$2,44)) {
- if ($form(cwhois,ircop)) msg $active $readini %formats cwhois ircop
- else msg $active $vl ircop: yes
- halt
- }
- }
-