pokecrystal-board/engine/events/forced_movement.asm
mid-kid 5efce10789 Remove even more address comments
That should be all of them this time
2018-06-25 02:10:37 +02:00

52 lines
692 B
NASM

Script_ForcedMovement::
checkcode VAR_FACING
ifequal DOWN, .down
ifequal UP, .up
ifequal LEFT, .left
ifequal RIGHT, .right
end
.up
applymovement PLAYER, .MovementData_up
end
.down
applymovement PLAYER, .MovementData_down
end
.right
applymovement PLAYER, .MovementData_right
end
.left
applymovement PLAYER, .MovementData_left
end
.MovementData_up:
step_dig 16
turn_in DOWN
step_dig 16
turn_head DOWN
step_end
.MovementData_down:
step_dig 16
turn_in UP
step_dig 16
turn_head UP
step_end
.MovementData_right:
step_dig 16
turn_in LEFT
step_dig 16
turn_head LEFT
step_end
.MovementData_left:
step_dig 16
turn_in RIGHT
step_dig 16
turn_head RIGHT
step_end