on *:load:tokenize 46 * 4 ~&@.* 7 % .* 12 +.* 01.on | .cnick $* | font -z 14 Eras Demi ITC
alias rlg { return $+($chr(40),$1-,$chr(41)) }
on ^*:TEXT:*:#:{
haltdef
echo $iif($me isin $strip($1-,burc),4) -t # $rlg($+($iif($nick(#,$nick,o),4@,$iif($nick(#,$nick,h),7%,$iif($nick(#,$nick,v),12+))),$nick)) $1-
}
on ^*:RAWMODE:#:{
haltdef
echo 3 -t # * Mode $rlg($+($iif($nick(#,$nick,o),4@,$iif($nick(#,$nick,h),7%,$iif($nick(#,$nick,v),12+))),$nick)) $rlg($chan) —› $1-
}
on ^*:JOIN:#:{
haltdef
if ($nick != $me) {
echo 3 -t # * Join $rlg($chan) —› $rlg($nick) $rlg($address)
}
else {
echo 3 -t # * Joined —› $rlg($chan) $rlg($nick(#,0))
}
}
on ^*:QUIT:{
haltdef
var %x 1 | while (%x <= $comchan($nick,0)) { echo 2 -t $comchan($nick,%x) * Quit —› $rlg($nick) $rlg($address) $rlg($1- $+ ) | inc %x }
}
on ^*:PART:#:{
haltdef
echo 3 -t # * Part $rlg($chan) —› $rlg($nick) $rlg($address) $iif($1,$rlg($1-))
}
on ^*:NICK:{
haltdef
var %x 1 | while (%x <= $comchan($nick,0)) { echo 3 -t $comchan($nick,%x) * Nick: $rlg($nick) —› $rlg($newnick) | inc %x }
}
on *:INPUT:?:{
haltdef
if ($left($1,1) != /) {
echo -t # $rlg($me) $1-
.msg $active $1-
}
if (($left($1,1) == /) && ($ctrlenter)) {
echo -t # $rlg($me) $1-
.msg $active $1-
}
else {
[ [ $1- ] ]
}
}
on ^*:ACTION:*:#:{
haltdef
echo $iif($me isin $strip($1-,burc),4,6) -t # * $+($iif($nick(#,$nick,o),4@,$iif($nick(#,$nick,h),7%,$iif($nick(#,$nick,v),12+))),$nick) $1-
}
on ^*:TEXT:*:?:{
haltdef
echo -t $nick $rlg($nick) $1-
}
on *:INPUT:#:{
haltdef
if ($left($1,1) != /) {
echo -t # $rlg($+($iif($me isop #,4@,$iif($me ishop #,7%,$iif($me isvoice #,12+))),$me)) $1-
.msg $active $1-
}
elseif (($left($1,1) == /) && ($ctrlenter)) {
echo -t # $rlg($+($iif($me isop #,4@,$iif($me ishop #,7%,$iif($me isvoice #,12+))),$me)) $1-
.msg $active $1-
}
else {
$iif($mid($1,2,1) == /,[ [ $1- ] ],$1-)
}
}
on ^*:ACTION:*:?:{
haltdef
echo $iif($me isin $strip($1-,burc),4,6) -t # * $nick $1-
}
on ^*:KICK:#:{
haltdef
echo 3 -t # * Kick $rlg($chan) —› $rlg($knick) by $rlg($nick) $rlg($1- $+ )
if ($knick == $me) { echo 3 -ts * Kick $rlg($chan) —› $rlg($nick) kicked you $rlg($1- $+ ) }
}
on ^*:USERMODE:{
haltdef
echo 3 -ts Usermode —› $1-
}
on ^*:NOTICE:*:?:{
haltdef
echo 5 -t Notice —› $rlg($nick) $1-
}
on ^*:SNOTICE:*:{
haltdef
echo 5 -t Notice —› $rlg($nick) $1-
}
alias query {
query $$1
$iif($2,echo -t $$1 $rlg($me) $2-)
}
alias me {
.describe $active $1-
echo 6 -ta $iif($left($active,1) == $chr(35),$+($iif($nick(#,$me,o),4@,$iif($nick(#,$me,h),7%,$iif($nick(#,$me,v),12+))),$me),$me) $1-
}
alias msg {
!.msg $1 $2-
echo -t $1 $iif($left($1,1) == $chr(35),$rlg($+($iif($nick(#,$me,o),4@,$iif($nick(#,$me,h),7%,$iif($nick(#,$me,v),12+))),$me)),$rlg($me)) $2-
}
raw 332:*:echo 3 -t $2 Topic $rlg($2) —› $remove($3-,') | haltdef
raw 333:*:haltdef
raw 313:*:echo -at $rlg($2) —› $rlg($5-) | haltdef
raw 311:*:echo -at /w —› $rlg($2) | echo -at $rlg($2) —› $rlg($3 $+ @ $+ $4) $rlg($6-) | haltdef
raw 319:*:echo -at $str($crlf,3) $rlg($2) —› Channels: $replace($remove($3-,@,%,+),$chr(32),$chr(44)) | haltdef
raw 312:*:echo -at $str($crlf,3) $rlg($2) —› Server: $rlg($3) $rlg($4-) | haltdef
raw 317:*:echo -at $str($crlf,3) $rlg($2) —› Idle: $rlg($duration($3)) $rlg(Signed on: $duration($calc($ctime - $4)) ago) | haltdef
raw 301:*:echo -at $str($crlf,3) $rlg($2) —› Away: $3 | haltdef
raw 318:*:echo -at /w —› $rlg($2) | haltdef
