Room & Dimension

version 1 by Sebastian Rahn

  • Home page
  • Beginning
  • Previous
  • Next



  • Part 1 - Basic functions

    Section 1.1 - Choosing sectors

    Tmp_Picked is a thing that varies.
    Tmp_Picked_Room is a room that varies.
    Tmp_Picked_Y is a text that varies.

    Table 200 - Y-Axis Parameter
    Number  Letters28  Letters27  Letters26  Letters25  Letters24  Letters23  Letters22  Letters21  Letters20  Letters19  Letters18    
    1  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  
    2  "A"  "A"  "A"  "A"  "A"  "A"  "A"  "A"  "A"  "A"  "A"  
    3  "B"  "B"  "B"  "B"  "B"  "B"  "B"  "B"  "B"  "B"  "B"  
    4  "C"  "C"  "C"  "C"  "C"  "C"  "C"  "C"  "C"  "C"  "C"    
    5  "D"  "D"  "D"  "D"  "D"  "D"  "D"  "D"  "D"  "D"  "D"  
    6  "E"  "E"  "E"  "E"  "E"  "E"  "E"  "E"  "E"  "E"  "D"  
    7  "F"  "F"  "F"  "F"  "F"  "F"  "F"  "F"  "F"  "F"  "F"  
    8  "G"  "G"  "G"  "G"  "G"  "G"  "G"  "G"  "G"  "G"  "G"  
    9  "H"  "H"  "H"  "H"  "H"  "H"  "H"  "H"  "H"  "H"  "H"  
    10  "I"  "I"  "I"  "I"  "I"  "I"  "I"  "I"  "I"  "I"  "I"  
    11  "J"  "J"  "J"  "J"  "J"  "J"  "J"  "J"  "J"  "J"  "J"  
    12  "K"  "K"  "K"  "K"  "K"  "K"  "K"  "K"  "K"  "K"  "K"  
    13  "L"  "L"  "L"  "L"  "L"  "L"  "L"  "L"  "L"  "L"  "L"  
    14  "M"  "M"  "M"  "M"  "M"  "M"  "M"  "M"  "M"  "M"  "M"  
    15  "N"  "N"  "N"  "N"  "N"  "N"  "N"  "N"  "N"  "N"  "N"  
    16  "O"  "O"  "O"  "O"  "O"  "O"  "O"  "O"  "O"  "O"  "O"  
    17  "P"  "P"  "P"  "P"  "P"  "P"  "P"  "P"  "P"  "P"  "P"  
    18  "Q"  "Q"  "Q"  "Q"  "Q"  "Q"  "Q"  "Q"  "Q"  "Q"  "RE"  
    19  "R"  "R"  "R"  "R"  "R"  "R"  "R"  "R"  "R"  "RE"  
    20  "S"  "S"  "S"  "S"  "S"  "S"  "S"  "S"  "RE"  
    21  "T"  "T"  "T"  "T"  "T"  "T"  "T"  "RE"  
    22  "U"  "U"  "U"  "U"  "U"  "U"  "RE"  
    23  "V"  "V"  "V"  "V"  "V"  "RE"  
    24  "W"  "W"  "W"  "W"  "RE"  
    25  "X"  "X"  "X"  "RE"  
    26  "Y"  "Y"  "RE"  
    27  "Z"  "RE"  
    28  "RE"    

    Table 201 - Y-Axis Parameter(2)
    Number  Letters17  Letters16  Letters15  Letters14  Letters13  Letters12  Letters11  Letters10  Letters9  Letters8  Letters7  Letters6    
    1  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  "LE"  
    2  "A"  "A"  "A"  "A"  "A"  "A"  "A"  "A"  "A"  "A"  "A"  "A"  
    3  "B"  "B"  "B"  "B"  "B"  "B"  "B"  "B"  "B"  "B"  "B"  "B"  
    4  "C"  "C"  "C"  "C"  "C"  "C"  "C"  "C"  "C"  "C"  "C"  "C"    
    5  "D"  "D"  "D"  "D"  "D"  "D"  "D"  "D"  "D"  "D"  "D"  "D"  
    6  "E"  "E"  "E"  "E"  "E"  "E"  "E"  "E"  "E"  "E"  "E"  "RE"  
    7  "F"  "F"  "F"  "F"  "F"  "F"  "F"  "F"  "F"  "F"  "RE"  
    8  "G"  "G"  "G"  "G"  "G"  "G"  "G"  "G"  "G"  "RE"  
    9  "H"  "H"  "H"  "H"  "H"  "H"  "H"  "H"  "RE"  
    10  "I"  "I"  "I"  "I"  "I"  "I"  "I"  "RE"  
    11  "J"  "J"  "J"  "J"  "J"  "J"  "RE"  
    12  "K"  "K"  "K"  "K"  "K"  "RE"  
    13  "L"  "L"  "L"  "L"  "RE"  
    14  "M"  "M"  "M"  "RE"  
    15  "N"  "N"  "RE"  
    16  "O"  "RE"  
    17  "RE"  

    Table 202 - Y-Axis Parameter(3)
    Number  Letters5  Letters4  Letters3  Letters2  Letter  
    1  "LE"  "LE"  "LE"  "LE"  "LE"  
    2  "A"  "A"  "A"  "RE"  
    3  "B"  "B"  "RE"  
    4  "C"  "RE"  
    5  "RE"  


    To pick sector (Y - a text) and (X - a number) in (map - a room):
    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 Tmp_Picked to LE Entry;
    If Y is "A", Change Tmp_Picked to A1 Entry;
    If Y is "B", Change Tmp_Picked to B2 Entry;
    If Y is "C", Change Tmp_Picked to C3 Entry;
    If Y is "D", Change Tmp_Picked to D4 Entry;
    If Y is "E", Change Tmp_Picked to E5 Entry;
    If Y is "F", Change Tmp_Picked to F6 Entry;
    If Y is "G", Change Tmp_Picked to G7 Entry;
    If Y is "H", Change Tmp_Picked to H8 Entry;
    If Y is "I", Change Tmp_Picked to I9 Entry;
    If Y is "J", Change Tmp_Picked to J10 Entry;
    If Y is "K", Change Tmp_Picked to K11 Entry;
    If Y is "L", Change Tmp_Picked to L12 Entry;
    If Y is "M", Change Tmp_Picked to M13 Entry;
    If Y is "N", Change Tmp_Picked to N14 Entry;
    If Y is "O", Change Tmp_Picked to O15 Entry;
    If tmp_Width > 17
    begin;
    If Y is "P", Change Tmp_Picked to P16 Entry;
    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 Tmp_Picked to Q17 Entry;
    If Y is "R", Change Tmp_Picked to R18 Entry;
    If Y is "S", Change Tmp_Picked to S19 Entry;
    If Y is "T", Change Tmp_Picked to T20 Entry;
    If Y is "U", Change Tmp_Picked to U21 Entry;
    If Y is "V", Change Tmp_Picked to V22 Entry;
    If Y is "W", Change Tmp_Picked to W23 Entry;
    If Y is "X", Change Tmp_Picked to X24 Entry;
    If Y is "Y", Change Tmp_Picked to Y25 Entry;
    If Y is "Z", Change Tmp_Picked to Z26 Entry;
    end if;
    If Y is "RE", Change Tmp_Picked to RE Entry.

    To pick sector (Y - a number) and (X - a number) in (map - a room):
    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 Tmp_Picked to LE Entry;
    If Tmp_Picked_Y is "A", Change Tmp_Picked to A1 Entry;
    If Tmp_Picked_Y is "B", Change Tmp_Picked to B2 Entry;
    If Tmp_Picked_Y is "C", Change Tmp_Picked to C3 Entry;
    If Tmp_Picked_Y is "D", Change Tmp_Picked to D4 Entry;
    If Tmp_Picked_Y is "E", Change Tmp_Picked to E5 Entry;
    If Tmp_Picked_Y is "F", Change Tmp_Picked to F6 Entry;
    If Tmp_Picked_Y is "G", Change Tmp_Picked to G7 Entry;
    If Tmp_Picked_Y is "H", Change Tmp_Picked to H8 Entry;
    If Tmp_Picked_Y is "I", Change Tmp_Picked to I9 Entry;
    If Tmp_Picked_Y is "J", Change Tmp_Picked to J10 Entry;
    If Tmp_Picked_Y is "K", Change Tmp_Picked to K11 Entry;
    If Tmp_Picked_Y is "L", Change Tmp_Picked to L12 Entry;
    If Tmp_Picked_Y is "M", Change Tmp_Picked to M13 Entry;
    If Tmp_Picked_Y is "N", Change Tmp_Picked to N14 Entry;
    If Tmp_Picked_Y is "O", Change Tmp_Picked to O15 Entry;
    If tmp_Width > 17
    begin;
    If Tmp_Picked_Y is "P", Change Tmp_Picked to P16 Entry;
    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 Tmp_Picked to Q17 Entry;
    If Tmp_Picked_Y is "R", Change Tmp_Picked to R18 Entry;
    If Tmp_Picked_Y is "S", Change Tmp_Picked to S19 Entry;
    If Tmp_Picked_Y is "T", Change Tmp_Picked to T20 Entry;
    If Tmp_Picked_Y is "U", Change Tmp_Picked to U21 Entry;
    If Tmp_Picked_Y is "V", Change Tmp_Picked to V22 Entry;
    If Tmp_Picked_Y is "W", Change Tmp_Picked to W23 Entry;
    If Tmp_Picked_Y is "X", Change Tmp_Picked to X24 Entry;
    If Tmp_Picked_Y is "Y", Change Tmp_Picked to Y25 Entry;
    If Tmp_Picked_Y is "Z", Change Tmp_Picked to Z26 Entry;
    end if;
    If Tmp_Picked_Y is "RE", Change Tmp_Picked to RE Entry.