Unit monster1;

interface

Procedure active_tree;
Procedure amphibians;
Procedure animals_cave;
Procedure arlan;
Procedure arnathrach;
Procedure artificial_hazards;
Procedure aurych;
Procedure avalanche;
Procedure baboons;
Procedure bandits;
Procedure balchoth;
Procedure bat;
Procedure bat_giant_vampire;
Procedure bat_hunting;
Procedure bat_pond;
Procedure bears_black;
Procedure bears_black1;
Procedure bears_black2;
Procedure bears_black3;
Procedure bears_blue;
Procedure bears_brown;
Procedure bears_cave;
Procedure bears_cave1;
Procedure bees;
Procedure beffraen;
Procedure birds;
Procedure bird_large;
Procedure bird_medium;
Procedure bird_small;
Procedure bitterns;
Procedure black_mink;
Procedure black_numenoreans;
Procedure blue_otter;
Procedure boar;
Procedure boar_fen;
Procedure boar_wild;
Procedure brigands;
Procedure caja;
Procedure calenardhons_Common_folk;
Procedure calenardhon_site;
Procedure calenardhons_Soldiers;
Procedure camel_wild;
Procedure caravans;
Procedure caru;
Procedure cat_domesticated;
Procedure cattle;
Procedure cave_cavern_lair;
Procedure clansmen;
Procedure cliff_buzzard;
Procedure coireal;
Procedure common_Folk;
Procedure coots;
Procedure corsairs;
Procedure country_folk;
Procedure crebain;
Procedure crocodiles_large;
Procedure crocodiles_small;
Procedure croppers_gatherers;
Procedure cunara;
Procedure customs_men;
Procedure daen_coentis_site;
Procedure danak;
Procedure deer;
Procedure deer_dappled;
Procedure demon;
Procedure demon_greater;
Procedure demon_lesser;
Procedure din_fuinen;
Procedure dog_domesticated;
Procedure dolphins;
Procedure dragons;
Procedure druedain_site;
Procedure dumbledoors;
Procedure dunedain_messengers;
Procedure dunedain_site;
Procedure dunlendings;
Procedure dunlendings_bards;
Procedure dunlendings_healers;
Procedure dunlendings_priest;
Procedure dunlending_site;
Procedure dunlendings_warriors;
Procedure dunnish_site;
Procedure dwarves;
Procedure dwelling0;

implementation
uses crt, monster0, monster2, monster3, monster4, monster5;


           var

           dice : byte;  {muutuja satunnaisluvulle}



Procedure active_tree;
 begin
     write('Other Non Mannish Races, ');
     dice :=1+Random(0);
     writeln (dice, ' Active Tree');
     writeln;
     writeln('Level 25');
     writeln('Size is Large,');
     writeln('Speed is -/MD,');
     writeln('Hits is 400');
     writeln('AT is PL/20');
     writeln('DB is 0');
     writeln('Attacks is 20HGr/10HCr/-');
     writeln('Probably tree is evil.');

end;

Procedure amphibians;
 begin
     write('Animal, ');
     dice :=1+Random(4);
     writeln (dice, ' Amhibians');
     writeln;
     writeln('Level ?');
     writeln('Size is ?,');
     writeln('Speed is ?/?');
     writeln('Hits are ?');
     writeln('AT is NO/?');
     writeln('DB is ?');
     writeln('Attacks are ?/?/?.');
     writeln('Somekind animal which moves on land and water. Maybe time to rerol ?');
end;

Procedure animals_cave;
 begin
     write('Animals, ');
     writeln(' Cave animals');
     writeln;
     writeln('Cave animals will tkae the form of normal animal encounters outside.');

end;

Procedure arlan;
 begin
     write('Herb, ');
     dice :=1+Random(4);
     writeln (dice, ' Arlan');
     writeln;
     writeln('This herb heals 4-9 points. You apply leaf to skin.');
     writeln('Herb cost 13 sp and the code is c-D-2 of cource ROLEMASTER.');

end;

Procedure arnathrach;
 begin
     write('Animals, ');
     dice :=1+Random(0);
     writeln (dice, ' Arnathrach');
     writeln;
     writeln('Level 4');
     writeln('Size is Large,');
     writeln('Speed is F/F,');
     writeln('Hits is 75');
     writeln('AT is Sl/3');
     writeln('DB is 20');
     writeln('Attacks is 60LSt/poison/40MGr');
     writeln('Rare member of Nathrach family. 6th level muscle poison.');

end;

Procedure artificial_hazards;
 begin
     write('Hazards, ');
     writeln(' Artificial');
     writeln;
     writeln('Choose one, traps, surface ruins & debris etc.');

end;


