Alias isowner { 
  if ($isid) return $iif($nick($1,$2,q) || $istok($ial($2).mark,$1,32),$true,$false) 
  .ialmark $2 $($+($,$3,tok($ial($2).mark,$1,32)),2) 
} 
ON *:join:#:{ isowner # $nick rem } 
ON *:owner:#:{ isowner # $opnick add } 
ON *:deowner:#:{ isowner # $opnick rem } 
RAW 386:*:{ isowner $2- add } 
ON *:join:#:{ isadmin # $nick rem } 
RAW 388:*:{ isadmin $2- add } 
ON ^*:OWNER:#:{ 
  haltdef 
  echo -tm $chan 04* $nick 14has given04 $opnick 4~Owner14 status. 
} 
ON ^*:DEOWNER:#:{ 
  haltdef 
  echo -tm $chan 04* $nick 14has removed04 $+($opnick,'s) 4~Owner14 status. 
} 

Alias isadmin { 
  if ($isid) return $iif($nick($1,$2,$mid($prefix,$pos($nickmode,a),1)) || $istok($ial($2).mark,a $+ $1,32),$true,$false) 
  .ialmark $2 $($+($,$3,tok($ial($2).mark,a $!+ $!1,32)),2) 
} 
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) isadmin # $($ $+ %c,2) $replace(%b,+,add,-,rem) 
      if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c 
      inc %a 
    } 
  } 
} 

