Graphics 640,480
SetBuffer BackBuffer()
SeedRnd MilliSecs()
playerx=320
playery=240
ene=200
Dim gegner#(ene,5)
For i=1 To ene
 Repeat
 gegner(i,0)=Rand(640)
 gegner(i,1)=Rand(480)
 Until Not (gegner(i,0)>playerx-20 And gegner(i,0)<playerx+20 And gegner(i,1)>playery-20 And gegner(i,1)<playery+20)
 gegner(i,3)=Rand(0,360)
 gegner(i,4)=Rand(0,360)
 gegner(i,5)=Rand(0,5)
Next
laenge=70
HidePointer()
wert=30
wert2=(240-11)/2
Text 1,1,"Und es geschah mitten in einer Nacht..."
Text 1,21,"<<Was ist denn da drüben los?>>,fragt der Nachbar sich."
Text 1,41,"Mit seinem Ultra-Mega-Super-Teleskopfernrohr von Minimal"
Text 1,61,"schaut er was da drüben abgeht."
Text 1,81,"Als er ein scharfes Bild hatte sah er eine hübsche Frau,"
Text 1,101,"die ihre Freizeit mit einem behinderten Mann verbringt."
Text 1,121,"Da der Nachbar nicht möchte, dass sie auch ein behindertes"
Text 1,141,"Baby zur Welt bringt schaltet er seine Infrarot-Strahlen-"
Text 1,161,"Laser-Eizellenmanipulier-Kanone ein."
Text 1,181,"MISSION: Eine Sperma MIT Schwanz soll die Eizelle befruchten!"
Text 1,201,"Achtung aber vor denen ohne Schwanz, denn wenn so eine die Ei-"
Text 1,221,"zelle zuerst erreicht, verlierst du!"
Flip
WaitKey
KeyHit(57)
Repeat
Cls
Color 0,128,0
Oval MouseX(),MouseY(),3,3
Color 255,0,0
Oval playerx-10,playery-10,20,20
Color 128,0,0
For i=1 To 1000
x=Sin(winkel)*i+playerx
y=Cos(winkel)*i+playery
Plot x, y
If x>MouseX()-wert And y>MouseY()-wert And x<MouseX()+wert And y<MouseY()+wert Then laenge=i:Exit
Next
If laenge>wert2 Then laenge=wert2
If (KeyHit(57) Or MouseHit(1)) And schuss#=0 Then schuss=1:sx=MouseX():sy=MouseY()
If sx+sy<>0 Then MoveMouse sx,sy
Color 0,0,255
If schuss#=laenge*2+11 Then
 schussstep=schussstep+5
 Oval Sin(winkel)*schuss+playerx-5-schussstep/2,Cos(winkel)*schuss+playery-5-(schussstep/2),10+schussstep,10+schussstep
 If schussstep>40 Then schuss=0:schussstep=0:sx=0:sy=0
ElseIf schuss Then
 x=Sin(winkel)*schuss+playerx-5
 y=Cos(winkel)*schuss+playery-5
 If x<0 Or y<0 Or x>640 Or y>480 Then schuss=0
 Oval x,y,10,10
 schuss=schuss+4
 If schuss>laenge*2 Then schuss=laenge*2+11
Else
 winkel=Winkel(MouseX(),MouseY(),playerx,playery)
End If
Color 0,255,0
For i=1 To ene
 If gegner(i,2)=0 Then
  gegner(i,0)=gegner(i,0)+Rand(-1,1)-Sin(Winkel(gegner(i,0),gegner(i,1),playerx,playery))*.1
  gegner(i,1)=gegner(i,1)+Rand(-1,1)-Cos(Winkel(gegner(i,0),gegner(i,1),playerx,playery))*.1
  If gegner(i,0)<0 Or gegner(i,0)>640 Or gegner(i,1)<0 Or gegner(i,1)>480 Then gegner(i,2)=1
  Oval gegner(i,0),gegner(i,1),5,5
  r=(ReadPixel(gegner(i,0)-1,gegner(i,1)-1)  And $FF0000) And $10000
  b=ReadPixel(gegner(i,0)-1,gegner(i,1)-1)  And $FF
  If b=255 Then gegner(i,2)=1
  If r=65536 Then
   If gegner(i,5) Then
    Looser()
   Else
    Winner()
   End If
  End If
  If gegner(i,5)=0 Then
   gegner(i,4)=gegner(i,4)+Rand(-15,15)
   If gegner(i,4)<0 Then gegner(i,4)=360
   If gegner(i,4)>360 Then gegner(i,4)=0
   gegner(i,3)=gegner(i,3)+1
   If gegner(i,3)>360 Then gegner(i,3)=0
   anim=gegner(i,3)
   wnk=gegner(i,4)
   For lng=0 To 15
   Line gegner(i,0),gegner(i,1),gegner(i,0)+Cos(wnk)*lng,gegner(i,1)+Sin(wnk)*lng
   Next
  End If
 End If
Next
Flip
Until KeyHit(1)
End

Function Winkel(x1,y1,x2,y2)
minx=x1-x2
miny=y1-y2
minx2=-(x2-640-x1)
miny2=-(y2-480-y1)
minx3=x1-640-x2
miny3=y1-480-y2
If Abs(minx2)<Abs(minx) Then minx=minx2
If Abs(minx3)<Abs(minx) Then minx=minx3
Return 90-ATan2(miny,minx)
End Function

Function Looser()
 Text 320,240," V E R L O R E N !",1,1
 Flip
 WaitKey
 End
End Function
Function Winner()
 Text 320,240," G E W O N N E N !",1,1
 Flip
 WaitKey
 End
End Function