Cls
Graphics 1024,768,16,1
v1=LoadImage("vogel1.bmp")
v2=LoadImage("vogel2.bmp")
kreuz=LoadImage("kreuz.bmp")
hintergrund=LoadImage("hintergrund.bmp")
Repeat
rand1 = Rnd(1,50)
If rand1 = 1 Then
rand2 = Rnd(1,2)
rand3 = Rnd(1,500)
Dim vogelx(20)
Dim vogely(20)
Dim vogel(20)
For i=0 To 20
If vogel(i) = 0 Then
vogel(i) = rand2
If rand2 = 1 Then vogelx(i) = 1
Else vogelx(i) = 1024
vogely(i) = rand3
EndIf
Next
EndIf
For n=0 To 20
vogelx(n) = vogelx(n) + 1
DrawImage v1,vogelx(n),vogely(n)
Next
Cls
TileImage hintergrund, 1, 1
SetBuffer BackBuffer()
x = MouseX()
y = MouseY()
DrawImage kreuz, x, y
Flip
Until KeyHit(1)
End