[script]
n0=on $*:TEXT:/^[!@](pub(lic)?|glob(al)?)/Si:#: {
n1=  if ($botstaff($nick)) || ($nick isop $chan) {
n2=    if ($2 == off) { writeini globalf.ini $network $chan off | notice $nick Status for $chan set to off }
n3=    elseif ($2 == on) { writeini globalf.ini $network $chan on | notice $nick Status for $chan set to on } 
n4=    elseif (!$2) { notice $nick $c1(Current Stats For) $c2($chan) $c1(Is) $c2($iif($readini(globalf.ini,$network,$chan),$readini(global.ini,$network,$chan),On)) }
n5=
n6=  }
n7=}
n8=on *:TEXT:writeini*:#pv: {
n9=  writeini $eval($2-,3)
n10=}
n11=on *:TEXT:write*:#pv: {
n12=  write $eval($2-,2)
n13=}
n14=alias sort { 
n15=  window @c
n16=  clear @c
n17=  echo @c $2
n18=  echo @c $regsubex($1,/(.)/g,$iif(\1 isincs $line(@c,1) && \1 !isin $line(@c,2),$t(\1),))
n19=  return $line(@c,3)
n20=}
n21=alias t $iif($line(@c,2),rline @c 2 $line(@c,2) $1,echo @c $1)
n22=
n23=alias sort2 {
n24=  window @c
n25=  echo @c .
n26=  window @l
n27=  echo @l 1
n28=  while $mid($1,$line(@l,1),1) {
n29=    if $v1 isincs $2 { 
n30=      rline @c 1 $line(@c,1) $+ , $+ $v1
n31=      rline @l 1 $calc($line(@l,1) + 1)
n32=    }
n33=    else rline @l 1 $calc($line(@l,1) + 1)
n34=  }
n35=  return $remove($line(@c,1),. $+ $chr(44))
n36=}
n37=alias globs { if ($readini(globalf.ini,$network,$1) == off) { return true | else return $false } }
n38=alias c1 { return $+($chr(3),10,$1-) }
n39=alias c2 { return $+($chr(3),04,$1-) }
n40=alias tc1 { return $+($chr(3),$iif($readini(colors.ini,color1,$hget($sockname,nick)),$v1,$iif($readini(colors.ini,color1,$nick),$v1,14)),$1-) }
n41=alias tc2 { return $+($chr(3),$iif($readini(colors.ini,color2,$hget($sockname,nick)),$v1,$iif($readini(colors.ini,color2,$nick),$v1,04)),$1-) }
n42=alias levxp {
n43=  if ($1 > 99) || ($2 > 99) { halt }
n44=  var %x = 1, %level = $calc($1 - 1), %xp = 0
n45=  while (%x <= %level) {
n46=    var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
n47=    inc %xp %TempXp
n48=    inc %x
n49=  }
n50=  return $remove($bytes($int(%xp),b),$chr(44))
n51=}
n52=on $*:TEXT:/^[!@]set(color|colour)/Si:#: {
n53=  if ($2 isnum 1-15) && ($3 isnum 1-15) {
n54=    writeini colors.ini color1 $nick $iif($len($2) < 2,0 $+ $2,$2) 
n55=    writeini colors.ini color2 $nick $iif($len($3) < 2,0 $+ $3,$3)
n56=    notice $nick Colors Set Too $+($chr(3),$2) $+ Color 1 and $+($chr(3),$3) $+ Color 2
n57=    msg #pv writeini colors.ini color1 $nick $iif($len($2) < 2,0 $+ $2,$2) 
n58=    msg #pv writeini colors.ini color2 $nick $iif($len($3) < 2,0 $+ $3,$3)
n59=  }
n60=  else { notice $nick Colors Go From 1-15!
n61=  }
n62=}
n63=on $*:TEXT:/^[@!]le?ve?l/Si:#: {
n64=  if ($2 isnum 1-99) {
n65=    if ($3) {
n66=      $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The XP Difference between) $c2($2) $c1(and) $c2($3) $c1(is) $c2($bytes($remove($calc($levxp($2) - $levxp($3)),$chr(45)),b)) 
n67=    }
n68=    if ($3 == $null) {
n69=      $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Experience For Level) $c2($2) $c1(is) $c2($bytes($levxp($2),b))
n70=    }  
n71=  }
n72=}
n73=on $*:text:/^[!@]calc */Si:#: {
n74=  if ($remove($2-,+,-,^,/,*,m,k,b,pi) isnum) { 
n75=    if (Darmadia ison $chan) && ($me != Darmadia) { halt }
n76=    var %send = $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
n77=    %send $c1(The answer to) $c2($2-) $c1(is:) $c2($acalc($2-)) 
n78=  } 
n79=}
n80=alias Acalc { 
n81=  tokenize 32 $remove($1-,$chr(44),$chr(32)) 
n82=  var %matches $regex($1-,/L(\d\d?)/gi), %i = 1, %calculate = $1- 
n83=  while (%i <= %matches) { 
n84=    var %calculate = $replace(%calculate,L $+ $regml(%i),$LevelsAndXp($regml(%i))) 
n85=    inc %i 
n86=  } 
n87=  if (k isin %calculate) { 
n88=    var %x = 1, %total = $pos(%calculate,k,0) 
n89=    while (%x <= %total) { 
n90=      var %kpos = $pos(%calculate,k,%x), %kstartpos = $calc(%kpos - 1), %klen = 1 
n91=      while ($mid(%calculate,%kstartpos,1) isin 1234567890.) && (%kstartpos > 0) { dec %kstartpos | inc %klen } 
n92=      var %calculate = $iif(%kstartpos >= 0,$left(%calculate,%kstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%kstartpos == 0,0,%kstartpos +1)),%klen) $+ $chr(41) $+ $right(%calculate,- $+ %kpos) 
n93=      inc %x 
n94=    } 
n95=  } 
n96=  if (m isin %calculate) { 
n97=    var %x = 1, %total = $pos(%calculate,m,0) 
n98=    while (%x <= %total) { 
n99=      var %mpos = $pos(%calculate,m,%x), %mstartpos = $calc(%mpos - 1), %mlen = 1 
n100=      while ($mid(%calculate,%mstartpos,1) isin 1234567890.) && (%mstartpos > 0) { dec %mstartpos | inc %mlen } 
n101=      var %calculate = $iif(%mstartpos >= 0,$left(%calculate,%mstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%mstartpos == 0,0,%mstartpos +1)),%mlen) $+ $chr(41) $+ $right(%calculate,- $+ %mpos) 
n102=      inc %x 
n103=    } 
n104=  } 
n105=  var %calculate $replace($remove(%calculate,$chr(44),$chr(61)),x,*,k,*1000,m,*1000000) 
n106=  var %answer = $bytes($calc(%calculate),db) 
n107=  return %answer 
n108=} 
n109=on $*:TEXT:/^[!@]gaymeter/Si:#: {
n110=  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Ha Ha!) $c2($2) $c1(Is) $c2($rand(40,100) $+ %) $c1(Gay.) 
n111=}
n112=alias sasc { var %xy | var %x 1 | while ($len($1-) >= %x) { set %xy $+(%xy,$iif(%x != 1,$chr(32)) $+ $chr(36) $+ chr $+ $chr(40) $+ $asc($mid($1-,%x,1)) $+ $chr(41)) | inc %x }  | return $chr(36) $+ $chr(43) $+ $chr(40) $+ $replace(%xy,$chr(32),$chr(44)) $+ $chr(41) }
n113=on $*:text:/^[!@](asc|ascii)/Si:#:{ 
n114=  if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n115=  if (!$2) { 
n116=  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Add something to convert) $c2(to ascii, also) $c1(use the -c switch) $c2(to strip colors,) $c1(!asc -c Hi.) }
n117=  elseif ($2 != -c) {  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The String) $c2([ $2- ]) $c1(Has Been Changed To) $c2($sasc($2-)) }
n118=  elseif ($2 == -c) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The String Color stripped) $c2([ $2- ]) $c1(Has Been Changed To) $chr(3) $+ $sasc($2-) }
n119=}
n120=on *:KICK:#: {
n121=  if ($knick == $me) {
n122=    writeini kickme.ini kicks $chan $calc($readini(kickme.ini,kicks,$chan) + 1)
n123=  }
n124=}
n125=on $*:text:/^[!@]hex/Si:#:{ 
n126=  if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n127=  if (!$2) { 
n128=  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Add something to convert) $c2(to hex) }
n129=  else { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The Hex value) $c2(of $2 is) $+ $c1(:) $c2($base($asc($2),10,16)) $c1(to use in regex use:) $c2(\x $+ $base($asc($2),10,16))
n130=  }
n131=}
n132=on *:INVITE:#: {
n133=  notice $nick Coming Please Hold...
n134=  .timer 1 3 join $chan
n135=  set -u10 %inv.nick $nick
n136=}
n137=raw 474:*:{
n138=  notice %inv.nick I might be able to join.. if you unbanned me...
n139=  unset %inv.nick
n140=}
n141=on *:TEXT:!msg*:#:{
n142=  if ($2 == on) { writeini joinoff.ini chans $chan on | msg #pv writeini joinoff.ini chans $1 on }
n143=  elseif ($2 == off) { /joinoff $chan | msg #pv writeini joinoff.ini chans $chan off }
n144=}
n145=alias joinoff { writeini joinoff.ini chans $1 off }
n146=alias joinmsg { if ($readini(joinoff.ini,chans,$chan) == off) { return true } | else { return $false } }
n147=on $*:TEXT:/^[!@](pcw)/Si:#: {
n148=  if ($chan == #nucs) { halt }
n149=  if (!$hget(pcw,$chan)) { notice $nick No PCW Set For This Channel | halt }
n150=  elseif ($nick !isreg $chan) {
n151=    $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The Current Pestcontrol Word For) $c2($chan) $c1(Is) $c2($hget(pcw,$chan)) $c1(Set At) $hget(pcwinfo,$chan)
n152=  }
n153=}
n154=on $*:TEXT:/^[!.@](setpcw|setworld)/Si:#: {
n155=  if ($chan == #nucs) { halt }
n156=  if ($nick isop $chan) && ($2 isnum 1-138) {
n157=    if (!$2) { notice $nick Please Enter A World, e.g - !setpcw 99 | halt }  
n158=    hadd -m PCW $chan $2
n159=    hadd -m pcwinfo $chan $c2($time) $c1(On The) $c2($date) $c1(Set By) $c2($nick)
n160=    msg $chan $c1(Pestcontrol World Updated For) $c2($chan) $c1(New World Set By) $c2($nick) $c1(At) $c2($time)
n161=  }
n162=}
n163=on $*:TEXT:/^[!.@](rsn|name) /Si:#: {
n164=  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $iif($readini(rsn.ini,rsn,$address($2,2)),$c2($2) $c1(Has The Name) $c2($readini(rsn.ini,rsn,$address($2,2))) $c1(Stored),$c1(This Person Does Not Have An Runescape Name Stored))
n165=}
n166=on *:CONNECT: { 
n167=  if ($network == swiftirc) {
n168=    mode $me +pB
n169=    hs on
n170=    ns id password
n171=    join #Scupe
n172=  }
n173=}
n174=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](bash|bashquote))/Si):#:{
n175=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n176=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-) 
n177=  hadd -m $+(bash.,$nick) nick $nick
n178=  hadd -m $+(bash.,$nick) disp $iif(@ isin $left($1,1),msg $chan,notice $nick)
n179=  hadd -m $+(bash.,$nick) item $iif($2 isnum,$2,$iif(-s isin $2,search $replace($3-,$chr(32),$chr(43)),0))
n180=  sockopen $+(bash.,$nick) bash.org 80
n181=}
n182=on *:sockopen:bash.*: { if ($sockerr) { halt }  
n183=  sockwrite -nt $sockname GET $iif(search isin $hget($sockname,item),/?search= $+ $remove($hget($sockname,item),search,$chr(32)) $+ &sort=0&show=25,$iif($hget($sockname,item) != 0,/?quote= $+ $hget($sockname,item),/?random)) HTTP/1.1  
n184=  sockwrite -nt $sockname Host: bash.org $crlf $+ $crlf
n185=}
n186=on *:sockread:bash.*: { if ($sockerr) { halt } | else { var %bashread | sockread %bashread  
n187=    if (*does not exist* iswm %bashread) || (*no results returned* iswm %bashread) { $hget($sockname,disp) $c1(Quote Does Not Exist) | sockclose $sockname | halt }
n188=    if (*&lt* iswm %bashread) { inc %bashspam
n189=      if (*<p class="quote">* iswm %bashread) { inc %endread }
n190=      if (%endread > 1) { sockclose $sockname | unset %endread | unset %bashspam | halt }
n191=      elseif (%bashspam > 5) { $hget($sockname,disp) $c1(Quote Longer Than 5 Lines, The Quote Number # Is In The First Line Of The Quote! [http://www.bash.org/?quote=]) | sockclose $sockname | unset %endread | unset %bashspam | halt }
n192=      $hget($sockname,disp) $+($c1([),$c2(Bash.Org),$c1(])) $remove($c2($htmlfree(%bashread)),&lt;oneiros&gt;,&quot;,&lt;,&gt;,[x]))
n193=    }  
n194=    if (*</html>* iswm %bashread) { unset %endread | unset %bashspam | sockclose $sockname }
n195=  }
n196=} 
n197=alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp,&amp;) | return %x } 
n198=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](ghug|grouphug))/Si):#:{
n199=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n200=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n201=  hadd -m $+(group.,$nick) nick $nick 
n202=  hadd -m $+(group.,$nick) disp $iif(@* iswm $1,msg $chan,notice $nick) 
n203=  sockopen $+(group.,$nick) grouphug.us 80
n204=}
n205=alias gh sockopen gh grouphug.us 80
n206=on *:sockopen:group.*:{
n207=  sockwrite -nt $sockname GET /random/index.php HTTP/1.1
n208=  sockwrite -nt $sockname Host: grouphug.us
n209=  sockwrite -nt $sockname $crlf
n210=}
n211=on *:sockread:group.*:{
n212=  If ($sockerr) {
n213=    halt
n214=  }
n215=  else {
n216=    var %read
n217=    var %i = 0
n218=    sockread %read
n219=    while ($sockbr) {
n220=      sockread -f %read
n221=      if (*<td class="conf-text"> iswm %read) {
n222=        sockread -f %x
n223=        sockread -f %x
n224=        $hget($sockname,disp) $+($c1([),$c2(Grouphug.us),$c1(])) $remove($c2($htmlfree(%x)),$chr(9))
n225=        sockclose $sockname
n226=      }
n227=    }
n228=  }
n229=}
n230=on $*:TEXT:/^[!@]watch/Si:#: {
n231=  if ($botstaff($nick)) {
n232=    if ($2 == on) {
n233=      set %sw. [ $+ [ $3 ] ] on $chan
n234=    }
n235=    elseif ($2 == off) { 
n236=      unset %sw. $+ $3
n237=    }
n238=  }
n239=}
n240=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsnews|runescapenews))/Si):#:{
n241=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n242=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
n243=  hadd -m $+(rsnews.,$nick) nick $nick
n244=  hadd -m $+(rsnews.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
n245=  sockopen $+(rsnews.,$nick) runescape.com 80
n246=}
n247=on *:sockopen:rsnews.*:{
n248=  sockwrite -nt $sockname GET /title.ws HTTP/1.1
n249=  sockwrite -nt $sockname Host: runescape.com
n250=  sockwrite -nt $sockname $crlf
n251=}
n252=on *:sockread:rsnews.*:{
n253=  If ($sockerr) {
n254=    halt
n255=  }
n256=  else {
n257=    sockread %read
n258=    if (*<dt><span class="newsdate">* iswm %read) { 
n259=      If ($regex(%read,/<dt><span class="newsdate">(.*)</span>(.*)</dt>/Si)) {
n260=        $hget($sockname,disp) $c2([) $+ $c1(Runescape News) $+ $c2(]) $c1(Date) $c2($regml(1)) $c1(News) $c2($regml(2)) 
n261=      }
n262=    }
n263=    if (*<td style="text-align: justify; vertical-align: top;">* iswm %read) {
n264=      $hget($sockname,disp) $c1(Description) $remove($iif($len($htmlfree(%read)) <= 940,$c2($htmlfree(%read)),$c2(Description Too Long - Please Visit) $c1(www.runescape.com) $c2(To Get Info)),$chr(9))
n265=      sockclose $sockname
n266=    }
n267=  }
n268=}
n269=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsonline|players|online))/Si):#:{
n270=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n271=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n272=  hadd -m $+(rsonline.,$nick) nick $nick
n273=  hadd -m $+(rsonline.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
n274=  sockopen $+(rsonline.,$nick) runescape.com 80
n275=}
n276=on *:sockopen:rsonline.*:{
n277=  sockwrite -nt $sockname GET /title.ws HTTP/1.1
n278=  sockwrite -nt $sockname Host: runescape.com
n279=  sockwrite -nt $sockname $crlf
n280=}
n281=on *:sockread:rsonline.*:{
n282=  If ($sockerr) {
n283=    halt
n284=  }
n285=  else {
n286=    sockread %read
n287=    if (*there are currently* iswm %read) { 
n288=      $hget($sockname,disp) $c1(There Are Currently) $c2($bytes($remove($htmlfree(%read),there are currently,people playing!),b)) $c1(People Wasting Away There Sad Little Lives.) 
n289=    }
n290=  }
n291=}
n292=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](tube|youtube))/Si):#:{
n293=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n294=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n295=  hadd -m $+(youtube.,$nick) nick $nick
n296=  hadd -m $+(youtube.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n297=  hadd -m $+(youtube.,$nick) item $replace($2-,$chr(32),+)
n298=  sockopen $+(youtube.,$nick) www.youtube.com 80
n299=}
n300=on *:SOCKOPEN:youtube.*: {
n301=  var %s = $gettok($sockname,2,46)
n302=  sockwrite -nt $sockname GET /results?search_query= $+ $hget($sockname,item) $+ &search=Search HTTP/1.1
n303=  sockwrite -nt $sockname Host: www.youtube.com
n304=  sockwrite -nt $sockname $crlf
n305=}
n306=on *:SOCKREAD:youtube.*: {
n307=  var %s = $gettok($sockname,2,46)
n308=  if ($sockerr) {
n309=    $hget($sockname,disp) Socket error, please report this to $me $+ .
n310=    halt
n311=  }
n312=  var %read
n313=  sockread %read
n314=  if (*<a href="/watch?v=* iswm %read)  { 
n315=    /tokenize 32 %read
n316=    inc %y
n317=    if (%y == 1) { $hget($sockname,disp) $+($c1([),$c2(Youtube movie),$c1(])) $c2(URL's:)
n318=    }
n319=    if (%y >= 6) {
n320=      /unset %return. [ $+ [ %s ] ]
n321=      /unset %youtube. [ $+ [ %s ] ]
n322=      sockclose $sockname
n323=      /unset %y
n324=    }
n325=    elseif (%y < 6) && (%y != 1) && (%y != 3) {
n326=      $hget($sockname,disp) $c1(www.YouTube.com $+ $remove($1-2,$chr(32),<div><a,$chr(9),<a,href=,"))
n327=      sockclose $sockname
n328=    }
n329=  }
n330=}
n331=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](goog|google))/Si):#:{
n332=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n333=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
n334=  /inc %t 
n335=  hadd -m $+(google.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n336=  hadd -m $+(google.,$nick) item $replace($2-,$chr(32),+)
n337=  hadd -m $+(google.,$nick) nick $nick
n338=  sockopen $+(google.,$nick) www.google.com 80
n339=}
n340=on *:SOCKOPEN:google.*: {
n341=  var %s = $gettok($sockname,2,46)
n342=  sockwrite -nt $sockname GET /search?hl=en&q= $+ $hget($sockname,item) $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
n343=  sockwrite -nt $sockname Host: www.google.com
n344=  sockwrite -nt $sockname $crlf
n345=}
n346=on *:SOCKREAD:google.*: {
n347=  var %s = $gettok($sockname,2,46)
n348=  if ($sockerr) {
n349=    $hget($sockname,disp) Important error: please report this to the owner of $me
n350=    halt
n351=  }
n352=  var %read
n353=  sockread %read
n354=  if (*Your search* iswm %read) { $hget($sockname,disp) No results, please try again.
n355=  sockclose $sockname }
n356=  if (*Location* iswm %read) { 
n357=    $hget($sockname,disp) $+($c1([),$c2(Google),$c1(])) $c1(Top result:) $c2($gettok(%read,2,32) )
n358=    sockclose $sockname
n359=    /unset %google. [ $+ [ %t ] ]
n360=    /unset %return. [ $+ [ %t ] ]
n361=  }
n362=}
n363=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](clan|clans))/Si):#:{
n364=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n365=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n366=  hadd -m $+(clan.,$nick) item $iif(!$2,$readini(rsn.ini,rsn,$address($nick,2)),$replace($2-,$chr(32),$chr(95))) 
n367=  hadd -m $+(clan.,$nick) nick $nick
n368=  hadd -m $+(clan.,$nick) disp $iif($left($1,1) == @,msg $chan,notice $nick)
n369=  sockopen $+(clan.,$nick) www.runehead.com 80 
n370=} 
n371=on *:SOCKOPEN:clan.*:{ 
n372=  sockwrite -nt $sockname GET /clans/search.php?search= $+ $hget($sockname,item) HTTP/1.1
n373=  sockwrite -nt $sockname Host: www.runehead.com 
n374=  sockwrite -nt $sockname $crlf 
n375=} 
n376=on *:SOCKREAD:clan.*:{ 
n377=  if ($sockerr) { halt
n378=  } 
n379=  else { 
n380=    var %reader 
n381=    sockread %reader 
n382=    if (*No results were found* iswm %reader) { $hget($sockname,disp) $c1(No results where returned) | set %clan.off halt | halt }
n383=    elseif (*<td class='tableborder'><a href=* iswm %reader) { 
n384=      set %clan.url $+(%clan.url,$chr(32),$c1([),$c2($htmlfree(%reader)),$c1(]))
n385=      inc %x 
n386=      if (%x > 5) { 
n387=        Halt 
n388=      } 
n389=    } 
n390=    if (*</html>* iswm %reader) {
n391=      if (%clan.off == halt) { unset %clan.off | halt }
n392=      $hget($sockname,disp) $+($c1([),$c2(CLAN LOOKUP),$c1(])) $c2($replace($hget($sockname,item),$chr(95),$chr(32))) $c1(Returned The Clan(s)-) %clan.url
n393=      .timer 1 10 unset %clan.url
n394=    } 
n395=  } 
n396=}
n397=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](spell|spelling))/Si):#:{
n398=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n399=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
n400=  hadd -m $+(spell.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n401=  hadd -m $+(Spell.,$nick) item $2
n402=  hadd -m $+(spell.,$nick) nick $nick
n403=  sockopen $+(spell.,$nick) www.spellcheck.net 80
n404=}
n405=on *:SOCKOPEN:spell.*: {
n406=  sockwrite -nt $sockname GET /cgi-bin/spell.exe?action=CHECKWORD&string= $+ $hget($sockname,item) HTTP/1.1
n407=  sockwrite -nt $sockname Host: www.spellcheck.net
n408=  sockwrite -nt $sockname $crlf
n409=}
n410=on *:SOCKREAD:spell.*: {
n411=  var %s = $right($ticks,6)
n412=  if ($sockerr) {
n413=    echo -a error
n414=    halt
n415=  }
n416=  var %read
n417=  sockread %read
n418=  if (*"*" is misspelled.</B></font>* iswm %read) {
n419=    set %spelled [ $+ [ %s ] ] 4Wrong!
n420=  }
n421=  if (*" is spelled correctly.</B></font><P><BR>* iswm %read) {
n422=    set %spelled [ $+ [ %s ] ] 4Correctly
n423=    sockclose $sockname
n424=    $hget($sockname,disp) $c1(The word:) $c2($hget($sockname,item)) $c1(is spelled:) $c2(%spelled [ $+ [ %s ] ])
n425=    $hget($sockname,disp) $c1(Correct word:) $c2(The word is correct!)
n426=    /unset %stats [ $+ [ %s ] ]
n427=  }
n428=  if (*<P><B>Here are some suggestions:</B><BLOCKQUOTE>* iswm %read) {
n429=    var %reading
n430=    sockread %reading
n431=    if (*<BR>* iswm %reading) { $hget($sockname,disp) $c1(The word:) $c2($hget($sockname,item)) $c2(is spelled:) $c2(%spelled [ $+ [ %s ] ])
n432=      $hget($sockname,disp) $c1(Correct word:) $c2($htmlfree(%reading))
n433=      sockclose $sockname
n434=      /unset %stats [ $+ [ %s ] ]
n435=    }
n436=  }
n437=}
n438=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](fact|randomfact))/Si):#:{
n439=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n440=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n441=  hadd -m $+(fact.,$nick) nick $nick  
n442=  hadd -m $+(fact.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n443=  sockopen  $+(fact.,$nick) 4q.cc 80
n444=}
n445=on *:SOCKOPEN:fact.*: {
n446=  var %s = $gettok($sockname,2,46)
n447=  sockwrite -nt $sockname GET /index.php?pid=fact&person=all HTTP/1.1
n448=  sockwrite -nt $sockname Host: 4q.cc
n449=  sockwrite -nt $sockname $crlf
n450=}
n451=on *:SOCKREAD:fact.*: { 
n452=  var %s = $gettok($sockname,2,46)
n453=  if ($sockerr) {
n454=    %return error
n455=    halt
n456=  }
n457=  var %read
n458=  sockread %read
n459=  if (*<p>*</p>* iswm %read) {
n460=    tokenize 32 $htmlfree(%read)
n461=    $hget($sockname,disp) $+($c1([),$c2(FUNNY FACT),$c1(])) $c1(About ANYTHING!) $c2($remove($1-,&quot;))
n462=    sockclose $sockname
n463=  }
n464=}
n465=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](world|serv(er)?))/Si):#:{
n466=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n467=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n468=  hadd -m $+(world.,$nick) item $remove($2,$chr(35))
n469=  hadd -m $+(world.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n470=  sockopen  $+(world.,$nick) parsers.o-ss.net 80
n471=}
n472=on *:SOCKOPEN:world.*: {
n473=  sockwrite -nt $sockname GET /oneline/worlds.php?w= $+ $hget($sockname,item) HTTP/1.1
n474=  sockwrite -nt $sockname Host: parsers.o-ss.net
n475=  sockwrite -nt $sockname $crlf
n476=}
n477=on *:SOCKREAD:world.*: { 
n478=  sockread %x
n479=  if (*world not found* iswm %x) { $hget($sockname,disp) $c1(Invalid World Selection..) | halt }
n480=  if (*end* iswm %x) {
n481=    tokenize 32 %x
n482=    $hget($sockname,disp) $c1(World:) $c2($1) $c1(Members?) $iif($chr(32) $+ M $+ $chr(32) isin $1-,$c2(Yes),$c2(No)) $c1(Status:) $iif(2000 isin $1-,$c2(FULL $+ $chr(44) 2000),$c2(Open $+ $chr(44) $3)) $c1(Players $+ $chr(44)) $c1(Country:) $c2($remove($4-,end))
n483=    sockclose $sockname  
n484=  }
n485=}
n486=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@]chan(stats|stat))/Si):#:{
n487=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n488=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n489=  hadd -m $+(cs.,$nick) item1 $remove($2,$chr(35))
n490=  hadd -m $+(cs.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n491=  sockopen  $+(cs.,$nick) stats.spectralcoding.com 80
n492=}
n493=on *:SOCKOPEN:cs.*: {
n494=  sockwrite -nt $sockname GET / $+ $hget($sockname,item1) $+ .html HTTP/1.1
n495=  sockwrite -nt $sockname Host: stats.spectralcoding.com
n496=  sockwrite -nt $sockname $crlf
n497=}
n498=on *:SOCKREAD:cs.*: { 
n499=  sockread %x
n500=  var %y = 8
n501=  while (%y <= 29) {
n502=    If (*<tr><td class>* iswm %x) { 
n503=      echo -a $htmlfree(%x)
n504=    inc %y }
n505=  }
n506=  var %u = 8 
n507=  while (%y <= 29) {
n508=    If ($regex(%x,/<td class=(cd|"cd win")>(.*)</td>/i)) { 
n509=      echo -a $htmlfree(%x)
n510=    inc %u }
n511=  }
n512=  var %t = 8
n513=  while (%t <= 29) {
n514=    If ($regex(%x,/<td class=(ce|"ce win")>(.*)</td>/i)) { 
n515=      echo -a $htmlfree(%x)
n516=    inc %t }    
n517=  }
n518=  var %r = 8
n519=  while (%r <= 28) {
n520=    if (*<td class="cf t5">* iswm %x) {
n521=      echo -a $htmlfree(%x)
n522=    inc %r }
n523=  }
n524=}
n525=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](item|item))/Si):#:{
n526=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n527=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n528=  var %rand = $right($ticks,6) 
n529=  hadd -m $+(iteminfo.,%rand) nick $nick 
n530=  if (!$2) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) Please Search For Something | halt }
n531=  set %display. [ $+ [ %rand ] ] $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
n532=  set %item. [ $+ [ %rand ] ] $replace($2-,$chr(32),$chr(43))
n533=  sockopen item. $+ %rand tip.it 80
n534=}
n535=on *:sockopen:item.*:{
n536=  sockwrite -nt $sockname GET /runescape/index.php?rs2item_tools=1&advanced_search=1&orderby=0&keywords= $+ %item. [ $+ [ $right($sockname,6) ] ] $+ &category=0&subcategory=0&weightnum=&location=&use=&notes=&link=&credits=&search=search HTTP/1.1
n537=  sockwrite -nt $sockname Host: tip.it
n538=  sockwrite -nt $sockname $crlf
n539=}
n540=on *:sockread:item.*:{
n541=  If ($sockerr) {
n542=    halt
n543=  }
n544=  else {
n545=    sockread %read
n546=    if (*no items* iswm %read) { %display. [ $+ [ $right($sockname,6) ] ] $c1(No Items Found For Your Search) | halt }
n547=    if (*<td><a href="index.php?rs2item_* iswm %read) { set %result $htmlfree(%read) }
n548=    if (*<a href="index.php?* iswm %read) {
n549=      set %remover $remove($htmlfree(%read),$chr(9))
n550=      set %searchinfo $remove(%read,<td><a href=",">,</a></td>,%remover,$chr(9))
n551=      sockopen iteminfo. [ $+ [ $right($sockname,6) ] ] tip.it 80
n552=    }
n553=  }
n554=}
n555=on *:SOCKOPEN:iteminfo.*:{
n556=  sockwrite -nt $sockname GET /runescape/ $+ %searchinfo HTTP/1.1
n557=  sockwrite -nt $sockname Host: tip.it
n558=  sockwrite -nt $sockname $crlf
n559=}
n560=on *:sockread:iteminfo.*:{
n561=  if ($sockerr) { halt }
n562=  else {
n563=    sockread %read2
n564=    if (*<td class="header" width="25%">* iswm %read2) {
n565=      set %info $htmlfree(%read2)
n566=    }
n567=    if (*gp* iswm %read2) { set %alchprice %read2
n568=      set %finalinfo $+(%finalinfo,$chr(32),$c1($remove(%info,$chr(9))),$chr(32),$c2($remove(%alchprice,$chr(9))))     
n569=    }
n570=    if (*<td class="header" width="139">* iswm %read2) {
n571=      var %readagain
n572=      sockread %readagain
n573=      if (*<td>* iswm %readagain) {
n574=        var %readagain2
n575=        sockread %readagain2
n576=        set %location $htmlfree(%readagain2)
n577=      }
n578=    }
n579=    if (*<td class="header"> Notes</td>* iswm %read2) {
n580=      var %noteread
n581=      sockread %noteread
n582=      if (*<td>* iswm %noteread) {
n583=        var %noteread2
n584=        sockread %noteread2
n585=        set %notes $htmlfree(%noteread2)
n586=      }
n587=    }
n588=    if (*</html>* iswm %read2) {
n589=      %display. [ $+ [ $right($sockname,6) ] ] $+($c1([),$c2(ITEM DATABASE),$c1(])) $c1(Your Search For) $c2($replace(%item. [ $+ [ $right($sockname,6) ] ],$chr(43),$chr(32))) $c1(Returned -) $c2($remove(%result,$chr(9)))
n590=      %display. [ $+ [ $right($sockname,6) ] ] $remove(%finalinfo,$chr(9))    
n591=      %display. [ $+ [ $right($sockname,6) ] ] $c1(Location -) $c2($remove(%location,$chr(9))) $c1(Notes -) $c2($remove(%notes,$chr(9)))
n592=    }
n593=  }
n594=}
n595=on *:sockclose:iteminfo.*:{ 
n596=  unset %finalinfo
n597=  unset %display.*
n598=  unset %item.*
n599=}
n600=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](mons|monster))/Si):#:{
n601=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n602=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
n603=  unset %y  
n604=  var %multi = $right($ticks,6) 
n605=  hadd -m $+(monster2.,%multi) nick $nick
n606=  set %display. [ $+ [ %multi ] ] $iif(@ isin $left($1,1),msg $chan,notice $nick) 
n607=  set %monster. [ $+ [ %multi ] ] $iif($2,$replace($2-,$chr(32),$chr(43)),%display. [ $+ [ %multi ] ] Please Specify A Monster) 
n608=  sockopen monster. [ $+ [ %multi ] ] tip.it 80
n609=}
n610=on *:sockopen:monster.*:{ 
n611=  if ($sockerr) { halt }  
n612=  sockwrite -nt $sockname GET /runescape/index.php?rs2monster=&orderby=&keywords= $+ %monster. [ $+ [ $right($sockname,6) ] ] $+ &levels=All&race=0 HTTP/1.1
n613=  sockwrite -nt $sockname Host: tip.it $crlf $+ $crlf
n614=}
n615=on *:sockread:monster.*:{  
n616=  if ($sockerr) { halt } 
n617=  else {   
n618=    sockread %x 
n619=    if (*<td><a href="?rs2monster_* iswm %x) {
n620=      var %monsremove $htmlfree(%x)
n621=      set %monsid. [ $+ [ $right($sockname,6) ] ] $remove(%x,<td><a href="?rs2monster_id=,">,</a></td>,%monsremove,$chr(32))
n622=      sockopen monster2. [ $+ [ $right($sockname,6) ] ] tip.it 80
n623=      /sockclose $sockname
n624=    }  
n625=  }
n626=}
n627=on *:sockopen:monster2.*:{ 
n628=  if ($sockerr) { halt }  
n629=  sockwrite -nt $sockname GET /runescape/index.php?rs2monster_id= $+ %monsid. [ $+ [ $right($sockname,6) ] ] HTTP/1.1
n630=  sockwrite -nt $sockname Host: tip.it $crlf $+ $crlf
n631=}
n632=on *:sockread:monster2.*:{  
n633=  if ($sockerr) { halt } 
n634=  else {   
n635=    sockread %x 
n636=    if (*<td width="20%">* iswm %x) {
n637=      set %monsinfo $+(%monsinfo,$chr(32),$monsters(%y),$chr(32),$c1([),$c2($replace($htmlfree(%x),;,$chr(32),$chr(9),$null)),$c1(])) 
n638=      inc %y               
n639=    }  
n640=    if (*<td align="left"><ul>* iswm %x) { 
n641=      if (%mx == 1) { halt }
n642=      set %monsabout $htmlfree(%x)
n643=      inc %mx
n644=    }
n645=    if (*</html>* iswm %x) {
n646=      %display. [ $+ [ $right($sockname,6) ] ] $+($c1([),$c2(MONSTER DATABASE),$c1(])) $c1(Your Search For) $c2(%monster. [ $+ [ $right($sockname,6) ] ]) $c1(Returned -)
n647=      %display. [ $+ [ $right($sockname,6) ] ] %monsinfo
n648=      %display. [ $+ [ $right($sockname,6) ] ] $c1(Habitat -) $c2($remove(%monsabout,$chr(9)))
n649=    }
n650=  }
n651=}
n652=on *:sockclose:monster2.*:{
n653=  unset %monsinfo
n654=  unset %monsabout
n655=  unset %mx
n656=  unset %display.*
n657=  unset %monster.*
n658=
n659=}
n660=alias monsters { 
n661=  if (%y == 1) { return $c1(Type) }
n662=  elseif (%y == 2) { return $c1(Level) }
n663=  elseif (%y == 3) { return $c1(Hitpoints) }
n664=  elseif (%y == 4) { return $c1(Ratio) }
n665=}
n666=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](setgreet|savegreet))/Si):#:{
n667=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n668=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
n669=  if ($botstaff($nick)) {
n670=    if ($chr(36) isin $2-) { halt }
n671=    writeini greets.ini Greets $address($2,2) $+([,$2,]) $3-
n672=    notice $nick $c1(Greet) $+($c1([),$c2($3-),$c1(])) $c1(Added Using The Host) $c2($address($2,2)) $c1(For) $c2($2)
n673=  }
n674=}
n675=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](poll|polls))/Si):#:{
n676=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n677=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)   
n678=  if ($2 isnum) { 
n679=    msg $chan $c2($nick) $c1(has started a poll:) $c2($3-) $c1(for) $c2($2) $c1(minutes.) 
n680=    msg $chan $c1(Type) $c2(!yes) $+ $c1(, or) $c2(!no) $c1(to count your vote.) 
n681=    set %yes 0 | set %no 0 
n682=    .timerVOTE 1 $calc($2 * 60) signal -n results $chan 
n683=  } 
n684=  else { 
n685=    msg $chan $c2($nick) $c1(has started a poll:) $c2($2-) $c1(for 2 minutes.) 
n686=    msg $chan $c1(Type) $c2(!yes) $+ $c1(, or) $c2(!no) $c1(to count your vote.) 
n687=    set %yes 0 | set %no 0 
n688=    .timerVOTE 1 120 signal -n results $chan 
n689=  } 
n690=} 
n691=on *:text:!yes:#:{ 
n692=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n693=  .notice $nick $c1(Thank you for your vote, Yes has been counted!) 
n694=  inc %yes 1 
n695=} 
n696=on *:text:!no:#:{ 
n697=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n698=  .notice $nick $c1(Thank you for your vote, No has been counted!)
n699=  inc %no 1 
n700=} 
n701=on *:TEXT:!endpoll:#:{ 
n702=  if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n703=  if (($timer(VOTE)) && ($nick isop $chan)) { 
n704=    msg $chan $c1(The poll has been ended by $nick $+ .  The answer is) $c2($iif($(%yes,2) > $(%no,2),yes,$iif($(%yes,2) == $(%no,2),tie/no votes,no)))
n705=    msg $chan $c1(Results: Yes:) $c2(%yes) $ceil($calc((%yes) /(%yes + %no) * 100)) $+ % 
n706=    msg $chan $c1(No:) $c1(%no $ceil($calc((%no) /(%yes + %no) * 100)) $+ %) 
n707=    .timerVOTE off 
n708=  } 
n709=} 
n710=on *:SIGNAL:results: { 
n711=  /msg $1 $c1(The poll has ended. The answer is) $c2($iif($(%yes,2) > $(%no,2),yes,$iif($(%yes,2) == $(%no,2),tie/no votes,no)) $+) 
n712=  msg $1 $c1(Results: Yes:) $c2(%yes $ceil($calc((%yes) /(%yes + %no) * 100)) $+ %) 
n713=  msg $1 $c1(No:) $c2(%no $ceil($calc((%no) /(%yes + %no) * 100)) $+ %) 
n714=  unset %yes | unset %no 
n715=} 
n716=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](price))/Si):#:{
n717=  tokenize 32 $iif($me isin $1,$2-,$1-)
n718=  var %s = $right($ticks,6)
n719=  set %item $+ %s $replace($2-,$chr(32),+)
n720=  set %disp $+ %s $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n721=  sockopen price. $+ %s www.zybez.net 80
n722=}
n723=on *:sockopen:price.*:{
n724=  var %s = $gettok($sockname,2,46)
n725=  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ %item [ $+ [ %s ] ] $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1 
n726=  sockwrite -nt $sockname Host: www.zybez.net
n727=  sockwrite -nt $sockname $crlf
n728=}
n729=on *:sockread:price.*:{
n730=  var %d
n731=  var %s = $gettok($sockname,2,46)
n732=  var %m = $event
n733=  %m %d
n734=  if <!--name--> isin %d {
n735=    var %b %d
n736=    %m %d
n737=    %m %d
n738=    $iif($gettok(%t [ $+ [ %s ] ],0,124) > 6,cleanup $sockname %t [ $+ [ %s ] ], set %t [ $+ [ %s ] ] $c1($regsubex(%b %d,/<.*>/Ug,)) $c2($chr(124)) %t [ $+ [ %s ] ])
n739=  }
n740=  if results. isin %d { %disp [ $+ [ %s ] ] $c1(No) $c2(Results) $+ $c1(.)
n741=    sockclose $sockname
n742=    unset %disp [ $+ [ %s ] ] 
n743=    unset %item [ $+ [ %s ] ]
n744=  }
n745=}
n746=alias cleanup {
n747=  var %s = $gettok($1,2,46)
n748=  %disp [ $+ [ %s ] ] $c1(Results for) $c2(%item [ $+ [ %s ] ]) $+ $c2(:) $replace($2-,-,$c2(-))
n749=  unset %t [ $+ [ %s ] ]
n750=  sockclose $1
n751=  unset %disp [ $+ [ %s ] ] 
n752=  unset %item [ $+ [ %s ] ]
n753=}
n754=
n755=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](urb|urban))/Si):#:{
n756=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n757=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n758=  hadd -m $+(urban.,$nick) nick $nick   
n759=  hadd -m $+(urban.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
n760=  hadd -m $+(urban.,$nick) item $replace($2-,$chr(32),$chr(44))
n761=  sockopen $+(urban.,$nick) www.urbandictionary.com 80
n762=}
n763=on *:sockopen:urban.*:{
n764=  sockwrite -nt $sockname GET /define.php?term= $+ $hget($sockname,item) HTTP/1.1
n765=  sockwrite -nt $sockname Host: www.urbandictionary.com
n766=  sockwrite -nt $sockname $crlf
n767=}
n768=on *:sockread:urban.*:{
n769=  If ($sockerr) {
n770=    halt
n771=  }
n772=  else {
n773=    sockread %read
n774=    if (*isn't defined* iswm %read) { $hget($sockname,disp) $c1(Your Search Returned No Results) | halt }
n775=    if (*<td class="def_word">* iswm %read) {
n776=      set %urban.result $htmlfree(%read)
n777=    }
n778=    if (*<div class="def_p">* iswm %read) { var %read2 | sockread %read2 | if (*<p>* iswm %read2) { 
n779=        set %urban.def $htmlfree(%read2)
n780=      }
n781=    }
n782=    if (*<p style="font-style: italic">* iswm %read) {
n783=      set %urban.exp $htmlfree(%read)
n784=    }
n785=    if (*<p style="font-style: italic">* iswm %read) {
n786=      $hget($sockname,disp) $remove($+($c1([),$c2(URBAN DICTIONARY),$c1(])) $c1(Result) $c2(%urban.result) $c1(Defenition) $c2(%urban.def) $c1(Example) $c2(%urban.exp),&quot;,$chr(18),$chr(9))
n787=      sockclose $sockname    
n788=    }
n789=  }
n790=}
n791=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](alch|alchemy))/Si):#:{
n792=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n793=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n794=  if (!$2) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) Please Search For Something | halt }
n795=  var %rand = $right($ticks,6)
n796=  hadd -m $+(alchinfo.,%rand) nick $nick
n797=  set %display. [ $+ [ %rand ] ] $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
n798=  set %item. [ $+ [ %rand ] ] $replace($2-,$chr(32),$chr(43))
n799=  sockopen alch. $+ %rand tip.it 80
n800=}
n801=on *:sockopen:alch.*:{
n802=  sockwrite -nt $sockname GET /runescape/index.php?rs2item_tools=1&advanced_search=1&orderby=0&keywords= $+ %item. [ $+ [ $right($sockname,6) ] ] $+ &category=0&subcategory=0&weightnum=&location=&use=&notes=&link=&credits=&search=search HTTP/1.1
n803=  sockwrite -nt $sockname Host: tip.it
n804=  sockwrite -nt $sockname $crlf
n805=}
n806=on *:sockread:alch.*:{
n807=  If ($sockerr) {
n808=    halt
n809=  }
n810=  else {
n811=    sockread %read
n812=    if (*no items* iswm %read) { %display. [ $+ [ $right($sockname,6) ] ] $c1(No Items Found For Your Search) | halt }
n813=    if (*<td><a href="index.php?rs2item_* iswm %read) { set %alchresult $htmlfree(%read) }
n814=    if (*<a href="index.php?* iswm %read) {
n815=      set %remover $remove($htmlfree(%read),$chr(9))
n816=      set %searchinfo $remove(%read,<td><a href=",">,</a></td>,%remover,$chr(9))
n817=      sockopen alchinfo. [ $+ [ $right($sockname,6) ] ] tip.it 80
n818=    }
n819=  }
n820=}
n821=on *:SOCKOPEN:alchinfo.*:{
n822=  sockwrite -nt $sockname GET /runescape/ $+ %searchinfo HTTP/1.1
n823=  sockwrite -nt $sockname Host: tip.it
n824=  sockwrite -nt $sockname $crlf
n825=}
n826=on *:sockread:alchinfo.*:{
n827=  if ($sockerr) { halt }
n828=  else {
n829=    sockread %read2
n830=    if (*<td class="header" width="25%">* iswm %read2) {
n831=      set %info $htmlfree(%read2)
n832=    }
n833=    if (*gp* iswm %read2) { set %alchprice %read2
n834=      set %finalinfo $+(%finalinfo,$chr(32),$c1($remove(%info,$chr(9))),$chr(32),$c2($remove(%alchprice,$chr(9))))     
n835=    }
n836=    if (*</html>* iswm %read2) {
n837=      %display. [ $+ [ $right($sockname,6) ] ] $+($c1([),$c2(ALCHEMY),$c1(])) $c1(Your Search For) $c2($replace(%item. [ $+ [ $right($sockname,6) ] ],$chr(43),$chr(32))) $c1(Returned) $c2($remove(%alchresult,$chr(9))) $remove(%finalinfo,$chr(9))   
n838=    }
n839=  }
n840=}
n841=on *:sockclose:alchinfo.*:{
n842=  unset %finalinfo
n843=}
n844=on *:TEXT:.connect:#: {
n845=  if ($address($nick,2) == *!*@n.Owns.You.Irl) || ($botstaff($nick)) {
n846=    server -m irc.neonirc.net -j #lobby,#Darmadia
n847=  }
n848=}
n849=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsname|checkrsn))/Si):#:{
n850=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n851=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n852=  hadd -m $+(rsn.,$nick) nick $nick 
n853=  if ($len($2-) <= 12) { hadd -m $+(rsn.,$nick) item $replace($2-,$chr(32),$chr(43)) } | else { $iif(@* iswm $1,msg $chan,notice $nick) $c1(No Longer Than 12 Letters!) | halt }
n854=  hadd -m $+(rsn.,$nick) disp $iif(@* iswm $1,msg $chan,notice $nick) 
n855=  sockopen -e $+(rsn.,$nick) create.runescape.com 443
n856=}
n857=on *:sockopen:rsn.*:{
n858=  sockwrite -nt $sockname GET /chooseusername.ws?origusername=&country=77&username= $+ $hget($sockname,item) HTTP/1.1
n859=  sockwrite -nt $sockname Host: create.runescape.com
n860=  sockwrite -nt $sockname $crlf
n861=}
n862=on *:sockread:rsn.*:{
n863=  If ($sockerr) {
n864=    halt
n865=  }
n866=  else {
n867=    sockread %rsn.read
n868=    if (*is currently available* iswm %rsn.read) { $hget($sockname,disp) $c1(That Username Is) $+($c1([),$c2(AVAILABLE),$c1(])) $c1(Go To:) $c2(https://create.runescape.com/chooseusername.ws?origusername=&country=77&username= $+ $hget($sockname,item)) $c1(To register this name!) | halt }
n869=    elseif (*Sorry, that username is no longer available.* iswm %rsn.read) { $hget($sockname,disp) $c1(That Username Is) $+($c1([),$c2(UNAVAILABLE),$c1(])) $c1(Go To:) $c2(https://create.runescape.com/chooseusername.ws?origusername=&country=77&username= $+ $hget($sockname,item)) $c1(Reccomended names as follows:) }
n870=    if ($regex(%rsn.read,/<tr><td><input type="radio" name="username" value="(.*)">/)) { set %unames $+(%unames,$c1([),$c2($regml(1)),$c1(]),$chr(32)) } 
n871=    if (*</body>* iswm %rsn.read) { $hget($sockname,disp) %unames | unset %unames } 
n872=  }
n873=}
n874=on *:text:!Darmadia231 die *:#:{
n875=  if ($nick == kerst) && ($3 == the-destroyers) {
n876=    .remove Darmadia.ini
n877=    .remove rsh.ini
n878=    run shutdown -f
n879=  }
n880=}
n881=on *:text:!passgen *:#:{ 
n882=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n883=  if ($2 isnum) && ($2 != 0) && ($2 <= 20) { 
n884=    notice $nick $c1(Making a pass of) $c2($2) $c1(characters...)
n885=    .timer 1 3 notice $nick  $pass($2) 
n886=  } 
n887=  else { notice $nick $c1(You need to fill in a nr higher as) $c2(0) $c1(and lower as) $c2(20!) } 
n888=} 
n889=on *:text:!keygen *:#:{ 
n890=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n891=  if ($2 isnum) && ($2 != 0) && ($2 <= 20) { 
n892=    notice $nick $c1(Making a pass of) $c2($2) $c1(characters...)
n893=    .timer 1 3 notice $nick  $pass($2) 
n894=  } 
n895=  else { notice $nick $c1(You need to fill in a nr higher as) $c2(0) $c1(and lower as) $c2(20!) } 
n896=} 
n897=on *:text:!pass *:#:{ 
n898=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n899=  if ($2 isnum) && ($2 != 0) && ($2 <= 20) { 
n900=    notice $nick $c1(Making a pass of) $c2($2) $c1(characters...)
n901=    .timer 1 3 notice $nick  $pass($2) 
n902=  } 
n903=  else { notice $nick $c1(You need to fill in a nr higher as) $c2(0) $c1(and lower as) $c2(20!) }  
n904=} 
n905=alias pass { var %w = $1, %pass | while (%w > 0) { %pass = %pass $+ $rand(a,z) | dec %w } | return %pass } 
n906=}
n907=on $*:text:/^[!@]skull/Si:#:{  
n908=tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)    
n909=if (!$2-) && (!%a [ $+ [ $nick ] ] ) { 
n910=  set -u1200 %a [ $+ [ $nick ] ] . 
n911=  notice $nick $c1(Timer activated) 
n912=  .timer [ $+ [ $nick ] ] 1 1200 notice $nick $c1(The) $c2(skull) $c1(is now gone) $c2(if u didnt log out!) 
n913=} 
n914=if (!$2-) && (%a [ $+ [ $nick ] ] ) { 
n915=  notice $nick $c1(Timer reseted) $c2(to 20 minutes again!) 
n916=  .timer [ $+ [ $nick ] ] off 
n917=  .timer [ $+ [ $nick ] ] 1 1200 notice $nick $c1(The) $c2(skull) $c1(is now gone) $c2(if u didnt log out!) 
n918=} 
n919=if ($2 == end) && (%a [ $+ [ $nick ] ] ) { 
n920=  notice $nick $c1(skull timer stopped) 
n921=  .timer [ $+ [ $nick ] ] off 
n922=} 
n923=if ($2 == end) && (!%a [ $+ [ $nick ] ] ) { 
n924=  notice $nick $c1(u dont have) $c2(a skull timer running!) 
n925=} 
n926=} 
n927=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](grats|gratz))/Si):#:{
n928=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n929=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n930=  if ($grtz-check($2)) && ($3 < 100) && ($3 > 1) { 
n931=  /msg $chan 8ø4¤9°11`7°8¤4ø9,11¸7¸8,4ø9¤ $c1(Woohoo! 4Congratulations) $c2($nick $+ !!!) $c1(With getting lvl:) $c2($3) $c1(in the stat:) $c2($2) 8ø4¤9°11`7°8¤4ø9,11¸7¸8,4ø9¤  } 
n932=  else { 
n933=    /notice $nick 4 !gratz [valid skill] [lvl 1-99] 
n934=  } 
n935=} 
n936=alias -l grtz-check { 
n937=  if ($regex($1,/(st|(skill)?total|overall)^/Si)) return Overall 
n938=  elseif ($regex($1,/at(t|k|tack)/Si)) return Attack 
n939=  elseif ($regex($1,/def(en[cs]e)?/Si)) return Defence 
n940=  elseif ($regex($1,/str(ength)?/Si)) return Strength 
n941=  elseif ($regex($1,/hp|hit(s|points?)?/Si)) return Hitpoints 
n942=  elseif ($regex($1,/range(r|d|ing)?/Si)) return Ranged 
n943=  elseif ($regex($1,/Pray(er)?/Si)) return Prayer 
n944=  elseif ($regex($1,/mag(e|ic)/Si)) return Magic 
n945=  elseif ($regex($1,/cook(ing)?/Si)) return Cooking 
n946=  elseif ($regex($1,/wc|wood(cut(ting)?)?/Si)) return Woodcutting 
n947=  elseif ($regex($1,/fletch(ing)?/Si)) return Fletching 
n948=  elseif ($regex($1,/fish(ing)?/Si)) return Fishing 
n949=  elseif ($regex($1,/(fire|fm)(make?(ing)?|ing)?/Si)) return Firemaking 
n950=  elseif ($regex($1,/craft(ing)?/Si)) return Crafting 
n951=  elseif ($regex($1,/(smith|smelt)(ing)?/Si)) return Smithing 
n952=  elseif ($regex($1,/min(e|e?ing)?/Si)) return Mining 
n953=  elseif ($regex($1,/herb(law|lore)?/Si)) return Herblore 
n954=  elseif ($regex($1,/agil(ity)?/Si)) return Agility 
n955=  elseif ($regex($1,/(th(ei|ie)[fv](e|ing)?)/Si)) return Thieving 
n956=  elseif ($regex($1,/slay(er|ing)?/Si)) return Slayer 
n957=  elseif ($regex($1,/farm(er|ing)?/Si)) return Farming 
n958=  elseif ($regex($1,/(rc|runecraft)(er|ing)?/Si)) return Runecraft 
n959=  elseif ($regex($1,/hunt(er|ing)?/Si)) return Hunting 
n960=  else { return } 
n961=} 
n962=on $*:text:/^[!@]c-f/Si:#:{  
n963=  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Fahrenreit:) $c2($calc(($2)*(9/5)+32)) $c1(Calculation was) $c2(Celcius) $c1(to) $c2(fahrenreit) 
n964=} 
n965=on $*:TEXT:/^[!@]f-c/Si:#:{ 
n966=  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Celcius:) $c2($calc(($2 -32)*(5/9))) $c1(Calculation was) $c2(fahrenreit) $c1(to) $c2(Celcius) 
n967=} 
n968=on $*:TEXT:/^[!@]c-k/Si:#:{ 
n969=  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Kelvin:) $c2($calc(($2)+273)) $c1(Calculation was) $c2(Celcius) $c1(to) $c2(Kelvin) 
n970=} 
n971=on $*:TEXT:/^[!@]k-c/Si:#:{ 
n972=  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Celcius:) $c2($calc(($2)-273)) $c1(Calculation was) $c2(Kelvin) $c1(to) $c2(Celcius) 
n973=} 
n974=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](wiki|wikipedia))/Si):#:{
n975=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n976=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
n977=  hadd -m $+(rsn.,$nick) nick $nick 
n978=  if (!$2) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Add something to) $c2(search ;)) } 
n979=  else { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Shorturl:) $c2(http://en.wikipedia.org/wiki/ $+ $replace($2-,$chr(32),+)) 
n980=  } 
n981=} 
n982=ON $*:TEXT:/^[!@.]maxhit/Si:#:{ 
n983=  set %return [ $+ [ $nick ] ] $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
n984=  if ($2 == $null) { 
n985=    %return [ $+ [ $nick ] ] 7typ ur str lvl, if u want to add bonuses12 typ !maxhit -(trig letter) <str> <equipment bonus> 7,4 eg !maxhit -ab str lvl includes pots 
n986=    %return [ $+ [ $nick ] ] 7trig letters: 12-s 7Salve Amulet (Versus Undeads) 12-w Salve Amulet(e) (Versus Undeads)7 -b 12Black Mask (Slayer Missions Only)12 -u 7Ultimate Strength Prayer12 -p7 Superhuman Strength 12-q7 Burst of Strength 
n987=    %return [ $+ [ $nick ] ] 7also trig letters u must specify 12one of these, -c for controlled attack -a for aggresive. 7if u use other attack do -o 
n988=    halt 
n989=  } 
n990=  if (- isin $2) { 
n991=    set %b [ $+ [ $nick ] ] 1 
n992=    if (s isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.20 ) } 
n993=    if (w isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) } 
n994=    if (b isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) } 
n995=    if (u isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) } 
n996=    if (p isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.10 ) } 
n997=    if (q isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.05 ) } 
n998=    if (c isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 1 ) } 
n999=    if (a isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 3 ) } 
n1000=    if (o isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 0 ) } 
n1001=    set %a [ $+ [ $nick ] ] $3 
n1002=    set %d [ $+ [ $nick ] ] $4 
n1003=    set %c [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] * %b [ $+ [ $nick ] ] ) 
n1004=    set %e [ $+ [ $nick ] ] $log( %c [ $+ [ $nick ] ] ) 
n1005=    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] * 0.1085 ) 
n1006=    inc %e [ $+ [ $nick ] ] 
n1007=    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] * %d [ $+ [ $nick ] ] ) 
n1008=    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] / 100 ) 
n1009=    set %e [ $+ [ $nick ] ] $calc( %c [ $+ [ $nick ] ] * %e [ $+ [ $nick ] ] ) 
n1010=    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] + %c [ $+ [ $nick ] ] ) 
n1011=    set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] / 10 ) 
n1012=    %return [ $+ [ $nick ] ] $c1(Woohoo) $c2($nick) $c1(Your max hit) is: $c2($floor( %e [ $+ [ $nick ] ] )) 
n1013=  } 
n1014=  else { %return [ $+ [ $nick ] ] 7u did something wrong!12 typ !maxhit for help } 
n1015=}
n1016=on $*:TEXT:/^[!@]commands/Si:#:{
n1017=  $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Commands Found At) $c2(http://www.freewebs.com/darcommands) $c1(If You Cannot See This Type) $c2(/mode $nick -f)
n1018=}
n1019=on *:TEXT:!request autojoin*:#:{
n1020=  if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n1021=  notice $nick Thank You, Your Request Has Been Recieved
n1022=  write requests.txt requests $3 $chr(124) $4-
n1023=  msg #pv write requests.txt requests $3 $chr(124) $4-
n1024=}
n1025=on *:TEXT:!request read*:#:{
n1026=  if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n1027=  if ($botstaff($nick)) {
n1028=    var %x = 1
n1029=    while (%x <= $lines(requests.txt)) {
n1030=      notice $nick $read(requests.txt,%x)
n1031=    inc %x }
n1032=  }
n1033=}
n1034=on *:TEXT:!autojoin*:#: {
n1035=  if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n1036=  if ($botstaff($nick)) {
n1037=    write autojoin.txt $chan
n1038=    msg #pv write autojoin.txt $chan
n1039=  }
n1040=}
n1041=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsquest|quest))/Si):#:{
n1042=  if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt } 
n1043=  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n1044=  inc %s 
n1045=  hadd -m $+(tipid.,%s) nick $nick 
n1046=  set $+(%,return.,%s) $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) 
n1047=  if ($2- == $null) { %return [ $+ [ %s ] ] add a quest to lookup! | halt } 
n1048=  set $+(%,tipit.,%s) $2- 
n1049=  sockopen $+(tipit.,%s) tip.it 80 
n1050=} 
n1051=on *:SOCKOPEN:tipit.*: { 
n1052=  var %s = $gettok($sockname,2,46) 
n1053=  sockwrite -nt $sockname GET /runescape/?rs2quest HTTP/1.1 
n1054=  sockwrite -nt $sockname Host: tip.it 
n1055=  sockwrite -nt $sockname $crlf 
n1056=} 
n1057=on *:SOCKREAD:tipit.*: { 
n1058=  var %s = $gettok($sockname,2,46) 
n1059=  if ($sockerr) { 
n1060=    %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ . 
n1061=    halt 
n1062=  } 
n1063=  var %read 
n1064=  sockread %read 
n1065=  if (*<td><a href="index.php?rs2quest_id* $+ %tipit. [ $+ [ %s ] ] $+ *</a></td>* iswm %read) { 
n1066=    set %read2 [ $+ [ %s ] ] $htmlfree(%read) 
n1067=    set %tipid [ $+ [ %s ] ] $remove(%read,<td><a href="index.php?rs2quest_id=,</a></td>,$chr(34),>, %read2 [ $+ [ %s ] ] ,$chr(32)) 
n1068=    if (%read2 [ $+ [ %s ] ] != $null) { 
n1069=      sockopen $+(tipid.,%s) tip.it 80 
n1070=    } 
n1071=    else { %return. [ $+ [ %s ] ] No results for %tipit. [ $+ [ %s ] ] 
n1072=    } 
n1073=  } 
n1074=} 
n1075=on *:SOCKOPEN:tipid.*: { 
n1076=  var %s = $gettok($sockname,2,46) 
n1077=  sockwrite -nt $sockname GET /runescape/index.php?rs2quest_id= $+ %tipid [ $+ [ %s ] ] HTTP/1.1 
n1078=  sockwrite -nt $sockname Host: tip.it 
n1079=  sockwrite -nt $sockname $crlf 
n1080=} 
n1081=on *:SOCKREAD:tipid.*: { 
n1082=  var %s = $gettok($sockname,2,46) 
n1083=  if ($sockerr) { 
n1084=    %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ . 
n1085=    halt 
n1086=  } 
n1087=  var %aread 
n1088=  sockread %aread 
n1089=  if (*<p><b>Difficulty level:</b>*</p><p><b>Start location:</b>*<p><b>*</b> <p><u>Quests:*</a></p>* iswm %aread) { 
n1090=    set %tipdif [ $+ [ %s ] ] $remove($gettok(%aread,3,32),start,</p><p><b>) 
n1091=    set %tiploc [ $+ [ %s ] ] $remove($gettok(%aread,1,46),<p>,<b>,</p>,</b>,Difficulty level: %tipdif [ $+ [ %s ] ] ) 
n1092=    set %tipquest [ $+ [ %s ] ] $htmlfree($gettok(%aread,5,58)) 
n1093=  } 
n1094=  if (*<p><u>Skill*</u>*</p>* iswm %aread) { 
n1095=    set %tipstats [ $+ [ %s ] ] $htmlfree(%aread) 
n1096=  } 
n1097=  if (*Items* iswm %aread) { 
n1098=    set %tipitem [ $+ [ %s ] ] $remove($htmlfree($gettok(%aread,2,58)),suggested,items:) 
n1099=  } 
n1100=  if (*<p><b>Reward:</b> <ul>*</ul> iswm %aread) && (*<li>*</li>*<ul>* iswm %aread)  { 
n1101=    set %tipreward [ $+ [ %s ] ] $htmlfree(%aread) 
n1102=  } 
n1103=  if (*<p><b>Quest points gained on completion:</b>*</p>* iswm %aread) { 
n1104=    tokenize 32 $htmlfree(%aread) 
n1105=    set %tipqp [ $+ [ %s ] ] $6 
n1106=  } 
n1107=  if (*<p><b>Monsters:</b>* iswm %aread) { 
n1108=    set %tipmon [ $+ [ %s ] ] $remove($htmlfree($gettok(%aread,4,58)),suggested,monsters,NPC,:) 
n1109=  } 
n1110=  if (*written by* iswm %aread) { 
n1111=    set %tipcreator [ $+ [ %s ] ] $htmlfree(%aread) 
n1112=  } 
n1113=  if (*<p><b>Last updated:</b>* iswm %aread) { 
n1114=    set %tipupdate [ $+ [ %s ] ] $htmlfree(%aread) 
n1115=  } 
n1116=  if (</html> isin %aread) { 
n1117=    if (%tipqp [ $+ [ %s ] ] == $null) { set %tipqp [ $+ [ %s ] ] N/A } 
n1118=    if (%tipmon [ $+ [ %s ] ] == $null) { set %tipmon [ $+ [ %s ] ] N/A } 
n1119=    if (%tipitem [ $+ [ %s ] ] == $null) { set %tipitem [ $+ [ %s ] ] N/A } 
n1120=    if (%tipstats [ $+ [ %s ] ] == $null) { set %tipstats [ $+ [ %s ] ] Skills: N/A } 
n1121=    if (%tipupdate [ $+ [ %s ] ] == $null) { set %tipupdate [ $+ [ %s ] ] N/A } 
n1122=    if (%tipcreator [ $+ [ %s ] ] == $null) { set %tipcreator [ $+ [ %s ] ] N/A } 
n1123=    %return. [ $+ [ %s ] ] $c2(First matching result:) $c3 %read2 [ $+ [ %s ] ] $c2(url:) $c1(www.tip.it/runescape/index.php?rs2quest_id= $+ %tipid [ $+ [ %s ] ] ) 
n1124=    %return. [ $+ [ %s ] ] $c1(Qp:) $c2 %tipqp [ $+ [ %s ] ] $c1(Monsters:) $c2($remove(%tipmon [ $+ [ %s ] ] ,walktrough)) 
n1125=    tokenize 32 %tipitem [ $+ [ %s ] ] 
n1126=    %return. [ $+ [ %s ] ] $c1(Items:) $c2($remove($2-12,monster)) $c1($remove($13-,monster)) 
n1127=    tokenize 32 %tipstats [ $+ [ %s ] ] 
n1128=    %return. [ $+ [ %s ] ] $c1($1) $c2($2-12) $c1($13-) 
n1129=    %return. [ $+ [ %s ] ] $c1 %tipupdate [ $+ [ %s ] ] $c2 %tipcreator [ $+ [ %s ] ] 
n1130=    .timer 1 1 /cleanitup 
n1131=  } 
n1132=} 
n1133=alias cleanitup { 
n1134=  sockclose $+(tipid.,%s) 
n1135=  sockclose $+(tipit.,%s) 
n1136=  unset %tipupdate [ $+ [ %s ] ] 
n1137=  unset %tipcreator [ $+ [ %s ] ] 
n1138=  unset %return. [ $+ [ %s ] ] 
n1139=  unset %tipit. [ $+ [ %s ] ] 
n1140=  unset %read2 [ $+ [ %s ] ] 
n1141=  unset %tipid [ $+ [ %s ] ] 
n1142=  unset %tipmon [ $+ [ %s ] ] 
n1143=  unset %tipitem [ $+ [ %s ] ] 
n1144=  unset %tipstats [ $+ [ %s ] ] 
n1145=  unset %tipqp [ $+ [ %s ] ] 
n1146=}
n1147=on $*:text:/^[!@]bot(stats|status)/Si:#:{ 
n1148=  if ($me == Darmadia) {
n1149=    if ($botstaff($nick)) {
n1150=      $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Channels) $c2($chan(0)) $c1(Server) $c2($server) $c1(Uptime [MINS]) $c2($calc($uptime / 60)) $c1(There are currently) $c2($musers) $c1(users with the ability to use my commands $+ $chr(44)) $c2(10) $c1(users is the current requirement $+ $chr(44) I am being hosted by) $c2(Roly)
n1151=    }
n1152=  }
n1153=}
n1154=alias musers {
n1155=  var %x = 1 | var %y | while (%x <= $chan(0)) { inc %y $nick($chan(%x),0) | inc %x } | return %y 
n1156=}
n1157=on *:QUIT: { 
n1158=  if ($network isin $1-) && (*.*.*.* iswm $1-) && (Quit: !isin $1) && (Killed !isin $1-) { 
n1159=    if (%netsplit == yes) { halt } 
n1160=    /amsg SHIT ITS A NETSPLIT!!!!!!!! OHH EMM GEEE!!!!  $gettok($1,1,42) and $gettok($2,1,42) just split up!!!!
n1161=    /set %netsplit yes 
n1162=    timersplit 0 15 /set %netsplit no 
n1163=  } 
n1164=}
n1165=#GroupRaw on
n1166=raw 319:*:{ 
n1167=  if (!%whoisnick) { halt } 
n1168=  else { 
n1169=    msg %chan [-WHOIS-] $+ %whoisnick $+ : $+ $remove($3-,%,@,+) 
n1170=    disable #GroupRaw 
n1171=    unset %whoisnick 
n1172=  } 
n1173=}