on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@]clan) .*/Si):#:{ 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-) 
  var %multi = $right($ticks,6) 
  set %display. [ $+ [ %multi ] ] $iif(@ isin $left($1,1),msg $chan,notice $nick) 
  set %clan. [ $+ [ %multi ] ] $iif($2,$replace($2-,$chr(32),$chr(43)),$replace($nick,$chr(95),$chr(43))) 
  sockopen CLAN. [ $+ [ %multi ] ] o-ss.net 80
}
on *:sockopen:CLAN.*:{  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /parsers/oneline/clans.php?user= $+ %clan. [ $+ [ $right($sockname,6) ] ] HTTP/1.1
  sockwrite -nt $sockname Host: o-ss.net $crlf $+ $crlf
}
on *:sockread:CLAN.*:{  
  if ($sockerr) { halt } 
  else {   
    sockread %x  
    tokenize 32 %x
    if ($1 == DONE) { %display. [ $+ [ $right($sockname,6) ] ] The User You Have Chosen To Lookup Cannot Be Found }  
    if (*END* iswm %x)  {        
      %display. [ $+ [ $right($sockname,6) ] ] 10[4CLAN LOOKUP10]4 10 $+ $replace(%clan. [ $+ [ $right($sockname,6) ] ] ,$chr(43),$chr(32)) 4Is In The Clan - $replace($1-,end,$null,$chr(124),10 $+ $chr(124) $+ 4)
      unset %clan. [ $+ [ $right($sockname,6) ] ]  
      unset %display. [ $+ [ $right($sockname,6) ] ]
      sockclose $sockname
    }  
  }
}






on $*:TEXT:/^[!@.](gratz|level|lvl)/Si:#:{
  if (%activity. [ $+ [ $chan ] ] == On) {
    if (!$3) msg $chan 4What!? You didn't enter anything!
    elseif ($skill2($3) == Combat && $2 !isnum 3-126) /describe $chan is thinking.. Your combat lvl.. It's impossible!
    elseif (!$skill2($3)) /describe $chan is thinking.. when since was $+(",$3,") a skill ?
    elseif ($skill2($3) == Overall && $2 !isnum 32-2277) notice $nick 4Uh, Overall levels can only be 1032-22774!
    elseif ($2 > 99 || $2 < 1) && ($skill($3) != Overall) /describe $chan is thinking.. Last time i checked highscores, the lvl's didn't go below 0 and over 99...
    else msg $chan 4Congratulations on getting level10 $2 $skill($3) $+ 4,10 $nick $+ 4!
  }
}
alias -l skill2 {
  if (%activity. [ $+ [ $chan ] ] == On) {
    if ($regex($1,/^c(o)?mb(at)?$/Si)) return Combat
    elseif ($regex($1,/^((skill)?total|overall)$/Si)) return Overall
    elseif ($regex($1,/^at(t|k|tack)$/Si)) return Attack
    elseif ($regex($1,/^def(en[cs]e)?$/Si)) return Defence
    elseif ($regex($1,/^str(ength)?$/Si)) return Strength
    elseif ($regex($1,/^(hp|hit(s|points)?)$/Si)) return Hitpoints
    elseif ($regex($1,/^rang(e|er|ed|ing)$/Si)) return Ranged
    elseif ($regex($1,/^Pray(er)?$/Si)) return Prayer
    elseif ($regex($1,/^mag(e|ic)$/Si)) return Magic
    elseif ($regex($1,/^cook(ing)?$/Si)) return Cooking
    elseif ($regex($1,/^(wc(ing)?|woodcut(ting)?)$/Si)) return Woodcutting
    elseif ($regex($1,/^fletch(ing)?$/Si)) return Fletching
    elseif ($regex($1,/^fish(ing)?$/Si)) return Fishing
    elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
    elseif ($regex($1,/^craft(ing)?$/Si)) return Crafting
    elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
    elseif ($regex($1,/^min(e|e?ing)$/Si)) return Mining
    elseif ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
    elseif ($regex($1,/^agil(ity)?$/Si)) return Agility
    elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
    elseif ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
    elseif ($regex($1,/^farm(er|ing)?$/Si)) return Farming
    elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
    elseif ($regex($1,/^(con|construct)(er|ing|ion)?$/Si)) return Construction
    elseif ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter
  }
}










on $*:text:/^[!@.>]calc */Si:#: {
  inc %cmd
  if (%activity. [ $+ [ $chan ] ] == On) {
    if ($2) {
      $iif($left($1,1) == @ && ($nick !isreg $chan),msg $chan,.notice $nick) 4[10Calculator4]10 $2- 4=10 $bytes($calc($replace($remove($2-,$chr(32)),K,000,M,000000)),b) 10
      /halt
    }
    /notice $nick 4[10Calculator4] Specify a calculation.
  }
}













on $*:TEXT:/^[!@.]rsnews/Si:#:{
  inc %cmd
  if (%activity. [ $+ [ $chan ] ] == Off) { halt }
  else {
    /inc %x
    /set $+(%,rsnewsname,%x) $iif($left($1,1) = @, msg $chan, notice $nick)
    /sockopen $+(rsnews.,%x) runescape.com 80
  }
}
on *:SOCKOPEN:rsnews.*:{
  /sockwrite -n $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
  /sockwrite -n $sockname Host: runescape.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:rsnews.*:{
  /var %read
  /sockread %read
  if (<dt><span class="newsdate">*</span>*</dt> iswm %read) { /set $+(%,rsnewsdh,$gettok($sockname,2,46)) $remove(%read,<dt><span class="newsdate">,</span>,</dt>)
  }
  if (<td style="text-align: justify; vertical-align: top;"> isin %read) { /set $+(%,rsnewsp,$gettok($sockname,2,46)) $remove(%read,<td style="text-align: justify; vertical-align: top;">,</td>)
  }
  if (<td style="padding-left: 1em; text-align: right; vertical-align: top;"> isin %read) {
    $eval($+(%,rsnewsname,$gettok($sockname,2,46)),2) 4[ 10RsNews 4] 4[ Title:10 $right($eval($+(%,rsnewsdh,$gettok($sockname,2,46)),2),-11) 4] [4 Date:10 $left($eval($+(%,rsnewsdh,$gettok($sockname,2,46)),2),11) 4]
    $eval($+(%,rsnewsname,$gettok($sockname,2,46)),2) 4[ Description:10 $eval($+(%,rsnewsp,$gettok($sockname,2,46)),2) 4]
    /unset $+(%,rsnews*,$gettok($sockname,2,46))
    /sockclose $sockname
  }
}