Screen in Vollbild wird natürlich vorher geöffnet.
Hier die Procedure die in jedem Tick (innerhalb von Repeat/Until) ausgeführt wird:
Code: Alles auswählen
Procedure ShowLandschaft(zeilen.l,werte.l)
LoadImage(0,"gfx/charblack.bmp")
LoadImage(1,"gfx/gras.bmp")
LoadImage(2,"gfx/erde.bmp")
LoadImage(3,"gfx/sand.bmp")
LoadImage(4,"gfx/wasser.bmp")
ClearScreen(0,0,0)
StartDrawing(ScreenOutput())
For x=0 To zeilen-1
For y=0 To werte-1
Read map(x,y)
DrawImage(1,x*25,y*25)
Next
Next
StopDrawing()
FlipBuffers()
EndProcedure