Popils.tcl

requires 120 "20313939 31205445 4E47454E 204C5444 2E20"
hex 110 "Header"
hex 52 "Copyright"
hex 32606 "Dummy"
for {set i 0} {$i < 101} {incr i} {
    section "Level $i" {
        section "Tiles" {
            for {set t 0} {$t < 4} {incr t} {
                hex 10 "row"
            }
        }
        section "Player" {
            uint8 "pos_x"
            uint8 "pos_y"
        }
        section "Princess" {
            uint8 "pos_x"
            uint8 "pos_y"
        }
        section "Monsters" {
            uint8 "total"
            for {set m 0} {$m < 8} {incr m} {
                uint8 "subtotal"
            }
            for {set mx 0} {$mx < 8} {incr mx} {
                uint8 "pos_x"
            }
            for {set my 0} {$my < 8} {incr my} {
                uint8 "pos_y"
            }
        }
        section "Doors" {
            uint8 "total"
            for {set dx 0} {$dx < 8} {incr dx} {
                uint8 "pos_x"
            }
            for {set dy 0} {$dy < 8} {incr dy} {
                uint8 "pos_y"
            }
        }
        ascii 20 "hint"
        ascii 3 "mapper"
        uint8 "steps"
    }
}