Jos DrawGamea kutsutaan piirtosijaintien ollessa ohjattuna kuvaan, joka on erikokoinen kuin ikkuna, piirtyy objektit väärään sijaintiin (poikkeuksena kartta).
FrameLimit 100
SCREEN 500, 500
Map = LoadMap("Media/cdm2.til", "Media/tileset.bmp")
PlayObject Map, 0, 0, 0.5
Guy = LoadObject("Media/soldier.bmp")
ShowObject Guy, OFF
For x = -4 To 4
For y = -4 To 4
nG = CloneObject(Guy)
PositionObject nG, x * 70, y * 70
RotateObject nG, Rand(360)
Next y
Next x
Buffer = MakeImage(Rand(300, 600), Rand(300, 600))
Repeat
TranslateCamera RightKey() - LeftKey(), UpKey() - DownKey()
If DrawToBuffer Then
DrawToImage Buffer
Cls
DrawGame
DrawToScreen
DrawImage Buffer, 0, 0
Else
DrawGame
EndIf
Text 0, 0, "Paina enteriä vaihtaaksesi piirron kuvaan tai ruutuun."
Text 0, 15, "Kuvan koko: " + ImageWidth(Buffer) + ", " + ImageHeight(Buffer) + " (paina välilyöntiä)"
If KeyHit(cbKeyReturn) Then DrawToBuffer = Not DrawToBuffer
If KeyHit(cbKeySpace) Then
DeleteImage Buffer
Buffer = MakeImage(Rand(300, 600), Rand(300, 600))
EndIf
DrawScreen
Forever
Jos DrawGamea kutsutaan piirtosijaintien ollessa ohjattuna kuvaan, joka on erikokoinen kuin ikkuna, piirtyy objektit väärään sijaintiin (poikkeuksena kartta).