;Graphics initialisiert ein fenster zur Grafik-ausgabe. 1024x768 als Größe.
Graphics(1024,768)

;LoadImage lädt dein Bild! Der erste Parameter - hier "Blubb.png" - ist der absolute / Relative pfad zu deiner Datei! Dieser befehl würde hier die datei Blubb.png laden, welche sich im Selben ordner wie dein Programm befinden müsste! - 2 Ist der modus, steht für Dynamic image.
Global bild = LoadImage("Blubb.png",2)
Global stein_img = LoadImage("Stein.png", 2)

;Ein wert, den ich für das Scalen nuitze!
Global scale = 0

;Ein simpler Counter 
Global counter = 0

;Mit dim lassen sich wohl Array's bestimmen^^ Weiß nimemr so wirklich :3 1001 einträge jedenfalls.

Dim stein (1000)

While Not KeyHit(KEY_ESCAPE)
         Cls
         If KeyDown(14) ;Backspace Taste wurde gedrückt!
              ;Bei druck auf Backspace den letzten stein löschen :)
               If counter > 0 Then
                    stein (counter-1) = Null
                    counter = counter -1
               EndIf 
         EndIf
        If KeyDown(28) ;Enter wurde gedrückt!
              ;Bei druck auf Enter einen stein hinzufügen :)
              stein (counter)\x = Rnd(10, 1014) ; x wert des aktuellen steins ändern!
              stein (counter)\y = Rnd(10, 758)   ; y wert des aktuellen steins ändern!
              counter = counter+1
        EndIf

        scale = MouseZSpeed() ; Mausrad geschwindigkeit ermitteln - Sollte 0 sein, wenn das mausrad nicht bewgt wurde!

        If scale <> 0 Then ; Wenn das mausrad bewegt wurde...
                 ScaleImage(bild,  1+(scale / 4.0), 1+(scale / 4.0)) ; ... bild skalieren! Dh zoomen :>
                 ;ich gehe davon aus, das scale ein wert zwischen -1 und 1 ist! dh die rechnung 1 / 4.0 sollte 0.25 zurückgeben! 1+ 0.25 ergibt also eine skalierung von 1.25! Das entspricht mit ScaleImage allerdings einem exponentiellen zoom, verbesserungsbedarf :)
                 scale = 0 ; vorsichtshalber scale zurücksetzen^^
        EndIf

        Cls ;dieser Befehl Leert den Background Buffer! 

        DrawImage(bild, 0,0) ; Wir zeichnen unser bild an position 0/0 

        For Local a = 0 Until counter ; mit dieser schleife sollte 'a' von 0 bis Counter-1 laufen! 
               
               DrawImage(stein_img, stein (a)\x, stein (a)\y)   ; hier werden die Steine aus dem array ausgelesen.
        Next
        Flip 1 ; Dieser befehl tauscht den FRONTBUFFER mit dem BACKGROUNDBUFFER aus, dh unser bild wird für diesen frame 'sichtbar'
Wend

; Ich weiß nicht ob Objekte in BB+ existieren, ich hoffe es einfach mal.
Type TStein ; Das name des objekts!
        Field x ; Ein eintrag - unsere gewünschte X koordinate!
        Field y ; Ein eintrag - unsere gewünschte Y koordinate!
End Type

For Local a = 0 Until counter

ScaleImage

Color 255,255,255