Repeat
   For I = 1 To AnzahlMenüpunkte
      // Erstmal die Distanz zu dem Objekt (Origin is die Midde)
      Dist = Sqr((ObjektPositionX(Obj(I))-MouseX)^2+(ObjektPositionY(Obj(I))-MouseY)^2)
      If Dist > MMax Then Dist = MMax
      If Dist < MMin Then Dist = MMin
      // Hier muss das jetzt berechnet werden und so
   Next
Forever

Temp1 = 0
DrawImage item1,0,0
Temp1 = Temp1 + ImageWidth(item1) + 10,0
DrawImage item2, Temp1,0
Temp1 = Temp1 + ImageWidth(item2) + 10,0

....

type button
 field zoomfactor
 field active
 field image
 field id
end type

b.button = new button
b\image = image1
b\active = 0
b\zoomfactor = 1
b\id = 1

...

for b.button = each button
if MouseIsOver(b\image)
 b\active = 1
endif

b\active = 1
b\zoomfactor = 3

;-> an der stelle muss man irgendwie die zoomfaktoren der umliegenden Buttons ändern, kann man mit der ID machen, fällt mir aber grad nich ein, wie ^^

next

Type Ticon
field x, y, image, breite, höhe
End Type

for i = 1 to 5
;**** Fünf Types zum testen erstellen
next

;*** Abstand zwischen Maus und Bild messen (am besten Midhandle)

for icon.Ticon = Each Ticon
;*** x, y, Breite und höhe je nach Abstand zur Maus aktualisieren
next

Type TIcon
   Field x
   Field y
   Field zoom#
   Field size
   Field actualX
End Type

local mitte
anz = 8

Graphics 800,600
setbuffer Backbuffer()
For i = 1 To anz
   b.Ticon = New Ticon
   b\x = i*64+100
   b\zoom = 1.0
   b\size = 64
   mitte = mitte +b\x
Next
mitte = mitte /anz
Repeat
   Cls
      g=Updateicons()
      Drawicons(g,mitte)
      active = GetActive()
      Text 0,0,g+"  "+mitte+" "+active      
   Flip
Until KeyHit(1)


Function Drawicons(groesse,mitte)
   currX = mitte - (groesse/2)
   For a.Ticon = Each TIcon
      a\actualX = currX
      Rect currX,a\y,a\size*a\zoom,a\size*a\zoom,0
      currX = currX+(a\size*a\zoom)
   Next
End Function

Function UpdateIcons()
   mx = MouseX()
   my = MouseY()
   For a.Ticon = Each Ticon
      If dist(mx-(a\x+(a\size/2)),my-(a\y+(a\size/2))) < a\size*2 Then
      a\zoom = 1.0+ (2*((a\size*2)-dist(mx-(a\x+(a\size/2)),my-(a\y+(a\size/2)))))/(a\size*4)
      Else
      a\zoom = 1.0
      EndIf
   groesse = (groesse + a\size * a\zoom)   
   Next
   Return groesse
End Function

Function Dist#(a#,b#)
   Return Sqr(a^2+b^2)
End Function

Function GetActive()
   x = MouseX()
   y = MouseY()
   For a.TIcon = Each TIcon
   count = count +1
      If x >= a\actualx And x <= a\actualx + (a\size*a\zoom) Then
         If y >= a\y And y <= a\y + (a\size * a\zoom) Then
            Return count
         EndIf
      EndIf
   Next
   Return -1
End Function