HeatedHeart

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Deck Keeper Record Tracker---------;;
;;Coded By HeatedHeart---------------;;
;;For Use With XeroChat3-------------;;
;;All Rights Reserved:XeroChat Team--;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;#### Startup
on *:LOAD:{
  hmake DKRT 50
}
on *:START:{
  hmake DKRT 50
  hload DKRT DKRT.txt
}
on *:DIALOG:DKRT:close:*: {
  hsave DKRT DKRT.txt
}
on *:EXIT:{
  hsave DKRT DKRT.txt
}
on *:DIALOG:DKRT:init:*: {
  ShowDecks
}
;#### Popups
menu * {
  DKRT
  .Deck Record Keeper Tracker: dialog -vmd DKRT DKRT
}
;#### Alias
alias DisplayFile {
  did -r $dname 21
  var %dir $Gettok($Hget(DKRT,$did(1).seltext),1,34)
  var %Lines $lines($Gettok($Hget(DKRT,$did(1).seltext),1,34))
  var %Loop 1
  while (%Loop <= %Lines) {
    did -a $dname 21 $read($qt(%dir),%Loop)
    inc %loop
  }
}
alias StatRefresh {
  var %x 7 15 16 17 18
  var %loop 1
  while (%loop <= 5) {
    did -r $dname $Gettok(%x,%Loop,32)
    inc %Loop
  }
  did -a $dname 7 $Gettok($Hget(DKRT,$did(1).seltext),1,34)
  did -a $dname 15 $did(1).seltext
  did -a $dname 16 $Gettok($asctime($file($Gettok($Hget(DKRT,$did(1).seltext),1,34)).ctime),1-3,32)
  did -a $dname 17 $Gettok($Hget(DKRT,$did(1).seltext),2,124)
  did -a $dname 18 $Gettok($Hget(DKRT,$did(1).seltext),3,124)
}
alias ShowDecks {
  did -r $dname 1
  var %x $hget(DKRT,0).item
  var %loop 1
  while (%Loop <= %X) {
    did -a $dname 1 $Hget(DKRT,%Loop).item
    inc %loop
  }
}

;#### Dialog
dialog DKRT {
  title "Deck Record Tracker"
  size -1 -1 610 359
  option pixels notheme
  box "Control", 10, 186 146 239 123
  box "", 8, 6 320 599 27
  list 1, 5 22 174 316
  box "Infromation", 2, 185 17 242 100
  text "Wins:", 3, 193 61 26 17
  text "Loss's:", 4, 193 75 32 16
  text "Created:", 5, 192 47 43 17
  text "Name:", 6, 192 32 31 17
  text "5", 7, 11 328 590 17
  button "Add Win", 9, 192 165 65 25
  button "Add Loss", 11, 352 165 65 25
  button "Add Deck", 13, 193 195 65 25
  button "Delete Deck", 14, 352 195 65 25
  button "Reset Deck Keeper", 12, 192 234 228 25
  text "1", 15, 223 32 101 17
  text "2", 16, 237 47 100 17
  text "3", 17, 221 62 100 17
  text "4", 18, 226 75 100 17
  link "www.XeroCreative.com", 19, 25 2 120 17
  list 21, 430 17 174 316
  button "Display Record", 20, 267 165 78 25
  button "Display Deck", 22, 268 195 78 25
}
;#### Coding
on *:dialog:DKRT:SCLICK:*: {
  if ($did == 22) {
    var %dir $Gettok($Hget(DKRT,$did(1).seltext),1,34)
    var %Lines $lines($Gettok($Hget(DKRT,$did(1).seltext),1,34))
    var %Loop 1
    while (%Loop <= %Lines) {
      msg $active $read($qt(%dir),%Loop)
      inc %loop
    }
  }
  if ($did == 11) {
    var %dir $Gettok($Hget(DKRT,$did(1).seltext),1,34)
    var %win $Gettok($Hget(DKRT,$did(1).seltext),2,124)
    var %loss $Gettok($Hget(DKRT,$did(1).seltext),3,124)
    inc %loss
    hadd DKRT $did(1).seltext $qt(%dir) $chr(124) $+ %win $+ $chr(124) $+ %loss $+ $chr(124)
    statrefresh
  }
  if ($did == 9) {
    var %dir $Gettok($Hget(DKRT,$did(1).seltext),1,34)
    var %loss $Gettok($Hget(DKRT,$did(1).seltext),3,124)
    var %win $Gettok($Hget(DKRT,$did(1).seltext),2,124)
    inc %win
    hadd DKRT $did(1).seltext $qt(%dir) $chr(124) $+ %win $+ $chr(124) $+ %loss $+ $chr(124)
    statrefresh
  }
  if ($did == 20) {
    msg $active 0(4 $+ $did(1).seltext $+ 0)14 W15ins4: 0(4 $+ $Gettok($Hget(DKRT,$did(1).seltext),2,124) $+ 0) 14L15oss's4: 0(4 $+ $Gettok($Hget(DKRT,$did(1).seltext),3,124) $+ 0)
  }
  if ($did == 1) {
    displayfile
    statrefresh
  }
  if ($did == 12) {
    hfree DKRT
    hmake DKRT 50
    showdecks
    statrefresh
  }
  if ($did == 13) {
    var %x $sfile(dir)
    hadd DKRT $gettok(%x,$numtok(%x,92),92) $qt(%x) |0|0|
    showdecks
    statrefresh
  }
  if ($did == 14) {
    hdel DKRT $did(1).seltext
    showdecks
    statrefresh
  }
}
;#### End DRT