Procedure aurych;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Aurych');
     writeln;
     writeln('Level 2');
     writeln('Size is large,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 140');
     writeln('AT is No/3');
     writeln('DB is 20');
     writeln('Attacks are 50MHo/50LTs/-');
     writeln('Domesticted cattle.');

end;

Procedure avalanche;
 begin
     write('Inanimate Dangers, ');
     writeln('Avalanche');
     writeln;
     writeln('Biggest risk is get down in the avalanche. Avalanche could be stone, ');
     writeln('snow, dirt. Remeber equipments can damage also. Criticals are possible');
     writeln('bash or/and crush.');

end;

Procedure baboons;
 begin
     write('Animals, ');
     dice :=4+Random(16);
     writeln (dice, ' Baboons');
     writeln;
     writeln('Level 3');
     writeln('Size is small-medium,');
     writeln('Speed is MD/FA,');
     writeln('Hits are 50');
     writeln('AT is No/3');
     writeln('DB is 35');
     writeln('Attacks are 40SBi/45SGr/-');
     writeln('Aggressive.');

end;

Procedure balchoth;
 begin
     write('Other Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Balchoth');
     writeln;
     writeln('WRITE INFORMATION ABOUT THIS HUMAN RACE!');

end;

Procedure bandits;
 begin
     write('Other Men, ');
     dice :=1+Random(6);
     writeln (dice, ' Bandits');
     writeln;
     writeln('Level 3');
     writeln('Hits are 30');
     writeln('AT is Sl/10');
     writeln('DB is 20');
     writeln('Attacks are melee 30ls and missle 30ls');
     writeln('Movement is 5');
     writeln('Use tactics to surround robbered. Usually leader is higher level and');
     writeln('use better weapons and armor than others');

end;

Procedure bat;
 begin
     write('Animals, ');
     dice :=1+Random(99);
     writeln (dice, ' Bats');
     writeln;
     writeln('Level 0');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 4');
     writeln('AT is No/1');
     writeln('DB is 60');
     writeln('Attacks are 25TBi/-/-');
     writeln('Will not normally attack unless provoked');

end;

Procedure bat_giant_vampire;
 begin
     write('Animals, ');
     dice :=12+Random(18);
     writeln (dice, ' Giant Vampire Bats');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 24');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 40SBi/40SCl/-');
     writeln('Will cause 1-5 hits/rnd after a critical is achieved.');

end;

Procedure bat_hunting;
 begin
     write('Animals, ');
     dice :=10+Random(20);
     writeln (dice, ' Bats Hunting');
     writeln;
     writeln('Level 2');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 20');
     writeln('AT is No/1');
     writeln('DB is 50');
     writeln('Attacks are 50SBi/-/-');
     writeln('"Piranhas of the air" Huntings bats are cave-dwelling creatures.');
     writeln('Large for bats a body length of up to 1 foot with a wingspan 3-6 feet, these');
     writeln('nocturnal predators eat small animals or birds instead of the insects that form');
     writeln('the usual fare of their brethren. They are attracted by the smell of blood and');
     writeln('pounce on a bleeding victim en masse, tearing flesh from the bone with small,');
     writeln('razor-sharp teeth. hardly cute, they are notorious carriers of disease.');
end;

Procedure bat_pond;
 begin
     write('Flying Creatures, ');
     dice :=1+Random(99);
     writeln (dice, ' Bats Pond');
     writeln;
     writeln('Level 0');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 5');
     writeln('AT is No/1');
     writeln('DB is 60');
     writeln('Attacks are 25TBi/-/-');
     writeln('Nocturnal. Very passive. Ingnores stuns.');
     writeln('A small black creature, the Pond Bat rarely attacks menunless');
     writeln('panicked and confused, or trapped. It is, however, a noted carrier');
     writeln('of fleas and other parasites, which it can leave in dwelling and ');
     writeln('camps. Thus, they are a common cause of Cyclic Fever.');
end;

Procedure bears_black;
 begin
     write('Animals, ');
     dice :=1+Random(3);
     writeln (dice, ' Black Bears');
     writeln;
     writeln('Level 2');
     writeln('Size is large,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 150');
     writeln('AT is SL/8');
     writeln('DB is 20');
     writeln('Attacks are 60LGr/70LCl/40MBi');
     writeln('Possesive of their territory, will attack.');

end;

Procedure bears_black1;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Black Bears');
     writeln;
     writeln('Level 4');
     writeln('Size is medium,');
     writeln('Speed is F/F,');
     writeln('Hits are 150');
     writeln('AT is SL/4');
     writeln('DB is 30');
     writeln('Attacks are 60LGr/70LCl/30MBi');
     writeln('Will not normally attack unless provoked.');

end;

Procedure bears_black2;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Black Bears');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 150');
     writeln('AT is SL/8');
     writeln('DB is 20');
     writeln('Attacks are 65LGr/60LCl/40MBi/70MBa');
     writeln('Aggressive hunters.');

