Room & Dimension

version 1 by Sebastian Rahn

  • Home page
  • Beginning
  • Previous



  • 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.