Graphics3D 800,600,0,2

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

Type vogel
 Field x
 Field y
 Field vx
 Field hitno
 Field dx
 Field dy
End Type

SeedRnd(MilliSecs())

While Not KeyHit(1)

Color 0,0,0:
 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
   anzp=anzp+1
   p.pfeil=New pfeil
    p\no=anzp
    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\hitno=0 Then
     v\x=v\x+v\vx
    Else
     For p.pfeil=Each pfeil
      If v\hitno=p\no Then
       v\x=p\x+v\dx : v\y=p\y+v\dy
      EndIf
     Next
    EndIf
   EndIf
   If v\x<-100 Or v\x>900 Then Delete v.vogel
  Next
  movetime=MilliSecs()
 EndIf

 For p.pfeil=Each pfeil
  Rect p\x-5,p\y-5,10,10
 Next

 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

 For v.vogel=Each vogel
  Rect v\x,v\y,50,20
  For p.pfeil=Each pfeil
   If RectsOverlap(p\x-5,p\y-5,10,10,v\x,v\y,50,20) Then v\hitno=p\no : v\dx=v\x-p\x : v\dy=v\y-p\y
  Next
 Next

Flip 0 : Cls : ClsColor 225,225,225
Wend : End

Graphics 800,600,16:SeedRnd MilliSecs()
ball=CreateImage(20,20):SetBuffer ImageBuffer(ball)
Color 180,180,200:Oval 0,0,20,20
MidHandle ball
img=CreateImage(150,15):SetBuffer ImageBuffer(img)
Color 20,20,200:Rect 0,0,150,15:Color 200,200,20:Rect 0,13,150,2
MidHandle img
Dim schl(359)
For i=0 To 359
   schl(i)=CopyImage(img)
   RotateImage schl(i),i
Next
Type b
   Field x,y,w,v
End Type
FreeImage img:Color 200,0,0:Newb():a=Millisecs():SetBuffer BackBuffer()

Repeat
   start=Millisecs():w=MouseX()
   Rect 0,300,800,1:Rect 400,0,1,600:Oval 150,50,500,500,0
   If start Mod 100<3 Then Newb()
   If w>359 Then MoveMouse 1,0
   If w<1 Then MoveMouse 359,0
   sx=Cos(w)*250+400:sy=Sin(w)*250+300:sw=(w+90) Mod 360
   DrawImage schl(sw),sx,sy
   For b.b=Each b
         If ImagesCollide(ball,b\x,b\y,0,schl(sw),sx,sy,0) Then
            wdiff=sw-b\w:b\w=sw+wdiff
         EndIf
         b\x=b\x+b\v*Cos(b\w):b\y=b\y+b\v*Sin(b\w)
         DrawImage ball,b\x,b\y
         If b\x>800 Or b\x<0 Or b\y>600 Or b\y<0 Then
            ent=ent+1:Delete b
            If ent>=50 Then
               Cls : Color 20,200,20
               Text 220,285,"Sie haben "+(MilliSecs()-a)/1000+"sek durchgehalten. Gratulation!"
               Text 280,305,"Mit beliebiger Taste beenden"
               Flip : WaitKey() : End
            EndIf
         EndIf
   Next
   Text 10,10,"Entwischt: "+ent+" von 50"
   Flip : Cls
   sleep=start-Millisecs()+20:If sleep>2 Then Delay sleep
Until KeyHit(1)

Function Newb()
   b.b=New b
   b\x=400:b\y=300
   b\w=Rand(0,359):b\v=Rand(2,3)
End Function

Regeln:
-Code darf nicht über 4096Byte groß sein
-Erlaubt ist Blitz3D,Plus und Max
-Eine Woche Zeit zum programmieren
-Es wird im Forum abgestimmt welches Spiel gewinnt
-Bugs dürfen nicht entfernt werden (Also lieber noch 2x mehr über den Code gucken bevor man ihn abgibt)
-QuellCode muss beiliegen
-Es gibt keine Preise
-Keine externen Dateien dürfen verwendet werden
-Der Sieger bestimmt das nächste Thema