object frm_Pioneer: Tfrm_Pioneer Left = 132 Top = 100 BorderIcons = [biSystemMenu] BorderStyle = bsSingle ClientHeight = 396 ClientWidth = 597 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Icon.Data = {} KeyPreview = True Menu = MainMenu1 Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnKeyUp = FormKeyUp OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object Bevel1: TBevel Left = 32 Top = 32 Width = 535 Height = 313 end object Label1: TLabel Left = 32 Top = 9 Width = 40 Height = 16 Hint = 'Number of lives left' Caption = 'Lives:' ParentShowHint = False ShowHint = True end object lbl_Lives: TLabel Left = 80 Top = 10 Width = 16 Height = 16 Hint = 'Number of lives left' Caption = '00' ParentShowHint = False ShowHint = True end object Label2: TLabel Left = 461 Top = 9 Width = 41 Height = 16 Hint = 'Score achieved' Caption = 'Score:' ParentShowHint = False ShowHint = True end object lbl_Score: TLabel Left = 503 Top = 10 Width = 64 Height = 16 Hint = 'Score achieved' Alignment = taRightJustify Caption = '00000000' ParentShowHint = False ShowHint = True end object Label4: TLabel Left = 32 Top = 350 Width = 60 Height = 16 Hint = 'Number of missiles left' Caption = 'Missiles:' ParentShowHint = False ShowHint = True end object lbl_Missiles: TLabel Left = 96 Top = 350 Width = 32 Height = 16 Hint = 'Number of missiles left' Caption = '0000' ParentShowHint = False ShowHint = True end object Label5: TLabel Left = 496 Top = 350 Width = 49 Height = 16 Hint = 'Number of magnetic pulse bombs left' Caption = 'Pulses:' ParentShowHint = False ShowHint = True end object lbl_Pulses: TLabel Left = 550 Top = 350 Width = 16 Height = 16 Hint = 'Number of magnetic pulse bombs left' Caption = '00' ParentShowHint = False ShowHint = True end object img_WorkShop: TImage Left = 39 Top = 418 Width = 533 Height = 311 end object img_Space: TImage Left = 520 Top = 427 Width = 576 Height = 1440 AutoSize = True Picture.Data = {} end object img_Pioneer: TImage Left = 608 Top = 10 Width = 46 Height = 60 AutoSize = True Picture.Data = {} end object img_Enemy: TImage Left = 616 Top = 8 Width = 21 Height = 64 AutoSize = True Picture.Data = {} end object img_PioneerBlown: TImage Left = 608 Top = 76 Width = 160 Height = 64 AutoSize = True Picture.Data = {} end object img_EnemyBlown: TImage Left = 608 Top = 144 Width = 160 Height = 64 AutoSize = True Picture.Data = {} end object img_Bonus: TImage Left = 608 Top = 215 Width = 33 Height = 22 AutoSize = True Picture.Data = {} end object img_Mines: TImage Left = 611 Top = 211 Width = 40 Height = 20 AutoSize = True Picture.Data = {} end object img_Message: TImage Left = 608 Top = 280 Width = 205 Height = 98 AutoSize = True Picture.Data = {} end object img_Radar: TImage Left = 608 Top = 248 Width = 22 Height = 14 AutoSize = True Picture.Data = {} end object img_RadarBlown: TImage Left = 608 Top = 264 Width = 132 Height = 14 AutoSize = True Picture.Data = {} end object Label3: TLabel Left = 248 Top = 9 Width = 53 Height = 16 Hint = 'Number of targets (radars) to destroy' Caption = 'Targets:' ParentShowHint = False ShowHint = True end object lbl_Target: TLabel Left = 304 Top = 10 Width = 24 Height = 16 Hint = 'Number of targets (radars) to destroy' Caption = '000' ParentShowHint = False ShowHint = True end object img_Lasers: TImage Left = 608 Top = 320 Width = 26 Height = 34 AutoSize = True Picture.Data = {} end object img_Torpedo: TImage Left = 632 Top = 320 Width = 18 Height = 28 AutoSize = True Picture.Data = {} end object lbl_Level: TLabel Left = 297 Top = 348 Width = 22 Height = 46 Hint = 'Current level' Alignment = taRightJustify Caption = '0' Font.Color = clWindowText Font.Height = -40 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True end object img_Left: TImage Left = 616 Top = 296 Width = 29 Height = 46 AutoSize = True Picture.Data = {} end object img_LeftBlown: TImage Left = 616 Top = 328 Width = 145 Height = 46 AutoSize = True Picture.Data = {} end object img_Right: TImage Left = 608 Top = 328 Width = 29 Height = 46 AutoSize = True Picture.Data = {} end object img_RightBlown: TImage Left = 608 Top = 360 Width = 145 Height = 46 AutoSize = True Picture.Data = {} end object img_CrosserLaser: TImage Left = 608 Top = 80 Width = 14 Height = 36 AutoSize = True Picture.Data = {} end object img_GameOver: TImage Left = 616 Top = 224 Width = 192 Height = 72 AutoSize = True Picture.Data = {} end object img_Shareware: TImage Left = 608 Top = 160 Width = 191 Height = 52 AutoSize = True Picture.Data = {} end object img_RegMsg: TImage Left = 8 Top = 424 Width = 578 Height = 900 AutoSize = True Picture.Data = {} end object img_Registered: TImage Left = 80 Top = 432 Width = 543 Height = 600 AutoSize = True Picture.Data = {} end object MainMenu1: TMainMenu object FileMenu: TMenuItem Caption = '&File' ShortCut = 0 object mnu_NewGame: TMenuItem Caption = '&New Game' ShortCut = 0 OnClick = mnu_NewGameClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object mnu_PauseGame: TMenuItem Caption = '&Pause Game' ShortCut = 16464 OnClick = mnu_PauseGameClick end object mnu_StopGame: TMenuItem Caption = '&Stop Game' ShortCut = 0 OnClick = mnu_StopGameClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object mnu_ScoreList: TMenuItem Caption = 'Score &List...' ShortCut = 0 OnClick = mnu_ScoreListClick end object N5: TMenuItem Caption = '-' ShortCut = 0 end object mnu_Register: TMenuItem Caption = '&Register...' ShortCut = 0 OnClick = mnu_RegisterClick end object N6: TMenuItem Caption = '-' ShortCut = 0 end object mnu_SelectMidiFile1: TMenuItem Caption = 'Select &Midi File...' ShortCut = 0 OnClick = mnu_SelectMidiFile1Click end object N7: TMenuItem Caption = '-' ShortCut = 0 end object mnu_Exit: TMenuItem Caption = 'E&xit' ShortCut = 16472 OnClick = mnu_ExitClick end end object OptionsMenu: TMenuItem Caption = '&Options' ShortCut = 0 object mnu_SoundEffects: TMenuItem Caption = '&Sound Effects' ShortCut = 16467 OnClick = mnu_SoundEffectsClick end object mnu_BackgroundMusic1: TMenuItem Caption = 'Background &Music' ShortCut = 16461 OnClick = mnu_BackgroundMusic1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object mnu_Joystick: TMenuItem Caption = '&Joystick' ShortCut = 0 OnClick = mnu_JoystickClick end end object mnu_Level: TMenuItem Caption = '&Level' ShortCut = 0 OnClick = mnu_LevelClick end object HelpMenu: TMenuItem Caption = '&Help' ShortCut = 0 object mnu_Contents: TMenuItem Caption = '&Contents' ShortCut = 112 OnClick = mnu_ContentsClick end object mnu_RegInfo: TMenuItem Caption = '&Registration Info' ShortCut = 0 OnClick = mnu_RegInfoClick end object mnu_RegForm: TMenuItem Caption = 'Registration &Form' ShortCut = 0 OnClick = mnu_RegFormClick end object N4: TMenuItem Caption = '-' ShortCut = 0 end object mnu_About: TMenuItem Caption = '&About...' ShortCut = 0 OnClick = mnu_AboutClick end end end object tmr_Main: TTimer Enabled = False Interval = 100 OnTimer = tmr_MainTimer Top = 32 end object tmr_Joystick: TTimer Enabled = False Interval = 50 OnTimer = tmr_JoystickTimer Top = 96 end object tmr_Music: TTimer Interval = 2000 OnTimer = tmr_MusicTimer Top = 128 end object tmr_Keyboard: TTimer Enabled = False Interval = 50 OnTimer = tmr_KeyboardTimer Top = 160 end object tmr_Main1: TTimer Enabled = False Interval = 100 OnTimer = tmr_Main1Timer Top = 64 end object tmr_ShowSpace: TTimer Enabled = False Interval = 100 OnTimer = tmr_ShowSpaceTimer Top = 192 end object opn_SelectMidi: TOpenDialog FileEditStyle = fsEdit Filter = 'midi files *.mid; *.midi; *.rmi|*.mid;*.midi;*.rmi' Options = [ofReadOnly, ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Select Midi File' Top = 224 end object tmr_Paused: TTimer Enabled = False Interval = 100 OnTimer = tmr_PausedTimer Top = 256 end end