Type progbarvalues
   Field phandle
   Field value#=0.0
End Type


window = CreateWindow("Fenster", 0, 20, 400, 300, 0, 3)
PBar = create_progbar(0, 40, 100, 10, window)
update=CreateButton("Update", 0, 0, 100, 30, window)
get=CreateButton("Get", 0, 60, 100, 30, window)


Repeat
   If GetKey() = 27 Then End
   event = WaitEvent()
   Select event
      Case $803
         End
      Case $401
      If EventSource()=update
         update_progbar( PBar, 0.05)
      EndIf
      If EventSource()=get
         Notify get_progbar_value(PBar)
      EndIf
   End Select
Forever


Function update_progbar(progbar,val#)
   For p.progbarvalues=Each progbarvalues
      If p\phandle=progbar
      p\value#=p\value#+val#
      UpdateProgBar(progbar,p\value#+val#)
      DebugLog p\value#
      EndIf
   Next 
   
End Function

Function get_progbar_value#(progbar)
   For p.progbarvalues=Each progbarvalues
      If p\phandle=progbar
         Return (p\value#)
      EndIf
   Next
End Function

Function create_progbar(x,y,w,h,group,style=0)
   phandle=CreateProgBar(x,y,w,h,group,style)
   p.progbarvalues=New progbarvalues
   p\phandle=phandle
   Return phandle
End Function

;--------------------------
;Type Demo
;ozzi789 - 9.2.12
;--------------------------


;Grafik zeugs...
Graphics 800,600,32,2
SetBuffer BackBuffer()


;Hier erstellen wir einen Type namens Gegner
Type gegner
   Field x ;In dem Type legen wir eine Variable an namens X
   Field y ;Dito - Y
End Type

;Ein For Loop (10x)
For zaehler = 1 To 10
   ;Einen neue neuen Gegner erstellen
   g.gegner = New gegner
      ;Die oben erstellten Variabeln mit zufalls Zahlen abfüllen
      g\x=Rnd(0,800)
      g\y=Rnd(0,600)
Next

;Demonstration der zahlreichen tollen Befehlen
;Siehe auch : After & Before..
g.gegner = First gegner
Print "Der erste erstellte Gegner befindet sich auf "+g\x+"/"+g\y

g.gegner = Last gegner
Print "Der zuletzt erstellte Gegner befindet sich auf "+g\x+"/"+g\y

Print "Drücke eine Taste um weiterzufahren!"

WaitKey





While Not KeyHit(1)
   Cls
   ;Maus Koordinaten und Linksklick speichern
   mx=MouseX()
   my=MouseY()
   mh=MouseHit(1)
   
   ;Jeden gegner durchgehen in einem For Loop
   For g.gegner = Each gegner
      ;Gegner an den Koordinaten als Rect zeichnen
      Rect g\x,g\y,10,10,1
      ;Falls die linke Maustaste gedrückt wurde und sie sich innerhalb des weisses Feldchen (Gegner) befindet
      If mh=1 And mx>g\x And mx<g\x+10 And my>g\y And my<g\y+10
         ;Die Instanz des Gegners löschen
         Delete g.gegner
      EndIf
   Next
   
   Flip 30
Wend