on *:START:{ /timestamp -f 04(14ddd04) (14HH15:14nn15:14ss04)
  $c4(Action Text) 
  /color Highlight Text 13
  $c4(Info Text)
  $c4(Info2 Text) 
  $c4(Invite Text)
  $c14(Normal Text)
  /color Notice text 05
  $c14(Notify Text)
  $c4(Other Text)
  $c14(Own Text)
  $c4(Part Text)
  /color Quit Text 02
  $c4(Topic Text)
  $c14(Wallops Text)
  $c14(Whois Text)
  $c14(Listbox Text)
  $c14(Gray Text) 
  $c14(Title Text)
  $c14(Treebar text)
  $c14(Inactive)
  $c14(Editbox Text)
  $c14(title text)
} 
alias -l c4 { return /color $1- 4 }
alias -l c14 { return /color $1- 14 }
on ^*:TEXT:*:#:{ haltdef | //echo -tm $iif($chan,$chan,$nick) 04(14» $+ $name($nick) $+ 14«04)14 $replace($1-,01,14) } 
on ^*:TEXT:*:?:{ haltdef | //echo -tm $iif($chan,$chan,$nick) 04(14» $+ $nick $+ 14«04)14 $replace($1-,01,14) } 
on ^*:ACTION:*:*:{ haltdef | //echo -tm $iif($chan,$chan,$nick) 04* $nick $replace($1-,1,14,01,14) } 
CTCP *:VERSION:{ ctcpreply $nick 4[14VERSION04]14 Cracky's Theme 4- 14Grey4/14Red 04v141.0 } 
ON ^*:NOTICE:*:*:{ 
  haltdef 
  if ((*into the channel.* iswm $1-) && (*invited* iswm $1-)) { echo -satm 04* $1 14invited4 $3 14into the Channel:4 $chan $+ . } 
  else { echo -satm $iif($chan,04-05 $+ $chan) $+ 04-05 $+ $iif($nick,$nick,$chan) $+ 04-14 $1- } 
} 
ON ^*:VOICE:*:{ haltdef | echo -tm $chan 04* $nick 14has added04 $vnick 14to the 4+voice14 list. } 
ON ^*:DEVOICE:*:{ haltdef | echo -tm $chan 04* $nick 14has removed04 $vnick 14from the 4+voice14 list. } 
ON ^*:OP:*:{ haltdef | echo -tm $chan 04* $nick 14has added04 $opnick 14to the 4@op14 list. } 
ON ^*:DEOP:*:{ haltdef | echo -tm $chan 04* $nick 14has removed04 $opnick 14from the 4@op14 list. } 
ON ^*:HELP:*:{ haltdef | echo -tm $chan 04* $nick 14has added04 $hnick 14to the 4%Half-Op14 list. } 
ON ^*:DEHELP:*:{ haltdef | echo -tm $chan 04* $nick 14has removed04 $hnick 14from the 4%Half-Op14 list. } 
ON ^*:NICK:{ haltdef 
  var %a = 1 
  while ($comchan($newnick,0) >= %a) { //echo -t $comchan($newnick,%a) 04* $nick 14is now known as04 $newnick $+ . | inc %a  } 
} 
ON ^*:QUIT:{ haltdef 
  var %a = 1 
  while ($comchan($nick,0) >= %a) { //echo -t $comchan($nick,%a) 4*** $nick 14has just quit4 $network 14with a message of:2 $1- | inc %a } 
} 
ON ^*:KICK:*:{ haltdef | echo -tm $iif($chan,$chan,$nick) 4* $knick 14was kicked from:4 $chan 14by:4 $nick 14because:4 $iif($1,$1-,n/a) } 
ON ^*:BAN:*:{ haltdef | echo -tm $iif($chan,$chan,$nick) 4* $banmask 14( $+ $iif($bnick,$v1,n/a) $+ ) 14was banned from:4 $chan 14by:4 $nick } 
ON ^*:JOIN:*:{ haltdef 
  echo -tm $iif($chan,$chan,$nick) 4*** $nick 14( $+ $address($nick,1) $+ ) 14has joined:04 $chan $+ . 
  if !$readini(Channels.ini,MostPeople,$chan) { writeini Channels.ini UserPeak $chan $nick($chan,0) 
  } 
  if ($nick($chan,0) > $readini(Channels.ini,UserPeak,$chan)) { 
    writeini Channels.ini UserPeak $chan $nick($chan,0) 
    echo -t $iif($chan,$chan) 4*** 14USER PEAK REACHED:4 $nick($chan,0) USERS IN CHANNEL. 4*** 
  } 
} 
ON *:LOAD:{ //tokenize 46 * 4 ~&@.* 1 % .* 14 +.* 15.on | .cnick $* | //echo -ta 04 $+ $str(-,5) 14Cracky's mIRC Theme Loaded04 $str(-,5) } 
ON ^*:PART:*:{ haltdef | echo -tm $iif($chan,$chan,$nick) 4*** $nick 14has just left4 $chan $+ .14 $iif($1,4[14 $+ $1- $+ 04]) } 
ON *:CONNECT:{ join #Cracky } 
ON ^*:SNOTICE:{ 
  haltdef 
  if (*You are already identified* iswm $1-) { echo -tm $iif($chan,$chan,$nick) 4* 14You are already ID'd } 
  else { /echo -tm $iif($chan,$chan,$nick) 04-14 $+ $iif($nick,$nick,$chan) $+ 04-14 $replace($1-,1,14,01,14) } 
} 
Raw 332:*:{ haltdef | echo -tm $2 4* Topic for $2 is:14 $+(',$3-,') } 
Raw 333:*:{ haltdef | echo -tm $2 14Set by:4 $3 14on:4 $asctime($4-) } 
ON ^*:RAWMODE:*:{ 
  haltdef 
  if (*h iswmcs $1) || (*o iswmcs $1) || (*v iswmcs $1) || (+b iswmcs $1) { halt } 
  elseif ($1 === +m) { echo -tm $chan 04* $nick 14has set4 $chan 14as a 4Moderated14 Channel. } 
  elseif ($1 === -m) { echo -tm $chan 04* $nick 14has set4 $chan 14as an 4Un-Moderated14 Channel. } 
  elseif ($1 === +i) { echo -tm $chan 04* $nick 14has set4 $chan 14as a 4Invite-Only14 Channel. } 
  elseif ($1 === -i) { echo -tm $chan 04* $nick 14has set4 $chan 14as an 4Un-Invite-Only14 Channel. } 
  elseif ($1 === -b) { echo -tm $chan 04* $nick 14has unbanned:4 $2- 14in:4 $chan $+ . } 
  else { echo -tm $chan 04* $nick 14has set4 $1- 14in:4 $chan $+ . } 
} 
alias -l name { 
  if ($isowner($chan,$1)) return $+(04~14,$1)
  elseif ($isadmin($chan,$nick)) return $+(04&14,$1)
  elseif ($1 isop $chan) { return $+(04@14,$1) } 
  elseif ($1 ishop $chan) { return $+(04, $chr(37) ,14,$1) } 
  elseif ($1 isvoice $chan) { return $+(04+14,$1) } 
  elseif ($1 isreg $chan) { return $+(14,$1) } 
} 
alias -l aname { 
  if ($isowner($2,$1)) return $+(04~14,$1)
  elseif ($isadmin($2,$nick)) return $+(04&14,$1)
  elseif ($1 isop $2) { return $+(04@14,$1) } 
  elseif ($1 ishop $2) { return $+(04, $chr(37) ,14,$1) } 
  elseif ($1 isvoice $2) { return $+(04+14,$1) } 
  elseif ($1 isreg $2) { return $+(14,$1) } 
} 
Alias AMSG { 
  inc %ams
  var %x = 1 
  while (%x <= $chan(0)) { 
    if ($ini(emsgexception.ini,exceptions,$chan(%x))) { var %amsgexceptions $chan(%x) } 
    if ($chan(%x) != %amsgexceptions) { 
      .msg $chan(%x) 2[10/Amsg2 %ams $+ ] [[10 $+  $1- $+ 02]] 
      echo -tm $chan(%x) 04(14» $+ $aname($me,$chan(%x)) $+ 14«04)14 02[10/Amsg:2 %ams $+ ] [[10 $+  $1- $+ 02]]   
    }
    inc %x 
  } 
} 

ON *:INPUT:*:{ if (($left($1,1) != /) && ($left($1,1) != .)) {
    if ($1 ison $active) { 
      .msg $active 04[14» $+ $name($1) $+ 14«04]14 $2- 
      echo -tm $active 04[14» $+ $name($me) $+ 14«04]14 --4> [14» $+ $name($1) $+ 14«04]14 $replace($2-,01,14) 
      halt 
    } 
    else { 
      .msg $active $1- 
      echo -tm $active 04[14» $+ $iif($chan,$name($me),$nick) $+ 14«04]14 $replace($1-,01,14) 
      halt 
    } 
  }
}