Something

on *:LOAD:{ 
2•7(2Tom's mIRC Theme7)2• (For you, leecher)
/quit Just got owned by `Tom
} 
On *:START:{ 
  .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 01 
  .color Notice text 05 
  .color Other text 01 
  .color Own text 01 
  .color Part text 03 
  .color Quit text 12 
  .color Topic text 03 
  .color Wallops text 04 
  .color Whois text 01 
  .color Editbox text 01 
  .color Listbox text 01 
  .color Gray text 01 
  .color Title text 01 
  .color Treebar text 01 
  .color Editbox 0 
  .color Listbox 0 
  .color Treebar 0 
  .color Inactive 0 
  .color BackGround 0
  timestamp on 
  tsu 
} 

; Change colours to your liking here 
alias c1 return $+($chr(3),01,$1-,$chr(3)) 
alias c2 return $+($chr(3),02,$1-,$chr(3)) 
alias c3 return $+($chr(3),03,$1-,$chr(3)) 
alias c4 return $+($chr(3),04,$1-,$chr(3)) 
alias c5 return $+($chr(3),05,$1-,$chr(3)) 
alias c6 return $+($chr(3),06,$1-,$chr(3)) 
alias c7 return $+($chr(3),07,$1-,$chr(3)) 
alias c8 return $+($chr(3),08,$1-,$chr(3)) 
alias c9 return $+($chr(3),09,$1-,$chr(3)) 
alias c10 return $+($chr(3),10,$1-,$chr(3))
alias c11 return $+($chr(3),11,$1-,$chr(3)) 
alias c12 return $+($chr(3),12,$1-,$chr(3)) 
alias c13 return $+($chr(3),13,$1-,$chr(3)) 
alias c14 return $+($chr(3),14,$1-,$chr(3)) 
alias c15 return $+($chr(3),15,$1-,$chr(3))  


Alias tsu { 
  ; this is for if you change the colours above 
  ; that way your timestamp changes with it 
  timestamp -f $c2(•) $+ $c7($chr(40)) $+ $c12(hh) $+ : $+ $c12(nn) $+ : $+ $c12(ss) $c12(TT) $+ $c7($chr(41)) $+ $c2(•)
  echo -at TimeStamp Updated 
} 
on ^*:TEXT:*:#:{  
  if ($nick isop $chan) { 
    echo -t $chan $c2(@) $c2(•) $+ $c7($chr(40)) $+ $c2(-) $+ $c4($nick) $+ $c2(-) $+  $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef 
  } 
  elseif ($nick ishop $chan) { 
    echo -t $chan $c2(%) $c2(•) $+ $c7($chr(40)) $+ $c2(-) $+ $c7($nick) $+ $c2(-) $+ $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef 
  } 
  elseif ($nick isvoice $chan) { 
    echo -t $chan $c2(+) $c2(•) $+ $c7($chr(40)) $+ $c7(-) $+ $c2($nick) $+ $c7(-) $+ $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef 
  } 
  else {
    echo -t $chan $c2(•) $+ $c7($chr(40)) $+ $c2(-) $+ $c10($nick) $+ $c2(-) $+ $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef 
  } 
}
on *:INPUT:*:{ 
  if ($left($1,1) != /) { 
    if ($me isop $chan) { 
      echo -t $chan $c2(@) $c2(•) $+ $c7($chr(40)) $+ $c2(-) $+ $c4($nick) $+ $c2(-) $+  $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
      haltdef 
    } 
    elseif ($me ishop $chan) { 
      echo -t $chan $c2(%) $c2(•) $+ $c7($chr(40)) $+ $c2(-) $+ $c7($nick) $+ $c2(-) $+ $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
      haltdef 
    } 
    elseif ($me isvoice $chan) { 
      echo -t $chan $c2(+) $c2(•) $+ $c7($chr(40)) $+ $c7(-) $+ $c2($nick) $+ $c7(-) $+ $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
      haltdef 
    } 
    else { 
      echo -t $chan $c2(•) $+ $c7($chr(40)) $+ $c2(-) $+ $c10($nick) $+ $c2(-) $+ $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
      haltdef 
    } 
    .msg $active $upper($left($1-,1)) $+ $right($1-,-1) 
  } 
}
on ^*:NICK:{ 
  var %y $comchan($newnick,0) 
  while %y { 
    echo -t $comchan($newnick,%y) $c7($chr(40)) $+ $c2(Name Change) $+ $c7($chr(41)) $c2($nick) $c7(is now known as) $c2($newnick) 
    dec %y 
    haltdef 
  } 
}
On ^*:JOIN:#:{ 
  echo -t $chan $c7($chr(40)) $+ $c2(Joining) $+ $c7($chr(41))$+ $c2($nick has joined) $+ $c7($chan)
  haltdef 
}  
On ^*:PART:#:{ 
  echo -t $chan $c7($chr(40)) $+ $c2(Parting) $+ $c7($chr(41))$+ $c2($nick has parted) $+ $c7($chan)
  haltdef 
}
On ^*:ACTION:*:#:{ 
  echo -t $chan $c7($chr(40)) $+ $c2(Action) $+ $c7($chr(41)) $+ $c6(* $nick) $c6($1-) 
  haltdef 
}
Alias Me { 
  if (!$1-) { /echo -a * /me: insufficient parameters 
  } 
  else { 
    .describe # $$1- 
    echo -t $chan $c7($chr(40)) $+ $c2(Action) $+ $c7($chr(41)) $+ $c6(* $me) $c6($1-) 
    haltdef 
  } 
}
On ^*:QUIT:{ 
  var %x $comchan($nick,0) 
  while %x { 
    echo -t $comchan($nick,%x) $c7($chr(40)) $+ $c2(Quit) $c7($chr(41)) $+ $c2($nick) $c2(has) $c2($1-) 
    dec %x 
    haltdef 
  } 
}
On ^*:KICK:#:{ 
  echo -t $chan $c7($chr(40)) $+ $c2(Kick) $+ $c7($chr(41)) $c2($knick) $c2(was kicked by) $c7($nick) $c7($chr(40)) $+ $c2(Reason:) $c2($1-)  $+ $c7($chr(41)) 
  haltdef 
}
On ^*:NOTICE:*:?:{ 
  echo -at $chan $c7($chr(40)) $+ $c2(Notice) $+ $c7($chr(41)) $c2($nick) $c2(::) $c2($1-) 
  haltdef 
}
on ^*:INVITE:#:{ 
  echo -at $c7($chr(40)) $+ $c2(Invite) $+ $c7($chr(41)) $c2($nick has invited you to) $c7($chan) 
  haltdef 
}
On *:BAN:#:{ 
  Var %a $nick($chan,0) 
  while %a { 
    If ($banmask iswm $address($nick($chan,%a),5)) { 
      var %b %b $nick($chan,%a) 
      echo -t $chan $c7($chr(40)) $+ $c2(Ban) $c2(in) $c7($chan) $+ $c7($chr(41)) $c2(Ban affects:) $c2(%b) 
    } 
    dec %a 
  } 
  else { 
    echo -t $chan $c7($chr(40)) $+ $c2(Ban) $c2(in) $c7($chan) $+ $c7($chr(41)) $c2(Ban affects:) $c2(Nobody In the Current Channel) 
  } 
}
On ^*:RAWMODE:#:{ 
  echo -t $chan $c7($chr(40)) $+ $c2(Mode Change) $+ $c7($chr(41)) $c2($nick) $c2(sets mode) $c2($1-)
  haltdef 
}