on $*:TEXT:/^[!@.]alch/Si:#:{
  inc %s
  set $+(%,return.,%s) $iif($left($1,1) == @, msg $chan, notice $nick)
  if ($2- == $null) { %return. [ $+ [ %s ] ] add a item to lookup! use -p switch for p2p players -f switch for f2p players example: !item rune axe or !item -f rune axe!
    halt
  }
  set $+(%,players.,%s) all
  set $+(%,item.,%s) $replace($2-,$chr(32),+)
  set $+(%,item2.,%s) $2-
  sockopen $+(item.,%s) tip.it 80
}
on *:SOCKOPEN:item.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /runescape/index.php?rs2item=&orderby=0&keywords= $+ %item. [ $+ [ %s ] ] $+ &Players=all&category=0&subcategory=0&cmd=8&action=Manage_Items&search=1&submit=Simple+Search HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:item.*: {
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ .
    halt
  }
  var %read
  sockread %read
  if (*<p><strong>1</strong> items matched your search.</p>* iswm %read) {
    /tokenize 32 $htmlfree(%read)
    set %itemresults [ $+ [ %s ] ] $1
  }
  if (*<td><a href="index.php?rs2item_id* $+ %item2. [ $+ [ %s ] ] $+ *</a></td>* iswm %read) {
    set %read2 [ $+ [ %s ] ] $remove($htmlfree(%read),$chr(9))
    set %itemid [ $+ [ %s ] ] $remove(%read,<td><a href="index.php?rs2item_id=,</a></td>,$chr(34), $+ %read2 [ $+ [ %s ] ] $+ )
    /tokenize 62 %itemid [ $+ [ %s ] ]
    set %itemid [ $+ [ %s ] ] $remove($1,$chr(9))
    sockopen $+(item2.,%s) tip.it 80
    sockclose $sockname
  }
}
on *:SOCKOPEN:item2.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /runescape/index.php?rs2item_id= $+ %itemid [ $+ [ %s ] ] HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:item2.*: {
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ .
    halt
  }
  var %aread
  sockread %aread 
  if (*High Alchemy</td> iswm %aread) {
    var %alchemy
    sockread %alchemy
  }
  if (*<td width="25%"> iswm %alchemy) {
    var %alch
    sockread %alch
    set %highalch [ $+ [ %s ] ] $remove(%alch,$chr(09))
  }
  if (*gp iswm %aread) {
    set %itemprice [ $+ [ %s ] ] $remove(%aread,$chr(9))
  }
  if (*Notes</td>* iswm %aread) {
    var %note
    sockread %note
  }
  if (*<td> iswm %note) {
    var %lol3
    sockread %lol3
    set %itemnote [ $+ [ %s ] ] $remove($htmlfree(%lol3),$chr(9))
    %return. [ $+ [ %s ] ] $c1(14Item:) $c2 12 $+ %read2 [ $+ [ %s ] ]  $c1(14High alchemy:) $c2 12 $+ %highalch [ $+ [ %s ] ] $c1(14Low alchemy:) $c2 12 $+ %itemprice [ $+ [ %s ] ]


    sockclose $sockname
    /unsetvars
  }
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x
}
alias -l c1 return $+($chr(3),12,$1-,)
alias -l c2 return $+($chr(3),04,$1-,)
alias -l c3 return $+($chr(3),04,,$1-,)

alias unsetvars {
  /unset %return. [ $+ [ %s ] ]
  /unset %item. [ $+ [ %s ] ]
  /unset %item2. [ $+ [ %s ] ]
  /unset %read2 [ $+ [ %s ] ]
  /unset %itemid [ $+ [ %s ] ]
  /unset %memb [ $+ [ %s ] ]
  /unset %quest [ $+ [ %s ] ]
  /unset %trade [ $+ [ %s ] ]
  /unset %highalch [ $+ [ %s ] ]
  /unset %itemprice [ $+ [ %s ] ]
  /unset %itemplace [ $+ [ %s ] ]
  /unset %itemuse [ $+ [ %s ] ]
  /unset %itemnote [ $+ [ %s ] ]
} 





~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



on $*:text:/[!@]calc/Si:#:{   var %display = $iif($left($1,1) == @, msg $chan, notice $nick) 10[Calculator] |   if ($2 == $null) { notice $nick Error - You Didn't Specify An Equasion To Solve | halt } |   else {     %display 4The answer is: $calc($replace($2-,k,000,m,000000,c,00) $2- )) } }




~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~




