initZoneGrid :: Int -> Int -> BS.ByteString -> BS.ByteString
initZoneGrid zonew zoneh str = listToBS zonelist 1
  where zonelist = take (zonew*zoneh) (repeat 13)

-- generates edges bordering tiles for the zone
initZoneGrid :: Int -> Int -> BS.ByteString -> BS.ByteString
initZoneGrid zonew zoneh str = listToBS zonelist 1
  where zonelist = take (zonew*zoneh) (repeat 13)

-- generates edges bordering tiles for the zone
initZoneGrid zonew zoneh str = listToBS zonelist 1
  where zonelist = take (zonew*zoneh) (repeat 13)

-- generates edges bordering tiles for the zone