Graphics 800,600,16,2
AutoMidHandle True
Global tmrSparks,frmSparks,player
Global playerimage = LoadImage("player.bmp")
Global enemyimage = LoadImage("enemy.bmp")
Global enemybullet = LoadImage("enemybullet.bmp")
Global playerbullet = LoadAnimImage("playerbullet.bmp",8,15,0,2)
Type player
Field x,y ; Player x and y coordinates
End Type
InitializeLevel()
While Not KeyHit(1)
Cls ; Standard clear screen
DrawImage playerimage,player\x,player\y
Flip ; show the buffer
Wend
Function InitializeLevel()
player\x = 400
player\y = 400
End Function