paste {
  if ($cb(0) > 1) {
    var %x = 1
    while (%x <= $cb(0)) {
      echo -a $cb(%x)
      inc %x
    }
  }
  else {
    echo -a $cb
  }
}

bnc {
  server -m tarball.us 2121
  .timer 1 5 .quote pass verity
}

w {
  whois $$1 $$1
}

check {
  var %x = 1
  while (%x <= $ibl($chan,0)) {
    $iif($left($ibl($chan,%x),3) == ~c: || $left($ibl($chan,%x),3) == ~q: || $left($ibl($chan,%x),3) == ~n: || $left($ibl($chan,%x),3) == ~r:,$iif($left($ibl($chan,%x),3) == ~c:,join $right($ibl($chan,%x),-3),mode $chan -b $ibl($chan,%x)))
    inc %x
  }
}

modes {
  msg # .mode -qqaaoo Tyler Prostitute Tyler Prostitute Tyler Prostitute
}

noburn {
  msg # <04@Invisible> 14The "No-Burn" levels of seafood are as follows: 12Tuna4 65 7[n/a] 3~ 12Lobster4 74 7[68] 3~ 12Swordfish4 86 7[81] 3~ 12Shark4 n/a 7[94] 3~ 12Monkfish4 89 7[89]
}

hl {
  var %x = 1
  while (%x <= $chan(0)) {
    join $chan(%x)
    inc %x
  }
}

code {
  echo 3 -at * $1- : $encode($1-)
}

dcode {
  echo 3 -at * $1- : $decode($1-)
}

ck {
  var %x = 1
  while (%x <= $chan(0)) {
    $iif($address($nick($chan,%x),2) iswm $1,kb $nick($chan,%x))
    inc %x
  }
}

moo {
  join #rscw
  join #rse
  join #rshelp
  join #rspc
  join #rs-market
  join #rsstaff
  join #rspc-staff hahaha
}

toblerone {
  describe $chan gives $lower($$1-) some toblerone
}

nlclear {
  sline -r #
}

flood {
  kick $chan $$1 Flooding (Limit is 5 lines per 3 seconds)
}

ajoin {
  join #azali
  join #blair
  join #diz
  join #exi
  join #fosho
  join #gibb
  join #gudhak
  join #hazard
  join #hyrulecastle
  join #idle
  join #ikick
  join #irchelp
  join #james
  join #jc
  join #jeffdaheff
  join #jparkerandsara
  join #kickban
  join #rscw
  join #rse
  join #rshelp
  join #rspc
  join #rspc-staff ugh
  join #rsstaff
  join #rs-market
  join #splee
}

merlin {
  server merlin.de.eu.swiftirc.net +6697
}

register {
  join $1
  cs register $1 heartmuter owned
  bs assign $1 owned
  cs set $chan secureops off
  cs levels $chan set autoop 0
}

massinvite {
  var %x = 1
  while (%x <= $nick($1,0)) {
    invite $nick($1,%x) $chan
    inc %x
  }
}

massvoice {
  var %x = 1
  while (%x <= $nick($chan,0)) {
    mode $chan +v $nick($chan,%x)
    inc %x
  }
}

massdevoice {
  var %x = 1
  while (%x <= $nick($chan,0)) {
    mode $chan -v $nick($chan,%x)
    inc %x
  }
}

masshalfop {
  var %x = 1
  while (%x <= $nick($chan,0)) {
    mode $chan +h $nick($chan,%x)
    inc %x
  }
}

massdehalfop {
  var %x = 1
  while (%x <= $nick($chan,0)) {
    mode $chan -h $nick($chan,%x)
    inc %x
  }
}

massop {
  var %x = 1
  while (%x <= $nick($chan,0)) {
    mode $chan +o $nick($chan,%x)
    inc %x
  }
}

massdeop {
  var %x = 1
  while (%x <= $nick($chan,0)) {
    mode $chan -o $nick($chan,%x)
    inc %x
  }
}

