82 lines
1.5 KiB
Text
82 lines
1.5 KiB
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
'
|
||
|
|
' Copyright (C) 2004, Michael Isaac. All rights reserved.
|
||
|
|
'
|
||
|
|
|
||
|
|
Private Attacking As Boolean
|
||
|
|
|
||
|
|
Public Sub _new()
|
||
|
|
mMain.Canvas = daCanvas
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub tmrMainLoop_Timer()
|
||
|
|
mMain.MainLoop()
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Form_KeyPress()
|
||
|
|
|
||
|
|
Select Case Key.Code
|
||
|
|
Case Key.Left
|
||
|
|
MMain.Obj[0].TurnLeft = True
|
||
|
|
Case Key.Right
|
||
|
|
MMain.Obj[0].TurnRight = True
|
||
|
|
Case Key.Up
|
||
|
|
MMain.Obj[0].Thrust = True
|
||
|
|
Case Key["F"]
|
||
|
|
MMain.Obj[0].Attack = True
|
||
|
|
Case Key["D"]
|
||
|
|
MMain.Obj[0].MX = 0
|
||
|
|
MMain.Obj[0].MY = 0
|
||
|
|
End Select
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Form_KeyRelease()
|
||
|
|
|
||
|
|
Select Case Key.Code
|
||
|
|
Case Key.Left
|
||
|
|
MMain.Obj[0].TurnLeft = False
|
||
|
|
Case Key.Right
|
||
|
|
MMain.Obj[0].TurnRight = False
|
||
|
|
Case Key.Up
|
||
|
|
MMain.Obj[0].Thrust = False
|
||
|
|
Case Key["F"]
|
||
|
|
MMain.Obj[0].Attack = False
|
||
|
|
End Select
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Form_Close()
|
||
|
|
mMain.Exit()
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Form_Resize()
|
||
|
|
mMain.SCREEN_WIDTH = Me.ClientW
|
||
|
|
mMain.SCREEN_HEIGHT = Me.ClientH
|
||
|
|
|
||
|
|
daCanvas.H = Me.ClientH
|
||
|
|
daCanvas.W = Me.ClientW
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub daCanvas_KeyPress()
|
||
|
|
Form_KeyPress()
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub daCanvas_KeyRelease()
|
||
|
|
Form_KeyRelease()
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub mnuMainExit_Click()
|
||
|
|
Me.Delete
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub mnuMainAbout_Click()
|
||
|
|
FAbout.Show()
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub mnuShowText_Click()
|
||
|
|
|
||
|
|
mnuShowText.Checked = Not mnuShowText.Checked
|
||
|
|
MMain.ShowObjectLabel = mnuShowText.Checked
|
||
|
|
|
||
|
|
End
|