* iswm %yread) { hadd -m $sockname desc $htmlfree(%yread) } if (** iswm %yread) { $hget($sockname,sendway) $+($c1,[,$c2,Link:,$c1 $htmlfree(%yread) |,$c2 Name:,$c1 $hget($sockname,title) |,$c2 Description:,$c1 $hget($sockname,desc),]) .hdel -sw $sockname * sockclose $sockname } } alias loc return $replacex($1-,10,Netherlands 1,11,US Central 1,12,US West 4,13,US East 1,14,US East 3,15,Australia,16,Sweden,17,Canada West,18,Finland,19,Netherlands 2,0,US West 1,1,US West 2,2,US West 3,3,UK 2,4,US West 5,5,UK 1,6,Canada East,7,US East 2,8,US Central 3,9,US Central 2) alias getxp { var %e, %x = 1, %y = $1 while (%x < %y) { inc %e $floor($calc(%x + 300*2^(%x / 7))) inc %x } return $floor($calc(%e /4)) } alias c1 return $chr(3) alias c2 return $+($chr(3),07) alias urlencode { var %a = $regsubex($$1,/([^\w\s])/Sg,$+(%,$base($asc(\t),10,16,2))) return $replace(%a,$chr(32),$chr(43)) } alias admin if ((*!darkool83@fly.away.on.my.roflcopter.info iswm $address($1,5)) || (*!darkool83@i.got.sexypenguins.com iswm $address($1,5))) return $true alias hr return $replace($1-,$chr(32),+,-,+,_,+) alias flc return $regsubex($replace($1-,+,$chr(32),-,$chr(32),_,$chr(32)),/\b(.)/Sg,$upper(\1)) alias StatsID { if ($regex($1,/^[@!.](stats|overall?|total)$/Si)) return Overall elseif ($regex($1,/^[@!.]co?mb(at)?%$/Si)) return Combatp elseif ($regex($1,/^[@!.]co?mb(at)?$/Si)) return Combat elseif ($regex($1,/^[@!.]at[tk](ack)?$/Si)) return Attack elseif ($regex($1,/^[@!.]de[fv](en[cs]e)?$/Si)) return Defence elseif ($regex($1,/^[@!.]str(eng(ht|th))?$/Si)) return Strength elseif ($regex($1,/^[@!.]h(p|it(points?|s))$/Si)) return Hitpoints elseif ($regex($1,/^[@!.]range?d?$/Si)) return Ranged elseif ($regex($1,/^[@!.]pray(er)?$/Si)) return Prayer elseif ($regex($1,/^[@!.]mag(ic|e)$/Si)) return Magic elseif ($regex($1,/^[@!.]cook(e|ing)?$/Si)) return Cooking elseif ($regex($1,/^[@!.]w(ood)?c(utting)?$/Si)) return Woodcutting elseif ($regex($1,/^[@!.]flet(ch|hc)(ing|e)?$/Si)) return Fletching elseif ($regex($1,/^[@!.]fish(ing|e)?$/Si)) return Fishing elseif ($regex($1,/^[@!.]f(ire)?m(ak(e|ing))?$/Si)) return Firemaking elseif ($regex($1,/^[@!.]craft(ing|er?)?$/Si)) return Crafting elseif ($regex($1,/^[@!.]smith(ing|er?)?$/Si)) return Smithing elseif ($regex($1,/^[@!.]min(ing|er?)?$/Si)) return Mining elseif ($regex($1,/^[@!.]herb(lor[ye])?$/Si)) return Herblore elseif ($regex($1,/^[@!.]agil?(lity)?$/Si)) return Agility elseif ($regex($1,/^[@!.]th(ie|ei)[fv](ing|er)?$/Si)) return Thieving elseif ($regex($1,/^[@!.]slay(ing|er?)?$/Si)) return Slayer elseif ($regex($1,/^[@!.]farm(ing|er?)$/Si)) return Farming elseif ($regex($1,/^[@!.]r(une)?c(raft(ing|er?)?)?$/Si)) return Runecraft elseif ($regex($1,/^[@!.]hunt(ing|er?)?$/Si)) return Hunter elseif ($regex($1,/^[@!.]c(on|s)s?(truct(ion)?)?$/Si)) return Construction } alias htmlfree return $regsubex($regsubex($1-,/<.*>|&[^#].*;/gU,),/&#(.*);/gU,$chr(\1)) alias cmb { tokenize 32 $1- var %rsc1 = $calc((($1 * 130) + ($3 * 130)) / 400) var %rsc2 = $calc($iif($and($5,1) == 0,$calc($5 * 195),$calc((($5 - 1) + ($5 * 2)) * 65)) / 400) var %rsc3 = $calc($iif($and($7,1) == 0,$calc($7 * 195),$calc((($7 - 1) + ($7 * 2)) * 65)) / 400) if ((%rsc1 >= %rsc2) && (%rsc1 >= %rsc3)) return $calc(%rsc1 + ((($2 * 100) + ($4 * 100) + ($iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50)) / 400)) Melee Based elseif ((%rsc2 >= %rsc3) && (%rsc2 >= %rsc1)) return $calc(%rsc2 + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Ranged Based elseif ((%rsc3 >= %rsc1) && (%rsc3 >= %rsc2)) return $calc(%rsc3 + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Magic Based } alias cc1 tokenize 32 $1 | return $ceil($calc(($ceil($1) - $1) / 0.325)) alias cc2 tokenize 32 $1 | return $ceil($calc(($ceil($1) - $1) / 0.25)) alias cc3 tokenize 32 $1 | return $ceil($calc(($ceil($1) - $1) / 0.4875)) alias cc4 tokenize 32 $1 | return $ceil($calc(($ceil($1) - $1) / 0.125)) on *:sockopen:youtube.*:{ sockwrite -nt $sockname GET /results?search_query= $+ $hr($hget($sockname,lookup)) HTTP/1.1 sockwrite -nt $sockname Host: youtube.com sockwrite -nt $sockname $crlf } on *:sockread:youtube.*:{ var %tuberead sockread %tuberead if (*No Videos found* iswm %tuberead) { $hget($sockname,sendway) $+([,No,$c2 results found for,$c1 $flc($hget($sockname,lookup)),]) } if (** iswm %tuberead) { var %tubetitle | sockread %tubetitle | var %length | sockread %length hadd -m $sockname title $htmlfree(%tubetitle) hadd -m $sockname length $htmlfree(%length) } if (*Added:* iswm %tuberead) { hadd -m $sockname added $token($htmlfree(%tuberead),2,32) $token($htmlfree(%tuberead),3,32) $token($htmlfree(%tuberead),4,32) } if (*From:* iswm %tuberead) { hadd -m $sockname by $token($htmlfree(%tuberead),2,32) } if (*Views:* iswm %tuberead) { $hget($sockname,sendway) $remove($+([,$c2,Title:,$c1 $hget($sockname,title) |,$c2 Link:,$c1 $hget($sockname,link) |,$c2 Added:,$c1 $hget($sockname,added),$c2 by,$c1 $hget($sockname,by) |,$c2 Length:,$c1 $hget($sockname,length) |,$c2 Views:,$c1 $token($htmlfree(%tuberead),2,32),]),$chr(9)) .hdel -sw $sockname * sockclose $sockname } }