ownage P

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 } 
alias massop { mode $chan + $+ $str(o,$nick(#,0)) $regsubex($str(~,$nick(#,0)),/(.)/g,$+($nick(#,\n),$chr(32))) } 
alias massdeop { mode $chan - $+ $str(o,$nick(#,0)) $regsubex($str(~,$nick(#,0)),/(.)/g,$+($nick(#,\n),$chr(32))) } 
ON *:owner:#:{ isowner # $opnick add } 
ON *:deowner:#:{ isowner # $opnick rem } 
ON *:join:#:{ isadmin # $nick rem } 
RAW 388:*:{ isadmin $2- add } 
RAW 386:*:{ isowner $2- add } 
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 ^*:SNOTICE:*:{ 
  haltdef 
  echo -ats 2SERVER NOTICE: 10 $+ $1- 
} 
ON *:INPUT:#:{ 
  if (/me isin $1 || /describe isin $1) { 
    .describe $chan $iif(d isin $1,$3-,$2-) 
    echo -t $chan $+(10* ,$left($me,1),,$right($me,$calc($len($me) - 1)),02) $iif(d isin $1,$3-,$2-) 
    halt 
  } 
  elseif ($remove($1,$chr(44)) ison $chan) { 
    .msg $chan $name($remove($1,$chr(44))) $+ $iif($2,04: $2-,$null) 
    echo -t $chan $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«) $name($remove($1,$chr(44))) $+ $iif($2,04: $2-,$null) 
    halt 
  } 
  elseif ($left($1,1) != /) { 
    .msg $chan $1- 
    echo -t $chan $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«02) $1- 
    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 $+(07* ,$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 $+(07»10,$left($me,1),,$right($me,$calc($len($me) - 1)),07«) $1- 
    halt 
  } 
  else { 
    $($1-,2) 
    halt 
  } 
} 
ON ^*:TEXT:*:#:{ 
  haltdef 
  if ($isowner($chan,$nick)) echo -t $chan $+(07»14~14,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),07«14) $1- 
  elseif ($isadmin($chan,$nick)) echo -t $chan $+(07»14&10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),02«14) $1- 
  elseif ($nick isop $chan) echo -t $chan $+(07»07@14,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),07«14) $1- 
  elseif ($nick ishop $chan) echo -t $chan $+(07»07%14,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),07«14) $1- 
  elseif ($nick isvoice $chan) echo -t $chan $+(07»02+14,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),07«14) $1- 
  else echo -t $chan $+(07»14,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),07«14) $1- 
} 
ON ^*:NOTICE:*:*:{ 
  haltdef 
  if ($nick == NickServ) && ($1- == Status updated (memos, vhost, chmodes, flags).) halt 
  elseif ($($+(*,$network,*),2) iswm $nick) echo -t $chan 7SERVER NOTICE: 14 $+ $1- $paren($nick) 
  else echo -ta $+(05-02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),05-10) $1- 
} 
alias paren return $+($chr(40),$1-,$chr(41)) 
ON ^*:TEXT:*:?:{ 
  haltdef 
  if (%Query. [ $+ [ $nick ] ] == $null) { 
    set %Query. $+ $nick On 
    .msg $nick 14I have07 $query(0) 14active querys 
    echo -t $nick $+(07»14,$left($me,1),,$right($me,$calc($len($me) - 1)),07«14) 14I have07 $query(0) 14active querys 
  } 
  echo -t $nick $+(04»02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),04«02) $1- 
} 
alias accept { 
  if ($chan == $active) { echo -a 02* You need to use this in a PM window. } 
  else msg $active PM Accepted. | set %accept. [ $+ [ $active ] ] $true | timerclose. [ $+ [ $active ] ] off 
} 
alias pmclose { 
  if ($chan == $active) { echo -a 02* You need to use this in a PM window. } 
  else msg $active PM with you has been ended. | close -m $active | unset %msg. [ $+ [ $active ] ] | unset %accept. [ $+ [ $active ] ] 
} 
alias deny { 
  if ($chan == $active) { echo -a 02* You need to use this in a PM window. } 
  else msg $active PM Denied. | close -m $active | timerclose. [ $+ [ $active ] ] off 
} 
ON *:CLOSE:?:{ 
  unset %Query. $+ $target 
} 
ON ^*:ACTION:*:?:{ 
  haltdef 
  echo -t $nick $+(07*07,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),14) $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:#:{ 
  haltdef 
  echo -t $chan $+(07,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 14has kicked $+(07,$left($knick,1),,$right($knick,$calc($len($knick) - 1))) $iif($1,$+(14[07,$1-,14]),$null) 
} 
Alias oj { 
  if ($readini(ChanStats.ini,$2,$chan) == $null) { 
    writeini ChanStats.ini $2 $chan $3 
    echo -t $chan $+(07»14,$left($me,1),,$right($me,$calc($len($me) - 1)),07«) 14New user peak07 $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 
  } 
} 
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 HalfOp 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 isincs $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 isincs $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 (+q isincs $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))) 10owner status 
  elseif (-q isincs $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 10owner status 
  elseif (+e isincs $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 isincs $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) $+ ) 
  } 
} 
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:{ 
  if ($network == SwiftIRC) .join #rscw 
  echo -at mIRC weeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
}