tile init
set %x #charposx
set %y #charposy
tile cnt %x %y
msg #tilecnt $
;for %c 0 #tilecnt
;{
;tile get %x %y %c
;display ok count: #tilecnt $ name: #tilename $ type: #tiletype $ flags: #tileflags $ z-axis: #tilez
;}
halt