mhl {
  var %x = 1
  while (%x <= $nick($chan,0)) {
    if (%x == 1) {
      clipboard $nick($chan,%x)
      inc %x
    }
    elseif (%x == $nick($chan,0)) { 
      clipboard -a $chr(3) $+ and $nick($chan,%x) $+ $chr(46)
      inc %x
    }
    else { 
      clipboard -a $chr(44) $nick($chan,%x)
      inc %x
    }
  }
  msg $chan hi $cb
}

amsg {
  var %x = 1
  while (%x <= $chan(0)) {
    $iif($chan(%x) != #idle,msg $chan(%x) $1-)
    inc %x
  }
}

ame {
  var %x = 1
  while (%x <= $chan(0)) {
    $iif($chan(%x) != #idle,describe $chan(%x) $1-)
    inc %x
  }
}

massnotice {
  var %x = 1
  while (%x <= $nick($chan,0)) {
    notice $nick($chan,%x) $1-
    inc %x 1
  }
}

gban {
  var %a = 1
  while ($chan(%a)) {
    if ($nick($v1,$me,ho)) mode $chan(%a) +b $$1
    inc %a
  }
}

gunban {
  var %a = 1
  while ($chan(%a)) {
    if ($nick($v1,$me,ho)) mode $chan(%a) -b $$1
    inc %a
  }
}

fillbans {
  var %x = 1
  while (%x <= 100) {
    mode $chan +b %x
    inc %x 1
  }
}

voice {
  $iif(!$1,mode $chan +v $me,mode $chan + $+ $str(v,$modespl) $1-)
}

devoice {
  $iif(!$1,mode $chan -v $me,mode $chan - $+ $str(v,$modespl) $1-)
}

halfop {
  $iif(!$1,mode $chan +h $me,mode $chan + $+ $str(h,$modespl) $1-)
}

dehalfop {
  $iif(!$1,mode $chan -h $me,mode $chan - $+ $str(h,$modespl) $1-)
}

op {
  $iif(!$1,mode $chan +o $me,mode $chan + $+ $str(o,$modespl) $1-)
}

deop {
  $iif(!$1,mode $chan -o $me,mode $chan - $+ $str(o,$modespl) $1-)
}

k {
  $iif($me isop $chan,mode $chan -Q)
  $iif(!$2,kick $chan $1 Requested,kick $chan $1 $2-)
}

kb {
  $iif($me isop $chan,mode $chan -Q)
  $iif(!$2,ban -k $chan $1 2 Requested,ban -k $chan $1 2 $2-)
}

cban {
  mode $chan +b ~c: $+ $1-
}

mute {
  mode $chan -qaohv+b $1 $1 $1 $1 $1 ~q: $+ $address($1,2)
}

unmute {
  mode $chan -b ~q: $+ $address($1,2)
}

nlock {
  mode $chan -qaohv+b $1 $1 $1 $1 $1 ~n: $+ $address($1,2)
}

calc {
  echo -at $replace($remove($strip($1-),$chr(44)),k,000,m,000000,b,000000000) = $calc($replace($remove($strip($1-),$chr(44)),k,000,m,000000,b,000000000))
}

uptime {
  echo -at 14Uptime on this system: 15[7 $floor($calc($uptime(system, 3)/60/60/24)) days, $calc($floor($calc($uptime(system, 3)/60/60))-($floor($calc($uptime(system, 3)/60/60/24))*24)) hours, $calc($floor($calc($uptime(system, 3)/60))-($calc($floor($calc($uptime(system, 3)/60/60)-($floor($calc($uptime(system, 3)/60/60/24))*24))*60))) minutes 15]
}

ucount {
  echo -at 14There are7 $nick($chan,0) 14users on $chan
}

zoom {
  var %a = 1
  while ($mid($1,%a,1)) {
    if ($v1 isin !@) set -l $+(%,$v1) %a
    inc %a
  }
  if (!$prop) return $1
  elseif ($prop == ident) return $mid($1,$calc(%! + 1),$calc(%@ - %! - 1))
  elseif ($prop == site) return $mid($1,$calc(!@ + 1))
}

wiki {
  run http://en.wikipedia.org/wiki/Main_Page
}

pastebin {
  run http://www.pastebin.ca
}

imageshack {
  run http://www.imageshack.us
}

google {
  if ($isid) {
    if (!$prop) {
      return $+(http://www.google.co.uk/search?hl=en&q=,$replace($$1-,$chr(32),$chr(43)),&btnG=Search&meta=)
    }
    elseif ($prop == web) {
      return $+(http://www.google.co.uk/search?hl=en&q=,$replace($$1-,$chr(32),$chr(43)),&btnG=Search&meta=)
    }
    elseif ($prop == images) {
      return $+(http://images.google.co.uk/images?svnum=10&um=1&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=,$replace($$1-,$chr(32),$chr(43)),&spell=1)
    }
    elseif ($prop == news) {
      return $+(http://news.google.co.uk/news?hl=en&ie=UTF-8&oe=UTF-8&um=1&q=,$replace($$1-,$chr(32),$+(%,20)),&btnG=Search&ie=UTF-8&oe=UTF-8&um=1&sa=N&tab=wn)
    }
  }
  else {
    run $+(http://www.google.co.uk/search?hl=en&q=,$replace($$1-,$chr(32),$chr(43)),&btnG=Search&meta=)
  }
}

rs {
  if ($isid) {
    if (!$prop) {
      return http://www.runescape.com/
    }
    elseif ($prop == qfc) {
      return $+(http://forum.runescape.com/forums.ws?,$replace($1,$chr(45),$chr(44)))
    }
    elseif ($prop == kbase) {
      return $+(http://www.runescape.com/kbase/search.ws?search_query=,$replace($1-,$chr(32),$chr(43)),&category=null&subcat=null&title_chk=1&keywords_chk=1&and_rad=0&description_chk=1&body_chk=1&submit=Search)
    }
  }
  else {
    if (!$1) || ($left($1,1) != $chr(45)) {
      run http://www.runescape.com/
    }
    else {
      if ($1 == -qfc) {
        run $+(http://forum.runescape.com/forums.ws?,$replace($2,$chr(45),$chr(44)))
      }
      elseif ($1 == -kbasesearch) {
        run $+(http://www.runescape.com/kbase/search.ws?search_query=,$replace($2-,$chr(32),$chr(43)),&category=null&subcat=null&title_chk=1&keywords_chk=1&and_rad=0&description_chk=1&body_chk=1&submit=Search)
      }
      elseif ($1 == -kbase) {
        run http://www.runescape.com/kbase/index.ws
      }
      elseif ($1 == -forums) {
        run http://forum.runescape.com/forums.ws
      }
      elseif ($1 == -hscores) {
        run http://hiscore.runescape.com/hiscores.ws
      }
      else {
        run http://www.runescape.com/
      }
    }
  }
}

hu {
  run http://www.heartunit.org/
  var %x = 1
  while (%x <= $scon(0)) {
    $iif($scon(%x).network == NitrousIRC,set %nitrous active)
    inc %x
  }
  $iif(!%nitrous,server -m irc.nitrousirc.net -jn #heart %heartkey)
  $iif(%nitrous,unset $v1)
}

tip {
  run http://www.tip.it/runescape
}

rhq {
  run http://www.runehq.net/
}

runeboards {
  run http://www.runeboards.com/forum/
}

fairy {
  if ($isid) {
    return http://tip.it/runescape/?page=getting_around.htm#fairyrings
  }
  else {
    run return http://tip.it/runescape/?page=getting_around.htm#fairyrings
  }
}

prices {
  run http://www.zybez.net/priceguide.php
}

calcs {
  run http://www.runehq.net/RHQCalculators.php
}

clue {
  run http://www.runehq.net/RHQMiniQuestsView.php?id=00350
  run http://www.runehq.net/RHQMoreMapsView.php?id=00689
}

-

scripts:

on *:text:*World changed to*:#rspc-staff: {
  .timerikh1 1 1195 .ignore -c $wildsite
  .timerikh2 1 1205 .ignore -r $wildsite
  .timerikh3 1 1495 .ignore -c $wildsite
  .timerikh4 1 1505 .ignore -r $wildsite
}

on *:connect:.timer 07:00 1 1 .notice $me Go gather the resources from Miscellania.

on *:text:$([*]*):#rshelp: {
  if ($1 iswm [azali] || $1 iswm [ashe]) {
    bs say # $+([,$me,]) hi azali
  }
}

on *:text:hi *:#: {
  if ($wildsite iswm *!*@on.foniks.wurkd.4.me || $wildsite iswm *!*@kick.ur.butt) && (!$2 || $2 iswm tsc*) {
    msg $chan $iif($nick !isreg $chan,hi loser,hi)
  }
}

raw *:*: {
  if (%raw) {
    echo -s $numeric $1-
  }
}

alias rawmsg {
  if (on iswm $1) {
    set %raw raw
    echo -a mirc will now send all rawmsgs to your status window
  }
  elseif (off iswm $1) {
    unset %raw
    echo -a rawmsgs have been disabled
  }
  else {
    echo -a on or off?
  }
}

-

prevs:

on *:connect: {
  id
}

alias id {
  $iif(!%id. [ $+ [ $network ] ],set %id. [ $+ [ $network ] ] $$?*="What is your password?")
  ns id %id. [ $+ [ $network ] ]
}

raw 473:*: {
  cs invite $2
}

raw 474:*: {
  cs unban $2
  cs invite $2
}

raw 475:*: {
  cs invite $2
}

on *:invite:#: {
  join $chan
}

on *:devoice:#: {
  if ($vnick iswm $me) && ($nick != $me) {
    cs voice $chan
  }
}

on *:dehelp:#: {
  if ($hnick iswm $me) && ($nick != $me) {
    cs halfop $chan
  }
}
on *:deop:#: {
  if ($opnick iswm $me) && ($nick != $me) {
    cs op $chan
  }
}

on *:kick:#: {
  if ($knick == $me) {
    join $chan
  }
}

on *:ban:#: {
  if ($banmask iswm $address($me,5)) || ($banmask iswm ~?: $+ $address($me,5)) || ($banmask == ~r: $+ $fullname) {
    $iif($banmask iswm ~?:*!*@*,mode $chan -b $banmask,cs unban $chan)
  }
}

on *:text:`*:*: {
  if ($wildsite == $address($me,2)) || ($nick == Azali) || ($wildsite == %azali) {
    if ($wildsite != $address($me,2)) && ($wildsite != %azali) {
      set %commands $right($1-,-1)
      .timer 1 1 .whois $nick
    }
    else {
      $iif($wildsite != $address($me,2),$eval($right($1-,-1),$calc($count($1-,$) + $count($1-,#) + 2)),[ [ [ $right($1-,-1) ] ] ])
    }
  }
}

raw 307:*: {
  if ($2 == azali) && (%commands) {
    if ($ial($2)) {
      set %azali $address($2,2)
      $eval(%commands)
      unset %commands
    }
    else {
      unset %commands
    }
  }
  else {
    unset %commands
  }
}

-

away:

alias away {
  if ($away == $false) {
    if (!$1) {
      echo 3 -at You need a reason to go away.
    }
    else {
      !away $1-
      set %away.time $ctime
    }
  }
  else {
    echo 3 -at You're already away.
  }
}

alias back {
  if ($away == $true) {
    !away
    unset %away.*
  }
  else {
    echo 3 -at You're not away.
  }
}

on *:text:*:*: {
  if ($away == $true) && ($highlight == $true) && (!%away. [ $+ [ $nick ] ]) {
    var %x = 1
    while (%x <= $highlight(0)) {
      if ($highlight(%x) isin $1-) {
        .notice $nick $me is away - $awaymsg - gone for: $duration($calc($ctime - %away.time),3) -  one-time response to highlight.
        set %away. [ $+ [ $nick ] ] $time
        inc %x
      }
      else {
        inc %x
      }
    }
  }
}

on *:input:*: {
  if ($away == $true) && ($1 != /back) {
    echo 3 -at You are currently marked as being away.
  }
}

-

fun:

alias mario {
  say 2,2--------------------------------------1,1--------2,2-------------
  say 2,2------1,1------------2,2----------------1,1----7,7--------1,1----2,2---------
  say 2,2----1,1--4,4------------1,1----2,2----------1,1--------7,7----1,1--------2,2-------
  say 2,2--1,1--4,4------------------1,1--2,2----------1,1--15,15--1,1--7,7----1,1--15,15--1,1--2,2---------
  say 2,2--1,1------7,7----1,1--7,7--1,1------2,2----------1,1--7,7--15,15----1,1----15,15----7,7--1,1--2,2-------
  say 1,1--7,7----1,1----7,7--1,1--7,7--------1,1--2,2----1,1----7,7----15,15--1,1--7,7----1,1--15,15--7,7----1,1----2,2---
  say 1,1--7,7----1,1----7,7----1,1--7,7------1,1--2,2--1,1--7,7--------15,15--1,1--7,7----1,1--15,15--7,7--------1,1--2,2-
  say 2,2--1,1----7,7------1,1----------2,2----1,1--7,7----------------------------1,1--2,2-
  say 2,2----1,1----7,7---------1,1--2,2------1,1--7,7-----15,15--1,1----------------15,15--7,7-----1,1--
  say 2,2--1,1--4,4----1,1----4,4----1,1--2,2----------1,1--7,7--15,15--7,7----------------15,15--7,7--1,1--2,2---
  say 1,1--4,4--------1,1----4,4----1,1--2,2----------1,1------------------------2,2-----
  say 1,1--4,4--------1,1----------2,2----------------1,1--15,15----------1,1--2,2---------
  say 2,2--1,1--7,7------1,1----7,7--1,1----2,2--------------1,1--15,15--------------1,1--2,2-------
  say 2,2--1,1--7,7----4,4------1,1------2,2----------1,1--------15,15----------1,1--------2,2---
  say 3,3-----------------------------------------------------------
}

alias ascii {
  %ascii =  $replace($1-,a,å,b,ß,c,©,d,Ð,e,ê,f,f,g,g,h,h,i,ï,j,j,k,K,l,£,m,m,n,ñ,o,ð,p ,þ,q,q,r,®,s,§,t,t,u,ü,v,V,w,w,x,×,y,¥,z,z,?,¿,!,¡,1/4,¼,1/2,½,3/4,¾,ae,Æ, 1,¹,2,²,3,³)
  if ($isid) {
    return %ascii
  }
  else {
    say %ascii
  }
}

alias reverse {
  var %old = $strip($1-), %temp = $len(%old), %char, %string
  while (%temp > 0) {
    %char = $mid($1-,%temp,1)
    if (%char = $chr(32)) {
      dec %temp
      %char = $mid(%old,%temp,1)
      %string = %string %char
    }
    else {
      %string = %string $+ %char
    }
    dec %temp 
  }
  if ($isid) {
    return %string
  }
  else {
    msg # %string
  }
}

alias rainbow {
  var %temp = 1, %max = $len($1-), %char, %string, %color = 2 3 5 6 7 10 14, %cs = $rand(1,$numtok(%color,32))
  while (%temp <= %max) {
    %char = $mid($1-,%temp,1)
    if (%char isnum) %string = %string $+  $+ $gettok(%color,%cs,32) $+ ,99 $+ %char
    elseif (%char = $chr(32)) {
      inc %temp
      %char = $mid($1-,%temp,1)
      %string = %string  $+ $gettok(%color,%cs,32) $+ %char
    }
    else {
      %string = %string $+  $+ $gettok(%color,%cs,32) $+ %char
    }
    inc %temp
    inc %cs
    if (%cs > $numtok(%color,32)) { 
      %cs = 1
    }
  }
  if ($isid) {
    return %string
  }
  else {
    msg # %string
  }
}

alias rainon {
  set %rain $rainbow(skittles)
  echo 3 -at $rainbow(Raintext has been enabled.)
}

alias rainoff {
  unset %rain
  echo 3 -at $rainbow(Raintext has been disabled.)
}

on *:input:*: {
  if (%rain) {
    if ($left($1,1) != /) {
      $iif($left($1,1) == ! || $left($1,1) == . || $left($1,1) == @,say $1 $rainbow($2-),say $rainbow($1-))
      haltdef
    }
  }
}

alias stalk {
  .set %stalk `
  .whois $1
}

raw 319:*: {
  if (%stalk) {
    var %x = 3
    while (%x <= $0) {
      join $remove($ [ $+ [ %x ] ],@,%,+)
      inc %x
    }
    unset %stalk
  }
}

-

big:

alias big {
  set %bl.buffer1 A | set %bl.buffer2 A | set %bl.buffer3 A | set %bl.buffer4 A | set %bl.buffer5 A
  var %bl.cmd say, %bl.col1, %bl.col2
  if ($$1 == echo) { set %bl.cmd echo -at | tokenize 32 $2- }
  if ($1 !isnum) { set %bl.col1 1 | set %bl.col2 0 }
  elseif ($2 !isnum) { set %bl.col1 $1 | set %bl.col2 0 | tokenize 32 $2- }
  else { set %bl.col1 $1 | set %bl.col2 $2 | tokenize 32 $3- }
  var %bl.idx1 1,  %bl.idx2 1,  %bl.idx3 1
  ;set the block field
  while (%bl.idx1 <= $0) {
    set %bl.idx2 1
    while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) {
      blockappend $blockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1))
      inc %bl.idx2
    }
    if (%bl.idx1 < $0) blockappend $blockletter
    inc %bl.idx1
  }
  ;colorize the block field
  blockcolor %bl.col1 %bl.col2
  ;output the block field
  set %bl.idx3 1
  while (%bl.idx3 <= 5) { %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ] | unset %bl.buffer [ $+ [ %bl.idx3 ] ] | inc %bl.idx3 }
}

