Graphics 800,600
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Type menschen
   Field x,y,wahl,r,g,b,klick,laufen,breite,hoehe
End Type

Type essen
   Field x,y,wert,breite,hoehe
End Type

For i = 1 To 10
   m.menschen = New menschen
   m\x = Rand(10,790)
   m\y = Rand(10,590)   
   m\wahl =False
   m\klick = 0
   m\laufen =False
   m\breite = 10
   m\hoehe = m\breite
Next

For i = 1 To 5
   e.essen = New essen
   e\x = Rand(10,790)
   e\y = Rand(10,590)
   e\wert = Rand(1,7)
   e\breite = 8
   e\hoehe = e\breite
Next

Repeat
Cls

If MouseHit(1) = True
   mhit = 1
ElseIf MouseHit(1) = False
   mhit = 0
EndIf
      
For m.menschen = Each menschen
If m\wahl = False
   m\r = 255
   m\g = 255
   m\b = 255
   m\laufen = False
   m\klick = False
ElseIf m\wahl = True
   m\r = 255
   m\g = 0
   m\b = 255
   m\klick =1
EndIf
;-
If RectsOverlap(m\x,m\y,m\breite,m\hoehe,MouseX(),MouseY(),1,1)
   If mhit = 1
      m\wahl=Not m\wahl
   EndIf
EndIf

If m\klick = 1
   If mhit = 1
      m\laufen = True
      xt = MouseX()
      yt = MouseY()
   EndIf    
EndIf       

If m\laufen = True
   If m\x < xt Then m\x = m\x + 2
   If m\x > xt Then m\x = m\x - 2
   If m\y < yt Then m\y = m\y + 2
   If m\y > yt Then m\y = m\y - 2
EndIf       
   
Color m\r,m\g,m\b   

Rect m\x,m\y,m\breite,m\hoehe
Next

For e.essen = Each essen
Oval e\x,e\y,e\breite,e\hoehe
Text e\x-20,e\y-20,"Wert: "+e\wert
Next

For e.essen  = Each essen
   For m.menschen = Each menschen
      If RectsOverlap(m\x,m\y,m\breite,m\hoehe,e\x,e\y,e\breite,e\hoehe)
         m\laufen = False
         m\klick = False
         e\wert = e\wert - 1
      EndIf
      If e\wert = 0
         Delete e.essen:Exit
      EndIf
   Next
Next          

Flip
Until KeyHit(1):End