object FTetris: TFTetris Left = -2 Top = 0 Width = 640 Height = 480 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMinimize] Caption = 'SGH'#39's Tris Game' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True Position = poScreenCenter OnCreate = FormCreate OnKeyDown = FormKeyDown OnMouseDown = FormMouseDown OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object Back1: TImage Left = 8 Top = 29 Width = 210 Height = 330 end object lRemName: TLabel Left = 408 Top = 0 Width = 233 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Remote Player' Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lLocName: TLabel Left = 0 Top = 0 Width = 233 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Local Player' Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label5: TLabel Left = 328 Top = 2 Width = 65 Height = 17 Alignment = taCenter AutoSize = False Caption = 'Remote' Color = clYellow Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label6: TLabel Left = 316 Top = 48 Width = 41 Height = 13 AutoSize = False Caption = 'Score' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label7: TLabel Left = 317 Top = 72 Width = 41 Height = 13 AutoSize = False Caption = 'Lines' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lMessage: TLabel Left = 237 Top = 228 Width = 169 Height = 128 Alignment = taCenter AutoSize = False Caption = 'System Messages' Color = clBlack Font.Color = clYellow Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Transparent = True WordWrap = True end object lScoreRem: TLabel Left = 360 Top = 48 Width = 41 Height = 13 AutoSize = False Caption = '0' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lLinesRem: TLabel Left = 360 Top = 72 Width = 49 Height = 13 AutoSize = False Caption = '0' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lLines: TLabel Left = 276 Top = 72 Width = 41 Height = 13 AutoSize = False Caption = '0' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label10: TLabel Left = 248 Top = 2 Width = 49 Height = 17 Alignment = taCenter AutoSize = False Caption = 'Local' Color = clYellow Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object lScore: TLabel Left = 276 Top = 48 Width = 41 Height = 13 AutoSize = False Caption = '0' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label12: TLabel Left = 236 Top = 48 Width = 41 Height = 13 AutoSize = False Caption = 'Score' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label13: TLabel Left = 236 Top = 72 Width = 41 Height = 13 AutoSize = False Caption = 'Lines' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label14: TLabel Left = 316 Top = 96 Width = 41 Height = 13 AutoSize = False Caption = 'Level' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lLevelRem: TLabel Left = 360 Top = 96 Width = 41 Height = 13 AutoSize = False Caption = '1' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label16: TLabel Left = 236 Top = 96 Width = 33 Height = 13 AutoSize = False Caption = 'Level' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lLevel: TLabel Left = 276 Top = 96 Width = 41 Height = 13 AutoSize = False Caption = '1' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Back2: TImage Left = 421 Top = 29 Width = 210 Height = 330 end object lNext: TLabel Left = 236 Top = 120 Width = 33 Height = 17 AutoSize = False Caption = 'Next' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object iNext: TImage Left = 269 Top = 123 Width = 45 Height = 30 Stretch = True OnClick = ImageCheat end object Posx: TImage Left = 8 Top = 360 Width = 210 Height = 5 end object Posy: TImage Left = 219 Top = 29 Width = 5 Height = 330 end object Label1: TLabel Left = 238 Top = 24 Width = 35 Height = 17 AutoSize = False Caption = 'Wins' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label2: TLabel Left = 317 Top = 24 Width = 37 Height = 17 AutoSize = False Caption = 'Wins' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lLocWins: TLabel Left = 277 Top = 24 Width = 33 Height = 13 AutoSize = False Caption = '0' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lRemWins: TLabel Left = 360 Top = 24 Width = 41 Height = 13 AutoSize = False Caption = '0' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object rChatLog: TRichEdit Left = 168 Top = 375 Width = 337 Height = 34 TabStop = False Color = clTeal Lines.Strings = ( 'rChatLog') ScrollBars = ssVertical TabOrder = 7 WantTabs = True OnKeyDown = rChatKeyDown OnMouseDown = rChatmDown end object tChat: TEdit Left = 168 Top = 423 Width = 337 Height = 21 Color = clTeal Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnKeyDown = tEditKeyDown OnMouseDown = tEditMouseDown end object bQuit: TBitBtn Left = 525 Top = 426 Width = 65 Height = 21 Caption = '&Exit' ModalResult = 2 TabOrder = 1 OnClick = bQuitClick Glyph.Data = { BE060000424DBE06000000000000360400002800000024000000120000000100 0800000000008802000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C0007D654F00B199 8300000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000D9CCC100A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030303030303030303030303030303030303030303030303030303030303 0303F8F80303030303030303030303030303030303FF03030303030303030303 0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303 03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF 030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8 FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303 030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101 F803030303030303F8FF030303F803030303FFF80303030303030303F9010101 010101F8030303030303030303F8FF030303030303FFF8030303030303030303 030101010101F80303030303030303030303F8FF0303030303F8030303030303 0303030303F901010101F8030303030303030303030303F8FF030303F8030303 0303030303030303F90101010101F8030303030303030303030303F803030303 F8FF030303030303030303F9010101F8010101F803030303030303030303F803 03030303F8FF0303030303030303F9010101F803F9010101F803030303030303 03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303 03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901 0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303 030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303 03030303030303030303030303030303030303030303030303F8F8F803030303 0303030303030303030303030303030303030303030303030303030303030303 0303} NumGlyphs = 2 end object bHelp: TBitBtn Left = 86 Top = 424 Width = 65 Height = 21 TabOrder = 6 OnClick = bHelpClick Kind = bkHelp end object bNew: TBitBtn Left = 525 Top = 384 Width = 65 Height = 25 Caption = '&New' TabOrder = 2 Visible = False OnClick = bNewClick Kind = bkRetry end object bPause: TBitBtn Left = 86 Top = 384 Width = 65 Height = 24 Caption = '&Pause' TabOrder = 4 Visible = False OnClick = bPauseClick Kind = bkNo end object bAgentMessage: TButton Left = 288 Top = 320 Width = 97 Height = 25 Caption = 'bAgentMessage' TabOrder = 8 Visible = False OnMouseUp = AgentMessUp end object CombLevel: TComboBox Left = 328 Top = 123 Width = 69 Height = 21 Style = csDropDownList Color = clBackground Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 3 OnChange = CombLevelChange end object bSound: TBitBtn Left = 4 Top = 424 Width = 78 Height = 22 Caption = '&Sound On' ModalResult = 6 TabOrder = 5 OnClick = bSoundClick Glyph.Data = { BE060000424DBE06000000000000360400002800000024000000120000000100 0800000000008802000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C0007D654F00B199 8300000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000D9CCC100A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030303030303030303030303030303030303030303030303030303030303 03030303030303030303030303030303030303030303FF030303030303030303 03030303030303040403030303030303030303030303030303F8F8FF03030303 03030303030303030303040202040303030303030303030303030303F80303F8 FF030303030303030303030303040202020204030303030303030303030303F8 03030303F8FF0303030303030303030304020202020202040303030303030303 0303F8030303030303F8FF030303030303030304020202FA0202020204030303 0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202 040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303 03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303 FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303 0303030303030303030303FA0202020403030303030303030303030303F8FF03 03F8FF03030303030303030303030303FA020202040303030303030303030303 0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303 03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403 030303030303030303030303F8FF0303F8FF03030303030303030303030303FA 0202040303030303030303030303030303F8FF03F8FF03030303030303030303 03030303FA0202030303030303030303030303030303F8FFF803030303030303 030303030303030303FA0303030303030303030303030303030303F803030303 0303030303030303030303030303030303030303030303030303030303030303 0303} NumGlyphs = 2 end object bMusic: TBitBtn Left = 4 Top = 384 Width = 77 Height = 25 Caption = '&Music On' ModalResult = 6 TabOrder = 9 OnClick = bMusicClick Glyph.Data = { BE060000424DBE06000000000000360400002800000024000000120000000100 0800000000008802000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C0007D654F00B199 8300000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000D9CCC100A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030303030303030303030303030303030303030303030303030303030303 03030303030303030303030303030303030303030303FF030303030303030303 03030303030303040403030303030303030303030303030303F8F8FF03030303 03030303030303030303040202040303030303030303030303030303F80303F8 FF030303030303030303030303040202020204030303030303030303030303F8 03030303F8FF0303030303030303030304020202020202040303030303030303 0303F8030303030303F8FF030303030303030304020202FA0202020204030303 0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202 040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303 03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303 FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303 0303030303030303030303FA0202020403030303030303030303030303F8FF03 03F8FF03030303030303030303030303FA020202040303030303030303030303 0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303 03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403 030303030303030303030303F8FF0303F8FF03030303030303030303030303FA 0202040303030303030303030303030303F8FF03F8FF03030303030303030303 03030303FA0202030303030303030303030303030303F8FFF803030303030303 030303030303030303FA0303030303030303030303030303030303F803030303 0303030303030303030303030303030303030303030303030303030303030303 0303} NumGlyphs = 2 end object LocTimer: TTimer Enabled = False Interval = 10 OnTimer = LocTimerTimer Left = 232 Top = 320 end object AgentMessTimer: TTimer Enabled = False Interval = 10 OnTimer = AgentMessTimerTimer Left = 384 Top = 320 end object PlayTimer: TTimer Enabled = False Interval = 700 OnTimer = PlayTimerTimer Left = 256 Top = 320 end object MusicTimer: TTimer Enabled = False OnTimer = MusicTimerTimer Left = 232 Top = 352 end end