Mine

Alias chr's {
  if ($remove($1-,-) !isnum) echo -at You can only have numbers...
  else {
    var %i = $iif(*?-?* iswm $1,$calc($gettok($1,1,$asc(-)) - 1),0) 
    write Chr's.html <html><Title>mIRC Chr's $iif(*?-?* iswm $1,Between $&
      $gettok($1,1,$asc(-)) and $gettok($1,2-,$asc(-)),to $1)</Title> <br> <h1>The Chrs...</h1> 
    while (%i < $iif(*?-?* iswm $1,$gettok($1,2-,$asc(-)),$1)) {
      inc %i 
      write Chr's.html $+(%i,.) $chr(%i) <br> 
    }
    run Chr's.html 
    .timer 1 2 .remove Chr's.html  
  } 
}
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 -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has given $+(02,$left($2,1),,$right($opnick,$calc($len($opnick) - 1))) 10owner status
}
ON ^*:DEOWNER:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has removed $+(02,$left($2,1),,$right($opnick,$calc($len($opnick) - 1))) 10owner 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 *:INPUT:#:{
  if (/me isin $1 || /describe isin $1) {
    .describe $chan $replace($iif(d isin $1,$3-,$2-),%pass,$str(*,$rand(5,15)))
    echo -t $chan $+(10* ,$left($me,1),,$right($me,$calc($len($me) - 1)),02) $replace($iif(d isin $1,$3-,$2-),%pass,$str(*,$rand(5,15)))
    halt
  }
  elseif ($remove($1,$chr(44)) ison $chan && Insanebot !isin $1 && InsaneServ !isin $1 && $chan != #SwiftSwitch) {
    .msg $chan $name($remove($1,$chr(44))) $+ $iif($2,04: $replace($2-,%pass,$str(*,$rand(5,15))),$null)
    echo -t $chan $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«) $name($remove($1,$chr(44))) $+ $iif($2,04: $replace($2-,%pass,$str(*,$rand(5,15))),$null)
    halt
  }
  elseif ($left($1,1) != /) {
    if ($regex($1,/^[!](k|kb) $/Si)) { inc %k }
    .msg $chan $replace($1-,%pass,$str(*,$rand(5,15)),leach,leech) $iif($regex($1,/^[!](k|kb) $/Si),$chr(183) 10Noobs added to the /retard list:04 $bytes(%k,b))
    echo -t $chan $+(04»02~10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«02) $replace($1-,%pass,$str(*,$rand(5,15)),leach,leech) $iif($regex($1,/^[!](k|kb) $/Si),$chr(183) 10Noobs added to the /retard list:04 $bytes(%k,b))
    halt
  }
  else { 
    $($1-,2)
    halt
  }
}
Alias name {
  return $+($chr(3),$chr(49),$chr(48),$chr(2),$chr(91),$chr(2),$chr(3),$chr(3),$chr(52),$chr(187),$chr(3),$chr(3),$chr(49),$chr(50)) $&
    $+ $iif($left($1,1) === i,$chr(31) $+ $left($1,1),$iif($left($1,1) isalpha,$chr(31) $+ $upper($left($1,1)),$upper($left($1,1)))) $+ $&
    $iif($left($1,1) isalpha || $left($1,1) === i,$chr(31),$null) $+ $replace($remove($right($1,$calc($len($1) - 1)),$chr(44),:),_,$chr(32)) $+ $&
    $+($chr(3),$chr(3),$chr(48),$chr(52),$chr(171),$chr(3),$chr(3),$chr(49),$chr(48),$chr(2),$chr(93),$chr(2),$chr(3),$chr(3),$chr(48),$chr(52))
}
ON *:INPUT:?:{
  if (/me isin $1 || /describe isin $1) {
    .describe $active $iif(d isin $1,$3-,$2-)
    echo -t $active $+(10* ,$left($me,1),,$right($me,$calc($len($me) - 1)),10) $iif(d isin $1,$3-,$2-)
    halt
  }
  elseif ($left($1,1) != /) {
    .msg $active $1-
    echo -t $active $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«) $1-
    halt
  }
  else {
    $($1-,2)
    halt
  }
}
ON ^*:TEXT:*:#:{
  haltdef
  if ($isowner($chan,$nick)) echo -t $chan $+(02»04~10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),02«02) $1-
  elseif ($isadmin($chan,$nick)) echo -t $chan $+(02»04&10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),02«02) $1-
  elseif ($nick isop $chan) echo -t $chan $+(02»04@10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),02«02) $1-
  elseif ($nick ishop $chan) echo -t $chan $+(04»07%10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),04«02) $1-
  elseif ($nick isvoice $chan) echo -t $chan $+(04»02+10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),04«02) $1-
  else echo -t $chan $+(04»10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),04«02) $1-
}
ON ^*:NOTICE:*:*:{
  haltdef
  echo -tsa $+(05-02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),05-10) $iif($chan,$chan ,$null) $1-
}
ON ^*:TEXT:*:?:{
  haltdef
  if (%Query. [ $+ [ $nick ] ] == $null) {
    set %Query. $+ $nick On
    .msg $nick 10I have02 $query(0) 10active querys
    echo -t $nick $+(04»02,$left($me,1),,$right($me,$calc($len($me) - 1)),04«02) 10I have02 $query(0) 10active querys
  }
  echo -t $nick $+(04»02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),04«02) $1-
}
ON *:CLOSE:?:{
  unset %Query. $+ $target
}
ON ^*:ACTION:*:?:{
  haltdef
  echo -t $nick $+(02*02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),02) $1-
}
ON ^*:ACTION:*:#:{
  haltdef
  if ($nick isop $chan) echo -t $chan $+(04* ,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) $1-
  elseif ($nick ishop $chan) echo -t $chan $+(07* ,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) $1-
  elseif ($nick isvoice $chan) echo -t $chan $+(02* +,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) $1-
  else echo -t $chan $+(12* ,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) $1-
}
ON ^*:INVITE:#:{
  haltdef 
  set %ichan $remove($chan,$chr(35))
  echo -at $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) has invited you to join $+(02,$chr(35),,$left(%ichan,1),,$right(%ichan,$calc($len(%ichan) - 1)))
  unset %ichan
}
ON ^*:KICK:#:{
  if ($knick == $me) echo -st Your were kicked in $chan by $nick $+([,$1-,])
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has kicked $+(02,$left($knick,1),,$right($knick,$calc($len($knick) - 1))) $iif($1,$+(10[02,$1-,10]),$null)
}
Alias oj {
  if ($readini(ChanStats.ini,$2,$chan) == $null) {
    writeini ChanStats.ini $2 $chan $3
    ;echo -t $chan $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«) 10New user peak02 $3
    ;.msg $1 10New user peak02 $3
  }
  elseif ($readini(ChanStats.ini,$2,$chan) < $3) {
    writeini ChanStats.ini $2 $chan $3
    ;echo -t $chan $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«) 10New user peak02 $3
    ;.msg $1 10New user peak02 $3
  }
}
ON ^*:JOIN:#:{
  haltdef
  if ($nick == $me) {
    set %ichan $remove($chan,$chr(35))
    echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has joined $+(02,$chr(35),,$left(%ichan,1),,$right(%ichan,$calc($len(%ichan) - 1))) 
    unset %ichan
  }
  else {
    set %ichan $remove($chan,$chr(35))
    echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has joined $+(02,$chr(35),,$left(%ichan,1),,$right(%ichan,$calc($len(%ichan) - 1))) 
    unset %ichan
    oj $chan $network $nick($chan,0)
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i
      if ($address($nick,2) iswm $address($nick($chan,%i),2)) var %clones = %clones $nick($chan,%i)
    }
    if ($count(%clones,$chr(32)) > 0) {
      echo -t $chan 10Clones:02 $iif($replace(%clones,$chr(32),$chr(44)),$replace(%clones,$chr(32),$chr(44)),No One)
    }
  }
}
ON ^*:PART:#:{
  haltdef
  set %ichan $remove($chan,$chr(35))
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has parted $+(02,$chr(35),,$left(%ichan,1),,$right(%ichan,$calc($len(%ichan) - 1))) $iif($1,$+(10[2,$1-,10]),$null)
  unset %ichan
}
ON ^*:OP:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has added $+(02,$left($opnick,1),,$right($opnick,$calc($len($opnick) - 1))) 10to Op list
}
ON ^*:DEOP:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has removed $+(02,$left($opnick,1),,$right($opnick,$calc($len($opnick) - 1))) 10from Op list
}
ON ^*:HELP:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has added $+(02,$left($hnick,1),,$right($hnick,$calc($len($hnick) - 1))) 10to H/Op list
}
ON ^*:DEHElP:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has removed $+(02,$left($hnick,1),,$right($hnick,$calc($len($hnick) - 1))) 10from H/Op list
}
ON ^*:VOICE:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has added $+(02,$left($vnick,1),,$right($vnick,$calc($len($vnick) - 1))) 10to voice list
}
ON ^*:DEVOICE:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has removed $+(02,$left($vnick,1),,$right($vnick,$calc($len($vnick) - 1))) 10from voice list
}
ON ^*:MODE:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has set modes: $replace($1-,+,04+02,-,04-02)
}
ON ^*:RAWMODE:#:{
  haltdef
  if (+a isin $1) echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has added $+(02,$left($2,1),,$right($2,$calc($len($2) - 1))) 10to admin list
  elseif (-a isin $1) echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has removed $+(02,$left($2,1),,$right($2,$calc($len($2) - 1))) 10from admin list
  elseif (+e isin $1) echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has given $+(02,$left($2,1),,$right($2,$calc($len($2) - 1))) 10an except
  elseif (-e isin $1) echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has removed $+(02,$left($2,1),,$right($2,$calc($len($2) - 1))) $+ 's 10exception
  elseif ($1 === +I) echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has given $+(02,$left($2,1),,$right($2,$calc($len($2) - 1))) 10an invite overide
  elseif ($1 === -I) echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has removed $+(02,$left($2,1),,$right($2,$calc($len($2) - 1))) $+ 's 10invite overide
}
ON ^*:TOPIC:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has changed the topic to "03 $+ $1- $+ 10"
}
RAW 332:*:{
  haltdef
  echo -t $2 10The topic for02 $2 10is "02 $+ $3- $+ 10"
}
RAW 331:*:{
  haltdef
  echo -t $2 10There is no topic for02 $2
}
ON ^*:BAN:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has banned02 $banmask
  var %i = 0
  while (%i < $nick($chan,0)) {
    inc %i
    if ($banmask iswm $address($nick($chan,%i),-1)) var %eban = %eban $nick($chan,%i)
    elseif ($remove($banmask,!,@) iswm $nick($chan,%i)) var %eban = %eban $nick($chan,%i)
  }
  echo -t $chan 10This ban effects02 $iif($replace(%eban,$chr(32),$chr(44)),$replace(%eban,$chr(32),$chr(44)),No One)
}
ON ^*:UNBAN:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has un-banned02 $banmask
}
ON ^*:QUIT:{
  haltdef
  var %i = 0
  while (%i < $comchan($nick,0)) {
    inc %i
    echo -t $comchan($nick,%i) $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) has quit $network ( $+ $iif($1,$1-,No Reason) $+ )
  }
}
Alias Amsg {
  var %i = 0
  while (%i < $chan(0)) {
    inc %i
    if ($chan(%i) != #Idle) {
      echo -t $chan(%i) $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«02) $1-
      .msg $chan(%i) $1-
    }
  }
}
Alias ame {
  var %i = 0
  while (%i < $chan(0)) {
    inc %i
    if ($chan(%i) != #Idle) {
      echo -t $chan(%i) $+(10* ,$left($me,1),,$right($me,$calc($len($me) - 1)),02) $1-
      .describe $chan(%i) $1-
    }
  }
}
Menu NickList {
  -
  Whois:whois $snick($chan,1)
  Kick:kick # $snick($chan,1)
  Ban:ban # $snick($chan,1) 3
  KickBan:ban -k # $snick($chan,1) 3
  -
  CTCP
  .PING:ctcp $snick($chan,1) PING
  .VERSION:ctcp $snick($chan,1) VERSION
  .TIME:ctcp $snick($chan,1) TIME
  DCC
  .CHAT:DCC CHAT $snick($chan,1)
  .SEND:DCC SEND $snick($chan,1)
  Control
  .Owner:mode $chan + $+ $str(q,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .DeOwner:mode $chan - $+ $str(q,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .Admin:mode $chan + $+ $str(a,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .DeAdmin:mode $chan - $+ $str(a,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .op:mode $chan + $+ $str(o,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .Deop:mode $chan - $+ $str(o,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .Halfop:mode $chan + $+ $str(h,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .DeHalfop:mode $chan - $+ $str(h,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .Voice:mode $chan + $+ $str(v,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .DeVoice:mode $chan - $+ $str(v,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  -
  Owner:mode $chan + $+ $str(q,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  DeOwner:mode $chan - $+ $str(q,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  Admin:mode $chan + $+ $str(a,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  DeAdmin:mode $chan - $+ $str(a,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  op:mode $chan + $+ $str(o,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  Deop:mode $chan - $+ $str(o,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  Halfop:mode $chan + $+ $str(h,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  DeHalfop:mode $chan - $+ $str(h,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  Voice:mode $chan + $+ $str(v,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  DeVoice:mode $chan - $+ $str(v,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  -
}
ON ^*:SNotice:*client connecting*:{
  haltdef
  echo -ts $chr(3) $+ 05 $+ $+(-,$nick,-) $1-
  if ($network == BetaIRC) { .timer 1 2 sajoin $9 #BetaIRC }
}
ON ^*:NICK:{
  haltdef  
  var %i = 0
  while (%i < $comchan($newnick,0)) {
    inc %i
    echo -t $comchan($newnick,%i) $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) is now known as $+(02,$left($newnick,1),,$right($newnick,$calc($len($newnick) - 1)))
  }
}
ON *:CONNECT:{
  echo -ast mIRC coded by Jdawg140
  .color backround 15 
}
ON *:BAN:#:{
  if ($banmask iswm $address($me,-2)) { mode $chan -b+b $banmask $address($nick,2) | inc %k | kick $chan $nick Dont ban me $chr(183) $bytes(%k,b) } 
}
ON *:START:{
  .timestamp -f 10|02hh:nn10|
}