Dim sz$(99)
Dim px(99)
Dim py(99)

Graphics 800,600,0,2
SetBuffer BackBuffer()
Global id=0
Global werkzeug=1

SetBuffer BackBuffer()
Repeat
ms=MouseHit(1)
If ms<>0 And werkzeug=1 Then
   id=id+1
   px(id)=MouseX()
   py(id)=MouseY()
   Repeat
      msd=MouseDown(1)
      For i=1 To id-1
         DrawImage sz(i), px(i), py(i)
      Next
      Color 0,255,0 Rect px(id),py(id),Floor(MouseX()-px(id)),Floor(MouseY()-py(id)),0
      Flip
      Cls
   Until msd=0
   sz(id)=Input("Schriftzug: ")
   sz(id)=Createbutton(Floor(MouseX()-px(id)),Floor(MouseY()-py(id)),200,200,200,sz(id),0,0,0)
   Cls
EndIf
For i=1 To id
   DrawImage sz(i), px(i), py(i)
Next
Color 255,255,255 Text 0,0, "Werkzeuge: 1 Buttons, 2 Flächen, 3 Scripting, 4 Nachbearbeiten"
Color 255,255,255 Text 0,12, "Aktuelles Werkzeug: "+werkzeug
Flip
Cls
Until KeyHit(1)



Function Createbutton(bx%, by%,r,g,b,schrift$, sr,sg,sb)
   img=CreateImage(bx, by)
   If img=0 Then RuntimeError("Ein Fehler beim Erstellen des Bildes trat auf. Bitte überprüfen Sie ihre Auswahl.")
   SetBuffer ImageBuffer(img)
   Color r,g,b Rect 0, 0, bx,by
   Color r-50,g-50,b-50 Rect 0,0,2,by
   Color r-50,g-50,b-50 Rect 0,0,bx,2
   Color sr,sg,sb Text bx/2, by/2, schrift$, 1,1
   SetBuffer BackBuffer()
   Return img
End Function