dialog toolkit {
  title RS toolkit
  size -1 -1 197 167
  option dbu
  tab "Info", 1, -1 1 199 141
  text "Rs Toolkit Verson 1.0", 38, 70 34 56 9, tab 1
  text "Scripted By", 39, 83 45 29 8, tab 1
  text "Roly", 40, 90 56 16 8, tab 1
  tab "Stats", 2
  button "Get Stats", 8, 80 30 37 12, tab 2
  edit "", 7, 56 17 79 10, tab 2
  list 9, 2 43 60 58, tab 2 size
  list 15, 69 43 60 58, tab 2 size
  list 16, 135 43 60 58, tab 2 size
  list 36, 80 123 37 14, tab 2 size
  text "Overall", 37, 89 113 20 8, tab 2
  tab "Calcs Etc.", 3
  edit "", 5, 6 24 16 10, tab 3
  button "XP", 11, 25 23 20 12, tab 3
  list 13, 48 24 50 10, tab 3 size
  edit "", 17, 10 105 16 10, tab 3
  edit "", 25, 10 116 16 10, tab 3
  text "Attack", 26, 33 50 25 8, tab 3
  text "Strength", 27, 33 61 25 8, tab 3
  text "Defense", 28, 33 72 25 8, tab 3
  text "Hitpoints", 29, 33 83 25 8, tab 3
  text "Prayer", 30, 33 94 25 8, tab 3
  text "Range", 31, 33 105 25 8, tab 3
  text "Mage", 32, 33 116 25 8, tab 3
  button "Calculate", 33, 71 81 37 12, tab 3
  list 34, 115 78 66 16, tab 3 size
  text "Estimated Combat Of:", 35, 118 68 57 10, tab 3
  tab "Price", 14
  list 12, 5 57 184 82, tab 14 size
  button "Price", 4, 77 38 37 12, tab 14
  edit "", 10, 60 24 67 11, tab 14
  button "Done", 6, 79 148 42 15, ok cancel
  text "By Roly", 20, 160 158 28 7
  edit "", 24, 10 1116 16 10
  edit "", 18, 10 94 16 10, tab 3
  edit "", 19, 10 83 16 10, tab 3
  edit "", 21, 10 72 16 10, tab 3
  edit "", 22, 10 61 16 10, tab 3
  edit "", 23, 10 50 16 10, tab 3
  tab "Non RS Stuff" ,183
  box "Calculator", 69, 68 25 88 77, tab 183
  button "1", 70, 71 48 19 12, tab 183
  edit "", 74, 78 33 68 13, tab 183
  button "4", 75, 71 61 19 12, tab 183
  button "7", 79, 71 74 19 12, tab 183
  button "0", 83, 71 87 19 12, tab 183
  button "Clear", 84, 92 87 19 12, tab 183
  button "8", 80, 92 74 19 12, tab 183
  button "5", 76, 92 61 19 12, tab 183
  button "2", 71, 92 48 19 12, tab 183
  button "3", 72, 113 48 19 12, tab 183
  button "6", 77, 113 61 19 12, tab 183
  button "9", 81, 113 74 19 12, tab 183
  button "=", 85, 113 87 19 12, tab 183
  button "+", 86, 134 87 19 12, tab 183
  button "-", 82, 134 74 19 12, tab 183
  button "*", 78, 134 61 19 12, tab 183
  button "/", 73, 134 48 19 12, tab 183
}
alias toolkit {
  dialog -ma toolkit toolkit
}
on *:dialog:toolkit:sclick:11:{
  set %dia.xp $exp($did(toolkit,5).text)
  did -a toolkit 13 %dia.xp
}
alias exp { 
  var %a = 1 
  .set %exp123 0 
  var %a1 = $eval($1) 
  while (%a < %a1) { 
    var %expvalue = $calc((%a + 300 * 2^(%a / 7)) /4) 
    inc %exp123 %expvalue 
    inc %a 
  } 
  return $floor(%exp123) 
}
on *:dialog:toolkit:sclick:8:{
  set %statsn.uname.alias $iif($did(toolkit,7),$replace($did(toolkit,7),$chr(32),$chr(43)),$nick)   
  sockopen statsalias slushpuppy.silverinterlocution.org 80
}
on *:sockopen:statsalias:{  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %statsn.uname.alias HTTP/1.1  
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org $crlf $+ $crlf
}
on *:sockread:statsalias:{  
  if ($sockerr) { halt }  
  else {    
    sockread %stats.output   
    if (*overall* iswm %stats.output) || (*strength* iswm %stats.output) || (*defense* iswm %stats.output) || (*fletching* iswm %stats.output) || (*cooking* iswm %stats.output) || (*firemaking* iswm %stats.output) || (*fishing* iswm %stats.output) {      
      tokenize 32 %stats.output
      set %disp1 $2
      set %disp2 $3 $4
      set %disp3 $5 $6
      set %disp4 $7 $8
      set %disp5 $9 $10
      set %disp6 $11 $12
      set %disp7 $13 $14
      set %disp8 $15 $16
      set %disp9 $17 $18
      set %disp10 $19 $20
      set %disp11 $21 $22
      set %disp12 $23 $24
      set %disp13 $25 $26
      set %disp14 $27 $28
      set %disp15 $29 $30
      set %disp16 $31 $32
      set %disp17 $33 $34
      set %disp18 $35 $36
      set %disp19 $37 $38
      set %disp20 $39 $40
      set %disp21 $41 $42
      set %disp22 $43 $44
      set %disp23 $45 $46
      set %disp24 $47 $48   
    }  
    did -r toolkit 9
    did -r toolkit 15
    did -r toolkit 16
    did -r toolkit 36
    did -a toolkit 9 $remove(%disp2,<br>)
    did -a toolkit 9 $remove(%disp3,<br>)
    did -a toolkit 9 $remove(%disp4,<br>)
    did -a toolkit 9 $remove(%disp5,<br>)
    did -a toolkit 9 $remove(%disp6,<br>)
    did -a toolkit 9 $remove(%disp7,<br>)
    did -a toolkit 9 $remove(%disp8,<br>)
    did -a toolkit 15 $remove(%disp9,<br>)
    did -a toolkit 15 $remove(%disp10,<br>)
    did -a toolkit 15 $remove(%disp11,<br>)
    did -a toolkit 15 $remove(%disp12,<br>)
    did -a toolkit 15 $remove(%disp13,<br>)
    did -a toolkit 15 $remove(%disp14,<br>)
    did -a toolkit 15 $remove(%disp15,<br>)
    did -a toolkit 15 $remove(%disp16,<br>)
    did -a toolkit 16 $remove(%disp17,<br>)
    did -a toolkit 16 $remove(%disp18,<br>)
    did -a toolkit 16 $remove(%disp19,<br>)
    did -a toolkit 16 $remove(%disp20,<br>)
    did -a toolkit 16 $remove(%disp21,<br>)
    did -a toolkit 16 $remove(%disp22,<br>)
    did -a toolkit 16 $remove(%disp23,<br>)
    did -a toolkit 16 $remove(%disp24,<br>)
    did -a toolkit 36 %disp1
  }
}
on *:dialog:toolkit:sclick:4:{
  set %price.rs $iif($did(toolkit,10),$replace($did(toolkit,10),$chr(32),$chr(43)),$nick) 
  sockopen PRICE www.slushpuppy.silverinterlocution.org 80
}
on *:sockopen:PRICE:{  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /price.php?price= $+ %price.rs HTTP/1.1 
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org $crlf $+ $crlf
}
on *:sockread:PRICE:{  
  if ($sockerr) { halt }  
  else {    
    sockread %x    
    if (*gp* iswm %x) {  
      did -a toolkit 12 $remove(%x,<br>)
    }
  }  
}
on *:dialog:toolkit:sclick:33:{
  did -a toolkit 34 $cmblevel($did(toolkit,23),$did(toolkit,22),$did(toolkit,21),$did(toolkit,19),$did(toolkit,18),$did(toolkit,17),$did(toolkit,25))
}
alias CmbLevel { 
  set %defence $calc($3 * 100) 
  set %hitpoints $calc($4 * 100) 
  set %prayer $5 
  if ($and(%prayer,1) == 1) { 
    set %prayer $calc((%prayer -1) * 50) 
  } 
  Else if ($and(%prayer,1) == 0) { 
    set %prayer $calc(%prayer * 50) 
  } 
  set %basecombat $calc((%defence + %hitpoints + %prayer) / 400) 
  set %attack $calc($1 * 130) 
  set %strength $calc($2 * 130) 
  set %ranged $6 
  set %mage $7 
  if ($and(%ranged,1) == 1) { 
    set %ranged $calc((%ranged - 1 + %ranged * 2) * 65) 
  } 
  Else if ($and(%ranged,1) == 0) { 
    set %ranged $calc(%ranged * 195) 
  } 
  if ($and(%mage,1) == 1) { 
    set %mage $calc((%mage - 1 + %mage * 2) * 65) 
  } 
  Else if ($and(%mage,1) == 0) { 
    set %mage $calc(%mage * 195) 
  } 
  set %meleecb $calc((%attack + %strength) / 400) 
  set %rangedcb $calc(%ranged / 400) 
  set %magecb $calc(%mage / 400) 

  if ((%meleecb > %rangedcb) && (%meleecb > %magecb)) { 
    return $calc(%meleecb + %basecombat) Melee Based 
  } 
  if ((%rangedcb > %meleecb) && (%rangedcb > %magecb)) { 
    Return $calc(%rangedcb + %basecombat) Ranged Based 
  } 
  if ((%magecb > %rangedcb) && (%magecb > %meleecb)) { 
    Return $calc(%magecb + %basecombat) Mage Based 
  } 
  unset %defence 
  unset %hitpoints 
  unset %prayer 
  unset %basecombat 
  unset %attack 
  unset %strength 
  unset %ranged 
  unset %mage 
  unset %meleecb 
  unset %rangedcb 
  unset %magecb 
} 
on *:dialog:toolkit:sclick:70: {
  did -a toolkit 74 1
} 
on *:dialog:toolkit:sclick:71: {
  did -a toolkit 74 2
} 
on *:dialog:toolkit:sclick:72: {
  did -a toolkit 74 3
} 
on *:dialog:toolkit:sclick:75: {
  did -a toolkit 74 4
} 
on *:dialog:toolkit:sclick:76: {
  did -a toolkit 74 5
} 
on *:dialog:toolkit:sclick:77: {
  did -a toolkit 74 6
} 
on *:dialog:toolkit:sclick:79: {
  did -a toolkit 74 7
} 
on *:dialog:toolkit:sclick:80: {
  did -a toolkit 74 8
} 
on *:dialog:toolkit:sclick:81: {
  did -a toolkit 74 9
} 
on *:dialog:toolkit:sclick:83: {
  did -a toolkit 74 0
} 
on *:dialog:toolkit:sclick:73: {
  did -a toolkit 74 \\
} 
on *:dialog:toolkit:sclick:78: {
  did -a toolkit 74 *
} 
on *:dialog:toolkit:sclick:86: {
  did -a toolkit 74 +
} 
on *:dialog:toolkit:sclick:82: {
  did -a toolkit 74 -
} 
on *:dialog:toolkit:sclick:85: {
  did -ra toolkit 74 $calc($did(toolkit,74))
} 
on *:dialog:toolkit:sclick:84: {
  did -r toolkit 74
}