unit rplace; interface Procedure commands; Procedure rand_around_dol_guldur; Procedure rand_bor_leath; Procedure rand_bar_en_ibun; Procedure rand_brij_mijesec; Procedure rand_caravan_grounds; Procedure rand_chennacatt_city; Procedure rand_chennacatt_rural; Procedure rand_coast; Procedure rand_darkwood; Procedure rand_darkwoodpaths; Procedure rand_darkwoodclearings; Procedure rand_dune_sea; Procedure rand_dunharrow; Procedure rand_dunnish_highlands; Procedure rand_east_emnet; Procedure rand_eastern_morthond_rural; Procedure rand_east_west_trail; Procedure rand_entwash_vale; Procedure rand_eryn_vorn; Procedure rand_fangorn_forest; Procedure rand_fens_bogs; Procedure rand_first_hall; Procedure rand_foothills_rural; Procedure rand_fourth_hall; Procedure rand_gwaithlo_plain; Procedure rand_haunted_fens; Procedure rand_honnin_dwelling; Procedure rand_honnin_shrine; Procedure rand_isra_city; Procedure rand_isra_rural; Procedure rand_kirmlesra; Procedure rand_lower_delta; Procedure rand_mirror_of_fire; Procedure rand_mines; Procedure rand_misty_mountains; Procedure rand_morthond_villages_town; Procedure rand_municipal_quarter; Procedure rand_nansret; Procedure rand_northern_plains; Procedure rand_open_forest_day; Procedure rand_open_forest_night; Procedure rand_orc_lair; Procedure rand_paths; Procedure rand_paths_of_the_dead; Procedure rand_poor_quarter; Procedure rand_pred; Procedure rand_ruin; Procedure rand_rural_bar_en_tinnen; Procedure rand_sara_bask; Procedure rand_sarn_erech_town; Procedure rand_second_hall; Procedure rand_sevet_kovina; Procedure rand_sellers_court; Procedure rand_sixth_seventh_hall; Procedure rand_surrounding_lands; Procedure rand_suza_sumar; Procedure rand_skaurils_march; Procedure rand_southern_plains; Procedure rand_tarlangs_neck_pass; Procedure rand_tarlang_white_mountains; Procedure rand_the_downs_wold; Procedure rand_the_gaj; Procedure rand_the_katedrala; Procedure rand_the_midden; Procedure rand_the_misty_mountains; Procedure rand_the_port; Procedure rand_the_slough; Procedure rand_the_tower; Procedure rand_third_fifth_hall; Procedure rand_torech_ungol; Procedure rand_town_of_bar_en_tinnen; Procedure rand_tur_betark; Procedure rand_waterhole; implementation uses crt, place, monster0, monster1, monster2, monster3, monster4, monster5; var dicec : byte; {muutuja satunnaisluvulle} loopc : char; {loop, mahdollistaa "naputtamisen"} {Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor} Procedure rand_around_dol_guldur; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 3 miles or 3 hours someone see..'); commands; case dicec of 1..2 : Active_tree; 3..7 : Bird_large; 8..14 : Bird_medium; 15..23 : Bird_small; 24..27 : Bears_cave; 28..34 : Crebain; 35..40 : Spider_ennerlings; 41 : Fell_beast; 42..48 : Milk_white_trumpet; 49..55 : Orc_normal_patrols; 56 : Lion_snow; 57..58 : Spider_large; 59..70 : Squirrel_black; 71..72 : Troll_forest1; 73..77 : Warg; 78 : Wild_cat; 79..85 : Wolves; 86..90 : Din_fuinen; 91..93 : Rose_trees; 94 : Elves; 95..96 : Woodmen; 97 : Rain; 98..100 : Mists; end; loopc := readkey; if loopc = 'l'then around_dol_guldur; if loopc = '0'then exit; end; Procedure rand_bar_en_ibun; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/4 miles or 1/4 hours someone see..'); commands; case dicec of 1..4 : General_Traps; 5..9 : Natural_Hazards; 10 : Lions; 11 : Bears_black; 12..13 : Bears_cave; 13..16 : Glutan; 17 : Nimfiara_Wild_aurochs; 18..20 : Bats_Grey_Flyer; 21..22 : Hummerhorns; 23..27 : Dumbledoors; 28..33 : Snakes_dangerous; 34..41 : Birds; 42..53 : Other_Animals; 54..55 : Mercenaries_Brigands; 56..62 : Beffraen; 63..64 : Mebden; 65..69 : Large_Patrol; 70..76 : Small_Patrol; 77..79 : Spies; 80 : Elves; 81 : Troll_forest; 82..83 : Hourns; 84..99 : Petty_Dwarves; 100 : Other_Beings; end; loopc := readkey; if loopc = 'l'then bar_en_ibun; if loopc = '0'then exit; end; Procedure rand_bor_leath; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/4 miles or 1/4 hours someone see..'); commands; case dicec of 1 : General_Traps; 2..4 : Natural_Hazards; 5 : Wolves1; 6..7 : Glutan; 8 : Nimfiara_Wild_Aurochs; 9..10 : Boar; 11 : Bats_Grey_Flyer; 12 : Hummerhorns; 13..14 : Dumbledoors; 15 : Snakes_dangerous; 16..21 : Birds; 22..30 : Other_Animals; 31..44 : Mara; 45 : Demon; 46..51 : Mercenaries_Brigands; 52 : Mebden; 53..56 : Saralainners; 57..68 : Common_Folk; 79 : Rivermen; 80 : Large_Patrol; 81..82 : Small_Patrol; 83..84 : Spies; 85..86 : Other_Individuals; 87..92 : Foreigners; 93 : Elves; 94..96 : Dwarves; 97 : Hourns; 98 : Woses; 99..100 : Other_Beings; end; loopc := readkey; if loopc = 'l'then bor_leath; if loopc = '0'then exit; end; Procedure rand_brij_mijesec; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 8 miles or 5 hours someone see..'); commands; case dicec of 1 : traps; 2..5 : natural_hazards; 6..10 : cave_cavern_lair; 11..16 : village; 17..20 : stronghold; 21 : grave_site_tomb; 22..24 : ruins; 25 : camel_wild; 26..28 : goats_wild; 29..30 : hawk; 31..32 : horses_wild; 33..35 : lizard; 36..37 : orao; 38..41 : otravati; 42..44 : rats_giant; 45..50 : vuk; 51..54 : zamka; 55..57 : enemies_haradrim; 58..59 : enemies_other; 60 : black_numenoreans; 61 : variags; 62..64 : north_haradrim; 65..66 : south_haradrim; 67..72 : warriors; 73..78 : herders; 79..81 : thieves_brigands; 82..84 : caravans; 85..86 : merchants; 87..89 : travellers; 90 : lesina; 91..94 : prelaz_bic; 95..100 : other_beings; end; loopc := readkey; if loopc = 'l'then brij_mijesec; if loopc = '0'then exit; end; Procedure rand_caravan_grounds; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1 hour someone see..'); commands; case dicec of 1 : traps; 2..3 : goats_wild; 4 : horses_wild; 5..6 : lizard; 7..9 : rats_giant; 10..11 : vuk; 12..14 : enemies_haradrim; 15 : enemies_other; 16..17 : black_numenoreans; 18..19 : variags; 20..26 : north_haradrim; 27..33 : south_haradrim; 34..40 : warriors; 41..48 : herders; 49..56 : thieves_brigands; 57..69 : caravans; 70..82 : merchants; 83..95 : travellers; 96..100 : other_beings; end; loopc := readkey; if loopc = 'l'then caravan_grounds; if loopc = '0'then exit; end; Procedure rand_chennacatt_city; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 6 miles or 2 hours someone see..'); commands; case dicec of 1 : traps; 2 : natural_hazards; 3..10 : ruins; 11..15 : tomb; 16..25 : north_haradrim; 26..40 : local_people; 41..45 : merchants; 46..50 : thieves_sea_raiders; 51..55 : warriors; 56 : dwarves; 57 : black_numenoreans; 58..65 : travellers; 66..70 : camel_wild; 71..72 : cattle; 73..74 : horses_wild; 75 : goats_wild; 76..89 : other_beasts; 90 : demon_lesser; 91 : undead; 92..100 : other_beings; end; loopc := readkey; if loopc = 'l'then chennacatt_city; if loopc = '0'then exit; end; Procedure rand_chennacatt_rural; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 6 miles or 2 hours someone see..'); commands; case dicec of 1 : traps; 2..5 : natural_hazards; 6..10 : ruins; 11..12 : tomb; 13..20 : north_haradrim; 21..25 : local_people; 26..27 : merchants; 28 : thieves_sea_raiders; 29 : warriors; 30 : dwarves; 31 : black_numenoreans; 32..35 : travellers; 36 : orc_desert; 37..45 : orc_warriors; 46..50 : cattle; 51..55 : horses_wild; 56 : crocodiles; 57..58 : latava; 59..65 : goats_wild; 66..70 : caja; 71..78 : hanajaib; 79..89 : other_beasts; 90 : demon_lesser; 91 : demon_greater; 92 : undead; 93..100 : other_beings; end; loopc := readkey; if loopc = 'l'then chennacatt_rural; if loopc = '0'then exit; end; Procedure rand_coast; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 3 miles or 1 hour someone see..'); commands; case dicec of 1 : traps; 2..3 : natural_hazards; 4..5 : ruins; 6..7 : tomb; 8..9 : north_haradrim; 10..19 : local_people; 20..26 : merchants; 27..30 : thieves_sea_raiders; 31..34 : black_numenoreans; 35 : travellers; 36..37 : orc_desert; 38..40 : orc_warriors; 41 : cattle; 42 : horses_wild; 43..44 : baboons; 45..89 : other_beasts; 90..91 : demon_lesser; 92..100 : other_beings; end; loopc := readkey; if loopc = 'l'then coast; if loopc = '0'then exit; end; Procedure rand_darkwood; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/4 miles or 1/4 hours someone see..'); commands; case dicec of 1 : General_Traps; 2..5 : Natural_Hazards; 6 : Wolves1; 7..8 : Lions; 9..10 : bears_black; 11 : bears_cave; 12..18 : Glutan; 19..22 : Nimfiara_Wild_Aurochs; 23..26 : Boar; 27..33 : Bats_Grey_Flyer; 34 : Hummerhorns; 35..43 : Dumbledoors; 44..52 : snakes_dangerous; 53..64 : Birds; 65..80 : Other_Animals; 81 : Mara; 82 : Demon; 83 : Mercenaries_Brigands; 84..85 : Beffraen; 86..88 : Mebden; 89 : Saralainners; 90 : Common_Folk; 91 : Small_Patrol; 92 : Other_Individuals; 93 : Elves; 94..97 : Hourns; 98..99 : Woses; 100 : Other_Beings; end; loopc := readkey; if loopc = 'l'then darkwood; if loopc = '0'then exit; end; Procedure rand_darkwoodpaths; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1/2 hours someone see..'); commands; case dicec of 1..3 : General_Traps; 4..7 : Natural_Hazards; 8..9 : Wolves1; 10 : Lions; 11..12 : bears_black; 13..17 : Glutan; 18 : Nimfiara_Wild_Aurochs; 19..23 : Boar; 24..27 : Bats_Grey_Flyer; 28 : Hummerhorns; 29..34 : Dumbledoors; 35..43 : snakes_dangerous; 44..62 : Birds; 63..77 : Other_Animals; 78 : Mara; 79 : Demon; 80..81 : Mercenaries_Brigands; 82 : Beffraen; 83 : Mebden; 84 : Saralainners; 85..86 : Common_Folk; 87 : Large_Patrol; 88..90 : Small_Patrol; 91 : Spies; 92 : Other_Individuals; 93 : Foreigners; 94 : Elves; 95 : Dwarves; 96..97 : Hourns; 98 : Woses; 99..100 : Other_Beings; end; loopc := readkey; if loopc = 'l'then darkwoodpaths; if loopc = '0'then exit; end; Procedure rand_darkwoodclearings; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1/2 hours someone see..'); commands; case dicec of 1..2 : General_Traps; 3..6 : Natural_Hazards; 7..9 : Wolves1; 10..11 : Lions; 12..14 : bears_black; 15 : bears_cave; 16..20 : Glutan; 21..24 : Nimfiara_Wild_Aurochs; 25..32 : Boar; 33..37 : Bats_Grey_Flyer; 38..40 : Hummerhorns; 41..46 : Dumbledoors; 47..53 : snakes_dangerous; 54..67 : Birds; 68..79 : Other_Animals; 80 : Demon; 81 : Mercenaries_Brigands; 82 : Beffraen; 83..84 : Mebden; 85 : Saralainners; 86 : Common_Folk; 87 : Large_Patrol; 89..90 : Small_Patrol; 91 : Spies; 92 : Other_Individuals; 93 : Foreigners; 94 : Elves; 95 : Dwarves; 96..97 : Hourns; 98..99 : Woses; 100 : Other_Beings; end; loopc := readkey; if loopc = 'l'then darkwoodclearings; if loopc = '0'then exit; end; Procedure rand_dune_sea; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 15 miles or 8 hours someone see..'); commands; case dicec of 1 : traps; 2..13 : natural_hazards; 14..18 : cave_cavern_lair; 19..25 : oasis; 26..28 : grave_site_tomb; 29..33 : ruins; 34..38 : camel_wild; 39..42 : hawk; 43..46 : lizard; 47..50 : orao; 51..53 : rats_giant; 54 : enemies_haradrim; 55 : enemies_other; 56 : black_numenoreans; 57..58 : variags; 59 : north_haradrim; 60 : south_haradrim; 61..64 : warriors; 65 : herders; 66..68 : thieves_brigands; 69..70 : caravans; 71..72 : merchants; 73 : travellers; 74..78 : lesina; 79..80 : prelaz_bic; 81..87 : sand_devil; 88..95 : sand_drake; 96..100 : other_beings; end; loopc := readkey; if loopc = 'l'then dune_sea; if loopc = '0'then exit; end; Procedure rand_dunharrow; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1 hour someone see..'); commands; case dicec of 1 : mine_quarry_abandon; 2 : daen_coentis_site; 3 : dunnish_site; 4..5 : monoliths; 6 : lair; 7 : traps_in_or_outdoor; 8..27 : grave_site_tomb; 28..29 : birds; 30 : eagle_great; 31..32 : cliff_buzzard; 33..34 : hornet_cliff; 35..36 : bat_hunting; 37 : wolves; 38 : bears_brown; 39 : bears_blue; 40 : sheep_goats; 41 : spider_king; 42 : viper_rock; 43 : other_animals; 44 : troll_hill; 45 : troll_cave; 46..49 : ghouls; 50..55 : ghouls_greater; 56..61 : skeletons; 62..65 : skeletons_lord; 66..72 : ghosts_lesser; 73..77 : ghosts; 78..80 : ghosts_lord; 81..83 : wraiths; 84..90 : wight_barrow; 91 : dwarves; 92 : locals; 93 : wandering_folk; 94..95 : brigands; 96..97 : orc_small_patrols; 98 : orc_normal_patrols; 99 : scouts; 100 : other_beings; end; loopc := readkey; if loopc = 'l'then dunharrow; if loopc = '0'then exit; end; Procedure rand_dunnish_highlands; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 5 miles or 4 hours someone see..'); commands; case dicec of 1 : general_Traps; 2..3 : avalanche; 4..6 : flash_flood; 7 : grass_fire; 8..10 : cave_Cavern_lair; 11..12 : dunedain_site; 13..17 : dunlending_site; 18 : druedain_Site; 19..20 : grave_site_tomb; 21..26 : common_folk; 27..31 : dunlendings_Warriors; 32..34 : dunlendings_Healers; 35..37 : dunlendings_Bards; 38..40 : dunlendings_Priest; 41 : northmen; 42..44 : travelling_merchants; 45..46 : bandits; 47..49 : orc_scouts; 50..51 : orc_small_patrols; 52 : orc_normal_patrols; 53 : dragons; 54 : druedain; 55..57 : dwarves; 58 : elves; 59 : ents; 60 : giants; 61 : eagle_great; 62 : hobbits; 63 : hourns; 64..65 : Troll_cave; 66..68 : troll_forest1; 69..71 : troll_hill; 72..73 : troll_stone; 74..75 : bat; 76..78 : bears_black1; 79 : bees_hornets; 80..82 : eagle_golden; 83..84 : boar; 85..86 : glutan; 87..88 : lynx_highland; 89..90 : herd_animals; 91..92 : snakes_poisonous; 93 : leopard_snow; 94..96 : wolf_warg; 97..100 : other_animals; end; loopc := readkey; if loopc = 'l'then dunnish_highlands; if loopc = '0'then exit; end; procedure rand_east_emnet; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 5 miles or 4 hours someone see..'); commands; case dicec of 1..2 : Ruins; 3..4 : Hut_shieling; 5 : House_Farmstead; 6..7 : Trail; 8..9 : Farming_folk; 10..13 : Herders; 14..16 : Country_folk; 17 : Smugglers_rogues; 18..20 : Hunters; 21 : Croppers_gatherers; 22 : Normal_patrol; 23 : Travellers; 24 : Traders; 25..26 : Wool_Grain_carrier; 27 : Insects_swarm; 28..29 : Birds_of_Prey; 30 : Bat_pond; 31 : Other_flying_creatures; 32..33 : Small_reptiles; 34 : Snakes_poisonous2; 35..36 : Otters_minks_rodents; 37..43 : Boars_bears_deer; 44..46 : Wild_dogs_tykes; 47..49 : Orc_units; 50 : Other_beings; 51..64 : Artificial_hazards; 65..70 : Terrain_hazards; 71..100 : Natural_events; end; loopc := readkey; if loopc = 'l'then east_emnet; if loopc = '0'then exit; end; Procedure rand_eastern_morthond_rural; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 10 miles or 4 hours someone see..'); commands; case dicec of 1 : mine_quarry_working; 2 : mine_quarry_abandon; 3..5 : daen_coentis_site; 6..9 : dunnish_site; 10..11 : dunedain_site; 12..14 : gondorian_site; 15..18 : monoliths; 19..20 : lair; 21 : traps_in_or_outdoor; 22..24 : grave_site_tomb; 25..28 : birds; 29..30 : eagle_great; 31 : cliff_buzzard; 32 : hornet_cliff; 33 : bat_hunting; 34..35 : wolves; 36 : mastiff_wild; 37 : bears_brown; 38 : bears_blue; 39..41 : deer; 42..46 : sheep_goats; 47..49 : boar_wild; 50 : marten_giant; 51 : spider_king; 52 : viper_rock; 53..57 : other_animals; 58 : troll_hill; 59 : troll_cave; 60 : ghouls; 61 : ghouls_greater; 62 : skeletons; 63 : skeletons_lord; 64..65 : ghosts_lesser; 66 : ghosts; 67 : ghosts_lord; 68 : wraiths; 69 : wight_barrow; 70..71 : northmen; 72 : easterlings; 73 : elves; 74 : dwarves; 75..81 : locals; 82..85 : townfolk; 86..88 : wandering_folk; 89..92 : brigands; 93 : orc_small_patrols; 94 : orc_normal_patrols; 95..96 : normal_patrol; 97 : scouts; 98..99 : general_folk; 100 : other_beings; end; loopc := readkey; if loopc = 'l'then eastern_morthond_rural; if loopc = '0'then exit; end; Procedure rand_east_west_trail; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 2 miles or 6 hours someone see..'); commands; case dicec of 1 : Active_tree; 2..7 : Bird_large; 8..15 : Bird_medium; 16..26 : Bird_small; 27..30 : bears_cave; 31..35 : Crebain; 36..39 : Spider_ennerlings; 40 : Fell_beast; 41..45 : Milk_white_trumpet; 46..49 : orc_normal_patrols; 50 : Lion_snow; 51..53 : Spider_large; 54..63 : Squirrel_black; 64 : Troll_forest1; 65..67 : Warg; 68..69 : Wild_cat; 70..76 : Wolves; 77..81 : Din_fuinen; 82..85 : Rose_trees; 86..87 : Elves; 88..92 : Woodmen; 93 : Rain; 94..97 : Mists; 98 : Arlan; 99 : Lichen_gloriosa; 100 : Rewk; end; loopc := readkey; if loopc = 'l'then east_west_trail; if loopc = '0'then exit; end; Procedure rand_entwash_vale; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 2 miles or 2 hours someone see..'); commands; case dicec of 1 : Ruins; 2..3 : Hut_shieling; 4 : House_Farmstead; 5..8 : Trail; 9..10 : Farming_folk; 11..13 : Herders; 14..16 : Country_folk; 17 : Hawker_falconer; 18..21 : Fishermen; 22 : Shrimper_shell_fisher; 23 : Smugglers_rogues; 24 : Hunters; 25 : Croppers_gatherers; 26..27 : Reed_peat_cutters; 28 : Normal_patrol; 29 : Customs_men; 30..32 : Travellers; 33..34 : Traders; 35..36 : Wool_Grain_carrier; 37..38 : Insects_swarm; 39..40 : Wading_birds; 41..45 : Swimming_Fishing_birds; 46 : Birds_of_Prey; 47 : Bat_pond; 48 : Other_flying_creatures; 49 : Small_reptiles; 50 : Snakes_poisonous2; 51 : Leeches_flukes; 52 : Turtles; 53..54 : Amphibians; 55 : Otters_minks_rodents; 56 : Boars_bears_deer; 57 : Wild_dogs_tykes; 58 : Eels; 59..60 : Fish_medium; 61 : Fish_large; 62 : Orc_units; 63..64 : Other_beings; 65..72 : Artificial_hazards; 73..75 : Terrain_hazards; 76..100 : Natural_events; end; loopc := readkey; if loopc = 'l'then entwash_vale; if loopc = '0'then exit; end; Procedure rand_eryn_vorn; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/4 miles or 1/4 hours someone see..'); commands; case dicec of 1 : General_Traps; 2..5 : Natural_Hazards; 6..7 : Lions; 8..9 : bears_black; 10 : bears_cave; 11..17 : Glutan; 18..20 : Nimfiara_Wild_Aurochs; 21..28 : Bats_Grey_Flyer; 29 : Hummerhorns; 30..34 : Dumbledoors; 35..42 : snakes_dangerous; 43..56 : Birds; 57..75 : Other_Animals; 76 : Mercenaries_Brigands; 77..79 : Beffraen; 80..84 : Mebden; 85..86 : Clansmen; 87..88 : Dunlendings; 89 : Rivermen; 90 : Large_Patrol; 91 : Small_Patrol; 92 : Spies; 93 : Elves; 94 : troll_forest; 95..98 : Hourns; 99 : Petty_Dwarves; 100 : Other_Beings; end; loopc := readkey; if loopc = 'l'then eryn_vorn; if loopc = '0'then exit; end; Procedure rand_fangorn_forest; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 2 miles or 2 hours someone see..'); commands; case dicec of 1 : General_Traps; 2..4 : Avalanche; 5..6 : Flash_flood; 7 : grass_fire; 8..10 : Cave_Cavern_lair; 11 : Dunedain_site; 12..13 : Calenardhon_site; 14 : Grave_site_tomb; 15 : dunlendings_Warriors; 16 : dunlendings_Healers; 17..19 : calenardhons_Common_folk; 20..22 : calenardhons_Soldiers; 23 : Northmen; 24..25 : travelling_merchants; 26 : Bandits; 27..29 : orc_scouts; 30..31 : orc_small_patrols; 32 : orc_normal_patrols; 33 : druedain; 34..35 : elves; 36..50 : ents; 51..75 : hourns; 76 : troll_forest1; 77 : troll_hill; 78..79 : bat; 80..81 : bears_black1; 82..83 : bees_hornets; 84..86 : eagle_golden; 87 : boar; 88..89 : grass_cat; 90 : green_asp; 91 : lynx_highland; 92..94 : herd_animals; 95..96 : snakes_poisonous; 97 : wolf_warg; 98..100 : other_animals; end; loopc := readkey; if loopc = 'l'then fangorn_forest; if loopc = '0'then exit; end; procedure rand_fens_bogs; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 2 miles or 4 hours someone see..'); commands; case dicec of 1..2 : Ruins; 3 : Hut_shieling; 4 : Trail; 5 : Farming_folk; 6 : Herders; 7 : Country_folk; 8 : Fur_trappers; 9..10 : Hawker_falconer; 11..12 : Smugglers_rogues; 13..16 : Hunters; 17 : Marshmen; 18 : Croppers_gatherers; 19..23 : Reed_peat_cutters; 24 : Normal_patrol; 25 : Travellers; 26 : Traders; 27..28 : Insects_swarm; 29 : Hummerhorns; 30..33 : Wading_birds; 34..35 : Swimming_Fishing_birds; 36 : Birds_of_Prey; 37 : Bat_pond; 38 : Other_flying_creatures; 39..41 : Small_reptiles; 42..44 : Snakes_poisonous2; 45 : Turtles; 46..49 : Amphibians; 50..52 : Otters_minks_rodents; 53 : Boars_bears_deer; 54..55 : Wild_dogs_tykes; 56 : Orc_units; 57..58 : Other_beings; 59..68 : Artificial_hazards; 69..73 : Terrain_hazards; 74..100 : Natural_events; end; loopc := readkey; if loopc = 'l'then fens_bogs; if loopc = '0'then exit; end; Procedure rand_first_hall; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 4 hours when moving or 8 hours when stopped someone see..'); commands; case dicec of 1..30 : traps; 31..35 : natural_hazards; 36..40 : animals_cave; 41..50 : bat; 51..60 : spider_large; 61..62 : ghosts; 63..65 : ghouls; 66 : skeletons; 67 : spectres; 68 : wight_lesser; 69 : wight_greater; 70..75 : warg; 76..90 : orc_normal_patrols; 91..97 : orc_large_patrols; 98..99 : troll_cave; 100 : other_individuals; end; loopc := readkey; if loopc = 'l'then first_hall; if loopc = '0'then exit; end; Procedure rand_foothills_rural; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 10 miles or 4 hours someone see..'); commands; case dicec of 1 : mine_quarry_working; 2 : mine_quarry_abandon; 3..4 : daen_coentis_site; 5..7 : dunnish_site; 8..9 : dunedain_site; 10 : gondorian_site; 11..14 : monoliths; 15..16 : lair; 17 : traps_in_or_outdoor; 18..19 : grave_site_tomb; 20..23 : birds; 24..25 : eagle_great; 26..27 : cliff_buzzard; 28..29 : hornet_cliff; 30..31 : bat_hunting; 32..34 : wolves; 35..36 : mastiff_wild; 37..38 : bears_brown; 39 : bears_blue; 40..42 : deer; 43..47 : sheep_goats; 48..50 : boar_wild; 51..52 : marten_giant; 53 : spider_king; 54..55 : viper_rock; 56..58 : other_animals; 59..60 : troll_hill; 61 : troll_cave; 62..63 : ghouls; 64 : ghouls_greater; 65..66 : skeletons; 67 : skeletons_lord; 68..70 : ghosts_lesser; 71..72 : ghosts; 73 : ghosts_lord; 74 : wraiths; 75 : wight_barrow; 76 : northmen; 77 : easterlings; 78 : elves; 79 : dwarves; 80..84 : locals; 85..87 : townfolk; 88..89 : wandering_folk; 90..92 : brigands; 93..94 : orc_small_patrols; 95 : orc_normal_patrols; 96..97 : normal_patrol; 98 : scouts; 99 : general_folk; 100 : other_beings; end; loopc := readkey; if loopc = 'l'then foothills_rural; if loopc = '0'then exit; end; Procedure rand_fourth_hall; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 4 hours when moving or 8 hours when stopped someone see..'); commands; case dicec of 1..30 : traps; 31 : natural_hazards; 32 : animals_cave; 33..35 : bat; 36 : spider_large; 37 : ghosts; 38 : ghouls; 39 : skeletons; 40 : spectres; 41 : wight_lesser; 42 : wight_greater; 43..70 : orc_normal_patrols; 71..85 : orc_large_patrols; 86..90 : troll_cave; 91..99 : margurgoth; 100 : other_individuals; end; loopc := readkey; if loopc = 'l'then fourth_hall; if loopc = '0'then exit; end; Procedure rand_gwaithlo_plain; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 10 miles or 4 hours someone see..'); commands; case dicec of 1 : general_Traps; 2..4 : flash_flood; 5..6 : grass_fire; 7..8 : cave_Cavern_lair; 9..10 : dunedain_site; 11..16 : dunlending_site; 17 : druedain_Site; 18 : grave_site_tomb; 19..26 : common_folk; 27..31 : dunlendings_Warriors; 32..34 : dunlendings_Healers; 35..38 : dunlendings_Bards; 39..40 : dunlendings_Priest; 41..42 : northmen; 43 : easterlings; 44..47 : travelling_merchants; 48..50 : bandits; 51..52 : orc_scouts; 53 : orc_small_patrols; 54 : druedain; 55..56 : dwarves; 57 : elves; 58 : eagle_great; 59..60 : hobbits; 61 : hourns; 62 : Troll_cave; 63..64 : troll_forest1; 65..65 : troll_hill; 67..69 : troll_stone; 70 : bat; 71 : bears_black1; 72..73 : bees_hornets; 74..76 : eagle_golden; 77 : boar; 78 : glutan; 79 : lynx_highland; 80..82 : jatewoone; 83..87 : herd_animals; 88..90 : snakes_poisonous; 91..92 : wolf_warg; 93..100 : other_animals; end; loopc := readkey; if loopc = 'l'then gwaithlo_plain; if loopc = '0'then exit; end; Procedure rand_haunted_fens; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/3 miles or 1/3 hours someone see..'); commands; case dicec of 1..3 : General_Traps; 4..8 : Natural_Hazards; 9 : Lions; 10 : bears_black; 11..12 : Glutan; 13 : Bats_Grey_Flyer; 14..26 : Hummerhorns; 27 : Dumbledoors; 28..29 : snakes_dangerous; 30..36 : Birds; 37..44 : Sea_Crocodiles; 45..49 : Other_Animals; 50..71 : Mercenaries_Brigands; 72 : Beffraen; 73 : Mebden; 74 : Clansmen; 75 : Dunlendings; 76..78 : Rivermen; 79..83 : Large_Patrol; 84..87 : Small_Patrol; 88..90 : Spies; 91 : Elves; 92 : troll_forest; 93 : Hourns; 94..99 : Mewlips; 100 : Other_Beings; end; loopc := readkey; if loopc = 'l'then haunted_fens; if loopc = '0'then exit; end; Procedure rand_honnin_dwelling; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/4 hours someone see..'); commands; case dicec of 1..6 : natural_hazards; 7..14 : parrot_iu_tori; 15..16 : lizard; 17 : petla; 18..27 : rats_giant; 28..33 : stetan; 34..35 : trusa; 36..40 : honning_hunters; 41..55 : honning_shamans; 56..85 : honning_non_combattants; 86..92 : honning_foragers; 93 : pushel_nin; 94 : undead; 95..100 : other_beings; end; loopc := readkey; if loopc = 'l'then honnin_dwelling; if loopc = '0'then exit; end; Procedure rand_honnin_shrine; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/4 hours someone see..'); commands; case dicec of 1 : traps; 2..7 : natural_hazards; 8..12 : parrot_iu_tori; 13..14 : lizard; 15 : petla; 16..26 : rats_giant; 27..33 : stetan; 34..35 : trusa; 36..44 : honning_hunters; 45..65 : honning_shamans; 66..80 : honning_non_combattants; 81..89 : honning_foragers; 90..95 : pushel_nin; 96..100 : other_beings; end; loopc := readkey; if loopc = 'l'then honnin_shrine; if loopc = '0'then exit; end; Procedure rand_isra_city; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 5 miles or 2 hours someone see..'); commands; case dicec of 1..5 : traps; 6 : natural_hazards; 7 : ruins; 8 : tomb; 9..15 : north_haradrim; 16..30 : local_people; 31..40 : merchants; 41..45 : thieves_sea_raiders; 46..60 : warriors; 61..65 : dwarves; 66..69 : black_numenoreans; 70..72 : travellers; 73 : camel_wild; 74 : cattle; 75..89 : other_beasts; 90 : undead; 91..100 : other_beings; end; loopc := readkey; if loopc = 'l'then isra_city; if loopc = '0'then exit; end; Procedure rand_isra_rural; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 5 miles or 2 hours someone see..'); commands; case dicec of 1 : traps; 2 : natural_hazards; 3..5 : ruins; 6..8 : tomb; 9..10 : north_haradrim; 11..15 : local_people; 16..20 : merchants; 21..22 : thieves_sea_raiders; 23 : warriors; 24..25 : dwarves; 26 : black_numenoreans; 27..30 : travellers; 31 : danak; 32..33 : orc_desert; 34..35 : orc_warriors; 36..37 : camel_wild; 38 : cattle; 39 : horses_wild; 40..41 : crocodiles; 42 : izhta; 43..45 : lisica; 46..50 : latava; 51 : baboons; 52..53 : goats_wild; 54..85 : other_beasts; 86..90 : demon_lesser; 91 : demon_greater; 92 : undead; 93..100 : other_beings; end; loopc := readkey; if loopc = 'l'then isra_rural; if loopc = '0'then exit; end; Procedure rand_kirmlesra; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 12 miles or 4 hours someone see..'); commands; case dicec of 1 : traps; 2..5 : natural_hazards; 6 : ruins; 7..8 : tomb; 9..10 : north_haradrim; 11..15 : local_people; 16 : merchants; 17..19 : thieves_sea_raiders; 20 : warriors; 21..25 : travellers; 26..35 : orc_desert; 36..45 : juthjuth; 46..60 : izhta; 61 : latava; 62..84 : other_beasts; 85..88 : demon_lesser; 89..90 : undead; 91..100 : other_beings; end; loopc := readkey; if loopc = 'l'then kirmlesra; if loopc = '0'then exit; end; procedure rand_lower_delta; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1 mile or 2 hours someone see..'); commands; case dicec of 1 : Ruins; 2 : Hut_shieling; 3 : Trail; 4..5 : Country_folk; 6 : Hawker_falconer; 7 : Fishermen; 8 : Shrimper_shell_fisher; 9..10 : Smugglers_rogues; 11..15 : Hunters; 16..17 : Marshmen; 18 : Normal_patrol; 19 : Customs_men; 20..21 : Travellers; 22..23 : Traders; 24..25 : Wool_Grain_carrier; 26 : Insects_swarm; 27..28 : Wading_birds; 29 : Swimming_Fishing_birds; 30..32 : Birds_of_Prey; 33 : Bat_pond; 34 : Other_flying_creatures; 35..36 : Small_reptiles; 37 : Snakes_poisonous2; 38 : Leeches_flukes; 39 : Turtles; 40 : Amphibians; 41..43 : Otters_minks_rodents; 44..47 : Boars_bears_deer; 48..50 : Wild_dogs_tykes; 51 : Eels; 52 : Lampreys; 53..54 : Fish_medium; 55 : Fish_Large; 56..57 : Orc_units; 58..60 : Other_beings; 61..68 : Artificial_hazards; 69..73 : Terrain_hazards; 74..100 : Natural_events; end; loopc := readkey; if loopc = 'l'then lower_delta; if loopc = '0'then exit; end; Procedure rand_mines; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 4 hours when moving or 8 hours when stopped someone see..'); commands; case dicec of 1..5 : traps; 6..50 : natural_hazards; 51..55 : animals_cave; 56..65 : bat; 66..75 : worm_cave; 76..85 : spider_large; 86 : ghosts; 87 : ghouls; 88 : skeletons; 89..95 : orc_normal_patrols; 96..98 : troll_cave; 99 : margurgoth; 100 : other_individuals; end; loopc := readkey; if loopc = 'l'then mines; if loopc = '0'then exit; end; Procedure rand_mirror_of_fire; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 20 miles or 12 hours someone see..'); commands; case dicec of 1..3 : traps; 4..25 : natural_hazards; 19..25 : oasis; 26..35 : grave_site_tomb; 36..41 : ruins; 42 : camel_wild; 43 : hawk; 44 : lizard; 45..46 : orao; 47..49 : enemies_haradrim; 50 : enemies_other; 51 : black_numenoreans; 52 : variags; 53 : north_haradrim; 54 : south_haradrim; 55..68 : warriors; 69 : thieves_brigands; 70 : travellers; 71..76 : lesina; 77..79 : prelaz_bic; 80..85 : sand_devil; 86..89 : other_beings; 90..89 : sand_drake; 90..94 : the_razarac; 95..100 : other_beings; end; loopc := readkey; if loopc = 'l'then mirror_of_fire; if loopc = '0'then exit; end; Procedure rand_misty_mountains; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 3 miles or 4 hours someone see..'); commands; case dicec of 1..2 : General_Traps; 3..6 : Avalanche; 7..8 : Flash_flood; 9..12 : Cave_Cavern_lair; 13 : Dunedain_site; 14 : Calenardhon_site; 15..16 : Dunlending_site; 17..18 : Grave_site_tomb; 19..21 : Common_folk; 22..24 : dunlendings_Warriors; 25 : dunlendings_Healers; 26..27 : dunlendings_Bards; 28 : dunlendings_Priest; 29 : calenardhons_Common_folk; 30 : calenardhons_Soldiers; 31 : Northmen; 32 : easterlings; 33..34 : travelling_merchants; 35..37 : Bandits; 38..43 : orc_scouts; 44..47 : orc_small_patrols; 48..50 : orc_normal_patrols; 51..52 : orc_warband_caravan; 53..54 : dragons; 55..56 : dwarves; 57 : elves; 58 : ents; 59..60 : giants; 61 : eagle_great; 62 : hourns; 63..65 : Troll_cave; 66 : troll_forest1; 67..68 : troll_hill; 69..70 : troll_stone; 71..73 : bat; 74..76 : bears_black1; 77 : bees_hornets; 78..80 : eagle_golden; 81 : boar; 82..83 : glutan; 84..85 : lynx_highland; 86..87 : herd_animals; 88 : snakes_poisonous; 89..91 : leopard_snow; 92..94 : wolf_warg; 95..100 : other_animals; end; loopc := readkey; if loopc = 'l'then misty_mountains; if loopc = '0'then exit; end; Procedure rand_morthond_villages_town; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1 hour someone see..'); commands; case dicec of 1 : daen_coentis_site; 2 : dunnish_site; 3 : dunedain_site; 4 : gondorian_site; 5..6 : grave_site_tomb; 7..9 : birds; 10 : eagle_great; 11..14 : sheep_goats; 15..16 : other_animals; 17 : ghouls; 18..19 : ghosts_lesser; 20..21 : ghosts; 22 : ghosts_lord; 23 : wraiths; 24..25 : northmen; 26 : easterlings; 27 : elves; 28..29 : dwarves; 30..39 : locals; 40..69 : townfolk; 70..79 : wandering_folk; 80..82 : brigands; 83 : orc_small_patrols; 84 : orc_normal_patrols; 85..89 : normal_patrol; 90..91 : scouts; 92..99 : general_folk; 100 : other_beings; end; loopc := readkey; if loopc = 'l'then morthond_villages_town; if loopc = '0'then exit; end; Procedure rand_municipal_quarter; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1 hour someone see..'); commands; case dicec of 1 : traps; 2..4 : lizard; 5 : rats_giant; 6 : vuk; 7 : enemies_haradrim; 8..10 : black_numenoreans; 11..26 : north_haradrim; 27..42 : south_haradrim; 43..58 : warriors; 59..63 : thieves_brigands; 64..83 : merchants; 84..98 : travellers; 96..100 : other_beings; end; loopc := readkey; if loopc = 'l'then municipal_quarter; if loopc = '0'then exit; end; Procedure rand_nansret; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/4 miles or 1/4 hours someone see..'); commands; case dicec of 1..5 : General_Traps; 6..7 : Natural_Hazards; 8 : Lions; 9 : bears_black; 10 : bears_cave; 11..14 : Glutan; 15 : Nimfiara_Wild_Aurochs; 16..28 : Bats_Grey_Flyer; 29 : Hummerhorns; 30..34 : Dumbledoors; 35..38 : snakes_dangerous; 39..46 : Birds; 47..59 : Other_Animals; 60..68 : Mercenaries_Brigands; 69..79 : Beffraen; 80 : Mebden; 81..84 : Large_Patrol; 85..91 : Small_Patrol; 92..95 : Spies; 96 : troll_forest; 97..98 : Hourns; 99 : Petty_Dwarves; 100 : Other_Beings; end; loopc := readkey; if loopc = 'l'then nansret; if loopc = '0'then exit; end; Procedure rand_northern_plains; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 10 miles or 4 hours someone see..'); commands; case dicec of 1 : General_Traps; 2..3 : Flash_flood; 7..8 : Cave_Cavern_lair; 9 : Dunedain_site; 10..13 : Calenardhon_site; 14 : Dunlending_site; 15 : Grave_site_tomb; 16 : dunlendings_Warriors; 17..23 : calenardhons_Common_folk; 24..27 : calenardhons_Soldiers; 28..29 : Northmen; 30 : easterlings; 31..35 : travelling_merchants; 36..37 : Bandits; 38..43 : orc_scouts; 44..47 : orc_small_patrols; 48..49 : orc_normal_patrols; 50 : orc_warband_caravan; 51 : dwarves; 52..53 : elves; 54..56 : ents; 57 : eagle_great; 58..63 : hourns; 64 : troll_forest1; 65..66 : troll_hill; 67..68 : troll_stone; 69 : bat; 70 : bears_black1; 71..72 : bees_hornets; 73..75 : eagle_golden; 76..77 : boar; 78..81 : grass_cat; 82..83 : green_asp; 84 : lynx_highland; 85..90 : herd_animals; 91 : snakes_poisonous; 92..94 : wolf_warg; 95..100 : other_animals; end; loopc := readkey; if loopc = 'l'then northern_plains; if loopc = '0'then exit; end; Procedure rand_open_forest_day; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 4 miles or 3 hours someone see..'); commands; case dicec of 1..3 : traps; 4..9 : natural_hazards; 10..14 : cave_cavern_lair; 15..20 : waterhole0; 21..25 : dwelling0; 26..27 : shrine0; 28..30 : ruin0; 31..33 : gnats; 34..35 : woodhawk_great; 36..37 : hawk; 38..40 : parrot_iu_tori; 41 : lizard; 42..43 : petla; 44 : rats_giant; 45..47 : stetan; 48 : trusa; 49..50 : unca; 51..61 : honning_hunters; 62..67 : honning_shamans; 68..69 : honning_non_combattants; 70..79 : honning_foragers; 80..86 : haradan_foragers; 87 : pushel_nin; 88 : sand_drake; 89..90 : undead; 91..100 : other_beings; end; loopc := readkey; if loopc = 'l'then open_forest_day; if loopc = '0'then exit; end; Procedure rand_open_forest_night; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 4 miles or 3 hours someone see..'); commands; case dicec of 1..3 : traps; 4..9 : natural_hazards; 10..14 : cave_cavern_lair; 15..20 : waterhole0; 21..25 : dwelling0; 26..27 : shrine0; 28..30 : ruin0; 31 : woodhawk_great; 32 : hawk; 33..34 : parrot_iu_tori; 35 : lizard; 36..38 : petla; 39..41 : rats_giant; 42..45 : stetan; 46..47 : trusa; 48..50 : unca; 51..68 : honning_hunters; 69..76 : honning_shamans; 77..78 : honning_non_combattants; 79..85 : honning_foragers; 86..88 : haradan_foragers; 89 : pushel_nin; 90 : sand_drake; 91..94 : undead; 95..100 : other_beings; end; loopc := readkey; if loopc = 'l'then open_forest_night; if loopc = '0'then exit; end; Procedure rand_orc_lair; begin clrscr; dicec := 1+Random(69); textcolor(14); writeln('After 30 seconds someone see..'); commands; case dicec of 1..10 : orc_females; 11..15 : orc_imps; 16..40 : orc_warriors; 41..50 : orc_warriors1; 51..55 : troll_wolves; 56..60 : Slaves; 61..65 : orc_body_officers; 66..67 : orc_guard_group; 68..69 : orc_Chieftan; 70 : Nazog_Herumor; end; loopc := readkey; if loopc = 'l'then orc_lair; if loopc = '0'then exit; end; Procedure rand_paths; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1/2 hours someone see..'); commands; case dicec of 1..3 : General_Traps; 4..7 : Natural_Hazards; 8 : Lions; 9..11 : bears_black; 12 : bears_cave; 13..17 : Glutan; 18 : Nimfiara_Wild_Aurochs; 19..27 : Bats_Grey_Flyer; 28 : Hummerhorns; 29..34 : Dumbledoors; 35..43 : snakes_dangerous; 44..62 : Birds; 63..77 : Other_Animals; 78..80 : Mercenaries_Brigands; 81 : Beffraen; 82..83 : Mebden; 84 : Clansmen; 85 : Dunlendings; 86 : Large_Patrol; 87..88 : Small_Patrol; 89 : Spies; 90 : Elves; 91..92 : troll_forest; 93..96 : Hourns; 97 : Petty_Dwarves; 98 : Mewlips; 99..100 : Other_Beings; end; loopc := readkey; if loopc = 'l'then paths; if loopc = '0'then exit; end; Procedure rand_paths_of_the_dead; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1 hour someone see..'); commands; case dicec of 1 : mine_quarry_abandon; 2 : lair; 3..10 : traps_in_or_outdoor; 11..20 : grave_site_tomb; 21 : hornet_cliff; 22..24 : bat_hunting; 25 : wolves; 26 : bears_blue; 27 : spider_king; 28 : viper_rock; 29 : other_animals; 30 : troll_cave; 31..34 : ghouls; 35..41 : ghouls_greater; 42..53 : skeletons; 54..59 : skeletons_lord; 60..70 : ghosts_lesser; 71..79 : ghosts; 80..85 : ghosts_lord; 86..90 : wraiths; 91..94 : wight_barrow; 95 : dwarves; 96 : brigands; 97 : orc_small_patrols; 98 : scouts; 99..100 : other_beings; end; loopc := readkey; if loopc = 'l'then paths_of_the_dead; if loopc = '0'then exit; end; Procedure rand_poor_quarter; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/5 miles or 1/2 hours someone see..'); commands; case dicec of 1 : traps; 2 : natural_hazards; 3..7 : ruins; 8..9 : goats_wild; 10 : lizard; 11..13 : rats_giant; 14..15 : vuk; 16..22 : enemies_haradrim; 23 : enemies_other; 24 : variags; 25..32 : north_haradrim; 33..40 : south_haradrim; 41..48 : warriors; 49..51 : herders; 52..81 : thieves_brigands; 82..89 : merchants; 90..98 : travellers; 99..100 : other_beings; end; loopc := readkey; if loopc = 'l'then poor_quarter; if loopc = '0'then exit; end; Procedure rand_pred; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/5 miles or 1/2 hours someone see..'); commands; case dicec of 1..6 : natural_hazards; 7 : woodhawk_great; 8..9 : hawk; 10..18 : parrot_iu_tori; 19 : lizard; 20 : petla; 21..25 : rats_giant; 26..28 : stetan; 29..30 : trusa; 31..46 : honning_hunters; 47..61 : honning_shamans; 62..76 : honning_non_combattants; 77..91 : honning_foragers; 92 : pushel_nin; 93 : undead; 94..100 : other_beings; end; loopc := readkey; if loopc = 'l'then pred; if loopc = '0'then exit; end; Procedure rand_ruin; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1 hour someone see..'); commands; case dicec of 1 : traps; 2..7 : natural_hazards; 8 : woodhawk_great; 9..10 : hawk; 11..19 : parrot_iu_tori; 20..28 : lizard; 29..32 : petla; 33..38 : rats_giant; 39..40 : stetan; 41..44 : trusa; 45..50 : unca; 51..63 : honning_hunters; 64..75 : honning_shamans; 76..77 : honning_non_combattants; 78..88 : honning_foragers; 89..91 : pushel_nin; 92 : sand_drake; 93..95 : undead; 96..100 : other_beings; end; loopc := readkey; if loopc = 'l'then ruin; if loopc = '0'then exit; end; Procedure rand_rural_bar_en_tinnen; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1 mile or 2 hours someone see..'); commands; case dicec of 1 : general_traps; 2..4 : natural_hazards; 5..6 : dog_domesticated; 7..8 : bitterns; 9..11 : coots; 12..13 : kingfishers; 14 : gorcrows; 15..20 : grass_grouses; 21 : ravens; 22 : eagle_red; 23..24 : kirkinir; 25 : leeches; 26..30 : gnats_mosquitos; 31 : morgai_flies; 32..36 : aurych; 37..38 : caru; 39..43 : cunara; 44 : goats_wild; 45 : goats_domestic; 46..47 : ponies; 48..49 : horses_wild; 50 : bears_black2; 51 : cat_domesticated; 52 : lynx_highland; 53..54 : wolves_grey1; 55 : undead; 56..58 : bandits_brigands; 59 : fishermen; 60..62 : hunters; 63..65 : levy_patrol; 66..67 : merchants; 68..75 : travellers; 76 : npcs; 77 : corsairs; 78 : dunlendings; 79 : northmen; 80..82 : haradrim; 83 : balchoth; 84 : sagath; 85..86 : elves_noldor; 87 : elves_sindar; 88 : dwarves; 89..91 : orc_normal_patrols; 92 : troll_hill; 93 : dolphins; 94 : sharks; 95..100 : other_beings; end; loopc := readkey; if loopc = 'l'then rural_bar_en_tinnen; if loopc = '0'then exit; end; Procedure rand_sara_bask; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 6 miles or 3 hours someone see..'); commands; case dicec of 1..5 : traps; 6..15 : natural_hazards; 16 : ruins; 17 : tomb; 18..21 : local_people; 22 : merchants; 23..25 : thieves_sea_raiders; 26..35 : warriors; 36 : black_numenoreans; 37..40 : travellers; 41..45 : orc_warriors; 46 : cattle; 47..48 : crocodiles; 49..65 : baboons; 66..88 : other_beasts; 89 : demon_lesser; 90 : demon_greater; 91..92 : undead; 93..100 : other_beings; end; loopc := readkey; if loopc = 'l'then sara_bask; if loopc = '0'then exit; end; Procedure rand_sarn_erech_town; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1 hour someone see..'); commands; case dicec of 1 : daen_coentis_site; 2 : dunnish_site; 3 : grave_site_tomb; 4..6 : birds; 7 : eagle_great; 8..10 : sheep_goats; 11 : other_animals; 12 : ghouls; 13..14 : ghosts_lesser; 15..16 : ghosts; 17 : ghosts_lord; 18 : wraiths; 19..21 : northmen; 22..23 : easterlings; 24..25 : elves; 26..27 : dwarves; 28..38 : locals; 39..68 : townfolk; 69..79 : wandering_folk; 80..81 : brigands; 82 : orc_normal_patrols; 83..87 : normal_patrol; 88..90 : scouts; 91..98 : general_folk; 99..00 : other_beings; end; loopc := readkey; if loopc = 'l'then sarn_erech_town; if loopc = '0'then exit; end; Procedure rand_second_hall; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 4 hours when moving or 8 hours when stopped someone see..'); commands; case dicec of 1..30 : traps; 31..35 : natural_hazards; 36 : animals_cave; 37..40 : bat; 41..60 : spider_large; 61..62 : ghosts; 63 : ghouls; 64..65 : skeletons; 66..67 : spectres; 68 : wight_lesser; 69 : wight_greater; 70 : warg; 71..90 : orc_normal_patrols; 91..96 : orc_large_patrols; 98..99 : troll_cave; 100 : other_individuals; end; loopc := readkey; if loopc = 'l'then second_hall; if loopc = '0'then exit; end; Procedure rand_sellers_court; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/5 miles or 1/2 hours someone see..'); commands; case dicec of 1 : traps; 2 : goats_wild; 3 : lizard; 4 : majmun; 5 : rats_giant; 6 : vuk; 7..9 : enemies_haradrim; 10..11 : enemies_other; 12..14 : black_numenoreans; 15 : variags; 16..24 : north_haradrim; 25..33 : south_haradrim; 34..43 : warriors; 44..52 : herders; 53..58 : thieves_brigands; 59..64 : caravans; 65..83 : merchants; 84..98 : travellers; 99..100 : other_beings; end; loopc := readkey; if loopc = 'l'then sellers_court; if loopc = '0'then exit; end; Procedure rand_sevet_kovina; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/5 miles or 1/2 hours someone see..'); commands; case dicec of 1..2 : traps; 3 : goats_wild; 4 : lizard; 5..6 : rats_giant; 7..11 : enemies_haradrim; 12..16 : enemies_other; 17 : black_numenoreans; 18 : variags; 19..26 : north_haradrim; 27..34 : south_haradrim; 35..51 : warriors; 52..54 : herders; 55..69 : thieves_brigands; 79..79 : merchants; 80..98 : travellers; 99..100 : other_beings; end; loopc := readkey; if loopc = 'l'then sevet_kovina; if loopc = '0'then exit; end; Procedure rand_sixth_seventh_hall; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 4 hours when moving or 8 hours when stopped someone see..'); commands; case dicec of 1..10 : traps; 31 : natural_hazards; 32..35 : animals_cave; 36 : bat; 37 : spider_large; 38..40 : warg; 41..75 : orc_normal_patrols; 76..95 : orc_large_patrols; 96..99 : troll_cave; 100 : other_individuals; end; loopc := readkey; if loopc = 'l'then sixth_seventh_hall; if loopc = '0'then exit; end; Procedure rand_skaurils_march; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 2 miles or 1 hours someone see..'); commands; case dicec of 1 : Active_tree; 2..7 : Bird_large; 8..15 : Bird_medium; 16..28 : Bird_small; 29..34 : bears_cave; 35..38 : Crebain; 39..41 : Spider_ennerlings; 42 : Fell_beast; 43..46 : Milk_white_trumpet; 47..48 : orc_normal_patrols; 49 : Lion_snow; 50..53 : Spider_large; 54..63 : Squirrel_black; 64 : Troll_forest1; 65..67 : Warg; 68..69 : Wild_cat; 70..76 : Wolves; 77..80 : Din_fuinen; 81..84 : Rose_trees; 85..87 : Elves; 88..92 : Woodmen; 93 : Rain; 94..97 : Mists; 98 : Arlan; 99 : Lichen_gloriosa; 100 : Rewk; end; loopc := readkey; if loopc = 'l'then skaurils_march; if loopc = '0'then exit; end; Procedure rand_southern_plains; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 10 miles or 4 hours someone see..'); commands; case dicec of 1 : General_Traps; 2..4 : Flash_flood; 5..6 : grass_fire; 7..8 : Cave_Cavern_lair; 9..10 : Dunedain_site; 11..16 : Calenardhon_site; 17 : Dunlending_site; 18 : druedain_site; 19..20 : Grave_site_tomb; 21 : dunlendings_warriors; 22 : dunlendings_priest; 23..30 : calenardhons_Common_folk; 31..35 : calenardhons_Soldiers; 36..37 : Northmen; 38..39 : easterlings; 40..45 : travelling_merchants; 46..47 : Bandits; 48..50 : orc_scouts; 51 : orc_small_patrols; 52 : druedain; 53 : dwarves; 54 : elves; 55..57 : ents; 58 : eagle_great; 59..62 : hourns; 63 : troll_forest1; 64..65 : troll_hill; 66 : troll_stone; 67 : bat; 68..69 : bears_black1; 70..72 : bees_hornets; 73..75 : eagle_golden; 76..77 : boar; 78..80 : grass_cat; 81..83 : green_asp; 85..90 : herd_animals; 91..92 : snakes_poisonous; 93..94 : wolf_warg; 95..100 : other_animals; end; loopc := readkey; if loopc = 'l'then southern_plains; if loopc = '0'then exit; end; Procedure rand_surrounding_lands; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 4 hours when moving or 8 hours when stopped someone see..'); commands; case dicec of 1 : traps; 2..40 : natural_hazards; 41..50 : animals_cave; 51..55 : bat; 56..60 : worm_cave; 61 : spider_large; 62 : ghosts; 63 : ghouls; 64 : spectres; 65..75 : warg; 76..85 : orc_normal_patrols; 86..95 : orc_large_patrols; 96 : troll_cave; 97..100 : other_individuals; end; loopc := readkey; if loopc = 'l'then surrounding_lands; if loopc = '0'then exit; end; Procedure rand_suza_sumar; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 4 miles or 3 hours someone see..'); commands; case dicec of 1..4 : traps; 5..10 : natural_hazards; 11..14 : cave_cavern_lair; 15 : stronghold; 16..20 : grave_site_tomb; 21..25 : ruins; 26..33 : gnats; 34..38 : lizard; 39..43 : majmun; 44 : orao; 45..50 : petla; 51 : rats_giant; 52..58 : stetan; 59..64 : trusa; 65..71 : unca; 72..74 : enemies_haradrim; 75 : enemies_other; 76 : black_numenoreans; 77 : north_haradrim; 78 : south_haradrim; 79..80 : warriors; 81..82 : thieves_brigands; 83..86 : merchants; 87..90 : travellers; 91..100 : other_beings; end; loopc := readkey; if loopc = 'l'then suza_sumar; if loopc = '0'then exit; end; Procedure rand_tarlangs_neck_pass; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 3 miles or 2 hours someone see..'); commands; case dicec of 1..2 : mine_quarry_working; 3..4 : mine_quarry_abandon; 5..6 : daen_coentis_site; 7..9 : dunnish_site; 10..11 : dunedain_site; 12..13 : gondorian_site; 14..16 : monoliths; 17..18 : lair; 19 : traps_in_or_outdoor; 20..21 : grave_site_tomb; 22..25 : birds; 26..28 : eagle_great; 29..30 : cliff_buzzard; 31..32 : hornet_cliff; 33..34 : bat_hunting; 35..36 : wolves; 37 : mastiff_wild; 38..39 : bears_brown; 40 : bears_blue; 41..42 : deer; 43..45 : sheep_goats; 46 : boar_wild; 47 : marten_giant; 48 : spider_king; 49 : viper_rock; 50..51 : other_animals; 52 : troll_hill; 53 : troll_cave; 54..55 : ghouls; 56 : ghouls_greater; 57..58 : skeletons; 59 : skeletons_lord; 60..62 : ghosts_lesser; 63..65 : ghosts; 66..67 : ghosts_lord; 68..69 : wraiths; 70 : wight_barrow; 71..72 : northmen; 73 : easterlings; 74 : elves; 75 : dwarves; 76..80 : locals; 81..83 : townfolk; 84..85 : wandering_folk; 86..92 : brigands; 93 : orc_small_patrols; 94 : orc_normal_patrols; 95..96 : normal_patrol; 97 : scouts; 98..99 : general_folk; 100 : other_beings; end; loopc := readkey; if loopc = 'l'then tarlangs_neck_pass; if loopc = '0'then exit; end; Procedure rand_tarlang_white_mountains; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 6 miles or 3 hours someone see..'); commands; case dicec of 1..3 : mine_quarry_working; 4..5 : mine_quarry_abandon; 6 : daen_coentis_site; 7..8 : dunnish_site; 9 : dunedain_site; 10..11 : gondorian_site; 12..13 : monoliths; 14..16 : lair; 17 : traps_in_or_outdoor; 18..20 : grave_site_tomb; 21..23 : birds; 24..27 : eagle_great; 28..30 : cliff_buzzard; 31..32 : hornet_cliff; 33..34 : bat_hunting; 35..36 : wolves; 37 : mastiff_wild; 38..39 : bears_brown; 40 : bears_blue; 41..42 : deer; 43..44 : sheep_goats; 45 : boar_wild; 46 : marten_giant; 47 : spider_king; 48 : viper_rock; 49..50 : other_animals; 51 : troll_hill; 52 : troll_cave; 53..55 : ghouls; 56..57 : ghouls_greater; 58..60 : skeletons; 61..62 : skeletons_lord; 63..66 : ghosts_lesser; 67..69 : ghosts; 70..71 : ghosts_lord; 72..73 : wraiths; 74 : wight_barrow; 75..76 : northmen; 77 : easterlings; 78..79 : elves; 80..82 : dwarves; 83..84 : locals; 85 : townfolk; 86 : wandering_folk; 87..90 : brigands; 91..93 : orc_small_patrols; 94..95 : orc_normal_patrols; 95..96 : normal_patrol; 97..98 : scouts; 99 : general_folk; 100 : other_beings; end; loopc := readkey; if loopc = 'l'then tarlang_white_mountains; if loopc = '0'then exit; end; Procedure rand_the_downs_wold; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 8 miles or 4 hours someone see..'); commands; case dicec of 1..2 : General_Traps; 3..4 : avalanche; 5..6 : Flash_flood; 10..12 : Cave_Cavern_lair; 13 : Dunedain_site; 14..17 : Calenardhon_site; 18 : Dunlending_site; 19..20 : Grave_site_tomb; 21..26 : calenardhons_Common_folk; 27..28 : calenardhons_Soldiers; 29..30 : Northmen; 31..32 : easterlings; 33..37 : travelling_merchants; 38..40 : Bandits; 41..46 : orc_scouts; 47..50 : orc_small_patrols; 51..52 : orc_normal_patrols; 53 : orc_warband_caravan; 54 : dwarves; 55 : elves; 56..57 : ents; 58 : eagle_great; 59..61 : hourns; 62..63 : troll_cave; 64 : troll_forest1; 65..67 : troll_hill; 68..70 : troll_stone; 71..73 : bat; 74 : bears_black1; 75..76 : bees_hornets; 77..78 : eagle_golden; 79 : boar; 80..82 : grass_cat; 83..84 : green_asp; 85..88 : herd_animals; 89..90 : snakes_poisonous; 91..94 : wolf_warg; 95..100 : other_animals; end; loopc := readkey; if loopc = 'l'then the_downs_wold; if loopc = '0'then exit; end; Procedure rand_the_gaj; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 5 miles or 4 hours someone see..'); commands; case dicec of 1 : traps; 2..5 : natural_hazards; 6..10 : cave_cavern_lair; 11..12 : village; 13 : stronghold; 14..19 : grave_site_tomb; 20..25 : ruins; 26..28 : goats_wild; 29..31 : hawk; 32..38 : lisica; 39..42 : lizard; 43..46 : majmun; 47..48 : orao; 49..52 : rats_giant; 53..55 : vuk; 56..57 : enemies_haradrim; 58 : enemies_other; 59 : black_numenoreans; 60..61 : north_haradrim; 62..63 : south_haradrim; 64..66 : warriors; 67..69 : herders; 70..77 : thieves_brigands; 78..81 : caravans; 82..85 : merchants; 86..93 : travellers; 94 : lesina; 95 : prelaz_bic; 96..100 : other_beings; end; loopc := readkey; if loopc = 'l'then the_gaj; if loopc = '0'then exit; end; Procedure rand_the_katedrala; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1 hour someone see..'); commands; case dicec of 1..3 : traps; 4..5 : lizard; 6..8 : majmun; 9 : rats_giant; 10 : enemies_haradrim; 11..17 : black_numenoreans; 18 : variags; 19..29 : north_haradrim; 30..38 : south_haradrim; 39..67 : warriors; 68..70 : thieves_brigands; 71..79 : merchants; 80..90 : travellers; 91..100 : other_beings; end; loopc := readkey; if loopc = 'l'then the_katedrala; if loopc = '0'then exit; end; Procedure rand_the_midden; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1 hour someone see..'); commands; case dicec of 1 : Ruins; 2 : Trail; 3..5 : fur_trappers; 6..11 : Fishermen; 12..13 : Shrimper_shell_fisher; 14..16 : Smugglers_rogues; 17..21 : Hunters; 22 : Marshmen; 23..27 : Reed_peat_cutters; 28 : Normal_patrol; 29 : Travellers; 30 : Traders; 31..34 : Insects_swarm; 35 : Hummerhorns; 36..39 : Wading_birds; 40..46 : Swimming_Fishing_birds; 47..48 : Birds_of_Prey; 49..50 : Bat_pond; 51..52 : Other_flying_creatures; 53..54 : Small_reptiles; 55..56 : Snakes_poisonous2; 57..58 : Leeches_flukes; 59 : Turtles; 60..62 : Amphibians; 63 : Vodyanoi; 64..65 : Otters_minks_rodents; 66..67 : Boars_bears_deer; 68..69 : Wild_dogs_tykes; 70..72 : Eels; 73 : Lampreys; 74..77 : Fish_medium; 78..79 : Fish_Large; 80 : Mewlips; 81 : Orc_units; 82..83 : Other_beings; 84..91 : Artificial_hazards; 92..96 : Terrain_hazards; 97..100 : Natural_events; end; loopc := readkey; if loopc = 'l'then the_midden; if loopc = '0'then exit; end; Procedure rand_the_misty_mountains; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 3 miles or 4 hours someone see..'); commands; case dicec of 1..2 : General_Traps; 3..6 : Avalanche; 7..8 : Flash_flood; 9..12 : Cave_Cavern_lair; 13 : Dunedain_site; 14 : Calenardhon_site; 15..16 : Dunlending_site; 17..18 : Grave_site_tomb; 19..21 : Common_folk; 22..24 : dunlendings_Warriors; 25 : dunlendings_Healers; 26..27 : dunlendings_Bards; 28 : dunlendings_Priest; 29 : calenardhons_Common_folk; 30 : calenardhons_Soldiers; 31 : Northmen; 32 : easterlings; 33..34 : travelling_merchants; 35..37 : Bandits; 38..43 : orc_scouts; 44..47 : orc_small_patrols; 48..50 : orc_normal_patrols; 51..52 : orc_warband_caravan; 53..54 : dragons; 55..56 : dwarves; 57 : elves; 58 : ents; 59..60 : giants; 61 : eagle_great; 62 : hourns; 63..65 : Troll_cave; 66 : troll_forest1; 67..68 : troll_hill; 69..70 : troll_stone; 71..73 : bat; 74..76 : bears_black1; 77 : bees_hornets; 78..80 : eagle_golden; 81..82 : boar; 83..85 : lynx_highland; 86..87 : herd_animals; 88 : snakes_poisonous; 89..91 : leopard_snow; 92..94 : wolf_warg; 95..100 : other_animals; end; loopc := readkey; if loopc = 'l'then the_misty_mountains; if loopc = '0'then exit; end; Procedure rand_the_port; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/5 miles or 1/2 hours someone see..'); commands; case dicec of 1 : traps; 2 : natural_hazards; 3..6 : rats_giant; 7..12 : enemies_haradrim; 13..16 : enemies_other; 17..18 : black_numenoreans; 19 : variags; 20..25 : north_haradrim; 26..31 : south_haradrim; 32..48 : warriors; 49..56 : herders; 57..61 : thieves_brigands; 62..73 : caravans; 74..88 : merchants; 89..98 : travellers; 99..100 : other_beings; end; loopc := readkey; if loopc = 'l'then the_port; if loopc = '0'then exit; end; procedure rand_the_slough; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/2 miles or 1 hour someone see..'); commands; case dicec of 1..2 : Fur_trappers; 3..4 : Smugglers_rogues; 5 : Hunters; 6..7 : Marshmen; 8..12 : Insects_swarm; 13..14 : Hummerhorns; 15..20 : Wading_birds; 21..27 : Swimming_Fishing_birds; 28..29 : Birds_of_Prey; 30..31 : Bat_pond; 32..33 : Other_flying_creatures; 34..36 : Small_reptiles; 37..40 : Snakes_poisonous2; 41..44 : Leeches_flukes; 45 : Turtles; 46..49 : Amphibians; 50..51 : Vodyanoi; 52..53 : Otters_minks_rodents; 54..55 : Boars_bears_deer; 56 : Wild_dogs_tykes; 57..59 : Eels; 60..61 : Lampreys; 62..66 : Fish_medium; 67..69 : Fish_Large; 70..71 : Fish_huge; 72..73 : Mewlips; 74..75 : Orc_units; 76..77 : Other_beings; 78..87 : Artificial_hazards; 88..95 : Terrain_hazards; 96..100 : Natural_events; end; loopc := readkey; if loopc = 'l'then the_slough; if loopc = '0'then exit; end; Procedure rand_the_tower; begin clrscr; dicec := 1+Random(59); textcolor(14); writeln('After 5 minutes someone see..'); commands; case dicec of 1..15 : Servants; 16..25 : Soldiers; 26..45 : Soldiers1; 66..75 : Ohtarin_patrol; 76..80 : Esquire; end; loopc := readkey; if loopc = 'l'then the_tower; if loopc = '0'then exit; end; Procedure rand_third_fifth_hall; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 4 hours when moving or 8 hours when stopped someone see..'); commands; case dicec of 1..20 : traps; 21..35 : natural_hazards; 36 : animals_cave; 37..40 : bat; 41 : worm_cave; 42..60 : spider_large; 61..62 : ghosts; 63..64 : ghouls; 65 : skeletons; 66 : spectres; 67 : wight_lesser; 68 : wight_greater; 69 : warg; 71..80 : orc_normal_patrols; 81..90 : orc_large_patrols; 91..96 : troll_cave; 97 : margurgoth; 98..100 : other_individuals; end; loopc := readkey; if loopc = 'l'then third_fifth_hall; if loopc = '0'then exit; end; Procedure rand_torech_ungol; begin clrscr; dicec := 1+Random(79); textcolor(14); writeln('After 1/2 miles or 2 hours someone see..'); commands; case dicec of 1..20 : web_hanging; 21..30 : web_intact; 31..45 : Spiderlings; 46..60 : Spider_giant; 61..70 : orc_patrol; 71..75 : Dunedain_messengers; 76..78 : Troll_hill1; 79..80 : Spider_Shelob; end; loopc := readkey; if loopc = 'l'then torech_ungol; if loopc = '0'then exit; end; Procedure rand_town_of_bar_en_tinnen; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1/5 miles or 1/4 hours someone see..'); commands; case dicec of 1..5 : dog_domesticated; 6..7 : bitterns; 8 : coots; 9..10 : kingfishers; 11 : gorcrows; 12..14 : grass_grouses; 15..20 : kirkinir; 21 : leeches; 22..28 : gnats_mosquitos; 29 : marsh_adders; 30 : nethraich; 31..34 : aurych; 35..39 : cunara; 40..44 : goats_domestic; 45..46 : ponies; 47 : horses_wild; 48..51 : cat_domesticated; 52 : lynx_highland; 53 : bandits_brigands; 54..56 : mill_workers; 57..61 : fishermen; 62 : hunters; 63..65 : levy_patrol; 66..68 : merchants; 69 : town_elder; 70..73 : travellers; 74 : npcs; 75..76 : corsairs; 77 : dunlendings; 78..79 : northmen; 80 : haradrim; 82..84 : elves_noldor; 85..86 : elves_sindar; 87..89 : dwarves; 90 : dolphins; 91 : sharks; 92..100 : other_beings; end; loopc := readkey; if loopc = 'l'then town_of_bar_en_tinnen; if loopc = '0'then exit; end; Procedure rand_tur_betark; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1 mile or 2 hours someone see..'); commands; case dicec of 1..2 : traps; 3..10 : natural_hazards; 11..12 : ruins; 13..15 : tomb; 16..20 : local_people; 21 : merchants; 22 : thieves_sea_raiders; 23..25 : dwarves; 26..30 : travellers; 31..45 : danak; 46..60 : orc_warriors; 61..63 : cattle; 64..75 : goats_wild; 76..88 : other_beasts; 89..90 : demon_lesser; 91 : demon_greater; 92 : undead; 93..100 : other_beings; end; loopc := readkey; if loopc = 'l'then tur_betark; if loopc = '0'then exit; end; Procedure rand_waterhole; begin clrscr; dicec := 1+Random(99); textcolor(14); writeln('After 1 hour someone see..'); commands; case dicec of 1..3 : traps; 4..9 : natural_hazards; 10 : woodhawk_great; 11..12 : hawk; 13..18 : parrot_iu_tori; 19..21 : lizard; 22..27 : petla; 28..32 : rats_giant; 33..41 : stetan; 42..44 : trusa; 45..50 : unca; 51..62 : honning_hunters; 63..74 : honning_shamans; 75..80 : honning_non_combattants; 81..92 : honning_foragers; 93 : pushel_nin; 94..95 : undead; 96..100 : other_beings; end; loopc := readkey; if loopc = 'l'then rand_waterhole; if loopc = '0'then exit; end; {Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor} Procedure commands; begin; clrscr; textcolor(14); textbackground(blue); writeln('Commands: 0 ¯ EXiT l ¯ Reroll '); textbackground(black); textcolor(12); writeln; end; {Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor,Cybertumor} end.