on *:START:{ /timestamp -f 02[10HH02:10nn02:10ss02] }
on ^*:TEXT:*:#:{ haltdef | //echo -tm $iif($chan,$chan,$nick) 02[10» $+ $name($nick) $+ 10«02]10 $1- }
on ^*:TEXT:*:?:{ haltdef | //echo -tm $iif($chan,$chan,$nick) 02[10» $+ $nick $+ 10«02]10 $1- }
on ^*:ACTION:*:*:{ haltdef | //echo -tm $iif($chan,$chan,$nick) 02* $nick $1- }
CTCP *:VERSION:{ ctcpreply $nick 02[10VERSION02]10 Cracky's Theme 02- 10Grey02/10Red 02v101.0 }
ON ^*:NOTICE:*:*:{ 
  haltdef 
  if ((*into the channel.* iswm $1-) && (*invited* iswm $1-)) { echo -satm 02* $1 10invited02 $3 10into the Channel:02 $chan $+ . }
  else { echo -satm $iif($chan,02-10 $+ $chan) $+ 02-10 $+ $iif($nick,$nick,$chan) $+ 02-10 $replace($1-,10,10) }
}
ON ^*:VOICE:*:{ haltdef | echo -tm $chan 02* $nick 10has added02 $vnick 10to the 02+voice10 list. }
ON ^*:DEVOICE:*:{ haltdef | echo -tm $chan 02* $nick 10has removed02 $vnick 10from the 02+voice10 list. }
ON ^*:OP:*:{ haltdef | echo -tm $chan 02* $nick 10has added02 $opnick 10to the 02@op10 list. }
ON ^*:DEOP:*:{ haltdef | echo -tm $chan 02* $nick 10has removed02 $opnick 10from the 02@op10 list. }
ON ^*:HELP:*:{ haltdef | echo -tm $chan 02* $nick 10has added02 $hnick 10to the 02%Half-Op10 list. }
ON ^*:DEHELP:*:{ haltdef | echo -tm $chan 02* $nick 10has removed02 $hnick 10from the 02%Half-Op10 list. }

on ^*:owner:#:{ isowner # $opnick add | haltdef | echo -tm $chan 02* $nick 10has added02 $opnick 10to the 02@Owner10 list } 

on ^*:deowner:#:{ isowner # $opnick rem | haltdef | echo -tm $chan 02* $nick 10has removed02 $opnick 10from the 02@Owner10 list } 

ON ^*:NICK:{ haltdef
  var %a = 1
  while ($comchan($newnick,0) >= %a) {
    //echo -t $comchan($newnick,%a) 02* $nick 10is now known as02 $newnick $+ .
    inc %a
  }
}
ON ^*:QUIT:{ haltdef
  var %a = 1
  while ($comchan($nick,0) >= %a) {
    //echo -t $comchan($nick,%a) 02*** $nick 10has just quit02 $network 10with a message of:2 $1-
    inc %a
  }
}
ON ^*:KICK:*:{ haltdef | echo -tm $iif($chan,$chan,$nick) 02* $knick 10was kicked from:02 $chan 10by:02 $nick 10because:02 $iif($1,$1-,n/a) }
ON ^*:BAN:*:{ haltdef | echo -tm $iif($chan,$chan,$nick) 02* $bnick 10( $+ $address($bnick,2) $+ ) 10was banned from:02 $chan 10by:02 $nick }
ON ^*:JOIN:*:{ haltdef
  echo -tm $iif($chan,$chan,$nick) 02*** $nick 10( $+ $address($nick,1) $+ ) 10has joined:02 $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) 02*** 10USER PEAK REACHED:02 $nick($chan,0) USERS IN CHANNEL. 02***
  }
}
ON *:LOAD:{ //tokenize 46 * 4 ~&@.* 1 % .* 14 +.* 15.on | .cnick $* | //echo -ta 02 $+ $str(-,5) 10Cracky's mIRC Theme Loaded02 $str(-,5) }
ON ^*:PART:*:{ haltdef | echo -tm $iif($chan,$chan,$nick) 02*** $nick 10has just left02 $chan $+ .10 $iif($1,02[10 $+ $1- $+ 02]) }
ON *:CONNECT:{ join #Cracky } 
ON ^*:SNOTICE:{ 
  haltdef
  if (*You are already identified* iswm $1-) { echo -tm $iif($chan,$chan,$nick) 02* 10You are already ID'd }
  else { /echo -tm $iif($chan,$chan,$nick) 02-10 $+ $iif($nick,$nick,$chan) $+ 02-10 $replace($1-,1,10,10,10) }
}
Raw 332:*:{ haltdef | echo -tm $2 02* Topic for $2 is:10 $+(',$3-,') } 
Raw 333:*:{ haltdef | echo -tm $2 02* Topic set by:10 $3 02on:10 $asctime($4-) } 
ON ^*:RAWMODE:*:{ 
  haltdef
  if (*h iswmcs $1) || (*o iswmcs $1) || (*v iswmcs $1) || (+b iswmcs $1) || (*q iswmcs $1) || (*a iswmcs $1) { halt }
  elseif ($1 === +m) { echo -tm $chan 02* $nick 10has set02 $chan 10as a 02Moderated10 Channel. }
  elseif ($1 === -m) { echo -tm $chan 02* $nick 10has set02 $chan 10as an 02Un-Moderated10 Channel. }
  elseif ($1 === +i) { echo -tm $chan 02* $nick 10has set02 $chan 10as a 02Invite-Only10 Channel. }
  elseif ($1 === -i) { echo -tm $chan 02* $nick 10has set02 $chan 10as an 02Un-Invite-Only10 Channel. }
  elseif ($1 === -b) { echo -tm $chan 02* $nick 10has unbanned:02 $2- 10in:02 $chan $+ . }
  else { echo -tm $chan 02* $nick 10has set02 $1- 10in:02 $chan $+ . }
}
alias -l name { if ($1 isop $chan) { return $+(02@10,$1) }
  elseif ($1 ishop $chan) { return $+(02, $chr(37) ,10,$1) }
  elseif ($1 isvoice $chan) { return $+(02+10,$1) }
  else { return $+(10,$1) }
}
Alias AMSG { 
  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] [[10 $+  $1- $+ 02]]
    echo -tm $chan(%x) 02[10» $+ $me $+ 10«02]10 02[10/Amsg2] [[10 $+  $1- $+ 02]]    } 
    inc %x 
  } 
}

ON *:INPUT:*:{ 
  if ($left($1,1) == /) || ($left($1,2) == //) || ($left($1,1) == .) return 
  elseif ($1 ison $active) { 
    .msg $active 02[10» $+ $name($1) $+ 10«02] $replace($2-,#,02#10)
    echo -tm $active 02[10» $+ $name($me) $+ 10«02]10 --02> [10» $+ $name($1) $+ 10«02]10 $replace($2-,#,02#10)
    halt
  }
  else { 
    .msg $active $1- 
    echo -tm $active 02[10» $+ $iif($chan,$name($me),$me) $+ 10«02]10 $replace($1-,10,10)
    halt 
  } 
}