Room & Dimension

version 1 by Sebastian Rahn

  • Home page
  • Beginning
  • Previous
  • Next



  • Section 1.2 - Changing sector

    To Change sector (Y - a text) and (X - a number) in (map - a room) to (new - a thing):
    choose row with Sector Room of map in Table 997;
    Change Table_Location to Table Entry;
    choose row 1 in Table_Location;
    Change Tmp_Width to Width Entry;
    choose row X in Table_Location;
    If Y is "LE", Change LE Entry to new;
    If Y is "A", Change A1 Entry to new;
    If Y is "B", Change B2 Entry to new;
    If Y is "C", Change C3 Entry to new;
    If Y is "D", Change D4 Entry to new;
    If Y is "E", Change E5 Entry to new;
    If Y is "F", Change F6 Entry to new;
    If Y is "G", Change G7 Entry to new;
    If Y is "H", Change H8 Entry to new;
    If Y is "I", Change I9 Entry to new;
    If Y is "J", Change J10 Entry to new;
    If Y is "K", Change K11 Entry to new;
    If Y is "L", Change L12 Entry to new;
    If Y is "M", Change M13 Entry to new;
    If Y is "N", Change N14 Entry to new;
    If Y is "O", Change O15 Entry to new;
    If tmp_Width > 17
    begin;
    If Y is "P", Change P16 Entry to new;
    choose row with Sector Room of map in Table 997;
    Change Table_Location to Table 2 Entry;
    choose row X in Table_Location;
    If Y is "Q", Change Q17 Entry to new;
    If Y is "R", Change R18 Entry to new;
    If Y is "S", Change S19 Entry to new;
    If Y is "T", Change T20 Entry to new;
    If Y is "U", Change U21 Entry to new;
    If Y is "V", Change V22 Entry to new;
    If Y is "W", Change W23 Entry to new;
    If Y is "X", Change X24 Entry to new;
    If Y is "Y", Change Y25 Entry to new;
    If Y is "Z", Change Z26 Entry to new;
    end if;
    If Y is "RE", Change RE Entry to new.

    To Change sector (Y - a number) and (X - a number) in (map - a room) to (new - a thing):
    choose row with Sector Room of map in Table 997;
    Change Table_Location to Table Entry;
    choose row 1 in Table_Location;
    Change Tmp_Width to Width Entry;
    If Tmp_Width > 5
    begin;
    If Tmp_Width > 17
    begin;
    choose row Y in Table 200;
    If Tmp_Width is 28, Change Tmp_Picked_Y to Letters28 Entry;
    If Tmp_Width is 27, Change Tmp_Picked_Y to Letters27 Entry;
    If Tmp_Width is 26, Change Tmp_Picked_Y to Letters26 Entry;
    If Tmp_Width is 25, Change Tmp_Picked_Y to Letters25 Entry;
    If Tmp_Width is 24, Change Tmp_Picked_Y to Letters24 Entry;
    If Tmp_Width is 23, Change Tmp_Picked_Y to Letters23 Entry;
    If Tmp_Width is 22, Change Tmp_Picked_Y to Letters22 Entry;
    If Tmp_Width is 21, Change Tmp_Picked_Y to Letters21 Entry;
    If Tmp_Width is 20, Change Tmp_Picked_Y to Letters20 Entry;
    If Tmp_Width is 19, Change Tmp_Picked_Y to Letters19 Entry;
    If Tmp_Width is 18, Change Tmp_Picked_Y to Letters18 Entry;
    otherwise;
    choose row Y in Table 201;
    If Tmp_Width is 17, Change Tmp_Picked_Y to Letters17 Entry;
    If Tmp_Width is 16, Change Tmp_Picked_Y to Letters16 Entry;
    If Tmp_Width is 15, Change Tmp_Picked_Y to Letters15 Entry;
    If Tmp_Width is 14, Change Tmp_Picked_Y to Letters14 Entry;
    If Tmp_Width is 13, Change Tmp_Picked_Y to Letters13 Entry;
    If Tmp_Width is 12, Change Tmp_Picked_Y to Letters12 Entry;
    If Tmp_Width is 11, Change Tmp_Picked_Y to Letters11 Entry;
    If Tmp_Width is 10, Change Tmp_Picked_Y to Letters10 Entry;
    If Tmp_Width is 9, Change Tmp_Picked_Y to Letters9 Entry;
    If Tmp_Width is 8, Change Tmp_Picked_Y to Letters8 Entry;
    If Tmp_Width is 7, Change Tmp_Picked_Y to Letters7 Entry;
    If Tmp_Width is 6, Change Tmp_Picked_Y to Letters6 Entry;
    end if;
    end if;
    If Tmp_Width < 6
    begin;
    choose row Y in Table 202;
    If Tmp_Width is 5, Change Tmp_Picked_Y to Letters5 Entry;
    If Tmp_Width is 4, Change Tmp_Picked_Y to Letters4 Entry;
    If Tmp_Width is 3, Change Tmp_Picked_Y to Letters3 Entry;
    If Tmp_Width is 2, Change Tmp_Picked_Y to Letters2 Entry;
    If Tmp_Width is 1, Change Tmp_Picked_Y to Letter Entry;
    end if;
    choose row X in Table_Location;
    If Tmp_Picked_Y is "LE", Change LE Entry to new;
    If Tmp_Picked_Y is "A", Change A1 Entry to new;
    If Tmp_Picked_Y is "B", Change B2 Entry to new;
    If Tmp_Picked_Y is "C", Change C3 Entry to new;
    If Tmp_Picked_Y is "D", Change D4 Entry to new;
    If Tmp_Picked_Y is "E", Change E5 Entry to new;
    If Tmp_Picked_Y is "F", Change F6 Entry to new;
    If Tmp_Picked_Y is "G", Change G7 Entry to new;
    If Tmp_Picked_Y is "H", Change H8 Entry to new;
    If Tmp_Picked_Y is "I", Change I9 Entry to new;
    If Tmp_Picked_Y is "J", Change J10 Entry to new;
    If Tmp_Picked_Y is "K", Change K11 Entry to new;
    If Tmp_Picked_Y is "L", Change L12 Entry to new;
    If Tmp_Picked_Y is "M", Change M13 Entry to new;
    If Tmp_Picked_Y is "N", Change N14 Entry to new;
    If Tmp_Picked_Y is "O", Change O15 Entry to new;
    If tmp_Width > 17
    begin;
    If Tmp_Picked_Y is "P", Change P16 Entry to new;
    choose row with Sector Room of map in Table 997;
    Change Table_Location to Table 2 Entry;
    choose row X in Table_Location;
    If Tmp_Picked_Y is "Q", Change Q17 Entry to new;
    If Tmp_Picked_Y is "R", Change R18 Entry to new;
    If Tmp_Picked_Y is "S", Change S19 Entry to new;
    If Tmp_Picked_Y is "T", Change T20 Entry to new;
    If Tmp_Picked_Y is "U", Change U21 Entry to new;
    If Tmp_Picked_Y is "V", Change V22 Entry to new;
    If Tmp_Picked_Y is "W", Change W23 Entry to new;
    If Tmp_Picked_Y is "X", Change X24 Entry to new;
    If Tmp_Picked_Y is "Y", Change Y25 Entry to new;
    If Tmp_Picked_Y is "Z", Change Z26 Entry to new;
    end if;
    If Tmp_Picked_Y is "RE", Change RE Entry to new.