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
}