c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
81 lines
1.5 KiB
Text
81 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
|