API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 27th, 2017
64
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.74 KB | None | 0 0
raw download clone embed print report
  1. on *:text:!cmb:*:#: {
  2. tokenize 32 $strip($1-)
  3. if ($left($1,1) !isin @!.) halt
  4. if ($right($1,-1) == stats) var %style = astats
  5. elseif ($regex($1,/co?mb(at)?/Si)) var %style = combat
  6. elseif ($setskill($remove($1,@,!,.))) var %style = istat, %skill = $setskill($remove($1,@,!,.))
  7. elseif ($right($1,-1) == defname) && ($2) {
  8. writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
  9. .notice $nick 7You're default RSN for the host 4 $mask($fulladdress,3) 7has been set to $2-
  10. halt
  11. }
  12. else halt
  13.  
  14. inc %ID
  15. if ($len($2-) > 12) {
  16. 4 $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($2-) $c1(is too long)
  17. cleanup %ID
  18. halt
  19. }
  20. elseif ($2) set $+(%,stats.rsn.,%ID) $replace($2-,$chr(32),-)
  21. elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set $+(%,stats.rsn.,%ID) $ifmatch
  22. elseif ($readini(DefRSN.ini,RSNs,$nick)) set $+(%,stats.rsn.,%ID) $ifmatch
  23. else set $+(%,stats.rsn.,%ID) $nick
  24.  
  25. set $+(%,stats.style.,%ID) %style
  26. set $+(%,stats.skill.,%ID) %skill
  27. set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
  28. sockopen $+(stats.,%ID) hiscore.runescape.com 80
  29. }
  30.  
  31. on *:sockopen:stats.*: {
  32. var %id = $gettok($sockname,2,46)
  33. sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,stats.rsn.,%ID),2) HTTP/1.1
  34. sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
  35. }
  36. on *:sockread:stats.*: {
  37. sockread &Incoming
  38. bwrite $sockname -1 -1 &Incoming
  39. if ($bfind(&Incoming, 1, </html>).text) makehash $sockname
  40. elseif ($bfind(&Incoming, 1, does not feature in the hiscores.).text) {
  41. $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($($+(%,stats.rsn.,%ID),2)) $c1(Does not appear in the hiscores)
  42. cleanup $gettok($sockname,2,46)
  43. }
  44. }
  45. alias -l makehash {
  46. var %file = $1
  47. bread %file 1 $file(%file).size &stats
  48. var %currentstat, %x = 1
  49. while (%x) {
  50. var %x = $bfind(&stats,$calc(%x + 1),<a href="overall.ws?table=)
  51. var %currentstat = $striptags($bvar(&stats,%x,200).text)
  52. tokenize 10 %currentstat
  53. hadd -m %file $1 $2 $3 $4 $xp2next($3,$4)
  54. }
  55. process %file
  56. }
  57. alias process {
  58. var %table = $1, %id = $gettok($1,2,46), %x = 0, $&
  59. %display = $($+(%,stats.display.,%ID),2), $&
  60. %rsn = $($+(%,stats.rsn.,%ID),2), $&
  61. %skill = $($+(%,stats.skill.,%ID),2), $&
  62. %style = $($+(%,stats.style.,%ID),2)
  63. ;shoot;
  64. if (%style == astats) {
  65. while (%x <= 23) {
  66. tokenize 32 $hget(%table,$setskill(%x))
  67. if ($2) var %statline = %statline $c1($setskill(%x)) $c2($2)
  68. inc %x
  69. }
  70. %display $c1(Stats for) $c2(%rsn) $+ $c1(:)
  71. %display %statline
  72. }
  73. elseif (%style == istat) {
  74. if (!$hget(%table,%skill)) 7 %display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for) $c2(%skill)
  75. else {
  76. tokenize 32 $hget(%table,%skill)
  77. %display $c2(%skill) $c1(stats for) $c2(%rsn) $+ $c1(:)
  78. %display $c1(Rank:) $c2($1) $c1(Level:) $c2($bytes($2,b)) $c1(Exp:) $c2($3) $&
  79. $iif(%skill != Overall,$c1(Exp to lvl) $c2($calc($2 + 1)) $+ $c1(:) $c2($bytes($4,b)))
  80. }
  81. }
  82. elseif (%style == combat) {
  83. var %a.mult = .32707, %s.mult = .324, %d.mult = .25, %h.mult = .25, %p.mult = .124, %r.mult = .487, %m.mult = .487
  84. var %a = $iif($gettok($hget(%table,attack),2,32),$v1,-), $&
  85. %s = $iif($gettok($hget(%table,strength),2,32),$v1,-), $&
  86. %d = $iif($gettok($hget(%table,defence),2,32),$v1,-), $&
  87. %h = $iif($gettok($hget(%table,hitpoints),2,32),$v1,-), $&
  88. %r = $iif($gettok($hget(%table,ranged),2,32),$v1,-), $&
  89. %m = $iif($gettok($hget(%table,magic),2,32),$v1,-), $&
  90. %p = $iif($gettok($hget(%table,prayer),2,32),$v1,-)
  91.  
  92. var %meleecombat = $calc(%a * %a.mult + %s * %s.mult + %d * %d.mult + %h * %h.mult + %p * %p.mult), $&
  93. %RangedCombat = $calc(%r * %r.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult), $&
  94. %MagicCombat = $calc(%m * %m.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult)
  95.  
  96. if (%MagicCombat == %RangedCombat) && (%MagicCombat == %RangedCombat) {
  97. %display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for any combat skills)
  98. cleanup %id
  99. halt
  100. }
  101. elseif (%MagicCombat > %RangedCombat) && (%MagicCombat > %MeleeCombat) var %cmbstyle = Magic, %Combat = %MagicCombat
  102. elseif (%RangedCombat > %MeleeCombat) var %cmbstyle = Ranged, %Combat = %RangedCombat
  103. else var %cmbstyle = melee, %combat = %MeleeCombat
  104.  
  105. var %cmb.temp = $abs($calc($int($calc(%combat +1)) - %combat)), $&
  106. %a.2lvl = $ceil($calc(%cmb.temp / %a.mult)), %s.2lvl = $ceil($calc(%cmb.temp / %s.mult)), $&
  107. %d.2lvl = $ceil($calc(%cmb.temp / %d.mult)), %m.2lvl = $ceil($calc(%cmb.temp / %m.mult)), $&
  108. %r.2lvl = $ceil($calc(%cmb.temp / %r.mult)), %p.2lvl = $ceil($calc(%cmb.temp / %p.mult))
  109.  
  110. if (%cmbstyle == magic) var %dynamic.2lvl = $c1(Magic:) $c2(%m.2lvl)
  111. elseif (%cmbstyle == Ranged) var %dynamic.2lvl = $c1(Ranged:) $c2(%r.2lvl)
  112. else var %dynamic.2lvl = $c1(Att:) $c2(%a.2lvl) $c1(Str:) $c2(%s.2lvl)
  113. var %combat = $round(%combat,2), %next = $ceil(%combat)
  114.  
  115. %display $c2(%rsn) $c1(is) $c2(%combat) $c1(%cmbstyle style combat)
  116. %display $c1(Attack:) $c2(%a) $c1(Defence:) $c2(%d) $c1(Strength:) $c2(%s) $c1(Hits:) $c2(%h) $&
  117. $c1(Mage:) $c2(%m) $c1(Range:) $c2(%r) $c1(Pray:) $c2(%p)
  118. %display $c1(Levels for) $c2(%next) $+ $c1(:) %dynamic.2lvl $&
  119. $c1(Def/Hp:) $c2(%d.2lvl) $c1(Prayer:) $c2(%p.2lvl)
  120. }
  121. cleanup %id
  122. }
  123.  
  124. alias -l cleanup {
  125. unset $+(%,stats.*.,$1)
  126. sockclose $+(Stats.,$1)
  127. .remove $+(Stats.,$1)
  128. }
  129.  
  130. alias -l xp {
  131. var %x = 1, %level = $calc($1 - 1), %xp = 0
  132. while (%x <= %level) {
  133. var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4)
  134. inc %xp %TempXp
  135. inc %x
  136. }
  137. return $int(%xp)
  138. }
  139.  
  140. alias -l xp2Next {
  141. var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1))
  142. return $calc(%nextxp - %xp)
  143. }
  144.  
  145. alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
  146. alias -l setskill {
  147. if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
  148. elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
  149. elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
  150. elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
  151. elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  152. elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
  153. elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  154. elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
  155. elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
  156. elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
  157. elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
  158. elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
  159. elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
  160. elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
  161. elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
  162. elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
  163. elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
  164. elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
  165. elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
  166. elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
  167. elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
  168. elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
  169. elseif ($1 == 22) || ($regex($1,/^hunt(er)?(ing?)?$/Si)) return Hunter
  170. elseif ($1 == 23) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
  171. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!