home *** CD-ROM | disk | FTP | other *** search
- object Main: TMain
- Left = 68
- Top = 41
- VertScrollBar.Visible = False
- ActiveControl = xFakeEdit
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = ' Mr. Matt'
- ClientHeight = 325
- ClientWidth = 504
- Ctl3D = False
- Color = clBtnShadow
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Courier'
- Font.Style = [fsBold]
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- Menu = mMain
- Position = poScreenCenter
- Scaled = False
- ShowHint = True
- Visible = True
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 16
- object xStrip: TPanel
- Left = 1
- Top = 296
- Width = 502
- Height = 29
- BevelOuter = bvNone
- Color = clBtnShadow
- Ctl3D = False
- Font.Color = clSilver
- Font.Height = -16
- Font.Name = 'Courier'
- Font.Style = [fsBold]
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 1
- object xClock: TPanel
- Left = 0
- Top = 0
- Width = 72
- Height = 29
- Hint = 'Time on this level'
- BevelOuter = bvLowered
- BevelWidth = 2
- Caption = '00:00'
- Color = clNavy
- TabOrder = 0
- end
- object xSteps: TPanel
- Left = 73
- Top = 0
- Width = 42
- Height = 29
- Hint = 'Game level'
- BevelOuter = bvLowered
- BevelWidth = 2
- Caption = '7'
- Color = clNavy
- TabOrder = 1
- end
- object xTitle: TPanel
- Left = 115
- Top = 0
- Width = 387
- Height = 29
- Hint = 'Level name'
- BevelOuter = bvLowered
- BevelWidth = 2
- Color = clNavy
- TabOrder = 2
- end
- end
- object xiPanel: TPanel
- Left = 0
- Top = 0
- Width = 504
- Height = 296
- BevelOuter = bvLowered
- BevelWidth = 3
- BorderStyle = bsSingle
- Color = clNavy
- Ctl3D = False
- Font.Color = clLime
- Font.Height = -32
- Font.Name = 'Courier New'
- Font.Style = []
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 0
- object xMap: TImage
- Left = 3
- Top = 3
- Width = 496
- Height = 288
- Align = alClient
- Center = True
- Picture.Data = {<image001.bmp>}
- OnMouseDown = xMapMouseDown
- end
- object xPics2: TPanel
- Left = 20
- Top = 50
- Width = 240
- Height = 22
- TabOrder = 0
- Visible = False
- object xs20: TImage
- Left = 2
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image002.bmp>}
- end
- object xs21: TImage
- Left = 22
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image003.bmp>}
- end
- object xs23: TImage
- Left = 62
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image004.bmp>}
- end
- object xs22: TImage
- Left = 42
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image005.bmp>}
- end
- object xs24: TImage
- Left = 82
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image006.bmp>}
- end
- object xs29: TImage
- Left = 182
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image007.bmp>}
- end
- object xs25: TImage
- Left = 102
- Top = 2
- Width = 16
- Height = 16
- end
- object xs2d: TImage
- Left = 202
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image008.bmp>}
- end
- object xs26: TImage
- Left = 122
- Top = 2
- Width = 16
- Height = 16
- end
- object xs27: TImage
- Left = 142
- Top = 2
- Width = 16
- Height = 16
- end
- object xs28: TImage
- Left = 162
- Top = 2
- Width = 16
- Height = 16
- end
- end
- object xPics1: TPanel
- Left = 20
- Top = 20
- Width = 240
- Height = 22
- TabOrder = 1
- Visible = False
- object xs10: TImage
- Left = 2
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image009.bmp>}
- end
- object xs11: TImage
- Left = 22
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image010.bmp>}
- end
- object xs13: TImage
- Left = 62
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image011.bmp>}
- end
- object xs12: TImage
- Left = 42
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image012.bmp>}
- end
- object xs14: TImage
- Left = 82
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image013.bmp>}
- end
- object xs19: TImage
- Left = 182
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image014.bmp>}
- end
- object xs1d: TImage
- Left = 202
- Top = 2
- Width = 15
- Height = 16
- Picture.Data = {<image015.bmp>}
- end
- object xs15: TImage
- Left = 102
- Top = 2
- Width = 16
- Height = 16
- end
- object xs16: TImage
- Left = 122
- Top = 2
- Width = 16
- Height = 16
- end
- object xs17: TImage
- Left = 142
- Top = 2
- Width = 16
- Height = 16
- end
- object xs18: TImage
- Left = 162
- Top = 2
- Width = 16
- Height = 16
- end
- end
- object xPics3: TPanel
- Left = 20
- Top = 80
- Width = 240
- Height = 22
- TabOrder = 2
- Visible = False
- object xs30: TImage
- Left = 2
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image016.bmp>}
- end
- object xs31: TImage
- Left = 22
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image017.bmp>}
- end
- object xs33: TImage
- Left = 62
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image018.bmp>}
- end
- object xs32: TImage
- Left = 42
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image019.bmp>}
- end
- object xs34: TImage
- Left = 82
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image020.bmp>}
- end
- object xs39: TImage
- Left = 182
- Top = 2
- Width = 16
- Height = 16
- Picture.Data = {<image021.bmp>}
- end
- object xs3d: TImage
- Left = 202
- Top = 2
- Width = 15
- Height = 16
- Picture.Data = {<image022.bmp>}
- end
- object xs35: TImage
- Left = 102
- Top = 2
- Width = 16
- Height = 16
- end
- object xs36: TImage
- Left = 122
- Top = 2
- Width = 16
- Height = 16
- end
- object xs37: TImage
- Left = 142
- Top = 2
- Width = 16
- Height = 16
- end
- object xs38: TImage
- Left = 162
- Top = 2
- Width = 16
- Height = 16
- end
- end
- end
- object xFakeEdit: TEdit
- Left = -40
- Top = 110
- Width = 16
- Height = 22
- TabStop = False
- MaxLength = 1
- ReadOnly = True
- TabOrder = 2
- end
- object xLevels: TPanel
- Left = 0
- Top = 295
- Width = 504
- Height = 31
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- BevelWidth = 2
- BorderStyle = bsSingle
- Color = clBtnShadow
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Courier'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- object xb1: TSpeedButton
- Tag = 1
- Left = 284
- Top = 2
- Width = 24
- Height = 25
- GroupIndex = 1
- Caption = '1'
- OnClick = xbClick
- end
- object xb2: TSpeedButton
- Tag = 2
- Left = 308
- Top = 2
- Width = 24
- Height = 25
- GroupIndex = 1
- Caption = '2'
- OnClick = xbClick
- end
- object xb3: TSpeedButton
- Tag = 3
- Left = 332
- Top = 2
- Width = 24
- Height = 25
- GroupIndex = 1
- Caption = '3'
- OnClick = xbClick
- end
- object xb4: TSpeedButton
- Tag = 4
- Left = 356
- Top = 2
- Width = 24
- Height = 25
- GroupIndex = 1
- Caption = '4'
- OnClick = xbClick
- end
- object xb5: TSpeedButton
- Tag = 5
- Left = 380
- Top = 2
- Width = 24
- Height = 25
- GroupIndex = 1
- Caption = '5'
- OnClick = xbClick
- end
- object xb6: TSpeedButton
- Tag = 6
- Left = 404
- Top = 2
- Width = 24
- Height = 25
- GroupIndex = 1
- Caption = '6'
- OnClick = xbClick
- end
- object xb7: TSpeedButton
- Tag = 7
- Left = 428
- Top = 2
- Width = 24
- Height = 25
- GroupIndex = 1
- Caption = '7'
- OnClick = xbClick
- end
- object xb8: TSpeedButton
- Tag = 8
- Left = 452
- Top = 2
- Width = 24
- Height = 25
- GroupIndex = 1
- Caption = '8'
- OnClick = xbClick
- end
- object xb9: TSpeedButton
- Tag = 9
- Left = 476
- Top = 2
- Width = 24
- Height = 25
- GroupIndex = 1
- Down = True
- Caption = '9'
- OnClick = xbClick
- end
- object xLoad: TSpeedButton
- Left = 2
- Top = 2
- Width = 282
- Height = 25
- Hint = 'Load a game'
- Caption = 'Click here to load a game'
- OnClick = xLoadClick
- end
- object xPalette: TPanel
- Left = 2
- Top = 2
- Width = 280
- Height = 25
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BevelWidth = 2
- Caption = 'xLevels'
- Color = clBtnShadow
- TabOrder = 0
- object xob0: TSpeedButton
- Left = 0
- Top = 0
- Width = 28
- Height = 25
- Hint = 'Empty square'
- GroupIndex = 2
- Down = True
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000}
- ParentFont = False
- Spacing = 0
- OnClick = xobClick
- end
- object xob1: TSpeedButton
- Tag = 1
- Left = 28
- Top = 0
- Width = 28
- Height = 25
- Hint = 'Earth'
- GroupIndex = 2
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DAA33AAAA003
- 333A033000A330AAAAA0030000A30AAAA0000A0033A0A00000330003AAAAA033
- 030A0AAA00030330A30A0300AAAAAAAAA03A030A33300330A3AA003A303333AA
- AAAA000A3A330333000000AA3A00A3A0A30300AA0A0AA000A30303A0A333A0A3
- AA0300A3A30AAAA0AAA30A3300033300AAAA0000000000000000}
- ParentFont = False
- OnClick = xobClick
- end
- object xob2: TSpeedButton
- Tag = 2
- Left = 56
- Top = 0
- Width = 28
- Height = 25
- Hint = 'Brick'
- GroupIndex = 2
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D91991191199
- 1119091111919191919101119191111191110911111119111119019911911119
- 1191011111119919111109191911111111910111111911991919099119119919
- 1119011111111111191101191191119111990919111199111111011111911199
- 9191011919111911111109111191919191990000000000000000}
- ParentFont = False
- OnClick = xobClick
- end
- object xob3: TSpeedButton
- Tag = 3
- Left = 84
- Top = 0
- Width = 28
- Height = 25
- Hint = 'Stone'
- GroupIndex = 2
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000888880
- 0000000088888888800000088888888888000088888877778880008888877777
- 7880088888777777778808888877777777880888887777777788088888777777
- 7788088888777777778808888887777778800088888877778880000888888888
- 8800000088888888800000000888888000000000000000000000}
- ParentFont = False
- OnClick = xobClick
- end
- object xob4: TSpeedButton
- Tag = 4
- Left = 112
- Top = 0
- Width = 28
- Height = 25
- Hint = 'Food'
- GroupIndex = 2
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000
- 000000000AAA00AAA00000AAAA9AAAA99AA00AA99999AA9999A00A9999999999
- 99AA0A9999999999999A0A9999999999999A0AA999999999999A0AA999999999
- 999A0A9999999999999A0A999999999999AA0AAAAAAA99999AA000AA000AAA99
- AA000000000A0AAAA00000000AAA000A000000000A0000000000}
- ParentFont = False
- OnClick = xobClick
- end
- object xob5: TSpeedButton
- Tag = 5
- Left = 140
- Top = 0
- Width = 28
- Height = 25
- GroupIndex = 2
- Enabled = False
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = xobClick
- end
- object xob6: TSpeedButton
- Tag = 6
- Left = 168
- Top = 0
- Width = 28
- Height = 25
- GroupIndex = 2
- Enabled = False
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = xobClick
- end
- object xob7: TSpeedButton
- Tag = 7
- Left = 196
- Top = 0
- Width = 28
- Height = 25
- GroupIndex = 2
- Enabled = False
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- Margin = 2
- ParentFont = False
- OnClick = xobClick
- end
- object xob9: TSpeedButton
- Tag = 9
- Left = 252
- Top = 0
- Width = 28
- Height = 25
- Hint = 'Mr. Matt'
- GroupIndex = 2
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D0BBBBB00BBB
- BB0000000CC00CC0000000000CCCCCC000000BCCCCCCCCCCCCB00BCCCCCCCCCC
- CCB000000BBBBBBB00000000BB00000BB000000BB00BBB00BB00000BBBBB0BBB
- BB00000BBBBB0BBBBB00000BB000B000BB00000BBB0BBB0BBB000003BBBBBBBB
- B300003333B3BBB33300000333333B3330000003333333333000}
- ParentFont = False
- OnClick = xobClick
- end
- object xob8: TSpeedButton
- Tag = 8
- Left = 224
- Top = 0
- Width = 28
- Height = 25
- GroupIndex = 2
- Enabled = False
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- Margin = 2
- ParentFont = False
- OnClick = xobClick
- end
- end
- end
- object mMain: TMainMenu
- Left = 465
- Top = 44
- object mFile: TMenuItem
- Caption = '&File'
- ShortCut = 0
- object mLoad: TMenuItem
- Caption = '&Load game...'
- ShortCut = 0
- OnClick = xLoadClick
- end
- object mNew: TMenuItem
- Caption = '&New game...'
- ShortCut = 0
- Visible = False
- OnClick = mNewClick
- end
- object mSave: TMenuItem
- Caption = '&Save game'
- ShortCut = 0
- Visible = False
- OnClick = mSaveClick
- end
- object mSaveAs: TMenuItem
- Caption = 'Save game &as...'
- ShortCut = 0
- Visible = False
- OnClick = mSaveAsClick
- end
- object mIgnore: TMenuItem
- Caption = '&Ignore checksum'
- ShortCut = 0
- Visible = False
- OnClick = mIgnoreClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- Visible = False
- end
- object mEditMode: TMenuItem
- Caption = '&Edit game'
- ShortCut = 0
- Visible = False
- OnClick = mEditModeClick
- end
- object N3: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object mExit: TMenuItem
- Caption = '&Quit Mr. Matt'
- ShortCut = 0
- OnClick = mExitClick
- end
- end
- object mGame: TMenuItem
- Caption = '&Game'
- ShortCut = 0
- object mStepBack: TMenuItem
- Caption = 'Step &back'
- Enabled = False
- ShortCut = 0
- OnClick = mStepBackClick
- end
- object mGiveUp: TMenuItem
- Caption = '&Give up'
- Enabled = False
- ShortCut = 0
- OnClick = mGiveUpClick
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object mTake: TMenuItem
- Caption = '&Take snapshot'
- Enabled = False
- ShortCut = 0
- OnClick = mTakeClick
- end
- object mRestore: TMenuItem
- Caption = '&Restore snapshot'
- Enabled = False
- ShortCut = 0
- OnClick = mRestoreClick
- end
- object mPlayBack: TMenuItem
- Caption = '&Play back'
- ShortCut = 0
- OnClick = mPlayBackClick
- end
- object mShow: TMenuItem
- Caption = '&Show solution'
- ShortCut = 0
- OnClick = mShowClick
- end
- end
- object mEdit: TMenuItem
- Caption = '&Edit'
- ShortCut = 0
- Visible = False
- object mAdd: TMenuItem
- Caption = '&Add new level'
- ShortCut = 0
- OnClick = mAddClick
- end
- object mRemove: TMenuItem
- Caption = '&Delete level'
- ShortCut = 0
- OnClick = mRemoveClick
- end
- object mClear: TMenuItem
- Caption = 'Cl&ear level'
- ShortCut = 0
- OnClick = mClearClick
- end
- object N5: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object mMoveUp: TMenuItem
- Caption = 'Move level &up'
- ShortCut = 0
- OnClick = mMoveUpClick
- end
- object mMoveDown: TMenuItem
- Caption = 'Move level &down'
- ShortCut = 0
- OnClick = mMoveDownClick
- end
- object mCopy: TMenuItem
- Caption = '&Copy previous level'
- ShortCut = 0
- OnClick = mCopyClick
- end
- object N4: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object mLevelName: TMenuItem
- Caption = '&Level name'
- ShortCut = 0
- OnClick = mLevelNameClick
- end
- object mGameName: TMenuItem
- Caption = '&Game name'
- ShortCut = 0
- OnClick = mGameNameClick
- end
- object mReadOnly: TMenuItem
- Caption = '&Read only'
- ShortCut = 0
- Visible = False
- OnClick = mReadOnlyClick
- end
- object mRegOnly: TMenuItem
- Caption = '&Only registered'
- ShortCut = 0
- Visible = False
- OnClick = mRegOnlyClick
- end
- end
- object mOptions: TMenuItem
- Caption = '&Options'
- ShortCut = 0
- object mNoStup: TMenuItem
- Caption = '&No stupid moves'
- ShortCut = 0
- OnClick = mNoStupClick
- end
- object mSound: TMenuItem
- Caption = '&Sound'
- Checked = True
- ShortCut = 0
- OnClick = mSoundClick
- end
- object mGraphics: TMenuItem
- Caption = '&Graphics'
- ShortCut = 0
- object mSpr1: TMenuItem
- Tag = 1
- Caption = '&Apples'
- ShortCut = 0
- OnClick = mSprClick
- end
- object mSpr2: TMenuItem
- Tag = 2
- Caption = '&Carrots'
- ShortCut = 0
- OnClick = mSprClick
- end
- object mSpr3: TMenuItem
- Tag = 3
- Caption = '&Hamburgers'
- ShortCut = 0
- OnClick = mSprClick
- end
- end
- end
- object xHelp: TMenuItem
- Caption = '&Help'
- ShortCut = 0
- object mHelp: TMenuItem
- Caption = '&Help'
- ShortCut = 0
- OnClick = mHelpClick
- end
- object mRegister: TMenuItem
- Caption = '&Registration'
- ShortCut = 0
- OnClick = mRegisterClick
- end
- object mAbout: TMenuItem
- Caption = '&About Mr. Matt...'
- ShortCut = 0
- OnClick = mAboutClick
- end
- end
- end
- object xTim: TTimer
- Enabled = False
- OnTimer = xTimTimer
- Left = 465
- Top = 11
- end
- object xWaitTim: TTimer
- Enabled = False
- Interval = 2400
- OnTimer = xWaitTimTimer
- Left = 465
- Top = 78
- end
- object xSelect: TSaveDialog
- DefaultExt = '*.m'
- FileEditStyle = fsEdit
- Options = [ofPathMustExist]
- Left = 465
- Top = 111
- end
- end
-