I made this on request. It can be used for other than YVD if u wish.

Includes an Add New Deck option..

However:
After adding the deck add the following to the code (just before add new deck):

 ...<deckname>: /set %deckname <deckname> | set %wins $readini(decks.ini,%deckname,wins) | set %loss $readini(decks.ini,%deckname,loss) | amsg 12,1.3.:8:: Deck Loaded( $+ %deckname $+ ) Current Wins( $+ %wins $+ ) Loss( $+ %loss $+ ) 8,1::3:.2.

Edit with your deck name =]

alias deckrecord {
  msg $1 12,1.3.:8:: My Current Deck Record( $+ %deckname $+ ) Is: Wins( $+ %wins $+ ) Loss( $+ %loss $+ ) 8,1::3:.2.
}
alias addloss { 
  inc %loss 1
  amsg %l I have Lost to: %opponent $+ . Score: $me $+ ( $+ %myscore $+ ) vs %opponent $+ ( $+ %oppscore $+ ). My New Deck Record: Wins( $+ %wins $+ ) Loss( $+ %loss $+ ) %l
  unset %myscore
  unset %oppscore
  unset %opponent
  writeini decks.ini %deckname Loss %loss
  echo %l Loss Added 8,1::3:.2.
}
alias addwin {
  inc %wins 1
  amsg 12,1.3.:8:: I have Beaten: %opponent $+ . Score: $me $+ ( $+ %myscore $+ ) vs %opponent $+ ( $+ %oppscore $+ ). My New Deck Record: Wins( $+ %wins $+ ) Loss( $+ %loss $+ ) %l
  unset %myscore
  unset %oppscore
  unset %opponent
  writeini decks.ini %deckname Wins %wins
  echo 12,1.3.:8:: Win Added. 8,1::3:.2.
}
alias F1 {
  set %L 12,1.3.:8::
  set %R 8,1::3:.2.
  echo 12,1.3.:8:: Colors now Set. 8,1::3:.2.
}
alias win1 {
  inc %myscore 1 
  if (%myscore == 2) { addwin }
}
alias lose1 {
  inc %oppscore 1
  if (%oppscore == 2) { addloss }
}
alias startduel {
  set %opponent $1 
  amsg 12,1.3.:8:: Get your Game On! $me Vs %opponent 8,1::3:.2.
}
menu nicklist {
  Duel
  .Start Duel: startduel $$1
  .Status
  ..I Win 1: win1
  ..I Lose 1: lose1
  .Show Record: deckrecord $chan
  .Deck
  ..Set Deck
  ...Bewd: /set %deckname BEWD | set %wins $readini(decks.ini,%deckname,wins) | set %loss $readini(decks.ini,%deckname,Loss) | amsg 12,1.3.:8:: Deck Loaded( $+ %deckname $+ ) Current Wins( $+ %wins $+ ) Loss( $+ %loss $+ ) 8,1::3:.2.
  ...Test: /set %deckname test | set %wins $readini(decks.ini,%deckname,wins) | set %loss $readini(decks.ini,%deckname,loss) | amsg 12,1.3.:8:: Deck Loaded( $+ %deckname $+ ) Current Wins( $+ %wins $+ ) Loss( $+ %loss $+ ) 8,1::3:.2.
  ..New Deck: /set %deckname $$?="Enter name for new deck" | writeini decks.ini %deckname Wins 0 | writeini decks.ini %deckname Loss 0 | amsg 12,1.3.:8:: Deck Loaded( $+ %deckname $+ ) Current Wins( $+ %wins $+ ) Loss( $+ %loss $+ ) 8,1::3:.2.
}