J.T

alias theme {
  echo 14 -a 7•›› 7Loading theme.. 7Please wait...
  var %t $ctime
  font -dz -8 tahoma
  .timestamp -f 15«07hh15: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
on ^*:text:*:#: {
  echo -t $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 $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•›› 7( $+ $replace($remove($nick($chan,$nick).pnick,$nick),~,4~,&,4&,@,4@,%,7%,+,12+) $+ 15 $+ $nick $+ 7) 14sets mode: 7(6 $+ $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:#: {
  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 %a = 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
}