alias nickstyle { 
  if ($1 isop $2) {
    return $+($chr(3),4,$chr(2),@,$chr(2),$chr(3),10,$1,$chr(3))
  }
  if ($1 ishop $2) {
    return $+($chr(3),7,$chr(2),%,$chr(2),$chr(3),10,$1,$chr(3))
  }
  if ($1 isvoice $2) { 
    return $+($chr(3),12,$chr(2),+,$chr(2),$chr(3),10,$1,$chr(3))
  }
  if ($1 isreg $2) { 
    return $+($chr(3),6,$chr(2),¤,$chr(2),$chr(3),10,$1,$chr(3))
  } 
  if ($1 !ison $2) { 
    return $+($chr(3),7,$chr(2),›,$chr(2),$chr(3),10,$1,$chr(3))
  } 
  if ($1 == QUERY) { 
    return $+($chr(3),7,$chr(2),›,$chr(2),$chr(3),10,$1,$chr(3)) 
  } 
}




alias start {
  .timestamp on
  .timestamp -f 14(10hh4:10nn4:10ss tt14)
  .color Ctcp text 04 
  .color Highlight text 07 
  .color Info text 10
  .color Info2 text 10 
  .color Invite text 10 
  .color Join text 10 
  .color Kick text 10 
  .color Mode text 10 
  .color Nick text 10 
  .color Normal text 10 
  .color Notice text 07 
  .color Other text 10 
  .color Own text 10 
  .color Part text 10 
  .color Quit text 10
  .color Topic text 10 
  .color Wallops text 10 
  .color Whois text 10 
  .color Editbox text 10 
  .color Listbox text 10 
  .color Gray text 10 
  .color Title text 10 
  .color Treebar text 10 
  .color Editbox 01 
  .color Listbox 01 
  .color Treebar 01 
  .color Inactive 01 
  .color BackGround 01 
  font -z 11 Tahoma 
  echo -ste Welcome to mIRC version $version
  echo -ste You are using Sonic's 'Sonic' theme
}
on *:START:{ 
  start
}

on *:CONNECT: {
  .cnick * 4 ~&@
  .cnick * 7 %
  .cnick * 12 +
  .cnick * 10 * 
}

on *:INPUT:#: {  
  if ($1 == /me) { 
    haltdef 
    .describe $active $2- 
    echo -ta 4* $nickstyle($nick,$chan) $2-
  }
  if ($1 == //me) { 
    haltdef 
    .describe $active $evalnext($2-) 
    echo -ta 4* 4* $nickstyle($nick,QUERY) $evalnext($+(10,$2-)) 
  }
  elseif ($1 == /notice) {
    haltdef
    ./notice $2 $3-
    echo -ast 14* $chr(187) $+ 10Notice4 $+ $+($chr(3),4,$chr(151),$chr(155),$chr(3)) $+ $2 $+ 14 $+ $chr(171) $+  $+ $+($chr(3),4,$chr(151),$chr(155),$chr(3))  $3-
  }
  elseif ($1 == //notice) {
    haltdef
    //.notice $evalnext($2) $evalnext($3-)
    echo -ast 14* $chr(187) $+ 10Notice4 $+ $+($chr(3),4,$chr(151),$chr(155),$chr(3)) $+ $evalnext($2) $+ 14 $+ $chr(171) $+  $+ $+($chr(3),4,$chr(151),$chr(155),$chr(3))  $evalnext($3-)
  }
  elseif ($1 ison $active) { 
    haltdef 
    var %kaik = $nick($active,$1)
    .msg $active 10[3»4 $+ $nickstyle($nick($active,%kaik),$active) $+ 3«10] $+ $iif($2, : $2-,$2)
  echo -ta $+(4,$chr(187),,$nickstyle($me,$chan),4,$chr(171),3:)  10[ $+ $nickstyle($nick($active,%kaik),$active)) $+  10] $+ $iif($2, : $2-,$2)  } 
  elseif ($left($1,1) != $chr(47))  { 
    haltdef
    .msg # $1-
    echo -ta $+(4,$chr(187),,$nickstyle($me,$chan),4,$chr(171),3:) $1-
  }
}


