Graphics 800,600
SetBuffer BackBuffer()
AppTitle "Views"
fpstimer=CreateTimer(60)

Global roomwidth=1000
Global roomheight=1000 ;Raumgröße
Global viewwidth=800
Global viewheight=600 ;Viewgröße
Global viewx=0
Global viewy=0 ;Viewposition

;Main Loop
While Not KeyHit(1)
  WaitTimer fpstimer
  Cls

  Flip 0
Wend
End

Graphics 800,600
SetBuffer BackBuffer()
AppTitle "Views"
SeedRnd MilliSecs()
fpstimer=CreateTimer(60)

Global roomwidth=1000
Global roomheight=1000 ;Raumgröße
Global viewwidth=800
Global viewheight=600 ;Viewgröße
Global viewx=0
Global viewy=0 ;Viewposition

Type obj
  Field x,y
End Type

;Zufällig ein paar Objekte erstellen... Da fällt mir auf, dass ich SeedRnd vergessen hab ;D
For i=0 To 19
  o.obj=New obj
  o\x=Rnd(roomwidth)
  o\y=Rnd(roomheight)
Next

;Main Loop
While Not KeyHit(1)
  WaitTimer fpstimer
  Cls

  Move() ;Funktion zum Bewegen des Views
  Draw() ;Funktion zum Zeichnen der Objekte

  Flip 0
Wend
End

;Funktionen
Function Move()
  If KeyDown(200) viewy=Max(0,viewy-3)
  If KeyDown(205) viewx=Min(roomwidth-viewwidth,viewx+3)
  If KeyDown(208) viewy=Min(roomheight-viewheight,viewy+3)
  If KeyDown(203) viewx=Max(0,viewx-3)

  ;Min() und Max() verwende ich dass der View nicht Gebiete außerhalb des Raumes zeigen kann... Ist aber nicht nötig
End Function

Function Draw()
  For o.obj=Each obj
    Rect o\x-viewx,o\y-viewy,10,10 ; Eigentlich sollte man Abfragen ob das Objekt im view ist!!!
  Next
End Function

Function Min(x,y) ;Gibt die kleinere Zahl zurück
  If x>y
   Return y
  Else
   Return x
  EndIf
End Function

Function Max(x,y) ;Gibt die größer Zahl zurück
  If x>y
   Return x
  Else
   Return y
  EndIf
End Function

Graphics 600,600,0,2
SetBuffer BackBuffer()

Const TILESIZE=40

Local Timer=CreateTimer(60)
Local X,Y,Block
Local MapXPos
Local MapYPos
Dim Map(63,63)

;EINE ZUFALLS-MAP ERSTELLEN
For Y=0 To 63
   For X=0 To 63
      Map(X,Y)=Rand(9)
   Next
Next


While Not KeyDown(1)
   
   MapXPos=MouseX()
   MapYPos=MouseY()
   
   ;DIE SICHTBARE MAP EINGRENZEN
   For Y=1 To 10
      For X=1 To 10
         
         ;DIE TILE-ID (HIER FARBE) ZWISCHENSPEICHERN
         Block=Map(X+(MapXPos/TILESIZE),Y+MapYPos/TILESIZE)
         
         ;WENN DIE TILE-ID GÜLTIG IST (ALSO VORHANDEN)
         If Block>0 Then
            
            ;IN DIESEM FALL (WEIL KEIN BILD GELADEN) DIE FARBE ANPASSEN
            Color Block*20,0,0
            
            ;IN DIESEM FALL (WEIL KEIN BILD GELADEN) EIN RECT EINZEICHNEN
            Rect (Int(MapXPos/TILESIZE)*TILESIZE)-MapXPos+X*TILESIZE,(Int(MapYPos/TILESIZE)*TILESIZE)-MapYPos+Y*TILESIZE,TILESIZE,TILESIZE,1
            
         End If
         
      Next
   Next
   
   WaitTimer Timer
   Flip 0
   Cls
Wend
End