;filestart
raw 338:* { halt }
#notify.addr off
raw 302:* { .timerison 1 5 /.disable #notify.addr | _s $m_(notify) $remove($gettok($2,1,61),*) ( $+ $remove($gettok($2,2,61),-,+) $+ ) is on irc. | halt }
#notify.addr end
#unban.user off
raw 302:* { %ban.unset.user = $remove($replace($2,=+,!,=-,!),*) | MODE %ban.unset.ch b | halt }
raw 367:* { if $3 iswm %ban.unset.user { MODE $2 -b $3 } | halt }
raw 368:* { .disable #unban.user | unset %ban.u* | halt }
#unban.user end
#portz off
raw 211:* { if *.*[*]* !iswm $2 { halt } | %l.ports = %l.ports $remove($gettok($2,2,42),.) | halt }
raw 219:* {
  if %l.ports { _s Available ports on $lower($nick) $+ : $remove(%l.ports,$chr(93)) }
  else { _s Error: $lower($nick) doesn't allow /stats l to non-oper clients. }
  toRedir | unset %l.ports | .disable #portz | halt
}
raw 481:* { _s Error: $lower($nick) doesn't allow /stats l to non-oper clients. | unset %l.ports | toRedir | halt }
raw 402:* { _s Error: no such server, " $+ $lower($2) $+ " | unset %l.ports | toRedir | halt }
#portz end
#nolist on
raw 302:* { _s Userhost: $remove($gettok($2,1,61),*) $remove($gettok($2,2,61),+,-) | .disable #nolist | toRedir | halt }
#nolist end
#rlist off
raw 302:* { remini system\ulist.ini $remove($gettok($2,1,61),*) | remini system\slist.ini $toAddrHost($2) | _s Removed $remove($gettok($2,1,61),*) $b($toAddrHost($2)) from userlist. ( $+ $level($maddress($toAddrHost($2))) $+ ) | .ruser $toAddrHost($2) | .enable #nolist | .disable #rlist #flist #slist | halt }
#rlist end
#slist off
raw 302:* { .auser =4 $toAddrHost($2) | remini system\ulist.ini ulist $toAddrHost($2) | writeini system\slist.ini $toAddrHost($2) smsg %reason | unset %reason %host* | .enable #nolist | .disable #rlist #flist #slist | halt }
#slist end
#flist off
raw 302:* { .auser 69 $toAddrHost($2) | writeini system\ulist.ini $remove($gettok($2,1,61),*) addr $toAddrHost($2) | writeini system\ulist.ini $remove($gettok($2,1,61),*) chan %host.cc | _s Added $remove($gettok($2,1,61),*) $b($toAddrHost($2)) to the userlist. ( $+ %host.cc $+ ) | .raw NOTICE $remove($gettok($2,1,61),*) :You've been f'listed for: %host.cc (use "/ctcp $me help" for info) | unset %host* | .enable #nolist | .disable #rlist #flist #slist | halt }
#flist end
#whowas off
raw 312:* { if $gettok(%ww.,-1,32) == on { %ww. = %ww. $3 } | inc %ww.i | halt }
raw 314:* { if %ww. { halt } | %ww. = $2 ( $+ $3 $+ @ $+ $4 $+ ) on | halt }
raw 369:* { _s Whowas: %ww. ( $+ %ww.i $iif(%ww.i > 1,replies,reply) $+ ) | unset %ww.* | .disable #whowas | halt }
#whowas end
#wfind off
raw 352:* { _s Match found: $6 ( $+ $3 $+ @ $+ $lower($4) $+ ) $iif(* isin $7,oper $+ $chr(44)) $iif(G isin $7,currently /away) on $lower($5) | halt }
raw 315:* { _s Who reply complete. | toRedir | .disable #wfind | halt }
#wfind end
raw 001:* { halt }
raw 002:* { halt }
raw 003:* { halt }
raw 004:* { halt }
raw 005:* { halt }
raw 105:* { halt }
raw 200:* { if %trace == user { %tracelink = %tracelink : $lower($5) } | halt }
raw 204:* {
  if %trace == server { echo $cs(3) -s $_ $align(9,$gettok($4,1,91)) ( $+ $remove($gettok($4,2,91),]) $+ ) $remove($5,$chr(40),$chr(41)) $+ / $+ $3 $iif($2 == oper,$chr(40) $+ oper $+ $chr(41)) }
  if %trace == user { _s $gettok($4,1,91) ( $+ $remove($gettok($4,2,91),]) $+ ) $remove($5,$chr(40),$chr(41)) $+ / $+ $3 $iif($2 == oper,$chr(40) $+ oper $+ $chr(41)) }
  halt
}
raw 205:* {
  if %trace == server { echo $cs(3) -s $_ $align(9,$gettok($4,1,91)) ( $+ $remove($gettok($4,2,91),]) $+ ) $remove($5,$chr(40),$chr(41)) $+ / $+ $3 $iif($2 == oper,$chr(40) $+ oper $+ $chr(41)) }
  if %trace == user { _s $gettok($4,1,91) ( $+ $remove($gettok($4,2,91),]) $+ ) $remove($5,$chr(40),$chr(41)) $+ / $+ $3 $iif($2 == oper,$chr(40) $+ oper $+ $chr(41)) | _s $gettok(%tracelink,2-,32) }
  halt
}
raw 206:* { halt }
raw 209:* { halt }
raw 211:* { _s Connected to $gettok($2,1,91) for $duration($8) $+ , SendQ: $3 | halt }
raw 212:* { echo $cs(3) -s $_ $align(12,$2) $3- | halt }
raw 213:* { echo $cs(3) -s $_ c: $lower($5) $+ / $+ $3 Class: $7 $iif($6 != 0,Defaulting to port 6667) | halt }
raw 214:* { echo $cs(3) -s $_ N: $lower($5) $+ / $+ $3 Class: $7 $iif($6 != 0,Defaulting to port 6667) | halt }
raw 215:* { if $3 != nomatch { echo $cs(3) -s $_ I: $remove($5,=) -> $3 (connect class $7 $+ ) } | halt }
raw 216:* { _s K: $3 ( $+ $6- $+ ) | halt }
raw 217:* { echo $cs(3) -s $_ Q: $2 ( $+ $gettok($remove($3-,$gettok($3-,-1,32)),1-40,32) $+ ) for addresses: $iif($gettok($3-,-1,32) == -@-,any,$gettok($3-,-1,32)) | halt }
raw 219:* {
  if %operidlecheck == on {
    unset %operidlecheck | %operidle = $sorttok(%operidle,32,n) | var %i = 0 | :i | inc %i
    if $gettok(%operidle,%i,32) {
      %tmp = * $+ $gettok(%operidle,%i,32) $+ * | %tmp = $hmatch(opers,%tmp,1).data | var %tmp = $hget(opers,%tmp)
      _s $iif($mid($gettok(%tmp,1,32),2,1) === O,Global oper,Local oper) $+ : $gettok(%tmp,2-3,32) $+ , idle for $remove($duration($gettok(%tmp,-1,32)),ks,k,ays,ay,rs,r,ins,in,ecs,ec,$chr(32))
      goto i
    }
    hfree opers | unset %operidle
  }
  halt
}
raw 220:* { echo $cs(3) -s $_ $4 $+ : $+ $3 $5- | halt }
raw 242:* { _s $2- | halt }
raw 243:* { echo $cs(3) -s $_ $align(9,$5) ( $+ $3 $+ ) $6 $+ / $+ $iif($2 === O,global,local) | halt }
raw 244:* { echo $cs(3) -s $_ $2 $+ : $lower($5) | halt }
raw 247:* { var %tmp1 = $remove($2-,$gettok($2-,-4-1,32)) | var %tmp2 = $gettok(%tmp1,$gettok(%tmp1,0,42) $+ -,42) | echo $cs(3) -s $_ X: $remove(%tmp1,%tmp2) ( $+ $gettok(%tmp2,1-40,32) $+ ) | halt }
raw 249:* { if %operidlecheck == on { if $4 { hadd opers $3 $2- | %operidle = %operidle $6 } } | halt }
raw 250:* { halt }
raw 251:* { %s..1 = Total: (-i[ $+ $4 $+ : $+ $7 $+ ]+i) $add($4,$7) users, | %s..2 = on $10 servers | %tot.t = $add($4,$7) | halt }
raw 252:* { %s..9 = $2 opers | halt }
raw 253:* { halt }
raw 254:* { %s..3 = $2 chans and | halt }
raw 255:* { _s %s..1 %s..3 %s..9 %s..2 | _s Local: $4 users on $lower($nick) $+ , $per($4,%tot.t) network load | unset %s..* %tot.* | toRedir | halt }
raw 256:* { halt }
raw 262:* { unset %trac* | halt }
raw 263:* { halt }
raw 265:* { halt }
raw 266:* { halt }
raw 301:* {
  if %tmp.wi.on == on { unset %tmp.wi.on
    if $len($strip($3-)) <= 56 { _s $chr(124) 16: $align(56,$toKillSpc($remove($3-,))) $chr(124) | halt }
    unset %alist | %i = 0 | :i | inc %i
    if $gettok($3-,%i,32) == $null { goto end }
    %alist = %alist $gettok($3-,%i,32)
    if $len($strip(%alist)) < 56 && $len($strip($gettok($3-,$add(%i,1),32))) < $sub(56,$len($strip(%alist))) { goto i }
    _s $chr(124) 16: $align(56,$toKillSpc($remove(%alist,))) $chr(124)
    unset %alist | :x | inc %i
    if $gettok($3-,%i,32) == $null { goto end }
    %alist = %alist $gettok($3-,%i,32)
    if $len($strip(%alist)) < 56 && $len($strip($gettok($3-,$add(%i,1),32))) < $sub(56,$len($strip(%alist))) { goto x }
    if %alist != $null { _s $chr(124)    $+ $align(56,$toKillSpc($remove(%alist,))) $chr(124) }
    unset %alist | goto x | :end
    if ** iswm %alist || %alist != $null { _s $chr(124)    $+ $align(56,$toKillSpc($remove(%alist,))) $chr(124) | unset %alist | halt }
    halt
  }
  halt
}
raw 305:* { halt }
raw 306:* { halt }
raw 307:* { halt }
raw 308:* { _s $chr(124) 16: $align(56,$2 deeply regrets buying NT4 Server [admin]) $chr(124) | halt }
raw 310:* { halt }
raw 311:* { %redl = 1 | %wi.tld = $gettok($4,-1,46)
  _s 16.-------------16( $+ $2 is...16) $+ $str(-,$sub(9,$len($2))) $+ ------------------------------16.
  if $len($+($3,@,$4)) > 56 { _s $chr(124) 16: $align(56,$lower($+($3,@*.,$gettok($4,-2,46),.,$gettok($4,-1,46) $chr(40),long hostname truncated,$chr(41)))) $chr(124) }
  else { _s $chr(124) 16: $align(56,$lower($+($3,@,$4))) $chr(124) }
  _s $chr(124) 16: $align(56,$strip($6-)) $chr(124) | halt
}
raw 312:* {
  if $rt($+(%,srv-,$3)) == $null { _s $chr(124) 16: $align(56,$lower($3)) $chr(124) | .enable #svip | .dns $3 }
  else { _s $chr(124) 16: $align(56,$lower($3) $+($chr(40),$rt($+(%,srv-,$3)),$chr(41))) $chr(124) }
  halt
}
raw 313:* { _s $chr(124) 16: $align(56,$2 spends too much time around here [ircop]) $chr(124) | halt }
raw 315:* { halt }
raw 317:* { _s $chr(124) 16: $align(56,$2 is idle $+($remove($duration($3),ks,k,ays,ay,rs,r,ins,in,ecs,ec,$chr(32)),$chr(44)) online $remove($duration($sub($ctime,$4)),ks,k,ays,ay,rs,r,ins,in,ecs,ec,$chr(32))) $chr(124) | halt }
raw 318:* { if %nosuch == y { unset %nosuch | halt }
  if %wi.tld isnum { _s 16'--------------------------------16(unresolved ip16) $+ $str(-,$sub(24,$len(unresolved ip))) $+ --16' | toRedir | unset %*wi* | halt }
  if $rt($+(%,d-,%wi.tld)) == $null { _s 16'--------------------------------16(i:line or unknown ccTLD16) $+ ---16' | toRedir | unset %*wi* | halt }
  _s 16'--------------------------------16( $+ $rt($+(%,d-,%wi.tld)) $+ 16) $+ $str(-,$sub(24,$len($rt($+(%,d-,%wi.tld))))) $+ --16' | toRedir | unset %*wi* | halt
}
raw 319:* { unset %chanlist
  if $len($3-) <= 56 { _s $chr(124) 16: $align(56,$3-) $chr(124) | halt }
  %i = 0 | :i | inc %i
  if $gettok($3-,%i,32) == $null { goto end }
  %chanlist = %chanlist $gettok($3-,%i,32)
  if $len(%chanlist) < 56 && $len($gettok($3-,$add(%i,1),32)) < $sub(56,$len(%chanlist)) { goto i }
  _s $chr(124) 16: $align(56,$strip(%chanlist)) $chr(124)
  unset %chanlist | :x | inc %i
  if $gettok($3-,%i,32) == $null { goto end }
  %chanlist = %chanlist $gettok($3-,%i,32)
  if $len(%chanlist) < 56 && $len($gettok($3-,$add(%i,1),32)) < $sub(56,$len(%chanlist)) { goto x }
  _s $chr(124)    $+ $align(56,$strip(%chanlist)) $chr(124)
  unset %chanlist | goto x | :end
  if $chr(35) isin %chanlist { _s $chr(124)    $+ $align(56,$strip(%chanlist)) $chr(124) }
  halt
}
raw 329:* { if $3 == 0 { echo $cs(3) $2 $_ TS: $lower($2) has a 0 timestamp. } }
raw 331:* { halt }
raw 332:* { set $+(%,c.,$2,.,$network,.tpc) $3- | halt }
raw 333:* { _s Topic set by $cs(2,$gettok($3,1,33)) at $iif($asctime($4,m/d) == $asctime($ctime,m/d),$asctime($4,h.nnt) today,$asctime($4,h.nnt m/d))) $+ : $strip($rt($+(%,c.,$2,.,$network,.tpc))) | unset [ $+(%,c.,$2,.,$network,.tpc) ] | halt }
raw 348:* { hadd emode $3 $3- | halt }
raw 349:* {
  if %echk == on {
    unset %echk | _s Exception list for $2 $+ .. | var %i = 1
    while $hget(emode,%i).data { var %tmp = $hget(emode,%i).data | _s $gettok(%tmp,1,32) by $iif(! !isin $gettok(%tmp,2,32),$gettok(%tmp,2,32),$gettok($gettok(%tmp,2,32),1,33) $b($gettok($gettok(%tmp,2,32),2,33))) at $asctime($gettok(%tmp,3,32),h.nnt m.d.yyyy) | inc %i }
    hfree emode
  }
  halt
}
raw 351:* { _s $lower($nick) ping response: $tick(%s.pong) | unset %s.pong | toRedir | halt }
raw 352:* { if $6 == $me { .rlevel 100 | .auser 100 $+(*!,$3,@,$4) } | halt }
raw 353:* { halt }
raw 356:* { halt }
raw 366:* { %joinend = $tick($rt($+(%,jointo.,$2))) | who $2
  if $readini(system\gainop.ini,gainop,$2) != $null {
    if $gettok($readini(system\gainop.ini,gainop,$2),1,32) isop $2 {
      .raw PRIVMSG $gettok($readini(system\gainop.ini,gainop,$2),1,32) : $+ $gettok($readini(system\gainop.ini,gainop,$2),2-,32)
    }
  }
  if %joinsynch != active { unset %join* | halt }
  echo $cs(3) $2 $_ $lower($2) synched, $+($nick($2,0,a),15:,%joinend) ..o- $+ $nick($2,0,o) $+ 15: $+ $per($nick($2,0,o),$nick($2,0,a)) ..n- $+ $nick($2,0,a,o) $+ 15: $+ $per($nick($2,0,a,o),$nick($2,0,a))
  .timer 1 5 /unset %join* | halt
}
raw 367:* {
  if %echk == on { hadd emode $3 $3- | halt }
  if %ban.match.tog == y {
    if %ban.match.user iswm $3 {
      if *dal.ne* iswm $server { var %tmp = $4 }
      else { var %tmp = $gettok($4,1,33) ( $+ $gettok($4,2,33) $+ ) }
      _s Banned: $3 by %tmp | halt
    }
    halt
  }
  if %ban.clear.tog == y { %ban.clear.args = %ban.clear.args $3 | if $gettok(%ban.clear.args,4,32) != $null { MODE $2 $getNet(-,b) %ban.clear.args | set %ban.clear.args "" } | halt }
  if %ban.clist.tog == y {
    if %ban.clist.start == y { _s Banlist for $lower($2) $+ : | unset %ban.clist.s* }
    if *dal.ne* iswm $server { var %tmp = $4 }
    else { var %tmp = $gettok($4,1,33) ( $+ $gettok($4,2,33) $+ ) }
    _s Banned: $3 by %tmp | halt
  }
  if $3 iswm $ulist(*,100,1) || $3 iswm $address($me,5) { _s $lower($2) has ban " $+ $3 $+ " by $gettok($4,1,33) | halt }
  halt
}
raw 368:* {
  if %echk == on {
    unset %echk | _s Name list for $2 $+ .. | var %i = 1
    while $hget(emode,%i).data { var %tmp = $hget(emode,%i).data | _s $gettok(%tmp,1,32) by $iif(! !isin $gettok(%tmp,2,32),$gettok(%tmp,2,32),$gettok($gettok(%tmp,2,32),1,33) $b($gettok($gettok(%tmp,2,32),2,33))) at $asctime($gettok(%tmp,3,32),h.nnt m.d.yyyy) | inc %i }
    hfree emode
  }
  if %ban.clear.tog == y && $len(%ban.clear.args) > 0 { MODE $2 $getNet(-,b) %ban.clear.args } | unset %ban.* | halt
}
raw 369:* { halt }
raw 375:* { halt }
raw 376:* { if $rt($+(%,ajoin.,$network)) == on { tojoinchan $rt($+(%,autojoin.,$network)) } | .raw WHO $me | halt }
raw 378:* { halt }
raw 381:* { halt }
raw 391:* { _s Server lag: $tick(%s.lag) | toRedir | halt }
raw 401:* { _s No such nick ( $+ $lower($nick) $+ ); 15 $+ $2 $+  has gone away, gone ahead..
  if %who.w == y { whowas $2 }
  %nosuch = y | toRedir | halt
}
raw 402:* { halt }
raw 403:* { halt }
raw 404:* { if $server != $nick && $me ison $2 && m !isin $mode($2) { _s Desynch notice for $lower($2) from $lower($nick) (not in chan) } | toRedir | halt }
raw 406:* { .disable #whowas | _s There was no such nick ( $+ $lower($nick) $+ );  $+ $2 $+  never was. | toRedir | halt }
raw 407:* { _s $m_(error) Duplicate recipients: $2 | halt }
raw 409:* { _s Server lag: $tick(%s.lag) | toRedir | halt }
raw 421:* { _s No such command: " $+ $lower($2) $+ " | halt }
raw 432:* { _s Invalid nickname: $2 | toRedir | halt }
raw 433:* { _s $m_(error) Nickname already in use: $2 ( $+ $nick $+ ) | halt }
raw 436:* { nick $r(a,z) $+ qofnt | wim | ww $me | ww $me | show 4 $_ Warning: nick collision message received from $lower($nick) }
raw 441:* { halt }
raw 442:* { if $server != $nick && $me ison $2 { names $2 | _s Desynch notice for $lower($2) from $lower($nick) (not in chan) } | toRedir | halt }
;raw 461:* { _s Server lag: $tick(%s.lag) | toRedir | halt }
raw 471:* { _s Unable to join $lower($2) $+ : limit maxed out. | toRedir | halt }
raw 473:* { _s Unable to join $lower($2) $+ : not invited. | toRedir | halt }
raw 474:* { .enable #find.ban | .raw MODE $2 b | _s Unable to join $lower($2) $+ : banned, waiting for banlist.. | toRedir | halt }
raw 475:* {
  if $chan($2).key { .raw join $2 $chan($2).key | halt }
  else { _s Unable to join $lower($2) $+ : bad key | unset %join* | toRedir | halt }
}
raw 478:* { _s Unable to place $lower($2) ban: banlist is full | halt }
raw 482:* { if $server != $nick && $me isop $2 { _s Desynch notice for $lower($2) from $lower($nick) (not operator) } | toRedir | halt }
raw 615:* { halt }
raw 616:* { halt }
raw 710:* { _s $gettok($3,1,33) $b($gettok($3,2,33)) has asked for an invite to $2 | halt }