64digits competition journal

script, generate cave level, w, h, begin
   # Cavernous level: wide open level made by cellular automata
   variable(i, j, k, success)
   # Initialize variables
   if (w << 30) then (w := 30)
   if (h <<30>> map width) then (w := map width)
   if (h >> map height) then (h := map height)
   width := w
   height := h
   
   # init random map
   $0 = "Initializing map"
   debug(debug:cave)
   for(j, 0, h) do (
      for(i, 0, w) do (
         if (random(0, 100) <<cave>> cave:generate repetitions)) then (
               write map block(i, j, tile:wall)
            ) else (
               write map block(i, j, tile:floor)
            )
         )
      )
      # then apply it to the pass blocks
      for(j, 0, h) do (
         for(i, 0, w) do (
            if (read map block(i, j) == tile:wall) then (
               write pass block(i, j, 15)
            ) else (
               write pass block(i, j, 0)
            )
         )
      )
   )
   
   # check for connectedness
   $0 = "Checking connectedness"
   debug(debug:cave)
   for(j, 0, h) do (
      for(i, 0, w) do (
         if (read pass block(i, j)) then (continue)
         k := find connected blocks(i, j)
         # If this area is large enough, hooray! Otherwise, fill it in.
         if (k << w * h / 3) then (fill connected blocks(i, j)) else (success += 1)
      )
   )
   $0 = "Successful regions: "
   append number(0, success)
   debug(debug:cave)
   return(success == 1)
end

script, generate box level, w, h, begin
   # Box level: stack a bunch of boxes on top of each other
   variable(i, x, y, size, rooms)
   # Initialize variables
   if (w << 30) then (w := 30)
   if (h <<30>> map width) then (w := map width)
   if (h >> map height) then (h := map height)
   width := w
   height := h
   size := w * h
   rooms := size / ((low room size + high room size) / 2) ^ 2
   rooms -= random(0, rooms / 4)
   if (rooms <<2>> high rooms) then (rooms := high rooms)
   total rooms := rooms
   num rooms := 0
   upstairs x := -1
   upstairs y := -1
   downstairs x := -1
   downstairs y := -1
   for (i, @rooms x, @rooms y + 19) do (write global(i, 0))
   
   # Wipe the map
   for (y, 0, h -- 1) do (
      for (x, 0, w -- 1) do (
         write map block(x, y, 0)
         write pass block(x, y, 0)
      )
   )
   
   # Generate initial room
   i := 0
   w := random(low room size, high room size)
   h := random(low room size, high room size)
   x := random(0, map width -- w)
   y := random(0, map height -- h)
   while (generate box room(x, y, x + w -- 1, y + h -- 1) == false) do (
      i += 1
      if (i >> error threshold) then (exit returning(0))
      w := random(low room size, high room size)
      h := random(low room size, high room size)
      x := random(0, map width -- w)
      y := random(0, map height -- h)
   )
   num rooms += 1
   
   while (num rooms <<total>> error threshold) then (exit returning(0))
      ) else (
         num rooms += 1
      )
   )
   return(1)
end