SuperStrict
Graphics 800, 600

Const  FieldWidth:Int = 20
'Const FieldHeight:Int = 20      'Dieser Wert funktioniert
Const FieldHeight:Int = 35      ' Hier Schlägt der GarbageCollector zu und beendet die Anwendung mit der Meldung: GC setMemBit: membit already set!

Const TileHeight:Int = 32
Const  TileWidth:Int = 32

Global OffsetX:Int = 0
Global OffsetY:Int = 0
 
Global myField:Int[FieldWidth,FieldHeight]

Fuellen()

While Not KeyHit(KEY_ESCAPE)
   Cls
   Movement()
   Zeichnen()
   Flip
Wend
End

Function Fuellen()
   Local iX:Int = 0
   Local iY:Int = 0
   
   For iX = 0 To FieldWidth
      For iY = 0 To FieldHeight
         'myField[iX,iY] = 1
         myField[iX,iY] = Rand(0,10)
      Next
   Next
End Function

Function Movement()
   If KeyDown(KEY_LEFT) Then Scroll(-3,0)
   If KeyDown(KEY_RIGHT) Then Scroll(3,0)
   
   If KeyDown(KEY_UP) Then Scroll(0,-3)
   If KeyDown(KEY_DOWN) Then Scroll(0,3)
End Function

Function Scroll(X:Int, Y:Int)
   OffsetX:+X
   OffsetY:+Y
End Function


Function Zeichnen()
   Local iX:Int = 0
   Local iY:Int = 0
   
   For iX = 0 To FieldWidth
      For iY = 0 To FieldHeight
         If myField[iX,iY] > 1 Then
            DrawTile(iX, iY, IsMouseOver(iX,iY))
         End If
      Next
   Next
End Function

Function DrawTile(X:Int, Y:Int, MouseOver:Byte)
   
   'rahmen
   If MouseOver = True Then
      SetColor 255,128,128
   Else
      SetColor 128,128,255
   End If
   
   DrawRect X * TileWidth - OffsetX, Y * TileHeight - OffsetY, TileWidth, TileHeight
   
   ' vordergrund
   If MouseOver = True Then
      SetColor 128,64,64
   Else
      SetColor 64,64,64
   End If
   
   DrawRect X * TileWidth + 1 - OffsetX, Y * TileHeight + 1 - OffsetY, TileWidth - 2, TileHeight - 2
   
   'reset
   SetColor 255,255,255
End Function

Function IsMouseOver:Byte(gridX:Int, gridY:Int)
   If gridX = ConvertXtoGrid(MouseX()) And gridY = ConvertYtoGrid(MouseY()) Then
      Return True
   Else
      Return False
   End If
End Function

Function ConvertXtoGrid:Int(X:Int)
   Return Floor((X + OffsetX) / TileWidth)
End Function

Function ConvertYtoGrid:Int(Y:Int)
   Return Floor((Y + OffsetY) / TileHeight)
End Function