Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on *:JOIN:#: {
- var %estrand = $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9)
- set %cmbtarget. [ $+ [ %estrand ] ] $nick
- set %cmbchan. [ $+ [ %estrand ] ] $chan
- sockopen cmb. [ $+ [ %estrand ] ] hiscore.runescape.com 80
- }
- on *:sockopen:cmb.*:{
- sockwrite -nt $sockname GET $+(/index_lite.ws?player=,%cmbtarget. [ $+ [ $right($sockname,5) ] ]) HTTP/1.1
- sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
- }
- on *:sockread:cmb.*:{
- if ($sockerr) {
- msg %cmbchan. [ $+ [ $right($sockname,5) ] ] Error:7 $sockerr $+ .
- }
- else {
- var %ee
- $event %ee
- var %x 0
- while (%x <= 28) {
- if ($regex(%ee,/(-)?\d+\x2C(-)?(\d+)(.*)?/g)) {
- var %stats %stats $statsx($calc(%x +1)) $+ : $bytes($regml(1),b)
- sockread %ee
- }
- inc %x
- }
- if (%x == 29) && (%stats != $null) {
- tokenize 32 $strip(%stats)
- noop $regex(stats,%stats,/(?:Attack|Defence|Strength|Hitpoints|Ranged|Prayer|Magic|Summoning): \-?(\d+)\s/gSi)
- var %z $left($regsubex($str(~,$regml(stats,0)),/~/g,$iif(0 != $regml(stats,\n),$regml(stats,\n),1) $+ $chr(44)),-1)
- msg %cmbchan. [ $+ [ $right($sockname,5) ] ] %cmbtarget. [ $+ [ $right($sockname,5) ] ] $+ 's estimated combat is $cmbp2p( [ %z ] ) $+ .ASDHRPMS: $replace(%z,$chr(44),$chr(32))
- sockclose $sockname
- }
- }
- }
- alias statsx { return $gettok(Overall: Attack: Defence: Strength: Hitpoints: Ranged: Prayer: Magic: Cooking: Woodcutting: Fletching: Fishing: Firemaking: Crafting: Smithing: Mining: Herblore: Agility: Thieving: Slayer: Farming: Runecraft: Hunter: Construction: Summoning: Dueling: Bounty Hunter: Bounty Hunter Rogue: Fist Of Guthix:,$1,58) }
- alias cmbp2p {
- ;$cmb(attack,defence,strength,hitpoints,ranged,prayer,magic,summoning)
- var %a = $calc($2 * 100), %b = $calc($4 * 100), %e = $calc($1 * 130), %f = $calc($3 * 130)
- var %c = $iif($and($6,1) == 1,$calc($calc($6 - 1) * 50),$calc($6 * 50)), %d = $iif($and($8,1) == 1,$calc($calc($8 - 1) * 50),$calc($8 * 50))
- var %g = $iif($and($5,1) == 1,$calc($calc($calc($5 - 1) + $calc($5 * 2)) * 65),$calc($5 * 195)), %h = $iif($and($7,1) == 1,$calc($calc($calc($7 - 1) + $calc($7 * 2)) * 65),$calc($7 * 195))
- var %base = $calc($calc(%a + %b + %c + %d) / 400), %mclass = $calc($calc(%e + %f) / 400), %rclass = $calc(%g / 400), %maclass = $calc(%h / 400)
- if ((%mclass > %rclass) && (%mclass > %maclass)) { return $calc(%mclass + %base) Melee Based }
- elseif ((%rclass > %mclass) && (%rclass > %maclass)) { return $calc(%rclass + %base) Ranged Based }
- elseif ((%maclass > %mclass) && (%maclass > %rclass)) { return $calc(%maclass + %base) Magic Based }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement