object Form1: TForm1
  Left = 437
  Top = 423
  BorderStyle = bsToolWindow
  Caption = 'ANNO 1602 Ship+Money Cheater'
  ClientHeight = 172
  ClientWidth = 413
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 200
    Top = 8
    Width = 6
    Height = 22
    Caption = '-'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 40
    Top = 40
    Width = 32
    Height = 33
    Caption = '00'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 152
    Top = 8
    Width = 43
    Height = 22
    Caption = 'Ship:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 152
    Top = 112
    Width = 258
    Height = 13
    Caption = 'Do not move the ship or the game may crash.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label5: TLabel
    Left = 16
    Top = 16
    Width = 91
    Height = 22
    Caption = 'Savegame'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 8
    Top = 12
    Width = 137
    Height = 69
  end
  object Label6: TLabel
    Left = 307
    Top = 32
    Width = 5
    Height = 22
    Caption = 't'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 160
    Top = 136
    Width = 56
    Height = 22
    Caption = 'Money'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Bevel2: TBevel
    Left = 152
    Top = 128
    Width = 227
    Height = 37
  end
  object Label8: TLabel
    Left = 8
    Top = 124
    Width = 130
    Height = 12
    Caption = '(C) Thomas Lemkemeyer 1998'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 8
    Top = 136
    Width = 125
    Height = 12
    Caption = 'EMail: lemmy@uni-bremen.de'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 8
    Top = 112
    Width = 93
    Height = 12
    Caption = 'Ship + Money Cheater'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 387
    Top = 140
    Width = 23
    Height = 24
    Caption = '?'
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object Label12: TLabel
    Left = 277
    Top = 88
    Width = 80
    Height = 22
    Caption = 'Cannons:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 80
    Top = 40
    Width = 57
    Height = 33
    Caption = 'Load'
    TabOrder = 0
    OnClick = Button1Click
  end
  object ships: TComboBox
    Left = 8
    Top = 88
    Width = 137
    Height = 21
    ItemHeight = 13
    TabOrder = 1
    Text = 'No ships loaded'
    OnChange = shipsChange
  end
  object poses: TComboBox
    Left = 8
    Top = 176
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    Text = 'poses'
    Visible = False
  end
  object UpDown1: TUpDown
    Left = 16
    Top = 40
    Width = 18
    Height = 32
    Min = 0
    Max = 11
    Position = 0
    TabOrder = 3
    Wrap = False
    OnClick = UpDown1Click
  end
  object bar1: TTrackBar
    Left = 312
    Top = 30
    Width = 89
    Height = 25
    Max = 50
    Orientation = trHorizontal
    Frequency = 5
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 4
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = bar1Change
  end
  object item1: TComboBox
    Left = 152
    Top = 32
    Width = 97
    Height = 21
    ItemHeight = 13
    Items.Strings = (
      '(leer)'
      'Erz'
      'Gold'
      'Wolle'
      'Zuckerrohr'
      'Tabak'
      'Schlachtvieh'
      'Getreide'
      'Mehl'
      'Eisen'
      'Schwerter'
      'Musketen'
      'Kanonen'
      'Nahrung'
      'Zigaretten'
      'Gew�rze'
      'Kakao'
      'Alkohol'
      'Stoffe'
      'Kleidung'
      'Schmuck'
      'Werkzeug'
      'Holz'
      'Steine')
    TabOrder = 5
  end
  object count1: TEdit
    Left = 256
    Top = 32
    Width = 49
    Height = 21
    TabOrder = 6
    OnChange = count1Change
  end
  object RadioButton1: TRadioButton
    Left = 152
    Top = 64
    Width = 25
    Height = 17
    Alignment = taLeftJustify
    Caption = '1'
    Checked = True
    TabOrder = 7
    TabStop = True
    OnClick = RadioButton1Click
  end
  object RadioButton2: TRadioButton
    Left = 184
    Top = 64
    Width = 25
    Height = 17
    Alignment = taLeftJustify
    Caption = '2'
    TabOrder = 8
    OnClick = RadioButton2Click
  end
  object RadioButton3: TRadioButton
    Left = 216
    Top = 64
    Width = 25
    Height = 17
    Alignment = taLeftJustify
    Caption = '3'
    TabOrder = 9
    OnClick = RadioButton3Click
  end
  object RadioButton4: TRadioButton
    Left = 248
    Top = 64
    Width = 25
    Height = 17
    Alignment = taLeftJustify
    Caption = '4'
    TabOrder = 10
    OnClick = RadioButton4Click
  end
  object RadioButton5: TRadioButton
    Left = 280
    Top = 64
    Width = 25
    Height = 17
    Alignment = taLeftJustify
    Caption = '5'
    TabOrder = 11
    OnClick = RadioButton5Click
  end
  object RadioButton6: TRadioButton
    Left = 312
    Top = 64
    Width = 25
    Height = 17
    Alignment = taLeftJustify
    Caption = '6'
    TabOrder = 12
    OnClick = RadioButton6Click
  end
  object RadioButton7: TRadioButton
    Left = 344
    Top = 64
    Width = 25
    Height = 17
    Alignment = taLeftJustify
    Caption = '7'
    TabOrder = 13
    OnClick = RadioButton7Click
  end
  object RadioButton8: TRadioButton
    Left = 376
    Top = 64
    Width = 25
    Height = 17
    Alignment = taLeftJustify
    Caption = '8'
    TabOrder = 14
    OnClick = RadioButton8Click
  end
  object Button2: TButton
    Left = 328
    Top = 8
    Width = 65
    Height = 17
    Caption = 'SaveShip'
    Enabled = False
    TabOrder = 15
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 224
    Top = 136
    Width = 73
    Height = 21
    TabOrder = 16
    Text = '0'
    OnChange = Edit1Change
  end
  object Button3: TButton
    Left = 304
    Top = 136
    Width = 67
    Height = 21
    Caption = 'SaveMoney'
    Enabled = False
    TabOrder = 17
    OnClick = Button3Click
  end
  object Edit2: TEdit
    Left = 360
    Top = 88
    Width = 33
    Height = 21
    TabOrder = 20
    Text = '0'
    OnChange = Edit2Change
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 413
    Height = 171
    TabOrder = 19
    Visible = False
    object Memo1: TMemo
      Left = 8
      Top = 8
      Width = 313
      Height = 155
      Lines.Strings = (
        'ANNO 1602 Ship and Money Cheating Tool. V0.9'
        ''
        'Copy this tool to your ANNO 1602 installdirectiory'
        '( maybe C:\ANNO 1602\ ) and run it.'
        ''
        'Have fun...'
        ''
        '(c) by Thomas Lemkemeyer 1998'
        'EMail: lemmy@uni-bremen.de')
      TabOrder = 0
    end
    object Button4: TButton
      Left = 330
      Top = 138
      Width = 75
      Height = 25
      Caption = 'OK'
      TabOrder = 1
      OnClick = Button4Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 413
    Height = 171
    TabOrder = 18
    Visible = False
    object Label11: TLabel
      Left = 112
      Top = 64
      Width = 198
      Height = 24
      Caption = 'Loading Savegame...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
end