end;

Procedure bears_black3;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Black Bears');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 150');
     writeln('AT is SL/8');
     writeln('DB is 20');
     writeln('Attacks are 65LGr/70LCl/40MBi');
     writeln('Possessive of their territory, will attack.');

end;

Procedure bears_blue;
 begin
     write('Animals, ');
     dice :=1+Random(5);
     writeln (dice, ' Blue Bears');
     writeln;
     writeln('Level 7');
     writeln('Size is large,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 200');
     writeln('AT is SL/8');
     writeln('DB is 25');
     writeln('Attacks are 80LGr/70LCl/30MBi');
     writeln('Semi-intelligent, uses "Precense 50 radius".');

end;

Procedure bears_brown;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Brown Bears');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 170');
     writeln('AT is SL/8');
     writeln('DB is 10');
     writeln('Attacks are 70LGr/60LCl/20MBi');
     writeln('Use Large Creature Criticals.');

end;

Procedure bears_cave;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Cave Bears');
     writeln;
     writeln('Level 7');
     writeln('Size is large,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 250');
     writeln('AT is SL/8');
     writeln('DB is 40');
     writeln('Attacks are 95HGr/90LCl/60MBi');
     writeln('Will rarely attack unless provoked.');

end;

Procedure bears_cave1;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Cave Bears');
     writeln;
     writeln('Level 12');
     writeln('Size is Huge,');
     writeln('Speed is MF/F,');
     writeln('Hits are 300');
     writeln('AT is SL/8');
     writeln('DB is 40');
     writeln('Attacks are 95HGr/90HCl/30HGr');
     writeln('Will rarely attack unless provoked.');

end;
Procedure bees;
 begin
     write('Animals, ');
     dice :=1+Random(99);
     writeln (dice, ' Bees');
     writeln;
     writeln('Level 0');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 4');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 5Tpi/-/-');
     writeln('Will not normally attack unless provoked');

end;

Procedure beffraen;
 begin
     write('Local men, ');
     dice :=1+Random(4);
     writeln (dice, ' Beffraen');
     writeln;
     writeln('You can easily mistake a Beffraen for a particularly large Hobbit or');
     writeln('an especially stealthy Dwarft, they are longsundered cousins of Woses.');
     writeln('Beffaen has lost their ability to echant stone or wood by magical skill.');
     writeln('They live in Eryn Vorn at Rast Vorn, that is horrible swamp.');
     writeln('Beffraen uses poisoned javelins and blow-guns.');

end;

Procedure birds;
 begin
     write('Animals, ');
     dice :=1+Random(60);
     writeln (dice, ' Birds');
     writeln;
     writeln('Level 1-4');
     writeln('Size is small-medium,');
     writeln('Speed is MD/F - F/VF,');
     writeln('Hits are 5-100');
     writeln('AT is No/1 - SL/4');
     writeln('DB is 25-60');
     writeln('Attacks are 45SCl/30SBi/-');
     writeln('Allround birds, remember hawks and eagles. But the _big_ birds are quite rare.');

end;


Procedure bird_large;
 begin
     write('Animals, ');
     dice :=1+Random(99);
     writeln (dice, ' Large Birds');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is VF/FA,');
     writeln('Hits are 20');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 30PI/20Cl/-');
     writeln('Allround birds.');

end;

Procedure bird_medium;
 begin
     write('Animals, ');
     dice :=2+Random(38);
     writeln (dice, ' Medium Birds');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is VA/FA,');
     writeln('Hits are 10');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are 10SPI/-/-');
     writeln('Allround birds.');

end;

Procedure bird_small;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Small Birds');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is VA/FA,');
     writeln('Hits are 5');
     writeln('AT is No/1');
     writeln('DB is 10');
     writeln('Attacks are 5TPI/-/-');
     writeln('Allround birds.');

end;

Procedure bitterns;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Bitterns');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 15');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 20SCl/10SPi/-');
     writeln('Small fishing birds, i hope there is water <g>.');

end;

Procedure black_mink;
 begin
     write('Animals, ');
     dice :=1+Random(11);
     writeln (dice, ' Black Minks ');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits is 50');
     writeln('AT is Sl/3');
     writeln('DB is 60');
     writeln('Attacks is 50MBi/-/-');
     writeln('Fierce. Ignore stun results. Carnivorous mammals reaching up to 4 foot');
     writeln('in lenght and 80 lbs, Black Minks are voracious eaters and cunning in ');
     writeln('planning their attacks. In the spring they conregate to mate and can go');
     writeln('beserk, attacking anything in their path, no matter how large. Mink ');
     writeln('cannot be driven off or stunned and will fight to a bloody death. Their');
     writeln('pelts are worth up to 10gp each: the fur is thick, glossy and entirely');
     writeln('waterproof.');