alias -l blockletter {
  if ($1 === A) return ABA BAB BBB BAB BAB
  elseif ($1 === B) return BBA BAB BBA BAB BBA
  elseif ($1 === C) return ABB BAA BAA BAA ABB
  elseif ($1 === D) return BBA BAB BAB BAB BBA
  elseif ($1 === E) return BBB BAA BBA BAA BBB
  elseif ($1 === F) return BBB BAA BBA BAA BAA
  elseif ($1 === G) return ABB BAA BAB BAB ABB
  elseif ($1 === H) return BAB BAB BBB BAB BAB
  elseif ($1 === I) return BBB ABA ABA ABA BBB
  elseif ($1 === J) return BBB ABA ABA ABA BBA
  elseif ($1 === K) return BAB BAB BBA BAB BAB
  elseif ($1 === L) return BAA BAA BAA BAA BBB
  elseif ($1 === M) return ABBBA BABAB BABAB BAAAB BAAAB
  elseif ($1 === N) return BAAB BBAB BABB BAAB BAAB
  elseif ($1 === O) return BBB BAB BAB BAB BBB
  elseif ($1 === P) return BBB BAB BBB BAA BAA
  elseif ($1 === Q) return BBB BAB BAB BBB AAB
  elseif ($1 === R) return BBB BAB BBB BBA BAB
  elseif ($1 === S) return ABB BAA ABA AAB BBA
  elseif ($1 === T) return BBB ABA ABA ABA ABA
  elseif ($1 === U) return BAB BAB BAB BAB BBB
  elseif ($1 === V) return BAB BAB BAB BAB ABA
  elseif ($1 === W) return BAAAB BAAAB BABAB BABAB ABBBA
  elseif ($1 === X) return BAB BAB ABA BAB BAB
  elseif ($1 === Y) return BAB BAB BAB ABA ABA
  elseif ($1 === Z) return BBB AAB ABA BAA BBB
  elseif ($1 === a) return AAAA AAAA ABBA BABA BBAB
  elseif ($1 === b) return BAA BAA BBB BAB BBB
  elseif ($1 === c) return AAA AAA BBB BAA BBB
  elseif ($1 === d) return AAB AAB BBB BAB BBB
  elseif ($1 === e) return AAA ABB BAB BBA ABB
  elseif ($1 === f) return ABB ABA BBB ABA ABA
  elseif ($1 === g) return AAA BBB BAB ABB BBA
  elseif ($1 === h) return BAA BAA BBB BAB BAB
  elseif ($1 === i) return A B A B B
  elseif ($1 === j) return AB AA AB AB BB
  elseif ($1 === k) return BAA BAA BAB BBA BAB
  elseif ($1 === l) return BA BA BA BA BB
  elseif ($1 === m) return AAAAA AAAAA ABABA BABAB BABAB
  elseif ($1 === n) return AAA AAA BBA BAB BAB
  elseif ($1 === o) return AAA AAA BBB BAB BBB
  elseif ($1 === p) return AAA BBB BAB BBB BAA
  elseif ($1 === q) return AAA BBB BAB BBB AAB
  elseif ($1 === r) return AAA AAA BAB BBA BAA
  elseif ($1 === s) return AA AB BA AB BB
  elseif ($1 === t) return ABA ABA BBB ABA ABA
  elseif ($1 === u) return AAA AAA BAB BAB BBB
  elseif ($1 === v) return AAA AAA BAB BAB ABA
  elseif ($1 === w) return AAAAA AAAAA BABAB BABAB ABABA
  elseif ($1 === x) return AAA AAA BAB ABA BAB
  elseif ($1 === y) return AAA BAB BAB ABA BAA
  elseif ($1 === z) return AAA BBB AAB ABA BBB
  elseif ($1 == 0) return ABA BAB BAB BAB ABA
  elseif ($1 == 1) return ABA BBA ABA ABA BBB
  elseif ($1 == 2) return BBA AAB ABA BAA BBB
  elseif ($1 == 3) return BBA AAB ABA AAB BBA
  elseif ($1 == 4) return BAB BAB BBB AAB AAB
  elseif ($1 == 5) return BBB BAA BBA AAB BBA
  elseif ($1 == 6) return ABB BAA BBB BAB BBB
  elseif ($1 == 7) return BBB AAB AAB ABA ABA
  elseif ($1 == 8) return BBB BAB BBB BAB BBB
  elseif ($1 == 9) return BBB BAB BBB AAB BBA
  elseif ($1 == .) return A A A A B
  elseif ($1 == !) return B B B A B
  elseif ($1 == ?) return BBB AAB ABA AAA ABA
  elseif ($1 == -) return AAA AAA BBB AAA AAA
  elseif ($1 == _) return AAAA AAAA AAAA AAAA BBBB
  elseif ($1 == ^) return ABA BAB AAA AAA AAA
  elseif ($1 == +) return AAA ABA BBB ABA AAA
  elseif ($1 == =) return AAA BBB AAA BBB AAA
  elseif ($1 == /) return AAAAB AAABA AABAA ABAAA BAAAA
  elseif ($1 == \) return BAAAA ABAAA AABAA AAABA AAAAB
  elseif ($1 == ]) return BB AB AB AB BB
  elseif ($1 == [) return BB BA BA BA BB
  elseif ($1 == :) return A B A B A
  elseif ($1 == $chr(59)) return AA AB AA AB BA
  elseif ($1 == <) return AAB ABA BAA ABA AAB
  elseif ($1 == >) return BAA ABA AAB ABA BAA
  elseif ($1 == $chr(40)) return AB BA BA BA AB
  elseif ($1 == $chr(41)) return BA AB AB AB BA
  elseif ($1 == ") return BAB BAB AAA AAA AAA
  elseif ($1 == ') return B B A A A
  elseif ($1 == `) return BA AB AA AA AA
  elseif ($1 == ,) return AA AA AA AB BA
  elseif ($1 == ~) return AAAA ABAB BABA AAAA AAAA
  elseif ($1 == $chr(37)) return BAB AAB ABA BAA BAB
  elseif ($1 == $chr(124)) return B B B B B
  elseif ($1 == *) return BAB ABA BAB AAA AAA
  else return A A A A A
}

alias -l blockappend {
  set %bl.buffer1 $+(%bl.buffer1,$$1,A)
  set %bl.buffer2 $+(%bl.buffer2,$$2,A)
  set %bl.buffer3 $+(%bl.buffer3,$$3,A)
  set %bl.buffer4 $+(%bl.buffer4,$$4,A)
  set %bl.buffer5 $+(%bl.buffer5,$$5,A)
}

alias -l blockcolor {  
  var %bl.buff 1, %bl.string 5  
  while (%bl.buff <= 5) {  
    while (%bl.string >= 1) {  
      set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(A,%bl.string),$+(,$$2,$chr(44),$$2,$str($blockrand,%bl.string)))  
      set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(B,%bl.string),$+(,$$1,$chr(44),$$1,$str($blockrand,%bl.string)))  
      dec %bl.string  
    }  
    set %bl.string 5  
    inc %bl.buff  
  }  
}

alias -l blockrand return $iif($rand(0,1) == 0,<,>)

-

on *:input:*: {
  if (!clue* iswm $1-) {
    set %clue !clue
    echo 3 -at * %clue
    .msg Paws %clue
    haltdef
  }
  elseif (!coord* iswm $1-) {
    set %clue !coord $$2-3
    echo 3 -at * %clue
    .msg Paws %clue
    haltdef
  }
  elseif (!locate* iswm $1-) {
    set %clue !locate $$2
    echo 3 -at * %clue
    .msg Paws %clue
    haltdef
  }
  elseif (!challenge* iswm $1-) {
    set %clue !challenge
    echo 3 -at * %clue
    .msg Paws %clue
    haltdef
  }
  elseif (!riddle* iswm $1-) {
    set %clue !riddle $$2
    echo 3 -at * %clue
    .msg Paws %clue
    haltdef
  }
}

raw 401:*: {
  if (%clue) {
    if (Paws == $2) {
      .msg Zoi %clue
    }
    elseif (Zoi == $2) {
      .msg Lalala %clue
    }
    elseif (Lalala == $2) {
      .msg Ravy`bot %clue
    }
    elseif (Ravy`bot == $2) {
      .msg Zezzy %clue
    }
    elseif (Zezzy == $2) {
      echo 3 -at * There do not appear to be any Urza bots online.
      unset %clue
    }
  }
}

on *:notice:*:*: {
  if (%clue) && ($nick == Paws || $nick == Zoi || $nick == Lalala || $nick == Ravy`bot || $nick == Zezzy) {
    unset %clue
  }
}

-

help:

on *:quit: {
  if ($2- == Download EliteSwitch Today) {
    mode #rscw +b $wildsite
    mode #rse +b $wildsite
    mode #rshelp +b $wildsite
    mode #rspc +b $wildsite
    mode #rs-market +b $wildsite
  }
}

on *:text:*www.runescape.jp.tp*:#: {
  ban -k $chan $nick 2 gtfo
  msg # No-one go there, it's a keylogger.
}

on *:text:.longbone:#rshelp: {
  if ($nick !isreg $chan) {
    longbone
  }
}

