set #lpc 10
; 1016/537 n -> s
; 961/537 e -> w
; 961/501 s -> n
; 1016/501 w -> e
while #true
{
gosub nord2sud
gosub est2west
gosub sud2nord
gosub west2est
}

sub nord2sud
event pathfind 967 496 -70
wait 120
move 967 496 -70
wait 300
return est2west

sub est2west
event pathfind 914 469 -70
wait 120
move 914 469 -70
wait 310
return sud2nord

sub sud2nord
event pathfind 894 386 -70
wait 120
move 894 386 -70
wait 310
return west2est

sub west2est
event pathfind 946 384 -70
wait 120
move 946 384 -70
wait 310
return nord2sud