end;

Procedure black_numenoreans;
 begin
     write('Local men, ');
     dice :=1+Random(4);
     writeln (dice, ' Beffraen');
     writeln;
     writeln('So Black Numenoreans body and culture backround very similar to Dunedain.');
     writeln('Constitution is strong and impressive, angular characteristic. ');
     writeln('Average men weight is 102 kilos and lenght is 193 cm');
     writeln('Average female weight is 68 kilos and lenght is 178 cm');
     writeln('Live is longer than humans, it is 90 to 175 years. Centuries at south');
     writeln('are modified skin to tanned grey-brown and hair to black. Eyes are piercing');
     writeln('grey. Favorite colors are black and gold. Black Numenoreans helmet is called');
     writeln('karma which is made of metalscales and decorated colorfull fish shaped');
     writeln('leather crest, which is still used.');
     writeln('');
     writeln('They hate Elves and Dunedain!');
end;

Procedure blue_otter;
 begin
     write('Animals, ');
     dice :=1+Random(2);
     writeln (dice, ' Blue Otter');
     writeln;
     writeln('Level 4');
     writeln('Size is medium,');
     writeln('Speed is MF/MF,');
     writeln('Hits is 80');
     writeln('AT is Sl/3');
     writeln('DB is 30');
     writeln('Attacks is 40MCl/40MMBi/-');
     writeln('Eat fish and shellfish.');
     writeln('While similar to their more mundane brethren, Blue Otters are larger ');
     writeln('[averaging 5-7 foot in lenght] and have flattened tails with sharp');
     writeln('crest on each edge. They generally travel in small groups during the');
     writeln('day, feeding on fish eggs, smaller aquatic mammals and birds. Using');
     writeln('tree roots as structural supports, they reside in dens cut into larger,');
     writeln('stabler sandbars or riverbanks. Here they produce litters of only one');
     writeln('or two young each year. It is not suprising then, that Blue Otters are');
     writeln('endangered. Fortunally, the King has interceded and hanned their hunting,');
     writeln('for their breeding pattern, coupled with their large profile and valuable');
     writeln('pelts, makes them ideal targets for extinction.');

end;

Procedure boar;
 begin
     write('Animals, ');
     dice :=2+Random(18);
     writeln (dice, ' Boars');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is F/MF,');
     writeln('Hits are 100');
     writeln('AT is No/4');
     writeln('DB is 30');
     writeln('Attacks are 50MHo/50MBa/40STS');
     writeln('Males are very aggressive about defending packs');

end;

Procedure boar_fen;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Fen Boars');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is F/MF,');
     writeln('Hits are 100');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 40MHo/30MBa/20STS');
     writeln('Males are very aggressive.');
     writeln('Fen Boars are smaller than their forest-dwelling relatives, who can gorge');
     writeln('on nuts all autumn. However, they make for good hunting and tasty eating.');
     writeln('Males can be dangerous if cornered, lashing out with the long tusks they ');
     writeln('normally employ for digging in the mud for tasty roots, as well for ');
     writeln('grubbing out rotten meat.');

end;

Procedure boar_wild;
 begin
     write('Animals, ');
     dice :=1+Random(0);
     writeln (dice, ' Wild boar');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is F/MF,');
     writeln('Hits are 120');
     writeln('AT is No/4');
     writeln('DB is 30');
     writeln('Attacks are 40LHo/30MBa/20MTS');
     writeln('Mean-tempered and solitary. Vicious if cornered.');

end;

Procedure brigands;
 begin
     write('Local Nen, ');
     dice :=2+Random(8);
     writeln (dice, ' Brigands');
     writeln;
     writeln('Wears lot of weapons and old armors, wandering around lands');
     writeln('Mercenaries and foreigner make up various brigands');
     writeln('All races are possible. Looking for easy pickings.');

end;

Procedure caja;
 begin
     write('Animals, ');
     dice :=1+Random(0);
     writeln (dice, ' Caja');
     writeln;
     writeln('Level 2');
     writeln('Size is small,');
     writeln('Speed is FA/VF,');
     writeln('Hits are 20');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 30SSt/poison/-');
     writeln('Snake. One of the most feared denizens of Chennacatt is the Caja, a snake');
     writeln('with a highly poisonous bite. The serpent frequents remote rocky terrain ');
     writeln('ruins. It often grouws up to sex feet in lenght and when moving, can easily');
     writeln('outdistance a human runner. The only natural predator of the caja is the');
     writeln('mongoose.');

end;


Procedure calenardhons_common_folk;
 begin
     write('Calenarhons, ');
     dice :=1+Random(4);
     writeln (dice, ' Common Folk');
     writeln;
     writeln('These people live in small villages etc.');
     writeln('Usually farmers, shepherds and other primitive proffessional ');

