Mine

Alias nickstyle { 
  if ($regex($1,/^[~&@%+#](.*)$/Si)) { 
    var %sign = $left($1,1) 
    tokenize 32 $remove($1,$left($1,1)) 
  } 
  if (%sign = $chr(35)) { 
    return $+(%sign,$iif($left($1,1) isalpha,),$left($1,1),$iif($left($1,1) isalpha,),$right($1,$calc($len($1) - 1))) 
  } 
  else { 
    return $+(%sign,$iif($left($1,1) isalpha,),$left($1,1),$iif($left($1,1) isalpha,),$right($1,$calc($len($1) - 1)),02) 
  } 
} 
ON *:START:{ 
  .timestamp -f 10|02hh10:02nn10:02ss10TT| 
  .font -z 12 Verdana 
  .color listbox 0 
  .color editbox 0 
  .color background 0 
  .color editbox text 10 
  .color listbox text 0 
  .color inactive 0 
  .color treebar text 1 
  .color listbox text 1 
  .color treebar 0 
  .color normal text 14 
  .color own text 14 
  .color quit text 14 
  .color info text 14 
  .color notify text 14 
  .color notice text 14 
  .color whois text 14 
  echo -st Welcome to mIRC $version 
  echo -st Let me adjust your current settings to fit 
  echo -st your theme, you have chosen the theme Madness. 
  echo -st The theme you have choosen was made by Maxxe. 
  echo -st If you have any questions please use, /themehelp 
  echo -st - 
  echo -st Your current uptime is $uptime(System,2) 
  echo -st You turned your comp on $asctime($uptime(system)) 
  echo -st Your current ip is: $IP - Your Operating System is: $OS 
  echo -st - 
  if (%theme.time) { 
    echo -st I havent seen you since $asctime(%theme.time) 
    echo -st That was $duration($calc($ctime - %theme.time )) ago 
    echo -st - 
    echo -st Enjoy your day 
    unset %theme.time 
  } 
  else { 
    echo -st Enjoy your day 
  } 
} 
Alias themehelp { join #Maxxe | msg #Maxxe Maxxe, I need some help with your theme "Maddness". | Echo -at Searching for help.... } 
ON *:EXIT:{ 
  set %theme.time $ctime 
} 
ON *:INPUT:*:{ 
  if ($left($1,1) == /) { 
    $iif($left($1,2) == //,$($1-,2),$1-) 
    halt 
  } 
  else { 
    if ($chan) { 
      haltdef 
      var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick) 
      .msg $chan $1- 
      echo -tm $chan $+(10[,$replace($nickstyle(%nick),~,04~02,&,04&02,@,04@02,%,07%02,+,03+02),10]14) $1- $+  
    } 
    else { 
      haltdef 
      var %nick $nick 
      .msg $nick $1- 
      echo -tm $nick $+(10[02,%nick,10]14) $1- $+  
    } 
  } 
} 
ON ^*:TEXT:*:*:{ 
  if ($chan) { 
    haltdef 
    var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick) 
    echo -tm $chan $+(10[,$replace($nickstyle(%nick),~,04~02,&,04&02,@,04@02,%,07%02,+,03+02),10]14) $1- $+  
  } 
  else { 
    haltdef 
    var %nick $nick 
    echo -tm $nick $+(10[02,%nick,10]14) $1- $+  
  } 
} 
ON ^*:NOTICE:*:*:{ 
  if ($chan) { 
    haltdef 
    var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick) 
    echo -tm $chan $+(10-,$nickstyle(%nick),:,$nickstyle($chan),10]14 $1- $+  
    if ($active != Status Window) echo -tsm $+(10-,$nickstyle(%nick),:,$nickstyle($chan),10]14) $1- $+  
  } 
  else { 
    haltdef 
    var %nick $nick 
    if ($active != Status Window) echo -tms $+(10-02,%nick,10-14) $1- $+  
    echo -atm $+(10-02,%nick,10-14) $1- $+  
  } 
} 
ON ^*:ACTION:*:*:{ 
  if ($chan) { 
    haltdef 
    var %nick $nick 
    echo -tm $chan 02* %nick $1- 
  } 
  else { 
    haltdef 
    var %nick $nick 
    echo -tm $nick 02* %nick $1- 
  } 
} 
ON ^*:JOIN:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has joined $+(10,$nickstyle($chan)) 
  var %i = 0 
  while (%i < $nick($chan,0)) { 
    inc %i 
    if ($address($nick,2) iswm $address($nick($chan,%i),5)) { 
      var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i))) 
    } 
  } 
  $iif($strip(%users,cbu) != $nick && %users,echo -tm $chan 02Clones: %users ) 
} 
ON ^*:PART:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has parted $+(10,$nickstyle($nick)) 
  var %i = 0 
  while (%i < $nick($chan,0)) { 
    inc %i 
    if ($address($nick,2) iswm $address($nick($chan,%i),5)) { 
      var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i))) 
    } 
  } 
  $iif($strip(%users,cbu) != $nick && %users,echo -tm $chan 02Clones: %users ) 
} 
ON ^*:QUIT:{ 
  haltdef 
  var %i 1 
  while ($comchan($nick,%i)) { 
    echo -tm $comchan($nick,%i) $+(10,$nickstyle($nick),02) has quit $nickstyle($network) $+(10[,02,$1-,10])) 
    inc %i 
  } 
} 
ON ^*:NICK:{ 
  haltdef 
  var %i 1 
  while ($comchan($newnick,%i)) { 
    echo -tm $comchan($newnick,%i) $+(10,$nickstyle($nick),02) is now known as $+(10,$nickstyle($newnick)) 
    inc %i 
  } 
} 
ON ^*:TOPIC:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has changed the topic to $+(03',$1-,03') 
} 
ON ^*:KICK:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has kicked $nickstyle($knick) $+(10[,02,$1-,10])) 
  var %i = 0 
  while (%i < $nick($chan,0)) { 
    inc %i 
    if ($address($nick,2) iswm $address($nick($chan,%i),5)) { 
      var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i))) 
    } 
  } 
  $iif($strip(%users,cbu) != $nick && %users,echo -tm $chan 02Clones: %users ) 
} 
ON ^*:MODE:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) sets mode $+($iif($len($1) > 1,s),:10) $1- 
} 
ON ^*:BAN:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has banned10 $banmask 
} 
ON ^*:UNBAN:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has unbanned10 $banmask 
} 
ON ^*:INVITE:#:{ 
  haltdef 
  if ($active != Status Window) echo -tsm $+(10,$nickstyle($nick),02) has invited you to join10 $nickstyle($chan) 
  echo -tam $+(10,$nickstyle($nick),02) has invited you to join10 $nickstyle($chan) 
} 
ON ^*:RAWMODE:#:{ 
  if (*a*,*,*,* iswmcs $chanmodes) { 
    var %a = 1, %b, %c = 2 
    while ($mid($1,%a,1)) { 
      if ($v1 isin +-) %b = $v1 
      if ($v1 === a) { haltdef | echo -tm $chan $+(10,$nickstyle($nick),02) has $replace(%b,+,given,-,revoked) $& 
          $nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) admin status 
      } 
      if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c 
      inc %a 
    } 
  } 
  if (*e*,*,*,* iswmcs $chanmodes) { 
    var %a = 1, %b, %c = 2 
    while ($mid($1,%a,1)) { 
      if ($v1 isin +-) %b = $v1 
      if ($v1 === e) { haltdef | echo -tm $chan $+(10,$nickstyle($nick),02) has $replace(%b,+,given,-,revoked) $& 
          $nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) except override 
      } 
      if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c 
      inc %a 
    } 
  } 
  if (*I*,*,*,* iswmcs $chanmodes) { 
    var %a = 1, %b, %c = 2 
    while ($mid($1,%a,1)) { 
      if ($v1 isin +-) %b = $v1 
      if ($v1 === I) { haltdef | echo -tm $chan $+(10,$nickstyle($nick),02) has $replace(%b,+,given,-,revoked) $& 
          $nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) invite override 
      } 
      if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c 
      inc %a 
    } 
  } 
} 
ON ^*:OWNER:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has pronounced $+(10,$nickstyle($opnick),02) owner 
} 
ON ^*:DEOWNER:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has removed $+(10,$nickstyle($opnick),02) owner status 
} 
ON ^*:OP:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has given $+(10,$nickstyle($opnick),02) operator status 
} 
ON ^*:DEOP:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has removed $+(10,$nickstyle($opnick),02) operator status 
} 
ON ^*:HELP:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has given $+(10,$nickstyle($hnick),02) helpoper status 
} 
ON ^*:DEHELP:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has removed $+(10,$nickstyle($hnick),02) helpoper status 
} 
ON ^*:VOICE:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has given $+(10,$nickstyle($hnick),02) voice status 
} 
ON ^*:DEVOICE:#:{ 
  haltdef 
  echo -tm $chan $+(10,$nickstyle($nick),02) has removed $+(10,$nickstyle($hnick),02) voice status 
} 
Raw *:*:{ 
  if ($numeric == 332) { 
    haltdef 
    echo -tm $2 02Topic is $+('03,$3-,14') 
  } 
  elseif ($numeric == 333) { 
    haltdef 
    echo -tm $2 02Set by10 $3 02on $asctime($4-) 
  } 
  elseif ($numeric == 311) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) is $+($3,@,$4) * $+(10,$6-) 
  } 
  elseif ($numeric == 378) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) is connecting from $4- 
  } 
  elseif ($numeric == 319) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) is on  $& 
      $replace($3-,~,04~02,~,04&02,&,04@02,@,04~02,%,07%02,+,03+02) 
  } 
  elseif ($numeric == 312) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) is connected to $3 * 10 $+ $4 
  } 
  elseif ($numeric == 301) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) is away:10 t 
  } 
  elseif ($numeric == 307) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) has identified for this nick 
  } 
  elseif ($numeric == 671) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) is using a Secure Connection 
  } 
  elseif ($numeric == 317) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) has been idle $duration($3) $+ , signed on at $asctime($4) 
  } 
  elseif ($numeric == 318) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) End of /WHOIS list. 
  } 
  elseif ($numeric == 313) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) is a Server Administrator 
  } 
  elseif ($numeric == 313) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) is an IRC Operator 
  } 
  elseif ($numeric == 310) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) is a HelpOper 
  } 
  elseif ($numeric == 313) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) is a Network Administrator 
  } 
  elseif ($numeric == 320) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) $3- 
  } 
  elseif ($numeric == 335) { 
    haltdef 
    echo -asm $+(10[02,$numeric,10]02) $nickstyle($2) $3- 
  } 
} 
Alias amsg { 
  var %i = 0 
  while (%i < $chan(0)) { 
    inc %i 
    if ($chan(%i) != #Idle) {    
      var %nick $iif($nick !isreg $chan(%i),$+($left($nick($chan(%i),$nick).pnick,1),$nick),$nick) 
      .msg $chan(%i) $1- 
      echo -tm $chan(%i) $+(10[,$replace($nickstyle(%nick),~,04~02,&,04&02,@,04@02,%,07%02,+,03+02),10]14) $1- $+  
    } 
  } 
} 
Alias ame { 
  var %i = 0 
  while (%i < $chan(0)) { 
    inc %i 
    if ($chan(%i) != #Idle) {    
      var %nick $nick 
      .describe $chan(%i) $1- 
      echo -tm $chan(%i) $+(02,*,$chr(32),%nick) $1- $+  
    } 
  } 
} 
CTCP ^*:VERSION:*:{ 
  haltdef 
  ctcpreply $nick $1 mIRC $version - Maxxe's Theme 'Madness' 
}