menu * { 
  Stat Calculator:/dialog -m StatCalc StatCalc
}
alias /go {
  /dialog -m Statcalc StatCalc
}
on *:dialog:Statcalc:sclick:13:{
  /set %skill $did(13)
}
on *:dialog:StatCalc:sclick:12:{
  /set %removed $did(7)
  /did -r StatCalc 11
  /set %skillmatch 99
  :here 
  /set %lvlmatch $readini(StatCalc.ini,level,%skillmatch)
  if ($readini(StatCalc.ini,level,%skillmatch) > %removed) {
    /dec %Skillmatch
    /goto Here
  }
  else {
    if ($readini(StatCalc.ini,level,%skillmatch) <= %removed) {
      /did -a StatCalc 11 %skillmatch
      did -a Statcalc 68 $calc(%skillmatch + 1 )
      /set %lvlup $calc(%skillmatch + 1)
      /calcitems
    }
  }
}
on *:dialog:Statcalc:init:0:{
  if ($readini(StatCalc.ini,SavedName,1)) { 
    did -a StatCalc 1 $readini(StatCalc.ini,SavedName,1)
  }
  /set %dialog StatCalc 13
  /addskills
}
on *:dialog:Statcalc:sclick:8:{
  /writeini StatCalc.ini SavedName 1 $did(1)
  /dialog -m NickSaved NickSaved
  /did -a NickSaved 2 $readini(StatCalc.ini,SavedName,1)
}
on *:dialog:Statcalc:sclick:3:{
  if ($did(13) == Choose Skill) { dialog -m NoSkill NoSkill | beep 1 0 }
  else {
    if ($did(1) == $null) { dialog -m NoNick NoNick | beep 1 0 } 
    else {
      /did -a StatCalc 3 Please Wait...
      /did -h StatCalc 19-42
      /did -r StatCalc 43-66,7,11,17,68
      set %user $replace($did(1),$chr(32),$chr(45))
      sockopen Stats o-ss.net 80
    }
  }
}
on *:SOCKOPEN:Stats: {
  sockwrite -nt $sockname GET /parsers/skills.php?user= [ $+ [ %user ] $+ ] &skill= [ $+ [ %skill ] ] HTTP/1.1
  sockwrite -nt $sockname Host: o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Stats: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*END* iswm %sockreader ) {
      if ($gettok(%sockreader,1,32) == END || $gettok(%sockreader,1,32) == $null) { 
        did -r StatCalc 7
        did -r StatCalc 11
        did -a StatCalc 7 Not In Hiscores 
        sockclose Stats
        /did -a Statcalc 3 Get Stats
        /unset %skill
        /unset %user
      }
      else {
        did -r StatCalc 7
        did -r StatCalc 11
        /set %removed $remove($gettok(%sockreader,3,32),$chr(44))
        did -a Statcalc 7 $gettok(%sockreader,3,32)
        did -a Statcalc 11 $gettok(%sockreader,2,32)
        /set %lvlup $calc($gettok(%sockreader,2,32) +1)
        /did -r Statcalc 68
        did -a StatCalc 68 $calc($gettok(%sockreader,2,32) +1)
        sockclose Stats
        /did -a Statcalc 3 Get Stats
        /calcitems
      }
    }
  }
}
on *:dialog:StatCalc:sclick:6:{
  /did -r Statcalc 7,11,68,17,43-66
  /did -c StatCalc 13 1
  /did -h StatCalc 19-42
}
on *:dialog:StatCalc:sclick:16:{
  did -f StatCalc 13
}
dialog StatCalc {
  title "Steiner Stat Calculator"
  size -1 -1 321 245
  option dbu
  edit "", 1, 74 24 50 10
  text "Runescape Name", 2, 23 25 45 8, right
  button "Get Stats", 3, 130 23 37 12, default
  button "Close", 4, 199 218 37 12, ok
  button "Reset", 6, 110 218 37 12
  edit "", 7, 74 42 50 10
  text "Current Xp", 9, 36 43 32 8, right
  text "Current Level", 10, 33 61 35 8, right
  edit "", 11, 74 60 14 10, read
  button "Calc Level", 12, 130 41 37 12, default
  combo 13, 99 60 60 50, size limit 23 drop
  button "Set As Default Name", 8, 176 23 57 12
  text "-----", 14, 167 25 9 8, center
  box "Getting Your Lvl", 15, 20 15 292 63
  box "Needed Items", 16, 20 81 292 133
  edit "", 17, 232 60 39 10, read
  text "Experience To Goal", 18, 182 61 47 8
  edit "", 19, 69 110 37 10, hide read
  edit "", 20, 69 122 37 10, hide read
  edit "", 21, 69 134 37 10, hide read
  edit "", 22, 69 146 37 10, hide read
  edit "", 24, 69 170 37 10, hide read
  edit "", 31, 169 158 37 10, hide read
  edit "", 32, 169 170 37 10, hide read
  edit "", 34, 169 194 37 10, hide read
  edit "", 35, 269 110 37 10, hide read
  edit "", 27, 169 110 37 10, hide read
  edit "", 33, 169 182 37 10, hide read
  edit "", 26, 69 194 37 10, hide read
  edit "", 28, 169 122 37 10, hide read
  edit "", 29, 169 134 37 10, hide read
  edit "", 30, 169 146 37 10, hide read
  edit "", 25, 69 182 37 10, hide read
  edit "", 23, 69 158 37 10, hide read
  edit "", 36, 269 122 37 10, hide read
  edit "", 37, 269 134 37 10, hide read
  edit "", 38, 269 146 37 10, hide read
  edit "", 39, 269 158 37 10, hide read
  edit "", 40, 269 170 37 10, hide read
  edit "", 42, 269 194 37 10, hide read
  edit "", 41, 269 182 37 10, hide read
  text "", 43, 25 111 40 8, center
  text "", 44, 25 123 40 8, center
  text "", 45, 25 135 40 8, center
  text "", 46, 25 147 40 8, center
  text "", 47, 25 159 40 8, center
  text "", 48, 25 171 40 8, center
  text "", 49, 25 183 40 8, center
  text "", 50, 25 195 40 8, center
  text "", 51, 125 111 40 8, center
  text "", 52, 125 123 40 8, center
  text "", 53, 125 135 40 8, center
  text "", 54, 125 147 40 8, center
  text "", 55, 125 159 40 8, center
  text "", 56, 125 171 40 8, center
  text "", 57, 125 183 40 8, center
  text "", 58, 125 195 40 8, center
  text "", 59, 225 111 40 8, center
  text "", 60, 225 123 40 8, center
  text "", 61, 225 135 40 8, center
  text "", 62, 225 147 40 8, center
  text "", 63, 225 159 40 8, center
  text "", 64, 225 171 40 8, center
  text "", 65, 225 183 40 8, center
  text "", 66, 225 195 40 8, center
  text "Goal Level", 67, 204 44 25 8
  edit "", 68, 233 43 14 10, limit 2
  text "Made by Steiner-99", 5, 130 234 86 8, disable center
  button "Add Item(s)", 69, 268 34 41 12
  button "Delete Item(s)", 71, 268 21 41 12
}
alias calcitems {
  /did -r Statcalc 68
  /did -a StatCalc 68 %lvlup
  /did -r Statcalc 43-66,17
  /did -r StatCalc 19-42
  /did -h StatCalc 19-42
  /set %linestoread 1
  /did -a StatCalc 17 $calc($readini(StatCalc.ini,level,%lvlup) - %removed)
  while ($ini(statcalc.ini,%skill,%linestoread)) { 
    /did -a StatCalc $calc(%linestoread + 42) $replace($v1,$chr(95),$chr(32))
    /did -v StatCalc $calc(%linestoread + 18)
    /did -a StatCalc $calc(%linestoread + 18) $floor($calc(($readini(StatCalc.ini,level,%lvlup) - %removed) / $readini(StatCalc.ini,%skill,$v1) +1))
    /inc %linestoread
  }
}
on *:dialog:StatCalc:edit:68:{
  /set %lvlup $did(68)
  /calcitems
}
dialog NickSaved {
  title "Name Saved"
  size -1 -1 108 49
  option dbu
  text "Default Name Set to ", 1, 27 9 53 9, center
  Text "", 2, 28 22 50 10, center
  button "Ok", 3, 36 34 37 12, ok
}
dialog NoNick {
  title "No Name Entered"
  size -1 -1 119 46
  option dbu
  text "!!! ERROR !!!", 1, 0 3 119 8, center
  text ">>>No Username Entered<<<", 2, -1 12 118 8, center
  text "Please enter one before continuing", 3, 0 25 119 14, center
  button "Ok", 4, 49 36 19 8, ok
}
dialog NoSkill {
  title "No Skill Selected"
  size -1 -1 119 46
  option dbu
  text "!!! ERROR !!!", 1, 0 3 119 8, center
  text ">>>No Skill Selected<<<", 2, -1 12 118 8, center
  text "Please select one before continuing", 3, 0 25 119 14, center
  button "Ok", 4, 49 36 19 8, ok
}
on *:dialog:StatCalc:sclick:69:{
  /dialog -m Additem Additem
}
on *:dialog:Additem:init:0:{
  /set %dialog AddItem 1
  /addskills
}
on *:dialog:Additem:sclick:1:{
  if ($regex($did(1),/(Attack|Strength|Defence|Hitpoints|Ranged)/Si)) {
    /did -a Additem 5 Monsters Hp
  }
  else { /did -a Additem 5 Exp Given }
}
on *:dialog:Additem:sclick:7:{
  if ($did(1) == Choose Skill) { /dialog -m Noskill NoSkill | halt }
  if ($regex($did(1),/(Attack|Strength|Defence|Ranged)/Si)) {
    /writeini StatCalc.ini $did(1) $replace($did(4),$chr(32),$chr(95)) $calc($did(6) * 4)
  }
  elseif ($did(1) == Hitpoints) {
    /writeini StatCalc.ini $did(1) $replace($did(4),$chr(32),$chr(95)) $calc($did(6) * 1.333)
  }
  else {
    /writeini StatCalc.ini $did(1) $replace($did(4),$chr(32),$chr(95)) $did(6)
  }
  /set %item $did(4)
  /set %where $did(1)
  /dialog -m Itemadded Itemadded
}
dialog Additem {
  title "Adding An Item"
  size -1 -1 183 69
  option dbu
  combo 1, 70 7 60 50, size drop
  text "Select Skill", 2, 19 8 48 8
  text "Item To Be Added", 3, 19 24 46 8
  edit "", 4, 70 23 50 10
  text "Exp Given", 5, 19 40 46 8
  edit "", 6, 70 39 50 10
  button "Add Item", 7, 49 56 37 12
  button "Cancel", 8, 105 56 37 12, ok cancel
}
on *:dialog:StatCalc:sclick:71:{
  /dialog -m Delitem Delitem
}
on *:dialog:Delitem:init:0:{
  /set %dialog Delitem 2
  /addskills
  /did -ac Delitem 4 Select Skill
}
on *:dialog:Delitem:sclick:2:{
  /did -r Delitem 4
  /var %linestoread = 1
  /set %whatitems $did(2)
  while ($ini(statcalc.ini,%whatitems,%linestoread)) { 
    /did -a Delitem 4 $replace($v1,$chr(95),$chr(32))
    /inc %linestoread
  }
}
on *:dialog:delitem:sclick:5:{
  /remini Statcalc.ini $did(2) $replace($did(4),$chr(32),$chr(95))
  /set %item $did(4)
  /set %where $did(2)
  /dialog -m Itemdeleted Itemdeleted
}
dialog DelItem {
  title "Removing An Item"
  size -1 -1 183 69
  option dbu
  icon C:\Documents and Settings\Jolie\Mijn documenten\Mijn afbeeldingen\Hehe.bmp, 0
  text "Select Skill", 1, 19 12 48 8
  combo 2, 76 11 60 50, size drop
  text "Select Item", 3, 19 28 48 8
  combo 4, 76 27 60 50, size drop
  button "Delete Item", 5, 45 52 37 12
  button "Cancel", 6, 100 52 37 12, ok cancel
}
alias /addskills {
  /did -a %dialog Choose Skill
  /did -a %dialog Agility 
  /did -a %dialog Attack
  /did -a %dialog Construction
  /did -a %dialog Cooking
  /did -a %dialog Crafting 
  /did -a %dialog Defence
  /did -a %dialog Farming
  /did -a %dialog Firemaking
  /did -a %dialog Fishing
  /did -a %dialog Fletching
  /did -a %dialog Herblore
  /did -a %dialog Hitpoints
  /did -a %dialog Hunter
  /did -a %dialog Magic
  /did -a %dialog Mining
  /did -a %dialog Prayer
  /did -a %dialog Ranged
  /did -a %dialog Runecraft
  /did -a %dialog Smithing
  /did -a %dialog Strength
  /did -a %dialog Thieving
  /did -a %dialog Woodcutting
  /did -c %dialog 1
  /unset %dialog
}
on *:dialog:Itemadded:init:0:{
  /did -a Itemadded 2 %item added to %where
}
on *:dialog:itemadded:sclick:3:{
  /dialog -x Itemadded
  /dialog -x Additem
  /unset %item
  unset %where
}
dialog Itemadded {
  title "Item Added"
  size -1 -1 116 48
  option dbu
  text "~~~Item succesfully added~~~", 1, 1 5 114 12, center
  text "", 2, 1 23 115 8, center
  button "Ok", 3, 40 36 30 8
}
on *:dialog:Itemdeleted:init:0:{
  /did -a Itemdeleted 2 %item deleted from %where
}
on *:dialog:Itemdeleted:sclick:3:{
  /dialog -x Itemdeleted
  /dialog -x Delitem
  /unset %item
  unset %where
}
dialog Itemdeleted {
  title "Item Deleted"
  size -1 -1 116 48
  option dbu
  text "~~~Item succesfully deleted~~~", 1, 1 5 114 12, center
  text "", 2, 1 23 115 8, center
  button "Ok", 3, 40 36 30 8
}