;very simple bullet shooter code ([email protected])
Graphics 640,480,16,2
SetBuffer BackBuffer()
HidePointer()
; for the bullets
Type bullet
Field x,y
End Type
playerx=320
playery=240
While Not KeyHit(1)
Cls
playerx=MouseX()
playery=MouseY()
If MouseHit(1) Then fire_bullet(playerx,playery) ; needs an x and y pos to start from
Oval playerx,playery,8,8 ; draw the player
update_all_bullets() ; process bullets that have been created with fire_bullet
Flip
Wend
End
Function fire_bullet(x,y)
b.bullet=New bullet
b\x=x
b\y=y
End Function
Function update_all_bullets()
For b.bullet=Each bullet
If b\x>640
Delete b
Else
b\x=b\x+4
Plot b\x,b\y
EndIf
Next
End Function