feat: Tweak teleporting when stuck

Currently qw tries to teleport at the end of its movement plan, when
it's stuck, before trying random movement. This can waste valuable
teleport scrolls in situations where qw is very temporarily stuck. This
commit puts a random movement plan before the teleport plan that's only
active if we've been stuck less than 50 turns. After 50 turns of still
being stuck, qw will attempt it's plan to teleport. The final plan of
the movement cascade is still the main random movement plan, which lasts
for 1000 turns total before qw quits the game.

We reset the stuck counter whenever a level transition is made so that
this approach can work. There was no reason to make it cumulative across
a session in the first place, since when qw is stuck, it's never moving
between levels.

Author: gammafunk

source/plans-move.lua

@@ -228,6 +228,15 @@ function choose_tactical_step()
     end
 end
 
+function plan_quit()
+    if stuck_turns > QUIT_TURNS or select(2, you.hp()) == 1 then
+        magic(control('q') .. "yes\r")
+        return true
+    end
+
+    return false
+end
+
 function plan_cloud_step()
     if tactical_reason == "cloud" then
         say("Stepping ~*~*~tactically~*~*~ (" .. tactical_reason .. ").")
@@ -328,13 +337,11 @@ end
 function plan_stuck()
     stuck_turns = stuck_turns + 1
     return random_step("stuck")
-    -- panic("Stuck!")
 end
 
-function plan_quit()
-    if stuck_turns > QUIT_TURNS or select(2, you.hp()) == 1 then
-        magic(control('q') .. "yes\r")
-        return true
+function plan_stuck_initial()
+    if stuck_turns <= 50 then
+        return plan_stuck()
     end
 
     return false
@@ -616,6 +623,7 @@ function set_plan_move()
         {plan_stuck_dig_grate, "try_stuck_dig_grate"},
         {plan_stuck_cloudy, "stuck_cloudy"},
         {plan_stuck_forget_map, "try_stuck_forget_map"},
+        {plan_stuck_initial, "stuck_initial"},
         {plan_stuck_teleport, "stuck_teleport"},
         {plan_stuck, "stuck"},
     }

source/turn.lua

@@ -125,17 +125,18 @@ function turn_update()
         where_depth = you.depth()
         want_gameplan_update = true
 
+        target_stair = nil
+        transp_zone = 0
+        zone_counts = {}
+
+        clear_ignores()
+        stuck_turns = 0
         if backtracked_to ~= where then
             backtracked_to = nil
         end
 
-        clear_ignores()
-        target_stair = nil
         base_corrosion = in_branch("Dis") and 2 or 0
 
-        transp_zone = 0
-        zone_counts = {}
-
         if you.have_orb() and where == zot_end then
             ignore_traps = true
         else