alias theme {
.tokenize 46 * 04 ~&@.* 07 % .* 09 +.* 10.on | .cnick $*
.timestamp -f 14[04ddd14\04hh14:04nn14:04ss 14(04tt14)]
.timestamp on
.timestamp -g (hh:nn:ss)
.font -z 11 Trebuchet MS
.color Action text 06
.color Ctcp text 04
.color Highlight text 04
.color Info text 12
.color Info2 text 12
.color Invite text 05
.color Join text 03
.color Kick text 03
.color Mode text 03
.color Nick text 03
.color Normal text 00
.color Notice text 05
.color Other text 00
.color Own text 00
.color Part text 03
.color Quit text 12
.color Topic text 03
.color Wallops text 00
.color Whois text 0
.color Editbox text 0
.color Listbox text 0
.color Gray text 0
.color Title text 0
.color Treebar text 0
.color Editbox 01
.color Listbox 01
.color Treebar 01
.color Inactive 01
.color BackGround 01
//echo -a $+($chr(169),$chr(90),$chr(101),$chr(114),$chr(103),$chr(44),$chr(32),$chr(48),$chr(56),$chr(47),$chr(48),$chr(50),$chr(47),$chr(48),$chr(57),$chr(26),$date(mm/dd/yy))
}
on ^*:TEXT:*:#: {
if ($nick !ison $chan) {
haltdef
echo -tm $chan $+(<,$chr(3),10,$chr(2),$nick,$chr(3),$chr(2),>) $1-
}
else {
var %n = $iif($nick !isreg $chan,$left($nick($chan,$nick).pnick,1),$chr(240))
haltdef
echo -tm $chan $+(<,$chr(2),$chr(3),$replace(%n,@,4@,%,7%,+,09+,$chr(240),10),$nick,$chr(2),$chr(3),>) $1-
}
}
on ^*:TEXT:*:?: {
haltdef
echo -tm $nick $+(<,$chr(2),$chr(3),10,$nick,$chr(2),$chr(3),>) $1-
}
on ^*:RAWMODE:#: {
haltdef
echo $chan $+($chr(3),3,$timestamp) 03* $nick sets mode: $1-
}
on ^*:JOIN:#: {
if ($nick != $me) {
haltdef
echo $chan $+($chr(3),3,$timestamp) 03* $nick ( $+ $address $+ ) has joined $chan
}
else {
haltdef
echo $chan $+($chr(3),2,$timestamp) 03* Now talking in $chan
}
}
on ^*:PART:#: {
if ($nick != $me) {
haltdef
echo $chan $+($chr(3),3,$timestamp) 03* $nick ( $+ $address $+ ) has parted $chan $iif($1 != $null,$+($chr(40),$1-,$chr(41)),$chr(32))
}
if ($nick == $me) {
echo $chan $+($chr(3),3,$timestamp) 03* You have parted $chan
}
}
on ^*:KICK:#: {
if ($knick != $me) {
haltdef
echo $chan $+($chr(3),3,$timestamp) 03* $knick was kicked by $nick ( $+ $1- $+ )
}
if ($knick == $me) {
haltdef
echo -m $chan $+($chr(3),3,$timestamp) 03* You were kicked from $chan by $nick ( $+ $1- $+ )
}
}
on ^*:NICK: {
haltdef
var %i 1
while ($comchan($newnick,%i)) {
echo $comchan($newnick,%i) $+($chr(3),3,$timestamp) 03* $nick is now known as $newnick $+
inc %i
}
}
on ^*:QUIT: {
haltdef
var %i $comchan($nick,0)
while (%i) {
echo $comchan($nick,%i) $+(2,$timestamp) 12* $nick ( $+ $address $+ ) has quit IRC ( $+ $1- $+ )
dec %i
}
}
on ^*:NOTICE:*:?: {
haltdef
echo -as $+($chr(3),5,$timestamp) $+(05,-,$chr(2),$nick,$chr(2),-) $+(00,$1-)
}
on ^*:NOTICE:*:#: {
haltdef
echo -as $+($chr(3),5,$timestamp) $+(05,-,$chr(2),$nick,$chr(2),:,$chan,-) $+(00,$1-)
}
on ^*:SNOTICE:*: {
haltdef
echo -a $+($chr(3),5,$timestamp) $+(05,-,$chr(2),$nick,$chr(2),-) $+(00,$1-)
}
on ^*:ACTION:*:#: {
if ($nick ison $chan) {
haltdef
var %a = $iif($nick !isreg $chan,$left($nick($chan,$nick).pnick,1),$chr(240))
echo -m $chan $+($chr(3),6,$timestamp) 06* $replace(%a,$chr(240),$chr(32)) $+ $nick $1-
}
else {
haltdef
echo -m $chan $+($chr(3),6,$timestamp) 06* $nick $1-
}
}
on ^*:ACTION:*:?: {
haltdef
echo -m $nick $+($chr(3),6,$timestamp) 06* $nick $1-
}
on *:INPUT:#: {
if ($left($1,1) != /) {
var %n = $iif($me !isreg $chan,$left($nick($chan,$me).pnick,1),$chr(240))
haltdef
echo -t $chan $+(<,$chr(2),$chr(3),$replace(%n,@,4@,%,7%,+,09+,$chr(240),10),$nick,$chr(2),$chr(3),>) $1-
.msg $chan $1-
}
if ($1 == /notice) {
haltdef
.notice $2 $3-
echo -sa $+(2,$timestamp) 05-> $+(·´¯`·.¸¸.-> ,$2,-) $3-
}
if ($1 == /me) {
haltdef
var %a = $iif($nick !isreg $chan,$left($nick($chan,$me).pnick,1),$chr(240))
echo -m $chan $+($chr(3),6,$timestamp) 06* $replace(%a,$chr(240),$chr(32)) $+ $me $2-
.Describe # $2-
}
if ($1 == /describe) {
haltdef
var %a = $iif($nick !isreg $chan,$left($nick($chan,$me).pnick,1),$chr(240))
echo -m $2 $+($chr(3),6,$timestamp) 06* $replace(%a,$chr(240),$chr(32)) $+ $me $3-
.describe $2 $3-
}
}
on *:INPUT:?: {
if ($left($1,1) != /) {
haltdef
echo -t $+(<,$chr(2),$chr(3),10,$me,$chr(3),$chr(2),>) $1-
.msg $active $1-
}
if ($1 == /notice) {
haltdef
.notice $2 $3-
echo -sa $+(05,$timestamp) ->05 $+(-,$2,-) ·´¯`·.¸¸.-> $3- /notice
}
if ($1 == /me) {
haltdef
var %a = $iif($nick !isreg $chan,$left($nick($chan,$me).pnick,1),$chr(240))
echo -m $chan $+($chr(3),6,$timestamp) 06* $replace(%a,$chr(240),$chr(32)) $+ $me $2-
.describe $active $2-
}
if ($1 == /describe) {
haltdef
var %a = $iif($nick !isreg $chan,$left($nick($chan,$me).pnick,1),$chr(240))
echo -m $2 $+($chr(3),6,$timestamp) 06* $replace(%a,$chr(240),$chr(32)) $+ $me $3-
.describe $2 $3-
}
}
Raw *:*: {
if ($numeric == 332) {
haltdef
echo -m $2 $+($chr(3),3,$timestamp) 03 *Topic is ' $+ $3- $+ '
}
if ($numeric == 333) {
haltdef
echo -m $2 $+($chr(3),3,$timestamp) 03* Topic set by $3 on $asctime($4-)
}
}
on ^*:TOPIC:#: {
haltdef
echo -m $chan $+($chr(3),3,$timestamp) 03* $nick changes topic to $+(',$1-,')
}
alias F5 {
set %say $$?="What would you like to /me?""
msg $active /me %say
}
alias F6 {
set %say $$?="What would you like to /notice?""
msg $active /me %say
}
