DKRT

By HeatedHeart on Aug 12, 2009

Ok since you guys cant benefit from my YVDA snippet, this one is something you guys can see and use (maybe idk) this manages decks "Doesnt auto load decks you select a file and it assumes its your deck, hell you could use LOLZORS.TXT as your deck file and it wont effect the script" it manages wins/loss's threw a hash table and also allows you to display your record. anyways hope you enjoy.

P.S: Screw your rating system PATX >;[ also, http://pastebin.com/f38419efc is the "YVD" Version, that also displays deck lists :P. also stopped used findfile cause people have pr0blems with it me shrugs Image

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;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 *:EXIT:{ 
  hsave DKRT DKRT.txt
}
on *:DIALOG:DKRT:close:*: {
  hsave DKRT DKRT.txt
}
on *:DIALOG:DKRT:init:*: {
  ShowDecks
}
;#### Popups
menu * {
  DKRT
  .Deck Record Keeper Tracker: dialog -vmd DKRT DKRT
}
;#### Alias 
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 429 359
  option pixels notheme
  box "Control", 10, 186 146 239 123
  box "", 8, 6 320 422 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 "", 7, 11 328 410 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 197 65 25
  button "Reset Deck Keeper", 12, 192 234 228 25
  text "", 15, 223 32 101 17
  text "", 16, 237 47 100 17
  text "", 17, 221 62 100 17
  text "", 18, 226 75 100 17
  link "www.XeroCreative.com", 19, 25 2 120 17
  button "Display", 20, 274 181 65 25
}
;#### Coding
on *:dialog:DKRT:SCLICK:*: {
  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) {
    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
Sign in to comment.
Risen   -  Oct 12, 2009

Sexy. I agree with D-Mag.

 Respond  
D-Mag   -  Sep 01, 2009

I really like this script. :D If you could, put in a duel request button where the user can edit there request and even color/decorate it if you could. :P

 Respond  
Pikachu7265   -  Aug 14, 2009

=[ awwwwwww >_> still great script

 Respond  
HeatedHeart   -  Aug 13, 2009

to many problems with auto loading, People complained YVDA didnt work for them, so im straying away from $findfile

 Respond  
Pikachu7265   -  Aug 13, 2009

nice =D. Awsome script, maybe you should add something so everyone can see what decks you have. kinda like the YVDA. >.>

 Respond  
HeatedHeart   -  Aug 13, 2009

/me eye twitch sure patx you were mentioned in the description... Grumbles....

 Respond  
PATX   -  Aug 13, 2009

LOLOL. I was mentioned in da Description LMAO!!!

5/5 http://txtb.in/3U5

 Respond  
Vengeance   -  Aug 13, 2009

Very nice :)

 Respond  
HeatedHeart   -  Aug 12, 2009

Made some small changes to code

 Respond  
HeatedHeart   -  Aug 12, 2009

Bumpz

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.