Graphics 800,600

SeedRnd MilliSecs()


gegnerpic = CreateImage(10,10)              ;gegnerbild 
SetBuffer ImageBuffer(gegnerpic)
Rect 0,0,10,10 
SetBuffer BackBuffer()
Type gegner
	Field x
	Field y
End Type

spielerx= 300
spielery=580

For a=0 To 10                      ;10 neue gegner werden erstellt
g.gegner = New gegner
g\x = Rnd(10,790)
g\y = Rnd(10,500)



Next 


Repeat
Cls 

g = First gegner 
kleinsterabstand = abstand(g\x,g\y,spielerx,spielery)
zx =g\x
zy =g\y



For g.gegner = Each gegner 
DrawImage gegnerpic,g\x,g\y



If abstand(g\x,g\y,spielerx,spielery) < kleinsterabstand 
	kleinsterabstand = abstand(g\x,g\y,spielerx,spielery)
	zx = g\x
	zy = g\y
EndIf 

Color 255,0,0
Text g\x,g\y-10,abstand(g\x,g\y,spielerx,spielery)




Next 

Color 0,255,0
Text zx,zy-10 ,kleinsterabstand 







Color 0,0,255
Oval spielerx,spielery,20,20


If KeyDown(200) Then spielery = spielery-1
If KeyDown(208) Then spielery = spielery+1
If KeyDown(203) Then spielerx = spielerx -1
If KeyDown(205) Then spielerx = spielerx +1

Flip 
Until KeyHit(1)



 Function abstand(x1,y1,x2,y2)
Return   Sqr(((x1 - x2)^2) + ((y1 - y2)^2))
End Function