Mine

alias theme {
  enable #theme
  echo 14 -a 7 7Loading theme.. 7Please wait...
  var %t $ctime
  font -dz -8 tahoma
  .timestamp -f 1507hh15:07nn15:07ss15
  color action 6
  color ctcp 4
  color info 10
  color info2 9
  color invite 9
  color join 9
  color kick 9
  color mode 9
  color nick 9
  color normal 15
  color notice 7
  color notify 15
  color other 6
  color own 15
  color part 9
  color quit 10
  color topic 3
  color wallops 5
  color editbox 1
  color inactive 0
  color editbox text 15
  color treebar 1
  color listbox 1
  color listbox text 15
  color gray text 15
  color title text 6
  color treebar text 0
  color background 1
  var %i $cnick(0).mode
  while %i > 0 { cnick -r %i | .dec %i }
  .cnick * 04 ~&
  .cnick * 04 @
  .cnick * 07 %
  .cnick * 12 +
  .cnick -an * 10
  echo 14 -a 7 7mIRC 7Theme by 7J.T successfully loaded! 7Time taken: 7(14 $+ $duration($calc($ctime - %t)) $+ 7)
}
on *:start: theme
#theme on
on ^*:text:*:#: {
  echo -tm $chan $+(,$nick($chan,$nick).color,$chr(40),,$replace($remove($nick($chan,$nick).pnick,$nick),~,4~,&,4&,@,4@,%,7%,+,12+),$iif($nick($chan,$nick).color = 10,10-),15,$nick,,$nick($chan,$nick).color,$chr(41),,14:) $1-
  haltdef
}
on *:input:#: {
  if ($left($1,1) != /) {
    !.msg $chan $iif($left($1,1) == /,$eval($2-,2),$1-)
    echo -t $chan $+(,$nick($chan,$me).color,$chr(40),,$replace($remove($nick($chan,$me).pnick,$me),~,4~,&,4&,@,4@,%,7%,+,12+),$iif($nick($chan,$me).color = 10,10-),15,$me,,$nick($chan,$me).color,$chr(41),,14:) $1-
    haltdef
  }
}
on ^*:rawmode:#: {
  echo -t $chan 7 7Modes: 7( $+ $replace($remove($nick($chan,$nick).pnick,$nick),~,4~,&,4&,@,4@,%,7%,+,12+) $+ 15 $+ $nick $+ 7) 14sets: 7(3 $+ $1- $+ 7)
  haltdef
}
on ^*:nick: {
  var %i 1
  while $chan(%i) {
    if ($newnick ison $v1) { echo -t $chan(%i) 7. 7Nickname 7Change: 7(15 $+ $nick $+ 7) 14to 7(15 $+ $newnick $+ 7) }
    inc %i
  }
  haltdef
}
on ^*:part:#: {
  if $nick != $me { echo 14 -t $chan 7. 7Parts:15 $nick 7( $+ $address($nick,1) $+ 7) }
  haltdef
}
on ^*:join:#: {
  if $nick != $me { echo 14 -t $chan 7. 7Joins:15 $nick 7( $+ $address($nick,1) $+ 7) | haltdef }
}
on ^*:quit: {
  var %i = 1
  while $chan(%i) {
    if ($nick ison $v1) { echo 14 -t $chan(%i) 7. 7Quits:15 $nick 7( $+ $address($nick,1) $+ 7) 7(Quit: $iif($1 = Quit:,$2-,$1-) $+ 7) }
    inc %i
  }
  haltdef
}
on ^*:kick:#: {
  echo 14 -t $chan 7. 7Kicks: $+(,$nick($chan,$knick).color,$chr(40),,$replace($remove($nick($chan,$knick).pnick,$knick),~,4~,&,4&,@,4@,%,7%,+,12+),$iif($nick($chan,$knick).color = 10,10-),15,$knick,,$nick($chan,$knick).color,$chr(41),) 7( $+ $address($knick,1) $+ 7) $&
    15was kicked by $&
    $+(,$nick($chan,$nick).color,$chr(40),,$replace($remove($nick($chan,$nick).pnick,$nick),~,4~,&,4&,@,4@,%,7%,+,12+),$iif($nick($chan,$nick).color = 10,10-),15,$nick,,$nick($chan,$nick).color,$chr(41),) 7( $+ $address($nick,1) $+ 7) $iif($1-,7(15 $+ $1- $+ 7))
  haltdef
}
alias say {
  if ($active == Status) { halt }
  !.notice $active $1-
  echo -t $chan $+(,$nick($chan,$me).color,$chr(40),,$replace($remove($nick($chan,$me).pnick,$me),~,4~,&,4&,@,4@,%,7%,+,12+),$iif($nick($chan,$me).color = 10,10-),15,$me,,$nick($chan,$me).color,$chr(41),,14:) $1-
}
alias notice {
  !.notice $1 $2-
  echo -t $1 $+(,$nick($chan,$me).color,$chr(40),,$replace($remove($nick($chan,$me).pnick,$me),~,4~,&,4&,@,4@,%,7%,+,12+),$iif($nick($chan,$me).color = 10,10-),15,$me,,$nick($chan,$me).color,$chr(41),,14:) $2-
}
alias anotice {
  !.anotice $1-
  var %i 1
  while $chan(%i) {
    echo -t $v1 $+(,$nick($chan,$me).color,$chr(40),,$replace($remove($nick($chan,$me).pnick,$me),~,4~,&,4&,@,4@,%,7%,+,12+),$iif($nick($chan,$me).color = 10,10-),15,$me,,$nick($chan,$me).color,$chr(41),,14:) $2-
    inc %i
  }
}
#theme end