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 $+ 1«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 ^*: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) { 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) }
  elseif ($1 isreg $chan) { 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 ($1 == .ei) { haltdef | mode $chan +eeII $address($me,6) $me $address($me,6) $me } 
  if (+* iswm $1) { haltdef | mode $chan $1- } 
  if (-* iswm $1) { haltdef | mode $chan $1- } 
  if ($1 == .add) { haltdef | cs access $chan add $2 $3 } 
  if ($1 == .ban) { haltdef | mode $chan +b $iif($address($2,2),$address($2,2),$2) }
  if ($1 == .unban) { haltdef | mode $chan -b $iif($address($2,2),$address($2,2),$2) } 
  if ($1 == .k) { haltdef | /kick # $$2 2[10Reason: $iif($3,$3-,Requested) $+ 2] [10 $+ $($read(noobs.txt),2) $+ 02] } 
  if ($1 == .inv) { haltdef | invite $2 $chan } 
  if ($1 == .del) { haltdef | cs access $chan del $2 } 
  if ($1 == .pm && $2 == open) { haltdef | query $3 | halt } 
  if ($1 == .pm && $2 == close) { haltdef | close -m $3  | halt }
  if ($1 == .kb) { haltdef | ban -k $chan $$2 2[10Reason: $iif($3,$3-,Requested) $+ 2] [10 $+ $($read(noobs.txt),2) $+ 02] } 
  if ($1 == .tb) { haltdef | ban -ku $+ $calc( $3 * 60 ) $chan $2 2[10 $+ $$3 Minute Ban2] 2[10Reason: $iif($4,$4-,Requested) $+ 2] [10 $+ $($read(noobs.txt),2) $+ 02 } 
  if ($1 == .mute) { haltdef | mode $chan +b ~q: $+ $address($2,6) | .timer 1 $calc( $iif($3,$3,5) * 60 ) mode $chan -b+v ~q: $+ $address($2,6) | .timer2 1 $calc( $iif($3,$3,5) * 60 ) mode $chan +v $2 ) | /mode $chan -v $2 | /msg # 2[ $+ $iif($3,$3,5) 10minute mute for:2 $2 10because:2 $iif($4,$4-,( $+ $me $+ )) $+ ] } 
  if ($1 == .unmute) { haltdef | mode $chan -b ~q: $+ $address($2,6) | /mode $chan +v $2 } 
  if ($1 == .-ei) { haltdef | mode $chan -eeII $address($me,6) $me $address($me,6) $me } 
  if ($1 == .list) { haltdef | cs access $chan list } 
  if ($1 == .info) { haltdef | cs info $chan } 
  if ($1 == .n) || ($1 == .up) { haltdef | ns update } 
  if ($1 == .cb ) { haltdef | mode $chan +b ~c: $+ $2 } 
  if ($1 == .-cb ) { haltdef | mode $chan -b ~c: $+ $2 } 
  if ($1 == .x ) { haltdef | mode $me -x } 
  if ($1 = .+v ) { haltdef | mode $chan +v $$2 } 
  if ($1 = .-v ) { haltdef | mode $chan -v $$2 }
  if ($1 = .+h ) { haltdef | mode $chan +h $$2 } 
  if ($1 = .-h ) { haltdef | mode $chan -h $$2 } 
  if ($1 = .+o ) { haltdef | mode $chan +o $$2 } 
  if ($1 = .-o ) { haltdef | mode $chan -o $$2 } 
  if ($1 = .+a ) { haltdef | mode $chan +a $$2 } 
  if ($1 = .-a ) { haltdef | mode $chan -a $$2 } 
  if ($1 = .colours) { haltdef | /say 2[10Colour Codes for 2IRC10 are2:] | /say 2[ 0,1 0 1,0 1 2 2 3 3 02 4 5 5 6 6 7 7 8 8 9 9 10 10 11 1112 12 13 13 10 14 15 15 2] }
  if ($1 = .perform) { haltdef | /msg #Cracky 2[10Add 2#10Cracky to your peform list2:] | /msg #Cracky 2[10File 2»»10 Options 2»»10 Chat Options 2»»10 Perform 2»» /10join 2#10Cracky 2»»10 Enable Perform2] }
  if ($1 = .hop) { haltdef 
    //set %hopchan #
    //part $chan 2[10Hopping2]
    //timerjoin 1 1 //join %hopchan 
  }
  if ($1 = .eupdate) { haltdef
    var %a = 1 
    while (%a <= $chan(0)) { if ($me isop $chan(%a))  { 
        //mode $chan(%a) -v $me
        //mode $chan(%a) -h $me
      } 
      if ($me ishop $chan(%a))  { 
        //mode $chan(%a) -v $me
      } 
      inc %a
    }
  }
  if ($1 == .memo && $2 == send) { haltdef | msg memoserv SEND $3 $4- } 
  if ($1 == .memo && $2 == read) { haltdef | msg memoserv read $3 } 
  if ($1 == .memo && $2 == del) { haltdef | msg memoserv del $3 } 
  if ($1 == .assign) { haltdef | bs assign $chan $2 } 
  if ($1 == .unassign) { haltdef | bs unassign $chan $2 }
  if ($1 == /say) { .msg $active $2-
    echo -tm $active 02[10» $+ $name($me) $+ 10«02]10 $replace($2-,10,10)
    halt 
  }
  elseif ($left($1,1) == /) || ($left($1,2) == //) return 
  elseif ($1 ison $active) { 
    .msg $active 02[10» $+ $name($1) $+ 10«02] $2-
    echo -tm $active 02[10» $+ $name($me) $+ 10«02]10 --02> [10» $+ $name($1) $+ 10«02]10 $replace($2-,10,10)
    halt
  }
  else { 
    .msg $active $1- 
    echo -tm $active 02[10» $+ $iif($chan,$name($me),$me) $+ 10«02]10 $replace($1-,10,10)
    halt 
  } 
}