ON $*:TEXT:$(/\Q $+ $me $+ \E/Si):#:{
  if ($chan != $active) {
    beep 3
    echo -ast $+($nickstyle($nick,$chan),8:,$chr(32),$chan,$chr(32),:,4Highlighted,$chr(32),you,$chr(32),saying,:,$chr(32),$qt($1-))
  }
}
on ^*:TEXT:*:#: {
  haltdef
  echo -tm $chan $+(4,$chr(187),,$nickstyle($nick,$chan),4,$chr(171),3:) $1-
}
on ^*:SNOTICE:*: { 
  haltdef
  echo -east $+(14,$chr(187),$replace($+($chr(3),7,$nick,$chr(3)),.,4•7),14,$chr(171),) $+($chr(3),4,$chr(151),$chr(155),$chr(3)) $1-
}
on ^*:QUIT: { 
  haltdef 
  var %i $comchan($nick,0) 
  while (%i) { 
    echo -t $comchan($nick,%i) * $nickstyle($nick,$comchan($nick,%i)) has quit $+(4,$left($network,1),,$mid($network,2,$len($network))) $+ 3:  $+(8",$1-,8")
    dec %i 
  } 
}


on ^*:NICK: { 
  haltdef 
  var %i 1 
  while ($comchan($newnick,%i)) { 
    echo -t $comchan($newnick,%i) 4* $nick 4changed their nickname to $newnick 
    inc %i 
  } 
} 
CTCP *:VERSION:*: {
  ctcpreply $nick VERSION mIRC v $+ $version $+ : Sonic's "10S3o4ni14c" theme
}

on ^*:ACTION:*:#: {
  haltdef
  echo -tm $chan 4* $nickstyle($nick,$chan) $+(10,$1-)
}
on ^*:KICK:#: { 
  haltdef
  if ($knick == $me) { 
    echo -t $chan 14* You 10were kicked from $chan by $nick 7-10 $1- 
  }
  else { 
    echo -tm $chan 14*4 $knick was kicked by $+(03,$left($nick,1),10,$mid($nick,2,$len($nick))) $+($chr(3),4,$chr(151),$chr(3),10,$chr(155),$chr(3),$chr(32),$1-) 
  } 
}
alias on {
  echo -ts POSSIBLE BRACKET MISMATCH!
}
on ^*:NOTICE:*:*: { 
  haltdef
  if ($chan) { echo -east $+($chr(3),14,$chr(3),4,$chr(187),$chr(3),10,$nick,$chr(3),4,$chr(171)) $+($chr(3),4,$chr(151),$chr(155),:,$chan,:,$chr(3))) $1-
  }
  if (!$chan) {
    echo -ast $+($chr(3),14,$chr(3),4,$chr(187),$chr(3),10,$nick,$chr(3),4,$chr(171)) $+ $+($chr(3),4,$chr(151),$chr(155),$chr(3)) $1-
  }
}


on ^*:JOIN:#: { if ($nick == $me) {
    haltdef
    echo -tm $chan 14*10 You have joined $chan
  }
  else {
    haltdef
    var %x = 1
    while (%x <= $nick($chan,0)) {
      if ($address($nick($chan,%x),2) == $address($nick,2)) && ($nick($chan,%x) != $me) {
        var %clones %clones $nick($chan,%x)
      }
      inc %x
    }
    echo -tm $chan 14*10 $nick $+(4,$chr(151),$chr(155),10,$chr(40),$address,$chr(41),4,$chr(151),$chr(155)) 10has joined $+(4,$left($chan,1),03,$mid($chan,2,$len($chan))) $& 
      | 10Clones found: $replace($iif(%clones,%clones,none),$chr(32),$+($chr(44),$chr(32)))
  }
}

alias whois { 
  whois $$1 $$1 
}