end;

Procedure calenardhon_site;
 begin
     write('Sites or Things, ');
     dice :=6+Random(43);
     writeln (dice, ' Calenardhon Site');
     writeln;
     writeln('In this little cottage live calenardhons. Several professionals.');
     writeln('You can make your mind of everything else!');

end;

Procedure calenardhons_Soldiers;
 begin
     write('Calenardhons, ');
     dice :=1+Random(4);
     writeln (dice, ' Soldiers');
     writeln;
     writeln('Level 3');
     writeln('Hits are 45');
     writeln('AT is Ch/13');
     writeln('DB is 25');
     writeln('Use shield');
     writeln('Attacks are melee 45Sp and missle 30Ws');
     writeln('Movement is 5');

end;

Procedure camel_wild;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Wild Camels');
     writeln;
     writeln('Level 4');
     writeln('Size is large,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 130');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 30MBi/25MBa/-');
     writeln('Also called DEVEVI. Carry 225 pounds');

end;

Procedure caravans;

 begin
     write('Peoples, ');
     dice :=12+Random(10);
     writeln (dice, ' Caravan');
     writeln;
     writeln('Haradrim caravan "baggage train".');
     writeln('Great trading caravans unload onto ships their cargo or ');
     writeln('sell it to others.');

end;

Procedure caru;
 begin
     write('Animals, ');
     dice :=2+Random(18);
     writeln (dice, ' Caru');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is VF/FA,');
     writeln('Hits are 70');
     writeln('AT is No/3');
     writeln('DB is 40');
     writeln('Attacks are 20MHo/20MTs/-');
     writeln('Timid Deer with horns.');

end;

Procedure cat_domesticated;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Domesticated Cats');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 50');
     writeln('AT is No/3');
     writeln('DB is 50');
     writeln('Attacks are 30MCl/20SBi/-');
     writeln('Small, domesticated cats. Maybe pets');

end;

Procedure cattle;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Cattle');
     writeln;
     writeln('Cattle. Usually near cattle is fence.');

end;

Procedure cave_cavern_lair;
 begin
     write('Sites or Things, ');
     writeln (' Cave, Cavern or Lair');
     writeln;
     writeln('Could be take shape by animal, wind, water, creature or just coding time.');
     writeln('Some times animals live in this cave');
     writeln('U can choose is this big or little cave or even dungeon.');

end;

Procedure clansmen;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Clansmen');
     writeln;
     writeln('You meet normal people, who are part of local cult or clan');

end;

Procedure cliff_buzzard;
 begin
     write('Animals, ');
     dice :=3+Random(6);
     writeln (dice, ' Cliff Buzzard');
     writeln;
     writeln('Level 5');
     writeln('Size is medium,');
     writeln('Speed is VF/F,');
     writeln('Hits are 80');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 60LCl/50MBi/-');
     writeln('Semi-intelligent, will attack weak, wounded, or small humanoids if victim');
     writeln('is alone. This large, black-feathered bird builds its nest on mountain');
     writeln('cliffs. There are generally several pairs nesting in any given area, unusual');
     writeln('for generally solitary birds of prey. Cooperate when stalking victims.');
     writeln('Superb tacticians, they oftern drive large, lone animals over cliffs and');
     writeln('eat the shattered body.');
end;

Procedure coireal;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Coireal');
     writeln;
     writeln('Level 0');
     writeln('Size is small,');
     writeln('Speed is S/VF,');
     writeln('Hits are 30');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 55SST/poison/-');
     writeln('Passive, 10th level nerve poison. 2-3 feet long.');
     writeln('Poison causes paralyze and then death. Bites only those fools');
     writeln('who take snake to hand, snake want to stay away from humans.');
     writeln('Eats small insects. Live in woods. Easy to notice from shiny skin');
     writeln('yellow stripes.');
end;


Procedure common_folk;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Common Folk');
     writeln;
     writeln('These people live in small villages etc.');
     writeln('Usually farmers, shepherds and other primitive proffessional ');

end;

Procedure coots;
 begin
     write('Animals, ');
     dice :=1+Random(14);
     writeln (dice, ' Coots');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is VF/FA,');
     writeln('Hits are 15');
     writeln('AT is No/1');
     writeln('DB is 50');
     writeln('Attacks are 30SBi/-/-');
     writeln('Noisy waterfoul.');

end;

Procedure corsairs;
 begin
     write('Other Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Corsairs');
     writeln;
     writeln('Originally descendants of Castamir "The Usurper" of Gondor and his');
     writeln('followers, the Captain who fled Gondor in the latter days of the');
     writeln('Kin-strife T.A. 1432-47. This group seized control of Umbar in were');
     writeln('labeled "Corsairs." The term later became associated with any pirates');
     writeln('based in Umbar or along the coast of Harad.');

