Section 3.5 - Moving

To move a sector:
choose row 1 in Table_Location;
Change Tmp_Width to Width Entry;
If Freespace is None [None]
begin;
Change sector Y-Axis of Compass and X-Axis of Compass in location of Compass to None;
end if;
If Freespace is a friendly person [Friendly Person]
begin;
Change sector Y-Axis of Compass and X-Axis of Compass in location of Compass to Freespace;
end if;
If Tmp_Direction is north [North]
begin;
Decrease X-Axis of Compass by 1;
choose row X-Axis of Compass in Table_Location;
Change sector Y-Axis of Compass and X-Axis of Compass in location of Compass to Compass;
end if;
If Tmp_Direction is northwest [Northwest]
begin;
Decrease X-Axis of Compass by 1;
If Y-Axis of Compass is not "RE"
begin;
choose row with Letters28 of Y-Axis of Compass in Table 200;
Change tmp_Y_Number to Number Entry;
Decrease tmp_Y_Number by 1;
Change sector tmp_Y_Number and X-Axis of Compass in location of Compass to Compass;
otherwise;
Change tmp_Y_Number to tmp_Width;
decrease tmp_Y_Number by 1;
Change sector tmp_Y_Number and X-Axis of Compass in location of Compass to Compass;
end if;
end if;
If Tmp_Direction is northeast [Northeast]
begin;
Decrease X-Axis of Compass by 1;
choose row with Letters28 of Y-Axis of Compass in Table 200;
Change tmp_Y_Number to Number Entry;
Increase tmp_Y_Number by 1;
Change sector tmp_Y_Number and X-Axis of Compass in location of Compass to Compass;
end if;
If Tmp_Direction is south [South]
begin;
Increase X-Axis of Compass by 1;
choose row X-Axis of Compass in Table_Location;
Change sector Y-Axis of Compass and X-Axis of Compass in location of Compass to Compass;
end if;
If Tmp_Direction is southwest [Southwest]
begin;
Increase X-Axis of Compass by 1;
If Y-Axis of Compass is not "RE"
begin;
choose row with Letters28 of Y-Axis of Compass in Table 200;
Change tmp_Y_Number to Number Entry;
Decrease tmp_Y_Number by 1;
Change sector tmp_Y_Number and X-Axis of Compass in location of Compass to Compass;
otherwise;
Change tmp_Y_Number to tmp_Width;
decrease tmp_Y_Number by 1;
Change sector tmp_Y_Number and X-Axis of Compass in location of Compass to Compass;
end if;
end if;
If Tmp_Direction is southeast [Southeast]
begin;
Increase X-Axis of Compass by 1;
choose row with Letters28 of Y-Axis of Compass in Table 200;
Change tmp_Y_Number to Number Entry;
Increase tmp_Y_Number by 1;
Change sector tmp_Y_Number and X-Axis of Compass in location of Compass to Compass;
end if;
If Tmp_Direction is west [West]
begin;
If Y-Axis of Compass is not "RE"
begin;
choose row with Letters28 of Y-Axis of Compass in Table 200;
Change tmp_Y_Number to Number Entry;
Decrease tmp_Y_Number by 1;
Change sector tmp_Y_Number and X-Axis of Compass in location of Compass to Compass;
otherwise;
Change tmp_Y_Number to tmp_Width;
decrease tmp_Y_Number by 1;
Change sector tmp_Y_Number and X-Axis of Compass in location of Compass to Compass;
end if;
end if;
If Tmp_Direction is east [East]
begin;
choose row with Letters28 of Y-Axis of Compass in Table 200;
Change tmp_Y_Number to Number Entry;
Increase tmp_Y_Number by 1;
Change sector tmp_Y_Number and X-Axis of Compass in location of Compass to Compass;
end if.


Room & Dimension ends here.