frmDuel.xojo_window

#tag Window
Begin Window frmDuel
   BackColor       =   &c08C2FF00
   Backdrop        =   0
   CloseButton     =   False
   Compatibility   =   ""
   Composite       =   False
   Frame           =   0
   FullScreen      =   False
   FullScreenButton=   True
   HasBackColor    =   True
   Height          =   768
   ImplicitInstance=   True
   LiveResize      =   False
   MacProcID       =   0
   MaxHeight       =   768
   MaximizeButton  =   False
   MaxWidth        =   1624
   MenuBar         =   0
   MenuBarVisible  =   True
   MinHeight       =   768
   MinimizeButton  =   True
   MinWidth        =   1024
   Placement       =   2
   Resizeable      =   False
   Title           =   "Yu-Gi-Oh! Duel Stadium"
   Visible         =   True
   Width           =   1546
   Begin ABCanvas ABDuelArea
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      Background      =   0
      DoubleBuffer    =   True
      Enabled         =   True
      EraseBackground =   False
      Height          =   768
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   258
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      mLastX          =   0
      mLastY          =   0
      pBuffer         =   0
      Scope           =   2
      TabIndex        =   22
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   0
      Transparent     =   True
      UseFocusRing    =   True
      Visible         =   True
      Width           =   766
      Begin Canvas Canvas1
         AcceptFocus     =   False
         AcceptTabs      =   False
         AutoDeactivate  =   True
         Backdrop        =   280991743
         DoubleBuffer    =   False
         Enabled         =   True
         EraseBackground =   True
         Height          =   90
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "ABDuelArea"
         Left            =   269
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   2
         TabIndex        =   0
         TabPanelIndex   =   0
         TabStop         =   True
         Top             =   120
         Transparent     =   True
         UseFocusRing    =   True
         Visible         =   False
         Width           =   40
      End
      Begin Canvas Canvas2
         AcceptFocus     =   False
         AcceptTabs      =   False
         AutoDeactivate  =   True
         Backdrop        =   280991743
         DoubleBuffer    =   False
         Enabled         =   True
         EraseBackground =   True
         Height          =   90
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "ABDuelArea"
         Left            =   269
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   2
         TabIndex        =   1
         TabPanelIndex   =   0
         TabStop         =   True
         Top             =   200
         Transparent     =   True
         UseFocusRing    =   True
         Visible         =   False
         Width           =   40
      End
      Begin Canvas Canvas3
         AcceptFocus     =   False
         AcceptTabs      =   False
         AutoDeactivate  =   True
         Backdrop        =   280991743
         DoubleBuffer    =   False
         Enabled         =   True
         EraseBackground =   True
         Height          =   90
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "ABDuelArea"
         Left            =   269
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   2
         TabIndex        =   2
         TabPanelIndex   =   0
         TabStop         =   True
         Top             =   282
         Transparent     =   True
         UseFocusRing    =   True
         Visible         =   False
         Width           =   40
      End
      Begin Canvas Canvas4
         AcceptFocus     =   False
         AcceptTabs      =   False
         AutoDeactivate  =   True
         Backdrop        =   280991743
         DoubleBuffer    =   False
         Enabled         =   True
         EraseBackground =   True
         Height          =   90
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "ABDuelArea"
         Left            =   269
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   2
         TabIndex        =   3
         TabPanelIndex   =   0
         TabStop         =   True
         Top             =   366
         Transparent     =   True
         UseFocusRing    =   True
         Visible         =   False
         Width           =   40
      End
      Begin Canvas Canvas5
         AcceptFocus     =   False
         AcceptTabs      =   False
         AutoDeactivate  =   True
         Backdrop        =   280991743
         DoubleBuffer    =   False
         Enabled         =   True
         EraseBackground =   True
         Height          =   90
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "ABDuelArea"
         Left            =   269
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   2
         TabIndex        =   4
         TabPanelIndex   =   0
         TabStop         =   True
         Top             =   450
         Transparent     =   True
         UseFocusRing    =   True
         Visible         =   False
         Width           =   40
      End
      Begin Canvas Canvas6
         AcceptFocus     =   False
         AcceptTabs      =   False
         AutoDeactivate  =   True
         Backdrop        =   280991743
         DoubleBuffer    =   False
         Enabled         =   True
         EraseBackground =   True
         Height          =   90
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "ABDuelArea"
         Left            =   269
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   2
         TabIndex        =   5
         TabPanelIndex   =   0
         TabStop         =   True
         Top             =   535
         Transparent     =   True
         UseFocusRing    =   True
         Visible         =   False
         Width           =   40
      End
      Begin Canvas Canvas7
         AcceptFocus     =   False
         AcceptTabs      =   False
         AutoDeactivate  =   True
         Backdrop        =   0
         DoubleBuffer    =   False
         Enabled         =   True
         EraseBackground =   True
         Height          =   538
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "ABDuelArea"
         Left            =   322
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   2
         TabIndex        =   6
         TabPanelIndex   =   0
         TabStop         =   True
         Top             =   110
         Transparent     =   True
         UseFocusRing    =   True
         Visible         =   True
         Width           =   690
      End
   End
   Begin Canvas imgPlayer0Hand
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   True
      Height          =   146
      HelpTag         =   ""
      Index           =   7
      InitialParent   =   ""
      Left            =   891
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   21
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   656
      Transparent     =   True
      UseFocusRing    =   True
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgPlayer0Hand
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   True
      Height          =   146
      HelpTag         =   ""
      Index           =   6
      InitialParent   =   ""
      Left            =   813
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   20
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   656
      Transparent     =   True
      UseFocusRing    =   True
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgPlayer0Hand
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   True
      Height          =   146
      HelpTag         =   ""
      Index           =   5
      InitialParent   =   ""
      Left            =   735
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   19
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   656
      Transparent     =   True
      UseFocusRing    =   True
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgPlayer0Hand
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   True
      Height          =   146
      HelpTag         =   ""
      Index           =   4
      InitialParent   =   ""
      Left            =   657
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   18
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   656
      Transparent     =   True
      UseFocusRing    =   True
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgPlayer0Hand
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   True
      Height          =   146
      HelpTag         =   ""
      Index           =   3
      InitialParent   =   ""
      Left            =   579
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   17
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   656
      Transparent     =   True
      UseFocusRing    =   True
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgPlayer0Hand
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   True
      Height          =   146
      HelpTag         =   ""
      Index           =   2
      InitialParent   =   ""
      Left            =   501
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   16
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   656
      Transparent     =   True
      UseFocusRing    =   True
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgPlayer0Hand
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   True
      Height          =   146
      HelpTag         =   ""
      Index           =   1
      InitialParent   =   ""
      Left            =   423
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   15
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   656
      Transparent     =   True
      UseFocusRing    =   True
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgPlayer0Hand
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   True
      Height          =   146
      HelpTag         =   ""
      Index           =   0
      InitialParent   =   ""
      Left            =   345
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   14
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   656
      Transparent     =   True
      UseFocusRing    =   True
      Visible         =   False
      Width           =   100
   End
   Begin RoundRectangle recCardDetails
      AutoDeactivate  =   True
      BorderColor     =   &c4C4C4C00
      BorderWidth     =   1
      Enabled         =   True
      FillColor       =   &c4C4C4C00
      Height          =   637
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   8
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      OvalHeight      =   20
      OvalWidth       =   20
      Scope           =   2
      TabIndex        =   13
      TabPanelIndex   =   0
      Top             =   65
      Visible         =   True
      Width           =   238
   End
   Begin Canvas imgCard
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   True
      Enabled         =   True
      EraseBackground =   False
      Height          =   292
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   27
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   0
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   71
      Transparent     =   True
      UseFocusRing    =   False
      Visible         =   True
      Width           =   200
   End
   Begin Label lblCardName
      AutoDeactivate  =   True
      Bold            =   True
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   40
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   False
      Left            =   21
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Multiline       =   True
      Scope           =   2
      Selectable      =   False
      TabIndex        =   1
      TabPanelIndex   =   0
      Text            =   "Card Name"
      TextAlign       =   1
      TextColor       =   &cE6E6E600
      TextFont        =   "Arial"
      TextSize        =   0.0
      TextUnit        =   0
      Top             =   367
      Transparent     =   True
      Underline       =   False
      Visible         =   True
      Width           =   208
   End
   Begin Label lblType
      AutoDeactivate  =   True
      Bold            =   True
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   20
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   False
      Left            =   27
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Multiline       =   False
      Scope           =   2
      Selectable      =   False
      TabIndex        =   2
      TabPanelIndex   =   0
      Text            =   "Card Type"
      TextAlign       =   0
      TextColor       =   &cE6E6E600
      TextFont        =   "Arial"
      TextSize        =   0.0
      TextUnit        =   0
      Top             =   409
      Transparent     =   True
      Underline       =   False
      Visible         =   True
      Width           =   89
   End
   Begin Label lblAttribute
      AutoDeactivate  =   True
      Bold            =   True
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   20
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   False
      Left            =   136
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Multiline       =   False
      Scope           =   2
      Selectable      =   False
      TabIndex        =   3
      TabPanelIndex   =   0
      Text            =   "Card Attribute"
      TextAlign       =   2
      TextColor       =   &cE6E6E600
      TextFont        =   "Arial"
      TextSize        =   0.0
      TextUnit        =   0
      Top             =   409
      Transparent     =   True
      Underline       =   False
      Visible         =   True
      Width           =   91
   End
   Begin Label lblArcheType
      AutoDeactivate  =   True
      Bold            =   True
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   20
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   False
      Left            =   21
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Multiline       =   False
      Scope           =   2
      Selectable      =   False
      TabIndex        =   4
      TabPanelIndex   =   0
      Text            =   "Archetype"
      TextAlign       =   1
      TextColor       =   &cE6E6E600
      TextFont        =   "Arial"
      TextSize        =   0.0
      TextUnit        =   0
      Top             =   430
      Transparent     =   True
      Underline       =   False
      Visible         =   True
      Width           =   208
   End
   Begin TextArea lblDesc
      AcceptTabs      =   False
      Alignment       =   1
      AutoDeactivate  =   True
      AutomaticallyCheckSpelling=   True
      BackColor       =   &cFFFFFF00
      Bold            =   False
      Border          =   False
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Format          =   ""
      Height          =   198
      HelpTag         =   ""
      HideSelection   =   True
      Index           =   -2147483648
      Italic          =   False
      Left            =   20
      LimitText       =   0
      LineHeight      =   0.0
      LineSpacing     =   1.0
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Mask            =   ""
      Multiline       =   True
      ReadOnly        =   True
      Scope           =   2
      ScrollbarHorizontal=   False
      ScrollbarVertical=   True
      Styled          =   True
      TabIndex        =   5
      TabPanelIndex   =   0
      TabStop         =   False
      Text            =   ""
      TextColor       =   &c00000000
      TextFont        =   "Arial"
      TextSize        =   0.0
      TextUnit        =   0
      Top             =   462
      Underline       =   False
      UseFocusRing    =   False
      Visible         =   True
      Width           =   216
   End
   Begin Label lblATK
      AutoDeactivate  =   True
      Bold            =   True
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   20
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   False
      Left            =   27
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Multiline       =   False
      Scope           =   2
      Selectable      =   False
      TabIndex        =   5
      TabPanelIndex   =   0
      Text            =   "ATK/"
      TextAlign       =   0
      TextColor       =   &cE6E6E600
      TextFont        =   "Arial"
      TextSize        =   0.0
      TextUnit        =   0
      Top             =   677
      Transparent     =   True
      Underline       =   False
      Visible         =   True
      Width           =   75
   End
   Begin RoundRectangle recLP
      AutoDeactivate  =   True
      BorderColor     =   &c00000000
      BorderWidth     =   1
      Enabled         =   True
      FillColor       =   &cFFFFFF00
      Height          =   43
      HelpTag         =   ""
      Index           =   1
      InitialParent   =   ""
      Left            =   27
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      OvalHeight      =   16
      OvalWidth       =   16
      Scope           =   2
      TabIndex        =   9
      TabPanelIndex   =   0
      Top             =   15
      Visible         =   True
      Width           =   201
   End
   Begin Label lblDEF
      AutoDeactivate  =   True
      Bold            =   True
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   20
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   False
      Left            =   152
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Multiline       =   False
      Scope           =   2
      Selectable      =   False
      TabIndex        =   6
      TabPanelIndex   =   0
      Text            =   "DEF/"
      TextAlign       =   0
      TextColor       =   &cE6E6E600
      TextFont        =   "Arial"
      TextSize        =   0.0
      TextUnit        =   0
      Top             =   677
      Transparent     =   True
      Underline       =   False
      Visible         =   True
      Width           =   75
   End
   Begin RoundRectangle recLP
      AutoDeactivate  =   True
      BorderColor     =   &c00000000
      BorderWidth     =   1
      Enabled         =   True
      FillColor       =   &cFFFFFF00
      Height          =   43
      HelpTag         =   ""
      Index           =   0
      InitialParent   =   ""
      Left            =   27
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      OvalHeight      =   16
      OvalWidth       =   16
      Scope           =   2
      TabIndex        =   10
      TabPanelIndex   =   0
      Top             =   709
      Visible         =   True
      Width           =   201
   End
   Begin Label lblLPMeter
      AutoDeactivate  =   True
      Bold            =   False
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   45
      HelpTag         =   ""
      Index           =   1
      InitialParent   =   ""
      Italic          =   False
      Left            =   93
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Multiline       =   False
      Scope           =   2
      Selectable      =   False
      TabIndex        =   7
      TabPanelIndex   =   0
      Text            =   "000000"
      TextAlign       =   2
      TextColor       =   &cFF000000
      TextFont        =   "Arial"
      TextSize        =   40.0
      TextUnit        =   0
      Top             =   14
      Transparent     =   True
      Underline       =   False
      Visible         =   True
      Width           =   130
   End
   Begin Label lblLPMeter
      AutoDeactivate  =   True
      Bold            =   False
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   45
      HelpTag         =   ""
      Index           =   0
      InitialParent   =   ""
      Italic          =   False
      Left            =   93
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Multiline       =   False
      Scope           =   2
      Selectable      =   False
      TabIndex        =   8
      TabPanelIndex   =   0
      Text            =   "000000"
      TextAlign       =   2
      TextColor       =   &c0000FF00
      TextFont        =   "Arial"
      TextSize        =   40.0
      TextUnit        =   0
      Top             =   709
      Transparent     =   True
      Underline       =   False
      Visible         =   True
      Width           =   130
   End
   Begin Label lblLP
      AutoDeactivate  =   True
      Bold            =   False
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   45
      HelpTag         =   ""
      Index           =   1
      InitialParent   =   ""
      Italic          =   False
      Left            =   32
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Multiline       =   False
      Scope           =   2
      Selectable      =   False
      TabIndex        =   11
      TabPanelIndex   =   0
      Text            =   "LP:"
      TextAlign       =   0
      TextColor       =   &cFF000000
      TextFont        =   "Arial"
      TextSize        =   40.0
      TextUnit        =   0
      Top             =   14
      Transparent     =   True
      Underline       =   False
      Visible         =   True
      Width           =   55
   End
   Begin Label lblLP
      AutoDeactivate  =   True
      Bold            =   False
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   45
      HelpTag         =   ""
      Index           =   0
      InitialParent   =   ""
      Italic          =   False
      Left            =   32
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Multiline       =   False
      Scope           =   2
      Selectable      =   False
      TabIndex        =   12
      TabPanelIndex   =   0
      Text            =   "LP:"
      TextAlign       =   0
      TextColor       =   &c0000FF00
      TextFont        =   "Arial"
      TextSize        =   40.0
      TextUnit        =   0
      Top             =   709
      Transparent     =   True
      Underline       =   False
      Visible         =   True
      Width           =   55
   End
   Begin Timer tmrStartDuel
      Index           =   -2147483648
      InitialParent   =   ""
      LockedInPosition=   False
      Mode            =   0
      Period          =   100
      Scope           =   2
      TabPanelIndex   =   0
   End
   Begin Timer tmrCardDetails
      Index           =   -2147483648
      LockedInPosition=   False
      Mode            =   0
      Period          =   1200
      Scope           =   2
      TabPanelIndex   =   0
   End
   Begin Timer tmrDraw
      Index           =   -2147483648
      LockedInPosition=   False
      Mode            =   0
      Period          =   500
      Scope           =   2
      TabPanelIndex   =   0
   End
   Begin Timer tmrDrawInitialHand
      Index           =   -2147483648
      LockedInPosition=   False
      Mode            =   0
      Period          =   500
      Scope           =   2
      TabPanelIndex   =   0
   End
   Begin Timer tmrDrawPhase
      Index           =   -2147483648
      LockedInPosition=   False
      Mode            =   0
      Period          =   500
      Scope           =   2
      TabPanelIndex   =   0
   End
   Begin Timer tmrShuffleDecks
      Index           =   -2147483648
      LockedInPosition=   False
      Mode            =   0
      Period          =   100
      Scope           =   2
      TabPanelIndex   =   0
   End
   Begin Timer tmrStandbyPhase
      Index           =   -2147483648
      LockedInPosition=   False
      Mode            =   0
      Period          =   500
      Scope           =   2
      TabPanelIndex   =   0
   End
   Begin Timer tmrMainPhase1
      Index           =   -2147483648
      LockedInPosition=   False
      Mode            =   0
      Period          =   500
      Scope           =   2
      TabPanelIndex   =   0
   End
   Begin Timer tmrMainPhase2
      Index           =   -2147483648
      LockedInPosition=   False
      Mode            =   0
      Period          =   500
      Scope           =   2
      TabPanelIndex   =   0
   End
   Begin Timer tmrBattlePhase
      Index           =   -2147483648
      LockedInPosition=   False
      Mode            =   0
      Period          =   500
      Scope           =   2
      TabPanelIndex   =   0
   End
   Begin Canvas imgP2SpellTrap
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   4
      InitialParent   =   ""
      Left            =   827
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   34
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   118
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP2SpellTrap
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   3
      InitialParent   =   ""
      Left            =   722
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   35
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   118
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP2SpellTrap
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   2
      InitialParent   =   ""
      Left            =   617
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   36
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   118
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP2SpellTrap
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   0
      InitialParent   =   ""
      Left            =   408
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   37
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   118
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP2SpellTrap
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   1
      InitialParent   =   ""
      Left            =   513
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   38
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   118
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP2ExtraDeck
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   931
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   40
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   118
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   72
   End
   Begin Canvas imgP2Monster
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   4
      InitialParent   =   ""
      Left            =   827
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   41
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   223
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP2Field
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   931
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   42
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   223
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   72
   End
   Begin Canvas imgP2Monster
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   3
      InitialParent   =   ""
      Left            =   722
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   43
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   223
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP2Monster
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   2
      InitialParent   =   ""
      Left            =   617
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   44
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   223
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP2Monster
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   1
      InitialParent   =   ""
      Left            =   513
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   45
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   223
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP2Monster
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   0
      InitialParent   =   ""
      Left            =   408
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   46
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   223
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP2GraveYard
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   332
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   47
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   223
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   72
   End
   Begin Canvas imgP1Banished
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   931
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   48
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   329
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   72
   End
   Begin Canvas imgP2Banished
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   332
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   49
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   328
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   72
   End
   Begin Canvas imgPhase
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   True
      Enabled         =   True
      EraseBackground =   False
      Height          =   192
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   411
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   50
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   288
      Transparent     =   True
      UseFocusRing    =   False
      Visible         =   True
      Width           =   512
   End
   Begin Canvas imgP1Field
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   332
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   51
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   434
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   72
   End
   Begin Canvas imgP1Monster
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   0
      InitialParent   =   ""
      Left            =   408
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   52
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   434
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP1Monster
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   1
      InitialParent   =   ""
      Left            =   513
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   53
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   434
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP1Monster
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   2
      InitialParent   =   ""
      Left            =   617
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   54
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   434
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP1Monster
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   3
      InitialParent   =   ""
      Left            =   722
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   55
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   434
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP1Monster
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   4
      InitialParent   =   ""
      Left            =   827
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   56
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   434
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP1GraveYard
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   931
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   57
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   434
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   72
   End
   Begin Canvas imgP1ExtraDeck
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   332
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   58
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   539
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   72
   End
   Begin Canvas imgP1SpellTrap
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   4
      InitialParent   =   ""
      Left            =   408
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   59
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   539
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP1SpellTrap
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   3
      InitialParent   =   ""
      Left            =   513
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   60
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   539
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP1SpellTrap
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   2
      InitialParent   =   ""
      Left            =   616
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   61
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   539
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP1SpellTrap
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   1
      InitialParent   =   ""
      Left            =   721
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   62
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   539
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP1SpellTrap
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   0
      InitialParent   =   ""
      Left            =   827
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   63
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   539
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   100
   End
   Begin Canvas imgP1Deck
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   931
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   64
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   539
      Transparent     =   False
      UseFocusRing    =   False
      Visible         =   False
      Width           =   72
   End
   Begin Placard Placard1
      AutoDeactivate  =   True
      Enabled         =   True
      Height          =   734
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   1029
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   0
      TabIndex        =   69
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   15
      Value           =   False
      Visible         =   True
      Width           =   471
      Begin PushButton cmdSwitchSummon
         AutoDeactivate  =   True
         Bold            =   False
         ButtonStyle     =   "0"
         Cancel          =   False
         Caption         =   "Switch Summon"
         Default         =   False
         Enabled         =   True
         Height          =   20
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "Placard1"
         Italic          =   False
         Left            =   1049
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   0
         TabIndex        =   0
         TabPanelIndex   =   0
         TabStop         =   True
         TextFont        =   "System"
         TextSize        =   0.0
         TextUnit        =   0
         Top             =   99
         Underline       =   False
         Visible         =   True
         Width           =   113
      End
      Begin PushButton cmdQuit
         AutoDeactivate  =   True
         Bold            =   False
         ButtonStyle     =   "0"
         Cancel          =   False
         Caption         =   "Quit"
         Default         =   False
         Enabled         =   True
         Height          =   20
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "Placard1"
         Italic          =   False
         Left            =   1049
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   2
         TabIndex        =   1
         TabPanelIndex   =   0
         TabStop         =   True
         TextFont        =   "System"
         TextSize        =   0.0
         TextUnit        =   0
         Top             =   709
         Underline       =   False
         Visible         =   True
         Width           =   80
      End
      Begin PushButton cmdDrawCard
         AutoDeactivate  =   True
         Bold            =   False
         ButtonStyle     =   "0"
         Cancel          =   False
         Caption         =   "Draw Card"
         Default         =   False
         Enabled         =   True
         Height          =   20
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "Placard1"
         Italic          =   False
         Left            =   1049
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   2
         TabIndex        =   2
         TabPanelIndex   =   0
         TabStop         =   True
         TextFont        =   "System"
         TextSize        =   0.0
         TextUnit        =   0
         Top             =   67
         Underline       =   False
         Visible         =   True
         Width           =   80
      End
      Begin PushButton cmdMove
         AutoDeactivate  =   True
         Bold            =   False
         ButtonStyle     =   "0"
         Cancel          =   False
         Caption         =   "Move Test"
         Default         =   False
         Enabled         =   True
         Height          =   20
         HelpTag         =   ""
         Index           =   -2147483648
         InitialParent   =   "Placard1"
         Italic          =   False
         Left            =   1049
         LockBottom      =   False
         LockedInPosition=   False
         LockLeft        =   True
         LockRight       =   False
         LockTop         =   True
         Scope           =   2
         TabIndex        =   3
         TabPanelIndex   =   0
         TabStop         =   True
         TextFont        =   "System"
         TextSize        =   0.0
         TextUnit        =   0
         Top             =   35
         Underline       =   False
         Visible         =   True
         Width           =   80
      End
   End
   Begin Canvas imgP2Deck
      AcceptFocus     =   False
      AcceptTabs      =   False
      AutoDeactivate  =   True
      Backdrop        =   0
      DoubleBuffer    =   False
      Enabled         =   True
      EraseBackground =   False
      Height          =   100
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   332
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   False
      LockTop         =   True
      Scope           =   2
      TabIndex        =   39
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   118
      Transparent     =   True
      UseFocusRing    =   False
      Visible         =   False
      Width           =   72
   End
