Someone

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)),14)
  }
}
ON *:START:{
  .timestamp -f 4(14hh:nn:ss TT4)
  .font -z 11 Verdana 
  .color listbox 1
  .color editbox 1
  .color background 1
  .color editbox text 15
  .color listbox text 3
  .color inactive 1
  .color treebar text 0
  .color listbox text 15
  .color treebar 1
  .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 Jdawg140.
  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 #Terror | msg #Terror James, 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~14,&,04&14,@,04@14,%,07%14,+,03+14),10]14) $1- $+ 
    }
    else {
      haltdef
      var %nick $nick
      .msg $nick $1-
      echo -tm $nick $+(10[14,%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~14,&,04&14,@,04@14,%,07%14,+,03+14),10]14) $1- $+ 
  }
  else {
    haltdef
    var %nick $nick
    echo -tm $nick $+(10[14,%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-06,%nick,10-14) $1- $+ 
    echo -atm $+(10-06,%nick,10-14) $1- $+ 
  }
}
ON ^*:ACTION:*:*:{
  if ($chan) {
    haltdef
    var %nick $nick
    echo -tm $chan 14*3 %nick 3 $+ $1- 4(Action)
  }
  else {
    haltdef
    var %nick $nick
    echo -tm $nick 14*3 %nick 14 $+ $1- 4(Action)
  }
}
ON ^*:JOIN:#:{
  haltdef
  echo -tm $chan $+(10,$nickstyle($nick),10) 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 14Clones: %users ) 
}
ON ^*:PART:#:{
  haltdef
  echo -tm $chan $+(10,$nickstyle($nick),118) has parted $+(10,$nickstyle($chan)) ( $1- )
  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 14Clones: %users ) 
}
ON ^*:QUIT:{
  haltdef
  var %i 1
  while ($comchan($nick,%i)) {
    echo -tm $comchan($nick,%i) $+(3,$nickstyle($nick),3) has quit $nickstyle($network) $+(3[,14,$1-,3]))
    inc %i
  }
}
ON ^*:NICK:{
  haltdef
  var %i 1
  while ($comchan($newnick,%i)) {
    echo -tmc $chan 4[NICK] $comchan($newnick,%i) $+(4,$nickstyle($nick),4) is now known as $+(4,$nickstyle($newnick))
    inc %i
  }
}
ON ^*:TOPIC:#:{
  haltdef
  echo -tm $chan 4[TOPIC] $+(10,$nickstyle($nick),14) changed topic to: $+(03',$1-,03')
}
ON ^*:KICK:#:{
  haltdef
  echo -ts $chan 4[Kick] $+(5,$nickstyle($nick),5) has kicked5 $nickstyle($knick) $+(10[,14,$1-,10]))
  echo -tm $chan 4[Kick] $+(5,$nickstyle($nick),5) has kicked5 $nickstyle($knick) $+(10[,14,$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 14Clones: %users ) 
}
ON ^*:MODE:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) sets mode $+($iif($len($1) > 1,s),:10) $1-
}
ON ^*:BAN:#:{
  haltdef
  echo -tm $chan 4[Ban] $+(3,$nickstyle($nick),3) has banned4 $banmask
}
ON ^*:UNBAN:#:{
  haltdef
  echo -tm $chan 3[Unban] $+(10,$nickstyle($nick),3) has unbanned4 $banmask
}
ON ^*:INVITE:#:{
  haltdef
  if ($active != Status Window) echo -tsm $+(10,$nickstyle($nick),14) has invited you to join10 $nickstyle($chan)
  echo -tam $+(10,$nickstyle($nick),14) 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 $+(3,$nickstyle($nick),8) 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),14) 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),14) 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 $+(3,$nickstyle($nick),7) has pronounced $+(13,$nickstyle($opnick),4) owner
}
ON ^*:DEOWNER:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),7) has removed $+(3,$nickstyle($opnick),4) owner status
}
ON ^*:OP:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),7) has given $+(3,$nickstyle($opnick),4) op status
}
ON ^*:DEOP:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),7) has removed $+(3,$nickstyle($opnick),4) op status
}
ON ^*:HELP:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),7) has given $+(3,$nickstyle($hnick),4) halfop status
}
ON ^*:DEHELP:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),7) has removed $+(3,$nickstyle($hnick),4) halfop status
}
ON ^*:VOICE:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),7) has given $+(3,$nickstyle($vnick),4) voice status
}
ON ^*:DEVOICE:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),7) has removed $+(3,$nickstyle($vnick),4) voice status
}
Raw *:*:{
  if ($numeric == 332) {
    haltdef
    echo -tm $2 4[Raw 332] 14Topic is 7[ $+ $+('03,$3-,14') $+ 7]
  }
  elseif ($numeric == 333) { 
    haltdef
    echo -tm $2 4[Raw 333] 14Set by10 $3 14on $asctime($4-)
  }
  elseif ($numeric == 311) {
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) is $+($3,@,$4) * $+(10,$6-)
  }
  elseif ($numeric == 378) { 
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) is connecting from14 $4-
  }
  elseif ($numeric == 319) { 
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) is on  $&
      $replace($3-,@,04@14,@,04@14,@,04@14,@,04@14,%,07%14,+,03+14) 
  }
  elseif ($numeric == 312) { 
    haltdef
    echo -asm $+(10[14,$numeric,10]14)10 $nickstyle($2,10) 14is connected to10 $3 * 10 $+ $4-
  }
  elseif ($numeric == 301) {
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) is away:10 $3-
  }
  elseif ($numeric == 307) {
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) has identified for this nick
  }
  elseif ($numeric == 671) {
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) is using a Secure Connection
  }
  elseif ($numeric == 317) {
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) has been idle $duration($3) $+ , signed on at $asctime($4)
  }
  elseif ($numeric == 318) { 
    haltdef
    echo -asm $+(10[14,$numeric,10]14) End of /WHOIS list.
  }
  elseif ($numeric == 313) { 
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) is a Server Administrator
  }
  elseif ($numeric == 313) { 
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) is an IRC Operator
  }
  elseif ($numeric == 310) { 
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) is a HelpOper
  }
  elseif ($numeric == 313) { 
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) is a Network Administrator
  }
  elseif ($numeric == 320) {
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $nickstyle($2) $3-
  }
  elseif ($numeric == 335) { 
    haltdef
    echo -asm $+(10[14,$numeric,10]14) $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~14,&,04&14,@,04@14,%,07%14,+,03+14),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) $+(14,*,$chr(32),%nick) $1- $+ 
    }
  }
}