home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Monsters_D1792239112004.psc / mduel / frmBuilder.frm < prev    next >
Text File  |  2004-09-09  |  35KB  |  1,042 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form frmBuilder 
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Deck Builder"
  7.    ClientHeight    =   6825
  8.    ClientLeft      =   45
  9.    ClientTop       =   735
  10.    ClientWidth     =   10875
  11.    Icon            =   "frmBuilder.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   455
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   725
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin MSComctlLib.ImageList imlIcons 
  21.       Left            =   2790
  22.       Top             =   0
  23.       _ExtentX        =   1005
  24.       _ExtentY        =   1005
  25.       BackColor       =   -2147483643
  26.       ImageWidth      =   16
  27.       ImageHeight     =   16
  28.       MaskColor       =   12632256
  29.       _Version        =   393216
  30.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  31.          NumListImages   =   15
  32.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  33.             Picture         =   "frmBuilder.frx":1272
  34.             Key             =   ""
  35.          EndProperty
  36.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  37.             Picture         =   "frmBuilder.frx":1356
  38.             Key             =   ""
  39.          EndProperty
  40.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  41.             Picture         =   "frmBuilder.frx":142A
  42.             Key             =   ""
  43.          EndProperty
  44.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  45.             Picture         =   "frmBuilder.frx":1503
  46.             Key             =   ""
  47.          EndProperty
  48.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  49.             Picture         =   "frmBuilder.frx":15D1
  50.             Key             =   ""
  51.          EndProperty
  52.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  53.             Picture         =   "frmBuilder.frx":16B2
  54.             Key             =   ""
  55.          EndProperty
  56.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  57.             Picture         =   "frmBuilder.frx":1794
  58.             Key             =   ""
  59.          EndProperty
  60.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  61.             Picture         =   "frmBuilder.frx":1873
  62.             Key             =   ""
  63.          EndProperty
  64.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  65.             Picture         =   "frmBuilder.frx":194E
  66.             Key             =   ""
  67.          EndProperty
  68.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  69.             Picture         =   "frmBuilder.frx":1A3D
  70.             Key             =   ""
  71.          EndProperty
  72.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  73.             Picture         =   "frmBuilder.frx":1B4C
  74.             Key             =   ""
  75.          EndProperty
  76.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  77.             Picture         =   "frmBuilder.frx":1C5C
  78.             Key             =   ""
  79.          EndProperty
  80.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  81.             Picture         =   "frmBuilder.frx":1D63
  82.             Key             =   ""
  83.          EndProperty
  84.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  85.             Picture         =   "frmBuilder.frx":1E7A
  86.             Key             =   ""
  87.          EndProperty
  88.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  89.             Picture         =   "frmBuilder.frx":1F7F
  90.             Key             =   ""
  91.          EndProperty
  92.       EndProperty
  93.    End
  94.    Begin MSComctlLib.ImageList imlFrames 
  95.       Left            =   2160
  96.       Top             =   0
  97.       _ExtentX        =   1005
  98.       _ExtentY        =   1005
  99.       BackColor       =   -2147483643
  100.       ImageWidth      =   198
  101.       ImageHeight     =   297
  102.       MaskColor       =   12632256
  103.       _Version        =   393216
  104.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  105.          NumListImages   =   3
  106.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  107.             Picture         =   "frmBuilder.frx":208D
  108.             Key             =   ""
  109.          EndProperty
  110.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  111.             Picture         =   "frmBuilder.frx":3C29
  112.             Key             =   ""
  113.          EndProperty
  114.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  115.             Picture         =   "frmBuilder.frx":575F
  116.             Key             =   ""
  117.          EndProperty
  118.       EndProperty
  119.    End
  120.    Begin MSComDlg.CommonDialog cdlShow 
  121.       Left            =   0
  122.       Top             =   4320
  123.       _ExtentX        =   847
  124.       _ExtentY        =   847
  125.       _Version        =   393216
  126.    End
  127.    Begin VB.Timer tmrArrow 
  128.       Enabled         =   0   'False
  129.       Interval        =   90
  130.       Left            =   0
  131.       Top             =   6240
  132.    End
  133.    Begin VB.Frame Frame2 
  134.       Caption         =   "Deck"
  135.       BeginProperty Font 
  136.          Name            =   "MS Sans Serif"
  137.          Size            =   8.25
  138.          Charset         =   0
  139.          Weight          =   700
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   4935
  145.       Left            =   90
  146.       TabIndex        =   3
  147.       Top             =   0
  148.       Width           =   10695
  149.       Begin VB.Image imgCard 
  150.          Appearance      =   0  'Flat
  151.          Height          =   1485
  152.          Index           =   39
  153.          Left            =   4125
  154.          Top             =   3270
  155.          Width           =   990
  156.       End
  157.       Begin VB.Image imgCard 
  158.          Appearance      =   0  'Flat
  159.          Height          =   1485
  160.          Index           =   38
  161.          Left            =   4620
  162.          Top             =   3270
  163.          Width           =   990
  164.       End
  165.       Begin VB.Image imgCard 
  166.          Appearance      =   0  'Flat
  167.          Height          =   1485
  168.          Index           =   37
  169.          Left            =   5115
  170.          Top             =   3270
  171.          Width           =   990
  172.       End
  173.       Begin VB.Image imgCard 
  174.          Appearance      =   0  'Flat
  175.          Height          =   1485
  176.          Index           =   36
  177.          Left            =   5610
  178.          Top             =   3270
  179.          Width           =   990
  180.       End
  181.       Begin VB.Image imgCard 
  182.          Appearance      =   0  'Flat
  183.          Height          =   1485
  184.          Index           =   35
  185.          Left            =   6105
  186.          Top             =   3270
  187.          Width           =   990
  188.       End
  189.       Begin VB.Image imgCard 
  190.          Appearance      =   0  'Flat
  191.          Height          =   1485
  192.          Index           =   34
  193.          Left            =   6600
  194.          Top             =   3270
  195.          Width           =   990
  196.       End
  197.       Begin VB.Image imgCard 
  198.          Appearance      =   0  'Flat
  199.          Height          =   1485
  200.          Index           =   33
  201.          Left            =   7095
  202.          Top             =   3270
  203.          Width           =   990
  204.       End
  205.       Begin VB.Image imgCard 
  206.          Appearance      =   0  'Flat
  207.          Height          =   1485
  208.          Index           =   32
  209.          Left            =   7590
  210.          Top             =   3270
  211.          Width           =   990
  212.       End
  213.       Begin VB.Image imgCard 
  214.          Appearance      =   0  'Flat
  215.          Height          =   1485
  216.          Index           =   31
  217.          Left            =   8085
  218.          Top             =   3270
  219.          Width           =   990
  220.       End
  221.       Begin VB.Image imgCard 
  222.          Appearance      =   0  'Flat
  223.          Height          =   1485
  224.          Index           =   30
  225.          Left            =   8580
  226.          Top             =   3270
  227.          Width           =   990
  228.       End
  229.       Begin VB.Image imgCard 
  230.          Appearance      =   0  'Flat
  231.          Height          =   1485
  232.          Index           =   29
  233.          Left            =   9075
  234.          Top             =   3270
  235.          Width           =   990
  236.       End
  237.       Begin VB.Image imgCard 
  238.          Appearance      =   0  'Flat
  239.          Height          =   1485
  240.          Index           =   27
  241.          Left            =   3135
  242.          Top             =   1755
  243.          Width           =   990
  244.       End
  245.       Begin VB.Image imgCard 
  246.          Appearance      =   0  'Flat
  247.          Height          =   1485
  248.          Index           =   26
  249.          Left            =   3630
  250.          Top             =   1755
  251.          Width           =   990
  252.       End
  253.       Begin VB.Image imgCard 
  254.          Appearance      =   0  'Flat
  255.          Height          =   1485
  256.          Index           =   25
  257.          Left            =   4125
  258.          Top             =   1755
  259.          Width           =   990
  260.       End
  261.       Begin VB.Image imgCard 
  262.          Appearance      =   0  'Flat
  263.          Height          =   1485
  264.          Index           =   24
  265.          Left            =   4620
  266.          Top             =   1755
  267.          Width           =   990
  268.       End
  269.       Begin VB.Image imgCard 
  270.          Appearance      =   0  'Flat
  271.          Height          =   1485
  272.          Index           =   23
  273.          Left            =   5115
  274.          Top             =   1755
  275.          Width           =   990
  276.       End
  277.       Begin VB.Image imgCard 
  278.          Appearance      =   0  'Flat
  279.          Height          =   1485
  280.          Index           =   22
  281.          Left            =   5610
  282.          Top             =   1755
  283.          Width           =   990
  284.       End
  285.       Begin VB.Image imgCard 
  286.          Appearance      =   0  'Flat
  287.          Height          =   1485
  288.          Index           =   21
  289.          Left            =   6105
  290.          Top             =   1755
  291.          Width           =   990
  292.       End
  293.       Begin VB.Image imgCard 
  294.          Appearance      =   0  'Flat
  295.          Height          =   1485
  296.          Index           =   20
  297.          Left            =   6600
  298.          Top             =   1755
  299.          Width           =   990
  300.       End
  301.       Begin VB.Image imgCard 
  302.          Appearance      =   0  'Flat
  303.          Height          =   1485
  304.          Index           =   19
  305.          Left            =   7095
  306.          Top             =   1755
  307.          Width           =   990
  308.       End
  309.       Begin VB.Image imgCard 
  310.          Appearance      =   0  'Flat
  311.          Height          =   1485
  312.          Index           =   18
  313.          Left            =   7590
  314.          Top             =   1755
  315.          Width           =   990
  316.       End
  317.       Begin VB.Image imgCard 
  318.          Appearance      =   0  'Flat
  319.          Height          =   1485
  320.          Index           =   17
  321.          Left            =   8085
  322.          Top             =   1755
  323.          Width           =   990
  324.       End
  325.       Begin VB.Image imgCard 
  326.          Appearance      =   0  'Flat
  327.          Height          =   1485
  328.          Index           =   16
  329.          Left            =   8580
  330.          Top             =   1755
  331.          Width           =   990
  332.       End
  333.       Begin VB.Image imgCard 
  334.          Appearance      =   0  'Flat
  335.          Height          =   1485
  336.          Index           =   15
  337.          Left            =   9075
  338.          Top             =   1755
  339.          Width           =   990
  340.       End
  341.       Begin VB.Image imgCard 
  342.          Appearance      =   0  'Flat
  343.          Height          =   1485
  344.          Index           =   13
  345.          Left            =   3135
  346.          Top             =   240
  347.          Width           =   990
  348.       End
  349.       Begin VB.Image imgCard 
  350.          Appearance      =   0  'Flat
  351.          Height          =   1485
  352.          Index           =   12
  353.          Left            =   3630
  354.          Top             =   240
  355.          Width           =   990
  356.       End
  357.       Begin VB.Image imgCard 
  358.          Appearance      =   0  'Flat
  359.          Height          =   1485
  360.          Index           =   11
  361.          Left            =   4125
  362.          Top             =   240
  363.          Width           =   990
  364.       End
  365.       Begin VB.Image imgCard 
  366.          Appearance      =   0  'Flat
  367.          Height          =   1485
  368.          Index           =   10
  369.          Left            =   4620
  370.          Top             =   240
  371.          Width           =   990
  372.       End
  373.       Begin VB.Image imgCard 
  374.          Appearance      =   0  'Flat
  375.          Height          =   1485
  376.          Index           =   9
  377.          Left            =   5115
  378.          Top             =   240
  379.          Width           =   990
  380.       End
  381.       Begin VB.Image imgCard 
  382.          Appearance      =   0  'Flat
  383.          Height          =   1485
  384.          Index           =   8
  385.          Left            =   5610
  386.          Top             =   240
  387.          Width           =   990
  388.       End
  389.       Begin VB.Image imgCard 
  390.          Appearance      =   0  'Flat
  391.          Height          =   1485
  392.          Index           =   7
  393.          Left            =   6105
  394.          Top             =   240
  395.          Width           =   990
  396.       End
  397.       Begin VB.Image imgCard 
  398.          Appearance      =   0  'Flat
  399.          Height          =   1485
  400.          Index           =   6
  401.          Left            =   6600
  402.          Top             =   240
  403.          Width           =   990
  404.       End
  405.       Begin VB.Image imgCard 
  406.          Appearance      =   0  'Flat
  407.          Height          =   1485
  408.          Index           =   5
  409.          Left            =   7095
  410.          Top             =   240
  411.          Width           =   990
  412.       End
  413.       Begin VB.Image imgCard 
  414.          Appearance      =   0  'Flat
  415.          Height          =   1485
  416.          Index           =   4
  417.          Left            =   7590
  418.          Top             =   240
  419.          Width           =   990
  420.       End
  421.       Begin VB.Image imgCard 
  422.          Appearance      =   0  'Flat
  423.          Height          =   1485
  424.          Index           =   3
  425.          Left            =   8085
  426.          Top             =   240
  427.          Width           =   990
  428.       End
  429.       Begin VB.Image imgCard 
  430.          Appearance      =   0  'Flat
  431.          Height          =   1485
  432.          Index           =   2
  433.          Left            =   8580
  434.          Top             =   240
  435.          Width           =   990
  436.       End
  437.       Begin VB.Image imgCard 
  438.          Appearance      =   0  'Flat
  439.          Height          =   1485
  440.          Index           =   1
  441.          Left            =   9075
  442.          Top             =   240
  443.          Width           =   990
  444.       End
  445.       Begin VB.Image imgCard 
  446.          Appearance      =   0  'Flat
  447.          Height          =   1485
  448.          Index           =   0
  449.          Left            =   9570
  450.          Top             =   240
  451.          Width           =   990
  452.       End
  453.       Begin VB.Image imgCard 
  454.          Appearance      =   0  'Flat
  455.          Height          =   1485
  456.          Index           =   28
  457.          Left            =   9570
  458.          Top             =   3270
  459.          Width           =   990
  460.       End
  461.       Begin VB.Image imgCard 
  462.          Appearance      =   0  'Flat
  463.          Height          =   1485
  464.          Index           =   14
  465.          Left            =   9570
  466.          Top             =   1755
  467.          Width           =   990
  468.       End
  469.       Begin VB.Label lblData 
  470.          BackStyle       =   0  'Transparent
  471.          BeginProperty Font 
  472.             Name            =   "MS Serif"
  473.             Size            =   6.75
  474.             Charset         =   0
  475.             Weight          =   700
  476.             Underline       =   0   'False
  477.             Italic          =   0   'False
  478.             Strikethrough   =   0   'False
  479.          EndProperty
  480.          Height          =   210
  481.          Index           =   5
  482.          Left            =   270
  483.          TabIndex        =   9
  484.          Top             =   3390
  485.          Width           =   1350
  486.       End
  487.       Begin VB.Label lblData 
  488.          Alignment       =   1  'Right Justify
  489.          BackStyle       =   0  'Transparent
  490.          BeginProperty Font 
  491.             Name            =   "MS Serif"
  492.             Size            =   6.75
  493.             Charset         =   0
  494.             Weight          =   400
  495.             Underline       =   0   'False
  496.             Italic          =   0   'False
  497.             Strikethrough   =   0   'False
  498.          EndProperty
  499.          ForeColor       =   &H00000000&
  500.          Height          =   210
  501.          Index           =   4
  502.          Left            =   1965
  503.          TabIndex        =   8
  504.          Top             =   4380
  505.          Width           =   840
  506.       End
  507.       Begin VB.Image imgStar 
  508.          Height          =   210
  509.          Index           =   9
  510.          Left            =   450
  511.          Top             =   750
  512.          Visible         =   0   'False
  513.          Width           =   210
  514.       End
  515.       Begin VB.Image imgStar 
  516.          Height          =   210
  517.          Index           =   8
  518.          Left            =   675
  519.          Top             =   750
  520.          Visible         =   0   'False
  521.          Width           =   210
  522.       End
  523.       Begin VB.Image imgStar 
  524.          Height          =   210
  525.          Index           =   7
  526.          Left            =   900
  527.          Top             =   750
  528.          Visible         =   0   'False
  529.          Width           =   210
  530.       End
  531.       Begin VB.Image imgStar 
  532.          Height          =   210
  533.          Index           =   6
  534.          Left            =   1125
  535.          Top             =   750
  536.          Visible         =   0   'False
  537.          Width           =   210
  538.       End
  539.       Begin VB.Image imgStar 
  540.          Height          =   210
  541.          Index           =   5
  542.          Left            =   1350
  543.          Top             =   750
  544.          Visible         =   0   'False
  545.          Width           =   210
  546.       End
  547.       Begin VB.Image imgStar 
  548.          Height          =   210
  549.          Index           =   4
  550.          Left            =   1575
  551.          Top             =   750
  552.          Visible         =   0   'False
  553.          Width           =   210
  554.       End
  555.       Begin VB.Image imgStar 
  556.          Height          =   210
  557.          Index           =   3
  558.          Left            =   1800
  559.          Top             =   750
  560.          Visible         =   0   'False
  561.          Width           =   210
  562.       End
  563.       Begin VB.Image imgStar 
  564.          Height          =   210
  565.          Index           =   2
  566.          Left            =   2025
  567.          Top             =   750
  568.          Visible         =   0   'False
  569.          Width           =   210
  570.       End
  571.       Begin VB.Image imgStar 
  572.          Height          =   210
  573.          Index           =   1
  574.          Left            =   2250
  575.          Top             =   750
  576.          Visible         =   0   'False
  577.          Width           =   210
  578.       End
  579.       Begin VB.Image imgStar 
  580.          Height          =   210
  581.          Index           =   0
  582.          Left            =   2475
  583.          Top             =   750
  584.          Visible         =   0   'False
  585.          Width           =   210
  586.       End
  587.       Begin VB.Image imgIcon 
  588.          Height          =   240
  589.          Left            =   2610
  590.          Top             =   450
  591.          Width           =   240
  592.       End
  593.       Begin VB.Label lblData 
  594.          Alignment       =   1  'Right Justify
  595.          BackStyle       =   0  'Transparent
  596.          BeginProperty Font 
  597.             Name            =   "MS Serif"
  598.             Size            =   6.75
  599.             Charset         =   0
  600.             Weight          =   400
  601.             Underline       =   0   'False
  602.             Italic          =   0   'False
  603.             Strikethrough   =   0   'False
  604.          EndProperty
  605.          ForeColor       =   &H00000000&
  606.          Height          =   210
  607.          Index           =   3
  608.          Left            =   1275
  609.          TabIndex        =   7
  610.          Top             =   4380
  611.          Width           =   840
  612.       End
  613.       Begin VB.Label lblData 
  614.          Alignment       =   1  'Right Justify
  615.          BackStyle       =   0  'Transparent
  616.          BeginProperty Font 
  617.             Name            =   "Times New Roman"
  618.             Size            =   8.25
  619.             Charset         =   0
  620.             Weight          =   400
  621.             Underline       =   0   'False
  622.             Italic          =   0   'False
  623.             Strikethrough   =   0   'False
  624.          EndProperty
  625.          ForeColor       =   &H00000000&
  626.          Height          =   210
  627.          Index           =   1
  628.          Left            =   1410
  629.          TabIndex        =   6
  630.          Top             =   735
  631.          Width           =   1350
  632.       End
  633.       Begin VB.Label lblData 
  634.          BackStyle       =   0  'Transparent
  635.          BeginProperty Font 
  636.             Name            =   "Times New Roman"
  637.             Size            =   8.25
  638.             Charset         =   0
  639.             Weight          =   400
  640.             Underline       =   0   'False
  641.             Italic          =   -1  'True
  642.             Strikethrough   =   0   'False
  643.          EndProperty
  644.          ForeColor       =   &H00404040&
  645.          Height          =   825
  646.          Index           =   2
  647.          Left            =   270
  648.          TabIndex        =   5
  649.          Top             =   3525
  650.          Width           =   2610
  651.       End
  652.       Begin VB.Label lblData 
  653.          BackStyle       =   0  'Transparent
  654.          BeginProperty Font 
  655.             Name            =   "MS Sans Serif"
  656.             Size            =   8.25
  657.             Charset         =   0
  658.             Weight          =   700
  659.             Underline       =   0   'False
  660.             Italic          =   0   'False
  661.             Strikethrough   =   0   'False
  662.          EndProperty
  663.          ForeColor       =   &H00000000&
  664.          Height          =   210
  665.          Index           =   0
  666.          Left            =   315
  667.          TabIndex        =   4
  668.          Top             =   480
  669.          Width           =   2340
  670.       End
  671.       Begin VB.Image imgMain 
  672.          Height          =   2130
  673.          Left            =   510
  674.          Top             =   1080
  675.          Width           =   2130
  676.       End
  677.       Begin VB.Image imgFrame 
  678.          Appearance      =   0  'Flat
  679.          Height          =   4455
  680.          Left            =   90
  681.          Stretch         =   -1  'True
  682.          Top             =   255
  683.          Width           =   2970
  684.       End
  685.    End
  686.    Begin VB.Frame Frame1 
  687.       Caption         =   "Card List"
  688.       BeginProperty Font 
  689.          Name            =   "MS Sans Serif"
  690.          Size            =   8.25
  691.          Charset         =   0
  692.          Weight          =   700
  693.          Underline       =   0   'False
  694.          Italic          =   0   'False
  695.          Strikethrough   =   0   'False
  696.       EndProperty
  697.       Height          =   1815
  698.       Left            =   90
  699.       TabIndex        =   0
  700.       Top             =   4950
  701.       Width           =   10695
  702.       Begin VB.Label lblArrow 
  703.          Alignment       =   2  'Center
  704.          BackStyle       =   0  'Transparent
  705.          Caption         =   "       >"
  706.          BeginProperty Font 
  707.             Name            =   "MS Sans Serif"
  708.             Size            =   9.75
  709.             Charset         =   0
  710.             Weight          =   700
  711.             Underline       =   0   'False
  712.             Italic          =   0   'False
  713.             Strikethrough   =   0   'False
  714.          EndProperty
  715.          Height          =   1200
  716.          Index           =   1
  717.          Left            =   10440
  718.          TabIndex        =   2
  719.          Top             =   360
  720.          Visible         =   0   'False
  721.          Width           =   300
  722.       End
  723.       Begin VB.Label lblArrow 
  724.          Alignment       =   2  'Center
  725.          BackStyle       =   0  'Transparent
  726.          Caption         =   "       <"
  727.          BeginProperty Font 
  728.             Name            =   "MS Sans Serif"
  729.             Size            =   9.75
  730.             Charset         =   0
  731.             Weight          =   700
  732.             Underline       =   0   'False
  733.             Italic          =   0   'False
  734.             Strikethrough   =   0   'False
  735.          EndProperty
  736.          Height          =   1200
  737.          Index           =   0
  738.          Left            =   0
  739.          TabIndex        =   1
  740.          Top             =   360
  741.          Visible         =   0   'False
  742.          Width           =   300
  743.       End
  744.       Begin VB.Image img 
  745.          Appearance      =   0  'Flat
  746.          Height          =   1485
  747.          Index           =   1
  748.          Left            =   255
  749.          Stretch         =   -1  'True
  750.          Top             =   225
  751.          Width           =   990
  752.       End
  753.       Begin VB.Image img 
  754.          Appearance      =   0  'Flat
  755.          Height          =   1485
  756.          Index           =   2
  757.          Left            =   1275
  758.          Stretch         =   -1  'True
  759.          Top             =   225
  760.          Width           =   990
  761.       End
  762.       Begin VB.Image img 
  763.          Appearance      =   0  'Flat
  764.          Height          =   1485
  765.          Index           =   3
  766.          Left            =   2295
  767.          Stretch         =   -1  'True
  768.          Top             =   225
  769.          Width           =   990
  770.       End
  771.       Begin VB.Image img 
  772.          Appearance      =   0  'Flat
  773.          Height          =   1485
  774.          Index           =   4
  775.          Left            =   3315
  776.          Stretch         =   -1  'True
  777.          Top             =   225
  778.          Width           =   990
  779.       End
  780.       Begin VB.Image img 
  781.          Appearance      =   0  'Flat
  782.          Height          =   1485
  783.          Index           =   5
  784.          Left            =   4335
  785.          Stretch         =   -1  'True
  786.          Top             =   225
  787.          Width           =   990
  788.       End
  789.       Begin VB.Image img 
  790.          Appearance      =   0  'Flat
  791.          Height          =   1485
  792.          Index           =   6
  793.          Left            =   5355
  794.          Stretch         =   -1  'True
  795.          Top             =   225
  796.          Width           =   990
  797.       End
  798.       Begin VB.Image img 
  799.          Appearance      =   0  'Flat
  800.          Height          =   1485
  801.          Index           =   7
  802.          Left            =   6375
  803.          Stretch         =   -1  'True
  804.          Top             =   225
  805.          Width           =   990
  806.       End
  807.       Begin VB.Image img 
  808.          Appearance      =   0  'Flat
  809.          Height          =   1485
  810.          Index           =   8
  811.          Left            =   7395
  812.          Stretch         =   -1  'True
  813.          Top             =   225
  814.          Width           =   990
  815.       End
  816.       Begin VB.Image img 
  817.          Appearance      =   0  'Flat
  818.          Height          =   1485
  819.          Index           =   9
  820.          Left            =   8415
  821.          Stretch         =   -1  'True
  822.          Top             =   225
  823.          Width           =   990
  824.       End
  825.       Begin VB.Image img 
  826.          Appearance      =   0  'Flat
  827.          Height          =   1485
  828.          Index           =   10
  829.          Left            =   9435
  830.          Stretch         =   -1  'True
  831.          Top             =   225
  832.          Width           =   990
  833.       End
  834.    End
  835.    Begin VB.Menu mnuMain 
  836.       Caption         =   "&File"
  837.       Begin VB.Menu mnuMFile 
  838.          Caption         =   "&Open Deck"
  839.          Shortcut        =   ^O
  840.       End
  841.       Begin VB.Menu mnuMSave 
  842.          Caption         =   "&Save Deck"
  843.          Shortcut        =   ^S
  844.       End
  845.       Begin VB.Menu mnuSep 
  846.          Caption         =   "-"
  847.       End
  848.       Begin VB.Menu mnuMExit 
  849.          Caption         =   "&Quit"
  850.          Shortcut        =   ^Q
  851.       End
  852.    End
  853.    Begin VB.Menu mnuHelp 
  854.       Caption         =   "&Help"
  855.       Begin VB.Menu mnuHAbout 
  856.          Caption         =   "&About"
  857.          Shortcut        =   ^A
  858.       End
  859.    End
  860. End
  861. Attribute VB_Name = "frmBuilder"
  862. Attribute VB_GlobalNameSpace = False
  863. Attribute VB_Creatable = False
  864. Attribute VB_PredeclaredId = True
  865. Attribute VB_Exposed = False
  866. Private iInc As Integer
  867. Private iList As Integer
  868. Private iStart As Integer
  869. Private strFile As String
  870. Private Type Card
  871.   Frame As Integer
  872.   Name As String
  873.   Attribute As Integer
  874.   Icon As String
  875.   Type As String
  876.   Description As String
  877.   Level As Integer
  878.   Cost As Integer
  879.   Attack As Integer
  880.   Defence As Integer
  881.   Phase As String
  882.   Spell As String
  883.   Value As String
  884.   Value2 As String
  885. End Type
  886.  
  887. Private Sub Copy_Card(objCard As Object, objWith As Object)
  888.   objWith.Picture = objCard.Picture
  889.   objWith.Tag = objCard.Tag
  890.   objWith.Visible = True
  891. End Sub
  892.  
  893. Private Sub img_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  894.   Show_Preview img(Index).Tag
  895. End Sub
  896.  
  897. Private Sub img_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  898. Dim iZum As Integer
  899.   
  900.   For i% = 0 To 39
  901.     If imgCard(i%).Tag = img(Index).Tag Then iZum = iZum + 1
  902.     If iZum > 2 Then MsgBox "You already have 3 duplicates of " & Get_Card(img(Index).Tag).Name & ".": Exit For
  903.     If imgCard(i%).Tag = "" Then Copy_Card img(Index), imgCard(i%): Exit For
  904.     If i% = 39 Then MsgBox "Deck complete."
  905.   Next i%
  906. End Sub
  907.  
  908. Private Sub lblArrow_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  909.  lblArrow(Index).ForeColor = vbMagenta
  910.  iInc = IIf(Index = 0, -1, 1)
  911.  tmrArrow.Enabled = True
  912. End Sub
  913.  
  914. Private Sub lblArrow_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  915.  lblArrow(Index).ForeColor = vbBlack
  916.  tmrArrow.Enabled = False
  917. End Sub
  918.  
  919. Private Sub mnuHAbout_Click()
  920.   MsgBox "Monsters Duel Deck Builder" & vbCrLf & "by Abel Antonio Ricaurte J"
  921. End Sub
  922.  
  923. Private Sub mnuMSave_Click()
  924. Dim strCards As String
  925.  
  926.   If imgCard(38).Tag = "" Or imgCard(39).Tag = "" Then MsgBox "A Deck must contain 40 cards.": Exit Sub
  927.   For i% = 0 To imgCard.Count - 1
  928.     strCards = strCards & "|" & imgCard(i%).Tag
  929.   Next i%
  930.   WriteINI "Deck", "Cards", iList & strCards, strFile
  931. End Sub
  932.  
  933. Private Sub tmrArrow_Timer()
  934.   iStart = iStart + iInc
  935.   Load_List
  936.   lblArrow(1).Visible = IIf(iStart > iList, False, True)
  937.   lblArrow(0).Visible = IIf(iStart < 1, False, True)
  938.   If iStart > iList Or iStart < 1 Then tmrArrow.Enabled = False
  939. End Sub
  940.  
  941. Private Sub imgCard_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  942.   imgCard(Index).Visible = False
  943.   imgCard(Index).Tag = ""
  944.   Rearrange_Cards
  945. End Sub
  946.  
  947. Private Sub Rearrange_Cards()
  948.   For i% = imgCard.Count - 2 To 0 Step -1
  949.     If imgCard(i%).Tag = "" And imgCard(i% + 1).Tag <> "" Then Replace_Card imgCard(i%), imgCard(i% + 1): i% = imgCard.Count - 2
  950.   Next i%
  951. End Sub
  952.  
  953. Private Sub Replace_Card(objCard As Object, objWith As Object)
  954.   objCard.Picture = objWith.Picture
  955.   objCard.Tag = objWith.Tag
  956.   objWith.Visible = False
  957.   objCard.Visible = True
  958.   objWith.Tag = ""
  959. End Sub
  960.  
  961. Private Sub mnuMFile_Click()
  962. On Error Resume Next
  963.   cdlShow.Filter = "Deck Files (*.dek)|*.dek"
  964.   cdlShow.InitDir = App.Path
  965.   cdlShow.ShowOpen
  966.   If Err = 0 Then strFile = cdlShow.filename: iStart = 0: Me.Caption = "Deck Builder - " & cdlShow.FileTitle: Load_Deck: Load_List
  967. End Sub
  968.  
  969. Private Sub imgCard_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  970.   Show_Preview imgCard(Index).Tag
  971. End Sub
  972.  
  973. Private Function Get_Card(strCard As String) As Card
  974. Dim varData As Variant
  975.   
  976.   varData = Split(ReadINI("Cards", strCard, App.Path & "\images\set.mds"), "|")
  977.   
  978.   With Get_Card
  979.     .Frame = varData(0)
  980.     .Name = varData(1)
  981.     .Attribute = varData(2)
  982.     .Icon = varData(3)
  983.     .Type = varData(4)
  984.     .Description = varData(5)
  985.     If varData(6) = "" Then .Level = 0 Else .Level = varData(6)
  986.     If varData(7) = "" Then .Cost = 0 Else .Cost = varData(7)
  987.     If varData(8) = "" Then .Attack = 0 Else .Attack = varData(8)
  988.     If varData(9) = "" Then .Defence = 0 Else .Defence = varData(9)
  989.     .Phase = varData(10)
  990.     .Spell = varData(11)
  991.     .Value = varData(12)
  992.     .Value2 = varData(13)
  993.   End With
  994. End Function
  995.  
  996. Private Sub Show_Preview(strCard As String, Optional strCase As String)
  997. Dim crdCard As Card
  998.  
  999.   If strCard = imgMain.Tag Or strCard = "" Then Exit Sub
  1000.   crdCard = Get_Card(strCard)
  1001.   imgMain.Tag = strCard
  1002.   lblData(0) = crdCard.Name
  1003.   lblData(1) = IIf(crdCard.Frame > 2, "", "[ " & crdCard.Type & " Card" & IIf(crdCard.Icon <> "", "      ]", " ]"))
  1004.   lblData(2) = crdCard.Description
  1005.   lblData(3) = IIf(crdCard.Frame > 2, "ATK/ " & crdCard.Attack, "")
  1006.   lblData(4) = IIf(crdCard.Frame > 2, "DEF/ " & crdCard.Defence, "")
  1007.   lblData(2).Height = IIf(crdCard.Frame > 2, 55 * 15, 72 * 15)
  1008.   lblData(2).Top = IIf(crdCard.Frame > 2, 234 * 15, 224 * 15) + 15
  1009.   lblData(5) = IIf(crdCard.Frame > 2, "[" & crdCard.Type & "]", "")
  1010.   
  1011.   For i% = 0 To 9: imgStar(i%).Visible = IIf(crdCard.Level > i%, True, False): imgStar(i%).Picture = imlIcons.ListImages(9).Picture: Next i%
  1012.   If crdCard.Icon <> "" Then imgStar(0).Picture = imlIcons.ListImages(Switch(crdCard.Icon = "Continuous", 10, crdCard.Icon = "Counter", 11, crdCard.Icon = "Equip", 12, crdCard.Icon = "Field", 13, crdCard.Icon = "Quick", 14, crdCard.Icon = "Ritual", 15)).Picture: imgStar(0).Visible = True
  1013.   imgIcon.Picture = imlIcons.ListImages(crdCard.Attribute).Picture
  1014.   imgFrame.Picture = imlFrames.ListImages(crdCard.Frame).Picture
  1015.   imgMain.Picture = LoadPicture(App.Path & "\images\" & crdCard.Name & ".jpg")
  1016. End Sub
  1017.  
  1018. Private Sub Load_Deck()
  1019. Dim varData As Variant
  1020.  
  1021.   varData = Split(ReadINI("Deck", "Cards", strFile), "|")
  1022.   
  1023.   iList = varData(0)
  1024.   For i% = 0 To 39
  1025.     imgCard(i%).Tag = varData(i% + 1)
  1026.     imgCard(i%).Picture = LoadPicture(App.Path & "\images\Atk_" & Get_Card(imgCard(i%).Tag).Name & ".jpg")
  1027.     imgCard(i%).Visible = True
  1028.   Next i%
  1029. End Sub
  1030.  
  1031. Private Sub Load_List()
  1032.   If iStart = 0 Then lblArrow(0).Visible = False: lblArrow(1).Visible = True
  1033.   For i% = 1 To 10
  1034.     img(i%).Tag = iStart + i%
  1035.     img(i%).Picture = LoadPicture(App.Path & "\images\Atk_" & Get_Card(img(i%).Tag).Name & ".jpg")
  1036.   Next i%
  1037. End Sub
  1038.  
  1039. Private Sub mnuMExit_Click()
  1040.   End
  1041. End Sub
  1042.