unit1.dfm

3d snake 游戏编程源码

        D6CED3D6000000000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D66B24086B24086B2408CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B
        24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D66B24086B24086B2408CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B24
        086B24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D66B24086B2408CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B2408
        6B24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D66B24086B24086B2408CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B
        24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D66B24086B24086B2408CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B24
        086B24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D66B24086B2408CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B2408
        6B24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D66B24086B24086B2408CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B
        24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D66B24086B24086B2408CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B24
        086B24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D66B24086B2408CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B2408
        6B24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D66B24086B24086B2408CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B
        24086B24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D66B24086B24086B24086B24086B2408CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D66B24086B24
        086B24086B24086B2408CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D66B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        2408}
    end
    object Label7: TLabel
      Left = 5
      Top = 456
      Width = 63
      Height = 14
      Caption = #21152#36895'/'#24320#22987
    end
    object Label8: TLabel
      Left = 88
      Top = 456
      Width = 63
      Height = 14
      Caption = #26242#20572'/'#24674#22797
    end
    object Label9: TLabel
      Left = 25
      Top = 387
      Width = 28
      Height = 14
      Caption = #27700#24179
    end
    object Label10: TLabel
      Left = 66
      Top = 387
      Width = 28
      Height = 14
      Caption = #22402#30452
    end
    object lblAppleCount: TLabel
      Left = 6
      Top = 169
      Width = 7
      Height = 14
    end
    object Bevel4: TBevel
      Left = 3
      Top = 379
      Width = 147
      Height = 2
    end
    object Label1: TLabel
      Left = 104
      Top = 387
      Width = 28
      Height = 14
      Caption = #36828#36817
    end
    object MemoMap: TMemo
      Left = 4
      Top = 4
      Width = 145
      Height = 110
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
  end
  object MainMenu1: TMainMenu
    Left = 168
    Top = 164
    object MenuGame: TMenuItem
      Caption = #28216#25103'(&G)'
      object MenuOpenGame: TMenuItem
        Caption = #25171#24320#28216#25103
      end
      object MenuViewScript: TMenuItem
        Caption = #28216#25103#33050#26412'...'
        OnClick = MenuViewScriptClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object MenuRestart: TMenuItem
        Caption = #37325#26032#24320#22987
        OnClick = MenuRestartClick
      end
      object MenuPause: TMenuItem
        Caption = #26242#20572#28216#25103
      end
      object MenuCloseMap: TMenuItem
        Caption = #20851#38381#22320#22270
        OnClick = MenuCloseMapClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MenuOption: TMenuItem
        Caption = #28216#25103#36873#39033'...'
        OnClick = MenuOptionClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MenuExit: TMenuItem
        Caption = #36864#20986
        OnClick = MenuExitClick
      end
    end
    object MenuHelp: TMenuItem
      Caption = #24110#21161'(&H)'
      object MenuSubHelp: TMenuItem
        Caption = #28216#25103#24110#21161'(&U)'
        OnClick = MenuSubHelpClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object MenuAbout: TMenuItem
        Caption = #20851#20110'3D'#36138#39135#34503'(&A)'
        OnClick = MenuAboutClick
      end
    end
  end
end