Global WindowList:TList = New TList
Global Window:TWindow
Type TWindow
   Field Mode:Int
   Field Name:String
   Field X:Int
   Field Y:Int
   Field Width:Int
   Field Height:Int
   Field WID:String
         
   Function Create(Name:String, x:Int, y:Int, width:Int, height:Int, wid:String)
      Window:TWindow = New TWindow
      Window.name = name
      Window.x = X
      Window.y = Y
      Window.Width = Width
      Window.Height = Height
      Window.WID = wid
      
      WindowList.Addlast Window
   End Function
EndType

Function DrawWindow()
   For Window:TWindow = EachIn WindowList
      If Window.Mode = 0 Then
         SetAlpha 0.4
         SetBlend ALPHABLEND
      End If
      SetColor WindowR, WindowG, WindowB
      DrawRect Window.X + ImageWidth(WindowIMG3), Window.Y + ImageHeight(WindowIMG0), Window.Width + ImageWidth(WindowIMG0) - ImageWidth(WindowIMG3), Window.Height - ImageHeight(WindowIMG0)
      SetColor 255, 255, 255
      DrawImage WindowIMG0, Window.X, Window.Y, 0
      For x = Window.X + ImageWidth(WindowIMG0) To Window.X + Window.Width - 1
         DrawImage WindowIMG1, x, Window.Y
         DrawImage WindowIMG6, x, Window.Y + Window.Height
      Next
      DrawImage WindowIMG2, Window.X + Window.Width, Window.y
      For y = Window.Y + ImageHeight(WindowIMG0) To Window.Y + Window.Height - 1
         DrawImage WindowIMG3, Window.x, y
         DrawImage WindowIMG4, Window.X + Window.Width + ImageWidth(WindowIMG0) - ImageWidth(WindowIMG3), y
      Next
      DrawImage WindowIMG5, Window.X, Window.Y + Window.Height
      DrawImage WindowIMG7, Window.X + Window.Width, Window.Y + Window.Height
      SetColor WindowTitelR, WindowTitelG, WindowTitelB
      DrawText Window.Name, Window.X + 7, Window.Y + 4
      If Window.Mode = 0 Then
         SetAlpha 1
         SetBlend MASKBLEND
      End If
      
      If MouseDown(1) And Not (MouseX() < Window.x And MouseX() > Window.x + Window.Width And MouseY() < Window.y And MouseY() > Window.y + Window.Height) Then
         If Window.mode = 1 Then
            Window.mode = 0
         EndIf
      EndIf
      If MouseDown(1) And MouseX() > Window.X And MouseX() < Window.X + Window.Width And MouseY() > Window.Y And MouseY() < Window.Y + Window.Height And UnderWindow(Window.WID, Window.X, Window.Y, Window.Width, Window.Height) = 1 Then
         If Window.mode = 0 Then
            WindowList.Remove Window
            WindowList.AddLast Window
            Window.mode = 1
         End If
      End If
   Next
End Function

Function UnderWindow(WindowWID:String, x, y, w, h)
   For Window:TWindow = EachIn WindowList
      If Window.WID = WindowWID Then
         If MouseX() > Window.X And MouseX() < Window.X + Window.Width And MouseY() > Window.Y And MouseY() < Window.Y + Window.Height Then      
            Return 1
         EndIf
      EndIf
   Next
   Return 0
End Function


Function StartGUI()
   DrawWindow()
End Function




Graphics 1024, 768

TWindow.Create("Testfenster 0", 50, 50, 200, 180, "Cyber")
TWindow.Create("Testfenster 1", 80, 80, 200, 180, "Cyber1")
Repeat
   Cls
   StartGUI()
   
   Flip
Until KeyDown(KEY_ESCAPE)
End

      If MouseDown(1) And Not (MouseX() < Window.x And MouseX() > Window.x + Window.Width And MouseY() < Window.y And MouseY() > Window.y + Window.Height) Then
         If Window.mode = 1 Then
            Window.mode = 0
         EndIf
      EndIf
      If MouseDown(1) And MouseX() > Window.X And MouseX() < Window.X + Window.Width And MouseY() > Window.Y And MouseY() < Window.Y + Window.Height And UnderWindow(Window.WID, Window.X, Window.Y, Window.Width, Window.Height) = 1 Then
         If Window.mode = 0 Then
            WindowList.Remove Window
            WindowList.AddLast Window
            Window.mode = 1
         End If
      End If

If Mousedown(1) and MouseX()> blah

If MOusedown(1) and Not Mousex()< blah