« previous next »
Pages: 1 [2]   Go Down

Author Topic: Axe Tilemapping 4*4  (Read 8074 times)

0 Members and 2 Guests are viewing this topic.

Offline Runer112

  • Project Author
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2289
  • Rating: +639/-31
    • View Profile
Re: Axe Tilemapping 4*4
« Reply #15 on: June 03, 2011, 12:46:50 pm »
Fixing a few errors. Also, some reformatting and optimizations. :hyper:

Code: [Select]
.TILEMAPR

.Tileset
[]→Pic0T
[F0F0F0F0]Zeros(4)[F0F0F0F0]Zeros(4)
[C0C0C0C0]Zeros(4)[00000000]Zeros(4)

.Tilemap
[]→Pic0M
[01010101]
[01000001]
[01000001]
[01010101]

While 1
 4*4+Pic0M→C
 16
 While 1
  -4→B
  16
  While 1
   -4→A
   If {C-1→C}
    *16+Pic0T→D
    Pt-On(A,B,D)
    Pt-On(A,B,D+8)ʳ
   End
  End!If A
 End!If B
 DispGraphʳ
EndIf getKey(15)
« Last Edit: June 03, 2011, 12:48:28 pm by Runer112 »
Logged
Pages: 1 [2]   Go Up
« previous next »