end;

Procedure country_folk;
 begin
     write('People, ');
     dice :=1+Random(3);
     writeln (dice, ' Country Folk');
     writeln;
     writeln('Level 3');
     writeln('Hits are 35');
     writeln('AT is No/1');
     writeln('DB is 15');
     writeln('Live in small rural villages.');

end;


Procedure crebain;
 begin
     write('Animals, ');
     dice :=1+Random(99);
     writeln (dice, ' Crebains');
     writeln;
     writeln('Level 2');
     writeln('Size is small,');
     writeln('Speed is FA/FA,');
     writeln('Hits are 10');
     writeln('AT is No/1');
     writeln('DB is 50');
     writeln('Attacks are 25SPi/-/-');
     writeln('Crows. Sometimes Crebain are servants of evil. Quickly Morgoth realize ');
     writeln('that flying creatures are great help to him. So him create Crebain and ');
     writeln('other creatures even simply like dark clouds to cover sun so army evil');
     writeln('feel enjoy.');

end;

Procedure crocodiles_large;
 begin
     write('Animals, ');
     dice :=1+Random(2);
     writeln (dice, ' Large Crocodiles');
     writeln;
     writeln('Level 3');
     writeln('Size is large,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 120');
     writeln('AT is No/7');
     writeln('DB is 10');
     writeln('Attacks are 80LBi/80Lgr/-');
     writeln('Slower on land.');

end;

Procedure crocodiles_small;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Small Crocodiles');
     writeln;
     writeln('Level 1');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 85');
     writeln('AT is No/7');
     writeln('DB is 20');
     writeln('Attacks are 50MBi/30Sgr/-');
     writeln('Slower on land.');

end;

Procedure croppers_gatherers;
 begin
     write('People, ');
     dice :=1+Random(14);
     writeln (dice, ' Croppers/Gatherers');
     writeln;
     writeln('Level 1');
     writeln('Hits are 20');
     writeln('AT No/1');
     writeln('DB is 5');
     writeln('Gather grain, potatoes and so on. Or wander around gathering herbs.');

end;


Procedure cunara;
 begin
     write('Animals, ');
     dice :=10+Random(90);
     writeln (dice, ' Cunara');
     writeln;
     writeln('Level 0');
     writeln('Size is small,');
     writeln('Speed is MF/MD,');
     writeln('Hits are 10');
     writeln('AT is No/3');
     writeln('DB is 10');
     writeln('Attacks are 5SBi/20SCl/-');
     writeln('Timid and curious gophers.');

end;


Procedure customs_men;
 begin
     write('People, ');
     dice :=2+Random(4);
     writeln(dice, ' Customs Men');
     writeln;
     writeln('One bookeeper and one or more soldiers to collect fee.');
     writeln('These are near Micandors tower because there are Customs Master for the Delta.');
     writeln('Also for small fee supplies pilots');
end;


Procedure daen_coentis_site;
 begin
     write('Sites or Things, ');
     writeln (dice, ' Daen Coentis Site');
     writeln;
     writeln('May involve unmapped and/or unoccupied locations such as ruins, thief-holds');
     writeln('camps, farm houses, etc. These sites are listed in order of age with Daen ');
     writeln('Coentis being the oldest. This area has not fully recovered from the Great ');
     writeln('Plague, so abandoned buildings are not uncommon. In towns, these sites may be');
     writeln('buried and require excavation in order to fully explore.');
     writeln('');
     writeln('This forgotten race is the indigenous mannish population in most of what is');
     writeln('now central and western Gondor. Animistic, superstitious and industrious, they');
     writeln('leave a wealth of stone carvings and megalithic structures in the hills and');
     writeln('high vales they find to sacred.');
end;

Procedure danak;
 begin
     write('Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Danak');
     writeln;
     writeln('The Danak of the T£r Betark are the most reclusive people of Greater Harad.');
     writeln('Dwelling alone or in small groups in the high mountain vales, they live a');
     writeln('simple life. Their habitual demeanor is friendly and open, and the Dwarves');
     writeln('revere them as a people of unusually high integrity. Rumor has it that the');
     writeln('Danak shamen are able to call up the dead to help defend their homelands.');
     writeln('A Danak male is normally between 178-188 cm, womens are 10 cm shorter.');
     writeln('Blond hair and beards are common and Danak eyes are as blue as the sky.');
     writeln('Happy people, the Danak wear bright clothes ex. red, blue, green');

end;

Procedure deer;
 begin
     write('Animals, ');
     dice :=1+Random(11);
     writeln (dice, ' Deers');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is VF/F,');
     writeln('Hits are 50');
     writeln('AT is No/3');
     writeln('DB is 40');
     writeln('Attacks are 20MHo/20MTS/-');
     writeln('Only males have horns to use. Will flee rather than fight unless cornered.');

