AppTitle "Shooter Game 2000"
Graphics 1147,800,32,2; Setzt den Grafik modus

Shooter = CreateImage(20,50)
SetBuffer ImageBuffer(Shooter)
Oval 0,30,20,20
Rect 0,0,5,50
SetBuffer BackBuffer(); Setzt den BackBuffer()

Feind = CreateImage(20,50)
SetBuffer ImageBuffer(Feind)
Oval 0,0,20,20
Rect 0




Type schuss ; Type schuss
Field schussx
Field schussy
End Type

Type feind
Field f_x
Field f_y
End Type

Global f.feind
Global s.schuss

Repeat
If KeyDown(200) Then y = y - 10
If KeyDown(208) Then y = y + 10
If KeyDown(203) Then x = x - 10
If KeyDown(205) Then x = x + 10
If x < 0 Then x = 0
If y < 0 Then y = 0
If x > 1127 Then x = 1127
If y > 750 Then y = 750
 



If KeyHit(57) Then
s.schuss = New schuss
s\schussx = x
s\schussy = y
EndIf

For s.schuss  = Each schuss

Color 255,0,0
Line s\schussx,s\schussy,s\schussx,s\schussy + 10
s\schussy = s\schussy - 10
If s\schussy < 200 And s\schussx < 200 Then Text 1,1, "Getroffen!"

If s\schussy < -10 Then Delete s.schuss

Next

DrawImage Shooter,x,y

Flip
Cls

Until KeyHit(1)
End