End
#tag EndWindow

#tag WindowCode
	#tag Event
		Function MouseDown(X As Integer, Y As Integer) As Boolean
		  Me.MouseCursor = curNormalClick
		  
		  Return True
		End Function
	#tag EndEvent

	#tag Event
		Sub MouseMove(X As Integer, Y As Integer)
		  Me.MouseCursor = curNormal
		End Sub
	#tag EndEvent

	#tag Event
		Sub MouseUp(X As Integer, Y As Integer)
		  Me.MouseCursor = curNormal
		End Sub
	#tag EndEvent

	#tag Event
		Sub Open()
		  
		  
		  me.MouseCursor = curNormal
		  
		  
		  
		  strCurrentPhase = "Start Duel"
		  
		  tmpBG = GetPicture("JPEG", "Backgrounds", "Pic", 5)
		  frmDuel.Invalidate(False)
		  
		  PreparePhaseImages
		  
		  
		  BuildField
		End Sub
	#tag EndEvent

	#tag Event
		Sub Paint(g As Graphics, areas() As REALbasic.Rect)
		  g.DrawPicture(tmpBG,0,0)
		End Sub
	#tag EndEvent


	#tag Method, Flags = &h21
		Private Sub ActivateField(intFieldSide As Integer, intWhooseHand As Integer, intHandPosition As Integer)
		  Dim a As Integer
		  Dim tmpField As Picture = New Picture(691, 534)
		  
		  Select Case intWhooseHand
		  Case 0
		    If intFieldSide = 0 Then
		      crdPlayer0Field = crdPlayer0Hand(intHandPosition)
		      
		      For a = 0 to ABDuelArea.MyElements.Ubound
		        If ABDuelArea.MyElements(a).Card = crdPlayer0Field then
		          ABDuelArea.MyElements.Remove(a)
		        End If
		      Next
		      
		      ABDuelArea.MyElements(4).pBuffer.Graphics.DrawPicture(crdPlayer0Hand(intHandPosition).SmPic, 6, 6)
		      
		      tmpField = GetPicture("JPEG", "Backgrounds", "Pic", crdPlayer0Hand(intHandPosition).FieldId).ScaleMBS(tmpField.Width, tmpField.Height)
		      
		    Else
		      crdPlayer1Field = crdPlayer0Hand(intHandPosition)
		      
		      For a = 0 to ABDuelArea.MyElements.Ubound
		        If ABDuelArea.MyElements(a).Card = crdPlayer1Field then
		          ABDuelArea.MyElements.Remove(a)
		        End If
		      Next
		      //tmpBG = GetPicture("JPG", "Backgrounds", "Pic", crdPlayer1Hand(intHandPosition).FieldId)
		      
		    End If
		    
		    crdPlayer0Hand.Remove(intHandPosition)
		    
		  Case 1
		    //If intFieldSide = 0 Then
		    //crdPlayer0Field = crdPlayer1Hand(intHandPosition)
		    //
		    //For a = 0 to ABDuelArea.MyElements.Ubound
		    //If ABDuelArea.MyElements(a).Card = crdPlayer0Field then
		    //ABDuelArea.MyElements.Remove(a)
		    //End If
		    //Next
		    //
		    ////tmpBG = GetPicture("JPG", "Backgrounds", "Pic", crdPlayer0Hand(intHandPosition).FieldId)
		    //
		    //Else
		    //crdPlayer1Field = crdPlayer1Hand(intHandPosition)
		    //
		    //For a = 0 to ABDuelArea.MyElements.Ubound
		    //If ABDuelArea.MyElements(a).Card = crdPlayer0Field then
		    //ABDuelArea.MyElements.Remove(a)
		    //End If
		    //Next
		    //
		    ////tmpBG = GetPicture("JPG", "Backgrounds", "Pic", crdPlayer1Hand(intHandPosition).FieldId)
		    //
		    //End If
		    //
		    //crdPlayer1Hand.Remove(intHandPosition)
		    
		  End Select
		  
		  RepositionHands(intWhooseHand)
		  
		  //tmpField.Graphics.DrawPicture(GetPicture("PNG", "DuelField", "Pic", 15), 0, 0, tmpField.Width, tmpField.Height)
		  
		  
		  ABDuelArea.Background.Graphics.DrawPicture(tmpField, 64, 110, tmpField.Width, tmpField.Height)
		  ABDuelArea.Background.Graphics.DrawPicture(GetPicture("PNG", "DuelField", "Pic", 15).ScaleImageAndMaskMBS(709, 545), 53, 105, ABDuelArea.Width, ABDuelArea.Height)
		  //ABDuelArea.Background.Graphics.DrawPicture(GetPicture("PNG", "DuelField", "Pic", 15).ScaleImageAndMaskMBS(710, 568), 59, 100, ABDuelArea.Width, ABDuelArea.Height)
		  
		  //Draw Field
		  ABDuelArea.DrawMe(0, 0,  ABDuelArea.Width,  ABDuelArea.Height)
		  
		  
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub BeginDuel()
		  rs = dataDb.SQLSelect("SELECT * FROM Cards WHERE UPPER(Id) = '0'")
		  
		  tmpCardPic = JPEGStringToPictureMBS(DecodeBase64(rs.Field("PicBase")))
		  imgCard.Invalidate(False)
		  
		  lblCardName.Text = ""
		  lblArcheType.Text = ""
		  lblATK.Text = ""
		  lblAttribute.Text = ""
		  lblDEF.Text = ""
		  lblDesc.Text = ""
		  lblType.Text = ""
		  
		  intLP(0) = 4000
		  intLP(1) = 4000
		  
		  lblLPMeter(0).text = Str(intLP(0))
		  lblLPMeter(1).text = Str(intLP(1))
		  
		  
		  //Start Duel
		  
		  //Play "Start Duel" animation
		  tmrStartDuel.Mode = 2
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub BuildField()
		  Dim tmpElem As ABElement  = new ABElement(ABDuelArea)
		  
		  tmpFieldBG = New Picture(712,768)
		  
		  tmpFieldBG.Graphics.DrawPicture(tmpBG, 0, 0, tmpFieldBG.Width, tmpFieldBG.Height, 258, 0)
		  tmpFieldBG.Graphics.DrawPicture(GetPicture("PNG", "DuelField", "Pic", 15).ScaleImageAndMaskMBS(655, 545), 53, 105, tmpFieldBG.Width, tmpFieldBG.Height) //
		  
		  //Add Banished Zone Elements
		  //Player 0
		  tmpElem.Init(0, 967-258, 379, GetPicture("PNG", "DuelField", "Pic", 1), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  //Player 1
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(1, 368-258, 378, GetPicture("PNG", "DuelField", "Pic", 8), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  
		  
		  //Add Deck Zone Elements
		  //Player 0
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(2, 967-258, 589, CombinePictures(GetPicture("PNG", "DuelField", "Pic", 2), GetPicture("JPEG", "Cards", "SmPic0Yes", 0), 72, 100, 0, 0, 6, 6), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  //Player 1
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(3, 368-258, 168, CombinePictures(GetPicture("PNG", "DuelField", "Pic", 9), GetPicture("JPEG", "Cards", "SmPic0Yes", 0).Rotate180MBS, 72, 100, 0, 0, 6, 6), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  
		  
		  //Add Field Zone Elements
		  //Player 0
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(4, 368-258, 484, GetPicture("PNG", "DuelField", "Pic", 3), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  //Player 1
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(5, 967-258, 273, GetPicture("PNG", "DuelField", "Pic", 10), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  
		  
		  //Add Graveyard Elements
		  //Player 0
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(6, 967-258, 484, GetPicture("PNG", "DuelField", "Pic", 4), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  //Player 1
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(7, 368-258, 273, GetPicture("PNG", "DuelField", "Pic", 11), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  
		  
		  //Add Extra Zone Elements
		  //Player 0
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(8, 368-258, 589, GetPicture("PNG", "DuelField", "Pic", 5), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  //Player 1
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(9, 967-258, 168, GetPicture("PNG", "DuelField", "Pic", 12), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  
		  
		  //Add Spell/Trap Zone Elements
		  //Player 0
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(10, 458-258, 589, GetPicture("PNG", "DuelField", "Pic", 6), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(11, 563-258, 589, GetPicture("PNG", "DuelField", "Pic", 6), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(12, 667-258, 589, GetPicture("PNG", "DuelField", "Pic", 6), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(13, 772-258, 589, GetPicture("PNG", "DuelField", "Pic", 6), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(14, 877-258, 589, GetPicture("PNG", "DuelField", "Pic", 6), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  //Player 1
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(15, 877-258, 168, GetPicture("PNG", "DuelField", "Pic", 13), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(16, 772-258, 168, GetPicture("PNG", "DuelField", "Pic", 13), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(17, 667-258, 168, GetPicture("PNG", "DuelField", "Pic", 13), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(18, 563-258, 168, GetPicture("PNG", "DuelField", "Pic", 13), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(19, 458-258, 168, GetPicture("PNG", "DuelField", "Pic", 13), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  
		  
		  //Add Monster Zone Elements
		  //Player 0
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(20, 458-258, 484, GetPicture("PNG", "DuelField", "Pic", 7), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(21, 563-258, 484, GetPicture("PNG", "DuelField", "Pic", 7), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(22, 667-258, 484, GetPicture("PNG", "DuelField", "Pic", 7), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(23, 772-258, 484, GetPicture("PNG", "DuelField", "Pic", 7), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(23, 877-258, 484, GetPicture("PNG", "DuelField", "Pic", 7), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  //Player 1
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(24, 877-258, 273, GetPicture("PNG", "DuelField", "Pic", 14), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(25, 772-258, 273, GetPicture("PNG", "DuelField", "Pic", 14), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(26, 667-258, 273, GetPicture("PNG", "DuelField", "Pic", 14), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(27, 563-258, 273, GetPicture("PNG", "DuelField", "Pic", 14), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(28, 458-258, 273, GetPicture("PNG", "DuelField", "Pic", 14), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  
		  //Add Starting Player Phase Markers
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(30, 290-258, 165, tmpPhaseDraw(intWhoGoesFirst), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(31, 290-258, 248, tmpPhaseStandby(intWhoGoesFirst), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(32, 290-258, 331, tmpPhaseMain1(intWhoGoesFirst), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(33, 290-258, 414, tmpPhaseBattle(intWhoGoesFirst), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(34, 290-258, 497, tmpPhaseMain2(intWhoGoesFirst), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  tmpElem = New ABElement(ABDuelArea)
		  tmpElem.Init(35, 290-258, 580, tmpPhaseEnd(intWhoGoesFirst), True, False)
		  ABDuelArea.AddElement(tmpElem)
		  
		  
		  
		  
		  //Initialize ABCanvas
		  ABDuelArea.Init(tmpFieldBG)
		  
		  //Draw Field
		  ABDuelArea.DrawMe(0, 0,  ABDuelArea.Width,  ABDuelArea.Height)
		  
		  BeginDuel
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub ChangeLP(intPlayer As Integer, intPoints As Integer)
		  intLP(intPlayer) = intLP(intPlayer) + intPoints
		  lblLPMeter(intPlayer).Text = Str(intLP(intPlayer))
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub DrawCard(intPlayer As Integer, intDrawCard As Integer)
		  Dim tmpElem As ABElement  = new ABElement(ABDuelArea)
		  Dim i As Integer
		  
		  
		  
		  Select Case intPlayer
		    
		  Case 0
		    //Add a Card to Player 0's Hand.
		    crdPlayer0Hand.Append(crdPlayer0Deck.Pop)
		    i = crdPlayer0Hand.Ubound
		    //tmpElem.Card = crdPlayer0Hand(crdPlayer0Hand.Ubound)
		    
		    //For b = 0 to crdPlayer0Hand.Ubound
		    
		    
		    
		    crdPlayer0Hand(i).ElementID = i + 100
		    tmpElem = New ABElement(ABDuelArea)
		    
		    tmpElem.Init(crdPlayer0Hand(i).ElementID, 137 + (75*i) , 729, crdPlayer0Hand(i).Pic(0).ScaleMBS(100,146), True, True)
		    
		    tmpElem.Card = crdPlayer0Hand(i)
		    tmpElem.HandID = i
		    
		    
		    
		    //Next b
		    
		    //tmpHandPic = crdPlayer0Hand(crdPlayer0Hand.Ubound).Pic(0).ScaleMBS(100,146)
		    //Select Case crdPlayer0Hand.Ubound
		    //Case 0
		    //tmpElem.Init(100, 395-258, 729 , tmpHandPic, True, True)
		    //crdPlayer0Hand(0).ElementID = 100
		    //tmpElem.HandID = 0
		    //tmpElem.Card = crdPlayer0Hand(0)
		    //Case 1
		    //tmpElem.Init(101, 473-258, 729, tmpHandPic, True, True)
		    //crdPlayer0Hand(1).ElementID = 101
		    //tmpElem.HandID = 1
		    //tmpElem.Card = crdPlayer0Hand(1)
		    //Case 2
		    //tmpElem.Init(102, 551-258, 729, tmpHandPic, True, True)
		    //crdPlayer0Hand(2).ElementID = 102
		    //tmpElem.HandID = 2
		    //tmpElem.Card = crdPlayer0Hand(2)
		    //Case 3
		    //tmpElem.Init(103, 629-258, 729, tmpHandPic, True, True)
		    //crdPlayer0Hand(3).ElementID = 103
		    //tmpElem.HandID = 3
		    //tmpElem.Card = crdPlayer0Hand(3)
		    //Case 4
		    //tmpElem.Init(104, 707-258, 729, tmpHandPic, True, True)
		    //crdPlayer0Hand(4).ElementID = 104
		    //tmpElem.HandID = 4
		    //tmpElem.Card = crdPlayer0Hand(4)
		    //Case 5
		    //tmpElem.Init(105, 785-258, 729, tmpHandPic, True, True)
		    //crdPlayer0Hand(5).ElementID = 105
		    //tmpElem.HandID = 5
		    //tmpElem.Card = crdPlayer0Hand(5)
		    //Case 6
		    //tmpElem.Init(106, 863-258, 729, tmpHandPic, True, True)
		    //crdPlayer0Hand(6).ElementID = 106
		    //tmpElem.HandID = 6
		    //tmpElem.Card = crdPlayer0Hand(6)
		    //Case 7
		    //tmpElem.Init(107, 941-258, 729, tmpHandPic, True, True)
		    //crdPlayer0Hand(7).ElementID = 107
		    //tmpElem.HandID = 7
		    //tmpElem.Card = crdPlayer0Hand(7)
		    //Case 8
		    //tmpElem.Init(108, 1019-258, 729, tmpHandPic, True, True)
		    //crdPlayer0Hand(8).ElementID = 108
		    //tmpElem.HandID = 8
		    //tmpElem.Card = crdPlayer0Hand(8)
		    //End Select
		    
		  Case 1
		    
		    //Add a Card to Player 1's Hand.
		    crdPlayer1Hand.Append(crdPlayer1Deck.Pop)
		    tmpElem.Card = crdPlayer1Hand(crdPlayer1Hand.Ubound)
		    
		    tmpHandPic = crdPlayer1Hand(crdPlayer1Hand.Ubound).Pic(0).ScaleMBS(100,146).Rotate180MBS
		    Select Case crdPlayer1Hand.Ubound
		      
		    Case 0
		      tmpElem.Init(200, 941-258, 27, tmpHandPic, True, True)
		      crdPlayer1Hand(0).ElementID = 200
		    Case 1
		      tmpElem.Init(201, 863-258, 27, tmpHandPic, True, True)
		      crdPlayer1Hand(1).ElementID = 201
		    Case 2
		      tmpElem.Init(202, 785-258, 27, tmpHandPic, True, True)
		      crdPlayer1Hand(2).ElementID = 202
		    Case 3
		      tmpElem.Init(203, 707-258, 27, tmpHandPic, True, True)
		      crdPlayer1Hand(3).ElementID = 203
		    Case 4
		      tmpElem.Init(204, 629-258, 27, tmpHandPic, True, True)    
		      crdPlayer1Hand(4).ElementID = 204
		    Case 5
		      tmpElem.Init(205, 551-258, 27, tmpHandPic, True, True)    
		      crdPlayer1Hand(5).ElementID = 205
		    Case 6
		      tmpElem.Init(206, 473-258, 27, tmpHandPic, True, True)    
		      crdPlayer1Hand(6).ElementID = 206
		    Case 7
		      tmpElem.Init(207, 395-258, 27, tmpHandPic, True, True)    
		      crdPlayer1Hand(7).ElementID = 207
		    Case 8
		      tmpElem.Init(208, 317-258, 27, tmpHandPic, True, True)    
		      crdPlayer1Hand(7).ElementID = 208
		    End Select
		    
		  End Select
		  
		  tmpElem.IsPopulated = True
		  ABDuelArea.AddElement(tmpElem)
		  
		  If i > 7 then RepositionHands(intPlayer)
		  
		  ABDuelArea.DrawMe(0, 0,  ABDuelArea.Width,  ABDuelArea.Height)
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub DrawPhase(intPlayer As Integer)
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub EnableMainPhase1()
		  strCurrentPhase = "MP1"
		  
		  blnEnableNormalSummon = True
		  blnAllowActions = True
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub EnableMainPhase2()
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub LoadType(tmpID as Integer, tmpType as String, tmpPic as Picture, tmpElem as ABElement, InnerX as integer, InnerY as integer)
		  //Dim f as FolderItem
		  //Dim all as FolderItem
		  //Dim tmpElem as ABElement
		  //Dim tmpPic as Picture
		  //Dim tmpPicMask as Picture
		  //Dim tmpPicGlow as Picture
		  
		  ' for our menu buttons
		  //Dim Menuf as FolderItem
		  
		  //Dim a as integer
		  //Dim counter as integer
		  
		  ' preload the mask and glow
		  //f= GetFolderItem(Folder + "Mask.png")
		  //tmpPicMask = f.OpenAsPicture
		  //f= GetFolderItem(Folder + "Glow.png")
		  //tmpPicGlow = f.OpenAsPicture
		  
		  //f= GetFolderItem(Folder).Child("Mask.png")
		  //tmpPicMask = f.OpenAsPicture
		  //f= GetFolderItem(Folder).Child("Glow.png")
		  //tmpPicGlow = f.OpenAsPicture
		  
		  //all = GetFolderItem(Folder)
		  //if all <> nil then
		  //for a = 1 to all.Count
		  //f = all.item(a)
		  //select case f.Name
		  //case "Mask.png", "Glow.png", "."
		  //' ignore these
		  //case else
		  //' a cover, so load it
		  //tmpPic = f.OpenAsPicture
		  //tmpElem = new ABElement(ABCanvas1)
		  tmpElem.Init(tmpID, InnerX, InnerY, tmpPic, True, True)
		  
		  ' and add the menu items
		  ' load our play button for our menu
		  //select case tmpType
		  //case "Spell","Trap" ' a comic has only a play button
		  //Menuf = GetFolderItem("PlayButton.png")
		  //tmpElem.AddMenuButton(1, menuf.OpenAsPicture)
		  //case "Normal", "Effect" ' a CD and DVD has a play and stop button
		  //Menuf = GetFolderItem("PlayButton.png")
		  //tmpElem.AddMenuButton(1, menuf.OpenAsPicture)
		  //Menuf = GetFolderItem("StopButton.png")
		  //tmpElem.AddMenuButton(2, menuf.OpenAsPicture)
		  //end select
		  //
		  //
		  //
		  //ABDuelArea.AddElement(tmpElem)
		  //Counter = counter + 1
		  //end select
		  //next
		  //end if
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub Populate(crdCard As Card)
		  tmpCardPic = crdCard.Pic(0)
		  imgCard.Invalidate(False)
		  
		  lblCardName.Text = crdCard.Name
		  lblArcheType.Text = crdCard.Archetype
		  lblType.Text = crdCard.Type
		  lblAttribute.Text = crdCard.Attribute
		  
		  //Check if card is a Monster
		  If crdCard.Attribute <> "Spell" and crdCard.Attribute <> "Trap" Then 
		    lblATK.Text = "ATK/ " + crdCard.ATK
		    lblDEF.Text = "DEF/ " + crdCard.DEF
		  Else
		    lblATK.Text = ""
		    lblDEF.Text = ""
		  End If
		  
		  //Check if Monster is Normal
		  If crdCard.Frame = "Normal" Then
		    lblDesc.Italic = True
		  Else
		    lblDesc.Italic = False
		  End
		  
		  lblDesc.Text = EndOfLine + crdCard.Desc
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub PrepareDecks()
		  //Shuffle Decks
		  strDeck0.Shuffle
		  strDeck1.Shuffle
		  
		  //Add Card data to each player's deck
		  Dim a As Integer
		  Dim b(-1) As String
		  
		  Dim u As Integer = strDeck0.Ubound
		  For a = 0 to u
		    b = Split(strDeck0.pop, "-")
		    crdPlayer0Deck.Append(GetCard(Val(b(0)), b(1)))
		  Next a
		  
		  u = strDeck1.Ubound
		  For a = 0 to u
		    b = Split(strDeck1.pop, "-")
		    crdPlayer1Deck.Append(GetCard(Val(b(0)), b(1)))
		  Next a
		  
		  
		  //Draw each Player's inital hand
		  intStage = 0
		  intCurrentPlayer = intWhoGoesFirst
		  //intPlayer = intWhoGoesFirst
		  
		  intDrawNumber = 5
		  tmrDrawInitialHand.Mode = 2
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub PreparePhaseImages()
		  Dim a As Integer
		  
		  For a = 0 to imgStartDuel.Ubound
		    imgStartDuel(a) = GetPicture("PNG", "Animation", "Pic" + Str(a), 1)
		  Next a
		  
		  tmpPhaseDraw(0) = GetPicture("PNG", "Buttons", "Regular", 6)
		  tmpPhaseStandby(0) = GetPicture("PNG", "Buttons", "Regular", 7)
		  tmpPhaseMain1(0) = GetPicture("PNG", "Buttons", "Regular", 8)
		  tmpPhaseBattle(0) = GetPicture("PNG", "Buttons", "Regular", 9)
		  tmpPhaseMain2(0) = GetPicture("PNG", "Buttons", "Regular", 10)
		  tmpPhaseEnd(0) = GetPicture("PNG", "Buttons", "Regular", 11)
		  
		  tmpPhaseDraw(1) = GetPicture("PNG", "Buttons", "Regular", 12)
		  tmpPhaseStandby(1) = GetPicture("PNG", "Buttons", "Regular", 13)
		  tmpPhaseMain1(1) = GetPicture("PNG", "Buttons", "Regular", 14)
		  tmpPhaseBattle(1) = GetPicture("PNG", "Buttons", "Regular", 15)
		  tmpPhaseMain2(1) = GetPicture("PNG", "Buttons", "Regular", 16)
		  tmpPhaseEnd(1) = GetPicture("PNG", "Buttons", "Regular", 17)
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub RepositionHands(iPlayer As Integer)
		  Dim a As Integer
		  Dim b As Integer
		  Dim tmpElem As ABElement
		  Dim c As Integer
		  
		  If crdPlayer0Hand.Ubound <= 7 then
		    c = 75
		  ElseIf crdPlayer0Hand.Ubound > 7 And crdPlayer0Hand.Ubound <=11 Then
		    c = 50
		  ElseIf crdPlayer0Hand.Ubound >11 Then
		    c = 30
		  End If
		  
		  Select Case iPlayer
		  Case 0
		    
		    For a = 0 to ABDuelArea.MyElements.Ubound
		      
		      If ABDuelArea.MyElements(a).ID >= 100 And ABDuelArea.MyElements(a).ID < 200 Then 
		        
		        ABDuelArea.MyElements.Remove(a)
		        a = a - 1
		        
		      End If
		      
		    Next a
		    
		    For b = 0 to crdPlayer0Hand.Ubound
		      
		      crdPlayer0Hand(b).ElementID = b + 100
		      tmpElem = New ABElement(ABDuelArea)
		      tmpElem.Init(crdPlayer0Hand(b).ElementID, 137 + (c*b) , 729, crdPlayer0Hand(b).Pic(0).ScaleMBS(100,146), True, True)
		      tmpElem.Card = crdPlayer0Hand(b)
		      tmpElem.HandID = b
		      tmpElem.IsPopulated = True
		      ABDuelArea.AddElement(tmpElem)
		      
		    Next b
		    
		    
		  Case 1
		    
		    
		  End Select
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub ShuffleDeck(intPlayer As Integer)
		  If intPlayer = 0 then
		    crdPlayer0Deck.Shuffle
		  Else
		    crdPlayer1Deck.Shuffle
		  End If
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub SummonMonster(intFieldSide As Integer, intWhooseHand As Integer, intHandPosition As Integer)
		  Dim i As Integer
		  Dim a As Integer
		  
		  For i = 0 to 4
		    
		    If crdPlayer0MonsterZone(i) = Nil Then
		      crdPlayer0MonsterZone(i) = crdPlayer0Hand(intHandPosition)
		      crdPlayer0Hand.Remove(intHandPosition)
		      
		      
		      For a = 0 to ABDuelArea.MyElements.Ubound
		        If ABDuelArea.MyElements(a).Card = crdPlayer0MonsterZone(i) then
		          ABDuelArea.MyElements.Remove(a)
		        End If
		      Next
		      
		      ABDuelArea.MyElements(i+20).Card = crdPlayer0MonsterZone(i)
		      ABDuelArea.MyElements(i+20).pBuffer.Graphics.DrawPicture(crdPlayer0MonsterZone(i).SmPic.ScaleMBS(50, 72),25 , 6)
		      ABDuelArea.MyElements(i+20).IsPopulated = True
		      
		      RepositionHands(intWhooseHand)
		      
		      ABDuelArea.DrawMe(0, 0, 766, 768)
		      
		      blnEnableNormalSummon = False
		      
		      intPlayer0MonsterZoneOccupation = intPlayer0MonsterZoneOccupation + 1
		      
		      
		      
		      Return
		      
		      
		      
		    End If
		    
		  Next i
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub TributeSummonMonster(intFieldSide As Integer, intWhooseHand As Integer, intHandPosition As Integer, intTributedMonster As String)
		  
		End Sub
	#tag EndMethod


	#tag Property, Flags = &h21
		Private blnAllowActions As Boolean = False
	#tag EndProperty

	#tag Property, Flags = &h21
		Private blnContexualClick As Boolean
	#tag EndProperty

	#tag Property, Flags = &h21
		Private blnEnableNormalSummon As Boolean
	#tag EndProperty

	#tag Property, Flags = &h21
		Private blnSet As Boolean
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer0Banished(-1) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer0Deck(-1) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer0ExtraDeck(-1) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer0Field As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer0Graveyard(-1) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer0Hand(-1) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer0MonsterZone(4) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer0STZone(4) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer1Banished(-1) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer1Deck(-1) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer1ExtraDeck(-1) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer1Field As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer1Graveyard(-1) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private crdPlayer1Hand(-1) As Card
	#tag EndProperty

	#tag Property, Flags = &h21
		Private imgStartDuel(11) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private intAllPlayersDealt As Integer = 0
	#tag EndProperty

	#tag Property, Flags = &h21
		Private intCurrentPlayer As Integer
	#tag EndProperty

	#tag Property, Flags = &h21
		Private intDrawNumber As Integer
	#tag EndProperty

	#tag Property, Flags = &h21
		Private intLP(1) As Integer
	#tag EndProperty

	#tag Property, Flags = &h21
		Private intPlayer As Integer
	#tag EndProperty

	#tag Property, Flags = &h21
		Private intPlayer0MonsterZoneOccupation As Integer = 0
	#tag EndProperty

	#tag Property, Flags = &h21
		Private intStage As Integer = 0
	#tag EndProperty

	#tag Property, Flags = &h21
		Private intStartingPlayer As Integer
	#tag EndProperty

	#tag Property, Flags = &h21
		Private LastElem As ABElement = Nil
	#tag EndProperty

	#tag Property, Flags = &h21
		Private rs As RecordSet
	#tag EndProperty

	#tag Property, Flags = &h21
		Private strCurrentPhase As String
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpBG As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpCardPic As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpFieldBG As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpHandPic As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhase As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseBattle(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseBattleSelected(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseDraw(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseDrawSelected(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseEnd(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseEndSelected(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseMain1(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseMain1Selected(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseMain2(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseMain2Selected(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseStandby(1) As Picture
	#tag EndProperty

	#tag Property, Flags = &h21
		Private tmpPhaseStandbySelected(1) As Picture
	#tag EndProperty


#tag EndWindowCode

#tag Events ABDuelArea
	#tag Event
		Sub MouseMove(X as integer, Y as integer)
		  dim elem as ABElement
		  elem = Me.ElementHit(X,Y)
		  Me.MouseCursor = curNormal
		  
		  if elem = nil then
		    LastElem = nil
		    blnSet = False
		    tmrCardDetails.Mode = 0
		    //me.MouseCursor = curNormal
		    
		  elseif lastelem = nil then
		    LastElem = elem
		    If elem.IsPopulated = True then
		      tmrCardDetails.Mode = 2
		      //me.MouseCursor = curNormal
		    Else
		      //me.MouseCursor = curNormal
		    End If
		  elseif elem <> lastelem then
		    LastElem = elem
		    blnSet = False
		    If elem.IsPopulated = True then
		      //tmrCardDetails.enabled = false
		      tmrCardDetails.Mode = 2
		      //me.MouseCursor = curNormal
		    Else
		      //me.MouseCursor = curNormal
		    End If
		  End if
		  
		  
		  If strCurrentPhase = "MP1" or strCurrentPhase = "MP2" Then
		    If elem <> Nil and elem.ID >= 100 Then
		      Select Case intCurrentPlayer
		      Case 0
		        If elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID < 200 and Not blnSet And intPlayer0MonsterZoneOccupation < 5 then 
		          me.MouseCursor = curSummon
		        ElseIf elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID < 200 And intPlayer0MonsterZoneOccupation < 5Then
		          me.MouseCursor = curSet
		        ElseIf elem.Card.Icon = "Field" then
		          me.MouseCursor = curActivate
		        End If
		        
		        
		        
		      Case 1
		        If elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID >= 200 then me.MouseCursor = curSummon
		        
		        
		        
		      End Select
		      
		    Else
		    End If
		  End If
		End Sub
	#tag EndEvent
	#tag Event
		Sub MouseExit()
		  LastElem = Nil
		  Me.MouseCursor = curNormal
		End Sub
	#tag EndEvent
	#tag Event
		Function MouseDown(x as integer, y as integer) As boolean
		  dim elem as ABElement
		  elem = Me.ElementHit(X,Y)
		  Me.MouseCursor = curNormalClick
		  
		  
		  If IsContextualClick Then 
		    blnContexualClick = True
		  Else 
		    blnContexualClick = False
		  End If
		  
		  
		  If strCurrentPhase = "MP1" or strCurrentPhase = "MP2" Then
		    If elem <> Nil and elem.ID >= 100 Then
		      Select Case intCurrentPlayer
		      Case 0
		        If elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID < 200 and Not blnSet And intPlayer0MonsterZoneOccupation < 5 then 
		          me.MouseCursor = curSummonClick
		          
		          Return True
		          
		        ElseIf elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID < 200 And intPlayer0MonsterZoneOccupation < 5 Then
		          me.MouseCursor = curSetClick
		          
		        ElseIf elem.Card.Icon = "Field" Then
		          me.MouseCursor = curActivateClick
		          
		        Else
		          Me.MouseCursor = curNormalClick
		        End If
		        
		        
		        
		      Case 1
		        If elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID >= 200 and Not blnSet then 
		          me.MouseCursor = curSummonClick
		        ElseIf elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID >= 200 Then
		          me.MouseCursor = curSetClick
		        Else
		          Me.MouseCursor = curNormalClick
		        End If
		        
		        
		        
		      End Select
		    Else
		      Me.MouseCursor = curNormalClick
		    End If
		  Else
		  End If
		  
		  
		  Return True
		End Function
	#tag EndEvent
	#tag Event
		Sub MouseUp(X as integer, Y as integer)
		  dim elem as ABElement
		  elem = Me.ElementHit(X,Y)
		  Me.MouseCursor = curNormal
		  
		  
		  If strCurrentPhase = "MP1" or strCurrentPhase = "MP2" Then
		    If elem <> Nil and elem.ID >= 100 Then
		      If blnContexualClick Then
		        Select Case intCurrentPlayer
		        Case 0
		          
		          If elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID < 200 and not blnSet And intPlayer0MonsterZoneOccupation < 5 then 
		            me.MouseCursor = curSet
		            blnSet = True
		          ElseIf elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID < 200 and blnSet And intPlayer0MonsterZoneOccupation < 5 Then
		            me.MouseCursor = curSummon
		            blnSet = False
		            
		          Else
		            Me.MouseCursor = curNormal
		          End If
		          
		          
		          
		        Case 1
		          If elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID >= 200 And Not blnSet then 
		            me.MouseCursor = curSet
		            blnSet = True
		          ElseIf elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID >= 200 And Not blnSet Then
		            me.MouseCursor = curSummon
		            blnSet = False
		          Else
		            Me.MouseCursor = curNormal
		          End If
		          
		          
		        End Select
		      Else
		        If elem <> Nil and elem.ID >= 100 Then
		          Select Case intCurrentPlayer
		          Case 0
		            If elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID < 200 and Not blnSet And intPlayer0MonsterZoneOccupation < 5 then 
		              me.MouseCursor = curSummon
		              
		              SummonMonster(0, 0, elem.HandID)
		              
		            ElseIf elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID < 200 And intPlayer0MonsterZoneOccupation < 5 Then
		              me.MouseCursor = curSet
		              
		            ElseIf elem.Card.Icon = "Field" Then
		              ActivateField(0, 0, elem.HandID)
		              
		            End If
		            
		            
		            
		          Case 1
		            If elem.Card.Level < 5 and elem.Card.Level > 0 and blnEnableNormalSummon and elem.ID >= 200 then me.MouseCursor = curSummon
		            
		            
		            
		          End Select
		        Else
		          Me.MouseCursor = curNormal
		        End If
		      End If
		    Else
		      Me.MouseCursor = curNormal
		    End If
		  Else
		  End If
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events imgCard
	#tag Event
		Sub Paint(g As Graphics, areas() As REALbasic.Rect)
		  g.DrawPicture(tmpCardPic,0,0)
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events tmrStartDuel
	#tag Event
		Sub Action()
		  If intStage <> imgStartDuel.Ubound then 
		    
		    #If TargetWin32 Then
		      tmpPhase = CombinePictures(tmpBG, imgStartDuel(intStage), imgPhase.Width, imgPhase.Height, imgPhase.Left, imgPhase.Top, 0, 0)
		    #Else
		      tmpPhase = imgStartDuel(intStage)
		    #Endif
		    
		    imgPhase.Invalidate(False)
		    
		    intStage = intStage + 1
		    
		  Else
		    //Stop Timer
		    tmrStartDuel.Enabled = False
		    //Clear tmpPhase
		    tmpPhase = Nil
		    //Clear imgStartDuel
		    imgStartDuel = Nil
		    //Set intStage to 0
		    intStage = 0
		    
		    #If TargetWin32 Then tmpPhase = CombinePictures(tmpBG, tmpPhase, imgPhase.Width, imgPhase.Height, imgPhase.Left, imgPhase.Top, 0, 0)
		    
		    imgPhase.Invalidate(False)
		    
		    PrepareDecks
		  End If
		  
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events tmrCardDetails
	#tag Event
		Sub Action()
		  Me.Mode = 0
		  If LastElem <> Nil then
		    Populate(LastElem.Card)
		  End
		  
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events tmrDraw
	#tag Event
		Sub Action()
		  If intDrawNumber <> 0 then
		    
		    DrawCard(intPlayer, 1)
		    intDrawNumber = intDrawNumber - 1
		    
		  Else
		    Me.Mode = 0
		    
		  End If
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events tmrDrawInitialHand
	#tag Event
		Sub Action()
		  If intAllPlayersDealt <> 2 Then
		    
		    If intDrawNumber <> 0 then
		      
		      DrawCard(intCurrentPlayer, 1)
		      intDrawNumber = intDrawNumber - 1
		    End If
		    
		    If intCurrentPlayer = 0 And intDrawNumber = 0 then
		      intCurrentPlayer = 1
		      intDrawNumber = 5
		      intAllPlayersDealt = intAllPlayersDealt + 1
		    ElseIf intDrawNumber = 0 Then
		      intCurrentPlayer = 0
		      intDrawNumber = 3
		      intAllPlayersDealt = intAllPlayersDealt + 1
		    End If
		    
		  Else
		    tmrDrawInitialHand.Mode = 0
		    ABDuelArea.Enabled = True
		    tmrDrawPhase.Mode = 1
		  End If
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events tmrDrawPhase
	#tag Event
		Sub Action()
		  strCurrentPhase = "Draw"
		  
		  Me.Enabled = False
		  DrawCard(intCurrentPlayer, 1)
		  tmrStandbyPhase.Mode = 1
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events tmrShuffleDecks
	#tag Event
		Sub Action()
		  Me.Enabled = False
		  
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events tmrStandbyPhase
	#tag Event
		Sub Action()
		  strCurrentPhase = "Standby"
		  Me.Enabled = False
		  EnableMainPhase1
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events tmrMainPhase1
	#tag Event
		Sub Action()
		  Me.Enabled = False
		  EnableMainPhase1
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events tmrMainPhase2
	#tag Event
		Sub Action()
		  Me.Enabled = False
		  EnableMainPhase2
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events tmrBattlePhase
	#tag Event
		Sub Action()
		  
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events imgPhase
	#tag Event
		Sub Paint(g As Graphics, areas() As REALbasic.Rect)
		  g.DrawPicture(tmpPhase,0,0)
		End Sub
	#tag EndEvent
	#tag Event
		Sub Open()
		  #If TargetWin32 Then
		    me.DoubleBuffer = True
		  #EndIf
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events cmdSwitchSummon
	#tag Event
		Sub Action()
		  If blnEnableNormalSummon Then
		    blnEnableNormalSummon = False
		  Else
		    blnEnableNormalSummon = True
		  End If
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events cmdQuit
	#tag Event
		Sub Action()
		  Quit
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events cmdDrawCard
	#tag Event
		Sub Action()
		  //intDrawNumber = 1
		  DrawCard(0, 1)
		End Sub
	#tag EndEvent
#tag EndEvents
#tag Events cmdMove
	#tag Event
		Sub Action()
		  Dim a As Integer
		  
		  For a = 0 to ABDuelArea.MyElements.Ubound
		    If ABDuelArea.MyElements(a).ID = 102 then
		      ABDuelArea.MyElements(a).y = 400
		      ABDuelArea.MyElements(a).x = 400
		      ABDuelArea.DrawMe(0, 0, 766, 768)
		    End If
		  Next
		  
		  
		End Sub
	#tag EndEvent
#tag EndEvents
#tag ViewBehavior
	#tag ViewProperty
		Name="BackColor"
		Visible=true
		Group="Appearance"
		InitialValue="&hFFFFFF"
		Type="Color"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Backdrop"
		Visible=true
		Group="Appearance"
		Type="Picture"
		EditorType="Picture"
	#tag EndViewProperty
	#tag ViewProperty
		Name="CloseButton"
		Visible=true
		Group="Appearance"
		InitialValue="True"
		Type="Boolean"
		EditorType="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Composite"
		Visible=true
		Group="Appearance"
		InitialValue="False"
		Type="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Frame"
		Visible=true
		Group="Appearance"
		InitialValue="0"
		Type="Integer"
		EditorType="Enum"
		#tag EnumValues
			"0 - Document"
			"1 - Movable Modal"
			"2 - Modal Dialog"
			"3 - Floating Window"
			"4 - Plain Box"
			"5 - Shadowed Box"
			"6 - Rounded Window"
			"7 - Global Floating Window"
			"8 - Sheet Window"
			"9 - Metal Window"
			"11 - Modeless Dialog"
		#tag EndEnumValues
	#tag EndViewProperty
	#tag ViewProperty
		Name="FullScreen"
		Visible=true
		Group="Appearance"
		InitialValue="False"
		Type="Boolean"
		EditorType="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="FullScreenButton"
		Visible=true
		Group="Appearance"
		InitialValue="False"
		Type="Boolean"
		EditorType="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="HasBackColor"
		Visible=true
		Group="Appearance"
		InitialValue="False"
		Type="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Height"
		Visible=true
		Group="Position"
		InitialValue="400"
		Type="Integer"
	#tag EndViewProperty
	#tag ViewProperty
		Name="ImplicitInstance"
		Visible=true
		Group="Appearance"
		InitialValue="True"
		Type="Boolean"
		EditorType="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Interfaces"
		Visible=true
		Group="ID"
		Type="String"
		EditorType="String"
	#tag EndViewProperty
	#tag ViewProperty
		Name="LiveResize"
		Visible=true
		Group="Appearance"
		InitialValue="True"
		Type="Boolean"
		EditorType="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="MacProcID"
		Visible=true
		Group="Appearance"
		InitialValue="0"
		Type="Integer"
	#tag EndViewProperty
	#tag ViewProperty
		Name="MaxHeight"
		Visible=true
		Group="Position"
		InitialValue="32000"
		Type="Integer"
	#tag EndViewProperty
	#tag ViewProperty
		Name="MaximizeButton"
		Visible=true
		Group="Appearance"
		InitialValue="False"
		Type="Boolean"
		EditorType="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="MaxWidth"
		Visible=true
		Group="Position"
		InitialValue="32000"
		Type="Integer"
	#tag EndViewProperty
	#tag ViewProperty
		Name="MenuBar"
		Visible=true
		Group="Appearance"
		Type="MenuBar"
		EditorType="MenuBar"
	#tag EndViewProperty
	#tag ViewProperty
		Name="MenuBarVisible"
		Visible=true
		Group="Appearance"
		InitialValue="True"
		Type="Boolean"
		EditorType="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="MinHeight"
		Visible=true
		Group="Position"
		InitialValue="64"
		Type="Integer"
	#tag EndViewProperty
	#tag ViewProperty
		Name="MinimizeButton"
		Visible=true
		Group="Appearance"
		InitialValue="True"
		Type="Boolean"
		EditorType="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="MinWidth"
		Visible=true
		Group="Position"
		InitialValue="64"
		Type="Integer"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Name"
		Visible=true
		Group="ID"
		Type="String"
		EditorType="String"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Placement"
		Visible=true
		Group="Position"
		InitialValue="0"
		Type="Integer"
		EditorType="Enum"
		#tag EnumValues
			"0 - Default"
			"1 - Parent Window"
			"2 - Main Screen"
			"3 - Parent Window Screen"
			"4 - Stagger"
		#tag EndEnumValues
	#tag EndViewProperty
	#tag ViewProperty
		Name="Resizeable"
		Visible=true
		Group="Appearance"
		InitialValue="True"
		Type="Boolean"
		EditorType="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Super"
		Visible=true
		Group="ID"
		Type="String"
		EditorType="String"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Title"
		Visible=true
		Group="Appearance"
		InitialValue="Untitled"
		Type="String"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Visible"
		Visible=true
		Group="Appearance"
		InitialValue="True"
		Type="Boolean"
		EditorType="Boolean"
	#tag EndViewProperty
	#tag ViewProperty
		Name="Width"
		Visible=true
		Group="Position"
		InitialValue="600"
		Type="Integer"
	#tag EndViewProperty
#tag EndViewBehavior