Graphics3D 800,600,0,2
SetBuffer BackBuffer()

Type pfeil
 Field x
 Field y
 Field d#
 Field l0#
 Field l#
End Type

Type vogel
 Field x
 Field y
 Field vx
 Field dx
 Field dy
 Field pf.pfeil
End Type

Type blood
 Field ko#[2]
 Field v#[2]
End Type

bg=CreateImage(800,600)
 SetBuffer ImageBuffer(bg)
  Color 225,225,225 : Rect 0,0,800,600
 SetBuffer BackBuffer()

SeedRnd(MilliSecs())

While Not KeyHit(1)
If MilliSecs()-frametime>17 Then

DrawImage bg,0,0
Color 0,0,0

 If MilliSecs()-birdtime>1500 Then
  v.vogel=New vogel
   If Rand(0,1)=1 Then
    v\x=Rand(-100,-10)
    v\vx=Rand(1,5)
   Else
    v\x=Rand(810,900)
    v\vx=Rand(1,5)*-1
   EndIf
    v\y=Rand(0,200)
  birdtime=MilliSecs()
 EndIf

 Oval GraphicsWidth()/2-2,500,4,4
 If MouseHit(1) Then x0=MouseX() : y0=MouseY()

 If MouseDown(1) Then
  dir#=ATan2(y0-MouseY(),x0-MouseX())
  length#=Sqr((x0-MouseX())^2+(y0-MouseY())^2)/3
  If length#>100 Then length#=100
   Color 125,125,125
    Text x0-25,y0-25,Abs(dir#)
    Text MouseX()+25,MouseY()+40,length#
   Color 0,0,0
  Line 400,500,400+Cos(dir#)*50,500+Sin(dir#)*50
  Line x0,y0,MouseX(),MouseY()
 Else
  If x0<>0 And y0<>0 Then
   p.pfeil=New pfeil
    p\x=400 : p\y=499
    p\d=dir# : p\l=length#/2.2 : p\l0=length#/2.2
  EndIf
  x0=0 : y0=0
 EndIf

 If MilliSecs()-movetime>50 Then
  For p.pfeil=Each pfeil
   If p\y<500 Then
    p\l=p\l-2
    p\x=p\x+Cos(p\d)*p\l0
    p\y=p\y+Sin(p\d)*p\l
    If p\x<-100 Or p\x>900 Then Delete p.pfeil
   EndIf
  Next
  For v.vogel=Each vogel
   If v\y<500 Then
    If v\pf=Null Then
     v\x=v\x+v\vx
    Else
     v\x=v\pf\x+v\dx : v\y=v\pf\y+v\dy
    EndIf
   EndIf
   If v\x<-100 Or v\x>900 Then Delete v.vogel
  Next
  For b.blood=Each blood
   If b\ko[2]<550 Then
    b\ko[1]=b\ko[1]+b\v[1] : b\ko[2]=b\ko[2]+b\v[2]
    b\v[2]=b\v[2]+1
   EndIf
  Next
  movetime=MilliSecs()
 EndIf

 For p.pfeil=Each pfeil
  dir2#=ATan(Sin(p\d)*p\l/(Cos(p\d)*p\l0))
  Line p\x-Cos(dir2)*10,p\y-Sin(dir2)*10,p\x+Cos(dir2)*10,p\y+Sin(dir2)*10

  If p\y>=500 Then
   SetBuffer ImageBuffer(bg)
    Line p\x-Cos(dir2)*10,p\y-Sin(dir2)*10,p\x+Cos(dir2)*10,p\y+Sin(dir2)*10
   SetBuffer BackBuffer()
   Delete p.pfeil
  EndIf
 Next

 For v.vogel=Each vogel
  Rect v\x,v\y,50,20
  For p.pfeil=Each pfeil
   If RectsOverlap(p\x-1,p\y-1,2,2,v\x,v\y,50,20) Then
    If v\pf=Null Then
     For k=0 To 29
      b.blood=New blood
       b\ko[1]=p\x : b\ko[2]=p\y
       b\v[1]=Rnd(-2,2) : b\v[2]=Rnd(-2,2)
     Next
    EndIf
    v\pf.pfeil=p.pfeil : v\dx=v\x-p\x : v\dy=v\y-p\y
    Exit
   EndIf
  Next

  If v\y>=500 Then
   SetBuffer ImageBuffer(bg)
    Rect v\x,v\y,50,20
   SetBuffer BackBuffer()
   Delete v.vogel
  EndIf
 Next

Color 255,0,0
 For b.blood=Each blood
  If b\ko[2]<=550 Then
   Oval b\ko[1]-2,b\ko[2]-2,4,4
  Else
   SetBuffer ImageBuffer(bg)
    Oval b\ko[1]-4,b\ko[2]-2,8,4
   SetBuffer BackBuffer()
   Delete b.blood
  EndIf
  If b<>Null Then
   If b\ko[1]<0 Or b\ko[1]>800 Then Delete b.blood
  EndIf
 Next

Flip 0 : Cls
frametime=MilliSecs()
EndIf
Wend : End

Type Player
   Field PosX
   Field PosY
   Field YSpeed
   Field Figur
End Type

Type DerBall
   Field PosX
   Field PosY
   Field XSpeed
   Field YSpeed
   Field Figur
End Type

Global punkte = 0
timer = CreateTimer

AppTitle "Kopfball"
Graphics 800,600,16,2
SetBuffer BackBuffer()

Spieler.Player = New Player
Color 0,0,255
Spieler\PosX = 400
Spieler\PosY = 525
Spieler\YSpeed = 0
Spieler\Figur = CreateImage(50,75)
SetBuffer ImageBuffer(Spieler\Figur)
Oval 0,25,50,50,1
Oval 10,10,30,30
SetBuffer BackBuffer()

Ball.DerBall = New DerBall
Color 200,200,200
Ball\PosX = 400
Ball\PosY = 300
Ball\XSpeed = 0
Ball\YSpeed = 0
Ball\Figur = CreateImage(40,40)
SetBuffer ImageBuffer(Ball\Figur)
Oval 0,0,40,40,1
SetBuffer BackBuffer()

Color 0,0,0
ClsColor 255,255,140

timer = MilliSecs()

Repeat
If Ball\PosY >= 560 Then punkte = 0

If MilliSecs() >= timer + 18 Then
   timer = MilliSecs()
   If Ball\PosY > 800 Then Goto marke1
   If Ball\PosY < 560 Then Ball\YSpeed = Ball\YSpeed + 1   ;erdanziehung / beschleunigung (immer)
   Ball\PosY = Ball\PosY + Ball\YSpeed
   Ball\PosX = Ball\PosX + Ball\XSpeed
   If  Ball\PosX <= 0 Then Ball\XSpeed = Ball\XSpeed * (-1)
   If  Ball\PosX >= 760 Then Ball\XSpeed = Ball\XSpeed * (-1)
   If  Ball\PosY >= 560 Then Ball\YSpeed = Ball\YSpeed * (-1) / 2
   If Ball\PosY > 560 Then Ball\PosY = 560
   
   If Spieler\PosY < 525 Then Spieler\YSpeed = Spieler\YSpeed + 1
   Spieler\PosY = Spieler\PosY + Spieler\YSpeed
   If Spieler\PosY > 525 Then Spieler\PosY = 525

   
End If

.marke1

If ImagesCollide(Spieler\Figur, Spieler\PosX, Spieler\PosY, 0, Ball\Figur, Ball\PosX, Ball\PosY, 0) Then
   
   Ball\PosY = Spieler\PosY - 40
   
   Ball\YSpeed = -23 + Spieler\YSpeed / 4
   Ball\XSpeed = (Ball\PosX - Spieler\PosX - 5) / 4
   
   If Ball\XSpeed = 0 Then Ball\XSpeed = 5
   
   Punkte = Punkte + 1
End If

If KeyDown(205) Then  Spieler\PosX = Spieler\PosX + 7
If KeyDown(203) Then  Spieler\PosX = Spieler\PosX - 7
If KeyDown(200)  And Spieler\PosY = 525 Then Spieler\YSpeed = -20

If Spieler\PosX > 750 Then Spieler\PosX = 750
If Spieler\PosX < 0 Then Spieler\PosX = 0

DrawImage Ball\Figur, Ball\PosX, Ball\PosY
DrawImage Spieler\Figur, Spieler\PosX, Spieler\PosY

Flip
Cls


Text  50, 50, "Punkte: " + Punkte

Until KeyHit(1)

End