Some debug code cleanup, change the format for the mod buffer key.

main.lua

@@ -4,7 +4,7 @@ function _init()
    init_mapgen()
    init_player(32, 32)
    generate_map(0, 0)
-   debug = false
+   init_debug()
 end
 
 
@@ -18,9 +18,7 @@ function _draw()
    -- the screen is 128x128 pixels, so it fits 16x16 sprites
    map(camera_pos_x, camera_pos_y, 0, 0, 16, 16)
    draw_player()
-   if debug then
-      render_debug_info()
-   end
+   debug_print()
 end
 
 -- decide whether we need to regenerate the map.
@@ -40,24 +38,71 @@ function out_of_bounds(pos_x, pos_y)
       pos_y < 0 or pos_y > 48
 end
 
-function debug_res()
-   print("mem: " + stat(0))
-   print("cpu: " + stat(1))
-   print("fps: " .. stat(9) .. " / " .. stat(8))
+-- debug functions toggle debug status displays along the
+-- top of the screen
+function init_debug()
+   debug_res = false
+   debug_map = false
+   debug_sfx = false
+   debug_mod_buffer = false
 end
 
-function debug_sfx()
-   print("Music pattern: " .. stat(24))
+function debug_t(mode)
+   if mode == "res" then
+      debug_res = not debug_res
+   elseif mode == "map" then
+      debug_map = not debug_map
+   elseif mode == "sfx" then
+      debug_sfx = not debug_sfx
+   elseif mode == "" then
+      debug_mod_buffer = not debug_mod_buffer
+   end
 end
 
-function debug_map()
-   print("Local: " .. camera_pos_x .. " " .. camera_pos_y)
-   print("Global: " .. player_pos_x .. " " .. player_pos_y)
-   print(get_biome_name(player_pos_x, player_pos_y))
+function debug_print()
+   if debug_res then
+      debug_print_res()
+   end
+
+   if debug_map then
+      debug_print_map()
+   end
+
+   if debug_sfx then
+      debug_print_sfx()
+   end
+
+   if debug_mod_buffer then
+      debug_print_mod_buffer()
+   end
 end
 
-function debug_mod_buffer()
+function debug_print_res()
+   clip(70, 0, 16, 24)
+   print(stat(0), 70, 0, 15)
+   print(stat(1), 70, 8, 15)
+   print(stat(9) .. " / " .. stat(8), 70, 16, 15)
+   clip()
+end
+
+function debug_print_sfx()
+   clip(64, 0, 8, 8)
+   print(stat(24), 64, 0, 15)
+   clip()
+end
+
+function debug_print_map()
+   clip(24, 0, 32, 24)
+   print(camera_pos_x .. " " .. camera_pos_y, 24, 0, 15)
+   print(player_pos_x .. " " .. player_pos_y, 24, 8, 15)
+   print(get_biome_name(player_pos_x, player_pos_y), 24, 16, 15)
+   clip()
+end
+
+function debug_print_mod_buffer()
+   clip(0, 0, 16, 128)
    for k,v in pairs(mod_buffer) do
       print(k .. ": " .. tostr(v))
    end
+   clip()
 end