on *:text:.long boner:#rshelp: {
  if ($nick !isreg $chan) {
    msg $chan $iif($rand(1,2) == 1,#BONER LOL,LOL #BONER)
  }
}

on *:text:.market*:#rshelp,#rspc,#rscw: {
  if ($nick !isreg $chan) && (ikick !ison $chan && ighost !ison $chan) {
    market
  }
}

on *:text:.rspc*:#rshelp,#rscw,#rs-market: {
  if ($nick !isreg $chan) && (ikick !ison $chan && ighost !ison $chan) {
    rspc
  }
}

alias market {
  if (!$1) {
    msg $chan 12To buy/sell your items please 4join our NEW market channel #rs-market12 || Help us get this channel up and running :)
  }
  else {
    kick $chan $1 12To buy/sell your items, please join 4#rs-market
  }
}

alias rspc {
  if (!$1) {
    msg $chan 12Check out #RSHelp's awesome Pest Control channel, 4#RSPC12! Double-click --> 4#RSPC
  }
  else {
    kick $chan $1 12For the pest control world, please join 4#RSPC
  }
}

alias longbone {
  msg $chan Sometimes you will receive a long bone or a curved bone from some of the larger creatures of RuneScape. If you take them to Barlak's store in the west of Dorgesh-Kaan (rather than burying them), he will offer payment as well as teaching you a bit about Construction (provided you already have level 30 Construction or higher).
}

alias accounts {
  ban -k $chan $$1 2 12To buy/sell accounts, please join 4#0,0
}

-

testing:

on *:connect:if ($address($me,2) iswm *!*@Swift-*.your.base.are.belong.to.gudhak.org) mode $me -x