Raw *:*: { 
  if ($numeric == 332) { 
    haltdef 
    echo -t $2 14*7 The topic for $2 is 4" $+ $3- $+ 4" 
  }
  if ($numeric == 333) {
    haltdef 
    echo -t $2 14*7 It was set by $3 at $asctime($4) 
  } 
  if ($numeric == 311) { 
    haltdef 
    echo -as - 
    echo -as $2 is $3 $+ 4@ $+ $4 $+(3,$chr(124),) Real name: $6- 
  }
  if ($numeric == 378) { 
    haltdef 
    echo -as $2 is connecting from: $6 $+  $+ , Address is $7  
  }
  if ($numeric == 319) { 
    haltdef 
    echo -as $2 is on: $replace($3-,@#,4@#,$+($chr(37),$chr(35)),7%#,+#,2+#) 
  }
  if ($numeric == 312) { 
    haltdef 
    echo -as $2 is using $3 $+ , $4- 
  }  
  if ($numeric == 307) {
    haltdef 
    echo -as $2 is identified on his nick. 
  }
  if ($numeric == 671) { 
    haltdef 
    echo -as $2 is using a Secure Connection 
  }
  if ($numeric == 335) { 
    haltdef 
    echo -as $2 is a Bot on $network 
  }
  if ($numeric == 317) { 
    haltdef 
    echo -as $2 has been idle for $duration($3) $+ , signed on at $asctime($4) ( $+ $duration($calc($ctime - $4)) ago) 
  } 
  if ($numeric == 313) { 
    haltdef 
  echo -as $2 is a $5- }
  if ($numeric == 301) { 
    haltdef 
    echo -as $2 is AWAY: $3-
  }
  if ($numeric == 318) { 
    haltdef  
    echo -as End of /Whois for $2 $+ . 
    echo -as -
  }
  if ($numeric == 379) { 
    haltdef 
    echo -as $2 is using the modes: $6- 
  }
  if ($numeric == 402) {
    haltdef 
    echo -as $2 $+ : That nick is not online. 
  }
  if ($numeric == 475) {
    haltdef
    echo -tsae Cannot join $2 $+ , Key is set.
  }
  if ($numeric == 473) {
    haltdef
    echo -tsae Cannot join $2 $+ , Channel is invite only.
  } 
  if ($numeric == 471) {
    haltdef
    echo -tsae Cannot join $2 $+ , Channel is full
  }
  if ($numeric == 520) {
    haltdef
    echo -tsae Cannot join $2 $+ , Channel is for IRCOps only
  }
  if ($numeric == 470) {
    haltdef
    echo -tsae $3 has become full, You are being transfered to $17
  }
  if ($numeric == 372) {
    haltdef
    echo -ts $2-
  }
  if ($numeric == 376) {
    haltdef
    echo -ts End of the /MOTD command
  }
  if ($numeric == 433) {
    haltdef
    echo -tsae Unable to change nickname, It is already in use!
  }
}

on ^*:PART:#: { 
  haltdef 
  echo -tm $chan 14*10 $nick $+(4,$chr(151),$chr(155),10,$chr(40),$address,$chr(41),4,$chr(151),$chr(155)) 10has parted $+(4,$left($chan,1),03,$mid($chan,2,$len($chan))) $+ 4: $1-
}

on ^*:RAWMODE:#: {
  haltdef 
  echo -t $chan 14*4 $nick sets mode:10 $1-
} 


on ^*:TEXT:*:?: {
  haltdef
  if (!$query($nick)) query $nick
  echo -tm $query($nick) 04» $+ $nickstyle($nick,QUERY) $+ 04«03: $1-
}
on *:INPUT:?: {  
  if ($1 == /me) { 
    haltdef 
    .describe $active $2- 
    echo -ta 4* $nickstyle($nick,QUERY) $2-
  }
  elseif ($1 == /notice) {
    haltdef
    .notice $2 $3-
    echo -ast 14* $chr(187) $+ 10Notice4 $+ $+($chr(3),4,$chr(151),$chr(155),$chr(3)) $+ $2 $+ 14 $+ $chr(171) $+  $+ $+($chr(3),4,$chr(151),$chr(155),$chr(3))  $3-
  }
  elseif ($left($1,1) != $chr(47))  { 
    haltdef
    .msg $active $1-
    echo -ta $+(4,$chr(187),,$nickstyle($me,$chan),4,$chr(171),3:) $1-
  }
}

on ^*:ACTION:*:?: { 
  haltdef 
  if (!$query($nick)) query $nick
  echo -tm $nick 4* $nickstyle($nick,QUERY) $1-
}
on ^*:TOPIC:#: {
  haltdef
  echo -tm $chan $nickstyle($nick,$chan) changes the topic for $chan to 8" $+ $1- $+ 8"
}  
on ^*:INVITE:#: {
  haltdef
  echo -east  $+ $nick $+  invites you to join $chan $+ . 
}
alias Amsg { 
  var %amsgcolor $gettok(10 04 03 06 07 13 02,$rand(1,7),32)
  var %e = 1 
  while (%e <= $chan(0)) { 
    if (!$istok(#IRCHelp #Idle #Help #mIRC #support #rscript #msl,$chan(%e),32)) { 
      .msg $chan(%e) $+($chr(3),%amsgcolor,[,10Amsg,$chr(3),%amsgcolor,],$chr(3)) $1-
      echo -t $chan(%e) $+(4,$chr(187),,$nickstyle($me,$chan(%e)),4,$chr(171),3:) $+($chr(3),%amsgcolor,[,10Amsg,$chr(3),%amsgcolor,],$chr(3)) $1-
    } 
    inc %e
  }
}
alias Ame { 
  var %e = 1 
  while (%e <= $chan(0)) { 
    if (!$istok(#IRCHelp #Idle #Help #mIRC #support #rscript #msl,$chan(%e),32)) { 
      .describe $chan(%e) $1- 
      echo -t $chan(%e) 4* $nickstyle($me,$chan(%e)) $+(10,$1-) 
    } 
    inc %e 
  }
}