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 (hh:nn:ss)
  .font -z 11 Tahoma 
  .color listbox 0
  .color editbox 0
  .color background 0
  .color editbox text 1
  .color listbox text 1
  .color inactive 1
  .color treebar text 1
  .color listbox text 1
  .color treebar 1
  .color normal text 1
  .color own text 1
  .color quit text 1
  .color info text 1
  .color notify text 1
  .color notice text 1
  .color whois text 1
  echo -st Welkom bij mIRC $version
  echo -st info:
  echo -st jouw thema: SwiftIrc
  echo -st Dit thema is gemaakt door: Hugo
  echo -st Als je vragen hebt: /msg hugo je vraag
  echo -st -
  echo -st Je IP is: $IP - Je computer 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 $+(1<,$replace($nickstyle(%nick),~,~,&,&,4@,@,8%,%,12+,+),1>1) $1- $+ 
    }
    else {
      haltdef
      var %nick $nick
      .msg $nick $1-
      echo -tm $nick $+(1<,$replace($nickstyle(%nick),1~1,1~1,&,1&1,4@4,4@4,8%8,8%8,+,12+12),1>1) $1- $+ 
    }
  }
}
ON ^*:TEXT:*:*:{
  if ($chan) {
    haltdef
    var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick)
    echo -tm $chan $+(1<,$replace($nickstyle(%nick),11~11,11~11,&,1&1,4@4,4@4,8%8,8%8,12+12,12+12),1>1) $1- $+ 
  }
  else {
    haltdef
    var %nick $nick
    echo -tm $nick $+(1<,$replace($nickstyle(%nick),11~11,11~11,&,1&1,4@4,4@4,8%8,8%8,12+12,12+12),1>1) $1- $+ 
  }
}
ON ^*:NOTICE:*:*:{
  if ($chan) {
    haltdef
    var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick)
    echo -tm $chan $+(12-,$nickstyle(%nick),:,$nickstyle($chan),] 12 $1- $+ 
    if ($active != Status Window) echo -tsm $+(12-,$nickstyle(%nick),:,$nickstyle($chan),12]12) $1- $+ 
  }
  else {
    haltdef
    var %nick $nick
    if ($active != Status Window) echo -tms $+(5-5,%nick,5-5) $1- $+ 
    echo -atm $+(5-5,%nick,5-5) $1- $+ 
  }
}
ON ^*:ACTION:*:*:{
  if ($chan) {
    haltdef
    var %nick $nick
    echo -tm $chan 14*13 %nick 13 $+ $1- 
  }
  else {
    haltdef
    var %nick $nick
    echo -tm $nick 14*13 %nick 13 $+ $1- 
  }
}
ON ^*:JOIN:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has joined $+(3,$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)))
    }
  }
}
ON ^*:PART:#:{
  haltdef
  echo -tm $chan $+(12,$nickstyle($nick),12) has parted $+(12,$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)))
    }
  }
}
ON ^*:QUIT:{
  haltdef
  var %i 1
  while ($comchan($nick,%i)) {
    echo -tm $comchan($nick,%i) $+(12,$nickstyle($nick),12) has quit $nickstyle($network) $+(12[,12,$1-,12]))
    inc %i
  }
}
ON ^*:NICK:{
  haltdef
  var %i 1
  while ($comchan($newnick,%i)) {
    echo -tmc $chan $comchan($newnick,%i) $+(3,$nickstyle($nick),3) is now known as $+(3,$nickstyle($newnick))
    inc %i
  }
}
ON ^*:TOPIC:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) changed topic to: $+(03',$1-,03')
}
ON ^*:KICK:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has kicked3 $nickstyle($knick) $+(3(,3,$1-,3)))
  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)))
    }
  }
}
ON ^*:MODE:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) sets mode $+($iif($len($1) > 1,s),:3) $1-
}
ON ^*:BAN:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has banned3 $banmask
}
ON ^*:UNBAN:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has unbanned3 $banmask
}
ON ^*:INVITE:#:{
  haltdef
  if ($active != Status Window) echo -tsm $+(5,$nickstyle($nick),5) has invited you to join5 $nickstyle($chan)
  echo -tam $+(5,$nickstyle($nick),5) has invited you to join5 $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),3) 3has $replace(%b,+,given,-,revoked) $&
          $nickstyle($($+($,%c),2)) $+ $iif(- isin %b,3's) 3admin 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 $+(3,$nickstyle($nick),3) 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),3) has given $+(3,$nickstyle($opnick),3) owner
}
ON ^*:DEOWNER:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has removed $+(3,$nickstyle($opnick),3) owner status
}
ON ^*:OP:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has given $+(3,$nickstyle($opnick),3) op status
}
ON ^*:DEOP:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has removed $+(3,$nickstyle($opnick),3) op status
}
ON ^*:HELP:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has given $+(3,$nickstyle($hnick),3) halfop status
}
ON ^*:DEHELP:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has removed $+(3,$nickstyle($hnick),3) halfop status
}
ON ^*:VOICE:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has given $+(3,$nickstyle($vnick),3) voice status
}
ON ^*:DEVOICE:#:{
  haltdef
  echo -tm $chan $+(3,$nickstyle($nick),3) has removed $+(3,$nickstyle($vnick),3) voice status
}
Raw *:*:{
  if ($numeric == 332) {
    haltdef
    echo -tm $2 3Topic is 3[ $+ $+('03,$3-,14') $+ 7]
  }
  elseif ($numeric == 333) { 
    haltdef
    echo -tm $2 3Set by3 $3 3on $asctime($4-)
  }
  elseif ($numeric == 311) {
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $nickstyle($2) is $+($3,@,$4) * $+(3,$6-)
  }
  elseif ($numeric == 378) { 
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $nickstyle($2) is connecting from3 $4-
  }
  elseif ($numeric == 319) { 
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $nickstyle($2) is on  $&
      $replace($3-,@,3@3,@,3@3,@,3@3,@,3@3,%,3%3,+,3+3) 
  }
  elseif ($numeric == 312) { 
    haltdef
    echo -asm $+(3[3,$numeric,3]3)3 $nickstyle($2,3) 3is connected to3 $3 * 3 $+ $4-
  }
  elseif ($numeric == 301) {
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $nickstyle($2) is away:3 $3-
  }
  elseif ($numeric == 307) {
    haltdef
    echo -asm $+ (3,$numeric,3]3) $nickstyle($2) has identified for this nick
  }
  elseif ($numeric == 671) {
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $nickstyle($2) is using a Secure ion
  }
  elseif ($numeric == 317) {
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $nickstyle($2) has been idle $duration($3) $+ , signed on at $asctime($4)
  }
  elseif ($numeric == 318) { 
    haltdef
    echo -asm $+(3[3,$numeric,3]3) End of /WHOIS list.
  }
  elseif ($numeric == 313) { 
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $nickstyle($2) is a Server Administrator
  }
  elseif ($numeric == 313) { 
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $nickstyle($2) is an IRC Operator
  }
  elseif ($numeric == 310) { 
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $nickstyle($2) is a Halfop
  }
  elseif ($numeric == 313) { 
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $nickstyle($2) is a Network Administrator
  }
  elseif ($numeric == 320) {
    haltdef
    echo -asm $+(3[3,$numeric,10]14) $nickstyle($2) $3-
  }
  elseif ($numeric == 335) { 
    haltdef
    echo -asm $+(3[3,$numeric,3]3) $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- $+ 
    }
  }
}