Code: Select all
Type AMMUKSET
Field fieldi
End Type
FrameLimit 40
man1=LoadObject("media\soldier.bmp")
man=LoadObject("media\soldier.bmp",72)
ammus=LoadObject("media\bullet.bmp")
ShowObject ammus,OFF
Repeat
If LeftKey() Then TurnObject man,5
If RightKey() Then TurnObject man,-5
If UpKey() Then MoveObject man,5
If DownKey() Then MoveObject man,-5
If KeyDown(cbkeyspace) And reload=0 Then
pati.AMMUKSET = New (AMMUKSET)
pati\fieldi = CloneObject (ammus)
CloneObjectPosition pati\fieldi, man
CloneObjectOrientation pati\fieldi, man
ResetObjectCollision pati\fieldi
reload=5
EndIf
If reload>0 Then reload=reload-1
For pati.AMMUKSET = Each AMMUKSET
MoveObject pati\fieldi, 5
Next pati
For pati.AMMUKSET = Each AMMUKSET
If ObjectsOverlap (pati\fieldi, man1) Then
DeleteObject pati\fieldi
Delete pati
EndIf
Next pati
DrawScreen
Forever