rendered paste body~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
on *:TEXT:!calc*:*: notice $nick 3[14 $me Calc3] 14Answer:07 $bytes($calc($replace($2-,k,*1000,m,*1000000,K,*1000,M,*1000000)),bd) $+
on *:TEXT:@calc*:*: msg $chan 3[14 $me Calc3] 14Answer:07 $bytes($calc($replace($2-,k,*1000,m,*1000000,K,*1000,M,*1000000)),bd) $+
on *:TEXT:*!dice*:#:{{ msg $chan 3[14 $me 6 Sided Dice3] 4 $me throws the dice at $nick and the dice shows a - $read(6die.txt)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ON $*:TEXT:/^[!@]clan/Si:#:{ unset %clanc.* | inc %c
set $+(%,clan.return.,%c) $iif($left($1,1) == @,msg $chan,notice $nick)
set $+(%,clan.member.,%c) $replace($2-,$chr(32),_)
sockopen $+(clan.,%c) www.runehead.com 80
}
ON *:SOCKOPEN:clan.*:{
sockwrite -nt $sockname GET $+(/clans/search.php?search=,$($+(%,clan.member.,%c),2),&searchtype=excact) HTTP/1.1
sockwrite -nt $sockname Host: www.runehead.com $+ $+($crlf,$crlf)
}
ON *:SOCKREAD:clan.*:{
if ($sockerr) { $($+(%,clan.return.,%c),2) [CLAN] Socket Error Has Occured Please Try Again In 30 Seconds }
else {
sockread %clan
if (*<p>No results were found for* iswm %clan) {
$($+(%,clan.return.,%c),2) [CLAN] Sorry, no results were found for: $replace($($+(%,clan.member.,%c),2),_,$chr(32))
sockclose $sockname
}
if (*</b> returned <b>*</b> result*:* iswm %clan) { set $+(%,clan.results.,%c) $remove($htmlfree(%clan), $($+(%,clan.member.,%c),2), exact, the, search, returned, results:, result:, $chr(32))
}
if (*'ml.php?clan=*'>*</a></td> iswm %clan) { if ($($+(%,clan.results.,%c),2) >= 2) { set $+(%,clan.list2.,%c) $($+(%,clan.list.,%c),2)
set $+(%,clan.list.,%c) $($+(%,clan.list2.,%c),2) « » $htmlfree(%clan)
inc $+(%,clan.c.,%c)
if ($($+(%,clan.c.,%c),2) == $($+(%,clan.results.,%c),2)) $($+(%,clan.return.,%c),2) [CLAN] » $replace($($+(%,clan.member.,%c),2),_,$chr(32)) is in the clans: $($+(%,clan.list.,%c),2) «
}
if ($($+(%,clan.results.,%c),2) == 1) { $($+(%,clan.return.,%c),2) [CLAN] $replace($($+(%,clan.member.,%c),2),_,$chr(32)) is in the clan:» $htmlfree(%clan) « }
}
}
}
ON *:SOCKCLOSE:clan.*:{
unset %clan.*
unset %clanc.*
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ON *:TEXT:!SetGreet*:#:{
if ($ isin $1-) {
notice $Nick i am now ignoring you.
ignore $nick
halt
}
if ($2 == $null) {
notice $nick 12!SetGreet4 <12Greet Here4>
halt
}
if ($read(greet.txt, s, $address($nick,2)) == $null) {
write Greet.Txt $Address($nick,2) $2-
notice $nick 12Greet Saved for4 $address($nick,2)
halt
}
else {
write -ds $+ $address($nick,2) Greet.txt
write Greet.Txt $Address($nick,2) $2-
notice $nick 12Greet Saved for4 $address($nick,2)
}
}
ON *:JOIN:#:{
if ($chan == #b0ts || $nick == $me) { halt }
if ($read(greet.txt, s, $address($nick,2)) == $null) {
notice $nick 12You have no set greet!4 !SetGreet12 <Greet Here>
halt
}
else {
msg $chan 1[ $+ $nick $+ 1]: $read(greet.txt, s, $address($nick,2))
}
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
on $*:TEXT:/^[!@]((def|set)?(name|rsn)|p(est|c)|stats?|overall?|totaa?l|co?mb|att|def|str|h(p|it)|rang|pray|mag[ie]|cook|w(c|ood)|flet|fish|f(m|iremak)|craft|smith|min|herb|agi|th(ie|ei)|slay|farm|r(c|une)|hunt|c(s|on))/Si:#:{
if ($regex($1,/^[!@](def|set)?(name|rsn)/Si)) {
if (!$2) notice $nick $+($c1,[,$c2,You didn't specify a name! Please type,$c1 $1 name ])
else {
writeini defname.ini Defname $address($nick,3) $hr($2-)
notice $nick $+($c1,[,$c2,The nick $c1,$2- $c2,is now set for your host,$c1,])
}
}
else {
inc %sc | sockopen $+(stats.,%sc) o-ss.net 80
if ($regex($1,/^[!@]p(est|c)/Si)) sockmark $+(stats.,%sc) $iif($regex($1,/^@/Si),msg $chan,notice $nick) $iif($regex($left($3,1),/^[#-]/Si),$iif($4,$hr($4-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick)),$iif($3,$hr($3-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick))) $+(p.,$StatsID($2)) $iif($regex($left($3,1),/^[#-]/Si),$remove($3,$chr(35),-))
else sockmark $+(stats.,%sc) $iif($regex($1,/^@/Si),msg $chan,notice $nick) $iif($regex($left($2,1),/^[#-]/Si),$iif($3,$hr($3-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick)),$iif($2,$hr($2-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick))) $StatsID($1) $iif($regex($left($2,1),/^[#-]/Si),$remove($2,$chr(35),-))
}
}
on *:SOCKOPEN:stats.*:{
sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $gettok($sock($sockname).mark,3,32) HTTP/1.1
sockwrite -nt $sockname Host: o-ss.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:stats.*:{
var %rs | sockread %rs
if ((*does not feature* iswm %rs) && ($sockname)) {
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,any skill])
sockclose $sockname
}
elseif ((*overall* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == overall) && ($sockname)) {
var %z = %rs, %c = 1
while (%c <= 23) { sockread %rs | tokenize 32 %rs | if ($3 != ranked) var %z = %z $+($gettok(%rs,1,32),: $c1,$gettok(%rs,3,32),$c2) | if (%c isnum 1-7) var %k = %k $iif($3 == ranked,$iif($1 == hitpoints,10,1),$3) | inc %c } | tokenize 32 %z
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Overall for $sr($gettok($sock($sockname).mark,3,32)),$c1,] [,$c2,Combat:,$c1 $cmb(%k $sockname) |,$c2 Total: $c1,$3 |,$c2 Rank: $c1,$2 |,$c2 Exp: $c1,$4,])
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$left($gettok(%z,5-,32),-3),$c1,])
sockclose $sockname
}
elseif ((!$regex($gettok($sock($sockname).mark,4,32),/(overall|combat)/Si)) && ($+(*,$gettok($sock($sockname).mark,4,32),*) iswm %rs) && ($sockname)) {
if ($gettok(%rs,2,32) == not) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,$gettok($sock($sockname).mark,4,32),])
else $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$gettok($sock($sockname).mark,4,32) for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Level: $c1,$gettok(%rs,3,32) |,$c2 Rank: $c1,$gettok(%rs,2,32) |,$c2 Exp: $c1,$gettok(%rs,4,32),$iif($gettok(%rs,3,32) != 99,$+($chr(32),|,$c2 Exp till level $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),$c2,:,$c1 $bytes($calc($exp($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))),bd))),])
sockclose $sockname
}
elseif ((*attack* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == combat) && ($sockname)) {
var %c = $iif($gettok(%rs,3,32) != ranked,$v1,1), %z = 1
while (%z <= 6) { sockread %rs | var %c = %c $iif($gettok(%rs,3,32) != ranked,$v1,$iif($gettok(%rs,1,32) == hitpoints,10,1)) | inc %z } | tokenize 32 %c
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Combat for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Combat: $c1,$cmb(%c $sockname),] [,$c2,Att:,$c1 $1 |,$c2 Str:,$c1 $3 |,$c2 Def:,$c1 $2 |,$c2 Hp:,$c1 $4 |,$c2 Ranged:,$c1 $5 |,$c2 Pray:,$c1 $6 |,$c2 Magic:,$c1 $7,])
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Stats till combat $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok($cmb(%c $sockname),1,46) + 1)),] [,$c2,$iif($gettok($cmb(%c $sockname),2,32) == melee,$+(Att/Str: $c1,$cc1($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$iif($gettok($cmb(%c $sockname),2,32) == ranged,$+(Ranged: $c1,$cc3($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$&
$iif($gettok($cmb(%c $sockname),2,32) == magic,$+(Magic: $c1,$cc3($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$chr(32),|,$c2 Hp/Def: $c1,$cc2($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))) |,$c2 Pray: $c1,$cc4($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))),])
sockclose $sockname
}
elseif ((*overall* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == combatp) && ($sockname)) {
var %o = $iif($gettok(%rs,4,32),$remove($v1,$chr(44)),0), %z = 1
while (%z <= 7) { sockread %rs | var %c = $calc(%c + $iif($gettok(%rs,4,32),$remove($v1,$chr(44)),0)) | inc %z }
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Combat percentage of $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Total Exp:,$c1 $bytes(%o,bd) |,$c2 Combat Exp:,$c1 $bytes(%c,bd) |,$c2 Combat Percentage:,$c1 $round($calc((%c / %o) * 100),2),$chr(37),])
sockclose $sockname
}
elseif ((p.* iswm $gettok($sock($sockname).mark,4,32)) && ($+(*,$remove($gettok($sock($sockname).mark,4,32),p.),*) iswm %rs) && ($sockname)) {
if ($gettok(%rs,2,32) == not) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,$remove($gettok($sock($sockname).mark,4,32),p.),])
elseif ($gettok(%rs,3,32) == 99) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$remove($gettok($sock($sockname).mark,4,32),p.) for $c1,$sr($gettok($sock($sockname).mark,3,32)) $c2,is already 99,$c1,])
else {
var %m = $calc($gettok($calc(($exp($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))) / ($gettok($calc(($gettok(%rs,3,32) * $gettok(%rs,3,32)) / $iif($remove($gettok($sock($sockname).mark,4,32),p.) == prayer,12,6)),1,46) + 1)),1,46) + 1)
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$remove($gettok($sock($sockname).mark,4,32),p.) for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Level: $c1,$gettok(%rs,3,32) |,$c2 Rank: $c1,$gettok(%rs,2,32) |,$c2 Exp: $c1,$gettok(%rs,4,32),])
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Exp till level $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),$c2,:,$c1 $bytes($calc($exp($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))),bd),] [,$c2,PC Tickets (1):,$c1 $bytes(%m,bd) |,$c2 PC Tickets (100):,$c1 $bytes($gettok($calc(((%m / 10) * 9) + 1),1,46),bd),])
sockclose $sockname
}
}
}
alias -l c1 return $+($chr(3),14)
alias -l c2 return $+($chr(3),07)
alias -l hr { return $replace($1-,$chr(32),+,$chr(45),+,$chr(95),+) }
alias -l sr { return $replace($1-,+,$chr(32)) }
alias -l StatsID {
if ($regex($1,/^([!@])?(stats?|overall?|totaa?l)/Si)) return Overall
elseif ($regex($1,/^([!@])?co?mb%/Si)) return Combatp
elseif ($regex($1,/^([!@])?co?mb/Si)) return Combat
elseif ($regex($1,/^([!@])?att/Si)) return Attack
elseif ($regex($1,/^([!@])?def/Si)) return Defence
elseif ($regex($1,/^([!@])?str/Si)) return Strength
elseif ($regex($1,/^([!@])?h(p|it)/Si)) return Hitpoints
elseif ($regex($1,/^([!@])?rang/Si)) return Ranged
elseif ($regex($1,/^([!@])?pray/Si)) return Prayer
elseif ($regex($1,/^([!@])?mag[ei]/Si)) return Magic
elseif ($regex($1,/^([!@])?cook/Si)) return Cooking
elseif ($regex($1,/^([!@])?w(c|oodcut)/Si)) return Woodcutting
elseif ($regex($1,/^([!@])?flet/Si)) return Fletching
elseif ($regex($1,/^([!@])?fish/Si)) return Fishing
elseif ($regex($1,/^([!@])?f(m|iremak)/Si)) return Firemaking
elseif ($regex($1,/^([!@])?craft/Si)) return Crafting
elseif ($regex($1,/^([!@])?smith/Si)) return Smithing
elseif ($regex($1,/^([!@])?min/Si)) return Mining
elseif ($regex($1,/^([!@])?herb/Si)) return Herblore
elseif ($regex($1,/^([!@])?agi/Si)) return Agility
elseif ($regex($1,/^([!@])?th(ie|ei)/Si)) return Thieving
elseif ($regex($1,/^([!@])?slay/Si)) return Slayer
elseif ($regex($1,/^([!@])?farm/Si)) return Farming
elseif ($regex($1,/^([!@])?r(c|une)/Si)) return Runecraft
elseif ($regex($1,/^([!@])?hunt/Si)) return Hunter
elseif ($regex($1,/^([!@])?c(s|on)/Si)) return Construction
}
alias -l cmb {
tokenize 32 $1-
var %rsc1 [ $+ [ $8 ] ] $calc((($1 * 130) + ($3 * 130)) / 400)
var %rsc2 [ $+ [ $8 ] ] $calc($iif($and($5,1) == 0,$calc($5 * 195),$calc((($5 - 1) + ($5 * 2)) * 65)) / 400)
var %rsc3 [ $+ [ $8 ] ] $calc($iif($and($7,1) == 0,$calc($7 * 195),$calc((($7 - 1) + ($7 * 2)) * 65)) / 400)
if ((%rsc1 [ $+ [ $8 ] ] >= %rsc2 [ $+ [ $8 ] ]) && (%rsc1 [ $+ [ $8 ] ] >= %rsc3 [ $+ [ $8 ] ])) return $calc(%rsc1 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + ($iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50)) / 400)) Melee Based
elseif ((%rsc2 [ $+ [ $8 ] ] >= %rsc3 [ $+ [ $8 ] ]) && (%rsc2 [ $+ [ $8 ] ] >= %rsc1 [ $+ [ $8 ] ])) return $calc(%rsc2 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Ranged Based
elseif ((%rsc3 [ $+ [ $8 ] ] >= %rsc1 [ $+ [ $8 ] ]) && (%rsc3 [ $+ [ $8 ] ] >= %rsc2 [ $+ [ $8 ] ])) return $calc(%rsc3 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Magic Based
}
alias -l exp { return $gettok(0 83 174 276 388 512 650 801 969 1154 1358 1584 1833 2107 2411 2746 3115 3523 3973 4470 5018 5624 6291 7028 7842 8740 9730 10824 12031 13363 14833 16456 18247 20224 22406 24815 27473 30408 33648 37224 41171 45529 50339 55649 61512 67983 75127 83014 91721 101333 111945 123660 136594 150872 166636 184040 203254 224466 247886 273742 302288 333804 368599 407015 449428 496254 547953 605032 668051 737627 814445 899257 992895 1096278 1210421 1336443 1475581 1629200 1798808 1986068 2192818 2421087 2673114 2951373 3258594 3597792 3972294 4385776 4842295 5346332 5902831 6517253 7195629 7944614 8771558 9684577 10692629 11805606 13034431,$1,32) }
alias -l cc1 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.325) + 1),1,46) }
alias -l cc2 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.25) + 1),1,46) }
alias -l cc3 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.4875) + 1),1,46) }
alias -l cc4 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.125) + 1),1,46) }
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
on $*:TEXT:/^[!@.]compare/Si:#:{
if (!$4 || !$skills($2)) { notice $nick Invalid format: $1 <skill> <nick1> <nick2> | halt }
var %id = $ticks
set %compare.nick1 [ $+ [ %id ] ] $3
set %compare.nick2 [ $+ [ %id ] ] $4
set %compare.skill [ $+ [ %id ] ] $skills($2)
set %compare.way [ $+ [ %id ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
sockopen compare. [ $+ [ %id ] ] parsers.o-ss.net 80
}
on *:SOCKOPEN:compare.*: {
var %id = $gettok($sockname,2,46)
sockwrite -n $sockname GET $+(/compare.php?user1=,%compare.nick1 [ $+ [ %id ] ],&user2=,%compare.nick2 [ $+ [ %id ] ],&skill=,%compare.skill [ $+ [ %id ] ]) HTTP/1.1
sockwrite -n $sockname Host: parsers.o-ss.net
sockwrite -n $sockname $str($crlf,2)
}
on *:SOCKREAD:compare.*:{
var %id = $gettok($sockname,2,46)
var %rsn1 = %compare.nick1 [ $+ [ %id ] ], $&
%rsn2 = %compare.nick2 [ $+ [ %id ] ], $&
%skill = %compare.skill [ $+ [ %id ] ], $&
%style = %compare.way [ $+ [ %id ] ]
var %compare.sockread
sockread %compare.sockread
if (*is not in the* iswm %compare.sockread) {
tokenize 32 %compare.sockread
%style [COMPARE] Sorry $1 is not in the hiscores for %skill
sockclose $sockname
}
elseif (*are not in the* iswm %compare.sockread) {
tokenize 32 %compare.sockread
%style [COMPARE] Sorry $1 and $3 are not in the hiscores for %skill
sockclose $sockname
}
else {
tokenize 32 %compare.sockread
if ($3 == 1) {
%style[COMPARE] %rsn1 ( $+ $1 $+ ) is $4 %skill levels higher than %rsn2 ( $+ $2 $+ ) with $bytes($5,db) more experience.
sockclose $sockname
}
elseif ($3 == 0) {
%style [COMPARE] %rsn2 ( $+ $1 $+ ) is $4 %skill levels higher than %rsn1 ( $+ $2 $+ ) with $bytes($5,db) more experience.
sockclose $sockname
}
}
}
on *:SOCKCLOSE:compare.*:{ unset %compare.* }
alias skills {
if ($regex($1,/^(st|(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,/^range(r|d|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|wood(cut(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|eing|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)(struct)(ion|ing)?$/si)) return Construction
elseif ($regex($1,/^(hunt)(er|in|ing)?$/si)) return Hunter
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
on $*:TEXT:/^[!@.](rs)?(world|server) */Si:#: {
if ($2 !isnum) { .notice $nick Specify a numeric world! | halt }
else {
var %x = 1
while ($sock(world. $+ %x)) inc %x
.set $+(%,target.,%x) $iif($left($1,1) == @ && $nick !isreg #,.msg $chan,.notice $nick)
.set $+(%,world.,%x) $2
sockopen $+(world.,%x) parsers.o-ss.net 80
}
}
on *:SOCKOPEN:world.*: {
var %x = $right($sockname,1)
if ($sockerr > 0) {
$eval($+(%,target.,%x),2) Socket Error: $sockerr
cleanup $sockname
halt
}
sockwrite -nt $sockname GET /oneline/worlds.php?w= $+ $eval($+(%,world.,%x),2) HTTP/1.1
sockwrite -nt $sockname Host: parsers.o-ss.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:world.*: {
var %x = $right($sockname,1)
if ($sockerr > 0) {
$eval($+(%,target.,%x),2) Socket Error: $sockerr
cleanup $sockname
halt
}
var %read | sockread %read
if (world isin %read) {
$eval($+(%,target.,%x),2) World $eval($+(%,world.,%x),2) not found.
cleanup $sockname
halt
}
if (END isin %read) {
tokenize 32 %read
$eval($+(%,target.,%x),2) World: $1 $chr(124) Members only: $iif($2 == M,Yes,No) $chr(124) Players: $3 $chr(124) Location: $remove($4-,END)
cleanup $sockname
}
}
alias cleanup {
unset %target. $+ $right($1,1)
unset %world. $+ $right($1,1)
sockclose $1
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
on $*:TEXT:/^[!@.](rs)?players/Si:#: {
var %x = 1
while ($sock(rsp. $+ %x)) inc %x
.set $+(%,target.,%x) $iif($left($1,1) == @ && $nick !isreg #,.msg $chan,.notice $nick)
sockopen $+(rsp.,%x) parsers.o-ss.net 80
}
on *:SOCKOPEN:rsp.*: {
var %x = $right($sockname,1)
if ($sockerr > 0) {
$eval($+(%,target.,%x),2) Socket Error: $sockerr
pcleanup $sockname
halt
}
sockwrite -nt $sockname GET /players.php HTTP/1.1
sockwrite -nt $sockname Host: parsers.o-ss.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rsp.*: {
var %x = $right($sockname,1)
if ($sockerr > 0) {
$eval($+(%,target.,%x),2) Socket Error: $sockerr
pcleanup $sockname
halt
}
var %read | sockread %read
if (END isin %read) {
$eval($+(%,target.,%x),2) Current RuneScape Players online: $bytes($gettok(%read,1,32),b)
pcleanup $sockname
}
}
alias pcleanup {
unset %target. $+ $right($1,1)
sockclose $1
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
on $*:TEXT:/^[!@.]price */Si:#: {
if (!$2) {
.notice $nick Specify an item!
halt
}
else {
var %x = 1
while ($sock(price. $+ %x)) inc %x
.set $+(%,target.,%x) $iif($left($1,1) == @ && $nick !isreg #,.msg $chan,.notice $nick)
.set $+(%,item.,%x) $replace($2-,$chr(32),+)
sockopen $+(price.,%x) parsers.o-ss.net 80
}
}
on *:SOCKOPEN:price.*: {
var %x = $right($sockname,1)
if ($sockerr > 0) {
$eval($+(%,target.,%x),2) Socket Error: $sockerr
cleanup $sockname
halt
}
sockwrite -nt $sockname GET /oneline/price.php?showmemb=1&item= $+ $eval($+(%,item.,%x),2) HTTP/1.1
sockwrite -nt $sockname Host: parsers.o-ss.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:price.*: {
var %x = $right($sockname,1)
if ($sockerr > 0) {
$eval($+(%,target.,%x),2) Socket Error: $sockerr
cleanup $sockname
halt
}
var %read | sockread %read
if (END isin %read) {
$eval($+(%,target.,%x),2) $left($replace(%read,M-,{M} -),-6)
cleanup $sockname
}
if (spelling isin %read) {
$eval($+(%,target.,%x),2) %read
cleanup $sockname
}
}
alias cleanup {
unset %target. $+ $right($1,1)
unset %item. $+ $right($1,1)
sockclose $1
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
On $*:text:/^[!@]Google/Si:#: {
if ($2 == $null) { $iif($left($1,1) == @,msg $chan,notice $nick) You must specify a sentence or word to search for. Syntax: [!@]Google <sentence/word>. }
else {
inc %hi
set %hisearch [ $+ [ %hi ] ] $replace($2-,$chr(32),+)
sockopen $+(google.,%hi) www.google.com 80
sockmark $+(google.,%hi) $+($iif($left($1,1) == @,msg $chan,notice $nick)) }
}
on *:sockopen:google.*: {
remove google
sockwrite -nt $sockname GET /search?hl=en&q= $+ %hisearch [ $+ [ $gettok($sockname,2,46) ] ] HTTP/1.0
sockwrite -nt $sockname Host: www.google.com
sockwrite -nt $sockname $crlf
}
on *:sockread:google.*: {
while ($sock($sockname).rq) {
sockread &google
bwrite google -1 -1 &google
}
bread google 0 $file(google).size &google
if ($bfind(&google,1,did not match)) {
$sock($sockname).mark [Nothing was found for %hisearch [ $+ [ $gettok($sockname,2,46) ] ] $+ ]
halt
unset %hisearch [ $+ [ $gettok($sockname,2,46) ] ]
sockclose $sockname
}
if ($bfind(&google,1,</HTML>)) {
$sock($sockname).mark [Link: $bvar(&google,$calc($bfind(&google,1,<h2 class=r><a href=") + 21),$calc($bfind(&google,$calc($bfind(&google,1,<h2 class=r><a href=") + 21),34) - $calc($bfind(&google,1,<h2 class=r><a href=") + 21))).text $+ ] [Name: $htmlfree($bvar(&google,$calc($bfind(&google,1,class=l>) + 8),$calc($bfind(&google,$calc($bfind(&google,1,class=l>) + 9),</a></h2>) - $calc($bfind(&google,1,class=l>) + 8))).text) $+ ] [Description: $htmlfree($bvar(&google,$calc($bfind(&google,1,class="j">) + 14),$calc($bfind(&google,$calc($bfind(&google,1,class="j">) + 9),<br>) - $calc($bfind(&google,1,class="j">) + 14))).text) $+ ]
unset %hisearch [ $+ [ $gettok($sockname,2,46) ] ]
sockclose $sockname }
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&) | return %x
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
alias nohtml {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
return $remove(%x, ,$chr(09))
}
alias c1 return $+($chr(3),10,$1-)
alias c2 return $+($chr(3),03,$1-)
on $*:TEXT:/^[!@]Monster/Si:#:{
$ibusta
var %sckid = $right($ticks,5)
if (!$2) { notice $nick $c1(Put a second word) }
sockclose monster. [ $+ [ %sckid ] ]
set %display. [ $+ [ %sckid ] ] $iif($left($1,1) == @, msg $chan, notice $nick)
set %searched. [ $+ [ %sckid ] ] $replace($2-,$chr(32),% $+ 20)
sockopen monster. [ $+ [ %sckid ] ] tip.it 80
}
on *:SOCKOPEN:monster.*: {
sockwrite -nt $sockname GET /runescape/index.php?rs2monster=&orderby=0&keywords= $+ %searched. [ $+ [ $right($sockname,5) ] ] HTTP/1.1
sockwrite -nt $sockname Host: tip.it
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:monster.*: {
if ($sockerr) {
echo -a Socket error
}
else {
var %mreader
sockread %mreader
if (*<td><a href="?rs2monster_id=*">*</a></td>* iswm %mreader) {
set %name. [ $+ [ $right($sockname,5) ] ] $nohtml(%mreader)
}
if ($regex(%mreader,/<a href="\?rs2monster_id=(.+)">/)) {
set %site2. [ $+ [ $right($sockname,5) ] ] $regml(1)
}
if (*<td align="center">*</td>* iswm %mreader) {
inc %monsterinc. [ $+ [ $right($sockname,5) ] ]
}
if (*<td align="center">*</td>* iswm %mreader) && (%monsterinc. [ $+ [ $right($sockname,5) ] ] == 1) {
tokenize 32 $nohtml(%mreader)
set %Race. [ $+ [ $right($sockname,5) ] ] $nohtml(%mreader) }
}
if (*<td align="center">*</td>* iswm %mreader) && (%monsterinc. [ $+ [ $right($sockname,5) ] ] == 2) {
set %Members. [ $+ [ $right($sockname,5) ] ] $nohtml(%mreader)
}
if (*<td align="center">*</td>* iswm %mreader) && (%monsterinc. [ $+ [ $right($sockname,5) ] ] == 3) {
%display. [ $+ [ $right($sockname,5) ] ] $+($c1,$chr(91),Name:,$c2,%name. [ $+ [ $right($sockname,5) ] ],$chr(93),$chr(03)) $+($c1,$chr(91),Level:,$c2,%level. [ $+ [ $right($sockname,5) ] ],$chr(93),$chr(03)) $+($c1,$chr(91),Race:,$c2,%race. [ $+ [ $right($sockname,5) ] ],$chr(93),$chr(03)) $+($c1,$chr(91),Members:,$c2,%members. [ $+ [ $right($sockname,5) ] ],$chr(93),$chr(03)) $+($c1,$chr(91),Quest:,$c2,$nohtml(%mreader),$chr(93),$chr(03))
}
if (*<td>*</td>* iswm %mreader) {
inc %tdstuff. [ $+ [ $right($sockname,5) ] ]
}
if (*<td>*</td>* iswm %mreader) && (%tdstuff. [ $+ [ $right($sockname,5) ] ] == 10) {
set %level. [ $+ [ $right($sockname,5) ] ] $nohtml(%mreader)
sockopen monster2. [ $+ [ $right($sockname,5) ] ] tip.it 80
}
}
on *:SOCKOPEN:monster2.*: {
sockwrite -nt $sockname GET /runescape/index.php?rs2monster_id= $+ %site2. [ $+ [ $right($sockname,5) ] ] HTTP/1.1
sockwrite -nt $sockname Host: tip.it
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:monster2.*: {
var %mreader2
sockread %mreader2
if (*<td width="20%">*</td> iswm %mreader2) {
inc %e. [ $+ [ $right($sockname,5) ] ]
}
if (*<td width="20%">*</td>* iswm %mreader2) && (%e. [ $+ [ $right($sockname,5) ] ] == 4) {
set %hp. [ $+ [ $right($sockname,5) ] ] $nohtml(%mreader2)
}
if (*<td width="*%"><b>Aggressive?</b> *</td>* iswm %mreader2) {
set %aggressive. [ $+ [ $right($sockname,5) ] ] $nohtml(%mreader2)
}
if (*<td width="*%"><b>Retreats?</b> *</td>* iswm %mreader2) {
set %retreat. [ $+ [ $right($sockname,5) ] ] $nohtml(%mreader2)
}
if (*<td width="*%"><b>Poisonous?</b> *</td>* iswm %mreader2) {
set %poisonous. [ $+ [ $right($sockname,5) ] ] $nohtml(%mreader2)
}
if (*<td align="left"><ul>*</ul>* iswm %mreader2) {
%display. [ $+ [ $right($sockname,5) ] ] $+($c1,$chr(91),Hitpoints:,$c2,%hp. [ $+ [ $right($sockname,5) ] ],$chr(93)) $+($c1,$chr(91),Retreats:,$c2,$remove(%retreat. [ $+ [ $right($sockname,5) ] ],retreats?),$chr(93),$chr(32),$c1,$chr(91),$c1,Aggressive:,$C2,$remove(%aggressive. [ $+ [ $right($sockname,5) ] ],aggressive?),$chr(93),$chr(32),$c1,$Chr(91),$c2,Poisonous:,$c1,$remove(%poisonous. [ $+ [ $right($sockname,5) ] ],poisonous?),$chr(93)) $+($chr(91),$c1,Habbitat:,$c2,$nohtml(%mreader2),$chr(93))
unset %*. [ $+ [ $right($sockname,5) ] ]
sockclose $sockname
}
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
on $*:TEXT:/^[!@]alch/Si:#: {
if (!$2) { notice $nick please enter a item to lookup. | halt }
else {
set %item $replace($2-,$chr(32),%20)
set %nick $nick
sockopen alch rsparsers.awardspace.com 80
}
}
on *:SOCKOPEN:alch: {
sockwrite -nt $sockname GET /alch.php HTTP/1.1
sockwrite -nt $sockname Host: rsparsers.awardspace.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:alch: {
if ($sockerr) {
msg %nick Error whilst running script.
halt
}
}
else {
var %sockreader
sockread %sockreader
if (* %item * iswm %sockreader ) {
notice %nick *** [ALCH] %sockreader
sockclose alch | unset %nick | unset %item
}
}
if (* %item - No Data * iswm %sockreader ) {
notice %nick *** [ALCH] There is no data retrieved for item " $+ %item $+ "
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ON $*:TEXT:/^[!@](e)?xp/Si:#:{
$iif($left($1,1) == @,msg $chan,notice $nick) [Level: $2 $+ ] [Exp: $bytes($xp($2),db) $+ ]
}
alias xp {
var %x = 1, %level = $calc($1 - 1), %xp = 0
while (%x <= %level) {
var %tempxp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
inc %xp %tempxp
inc %x
}
return $int(%xp)
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@~]gratz)/Si):*:{
if (($readini(dchans.ini, dchans, $chan) == on) && ($me !isin $1)) /halt
/tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
if ($2- == $null) { .notice $nick Syntax: $1 level skill }
elseif (($2 > 99) || ($2 < 1)) { .notice $nick Err: The level must be between 1-99. Syntax: $1 level skill }
elseif (!$skill($3-)) { .notice $nick Err: $+(",$3-,") is not a valid skill. Syntax: $1 level skill }
else { $iif($left($1,1) == @ && ($nick !isreg $chan),/msg $chan,/.notice $nick) 12*****4 Congrats on level 07 $+ $2 $skill($3) $+ , $nick 12***** }
}
alias -l /skill {
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,/^hunter(hnt|hunt)?$/Si)) return Hunter
elseif ($regex($1,/^retard(div|idiot)?$/Si)) return Retard
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
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~