brauchst ein PP und ein paar variablen

Var: [Schritte]
Var: [PositionX]
Var: [PositionY]

am anfang werden die koordinaten des helden in die variablen gespeichert.
dann nen kurzen wait (0,1)
als nächstes subtrahierst du die koordinaten des helden wieder.
per fork checkst du dann, ob die anders als 0 sind.

Fork: Var: [PositionX] other 0
Change Var: [Schritte] + 1
goto label #1
end case

Fork: Var: [PositionY] other 0
Change Var: [Schritte] + 1
goto label #1
end case

label #1


und da das ein pp ist, wiederholt sich das ja immer wieder