小ワザ/マップ作成

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27

#const csz 32
#const wxlen 11
#const wylen 8
buffer 1 , csz*2 , csz*2
font msgothic , 32 : mes"・川\n山村"
celdiv 1 , csz , csz
screen  , csz*wxlen , csz*wylen
;マップ情報
sdim mdata
mdata.0 = "00000002222"
mdata.1 = "00000000222"
mdata.2 = "00001111222"
mdata.3 = "00111000022"
mdata.4 = "11100000002"
mdata.5 = "00003000000"
mdata.6 = "00000000000"
mdata.7 = "00000000000"
;マップ表示
repeat wxlen*wylen
    xx = cnt\wxlen : yy = cnt/wxlen
    pos xx*csz , yy*csz
    ss = "" : memcpy ss , mdata.yy , 1 , 0 , xx : poke ss , 1
    if ss = "0"{celput 1 , 0}
    if ss = "1"{celput 1 , 1}
    if ss = "2"{celput 1 , 2}
    if ss = "3"{celput 1 , 3}
loop