3a0
@verb #3838:"forward f back b" none none none rxdo #3135
@program #3838:"forward f back b" none none none
if ((t = this:has_tick(player)) == 0)
  $msg:mtell("nogo")
elseif (this:exit_ahead() && verb[1] == "f")
  this:finished()
else
  q = this:("wall_" + (verb[1] == "f" ? "ahead" | "behind"))(t.maze_layout[t.cur_sq[1]][t.cur_sq[2]])
  if (q || (verb[1] == "f" && this:enter_ahead()))
    $msg:mtell("ouch")
  else
    if (verb[1] == "b")
      t.dir = (t.dir + 1) % 4 + 1
      if (this:enter_ahead())
        $msg:mtell("ouch")
        return t.dir = (t.dir + 1) % 4 + 1
      elseif (this:exit_ahead())
        return this:finished()
      endif
      t.dir = (t.dir + 1) % 4 + 1
    endif
    d = verb[1] == "f" ? t.dir | (t.dir + 1) % 4 + 1
    for x in [1..2]
      t.cur_sq[x] = t.cur_sq[x] + t.movement[d][x]
    endfor
    t.moves = t.moves + 1
    player.location:look()
  endif
endif
.

0