end;

Procedure deer_dappled;
 begin
     write('Animals, ');
     dice :=2+Random(18);
     writeln (dice, ' Dappled Deers');
     writeln;
     writeln('Level 1');
     writeln('Size is medium,');
     writeln('Speed is F/MF,');
     writeln('Hits are 50');
     writeln('AT is No/3');
     writeln('DB is 45');
     writeln('Attacks are 20SHo/35TTS/-');
     writeln('Hardy and pugnacious.');
     writeln('Akin to the Roe Deer [Fiara] of Eriador, the Dappled Deer is small, hardy and');
     writeln('pugnacious creature. Only the stags fight, but they exceptionally skiddish and');
     writeln('aggressive, especially in Spring. They usually employ their horns, which can');
     writeln('effectively penetrate mail.');

end;

Procedure demon;
 begin
     write('Undead, ');
     dice :=1+Random(4);
     writeln (dice, ' Demon');
     writeln;
     writeln('Level 6-14');
     writeln('Size is large-super large,');
     writeln('Speed is MD/BF');
     writeln('Hits are 70-300');
     writeln('AT is various');
     writeln('DB is good');
     writeln('Attacks are quite good');
     writeln('Owns mystical power skills from other dimensions.');
     writeln('Demons are quite hard to destroy and remember that!');

end;

Procedure demon_greater;
 begin
     write('Undead, ');
     dice :=1+Random(0);
     writeln (dice, ' Greater Demon');
     writeln;
     writeln('Level 13');
     writeln('Size is large,');
     writeln('Speed is BF/FA');
     writeln('Hits are 120');
     writeln('AT is No/4');
     writeln('DB is 60');
     writeln('Attacks are 70LBa/90we/-');
     writeln('Owns mystical power skills from other dimensions.');
     writeln('Fallen Fire, Earth, Wind and Water spirits, has spells.');

end;

Procedure demon_lesser;
 begin
     write('Undead, ');
     dice :=1+Random(0);
     writeln (dice, ' Lesser Demon');
     writeln;
     writeln('Level 4');
     writeln('Size is medium,');
     writeln('Speed is FA/FA');
     writeln('Hits are 60');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 50MCl/70we/-');
     writeln('Owns mystical power skills from other dimensions.');
     writeln('Fallen Fire, Earth, Wind and Water spirits.');

end;

Procedure din_fuinen;
 begin
     write('Hazards, ');
     dice :=1+Random(4);
     writeln (dice, ' Din Fuinen');
     writeln;
     writeln('This green moss is poisonous. When you make oil from moss it is 8');
     writeln('level poison which causes amnesia.');
     writeln('');
     writeln('This is one possible way:');
     writeln('The moss forms a cool, soft bed in the woods. If adventurer are resting');
     writeln('place, a hidden hazard waits. The pressure of reclining individual causes');
     writeln('the moss to exude an oil whixh stals memory. When the unfortunate victim');
     writeln('awakes, he wanders throughly the wood, forgetting home, path and purpose.');
     writeln('Even if he lives to regainhis memory 1 to 100 days, by time remembers his');
     writeln('task he wil be lsot beyond hope.');

end;

Procedure dog_domesticated;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Domesticated Dogs');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is MD/MF,');
     writeln('Hits are 40');
     writeln('AT is No/3');
     writeln('DB is 40');
     writeln('Attacks are 45SBi/-/-');
     writeln('Often frienly, but protective');

end;

Procedure dolphins;

 begin
     write('Unusual, ');
     dice :=2+Random(18);
     writeln (dice, ' Dolphins');
     writeln;
     writeln('Level 8');
     writeln('Size is large,');
     writeln('Speed is VF/VA,');
     writeln('Hits are 110');
     writeln('AT is No/1');
     writeln('DB is 50');
     writeln('Attacks are 70MBa/60MBi/-');
     writeln('Intelligetn and playful, Anduin only.');

end;

Procedure dragons;
 begin
     write('Other Non Mannish Races, ');
     dice :=1+Random(1);
     writeln (dice, ' Dragons');
     writeln;
     writeln('Level 30');
     writeln('Size is large-super large,');
     writeln('Speed is MD/MD');
     writeln('Hits are 439');
     writeln('AT is Ch/15');
     writeln('DB is 55');
     writeln('Attack is 105HBi/115HCl/100HBa/60HHo/90Huge Fire Breath');
     writeln('Above information is from Red fire dragon');

end;

