;shooter.bb
Graphics 640, 480
SetBuffer BackBuffer()
hinter = LoadImage("stars.bmp") ;bilder definieren
rakete = LoadImage("spaceship2.bmp")

SeedRnd MilliSecs()

box_x=10 ;ein x startwert für die box
box_y=20 ;ein y startwert für die box
meep=LoadSound("soundfx11.wav") ;das ist der sound wenn das schiff von dem bösen klotz getroffen wird
boom=LoadSound("soundfx20.wav") ;das ist der sound wenn das schiff den bösen klotz trifft (mit dem lieben klotz(unserem schuss))
leben = 10

Repeat
 bulletx=MouseX()+10 ;für den schuss
 bullety=MouseY()-40 ;für den schuss
 I = I+1
 If I=200 Then I=0 ;zeug für den hintergrund
 TileBlock hinter,0,I ;" " " "
 DrawImage rakete,MouseX(),MouseY() ;unser raumschiff

If ImageRectCollide (rakete,MouseX(),MouseY(),0,box_x,box_y,20,20) Then PlaySound(meep) :leben=leben-3 : box_x=1000

Text 100,100, leben ;zeigt die variable leben die bei beschuss und beim schiessen sinkt, und bei treffern steigt


If KeyHit(2) Then PlaySound(meep) : Rect MouseX()+10,MouseY()-40,20,20,0 : leben=leben-1
;wenn die taste 1 gedrückt ist spiele meep, mach ein holes rechteck über dem schiff und ziehe 1 leben ab

If box_y>640 Then box_y=-20 : box_x=Rand(1,640)
;wenn box den bildschirm verlässt wird neue box an zufälligem X erstellt

If RectsOverlap (bulletx,bullety,20, 20, box_x, box_y, 20,20) And KeyDown(2)  Then FlushKeys: PlaySound(boom) : box_x=1000 : leben=leben+2
;wenn die beiden rechtecke kollidieren und "1" gedrückt wird dann flushkeys, spiele boom, verschiebe die box aus dem sichtbereich, addiere 2 leben dazu

Rect box_x,box_y,20,20,1
box_y=box_y + 30 ;lässt die box nach unten fahren auf der Y achse

Flip
Until KeyHit(1)

;timer erstellen
takt=createtimer(60)
;erst nachdem takt bei 60 angekommen ist, fängt der nächste
Schleifendurchlauf an

Repeat
 waittimer(takt)
 t=t+1
 cls
 if t=>90 then schuss=true
 ;erst wenn t den Wert 90(1,5 sek) erreicht hat, kann wieder ein schuss stattfinden
 if keydown(28) and schuss=true then ;mit Enter(28)
  ;hier dann der Schussbefehl und Variabeln setzen
   t=0 : schuss=False
 endif
 [...]
  Flip
Until keyhit(1) ;mit Escape das Spiel beenden

end

[...]
evtl. funktionen und unterprogramme

global feuer=false

while not(keydown(1)) ; hauptschleife

if feuer=false then
   if keydown(schuss_taste) then
      feuer=true ; schusscode sperren
      create_schuss
   endif
endif
if not(keydown(schuss_taste) then feuer=false ; schusscode freigeben

wend ; hauptschleife

 I = I+1
 If I=200 Then I=0 ;zeug für den hintergrund

i=(i+1)mod 200