Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- windowDisplay& = _NEWIMAGE(800, 600, 32)
- SCREEN windowDisplay&
- DIM level%(64, 64)
- DIM tiles&(127)
- CHDIR "Platformer/Tiles"
- tiles&(1) = _LOADIMAGE("grass.png")
- FOR i% = 0 TO 10
- level%(i%, i%) = 1
- NEXT
- WHILE 1
- CLS
- PRINT "Test"
- FOR x% = 0 TO 63
- FOR y% = 0 TO 63
- _PUTIMAGE (x% * 32, y% * 32)-((x% * 32) + 32, (y% * 32) + 32), tiles&(level%(x%, y%))
- NEXT
- NEXT
- _DISPLAY
- _LIMIT 60
- WEND
Advertisement
Add Comment
Please, Sign In to add comment