variables dir,do_move,n,x,y;

beginstate WHATEVER_STATE_1;
dir = 1; //west
set_state_continue(WHATEVER_STATE_2);
break;

beginstate WHATEVER_STATE_2;
if((dir < 1) || (dir > 3)){
<complain>
end();
}
do_move = 1;
//find the coordinates of the new location to try
if(dir == 1){//west
x = char_loc_x(ME) - 1;
y = char_loc_y(ME);
}
else if(dir == 2){//NW
x = char_loc_x(ME) - 1;
y = char_loc_y(ME) - 1;
}
else if(dir == 3){//SW
x = char_loc_x(ME) - 1;
y = char_loc_y(ME) + 1;
}
//test if the terrain will allow stepping there
n = get_terrain(x,y);
if(<terrain cannot be stepped on>)
do_move = 0;
//test if the floor will allow stepping there
n = get_floor(x,y);
if(<floor cannot be stepped on>)
do_move = 0;
//make sure no one else is standing there
n = char_on_loc(x,y);
if(n != -1)
do_move = 0;
if(do_move == 1){ //if we can move, do it
if(dir == 1)
set_character_facing(ME,2);
else if(dir == 2)
set_character_facing(ME,1);
else if(dir == 3)
set_character_facing(ME,3);
relocate_character(ME,x,y);
}
else{ //otherwise try the next direction
dir = dir + 1;
set_state_continue(WHATEVER_STATE_2);
}
break;