API tools faq
paste
glacier_rat

Glacier_Rat

glacier_rat
May 9th, 2010
350
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.06 KB | None | 0 0
raw download clone embed print report
  1. * /sockopen: 'stats.%z' socket in use (line 83, stat script)
  2. -
  3. * /sockopen: 'stats.%z' socket in use (line 83, stat script)
  4. -
  5. * /sockopen: 'stats.%z' socket in use (line 83, stat script)
  6. -
  7. * /sockopen: 'stats.%z' socket in use (line 83, stat script)
  8.  
  9. ================
  10.  
  11.  
  12. Runescript Script:
  13. [quote]
  14. Commands:
  15. !stats username
  16. !skill username
  17. !combat username
  18. .!defname username
  19. Extra Info: I added auto protection for hacking it, there is an auto 6sec ignore on any user who triggers to prevent flooding/spam/etc.. , and I added support for channels with mode +c, and you can pm the bot for the script aswell
  20. All aliases required have been added, although I didnt make an item to next level thing, Im not doing all the work for ya lol
  21. btw: combat alias is smooth's cause his owns and i blow at math :D
  22. [/quote]
  23. [code]
  24. alias pcp { return $calc($floor($calc(($1 * $1) / 600)) * 35) }
  25. alias s1 { return $iif(c isincs $chan($1).mode,$strip($2-),$+($chr(3),10,$2-)) }
  26. alias s2 { return $iif(c isincs $chan($1).mode,$strip($2-),$+($chr(3),07,$2-)) }
  27. alias s3 { return $iif(c isincs $chan($1).mode,$strip($2-),$+($chr(3),03,$2-)) }
  28. alias fskill {
  29. return $findtok(Stats.Atk.Def.Str.Hp.Range.Pray.Mage.Cook.Wc.Fletch.Fish.Fm.Craft.Smith.Mine.Herb.Agil.Thief.Slay.Farm.Rc.Hunt.Con.Summ,$1,46)
  30. }
  31. alias gskill {
  32. return $gettok(Stats.Attack.Defence.Strength.Hitpoints.Ranged.Prayer.Magic.Cooking.Woodcutting.Fletch.Fish.Firemake.Craft.Smith.Mine.Herb.Agility.Thief.Slayer.Farm.Rc.Hunt.Construct.Summon,$1,46)
  33. }
  34. alias iSkill {
  35. if ($regex($1,/^(cmb|combat)$/Si)) return Combat
  36. elseif ($1 == 1) || ($regex($1,/^(rsstats|stats|overall)$/Si)) return Stats
  37. elseif ($1 == 2) || ($regex($1,/^at(t|k|tack)$/Si)) return Atk
  38. elseif ($1 == 3) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Def
  39. elseif ($1 == 4) || ($regex($1,/^str(ength|enght)?$/Si)) return Str
  40. elseif ($1 == 5) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hp
  41. elseif ($1 == 6) || ($regex($1,/^range(r|d|ing)?$/Si)) return Range
  42. elseif ($1 == 7) || ($regex($1,/^Pray(er)?$$/Si)) return Pray
  43. elseif ($1 == 8) || ($regex($1,/^mag(e|ic)$$/Si)) return Mage
  44. elseif ($1 == 9) || ($regex($1,/^cook(ing)?$/Si)) return Cook
  45. elseif ($1 == 10) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Wc
  46. elseif ($1 == 11) || ($regex($1,/^fletch(ing)?$/Si)) return Fletch
  47. elseif ($1 == 12) || ($regex($1,/^fish(ing)?$/Si)) return Fish
  48. elseif ($1 == 13) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Fm
  49. elseif ($1 == 14) || ($regex($1,/^craft(ing)?$/Si)) return Craft
  50. elseif ($1 == 15) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smith
  51. elseif ($1 == 16) || ($regex($1,/^min(e|ing)?$/Si)) return Mine
  52. elseif ($1 == 17) || ($regex($1,/^herb(law|lore)?$/Si)) return Herb
  53. elseif ($1 == 18) || ($regex($1,/^agil(ity)?$/Si)) return Agil
  54. elseif ($1 == 19) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thief
  55. elseif ($1 == 20) || ($regex($1,/^slay(er|ing)?$/Si)) return Slay
  56. elseif ($1 == 21) || ($regex($1,/^farm(er|ing)?$/Si)) return Farm
  57. elseif ($1 == 22) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Rc
  58. elseif ($1 == 23) || ($regex($1,/^hunt(er|ing)?$/Si)) return Hunt
  59. elseif ($1 == 24) || ($regex($1,/^(con|construct)(ion|ing)?$/si)) return Con
  60. elseif ($1 == 25) || ($regex($1,/^(summon)(ing)?$/si)) return Summ
  61. }
  62. alias exp {
  63. /var %x = 1, %level = $calc($1 - 1), %xp = 0
  64. /while (%x <= %level) {
  65. /var %tempxp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
  66. /inc %xp %tempxp
  67. /inc %x
  68. }
  69. /return $int(%xp)
  70. }
  71. alias cmb {
  72. tokenize 46 $1-
  73. var %att = $calc($2 * 100), %btt = $calc($4 * 100), %ett = $calc($1 * 130), %ftt = $calc($3 * 130)
  74. var %ctt = $iif($and($6,1) == 1,$calc($calc($6 - 1) * 50),$calc($6 * 50)), %dtt = $iif($and($8,1) == 1,$calc($calc($8 - 1) * 50),$calc($8 * 50))
  75. var %gtt = $iif($and($5,1) == 1,$calc($calc($calc($5 - 1) + $calc($5 * 2)) * 65),$calc($5 * 195)), %htt = $iif($and($7,1) == 1,$calc($calc($calc($7 - 1) + $calc($7 * 2)) * 65),$calc($7 * 195))
  76. var %base = $calc($calc(%att + %btt + %ctt + %dtt) / 400), %mclass = $calc($calc(%ett + %ftt) / 400), %rclass = $calc(%gtt / 400), %maclass = $calc(%htt / 400)
  77. if ((%mclass > %rclass) && (%mclass > %maclass)) { return $calc(%mclass + %base) Melee Based }
  78. elseif ((%rclass > %mclass) && (%rclass > %maclass)) { return $calc(%rclass + %base) Ranged Based }
  79. elseif ((%maclass > %mclass) && (%maclass > %rclass)) { return $calc(%maclass + %base) Magic Based }
  80. }
  81. on $*:TEXT:/^[!.](def|set)(name|rsn)/Si:*: {
  82. if ($count($1-,$,%,#,^,&,*) > 0) { halt }
  83. if ($len($2-) <= 12) && ($len($2-) >= 3) {
  84. writeini -n DefRSN.ini $address($nick,3) rsn $replace($2-,$chr(32),_)
  85. notice $nick Hostmask $address($nick,3) Has been registred to the name: $2-
  86. }
  87. else { notice $nick Error in trying to set a defname }
  88. }
  89. on $*:TEXT:/^.\D/S:*:{
  90. if (!$iSkill($right($1,-1))) { halt }
  91. if ($count($1-,$,%,#,^,&,*) > 0) { msg $chan $s1($chan,[) $s2($chan,ERROR) $s1($chan,]) $s1($chan,:) $s1($chan,Illegal characters detected, 60 second ignore to prevent abuse) | .ignore $+(-pcntikdu,60) $address($nick,2) | halt }
  92. var %lookup = $iSkill($right($1,-1))
  93. var %z = $+($r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100))
  94. sockopen $+(stats,.%z) hiscore.runescape.com 80
  95. sockmark $+(stats,.%z) $+($iif($query($nick),.msg $nick,$iif($left($1,1) == @,msg $chan,notice $nick)),.,$iif($2,$replace($2-,$chr(32),_),$iif($readini(DefRSN.ini,$address($nick,3),rsn),$v1,$replace($nick,$chr(32),_))),.,%lookup,.,$iif($query($nick),$nick,$chan))
  96. .ignore $+(-pcntikdu,6) $address($nick,2)
  97. if ($query($nick)) { close -m }
  98. }
  99. on *:SOCKOPEN:stats.*: {
  100. tokenize 46 $sock($sockname).mark
  101. if ($len($2) > 12) || ($len($2) < 3) {
  102. $1 $s1($4,[) $s2($4,ERROR) $s1($4,]) $s1($4,:) $s1($4,Please specify a RSN less then) $s2($4,12) $s1($4,characters and greater then) $s2($4,3)
  103. }
  104. else {
  105. sockwrite -n $sockname GET $+(/index_lite.ws?player=,$2) HTTP/1.1
  106. sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
  107. }
  108. }
  109. on *:SOCKREAD:stats.*: {
  110. var %chan = $gettok($sock($sockname).mark,4,46)
  111. if ($sockerr) {
  112. $gettok($sock($sockname).mark,1,46) $s1(%chan,Socket Error)
  113. halt
  114. }
  115. var %stats
  116. sockread %stats
  117. if (*404 - Page not found* iswm %stats) {
  118. $gettok($sock($sockname).mark,1,46) $s1(%chan,[) $s2(%chan,ERROR) $s1(%chan,]) $s1(%chan,:) $s2(%chan,$gettok($sock($sockname).mark,2,46)) $s1(%chan,not found in highscores)
  119. sockclose $sockname
  120. halt
  121. }
  122. if (*,*,* iswm %stats) {
  123. tokenize 44 %stats
  124. sockmark $sockname $+($gettok($sock($sockname).mark,1-,46),.,$+($1 $2 $3))
  125. }
  126. }
  127. on *:SOCKCLOSE:stats.*: {
  128. var %lookup = $gettok($sock($sockname).mark,3,46),%chan = $gettok($sock($sockname).mark,4,46),%s = $gettok($sock($sockname).mark,5-,46)
  129. var %loc = $fskill(%lookup),%sloc = $gskill(%loc)
  130. if (%lookup == Stats) {
  131. var %t = 1 | while (%t <= 25) { var %g %g $+($s1(%chan,$iSkill(%t)),$chr(32),$s2(%chan,$gettok($gettok(%s,%t,46),2,32))) | inc %t }
  132. $gettok($sock($sockname).mark,1,46) $s1(%chan,[) $s2(%chan,$gettok($sock($sockname).mark,2,46)) $s1(%chan,]) $s1(%chan,:) %g
  133. }
  134. if (%lookup = Combat) {
  135. var %D = $gettok($gettok(%s,3,46),3,32),%H = $gettok($gettok(%s,5,46),3,32),%P = $gettok($gettok(%s,7,46),3,32),%A = $gettok($gettok(%s,2,46),3,32),%St = $gettok($gettok(%s,4,46),3,32),%SU = $gettok($gettok(%s,25,46),3,32),%M = $gettok($gettok(%s,8,46),3,32),%R = $gettok($gettok(%s,6,46),3,32)
  136. var %cest = $calc(%A + %D + %H + %St + %SU + %M + %R + %P),%est = $round($calc((%cest / $iif($gettok($gettok(%s,1,46),3,32) == -1,1,$v1)) * 100),2)
  137. var %tD = $gettok($gettok(%s,3,46),2,32),%tH = $gettok($gettok(%s,5,46),2,32),%tP = $gettok($gettok(%s,7,46),2,32),%tA = $gettok($gettok(%s,2,46),2,32),%tSt = $gettok($gettok(%s,4,46),2,32),%tSU = $gettok($gettok(%s,25,46),2,32),%tM = $gettok($gettok(%s,8,46),2,32),%tR = $gettok($gettok(%s,6,46),2,32)
  138. var %cmb = $cmb($replace($+(%tA,.,%tD,.,%tSt,.,%tH,.,%tR,.,%tP,.,%tM,.,%tSU),-1,1))
  139. var %rank = $iif($gettok($gettok(%s,1,46),1,32) = -1,-,$v1),%lvl = $iif($gettok($gettok(%s,1,46),2,32) = -1,-,$v1),%exp = $iif($gettok($gettok(%s,1,46),3,32) = -1,-,$v1)
  140. $gettok($sock($sockname).mark,1,46) $s1(%chan,[) $s2(%chan,$gettok($sock($sockname).mark,2,46)) $s1(%chan,]) $s1(%chan,:) $s1(%chan,$chr(40)) $s2(%chan,%cmb) $s1(%chan,$chr(41)) $&
  141. $s1(%chan,Rank) $s2(%chan,%rank) $s1(%chan,Level) $s2(%chan,$bytes(%lvl,b)) $s1(%chan,Experience) $s2(%chan,$bytes(%exp,b)) $s1(%chan,Combat Exp) $s2(%chan,$bytes(%cest,b)) $s1(%chan,Combat%) $s2(%chan,$iif(%exp = -,-,$+(%est,%))) $&
  142. $s1(%chan,Attack) $s2(%chan,$gettok($gettok(%s,2,46),2,32)) $s1(%chan,Strength) $s2(%chan,$gettok($gettok(%s,4,46),2,32)) $s1(%chan,Defence) $s2(%chan,$gettok($gettok(%s,3,46),2,32)) $s1(%chan,Hitpoints) $s2(%chan,$gettok($gettok(%s,5,46),2,32)) $&
  143. $s1(%chan,Prayer) $s2(%chan,$gettok($gettok(%s,7,46),2,32)) $s1(%chan,Magic) $s2(%chan,$gettok($gettok(%s,8,46),2,32)) $s1(%chan,Ranged) $s2(%chan,$gettok($gettok(%s,6,46),2,32)) $s1(%chan,Summoning) $s2(%chan,$gettok($gettok(%s,25,46),2,32))
  144. }
  145. if (!$istok(Stats.Combat,%lookup,46)) {
  146. var %r = $gettok($gettok(%s,%loc,46),1,32),%l = $gettok($gettok(%s,%loc,46),2,32),%e = $gettok($gettok(%s,%loc,46),3,32)
  147. $gettok($sock($sockname).mark,1,46) $s1(%chan,[) $s2(%chan,$gettok($sock($sockname).mark,2,46)) $s1(%chan,]) $s1(%chan,:) $&
  148. $s1(%chan,Skill) $s2(%chan,%sloc) $s1(%chan,Rank) $s2(%chan,$bytes(%r,b)) $s1(%chan,Level) $s2(%chan,$bytes(%l,b)) $s1(%chan,Experience) $s2(%chan,$bytes(%e,b)) $&
  149. $s1(%chan,Exp to) $iif(%l < 99,$s1(%chan,Level) $s2(%chan,$calc(%l + 1)) $s2(%chan,$bytes($calc($exp($calc(%l + 1)) - %e),b)),$s1(%chan,Perfection) $s2(%chan,$bytes($calc(200000000 - %e),b))) $&
  150. $iif(%l < 99 && $istok(Attack.Defence.Strength.Hitpoints.Magic.Ranged.Prayer,%sloc,46),$s1(%chan,Pc points to) $s2(%chan,$calc(%l + 1)) $s2(%chan,$calc($calc($exp($calc(%l + 1)) - %e) / $pcp($calc(%l + 1))) ) )
  151. ;to add items to next level make it urself and use $exp($calc(%l + 1) to return exp to next level calc it yourself
  152. }
  153. 0}
  154. }
Add Comment
Please, Sign In to add comment
Public Pastes
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!