Something

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 (<br> isin %sockreader) {
      tokenize 58 %sockreader
      did -a rstool 105 User Name = $1 %c.skill $+ : $2 Rank: $3 Exp: $remove($4,<br>)
    }
  }
}

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 (<br> isin %sockreader) {
      tokenize 58 %sockreader
      did -a rstool 69 $remove($1-,<br>)
      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 (<br> isin %sockreader) {
      tokenize 124 %sockreader
      did -a rstool 60 $remove($1-,<br>)
      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 }
  } 
}