alias c1 { return $+($chr(3),07,$1-) } 
alias c2 { return $+($chr(3),02,$1-) } 
alias c3 { return $+($chr(3),04,$1-) } 
on $*:text:/^[!@](Clan)/Si:#:{ 
  if ($sock(Clanread)) sockclose Clanread 
  if ($left($1,1) == !) set %display notice $nick $c3 $+ ~ $c2 $+ Clan $c3 $+ ~ 
  if ($left($1,1) == @) set %display msg $chan $c3 $+ ~ $c2 $+ Clan $c3 $+ ~ 
  set %Nick $replace($2-,$chr(32),$chr(43)) 
  sockopen Clanread www.runehead.com 80 
} 
on *:SOCKOPEN:Clanread: { 
  sockwrite -nt $sockname GET /clans/search.php?search= $+ %nick HTTP/1.1 
  sockwrite -nt $sockname Host: www.runehead.com 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:Clanread: { 
  if ($sockerr) { %way Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message. 
    halt 
  } 
  var %sockreader 
  sockread %sockreader 
  If (*<p>The <b>exact</b> search <b>* iswm %sockreader) { set %result $remove($htmlfree(%sockreader),the,exact,search,returned,results:) 
    set %result $remove(%result,$gettok(%result,1,32)) 
  } 
  if (*<td class='tableborder'><a href='ml.php?clan=* iswm %sockreader) { set %cname $htmlfree(%sockreader) } 
  if (*<td class='tableborder'><a href='ml.php?clan=* iswm %sockreader) { set %link $remove(%sockreader,<td class='tableborder'><a href=','>,'title='ViewMemberlist,</a></td>,%cname) 
    %display $c2(%cname) $+ : $c1 $+ www.Runehead.com/clans/ $+ $remove(%link,$chr(32),'title='ViewMemberlist) $+) 
  } 
} 
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
} 






~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~







on $*:TEXT:/^[!@](le?ve?l|(con)?grat[zs])/Si:#:{ 
  var %return = $iif(@* iswm $1, msg #, notice $nick) 
  if ($skill($3) == Overall && $2 isnum 32-2277) { goto lvl } 
  elseif ($skill($3) == Combat && $2 isnum 3-126) { goto lvl } 
  elseif ($skill($3) && $2 isnum 1-99) { goto lvl } 
  else { notice $nick Syntax Error: $1 <level> <skill> } 
  halt 
  :lvl 
  %return 3 °°°12Congratulation's $nick on level 4 $2 $3 $+ ! 3°°°
} 
alias -l skill { 
  if ($regex($1,/^(s(kill)?t(otal)?|overall)$/Si)) { return Overall } 
  elseif ($regex($1,/^at(t(ack)?|k)$/Si)) { return Attack } 
  elseif ($regex($1,/^def(en[cs]e)?$/Si)) { return Defence } 
  elseif ($regex($1,/^str(ength)?$/Si)) { return Strength } 
  elseif ($regex($1,/^h(its?)?p(oints)?$/Si)) { return Hitpoints } 
  elseif ($regex($1,/^range([rd]|ing)?$/Si)) { return Ranged } 
  elseif ($regex($1,/^pray(ing|er)?$/Si)) { return Prayer } 
  elseif ($regex($1,/^mag(e|ic)?$/Si)) { return Magic } 
  elseif ($regex($1,/^cook(er|ing)?$/Si)) { return Cooking } 
  elseif ($regex($1,/^w(ood)?c(ut(ting)?)?$/Si)) { return Woodcutting } 
  elseif ($regex($1,/^fletch(ing|er)?$/Si)) { return Fletching } 
  elseif ($regex($1,/^fish(er|ing)?$/Si)) { return Fishing } 
  elseif ($regex($1,/^f(ire)?m(ak(e|ing))?$/Si)) { return Firemaking } 
  elseif ($regex($1,/^craft(er|ing)?$/Si)) { return Crafting } 
  elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) { return Smithing } 
  elseif ($regex($1,/^min(e|ing)?$/Si)) { return Mining } 
  elseif ($regex($1,/^herb(lore|law)?$/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(ing|er)?$/Si)) { return Farming } 
  elseif ($regex($1,/^r(une)?c(raft)?(ing|er)?$/Si)) { return Runecrafting } 
  elseif ($regex($1,/^con(struct(ion|ing)?)?$/Si)) { return Construction } 
  elseif ($regex($1,/^co?mb(at)?$/Si)) { return Combat } 
  elseif ($regex($1,/^hunt(er|ing)?$/Si)) { return Hunter } 
}