dialog Tracker {
  title "Exp Tracker"
  size -1 -1 167 92
  option dbu
  box "Name", 1, 1 1 75 23
  edit "USERNAME", 2, 4 9 68 10, center
  box "Skill", 3, 1 23 75 23
  edit "SKILLNAME", 4, 4 31 68 10, center
  box "Days", 5, 89 1 20 19
  edit "DA", 6, 92 8 14 10, center
  box "Weeks", 7, 112 1 24 19
  edit "WE", 8, 116 8 14 10, center
  box "Months", 9, 139 1 24 19
  edit "MO", 10, 144 8 14 10, center
  button "Track!", 11, 80 24 85 22, flat
  list 12, 1 47 164 35, size vsbar
  text "This is a betta version.", 13, 20 83 119 8, center
}
on *:DIALOG:Tracker:sclick:11:{
  var %s $ticks
  if (!$did(2)) {
    /dialog -md NoUser NoUser
  }
  else {
    if (!$did(4)) {
      dialog -md NoSkill NoSkill
    }
    else {
      if (!$did(6) && !$did(8) && !$did(10)) {
        dialog -md Num Num
      }
      elseif ($did(6) !isnum 1-365 && !$did(8) && !$did(10)) {
        dialog -md Num Num
      }
      elseif ($did(6) isnum 1-365 && !$did(8) && !$did(10)) {
        set %time. [ $+ [ %s ] ] $calc($+(((24*60)*60)*,$did(6),)))
      }
      elseif ($did(8) !isnum 1-52 && !$did(6) && !$did(10)) {
        dialog -md Num Num
      }
      elseif ($did(8) isnum 1-52 && !$did(6) && !$did(10)) {
        set %time. [ $+ [ %s ] ] $calc(((24*60)*60)*($did(8)*7)))
      }   
      elseif ($did(10) !isnum 1-12 && !$did(6) && !$did(8)) {
        dialog -md Num Num
      }
      elseif ($did(10) isnum 1-12 && !$did(6) && !$did(8)) {
        set %time. [ $+ [ %s ] ] $calc(((24*60)*60)*($did(8)*30)))
      }
    }
  }
  ;sockopen Tracker. [ $+ [ %s ] ] rscript.org 80
  ;sockmark Tracker. [ $+ [ %s ] ] $+(User:,~,$replace($did(2),$chr(32),$chr(95)),~,Skill:,~,$Tskill($did(6)),~,Time:,~,%time. [ $+ [ %s ] ])
}
off *:SOCKOPEN:Tracker.*:{
  var %User $gettok($sock($sockname).mark,2,126)
  var %Skill $gettok($sock($sockname).mark,4,126)
  var %Time $gettok($sock($sockname).mark,6,126)
  sockwrite -n $sockname GET $+(/lookup.php?type=track&user=,%User,&skill=,%Skill,&time=,%Time) HTTP/1.1 
  sockwrite -n $sockname Host: rscript.org
  sockwrite -n $sockname $crlf
}
off *:SOCKREAD:Tracker.*:{
  if ($sockerr) { dialog -md SockErr SockErr | sockclose $sockname | halt }
  else {
    var %track
    sockread %track
    if (*-1* iswm %track) {
      did -a Tracker 12 User was not found.
    }
  }
}
dialog Num {
  title "Time"
  size -1 -1 83 76
  option dbu
  text "How to use time:", 1, 21 3 48 8, center
  text "Days: Number must be between 1-365.", 2, 7 12 72 15, center
  text "Weeks: Number must be between 1-54.", 3, 7 26 72 15, center
  text "Months: Number must be between 1-12.", 4, 7 40 72 15, center
  button "Close", 5, 23 61 37 12, cancel
}
alias Tskill { 
  if ($did(4) == overall || $1 == total) { return 0 } 
  if ($did(4) == attack || $1 == att || $1 == attk) { return 1 } 
  if ($did(4) == def || $1 == defence) { return 2 } 
  if ($did(4) == str || $1 == strength) { return 3 } 
  if ($did(4) == hp || $1 == hitpoints || $1 == hits) { return 4 } 
  if ($did(4) == range || $1 == ranged || $1 == ranging) { return 5 } 
  if ($did(4) == pray || $1 == prayer || $1 == praying) { return 6 } 
  if ($did(4) == mage || $1 == magic) { return 7 } 
  if ($did(4) == cook || $1 == cooking) { return 8 } 
  if ($did(4) == wc || $1 == wcing || $1 == woodcut || $1 == woodcutting) { return 9 } 
  if ($did(4) == fletch || $1 == fletching) { return 10 } 
  if ($did(4) == fishing || $1 == fish) { return 11 } 
  if ($did(4) == fm || $1 == firemaking) { return 12 } 
  if ($did(4) == craft || $1 == crafting) { return 13 } 
  if ($did(4) == smith || $1 == smithing) { return 14 } 
  if ($did(4) == mining) { return 15 } 
  if ($did(4) == herb || $1 == herblore) { return 16 } 
  if ($did(4) == agility || $1 == agil || $1 == agi) { return 17 } 
  if ($did(4) == thiev || $1 == thieving) { return 18 } 
  if ($did(4) == slay || $1 == slaying || $1 == slayer) { return 19 } 
  if ($did(4) == farm || $1 == farming) { return 20 } 
  if ($did(4) == rc || $1 == runecraft || $1 == runecrafting) { return 21 } 
  if ($did(4) == construct || $1 == con || $1 == cons || $1 == construction) { return 22 } 
  if ($did(4) == hunt || $1 == hunter || $1 == hunting) { return 23 } 
  if ($did(4) == summ || $1 == sum || $1 == summo || $1 == summon || $1 == summoning) { return 24 } 
}