object TheAvaruus: TTheAvaruus Left = -1 Top = 24 Width = 1027 Height = 734 Caption = 'Avaruus Meri Seikkailu 2005' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnDestroy = FormDestroy OnKeyPress = FormKeyPress PixelsPerInch = 96 TextHeight = 13 object Tausta: TPanel Left = 0 Top = 0 Width = 1019 Height = 710 Align = alClient Color = clNavy Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -45 Font.Name = 'Comic Sans MS' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Label2: TLabel Left = 173 Top = 16 Width = 50 Height = 20 Alignment = taCenter AutoSize = False Caption = 'X:' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -9 Font.Name = 'Lucida Handwriting' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Labelx: TLabel Left = 232 Top = 16 Width = 50 Height = 20 Alignment = taRightJustify AutoSize = False Caption = '0' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = 'MathSoftText' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label4: TLabel Left = 293 Top = 16 Width = 50 Height = 20 Alignment = taCenter AutoSize = False Caption = 'Y:' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -9 Font.Name = 'Lucida Handwriting' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Labely: TLabel Left = 354 Top = 16 Width = 50 Height = 20 Alignment = taRightJustify AutoSize = False Caption = '0' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = 'MathSoftText' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label5: TLabel Left = 415 Top = 16 Width = 50 Height = 20 Alignment = taCenter AutoSize = False Caption = 'Tila:' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -9 Font.Name = 'Lucida Handwriting' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Labelt: TLabel Left = 479 Top = 16 Width = 50 Height = 20 Alignment = taRightJustify AutoSize = False Caption = '0' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = 'MathSoftText' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Labels: TLabel Left = 354 Top = 48 Width = 50 Height = 20 Alignment = taRightJustify AutoSize = False Caption = '0' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = 'MathSoftText' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label3: TLabel Left = 293 Top = 48 Width = 50 Height = 20 Alignment = taCenter AutoSize = False Caption = 'Suunta:' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -9 Font.Name = 'Lucida Handwriting' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Labelv: TLabel Left = 232 Top = 48 Width = 50 Height = 20 Alignment = taRightJustify AutoSize = False Caption = '0' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = 'MathSoftText' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label1: TLabel Left = 173 Top = 48 Width = 50 Height = 20 Alignment = taCenter AutoSize = False Caption = 'Vauhti' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -9 Font.Name = 'Lucida Handwriting' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Pelaaja: TSprite Left = 788 Top = 168 Width = 24 Height = 24 OnMouseDown = PelaajaMouseDown OnMouseUp = PelaajaMouseUp SpritenHORKuva = '.\kuvia\pelaajaO.bmp' SpritenVERKuva = '.\kuvia\pelaajaY.bmp' SpritenPALAAKuva = '.\kuvia\pelaajaHAAV.bmp' SpritenKUOLIKuva = '.\kuvia\pelaajaKUOL.bmp' NappainYlos = 'Y' NappainVasen = 'G' NappainAlas = 'H' NappainOikea = 'J' Vauhti = 1 Suunta = 3 Tila = 1 KuolemaMusa = '.\aania\pam.wav' OnSpriteMove = PelaajaSpriteMove end object Label8: TLabel Left = 415 Top = 48 Width = 50 Height = 20 Alignment = taCenter AutoSize = False Caption = 'Määrä' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -9 Font.Name = 'Lucida Handwriting' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Labelmaara: TLabel Left = 479 Top = 48 Width = 50 Height = 20 Alignment = taRightJustify AutoSize = False Caption = '0' Color = clMaroon Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = 'MathSoftText' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Musa: TMediaPlayer Left = 632 Top = 16 Width = 253 Height = 30 AutoOpen = True FileName = '.\aania\Jazz.mid' Visible = False TabOrder = 0 end end object ButtonEXIT: TButton Left = 8 Top = 8 Width = 49 Height = 41 Caption = 'Exit' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Lucida Handwriting' Font.Style = [] ParentFont = False TabOrder = 0 TabStop = False OnClick = ButtonEXITClick end end