rendered paste body;
; NoNameScript v4.03 - dynamic theme file - coded by greeny
; Don't edit anything in here unless you REALLY know what you're doing!
; File dynamically generated by NoNameScript 4.03 theme engine 1.01 at 11/07/2006 15:52:01
;
alias msg {
if (!$isid) && ($remove($2-,$chr(32)) != $null) {
!.msg $$1-
if ($show) {
if ($1 ischan) || ($query($1)) || (=* iswm $1) {
if ($1 ischan) {
echo -ti12c own $1 07{ $+ $cmod($1,$me) $+ $+ $me $+ 07} $2-
}
else {
echo -ti12c own $1 07{ $+ $me $+ 07} $2-
}
}
else {
echo $actcid(ti12c) normal 15« 01 07*01 $+ $1 $+ 07*01 $2-
}
}
}
}
alias amsg {
var %t = $$1-
if (!$isid) && ($remove(%t,$chr(32)) != $null) {
!.amsg %t
if ($show) {
if ($chan(0)) {
var %c = $v1
while (%c) {
tokenize 32 $chan(%c) %t
echo -ti12c own $1 07{ $+ $cmod($1,$me) $+ $+ $me $+ 07} $2-
dec %c
}
}
}
}
}
alias describe {
if (!$isid) {
!.describe $1-
if (!$show) { return }
if ($1 ischan) || ($query($1)) || (=* iswm $1) {
if ($1 ischan) {
echo -ti12c action $1 15» 07 $+ $cmod($1,$me) $+ 01 $+ $me $2-
}
else {
echo -ti12c action $1 15»01 $me $2-
}
}
else {
echo $actcid(ti12c) action 07 15»01 $1 $2-
}
}
}
alias ame {
var %t = $$1-
if (!$isid) && ($remove(%t,$chr(32)) != $null) {
!.ame %t
if ($show) {
if ($chan(0)) {
var %c = $v1
while (%c) {
tokenize 32 $chan(%c) %t
echo -ti12c action $1 15» 07 $+ $cmod($1,$me) $+ 01 $+ $me $2-
dec %c
}
}
}
}
}
alias notice {
if (!$isid) {
.!notice $1-
if (!$show) { return }
echo $actcid(ti12c) notice 07 07- $+ $1 $+ 01- $2-
}
}
alias dns {
if (!$isid) {
!.dns $1-
if ($show) {
var %h = $1,%f
if ($istok(-h -c,$1,32)) { var %f = $1,%h = $2 }
if (%f != -h) && (. !isin %h) && ($address(%h,5)) { %h = $gettok($v1,2,64) }
echo -ati12c info 15« 01 15dns » 14resolving $thmbr(%h) $+ ...
}
}
}
alias ctcp {
if (!$isid) {
!.ctcp $1-
if ($2 == PING) { set -u100 $+(%,pingticks.,$cid,.,$1) $nn.ticks }
if ($show) && ($2 != DCC) {
echo $actcid(ti12c) ctcp 07 ?01 $+ $1 $+ 07?01 $2 $3-
}
}
}
alias ctcpreply {
if (!$isid) {
!.ctcpreply $1-
if ($show) {
echo $actcid(ti12c) ctcp 07 !01 $+ $1 $+ 07!01 $2 $3-
}
}
}
on ^&*:notify:{
haltdef
echo $actcid(ti12c) info 15« 01 notify 15» $thmbr($nick) is now online!
}
on ^&*:unotify:{
haltdef
echo $actcid(ti12c) info 15« 01 unnotify 15» $thmbr($nick) is now offline!
}
alias thmecho {
if ($1 == -s) { var %e = -sti12c info }
elseif ($1 == -a) { var %e = $actcid(ti12c info) }
else { var %e = -ti12c info $1 }
echo %e 15« 01 01 $+ $2-
}
alias thmerror {
if ($1 == -s) { var %e = -sti12c info }
elseif ($1 == -a) { var %e = $actcid(ti12c info) }
else { var %e = -ti12c info $1 }
echo %e 15« 01 15error » 14 $+ $2-
}
alias thmls {
if ($1 == -s) { var %e = -sti12c info }
elseif ($1 == -a) {
if (@* iswm $active) || ($cid != $activecid) { var %e = -sti12c info }
else { var %e = -ati12c info }
}
else { var %e = -ti12c info $1 }
echo %e -
}
alias thmhl {
if ($1- != $null) {
return 07{14 $+ $1- $+ 07}01
}
}
alias thmbr {
if ($1- != $null) {
return 07{14 $+ $1- $+ 07}01
}
}
on &^*:join:#:{
haltdef
if ($chan !ischan) { return }
if ($nick != $me) {
var %e = $thmev($chan)
if (%e isnum 0-1) { %e = -ti12c join $chan }
elseif (%e == 2) { %e = -sti12c join }
elseif (%e == 3) { goto skip }
echo %e 15« 01 join 15» $thmbr($nick) $thmbr($address)
:skip
if (%qryevent) && ($query($nick)) && (j isin %qrytypes) {
echo -ti12c join $nick 15« 01 join 15» $thmbr($+($nick,:,$chan)) $thmbr($address)
}
}
else { set -u100 %joinprog. [ $+ [ $chan ] $+ ] . [ $+ [ $cid ] ] $nn.ticks }
}
on &!^*:part:#:{
haltdef
if ($chan !ischan) { return }
var %e = $thmev($chan)
if (%e isnum 0-1) { %e = -ti12c part $chan }
elseif (%e == 2) { %e = -sti12c part }
elseif (%e == 3) { goto skip }
echo %e 15« 01 part 15» $thmbr($nick) $thmbr($address) $+ 07 $1-
:skip
if (%qryevent) && ($query($nick)) && (p isin %qrytypes) {
echo -ti12c part $nick 15« 01 part 15» $thmbr($+($nick,:,$chan)) $thmbr($address) $+ 07 $1-
}
}
on &^*:kick:#:{
haltdef
if ($chan !ischan) { return }
if ($knick == $me) {
echo -sti12c kick 15« 01 kick 15» $thmbr($me) was kicked by $thmbr($nick) $+ 07 $1-
}
var %e = $thmev($chan)
if (%e isnum 0-1) { %e = -ti12c kick $chan }
elseif (%e == 2) { %e = -sti12c kick }
elseif (%e == 3) { goto skip }
echo %e 15« 01 kick 15» $thmbr($knick) was kicked by $thmbr($nick) $+ 07 $1-
if ($away.chklog($null).event) && ($ccontrol($chan)) {
echo -ti12c kick $away.logwin 15« 01 kick 15» $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $+ 07 $1-
}
:skip
if (%qryevent) && (k isin %qrytypes) {
if ($query($knick)) {
echo -ti12c kick $knick 15« 01 kick 15» $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $+ 07 $1-
}
if ($query($nick)) {
echo -ti12c kick $nick 15« 01 kick 15» $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $+ 07 $1-
}
}
}
on &^*:quit:{
haltdef
var %c = $comchan($nick,0)
while (%c) {
var %e = $thmev($comchan($nick,%c))
if (%e isnum 0-1) { %e = -ti12c quit $comchan($nick,%c) }
elseif (%e == 2) { %e = -sti12c quit }
elseif (%e == 3) {
%e = -sti12c quit
echo %e 15« 01 quit 15» $thmbr($nick) $thmbr($address) $+ 07 $1-
%e = -ti12c quit $comchan($nick,%c)
}
elseif (%e == 4) { goto skip }
echo %e 15« 01 quit 15» $thmbr($nick) $thmbr($address) $+ 07 $1-
:skip
dec %c
}
if (%qryevent) && ($query($nick)) && (q isin %qrytypes) {
echo -ti12c quit $nick 15« 01 quit 15» $thmbr($nick) $thmbr($address) $+ 07 $1-
}
}
on &^*:nick:{
haltdef
if ($nick === $newnick) { return }
var %c = $comchan($newnick,0),%q = $query(0)
while (%c) {
var %e = $thmev($comchan($newnick,%c))
if (%e isnum 0-1) { %e = -ti12c nick $comchan($newnick,%c) }
elseif (%e == 2) { goto skip }
echo %e 15« 01 nick 15» $thmbr($nick) is now known as $thmbr($newnick)
:skip
dec %c
}
if ($nick == $me) {
echo -sti12c nick 15« 01 nick 15» $thmbr($me) is now known as $thmbr($newnick)
}
if (%qryevent) {
if ($query($newnick)) && (n isin %qrytypes) {
echo -ti12c nick $newnick 15« 01 nick 15» $thmbr($nick) is now known as $thmbr($newnick)
}
elseif ($nick == $me) && (o isin %qrytypes) {
while (%q) {
echo -ti12c nick $query(%q) 15« 01 nick 15» $thmbr($nick) is now known as $thmbr($newnick)
dec %q
}
}
}
}
on &^*:topic:#:{
haltdef
if ($chan !ischan) { return }
var %e = $thmev($chan)
if (%e isnum 0-1) { %e = -ti12c topic $chan }
elseif (%e == 2) { %e = -sti12c topic }
elseif (%e == 3) { goto skip }
echo %e 15« 01 topic 15» $thmbr($nick) changes topic to $thmbr($1-)
if ($away.chklog($null).event) && ($ccontrol($chan)) {
echo -ti12c topic $away.logwin 15« 01 topic 15» $thmbr($+($nick,:,$chan)) changes topic to $thmbr($1-)
}
:skip
}
ctcp &*:*:*:{
if (!$istok(dcc version,$1,32)) {
haltdef
if ($1 == ping) { .ctcpreply $nick PING $ctime }
if ($chan) {
if ($chan !ischan) { return }
var %e = $thmev($chan)
if (%e isnum 0-1) { %e = -ti12c ctcp $chan }
elseif (%e == 2) { %e = -sti12c ctcp }
echo %e 07?01 $+ $nick $+ 07@01 $+ $chan $+ 07?01 $1 $2-
}
else {
var %e = $thm.active(ctcp,ti12c ctcp)
echo %e 07?01 $+ $nick $+ 07?01 $1 $2-
}
}
}
on &^*:rawmode:#:{
haltdef
if ($chan !ischan) { return }
var %e = $thmev($chan)
if (%e isnum 0-1) { %e = -ti12c mode $chan }
elseif (%e == 2) { %e = -sti12c mode }
elseif (%e == 3) { goto skip }
echo %e 15« 01 mode 15» $thmbr($nick) sets $thmbr($1-)
:skip
}
on &^*:invite:#:{
haltdef
var %e = $thm.active(invite,ti12c invite)
echo %e 15« 01 invite 15» $thmbr($nick) invites you to join $thmbr($chan)
}
on &^*:usermode:{
haltdef
echo -sti12c mode 15« 01 usermode 15» set to $thmbr($1-)
}
on &^*:text:*:#:{
haltdef
if ($chan !ischan) { return }
echo -lbfmti12c normal $chan 07{ $+ $cmod($chan,$nick) $+ $+ $nick $+ 07} $strip($1-,mo)
if (%hlown) && ($isachl($1-)) {
chkhlwin
echo -mti12c normal $hlwin 07{ $+ $cmod($chan,$nick) $+ $+ $+($nick,:,$chan) $+ 07} $strip($1-,mo)
}
if ($away.chklog($strip($1-))) {
echo -mti12c normal $away.logwin 07{ $+ $cmod($chan,$nick) $+ $+ $+($nick,:,$chan) $+ 07} $strip($1-,mo)
}
}
on &^*:text:*:?:{
haltdef
if ($query($nick)) {
echo -lbfmti12c normal $nick 07{ $+ $nick $+ 07} $strip($1-,mo)
}
elseif (%thm.singlemsg) {
echo -lbfmdti12c normal 07*01 $+ $nick $+ 07*01 $1-
}
else {
echo $thm.active(query,lbfmti12c) normal 07*01 $+ $nick $+ 07*01 $strip($1-,mo)
}
if (%hlown) && ($isachl($1-)) {
chkhlwin
echo -mti12c normal $hlwin 07{ $+ $nick $+ 07} $strip($1-,mo)
}
}
on &^*:chat:*:{
haltdef
if (ACTION ?* iswm $1-) {
echo -lbfmti12c normal =$nick 15»01 $nick $strip($mid($1-,9,-1),mo)
if (%hlown) && ($isachl($1-)) {
chkhlwin
echo -mti12c normal $hlwin 15»01 $nick $strip($mid($1-,9,-1),mo)
}
}
else {
echo -lbfmti12c normal =$nick 07{ $+ $nick $+ 07} $strip($1-,mo)
if (%hlown) && ($isachl($1-)) {
chkhlwin
echo -mti12c normal $hlwin 07{ $+ $nick $+ 07} $strip($1-,mo)
}
}
}
on &^*:action:*:#:{
haltdef
if ($chan !ischan) { return }
echo -lbfmti12c action $chan 15» 07 $+ $cmod($chan,$nick) $+ 01 $+ $nick $strip($1-,mo)
if (%hlown) && ($isachl($1-)) {
chkhlwin
echo -mti12c action $hlwin 15» 07 $+ $cmod($chan) $+ 01 $+ $+($nick,:,$chan) $strip($1-,mo)
}
if ($away.chklog($strip($1-))) {
echo -mti12c action $away.logwin 15» 07 $+ $cmod($chan) $+ 01 $+ $+($nick,:,$chan) $strip($1-,mo)
}
}
on &^*:action:*:?:{
haltdef
if (%thm.singlemsg) {
echo -dti12c action 15»01 $nick $1-
}
elseif ($query($nick)) {
echo -lbfmti12c action $nick 15»01 $nick $strip($1-,mo)
}
else {
echo $thm.active(query,lbfmti12c) action 15»01 $nick $strip($1-,mo)
}
if (%hlown) && ($isachl($1-)) {
chkhlwin
echo -mti12c action $hlwin 15»01 $nick $strip($1-,mo)
}
}
on &^*:notice:*:#:{
haltdef
if ($chan !ischan) { return }
if (%notice.sepwin) {
notice.chkwin
var %e = -mti12c notice $notice.win
}
else { var %e = -mti12c notice $chan }
echo %e 07- $+ $nick $+ 07@ $+ $chan $+ 07- $1-
}
on &^*:notice:*:?:{
haltdef
if (%notice.sepwin) {
notice.chkwin
var %e = -mti12c notice $notice.win
}
else { var %e = $thm.active(notice,mti12c notice) }
echo %e 07- $+ $nick $+ 07- $1-
}
on &^*:snotice:*:{
haltdef
if (%notice.sepwin) {
notice.chkwin
var %e = -mti12c notice $notice.win
}
else { var %e = -msti12c notice }
echo %e 07-01 $+ $nick $+ 07-01 $1-
}
on &*:dns:{
haltdef
if ($dns(0)) {
var %i = 1,%t = $dns(0)
while (%i <= %t) {
echo -ati12c info 15« 01 15dns » 14resolved $thmbr($dns(%i)) to $thmbr($remtok($dns(%i).ip $dns(%i).addr,$dns(%i),1,32))
inc %i
}
}
else {
echo -ati12c info 15« 01 15dns » 14unable to resolve $thmbr($iif($address,$v1,$nick))
}
}
on &*:ctcpreply:*:{
haltdef
if ($1 == PING) {
if ($($+(%,pingticks.,$cid,.,$nick),2)) {
%rpl = $calc(($nn.ticks - $v1)/1000) second(s)
unset $+(%,pingticks.,$cid,.,$nick)
}
else { %rpl = $duration($calc($ctime - $2)) }
tokenize 32 PING %rpl
}
var %e = $thm.active(ctcp,ti12c ctcp)
echo %e 07!01 $+ $nick $+ 07!01 $1 $2-
}
on ^&*:wallops:*:{
haltdef
if ($1 == *) { var %w = $wusrs.win,%t = $2- }
elseif ($1 == $) { var %w = $wops.win,%t = $2- }
else { var %w = $wops.win,%t = $1- }
if (!$window(%w)) {
window -nk0g1e %w
thmecho %w Wall message window for $thmhl($curconserv) opened on $thmhl($longtime) $+ .
echo %w
}
echo -lmti12c wallops %w 15« 01 wallop 15» $thmbr($nick) $strip(%t,mo)
}
raw 324:*:{
if ($halted) { return }
haltdef
echo -ti12c info $2 15« 01 $thmbr($2) modes 15» $thmbr($3-)
}
raw 329:*:{
if ($halted) { return }
haltdef
echo -ti12c info $2 15« 01 channel created 15» $thmbr($longtime($3))
}
raw 367:*:{
if ($halted) { return }
haltdef
echo -ti12c info $2 15« 01 $thmbr($2) $3 ban set by $4 $thmbr($longtime($5))
}
raw 368:*:{
if ($halted) { return }
haltdef
echo -ti12c info $2 15« 01 end of $thmbr($2) ban list
}
raw 404:*:{
if ($halted) { return }
haltdef
echo -ti12c info $2 15« 01 unable to send message to $thmbr($2)
}
raw 482:*:{
if ($halted) { return }
haltdef
echo -ti12c info $2 15« 01 you're not opped on $thmbr($2)
}
raw 396:*:{
if ($halted) { return }
haltdef
echo -sti12c info 15« 01 $thmbr($2) is now your hidden host
}
raw 451:*:{
if ($halted) { return }
haltdef
echo -sti12c info 15« 01 Register first!
}
raw 311:*:{
if ($halted) { return }
haltdef
if (%whois. [ $+ [ $cid ] ]) {
echo $thm.active(whois,ti12c) whois 15« 01 whois end 15»
}
else {
set %whois. $+ $cid 1
}
echo $thm.active(whois,ti12c) whois 15« 01 whois start 15»
echo $thm.active(whois,ti12c) whois 15« 07 $2 14is $+($3,@,$4) $thmbr($6-)
}
raw 319:*:{
if ($halted) { return }
haltdef
echo $thm.active(whois,ti12c) whois 15« 07 $2 14on $sorttok($3-,32,c)
}
raw 312:*:{
if ($halted) { return }
haltdef
if (%whois. [ $+ [ $cid ] ]) {
echo $thm.active(whois,ti12c) whois 15« 07 $2 14using $3 $thmbr($4-)
}
else {
echo $thm.active(whois,ti12c) whois 15« 07 $2 14using $3
}
}
raw 313:*:{
if ($halted) { return }
haltdef
echo $thm.active(whois,ti12c) whois 15« 07 $2 14is an $5-
}
raw 314:*:{
if ($halted) { return }
haltdef
set %whowas. $+ $cid 1
echo $thm.active(whois,ti12c) whois 15« 01 whowas start 15»
echo $thm.active(whois,ti12c) whois 15« 07 $2 14was $+($3,@,$4) $thmbr($6-)
}
raw 301:*:{
if ($halted) { return }
haltdef
if (%whois. [ $+ [ $cid ] ]) {
echo $thm.active(whois,ti12c) whois 15« 07 $2 14is away: $3-
}
elseif (%whowas. [ $+ [ $cid ] ]) {
echo $thm.active(whois,ti12c) whois 15« 07 $2 14was away: $3-
}
elseif ($2 != $me) && (!%away.seen. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) {
set -u300 %away.seen. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ] 1
echo $thm.active(away,ti12c) info 15« 01 $thmbr($2) is marked as being away: $3-
}
}
raw 369:*:{
if ($halted) { return }
haltdef
if (%whowas. [ $+ [ $cid ] ]) {
echo $thm.active(whois,ti12c) whois 15« 01 whowas end 15»
unset %whowas. $+ $cid
}
}
raw 330:*:{
if ($halted) { return }
haltdef
echo $thm.active(whois,ti12c) whois 15« 07 $2 14is authed as $3
}
raw 338:*:{
if ($halted) { return }
haltdef
echo $thm.active(whois,ti12c) whois 15« 07 $2 $+ 14's real host $3 $thmbr($4)
}
raw 317:*:{
if ($halted) { return }
haltdef
echo $thm.active(whois,ti12c) whois 15« 07 $2 14has been idle $duration($3) 07{01signed on $asctime($4) $+ 07}
}
raw 318:*:{
if ($halted) { return }
haltdef
if (%whois. [ $+ [ $cid ] ]) {
echo $thm.active(whois,ti12c) whois 15« 01 whois end 15»
unset %whois. $+ $cid
}
}
raw 331:*:{
if ($halted) { return }
haltdef
if ($me ison $2) { var %e = -ti12c topic $2 }
else { var %e = $actcid(ti12c) topic }
echo %e 15« 01 no topic in $2 set
}
raw 332:*:{
if ($halted) { return }
haltdef
if (%joinprog. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) { return }
if ($me ison $2) { var %e = -ti12c topic $2 }
else { var %e = $actcid(ti12c) topic }
echo %e 15« 01 topic 15» $thmbr($3-)
}
raw 333:*:{
if ($halted) { return }
haltdef
if (%joinprog. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) {
set -u100 $+(%,topicset.,$2,.,$cid) $3-
return
}
if ($me ison $2) { var %e = -ti12c topic $2 }
else { var %e = $actcid(ti12c) topic }
echo %e 15« 01 set by 15» $thmbr($3) on $thmbr($asctime($4))
}
raw 341:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) invite 15« 01 $thmbr($2) has been invited to join $thmbr($3)
}
raw 443:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) invite 15« 01 $thmbr($2) is already on that channel
}
raw 353:*:{
if ($halted) { return }
haltdef
if (!%thm.hnames) || (%names.show. [ $+ [ $cid ] ]) {
echo -sti12c info 15« 01 07{14/names07}14 $4-
}
}
raw 355:*:{
if ($halted) { return }
haltdef
if (!%thm.hnames) || (%names.show. [ $+ [ $cid ] ]) {
echo -sti12c info 15« 01 07{14/names07}14 $4-
}
}
raw 366:*:{
if ($halted) { return }
haltdef
if (!%thm.hnames) || (%names.show. [ $+ [ $cid ] ]) {
echo -sti12c info 15« 01 07{14/names07}14 end.
}
if (%joinprog. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) {
var %s = $iif($round($calc(($nn.ticks - $v1)/1000),2) isnum 0-1000,$v1,<unknown>),%g = %topicset. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ],%n = $iif($wd(%g,1,32),$v1,<unknown>),%d = $iif($wd(%g,2,32),$longtime($v1),<unknown>),%a = $iif($wd(%g,2,32),$duration($calc($ctime - $v1)),<unknown>)
if ($me ison $2) {
haltdef
echo -ti12c join $2 15« 01 joined 15» $thmbr($2)
if ($thmif($chan($2).topic)) { echo -ti12c join $2 15« 01 topic 15» $thmbr($chan($2).topic) }
if ($thmif($chan($2).topic)) { echo -ti12c join $2 15« 01 set by 15» $thmbr(%n) on $thmbr(%d) }
}
}
unset %names.show. $+ $cid %joinprog. $+ $2 $+ . $+ $cid %topicset. $+ $2 $+ . $+ $cid
}
raw 421:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) info 15« 01 $thmbr($2) is an invalid command
}
raw 352:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) whois 15« 01 07{14/who07}14 $6 $thmbr($+($3,@,$4)) $9-
}
raw 315:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) whois 15« 01 07{14/who07}14 end.
}
raw 433:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) info 15« 01 nickname $thmbr($2) is already in use
}
raw 471:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) info 15« 01 can't join $2 07{14full (+l)07}
}
raw 473:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) info 15« 01 can't join $2 07{14invite only (+i)07}
}
raw 474:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) info 15« 01 can't join $2 07{14you're banned (+b)07}
}
raw 475:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) info 15« 01 can't join $2 07{14requires key (+k)07}
}
raw 477:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) info 15« 01 can't join $2 07{14registered only07}
}
raw 401:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) info 15« 01 no such nickname 15» $thmbr($2)
unset $+(%,whois.,$2,.,$cid)
}
raw 406:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) info 15« 01 no such nickname 15» $thmbr($2)
}
raw 403:*:{
if ($halted) { return }
haltdef
echo $actcid(ti12c) info 15« 01 no such channel 15» $thmbr($2)
}
raw 251:*:{
if ($halted) { return }
haltdef
echo -sti12c info 15« 01 users 15» $thmbr($4) 15« 01 invisible 15» $thmbr($7) 15« 01servers 15» $thmbr($10)
}
raw 252:*:{
if ($halted) { return }
haltdef
echo -sti12c info 15« 01 operator(s) online 15» $thmbr($2)
}
raw 253:*:{
if ($halted) { return }
haltdef
echo -sti12c info 15« 01 unknown connection(s) 15» $thmbr($2)
}
raw 254:*:{
if ($halted) { return }
haltdef
echo -sti12c info 15« 01 number of channels formed 15» $thmbr($2)
}
raw 255:*:{
if ($halted) { return }
haltdef
echo -sti12c info 15« 01 local clients 15» $thmbr($4) on $thmbr($7) server(s)
}
raw 001:*:{
if ($halted) { return }
haltdef
echo -sti12c info 15« 01 Welcome to the Internet Relay Network, $thmbr($8)
}
raw 002:*:{
if ($halted) { return }
haltdef
if (!%thm.hwmsg) {
echo -sti12c info 15« 01 host 15» 07{14 $+ $left($5,-1) $+ 07}14 running version 07{14 $+ $8 $+ 07}14
}
}
raw 003:*:{
if ($halted) { return }
haltdef
if (!%thm.hwmsg) {
echo -sti12c info 15« 01 server created on 15» 07{14 $+ $6- $+ 07}14
}
}
raw 004:*:{
if ($halted) { return }
haltdef
if (!%thm.hwmsg) {
echo -sti12c info 15« 01 $thmbr($2) $3 $4 $5
}
}
raw 005:*:{
if ($halted) { return }
haltdef
if (!%thm.hwmsg) {
echo -sti12c info 15« 01 protocols supported by this server 15» $thmbr($deltok($2-,-5-,32))
}
}
raw *:*:{
if ($halted) { return }
if (!$istok(321 322 323,$numeric,32)) {
haltdef
echo $whois.echo $+ ti12c info 15« 01 $2-
}
}
;
; End of file
;
on *:input:*: {
if ($left($1,1) != $chr(47)) {
say $replace($1-,$left($1,1),$upper($left($1,1))) $+ .
halt
}
}