alias rstool {
$_d(-m,300,150,471,382,rstool,1)
}
dialog rstool {
title "RuneScape Kit"
size -1 -1 471 382
option pixels
tab "Stats", 25, -1 -1 584 399
tab "Clan/Calculator", 26
tab "Price Lookup", 27
tab "Combat Calculator", 58
tab "Compare", 99
edit "name.", 1, 63 52 100 20, tab 25 autohs autovs
button "Lookup", 2, 122 315 205 25, tab 25 flat
edit "n/a", 15, 241 50 45 20, tab 25
edit "n/a", 24, 120 239 30 20, tab 25
text "Attack", 28, 36 90 38 17, tab 25
text "Strength", 29, 36 115 54 17, tab 25
text "Defense", 30, 36 140 47 17, tab 25
text "Range", 31, 36 165 38 17, tab 25
text "Prayer", 32, 36 190 39 17, tab 25
text "Magic", 33, 36 215 34 17, tab 25
text "Runecrafting", 34, 36 240 68 17, tab 25
text "Construction", 35, 36 265 71 17, tab 25
text "Hitpoints", 36, 186 90 52 17, tab 25
text "Agility", 37, 185 115 38 17, tab 25
text "herblore", 38, 186 140 46 17, tab 25
text "Thieving", 39, 186 165 52 17, tab 25
text "Crafting", 40, 186 190 51 17, tab 25
text "Fletching", 41, 186 216 49 17, tab 25
text "Slayer", 42, 186 240 36 17, tab 25
text "Hunter", 43, 186 265 41 17, tab 25
text "Mining", 44, 311 90 42 17, tab 25
text "Smithing", 45, 311 115 50 17, tab 25
text "Fishing", 46, 311 140 44 17, tab 25
text "cooking", 47, 311 165 44 17, tab 25
text "Firemaking", 48, 311 190 59 17, tab 25
text "Woodcutting", 49, 311 215 69 17, tab 25
text "Farming", 50, 311 240 52 17, tab 25
text "Summoning", 51, 311 265 64 17, tab 25
edit "n/a", 52, 121 89 30 20, tab 25
edit "n/a", 53, 121 114 30 20, tab 25
edit "n/a", 54, 121 164 30 20, tab 25
edit "n/a", 55, 121 139 30 20, tab 25
edit "n/a", 56, 121 214 30 20, tab 25
edit "n/a", 57, 121 189 30 20, tab 25
edit "n/a", 5, 120 263 30 20, tab 25
text "Overall", 3, 187 52 46 17, tab 25
edit "n/a", 4, 254 237 30 20, tab 25
edit "n/a", 6, 255 87 30 20, tab 25
edit "n/a", 7, 255 112 30 20, tab 25
edit "n/a", 8, 255 162 30 20, tab 25
edit "n/a", 9, 255 137 30 20, tab 25
edit "n/a", 10, 255 212 30 20, tab 25
edit "n/a", 11, 255 187 30 20, tab 25
edit "n/a", 12, 254 261 30 20, tab 25
edit "n/a", 13, 395 237 30 20, tab 25
edit "n/a", 14, 396 87 30 20, tab 25
edit "n/a", 16, 396 112 30 20, tab 25
edit "n/a", 17, 396 162 30 20, tab 25
edit "n/a", 18, 396 137 30 20, tab 25
edit "n/a", 19, 396 212 30 20, tab 25
edit "n/a", 20, 396 187 30 20, tab 25
edit "n/a", 21, 395 261 30 20, tab 25
box "", 22, 24 75 418 218, tab 25
box "", 23, 57 38 235 38, tab 25
edit "User Name", 61, 20 38 100 20, tab 26 autohs autovs
list 60, 61 76 338 104, tab 26 hsbar vsbar
text "User Lookup", 62, 177 34 100 17, tab 26
text "Calculator", 63, 175 232 100 17, tab 26
edit "Calculations", 64, 117 258 184 20, tab 26 autohs autovs
button "=", 65, 175 285 65 20, tab 26
edit "Answer", 66, 56 315 340 20, tab 26 autohs autovs
box "", 67, 10 221 445 142, tab 26
box "", 68, 10 20 445 199, tab 26
list 69, 61 184 335 136, tab 27 hsbar vsbar
text "Price Lookup", 70, 190 44 62 17, tab 27
edit "Item", 71, 120 79 110 20, tab 27 autohs autovs
edit "Qty", 72, 253 79 68 20, tab 27 autohs autovs
button "Lookup", 59, 108 184 203 20, tab 26
button "Lookup", 73, 109 137 221 25, tab 27
box "", 74, 22 30 424 310, tab 27
text "Information", 75, 195 50 68 17, tab 58
text "Attack:", 76, 60 90 38 17, tab 58
edit "1", 77, 122 89 26 20, tab 58
text "Strength:", 78, 50 107 51 17, tab 58
edit "1", 79, 122 107 26 20, tab 58
edit "1", 80, 122 125 26 20, tab 58
edit "1", 81, 122 143 26 20, tab 58
text "Defense:", 82, 52 127 47 17, tab 58
text "Hit Points:", 83, 48 144 55 17, tab 58
text "Ranged:", 84, 175 91 47 17, tab 58
text "Prayer:", 85, 177 109 41 17, tab 58
text "Magic:", 86, 182 125 39 17, tab 58
text "Summoning:", 87, 158 144 61 17, tab 58
edit "1", 88, 250 89 26 20, tab 58
edit "1", 89, 250 107 26 20, tab 58
edit "1", 90, 250 125 26 20, tab 58
edit "1", 91, 250 143 26 20, tab 58
text "Results", 92, 340 46 42 17, tab 58
text "Combat:", 93, 305 90 47 17, tab 58
text "Based:", 94, 306 117 43 17, tab 58
edit "1", 95, 368 90 68 20, tab 58
edit "", 96, 368 117 68 20, tab 58
box "", 97, 19 30 438 205, tab 58
button "Calculate", 98, 174 184 111 25, tab 58
text "Compare", 100, 195 38 100 17, tab 99
edit "User 1.", 101, 47 80 100 20, tab 99
edit "User 2.", 102, 177 80 100 20, tab 99
combo 103, 312 81 100 62, tab 99 drop
button "Compare", 104, 193 124 65 25, tab 99
list 105, 39 200 390 109, tab 99 hsbar vsbar
button "Clear", 106, 187 321 65 25, tab 99
box "", 107, 15 25 445 345, tab 99
}
on *:DIALOG:rstool:sclick:104:{
sockclose compare
Set %name1 $replace($did(101),$chr(32),+)
Set %name2 $replace($did(102),$chr(32),+)
Set %c.skill $replace($did(103),$chr(32),+)
sockopen compare parsers.stirk.org 80
}
on *:DIALOG:rstool:sclick:106:{
did -r rstool 105
}
ON *:SOCKOPEN:compare: {
sockwrite -nt $sockname GET /compare.php?user1= $+ %name1 $+ &user2= $+ %name2 $+ &skill= $+ %c.skill HTTP/1.1
sockwrite -nt $sockname Host: parsers.stirk.org
sockwrite -nt $sockname $crlf
}
ON *:SOCKREAD:compare: {
if (!$sockerr) {
var %sockreader
sockread %sockreader
if (
isin %sockreader) {
tokenize 58 %sockreader
did -a rstool 105 User Name = $1 %c.skill $+ : $2 Rank: $3 Exp: $remove($4,
)
}
}
}
on *:DIALOG:rstool:sclick:65:{
var %x $replacex($did(64),k,000,m,000000,g,000,b,000000000,t,000000000000)
did -ra rstool 66 = $bytes($calc(%x),bd)
}
on *:DIALOG:rstool:sclick:2:{
if ($did($dname,1)) {
var %a 52
while %a < 58 {
did -ra rstool %a n/a
inc %a
}
var %a 5
while %a < 22 {
did -ra rstool %a n/a
inc %a
}
did -ra rstool 24 n/a
sockclose stats
Set %name $replace($did(1),$chr(32),+)
sockopen stats www.cameron.gvjordan.com 80
}
}
ON *:SOCKOPEN:stats: {
sockwrite -nt $sockname GET /ht1d.php?rsn= $+ %name HTTP/1.1
sockwrite -nt $sockname Host: cameron.gvjordan.com
sockwrite -nt $sockname $crlf
}
ON *:SOCKREAD:stats: {
if (!$sockerr) {
var %sockreader
sockread %sockreader
tokenize 32 %sockreader
if ($1 isnum) did -ar rstool $1 $2
unset %name
}
}
on *:DIALOG:rstool:sclick:73:{
sockclose price
Set %item $replace($did(71),$chr(32),+)
set %amount $replace($did(72),$chr(32),+)
sockopen price www.nou.stirk.org 80
}
ON *:SOCKOPEN:price: {
sockwrite -nt $sockname GET /parsers/price.php?item= $+ %item $+ &results=100&amount= $+ %amount HTTP/1.1
sockwrite -nt $sockname Host: nou.stirk.org
sockwrite -nt $sockname $crlf
}
ON *:SOCKREAD:price: {
if (!$sockerr) {
var %sockreader
sockread %sockreader
if (
isin %sockreader) {
tokenize 58 %sockreader
did -a rstool 69 $remove($1-,
)
unset %item
unset %amount
}
}
}
on *:DIALOG:rstool:sclick:98:{
Var %Def $calc($did(80) * 100)
Var %Hits $calc($did(81) * 100)
Var %Pray $calc($did(89) * 50)
var %summon $calc($did(91) * 50)
Var %hit.def.pray.summon $calc((%Def + %hits + %Pray + %summon) / 400)
Var %Att $calc($did(77) * 130)
Var %str $calc($did(79) * 130)
if (!$and($did(88),1)) { Var %range $calc((($did(88) - 1) + ($did(88) * 2)) * 65) }
Else var %Range $calc($did(88) * 195)
if (!$and($did(90),1)) { Var %mage $calc((($did(90) - 1) + ($did(90) * 2)) * 65) }
Else var %Mage $calc($did(90) * 195)
Var %Melee $calc((%att + %str) /400), %Ranger $calc(%range / 400), %mager $calc(%mage / 400)
If (%ranger > %melee) && (%ranger > %Mager) { did -ar rstool 95 $calc(%hit.def.pray.summon + %ranger) | did -ar rstool 96 Range }
elseIf (%mager > %melee) && (%mager > %ranger) { did -ar rstool 95 $calc(%hit.def.pray.summon + %mager) | did -ar rstool 96 mage }
elseIf (%Melee > %mager) && (%melee > %ranger) { did -ar rstool 95 $calc(%Hit.def.pray.summon + %melee) | did -ar rstool 96 Melee }
}
on *:DIALOG:rstool:sclick:59:{
sockclose clan
Set %name $replace($did(61),$chr(32),+)
sockopen clan www.nou.stirk.org 80
}
ON *:SOCKOPEN:clan: {
sockwrite -nt $sockname GET /parsers/clan.php?user= $+ %name HTTP/1.1
sockwrite -nt $sockname Host: nou.stirk.org
sockwrite -nt $sockname $crlf
}
ON *:SOCKREAD:clan: {
if (!$sockerr) {
var %sockreader
sockread %sockreader
if (
isin %sockreader) {
tokenize 124 %sockreader
did -a rstool 60 $remove($1-,
)
unset %item
unset %amount
}
}
}
on *:DIALOG:rstool:INIT:0:{
did -a rstool 103 Overall
did -a rstool 103 Attack
did -a rstool 103 Strength
did -a rstool 103 Defense
did -a rstool 103 Hitpoints
did -a rstool 103 Prayer
did -a rstool 103 Ranged
did -a rstool 103 Magic
did -a rstool 103 Summoning
did -a rstool 103 Runecrafting
did -a rstool 103 Construction
did -a rstool 103 Farming
did -a rstool 103 Herblore
did -a rstool 103 Hunter
did -a rstool 103 Thieving
did -a rstool 103 Agility
did -a rstool 103 Fishing
did -a rstool 103 Cooking
did -a rstool 103 Woodcutting
did -a rstool 103 Firemaking
did -a rstool 103 Slayer
did -a rstool 103 Crafting
did -a rstool 103 Fletching
did -a rstool 103 Smithing
did -a rstool 103 Mining
}
alias _d {
if ($7 = 1) {
dialog $1 $6 $6
var %x = 1 , %y = 350
while (%x <= %y) { dialog -s $6 $2 $3 $round($calc( $4 / %y * %x )) $round($calc( $5 / %y * %x )) | inc %x }
}
if ($7 = 2) {
dialog $1 $6 $6
var %x = 1 , %y = 500
while (%x <= %y) { dialog -s $6 $2 $3 $round($calc( $4 / %y * %x )) $5 | inc %x }
}
if ($7 = 3) {
dialog $1 $6 $6
var %x = 1 , %y = 500
while (%x <= %y) { dialog -s $6 $2 $3 $4 $round($calc( $5 / %y * %x )) | inc %x }
}
}