That did not work, so I'll post more of my code.
Const MAX_WIDTH = 640
Const MAX_HEIGHT = 480
Const MAX_DEPTH = 32
Const MAX_FPS = 60
Const MAX_TICKS# = 1000.0
Const KEY_ESC = 1
Const KEY_ENTER = 28
Const KEY_SPACE = 57
Const KEY_LEFT = 203
Const KEY_RIGHT = 205
Const KEY_UP = 200
Const KEY_DOWN = 208
Const KEY_LEFTCTRL = 29
Const KEY_F2 = 60
Global TitleImg = LoadImage("Title.bmp")
Global GameoverImg = LoadImage("Gameover.bmp")
Global BackdropImg = LoadImage("Backdrop.bmp")
Global PlayerImg = LoadImage("PlayerShip.bmp")
Global EnemyImg = LoadImage("EnemyShip.bmp")
Global BulletImg = LoadImage("Bullet.bmp")
Graphics MAX_WIDTH,MAX_HEIGHT,MAX_DEPTH
SetBuffer BackBuffer()
Type Player
Field Health
Field Lives
Field X#
Field Y#
Field Width
Field Height
Field X_Vel#
Field Y_Vel#
Field Move_Up
Field Move_Down
Field Move_Left
Field Move_Right
Field Fire_Bullet
Field Hit
Field Dead
Field Respawn_Time#
Field Offset_X#
Field Offset_Y#
Field Visible
Field Points
End Type
Type Enemy
Field Health
Field Lives
Field X#
Field Y#
Field Width
Field Height
Field X_Vel#
Field Y_Vel#
Field Hit
Field Dead
Field Points
Field Move_Up
Field Move_Down
Field Move_Left
Field Move_Right
Field Respawn_Time#
Field Offset_X#
Field Offset_Y#
Field Visible
End Type
Type Bullet
Field X#
Field Y#
Field X_Vel#
Field Y_Vel#
Field Visible
Field Life
Field Width
Field Height
End Type
Global Scroll_X = 0
Global Scroll_Y = 0
Global TitleScreen = True
Global GameScreen = False
Global GameoverScreen = False
Global gPlayer.Player = New Player
Global gEnemy.Enemy = New Enemy
Global gBullet.Bullet = New Bullet
Function GameLoop()
While Not KeyHit(KEY_ESC)
Cls()
GameTime = MilliSecs()
FPS# = MAX_TICKS / (GameTime - GameTime2)
GameTime2 = GameTime
If TitleScreen = True Then
Cls
DrawImage TitleImg,0,0
EndIf
If KeyHit(KEY_ENTER) And TitleScreen = True Then
TitleScreen = False
GameScreen = True
EndIf
Scroll_X = Scroll_X - 2
If Scroll_X <= -MAX_WIDTH Then
Scroll_X = 0
EndIf
If GameScreen = True Then
DrawImage BackdropImg,Scroll_X + MAX_WIDTH,Scroll_Y
EndIf
Text 1,1,"FPS:" + Int(FPS#)
Flip
Wend
End Function
GameLoop()
|