gen1recomp/tests/drivers/door_test.lua

-- Driver: door-warp flow (Pallet house) plus #187 S.S. Anne enter-from-above.
-- Anne-only shots: tests/drivers/anne_door_test.lua

return function(game)
  local U = dofile("tests/drivers/util.lua")
  local DIR = os.getenv("SHOT_DIR") or "/tmp/shots"
  U.teleport(game, "PALLET_TOWN", 5, 6, "up")
  U.shot(game, DIR .. "/door_0_outside.png")

  -- step onto the door mat (5,5): the warp should fire
  U.hold(game, "up", 20)
  U.shot(game, DIR .. "/door_1_mid.png")
  for i = 2, 6 do
    U.wait(6)
    U.shot(game, DIR .. ("/door_%d_transition.png"):format(i))
  end
  U.wait(30)
  U.shot(game, DIR .. "/door_7_inside.png")
  local ow = game.overworld
  U.log("map:", ow.map.id, "pos:", ow.player.cellX, ow.player.cellY,
        "transitioning:", tostring(ow.transitioning))

  -- can we move? walk left 2 cells
  U.hold(game, "left", 40)
  U.log("after-left pos:", ow.player.cellX, ow.player.cellY)
  U.shot(game, DIR .. "/door_8_moved_inside.png")

  -- walk back out through the mat
  U.hold(game, "right", 40)
  U.hold(game, "down", 60)
  U.wait(40)
  U.shot(game, DIR .. "/door_9_back_outside.png")
  U.log("final map:", ow.map.id, "pos:", ow.player.cellX, ow.player.cellY,
        "transitioning:", tostring(ow.transitioning))

  -- #187: enter SS Anne cabin from above; expect one tile south of door
  U.teleport(game, "SS_ANNE_1F", 31, 9, "up")
  U.shot(game, DIR .. "/door_10_anne_before.png")
  U.hold(game, "up", 20)
  for _ = 1, 90 do
    U.wait(1)
    if ow.map.id == "SS_ANNE_1F_ROOMS" and not ow.transitioning
       and #ow.scriptMoves == 0 and not ow.player.moving then
      break
    end
  end
  U.wait(8)
  U.shot(game, DIR .. "/door_11_anne_after.png")
  U.log("anne map:", ow.map.id, "pos:", ow.player.cellX, ow.player.cellY,
        "facing:", ow.player.facing)
end