home *** CD-ROM | disk | FTP | other *** search
/ Igromania 1999 August / Igromania_1999-08.iso / DLH / dlh_8_99.exe / 1398.DLM / diablo / MDT.EXE / 0 / RCDATA / TMAIN / TMAIN.txt < prev   
Text File  |  1997-08-08  |  26KB  |  1,087 lines
  1. object Main: TMain
  2.   Left = 109
  3.   Top = 21
  4.   Width = 640
  5.   Height = 555
  6.   HorzScrollBar.Tracking = True
  7.   HorzScrollBar.Visible = False
  8.   VertScrollBar.Tracking = True
  9.   Caption = 'Mandrak'#39's Diablo Trainer & Item Editor'
  10.   Color = clSilver
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Icon.Data = {<image000.ico>}
  16.   Menu = MainMenu1
  17.   Position = poScreenCenter
  18.   OnCreate = FormCreate
  19.   OnDestroy = FormDestroy
  20.   PixelsPerInch = 96
  21.   TextHeight = 13
  22.   object GroupNames: TGroupBox
  23.     Left = 0
  24.     Top = 0
  25.     Width = 185
  26.     Height = 109
  27.     Caption = 'Characters in the Game :'
  28.     Color = clSilver
  29.     Font.Color = clTeal
  30.     Font.Height = -11
  31.     Font.Name = 'MS Sans Serif'
  32.     Font.Style = [fsBold]
  33.     ParentColor = False
  34.     ParentFont = False
  35.     TabOrder = 0
  36.     object SelChar0: TRadioButton
  37.       Left = 20
  38.       Top = 20
  39.       Width = 160
  40.       Height = 17
  41.       Caption = 'no character'
  42.       Enabled = False
  43.       TabOrder = 0
  44.       OnClick = SelChar0Click
  45.     end
  46.     object SelChar1: TRadioButton
  47.       Left = 20
  48.       Top = 36
  49.       Width = 160
  50.       Height = 17
  51.       Caption = 'no character'
  52.       Enabled = False
  53.       TabOrder = 1
  54.       OnClick = SelChar1Click
  55.     end
  56.     object SelChar2: TRadioButton
  57.       Left = 20
  58.       Top = 52
  59.       Width = 160
  60.       Height = 17
  61.       Caption = 'no character'
  62.       Enabled = False
  63.       TabOrder = 2
  64.       OnClick = SelChar2Click
  65.     end
  66.     object SelChar3: TRadioButton
  67.       Left = 20
  68.       Top = 68
  69.       Width = 160
  70.       Height = 17
  71.       Caption = 'no character'
  72.       Enabled = False
  73.       TabOrder = 3
  74.       OnClick = SelChar3Click
  75.     end
  76.     object FSlotRead0: TCheckBox
  77.       Left = 4
  78.       Top = 20
  79.       Width = 13
  80.       Height = 17
  81.       Enabled = False
  82.       TabOrder = 4
  83.     end
  84.     object FSlotRead1: TCheckBox
  85.       Left = 4
  86.       Top = 36
  87.       Width = 13
  88.       Height = 17
  89.       Enabled = False
  90.       TabOrder = 5
  91.     end
  92.     object FSlotRead2: TCheckBox
  93.       Left = 4
  94.       Top = 52
  95.       Width = 13
  96.       Height = 17
  97.       Enabled = False
  98.       TabOrder = 6
  99.     end
  100.     object FSlotRead3: TCheckBox
  101.       Left = 4
  102.       Top = 68
  103.       Width = 13
  104.       Height = 17
  105.       Enabled = False
  106.       TabOrder = 7
  107.     end
  108.     object FSlotRead4: TCheckBox
  109.       Left = 4
  110.       Top = 90
  111.       Width = 13
  112.       Height = 17
  113.       Caption = 'FSlotRead4'
  114.       Enabled = False
  115.       TabOrder = 8
  116.     end
  117.     object SelChar4: TRadioButton
  118.       Left = 20
  119.       Top = 90
  120.       Width = 160
  121.       Height = 17
  122.       Caption = 'File Buffer'
  123.       Checked = True
  124.       TabOrder = 9
  125.       TabStop = True
  126.       OnClick = SelChar4Click
  127.     end
  128.   end
  129.   object CharStatus: TGroupBox
  130.     Left = 0
  131.     Top = 111
  132.     Width = 321
  133.     Height = 365
  134.     Caption = 'Currently Selected Character Status :'
  135.     Color = clSilver
  136.     Ctl3D = True
  137.     Font.Color = clBlue
  138.     Font.Height = -11
  139.     Font.Name = 'MS Sans Serif'
  140.     Font.Style = [fsBold]
  141.     ParentColor = False
  142.     ParentCtl3D = False
  143.     ParentFont = False
  144.     TabOrder = 1
  145.     object ImgStats: TImage
  146.       Left = 0
  147.       Top = 14
  148.       Width = 319
  149.       Height = 351
  150.       ParentShowHint = False
  151.       ShowHint = False
  152.     end
  153.     object CharLevel: TLabel
  154.       Left = 62
  155.       Top = 70
  156.       Width = 47
  157.       Height = 16
  158.       Alignment = taCenter
  159.       AutoSize = False
  160.       Color = clTeal
  161.       Font.Color = clWhite
  162.       Font.Height = -15
  163.       Font.Name = 'Times New Roman'
  164.       Font.Style = [fsBold]
  165.       ParentColor = False
  166.       ParentFont = False
  167.       ParentShowHint = False
  168.       ShowAccelChar = False
  169.       ShowHint = False
  170.       Transparent = True
  171.     end
  172.     object CharName: TLabel
  173.       Left = 20
  174.       Top = 32
  175.       Width = 137
  176.       Height = 17
  177.       Alignment = taCenter
  178.       AutoSize = False
  179.       Color = clTeal
  180.       Font.Color = clWhite
  181.       Font.Height = -15
  182.       Font.Name = 'Times New Roman'
  183.       Font.Style = [fsBold]
  184.       ParentColor = False
  185.       ParentFont = False
  186.       ParentShowHint = False
  187.       ShowAccelChar = False
  188.       ShowHint = False
  189.       Transparent = True
  190.     end
  191.     object CharClass: TLabel
  192.       Left = 165
  193.       Top = 32
  194.       Width = 138
  195.       Height = 17
  196.       Alignment = taCenter
  197.       AutoSize = False
  198.       Color = clTeal
  199.       Font.Color = clWhite
  200.       Font.Height = -15
  201.       Font.Name = 'Times New Roman'
  202.       Font.Style = [fsBold]
  203.       ParentColor = False
  204.       ParentFont = False
  205.       ParentShowHint = False
  206.       ShowAccelChar = False
  207.       ShowHint = False
  208.       Transparent = True
  209.     end
  210.     object ExpPoints: TLabel
  211.       Left = 213
  212.       Top = 70
  213.       Width = 90
  214.       Height = 16
  215.       Alignment = taCenter
  216.       AutoSize = False
  217.       Color = clTeal
  218.       Font.Color = clWhite
  219.       Font.Height = -15
  220.       Font.Name = 'Times New Roman'
  221.       Font.Style = [fsBold]
  222.       ParentColor = False
  223.       ParentFont = False
  224.       ParentShowHint = False
  225.       ShowAccelChar = False
  226.       ShowHint = False
  227.       Transparent = True
  228.     end
  229.     object NextExpLev: TLabel
  230.       Left = 213
  231.       Top = 98
  232.       Width = 90
  233.       Height = 16
  234.       Alignment = taCenter
  235.       AutoSize = False
  236.       Color = clTeal
  237.       Font.Color = clWhite
  238.       Font.Height = -15
  239.       Font.Name = 'Times New Roman'
  240.       Font.Style = [fsBold]
  241.       ParentColor = False
  242.       ParentFont = False
  243.       ParentShowHint = False
  244.       ShowAccelChar = False
  245.       ShowHint = False
  246.       Transparent = True
  247.     end
  248.     object TotalGold: TLabel
  249.       Left = 213
  250.       Top = 147
  251.       Width = 90
  252.       Height = 16
  253.       Alignment = taCenter
  254.       AutoSize = False
  255.       Color = clTeal
  256.       Font.Color = clWhite
  257.       Font.Height = -15
  258.       Font.Name = 'Times New Roman'
  259.       Font.Style = [fsBold]
  260.       ParentColor = False
  261.       ParentFont = False
  262.       ParentShowHint = False
  263.       ShowAccelChar = False
  264.       ShowHint = False
  265.       Transparent = True
  266.     end
  267.     object StrengthBase: TLabel
  268.       Left = 88
  269.       Top = 155
  270.       Width = 45
  271.       Height = 16
  272.       Alignment = taCenter
  273.       AutoSize = False
  274.       Color = clTeal
  275.       Font.Color = clWhite
  276.       Font.Height = -15
  277.       Font.Name = 'Times New Roman'
  278.       Font.Style = [fsBold]
  279.       ParentColor = False
  280.       ParentFont = False
  281.       ParentShowHint = False
  282.       ShowAccelChar = False
  283.       ShowHint = False
  284.       Transparent = True
  285.     end
  286.     object StrengthNow: TLabel
  287.       Left = 136
  288.       Top = 155
  289.       Width = 45
  290.       Height = 16
  291.       Alignment = taCenter
  292.       AutoSize = False
  293.       Color = clTeal
  294.       Font.Color = clWhite
  295.       Font.Height = -15
  296.       Font.Name = 'Times New Roman'
  297.       Font.Style = [fsBold]
  298.       ParentColor = False
  299.       ParentFont = False
  300.       ParentShowHint = False
  301.       ShowAccelChar = False
  302.       ShowHint = False
  303.       Transparent = True
  304.     end
  305.     object MagicBase: TLabel
  306.       Left = 88
  307.       Top = 183
  308.       Width = 45
  309.       Height = 16
  310.       Alignment = taCenter
  311.       AutoSize = False
  312.       Color = clTeal
  313.       Font.Color = clWhite
  314.       Font.Height = -15
  315.       Font.Name = 'Times New Roman'
  316.       Font.Style = [fsBold]
  317.       ParentColor = False
  318.       ParentFont = False
  319.       ParentShowHint = False
  320.       ShowAccelChar = False
  321.       ShowHint = False
  322.       Transparent = True
  323.     end
  324.     object MagicNow: TLabel
  325.       Left = 136
  326.       Top = 183
  327.       Width = 45
  328.       Height = 16
  329.       Alignment = taCenter
  330.       AutoSize = False
  331.       Color = clTeal
  332.       Font.Color = clWhite
  333.       Font.Height = -15
  334.       Font.Name = 'Times New Roman'
  335.       Font.Style = [fsBold]
  336.       ParentColor = False
  337.       ParentFont = False
  338.       ParentShowHint = False
  339.       ShowAccelChar = False
  340.       ShowHint = False
  341.       Transparent = True
  342.     end
  343.     object DextBase: TLabel
  344.       Left = 88
  345.       Top = 211
  346.       Width = 45
  347.       Height = 16
  348.       Alignment = taCenter
  349.       AutoSize = False
  350.       Color = clTeal
  351.       Font.Color = clWhite
  352.       Font.Height = -15
  353.       Font.Name = 'Times New Roman'
  354.       Font.Style = [fsBold]
  355.       ParentColor = False
  356.       ParentFont = False
  357.       ParentShowHint = False
  358.       ShowAccelChar = False
  359.       ShowHint = False
  360.       Transparent = True
  361.     end
  362.     object DextNow: TLabel
  363.       Left = 136
  364.       Top = 211
  365.       Width = 45
  366.       Height = 16
  367.       Alignment = taCenter
  368.       AutoSize = False
  369.       Color = clTeal
  370.       Font.Color = clWhite
  371.       Font.Height = -15
  372.       Font.Name = 'Times New Roman'
  373.       Font.Style = [fsBold]
  374.       ParentColor = False
  375.       ParentFont = False
  376.       ParentShowHint = False
  377.       ShowAccelChar = False
  378.       ShowHint = False
  379.       Transparent = True
  380.     end
  381.     object VitalBase: TLabel
  382.       Left = 88
  383.       Top = 239
  384.       Width = 45
  385.       Height = 16
  386.       Alignment = taCenter
  387.       AutoSize = False
  388.       Color = clTeal
  389.       Font.Color = clWhite
  390.       Font.Height = -15
  391.       Font.Name = 'Times New Roman'
  392.       Font.Style = [fsBold]
  393.       ParentColor = False
  394.       ParentFont = False
  395.       ParentShowHint = False
  396.       ShowAccelChar = False
  397.       ShowHint = False
  398.       Transparent = True
  399.     end
  400.     object VitalNow: TLabel
  401.       Left = 136
  402.       Top = 239
  403.       Width = 45
  404.       Height = 16
  405.       Alignment = taCenter
  406.       AutoSize = False
  407.       Color = clTeal
  408.       Font.Color = clWhite
  409.       Font.Height = -15
  410.       Font.Name = 'Times New Roman'
  411.       Font.Style = [fsBold]
  412.       ParentColor = False
  413.       ParentFont = False
  414.       ParentShowHint = False
  415.       ShowAccelChar = False
  416.       ShowHint = False
  417.       Transparent = True
  418.     end
  419.     object DistribPoints: TLabel
  420.       Left = 88
  421.       Top = 267
  422.       Width = 45
  423.       Height = 16
  424.       Alignment = taCenter
  425.       AutoSize = False
  426.       Color = clTeal
  427.       Font.Color = clWhite
  428.       Font.Height = -15
  429.       Font.Name = 'Times New Roman'
  430.       Font.Style = [fsBold]
  431.       ParentColor = False
  432.       ParentFont = False
  433.       ParentShowHint = False
  434.       ShowAccelChar = False
  435.       ShowHint = False
  436.       Transparent = True
  437.     end
  438.     object LifeMax: TLabel
  439.       Left = 86
  440.       Top = 304
  441.       Width = 49
  442.       Height = 16
  443.       Alignment = taCenter
  444.       AutoSize = False
  445.       Color = clTeal
  446.       Font.Color = clWhite
  447.       Font.Height = -15
  448.       Font.Name = 'Times New Roman'
  449.       Font.Style = [fsBold]
  450.       ParentColor = False
  451.       ParentFont = False
  452.       ParentShowHint = False
  453.       ShowAccelChar = False
  454.       ShowHint = False
  455.       Transparent = True
  456.     end
  457.     object LifeNow: TLabel
  458.       Left = 136
  459.       Top = 304
  460.       Width = 49
  461.       Height = 16
  462.       Alignment = taCenter
  463.       AutoSize = False
  464.       Color = clTeal
  465.       Font.Color = clWhite
  466.       Font.Height = -15
  467.       Font.Name = 'Times New Roman'
  468.       Font.Style = [fsBold]
  469.       ParentColor = False
  470.       ParentFont = False
  471.       ParentShowHint = False
  472.       ShowAccelChar = False
  473.       ShowHint = False
  474.       Transparent = True
  475.     end
  476.     object ManaMax: TLabel
  477.       Left = 86
  478.       Top = 332
  479.       Width = 49
  480.       Height = 16
  481.       Alignment = taCenter
  482.       AutoSize = False
  483.       Color = clTeal
  484.       Font.Color = clWhite
  485.       Font.Height = -15
  486.       Font.Name = 'Times New Roman'
  487.       Font.Style = [fsBold]
  488.       ParentColor = False
  489.       ParentFont = False
  490.       ParentShowHint = False
  491.       ShowAccelChar = False
  492.       ShowHint = False
  493.       Transparent = True
  494.     end
  495.     object ManaNow: TLabel
  496.       Left = 136
  497.       Top = 332
  498.       Width = 49
  499.       Height = 16
  500.       Alignment = taCenter
  501.       AutoSize = False
  502.       Color = clTeal
  503.       Font.Color = clWhite
  504.       Font.Height = -15
  505.       Font.Name = 'Times New Roman'
  506.       Font.Style = [fsBold]
  507.       ParentColor = False
  508.       ParentFont = False
  509.       ParentShowHint = False
  510.       ShowAccelChar = False
  511.       ShowHint = False
  512.       Transparent = True
  513.     end
  514.     object ArmorClass: TLabel
  515.       Left = 248
  516.       Top = 183
  517.       Width = 63
  518.       Height = 16
  519.       Alignment = taCenter
  520.       AutoSize = False
  521.       Color = clTeal
  522.       Font.Color = clWhite
  523.       Font.Height = -15
  524.       Font.Name = 'Times New Roman'
  525.       Font.Style = [fsBold]
  526.       ParentColor = False
  527.       ParentFont = False
  528.       ParentShowHint = False
  529.       ShowAccelChar = False
  530.       ShowHint = False
  531.       Transparent = True
  532.     end
  533.     object ToHit: TLabel
  534.       Left = 248
  535.       Top = 211
  536.       Width = 63
  537.       Height = 16
  538.       Alignment = taCenter
  539.       AutoSize = False
  540.       Color = clTeal
  541.       Font.Color = clWhite
  542.       Font.Height = -15
  543.       Font.Name = 'Times New Roman'
  544.       Font.Style = [fsBold]
  545.       ParentColor = False
  546.       ParentFont = False
  547.       ParentShowHint = False
  548.       ShowAccelChar = False
  549.       ShowHint = False
  550.       Transparent = True
  551.     end
  552.     object Damage: TLabel
  553.       Left = 248
  554.       Top = 239
  555.       Width = 63
  556.       Height = 16
  557.       Alignment = taCenter
  558.       AutoSize = False
  559.       Color = clTeal
  560.       Font.Color = clWhite
  561.       Font.Height = -15
  562.       Font.Name = 'Times New Roman'
  563.       Font.Style = [fsBold]
  564.       ParentColor = False
  565.       ParentFont = False
  566.       ParentShowHint = False
  567.       ShowAccelChar = False
  568.       ShowHint = False
  569.       Transparent = True
  570.     end
  571.     object ResMagic: TLabel
  572.       Left = 255
  573.       Top = 276
  574.       Width = 47
  575.       Height = 16
  576.       Alignment = taCenter
  577.       AutoSize = False
  578.       Color = clTeal
  579.       Font.Color = clWhite
  580.       Font.Height = -15
  581.       Font.Name = 'Times New Roman'
  582.       Font.Style = [fsBold]
  583.       ParentColor = False
  584.       ParentFont = False
  585.       ParentShowHint = False
  586.       ShowAccelChar = False
  587.       ShowHint = False
  588.       Transparent = True
  589.     end
  590.     object ResFire: TLabel
  591.       Left = 255
  592.       Top = 304
  593.       Width = 47
  594.       Height = 16
  595.       Alignment = taCenter
  596.       AutoSize = False
  597.       Color = clTeal
  598.       Font.Color = clWhite
  599.       Font.Height = -15
  600.       Font.Name = 'Times New Roman'
  601.       Font.Style = [fsBold]
  602.       ParentColor = False
  603.       ParentFont = False
  604.       ParentShowHint = False
  605.       ShowAccelChar = False
  606.       ShowHint = False
  607.       Transparent = True
  608.     end
  609.     object ResLgtning: TLabel
  610.       Left = 255
  611.       Top = 332
  612.       Width = 47
  613.       Height = 16
  614.       Alignment = taCenter
  615.       AutoSize = False
  616.       Color = clTeal
  617.       Font.Color = clWhite
  618.       Font.Height = -15
  619.       Font.Name = 'Times New Roman'
  620.       Font.Style = [fsBold]
  621.       ParentColor = False
  622.       ParentFont = False
  623.       ParentShowHint = False
  624.       ShowAccelChar = False
  625.       ShowHint = False
  626.       Transparent = True
  627.     end
  628.   end
  629.   object BtnRead: TButton
  630.     Left = 193
  631.     Top = 5
  632.     Width = 104
  633.     Height = 20
  634.     Caption = '<- Read To Slot'
  635.     Font.Color = clBlack
  636.     Font.Height = -11
  637.     Font.Name = 'MS Sans Serif'
  638.     Font.Style = [fsBold]
  639.     ParentFont = False
  640.     TabOrder = 2
  641.     OnClick = BtnReadClick
  642.   end
  643.   object BtnWrite: TButton
  644.     Left = 193
  645.     Top = 29
  646.     Width = 104
  647.     Height = 20
  648.     Caption = '->Write To Mem'
  649.     Font.Color = clBlack
  650.     Font.Height = -11
  651.     Font.Name = 'MS Sans Serif'
  652.     Font.Style = [fsBold]
  653.     ParentFont = False
  654.     TabOrder = 3
  655.     OnClick = BtnWriteClick
  656.   end
  657.   object BtnCopy: TButton
  658.     Left = 193
  659.     Top = 53
  660.     Width = 104
  661.     Height = 20
  662.     Caption = 'Copy To Buffer'
  663.     Font.Color = clBlack
  664.     Font.Height = -11
  665.     Font.Name = 'MS Sans Serif'
  666.     Font.Style = [fsBold]
  667.     ParentFont = False
  668.     ParentShowHint = False
  669.     ShowHint = False
  670.     TabOrder = 4
  671.     OnClick = BtnCopyClick
  672.   end
  673.   object BtnCopyFrom: TButton
  674.     Left = 193
  675.     Top = 77
  676.     Width = 104
  677.     Height = 20
  678.     Caption = 'Copy From Buffer'
  679.     Font.Color = clBlack
  680.     Font.Height = -11
  681.     Font.Name = 'MS Sans Serif'
  682.     Font.Style = [fsBold]
  683.     ParentFont = False
  684.     ParentShowHint = False
  685.     ShowHint = False
  686.     TabOrder = 5
  687.     OnClick = BtnCopyFromClick
  688.   end
  689.   object GBBodyInvBelt: TGroupBox
  690.     Left = 313
  691.     Top = 111
  692.     Width = 318
  693.     Height = 398
  694.     Caption = 'Items :'
  695.     Color = clSilver
  696.     Font.Color = clBlue
  697.     Font.Height = -11
  698.     Font.Name = 'MS Sans Serif'
  699.     Font.Style = [fsBold]
  700.     ParentColor = False
  701.     ParentFont = False
  702.     TabOrder = 6
  703.     object Image1: TImage
  704.       Left = 0
  705.       Top = 14
  706.       Width = 316
  707.       Height = 350
  708.       Hint = 'Right Click to Import/Export/Edit/Copy/Paste Item'
  709.       ParentShowHint = False
  710.       ShowHint = True
  711.       OnMouseMove = Image1MouseMove
  712.       OnMouseUp = Image1MouseUp
  713.     end
  714.     object Image2: TImage
  715.       Left = 43
  716.       Top = 364
  717.       Width = 231
  718.       Height = 32
  719.       Hint = 'Right Click to Import/Export/Edit/Copy/Paste Item'
  720.       ParentShowHint = False
  721.       ShowHint = True
  722.       OnMouseMove = Image2MouseMove
  723.       OnMouseUp = Image2MouseUp
  724.     end
  725.   end
  726.   object MemoIdentification: TMemo
  727.     Left = 316
  728.     Top = 2
  729.     Width = 313
  730.     Height = 111
  731.     Alignment = taCenter
  732.     Color = clBlack
  733.     Ctl3D = True
  734.     Font.Color = clAqua
  735.     Font.Height = -11
  736.     Font.Name = 'Times New Roman'
  737.     Font.Style = [fsBold]
  738.     HideSelection = False
  739.     ParentCtl3D = False
  740.     ParentFont = False
  741.     ParentShowHint = False
  742.     ReadOnly = True
  743.     ShowHint = False
  744.     TabOrder = 7
  745.     WantReturns = False
  746.   end
  747.   object BtnHexDump: TButton
  748.     Left = 127
  749.     Top = 481
  750.     Width = 75
  751.     Height = 25
  752.     Caption = 'Hex Dump'
  753.     TabOrder = 8
  754.     OnClick = BtnHexDumpClick
  755.   end
  756.   object MainMenu1: TMainMenu
  757.     Left = 3
  758.     Top = 480
  759.     object MnuFile: TMenuItem
  760.       Caption = '&File'
  761.       ShortCut = 0
  762.       object MnuRefresh: TMenuItem
  763.         Caption = '&Refresh'
  764.         ShortCut = 0
  765.         OnClick = MnuRefreshClick
  766.       end
  767.       object MnuSaveas: TMenuItem
  768.         Caption = '&Save as'
  769.         ShortCut = 0
  770.         OnClick = MnuSaveasClick
  771.       end
  772.       object MnuLoadFrom: TMenuItem
  773.         Caption = '&Load From'
  774.         ShortCut = 0
  775.         OnClick = MnuLoadFromClick
  776.       end
  777.       object N1: TMenuItem
  778.         Caption = '-'
  779.         ShortCut = 0
  780.       end
  781.       object MnuExit: TMenuItem
  782.         Caption = '&Exit'
  783.         ShortCut = 0
  784.         OnClick = MnuExitClick
  785.       end
  786.     end
  787.     object MnuCheat: TMenuItem
  788.       Caption = '&Cheat'
  789.       ShortCut = 0
  790.       object MnuPumpUpLife: TMenuItem
  791.         Caption = 'Pump Up &Life'
  792.         ShortCut = 0
  793.         OnClick = MnuPumpUpLifeClick
  794.       end
  795.       object MnuPumpUpMana: TMenuItem
  796.         Caption = 'Pump Up &Mana'
  797.         ShortCut = 0
  798.         OnClick = MnuPumpUpManaClick
  799.       end
  800.       object MnuIdentifyAll: TMenuItem
  801.         Caption = '&Identify All'
  802.         ShortCut = 0
  803.         OnClick = MnuIdentifyAllClick
  804.       end
  805.       object MnuRepairAll: TMenuItem
  806.         Caption = '&Repair All'
  807.         ShortCut = 0
  808.         OnClick = MnuRepairAllClick
  809.       end
  810.       object MnuRechargeStaves: TMenuItem
  811.         Caption = 'Recharge Sta&ves'
  812.         ShortCut = 0
  813.         OnClick = MnuRechargeStavesClick
  814.       end
  815.       object MnuPumpGold: TMenuItem
  816.         Caption = 'Pump Up &Gold'
  817.         ShortCut = 0
  818.         OnClick = MnuPumpGoldClick
  819.       end
  820.       object MnuPumpUpExpPoints: TMenuItem
  821.         Caption = 'Pump Up &Exp Points'
  822.         ShortCut = 0
  823.         OnClick = MnuPumpUpExpPointsClick
  824.       end
  825.       object MnuSpells: TMenuItem
  826.         Caption = '&Spells'
  827.         ShortCut = 0
  828.         object MnuFireBolt: TMenuItem
  829.           Caption = 'FireBolt'
  830.           ShortCut = 0
  831.           OnClick = CheatSpell
  832.         end
  833.         object MnuHealing: TMenuItem
  834.           Caption = 'Healing'
  835.           ShortCut = 0
  836.           OnClick = CheatSpell
  837.         end
  838.         object MnuLightning: TMenuItem
  839.           Caption = 'Lightning'
  840.           ShortCut = 0
  841.           OnClick = CheatSpell
  842.         end
  843.         object MnuFlash: TMenuItem
  844.           Caption = 'Flash'
  845.           ShortCut = 0
  846.           OnClick = CheatSpell
  847.         end
  848.         object MnuIdentify: TMenuItem
  849.           Caption = 'Identify'
  850.           ShortCut = 0
  851.           OnClick = CheatSpell
  852.         end
  853.         object MnuFireWall: TMenuItem
  854.           Caption = 'FireWall'
  855.           ShortCut = 0
  856.           OnClick = CheatSpell
  857.         end
  858.         object MnuTownPortal: TMenuItem
  859.           Caption = 'TownPortal'
  860.           ShortCut = 0
  861.           OnClick = CheatSpell
  862.         end
  863.         object MnuStoneCurse: TMenuItem
  864.           Caption = 'StoneCurse'
  865.           ShortCut = 0
  866.           OnClick = CheatSpell
  867.         end
  868.         object MnuInfraVision: TMenuItem
  869.           Caption = 'InfraVision'
  870.           ShortCut = 0
  871.           OnClick = CheatSpell
  872.         end
  873.         object MnuPhasing: TMenuItem
  874.           Caption = 'Phasing'
  875.           ShortCut = 0
  876.           OnClick = CheatSpell
  877.         end
  878.         object MnuManaShield: TMenuItem
  879.           Break = mbBarBreak
  880.           Caption = 'ManaShield'
  881.           ShortCut = 0
  882.           OnClick = CheatSpell
  883.         end
  884.         object MnuFireBall: TMenuItem
  885.           Caption = 'FireBall'
  886.           ShortCut = 0
  887.           OnClick = CheatSpell
  888.         end
  889.         object MnuGuardian: TMenuItem
  890.           Caption = 'Guardian'
  891.           ShortCut = 0
  892.           OnClick = CheatSpell
  893.         end
  894.         object MnuChainLightning: TMenuItem
  895.           Caption = 'ChainLightning'
  896.           ShortCut = 0
  897.           OnClick = CheatSpell
  898.         end
  899.         object MnuFlameWave: TMenuItem
  900.           Caption = 'FlameWave'
  901.           ShortCut = 0
  902.           OnClick = CheatSpell
  903.         end
  904.         object MnuDoomSerpents: TMenuItem
  905.           Caption = 'DoomSerpents'
  906.           ShortCut = 0
  907.           OnClick = CheatSpell
  908.         end
  909.         object MnuBloodRitual: TMenuItem
  910.           Caption = 'BloodRitual'
  911.           ShortCut = 0
  912.           OnClick = CheatSpell
  913.         end
  914.         object MnuNova: TMenuItem
  915.           Caption = 'Nova'
  916.           ShortCut = 0
  917.           OnClick = CheatSpell
  918.         end
  919.         object MnuInvisibility: TMenuItem
  920.           Caption = 'Invisibility'
  921.           ShortCut = 0
  922.           OnClick = CheatSpell
  923.         end
  924.         object MnuInferno: TMenuItem
  925.           Caption = 'Inferno'
  926.           ShortCut = 0
  927.           OnClick = CheatSpell
  928.         end
  929.         object MnuGolem: TMenuItem
  930.           Break = mbBarBreak
  931.           Caption = 'Golem'
  932.           ShortCut = 0
  933.           OnClick = CheatSpell
  934.         end
  935.         object MnuBloodBoil: TMenuItem
  936.           Caption = 'BloodBoil'
  937.           ShortCut = 0
  938.           OnClick = CheatSpell
  939.         end
  940.         object MnuTeleport: TMenuItem
  941.           Caption = 'Teleport'
  942.           ShortCut = 0
  943.           OnClick = CheatSpell
  944.         end
  945.         object MnuApocalypse: TMenuItem
  946.           Caption = 'Apocalypse'
  947.           ShortCut = 0
  948.           OnClick = CheatSpell
  949.         end
  950.         object MnuEtherealize: TMenuItem
  951.           Caption = 'Etherealize'
  952.           ShortCut = 0
  953.           OnClick = CheatSpell
  954.         end
  955.         object MnuItemRepair: TMenuItem
  956.           Caption = 'ItemRepair'
  957.           ShortCut = 0
  958.           OnClick = CheatSpell
  959.         end
  960.         object MnuStaffRecharge: TMenuItem
  961.           Caption = 'StaffRecharge'
  962.           ShortCut = 0
  963.           OnClick = CheatSpell
  964.         end
  965.         object MnuTrapDisarm: TMenuItem
  966.           Caption = 'TrapDisarm'
  967.           ShortCut = 0
  968.           OnClick = CheatSpell
  969.         end
  970.         object MnuElemental: TMenuItem
  971.           Caption = 'Elemental'
  972.           ShortCut = 0
  973.           OnClick = CheatSpell
  974.         end
  975.         object MnuChargedBolt: TMenuItem
  976.           Caption = 'ChargedBolt'
  977.           ShortCut = 0
  978.           OnClick = CheatSpell
  979.         end
  980.         object MnuHolyBolt: TMenuItem
  981.           Break = mbBarBreak
  982.           Caption = 'HolyBolt'
  983.           ShortCut = 0
  984.           OnClick = CheatSpell
  985.         end
  986.         object MnuResurect: TMenuItem
  987.           Caption = 'Resurect'
  988.           ShortCut = 0
  989.           OnClick = CheatSpell
  990.         end
  991.         object MnuTelekinesis: TMenuItem
  992.           Caption = 'Telekinesis'
  993.           ShortCut = 0
  994.           OnClick = CheatSpell
  995.         end
  996.         object MnuHealOther: TMenuItem
  997.           Caption = 'HealOther'
  998.           ShortCut = 0
  999.           OnClick = CheatSpell
  1000.         end
  1001.         object MnuBloodStar: TMenuItem
  1002.           Caption = 'BloodStar'
  1003.           ShortCut = 0
  1004.           OnClick = CheatSpell
  1005.         end
  1006.         object MnuBoneSpirit: TMenuItem
  1007.           Caption = 'BoneSpirit'
  1008.           ShortCut = 0
  1009.           OnClick = CheatSpell
  1010.         end
  1011.         object MnuGiveAllSpells: TMenuItem
  1012.           Caption = 'Give All Spells'
  1013.           ShortCut = 0
  1014.           OnClick = MnuGiveAllSpellsClick
  1015.         end
  1016.       end
  1017.       object MnuLevelUpDistributionQuota: TMenuItem
  1018.         Caption = 'Level Up &Distribution Quota'
  1019.         ShortCut = 0
  1020.         OnClick = MnuLevelUpDistributionQuotaClick
  1021.       end
  1022.       object MnuPumpUpLevelPoints: TMenuItem
  1023.         Caption = 'Pump Up Your &Level'
  1024.         ShortCut = 0
  1025.         OnClick = MnuPumpUpLevelPointsClick
  1026.       end
  1027.     end
  1028.     object MnuHelp: TMenuItem
  1029.       Caption = '&Help'
  1030.       ShortCut = 0
  1031.       OnClick = MnuHelpClick
  1032.     end
  1033.     object MnuDiabVer: TMenuItem
  1034.       Caption = 'Diablo Vx.xx'
  1035.       ShortCut = 0
  1036.     end
  1037.   end
  1038.   object DlgOpen: TOpenDialog
  1039.     DefaultExt = 'MDF'
  1040.     FileEditStyle = fsEdit
  1041.     Filter = 'Mandrak Dump File|*.MDF|Mandrak Item dump File|*.MIF'
  1042.     InitialDir = '.'
  1043.     Title = 'Load a Diablo Dump File'
  1044.     Left = 65
  1045.     Top = 480
  1046.   end
  1047.   object DlgSave: TSaveDialog
  1048.     DefaultExt = 'MDF'
  1049.     FileEditStyle = fsEdit
  1050.     Filter = 'Mandrak Dump File|*.MDF|Mandrak Item dump File|*.MIF'
  1051.     InitialDir = '.'
  1052.     Title = 'Save a Diablo Dump File'
  1053.     Left = 97
  1054.     Top = 480
  1055.   end
  1056.   object PMnuItem: TPopupMenu
  1057.     Left = 34
  1058.     Top = 480
  1059.     object PMnuImportItem: TMenuItem
  1060.       Caption = '&Import Item'
  1061.       ShortCut = 0
  1062.       OnClick = PMnuImportItemClick
  1063.     end
  1064.     object PMnuExportItem: TMenuItem
  1065.       Caption = 'E&xport Item'
  1066.       ShortCut = 0
  1067.       OnClick = PMnuExportItemClick
  1068.     end
  1069.     object PMnuEditItem: TMenuItem
  1070.       Caption = '&Edit Item'
  1071.       ShortCut = 0
  1072.       OnClick = PMnuEditItemClick
  1073.     end
  1074.     object PMnuCopy: TMenuItem
  1075.       Caption = '&Copy'
  1076.       ShortCut = 0
  1077.       OnClick = PMnuCopyClick
  1078.     end
  1079.     object PMnuPaste: TMenuItem
  1080.       Caption = '&Paste'
  1081.       Enabled = False
  1082.       ShortCut = 0
  1083.       OnClick = PMnuPasteClick
  1084.     end
  1085.   end
  1086. end
  1087.