Procedure druedain_site;
 begin
     write('Non-Mannish Races, ');
     writeln (dice, ' Druedain Site');
     writeln;
     writeln('Also called Drughu or Woses. The Drughu are a secretive forest');
     writeln('people whose short, stout, tatooed bodies and peculiar features');
     writeln('long ago set the Secondborn. Magical and yet outwardly primitive');
     writeln('they disturb most Men who encounter them. Thus, they have been ');
     writeln('persecuted, and even hunted by other races.');
     writeln('They view even their closest kin, beffraen, as dangerous enemies');

end;


Procedure dumbledoors;
 begin
     write('Animals, ');
     dice :=1+Random(99);
     writeln (dice, ' Dumbledoors');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 3');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 10TSt/poison/-');
     writeln('Nasty oversized wasps, Level 3 muscle poison.');

end;

Procedure dunedain_messengers;
 begin
     write('Local Men, ');
     dice :=1+random(2);
     writeln (dice, '4th level fighter unmounted.');
     writeln;
     writeln('As esquires, one Dunedain messenger.');

end;

Procedure dunedain_site;
 begin
     write('Sites or Things, ');
     dice :=6+Random(43);
     writeln (dice, ' Dunedain Site');
     writeln;
     writeln('In this little cottage live dunedains. Several professionals.');
     writeln('You can make your mind of everything else!');

end;

Procedure dunlendings;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Dunlendings');
     writeln;
     writeln('Descendants of the Woses, dunlendings have a medium or stocky build,');
     writeln('sparse brown hair, and tanned or ruddy complexions. Men average');
     writeln('is 177cm; women stand around 167cm. Mostly mountain-dwellers or ');
     writeln('hill-loving herders, they are known by various names: Dunmen, ');
     writeln('Dunnish Folk, Dunlanders, Eredrim, the Hillmen of the ');
     writeln('White Mountains, etc.');

end;

Procedure dunlendings_bards;
 begin
     write('Dunlendings, ');
     dice :=1+Random(4);
     writeln (dice, ' Bards');
     writeln;
     writeln('Level 2');
     writeln('Hits are 25');
     writeln('AT is No/1');
     writeln('DB is 15');
     writeln('Attacks are melee 35Ss and missle 15Lb');
     writeln('Movement is 10');
     writeln('Have 2 Mana points and use +1 spell adder. Have 2 lists.');
     writeln('Usually like to sing and play instruments.');

end;

Procedure dunlendings_healers;
 begin
     write('Dunlendings, ');
     dice :=1+Random(4);
     writeln (dice, ' Healers');
     writeln;
     writeln('Level 2');
     writeln('Hits are 35');
     writeln('AT is No/1');
     writeln('DB is 15');
     writeln('Attacks are melee 25Sp and missle 15Sb');
     writeln('Movement is 10');
     writeln('Have 5 Mana points and use +1 spell adder. Have 2 lists');

end;

Procedure dunlendings_priest;
 begin
     write('Dunlendings, ');
     dice :=1+Random(4);
     writeln (dice, ' Priests');
     writeln;
     writeln('Level 2');
     writeln('Hits are 35');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are melee 25Da and missle 15Sb');
     writeln('Movement is 15');
     writeln('Have 4 Mana points and use +1 spell adder. Have 1 list');

end;

Procedure dunlending_site;
 begin
     write('Sites or Things, ');
     dice :=6+Random(43);
     writeln (dice, ' Dunlendigs Site');
     writeln;
     writeln('In this little village live Dunlendings. Several professionals.');
     writeln('You can make your mind of everything else!');

end;

Procedure dunlendings_warriors;
 begin
     write('Dunlendings, ');
     dice :=1+Random(4);
     writeln (dice, ' Warriors');
     writeln;
     writeln('Level 2');
     writeln('Hits are 45');
     writeln('AT is Sl/8');
     writeln('DB is 30');
     writeln('Use shield');
     writeln('Attacks are melee 45Sp and missle 30Ws');
     writeln('Movement is 5');

end;


Procedure dunnish_site;
 begin
     write('Sites or Things, ');
     writeln (dice, ' Dunnish Site');
     writeln;
     writeln('May involve unmapped and/or unoccupied locations such as ruins, thief-holds');
     writeln('camps, farm houses, etc.  ');
     writeln('This area has not fully recovered from the Great Plague, so abandoned');
     writeln('buildings not uncommon. In towns, these sites may be buried and require ');
     writeln('excavation in order to fully explore.');

end;

Procedure dwarves;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(4);
     writeln (dice, ' Dwarves');
     writeln;
     writeln('Also called khazad. Dwarves are short 120-150 cm, burly and strong.');
     writeln('They have red, black or dark brown hair and skin is ruddy or white.');
     writeln('Dwarves can carry heavy load long jorneys nearle without any rest.');
     writeln('Dwarves can see in extremely dark 3 yards and weal light 20-40 yards');

end;

Procedure dwelling0;
 begin
     write('You see soon Honnin Dwelling so roll once at Honnin Dwelling chart!');
 end;

end.