Unit monster2;

interface

Procedure eagle_golden;
Procedure eagle_great;
Procedure eagle_red;
Procedure eagle_verrin;
Procedure easterlings;
Procedure eels;
Procedure elves;
Procedure elves_noldor;
Procedure elves_sindar;
Procedure enemies_haradrim;
procedure enemies_other;
Procedure ents;
Procedure esquire;
Procedure farming_folk;
Procedure fishermen;
Procedure flash_flood;
Procedure fell_beast;
Procedure foreigners;
Procedure fur_trappers;
Procedure general_folk;
Procedure general_traps;
Procedure ghouls;
Procedure ghouls_greater;
Procedure ghosts;
Procedure ghosts_lesser;
Procedure ghosts_lord;
Procedure giants;
Procedure glutan;
Procedure glutan1;
Procedure gnats;
Procedure goats_domestic;
Procedure goats_mountain;
Procedure goats_wild;
Procedure goats_wild1;
Procedure gondorian_site;
Procedure goose;
Procedure gorbet_trail_lizard;
Procedure gorcrows;
Procedure gorcrows1;
Procedure grain_carrier;
Procedure grass_cat;
Procedure grass_fire;
Procedure grass_grouses;
Procedure grave_site_tomb;
Procedure green_asp;
Procedure grey_Flyer;
Procedure hanajaib;
Procedure haradan_foragers;
Procedure haradrim;
Procedure hawk;
Procedure hawker_falconer;
Procedure herders;
Procedure herd_animals;
Procedure herumor;
Procedure hobbits;
Procedure honning;
Procedure honning_foragers;
Procedure honning_hunters;
Procedure honning_non_combattants;
Procedure honning_shamans;
Procedure hopta;
Procedure hornets;
Procedure hornet_cliff;
Procedure horses_wild;
Procedure hourns;
Procedure house_farmstead;
Procedure hummerhorns;
Procedure hunters;
Procedure hut_shieling;
Procedure izhta;
Procedure jatewoone;
Procedure juthjuth;
Procedure kingfishers;
Procedure kine_wild;
Procedure Kirkinir;

implementation

uses crt, monster0, monster1, monster3, monster4, monster5;

     var
           dice : byte;  {muutuja satunnaisluvulle}


Procedure eagle_golden;
 begin
     write('Animals, ');
     dice :=1+Random(5);
     writeln (dice, ' Golden Eagles');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is F/F,');
     writeln('Hits are 30');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 45MCl/35SPi/-');
     writeln('Rarely attack larger creatures (unless helpless).');

end;

Procedure eagle_great;
 begin
     write('Animals, ');
     dice :=1+Random(5);
     writeln (dice, ' Great Eagles');
     writeln;
     writeln('Level 8');
     writeln('Size is large,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 150');
     writeln('AT is No/3');
     writeln('DB is 40');
     writeln('Attacks are 80LCl/35SPi/-');
     writeln('Intelligent & food; Use Large Creature Crits.');

end;

Procedure eagle_red;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Red Eagles');
     writeln;
     writeln('Level 6');
     writeln('Size is medium,');
     writeln('Speed is VF/FA,');
     writeln('Hits are 75');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 70LCl/45MPi/-');
     writeln('Predators, shy away from men.');

end;

Procedure eagle_verrin;
 begin
     write('Animals, ');
     dice :=1+Random(2);
     writeln (dice, ' Verrin Eagle');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is F/F,');
     writeln('Hits are 40');
     writeln('AT is No/2');
     writeln('DB is 35');
     writeln('Attacks are 50MCl/45SPi/-');
     writeln('Bold and territorial.');

end;

Procedure easterlings;
 begin
     write('Other Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Easterlings');
     writeln;
     writeln('These people are from east, their skin is sunburned, sometimes even dark.');
     writeln('Medium size easterling male is 168 cm tall and weight is about 64 kg.');
     writeln('Usually good horse mens and nomads. They fear dark and thunder and worship ');
     writeln('Morgoth and darkness. Someones are superstitiously.');

end;

Procedure eels;
 begin
     write('Animals, ');
     dice :=1+Random(3);
     writeln (dice, ' Eels');
     writeln;
     writeln('Level 1-5');
     writeln('Size is small,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 13');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are 10SBi/-/-');
     writeln('Local staple. The male Eel is up to 2 foot long, while the female reaches');
     writeln('5 foot.');
end;


Procedure elves;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(4);
     writeln (dice, ' Elves');
     writeln;
     writeln('This race is mortal and usually they are tall and thin. Male ');
     writeln('elves have no beard. They are also blessed with good look and');
     writeln('they can see on ligth of stars and moon about 200 yards');
     writeln('and dark 30 yards. Of course elves can die by violence or');
     writeln('just boring to live anymore');

end;

Procedure elves_noldor;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(4);
     writeln (dice, ' Noldor Elves');
     writeln;
     writeln('This race is mortal.Male elves have no beard. ');
     writeln('They are also blessed with good look and they can see on light');
     writeln('of stars and moon about 40 yards and dark about 20 yards.');
     writeln('Of course elves can die by violence or just get bored to live anymore.');
     writeln('');
     writeln('Noldor do not get any scars or get sick and +20 against cold attacks');
     writeln('Noldor are most strongest and burliest of elves but still dainty');
     writeln('than humans.');

end;

Procedure elves_sindar;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(4);
     writeln (dice, ' Sindar Elves');
     writeln;
     writeln('Also knows as Grey elves. Male average lenght is 195 cm and females 185cm.');
     writeln('No one build better ships and boats than Sindar elves. Can not get any');
     writeln('scars or get sick. +15 agains cold attack. Can see on light of stars and');
     writeln('moon about 40 yards and darks about 20 yards. Mortal like Noldor.');
     writeln('Builds towns and villages and like keeping company for others elves.');
     writeln('Eternal wish for sailing on sea.');

end;

Procedure enemies_haradrim;
 begin
     write('Enemies, ');
     dice :=1+Random(4);
     writeln (dice, ' Haradrim');
     writeln;
     writeln('S."Southern People" or "Southrons." Also called the Haradwaith.');
     writeln('The Haradrim comprise various confederations of Haradaic- and');
     writeln('Apysaic-speaking peoples who reside in Harad.');
     writeln('');
     writeln('Hostile now!');

end;

Procedure enemies_other;
 begin
     write('Enemies, ');
     dice :=1+Random(4);
     writeln (dice, ' Other');
     writeln;
     writeln('Other enemies against your group, orcs, other clans. Mostly humans.');
     writeln('');
     writeln('Hostile now!');

end;

Procedure ents;
 begin
     write('Other Non Manish Races, ');
     dice :=1+Random(4);
     writeln (dice, ' Ents');
     writeln;
     writeln('Level 25');
     writeln('Size is huge');
     writeln('Speed is VS/M');
     writeln('Hits are 400');
     writeln('AT is PL/20');
     writeln('DB is 0');
     writeln('Attacks are 60HGr/30HCr/120Both');
     writeln('Use Large Creature Criticals');

end;

Procedure esquire;
 begin
     write('Local Men, ');
     dice :=1+Random(6);
     writeln (dice, ' Esquires');
     writeln;
     writeln('Level 4');
     writeln('Hits are 55');
     writeln('AT is Ch/14');
     writeln('DB is 35');
     writeln('Attacks are melee 50bs and missle 45pl');
     writeln('Captain or Lietnant with esquire.');

end;

Procedure farming_folk;
 begin
     write('People, ');
     dice :=1+Random(6);
     writeln (dice, ' Farming Folk');
     writeln;
     writeln('Level 1-3');
     writeln('Hits are 20-75');
     writeln('AT is No/1');
     writeln('DB is 25');
     writeln('Normal Rural Folk, owns many skills about farming.');
     writeln('If you pay enought could sell a horse or food.');
end;

Procedure fell_beast;
 begin
     write('Other Non Manish Races, ');
     dice :=1+Random(1);
     writeln (dice, ' Fell Beasts');
     writeln;
     writeln('Level 20');
     writeln('Size is Large');
     writeln('speed is VF/BF');
     writeln('Hits are 240');
     writeln('AT is RL/12');
     writeln('DB is 50');
     writeln('Attacks are 190HCl/90LGr/90LBa');
     writeln('Use Large Creature Criticals');
     writeln('Sometype monster, creature. No information avaible at this moment, sorry!');

end;

Procedure flash_flood;
 begin
     write('Inanimate Dangers, ');
     writeln(' Flash Flood');
     writeln;
     writeln('Lightnings flashes and sky is grey. Soon rain begin and quickly ');
     writeln('water cover up land because land are too dry or it rains too much.');

end;

Procedure fishermen;
 begin
     write('Local Men and Townfolk, ');
     dice :=1+Random(4);
     writeln (dice, ' Fishermen');
     writeln;
     writeln('Fishers of Anduin. Could buy/sell small fishing boats, as well as');
     writeln('nets and basic fishing tools.');

end;

Procedure foreigners;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Foreigners');
     writeln;
     writeln('Outsiders from other culture, kindoms, villages or just other races.');
     writeln('Easy to notice because they could buy something by strange coins,');
     writeln('speak other languages, wear strange clothes.');

end;

Procedure fur_trappers;
 begin
     write('People, ');
     dice :=1+Random(2);
     writeln (dice, ' Fur Trappers');
     writeln;
     writeln('Fur trappers of Mouth of Entwash. Could buy/sell furs, also good trackers.');

end;


Procedure general_folk;
 begin
     write('Others, ');
     dice :=1+Random(4);
     writeln (dice, ' General Folk');
     writeln;
     writeln('General folk could be almost anybody but probably not someone very famous or');
     writeln('powerful. They might include traveling merchants, unemployed soldiers,');
     writeln('messengers, other adventurers, etc.');

end;

Procedure general_traps;
  begin
     writeln('General Traps');
     writeln;
     writeln('Are usually basic traps, which are made for animals.');
end;

Procedure ghouls;
 begin
     write('Undead, ');
     writeln (' Any, Ghoul');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is MF/F,');
     writeln('Hits are 50');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are 45we/50SCl/40MBa');
     writeln('Infects wounds, casts Fear spell range is 60 feet.');
     writeln('They can gain strenght by eating their victims. Ghouls cannot, however, take');
     writeln('energy from creatures not of their own orginal kind, nor can they trike these');
     writeln('unless first assailed. They attack with their nails, teth, hands or rarely ');
     writeln('with weapons. There is 25% change of an infection taking root in any wound');
     writeln('delivered by their filthy, rotting claws or teeth.');
     writeln('Class I');
end;

Procedure ghouls_greater;
 begin
     write('Undead, ');
     writeln (' Any, Greater Ghouls');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is MF/F,');
     writeln('Hits are 50');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are 40MBa/50SCl/45We');
     writeln('They can gain strenght by eating their victims. Ghouls cannot, however, take');
     writeln('energy from creatures not of their own orginal kind, nor can they trike these');
     writeln('unless first assailed. They attack with their nails, teth, hands or rarely ');
     writeln('with weapons');
     writeln('Their appearance is so ghatly that all living creatures facing them must make');
     writeln('a RR against 3rd level Fear spell or be stunned one round.');
     writeln('Worse that have a 50% change of becoming infected and produce a 5% change of ');
     writeln('death due to blood poisoning i.e., on an roll of 01-05, the vicitm must roll');
     writeln('an RR');
     writeln('Class II');

end;

Procedure ghosts;
 begin
     write('Undead, ');
     dice :=1+Random(0);
     writeln (dice, ' Ghost');
     writeln;
     writeln('Level 10');
     writeln('Size is medium,');
     writeln('Speed is FA/VF,');
     writeln('Hits are 130');
     writeln('AT is No/1');
     writeln('DB is 35');
     writeln('Attacks are 80we/70LBa/-');
     writeln('Drains 3 CO/rnd.');

end;

Procedure ghosts_lesser;
 begin
     write('Undead, ');
     writeln ('any, Lesser Ghost');
     writeln;
     writeln('Level 5');
     writeln('Size is medium,');
     writeln('Speed is F/VF,');
     writeln('Hits are 75');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 40MBa/-/-');
     writeln('Cannot exist unless a living being is near enough for them to draw energy,');
     writeln('for these beings have no reserves of any sort. After all, they can drain ');
     writeln('the very life at a rate of 1 pt of Co/round from those within 10 feet.');
     writeln('Class II');

end;

Procedure ghosts_lord;
 begin
     write('Undead, ');
     dice :=1+Random(4);
     writeln (dice, ' Lord Ghost');
     writeln;
     writeln('Level 15');
     writeln('Size is medium,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 165');
     writeln('AT is No/1');
     writeln('DB is 50');
     writeln('Attacks are 110We/90LBa/-');
     writeln('After all, they can drain the very life at a rate of 3 pt of Co/round from ');
     writeln('those within 10 feet. Also posses the ability to, given access to magical');
     writeln('items or weaponry, wield the magical component as if it were the real thing.');
     writeln('');
     writeln('Class V');

end;

Procedure giants;
 begin
     write('Other Non Manish Races, ');
     dice :=1+Random(4);
     writeln (dice, ' Giants');
     writeln;
     writeln('Level 12');
     writeln('Size is Large,');
     writeln('Speed is S/M,');
     writeln('Hits are 250');
     writeln('AT is Rl/11');
     writeln('DB is 20');
     writeln('Attacks are 95weapon/80LTS/110LBa');
     writeln('Attack causes 3X normal damage. Weapons are usually wooden club, stone.');
     writeln('Can throw stone 175 feet. If giant causes LargeTS then LargeBa.');
     writeln('Stone attack is 110LBa.');

end;

Procedure glutan;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Glutan');
     writeln;
     writeln('Level 3');
     writeln('Size is small,');
     writeln('Speed is MF/BF,');
     writeln('Hits are 45');
     writeln('AT is No/3');
     writeln('DB is 50');
     writeln('Attacks are 60MBi/50MCl/Both');
     writeln('Attack without reason, always fight to the death.');

end;

Procedure glutan1;
 begin
     write('Animals, ');
     dice :=1+Random(0);
     writeln (dice, ' Glutan');
     writeln;
     writeln('Level 4');
     writeln('Size is small,');
     writeln('Speed is F/VF,');
     writeln('Hits are 50');
     writeln('AT is No/3');
     writeln('DB is 50');
     writeln('Attacks are 50MBi/45MCl/-');
     writeln('Extremely aggressive. Will attack without reason.');

end;

Procedure gnats;
 begin
     write('Animals, ');
     dice :=3+Random(297);
     writeln (dice, ' Gnats');
     writeln;
     writeln('Level 0');
     writeln('Size is tiny,');
     writeln('Speed is FA/MD,');
     writeln('Hits are 1');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 10TBi/disease/-');
     writeln('Nocturnal. Carry Weeping Fever.');

end;

Procedure goats_domestic;
 begin
     write('Animals, ');
     dice :=1+Random(19);
     writeln (dice, ' Domestic Goats');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is FA/FA,');
     writeln('Hits are 60');
     writeln('AT is No/1');
     writeln('DB is 25');
     writeln('Attacks are 30MHo/15MBa/15MTs');
     writeln('Eat anything.');

end;

Procedure goats_mountain;
 begin
     write('Animals, ');
     dice :=3+Random(33);
     writeln (dice, ' Mountain Goats');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 50');
     writeln('AT is No/4');
     writeln('DB is 35');
     writeln('Attacks are 50MHo/45MBa/30MTS');
     writeln('Only males have horns. Aggressive.');

end;

Procedure goats_wild;
 begin
     write('Animals, ');
     dice :=1+Random(11);
     writeln (dice, ' Wild Goats');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is F/MF,');
     writeln('Hits are 50');
     writeln('AT is No/4');
     writeln('DB is 30');
     writeln('Attacks are 40MHo/40MBa/10MTS');
     writeln('Only males have horns. Mildly aggressive.');

end;

Procedure goats_wild1;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Wild Goats');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is FA/FA,');
     writeln('Hits are 60');
     writeln('AT is No/1');
     writeln('DB is 25');
     writeln('Attacks are 40MHo/30MBa/30MTs');
     writeln('Agile, aggressive if annoyed.');

end;

Procedure gondorian_site;
 begin
     write('Sites or Things, ');
     writeln (dice, ' Gondorian 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.');
     writeln('');
     writeln('"Stone-Land" The great DŁnedain kindom theat lies west of Mordor and north of');
     writeln('the Bay of Belfalas. It includes number of regions.');

end;

Procedure goose;
 begin
     write('Flying Creatures, ');
     dice :=2+Random(38);
     writeln (dice, ' Goose');
     writeln;
     writeln('Level 1');
     writeln('Size is medium,');
     writeln('Speed is MF/SL,');
     writeln('Hits are 35');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are 40MBa/30SPi/-');
     writeln('Mixed up variates of duck and goose.');

end;

Procedure gorbet_trail_lizard;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Gorbet, Trail Lizard');
     writeln;
     writeln('Level 4');
     writeln('Size is small,');
     writeln('Speed is S/MD,');
     writeln('Hits are 25');
     writeln('AT is No/3');
     writeln('DB is 40');
     writeln('Attacks are 10TBi/special/-');
     writeln('Secretes poison through skin.');

end;

Procedure gorcrows;
 begin
     write('Animals, ');
     dice :=5+Random(25);
     writeln (dice, ' Gorcrows');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is FA/MF,');
     writeln('Hits are 20');
     writeln('AT is No/1');
     writeln('DB is 55');
     writeln('Attacks are 10SPi/10SCl/-');
     writeln('Attracted to shiny things.');
     writeln('GreenCrow, often spys for the Petty-Dwarves.');

end;

Procedure gorcrows1;
 begin
     write('Flying Creatures, ');
     dice :=5+Random(45);
     writeln (dice, ' Gorcrows');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is F/MF,');
     writeln('Hits are 20');
     writeln('AT is No/1');
     writeln('DB is 55');
     writeln('Attacks are 10SPi/10SCl/-');
     writeln('Attracted to shiny things.');
     writeln('GreenCrow, often spys for the Petty-Dwarves.');

end;


Procedure grain_carrier;

 begin
     write('People, ');
     dice :=1+Random(4);
     writeln (dice, ' Grain Carriers');
     writeln;
     writeln('These people are Rohans live in Mering Steps. You could say they are lowest');
     writeln('low. Working at arabled lands cutting grain and carrier to storage or ships');
     writeln('Salery what they get is enought to keep them alive.');
     writeln('Many kids and womens are doing this work.');
end;


Procedure grass_cat;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Grass Cats');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 100');
     writeln('AT is No/3');
     writeln('DB is 50');
     writeln('Attacks are 40MCl/50MBa/60MBi');
     writeln('Beautifull, long feets live at Calenardhorn plains, quite rare.');
     writeln('Human is kill or tame most of their preys and now humans are hunting');
     writeln('Grass cats because they eat goats, sheeps,cattle.');
     writeln('Fur is short, thick and yellow, at summer lot of pollen is stick');
     writeln('in fur. So now fur is green-yellow color and cat look just like a ghost.');
     writeln('Cats are killed few humans too.');

end;


Procedure grass_fire;
 begin
     write('Inanimate Danger, ');
     writeln(' Grass Fire');
     writeln('');
     writeln('It is caused by lightnings, camp fire or intetionaly. Grass burn quite ');
     writeln('fast if it is windy weather.');

end;

Procedure grass_grouses;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Grass Grouses');
     writeln;
     writeln('Level 0');
     writeln('Size is tiny,');
     writeln('Speed is FA/FA,');
     writeln('Hits are 8');
     writeln('AT is No/1');
     writeln('DB is 70');
     writeln('Attacks are 10TPi/-/-');
     writeln('Gamebirds. Good tasting meat.');

end;

Procedure grave_site_tomb;
 begin
     write('Sites or Things, ');
     writeln(' Grave Site or Tomb');
     writeln('');
     writeln('Little grave site is near. You can feel the time which is past this grave.');
     writeln('Or this could be new tomb, what is made in hurry. Old and great graves are');
     writeln('sometimes guarded by ghoust and other creatures.');

end;

Procedure green_asp;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Green Asp');
     writeln;
     writeln('Level 8');
     writeln('Size is small,');
     writeln('Speed is S/VF,');
     writeln('Hits are 100');
     writeln('AT is No/4');
     writeln('DB is 60');
     writeln('Attacks are 75MBi/-/-');
     writeln('Poisonous, rarely fatal, causes limb loss. Live in big 50 asps community.');
     writeln('When green asp is bite human, their is 15% change that limb is lost but');
     writeln('when it is bite then flesh dies, color change to purple and yellow-green');
     writeln('and flesh flake off and showing the bone. Feber is after bite 3-6 days very high');
     writeln('and some hallucinations are also.');
end;

Procedure grey_flyer;
 begin
     write('Animals, ');
     dice :=1+Random(999);
     writeln (dice, ' Grey Flyers');
     writeln;
     writeln('Level 0');
     writeln('Size is medium,');
     writeln('Speed is VS/MD,');
     writeln('Hits are 2');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 15TCL/10TBa/poison');
     writeln('Swarm in early summer, Level 4 reduction poison.');

end;

Procedure hanajaib;
 begin
     write('Animals, ');
     dice :=1+Random(5);
     writeln (dice, ' Hanajaib');
     writeln;
     writeln('Level 4');
     writeln('Size is medium,');
     writeln('Speed is VF/VA,');
     writeln('Hits are 65');
     writeln('AT is No/3');
     writeln('DB is 40');
     writeln('Attacks are 45MBi/-/-');
     writeln('This jackal-like sacvenger is the scourge of Chennacatt. People say that');
     writeln('whenever the hanajaib laughs, death is on the wind. The animals are easily');
     writeln('scared off, but will fight to the death if cornered. In times of drought,');
     writeln('they attemp to kill young herd animals, as well as travellers who are');
     writeln('injured or ill.');
end;

Procedure haradan_foragers;
 begin
     write('Other Men, ');
     dice :=1+Random(9);
     writeln (dice, ' Haradan Foragers');
     writeln;
     writeln('S."Southern People" or "Southrons." Also called the Haradwaith.');
     writeln('The Haradrim comprise various confederations of Haradaic- and');
     writeln('Apysaic-speaking peoples who reside in Harad.');
     writeln('');
     writeln('Soon you notice Bozisha-Dar foragers which are picking up herbs');
     writeln('for wealthy herbalists, which have trobles with Honnin peoples.');

end;


Procedure haradrim;
 begin
     write('Other Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Haradrim');
     writeln;
     writeln('S."Southern People" or "Southrons." Also called the Haradwaith.');
     writeln('The Haradrim comprise various confederations of Haradaic- and');
     writeln('Apysaic-speaking peoples who reside in Harad.');

end;

Procedure hawk;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' hawk');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is VF/BF,');
     writeln('Hits are 25');
     writeln('AT is No/1');
     writeln('DB is 50');
     writeln('Attacks are 40MCL/25MBa/-');
     writeln('Aggressive hunting behavior.');

end;

Procedure hawker_falconer;
 begin
     write('People, ');
     writeln(' Hawker/Falconer');
     writeln;
     writeln('Man hunting with hawk or falconer. Maybe sell some prey.');

end;


Procedure herders;
 begin
     write('Local Men, ');
     dice :=1+Random(2);
     writeln (dice, ' Herders');
     writeln;
     writeln('Level 2');
     writeln('Hits are 35');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are melee 30cl');
     writeln('Haradrim herders herding cattle. Peacefully.');

end;

Procedure herd_animals;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Herd');
     writeln;
     writeln('Cattle, goats or sheeps. Usually near herd is herdsmen.');

end;

Procedure herumor;

 begin
     write('Orcs, ');
     writeln (' Herumor');
     writeln;
     writeln('Level 10');
     writeln('Size is Large,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 50');
     writeln('AT is Ch/13');
     writeln('DB is 20');
     writeln('Attacks are melee 50bs and missile 20cb.');
     writeln('Powerfull Uruk-Hai evil mage or priest. Can summon fell beast.');
     writeln('Many magical items.');

end;

Procedure hobbits;
 begin
     write('Other Non Mannish Races, ');
     dice :=1+Random(4);
     writeln (dice, ' Hobbits');
     writeln;
     writeln('Hobbits are most smallest speaking creatures. They are usually overweight.');
     writeln('Average hobbit is 60 - 120 cm tall. Hobbits feets are large and hairy which');
     writeln('stand very cold weather. They normally travell bare-footed.');
     writeln('Hobbits can almost move silently and they are extremely dexterous.');
     writeln('With amazing resistant, which allow resistant powerfull magic or');
     writeln('physically attacks for a long time. Hobbits are three races or');
     writeln('clans: Hairfeet, Stouts and Tallfellows. Tallfellows are tall, thin and');
     writeln('white but few in number. Smaller and darker Hairfeet are most commonly');
     writeln('and new by dwarves. Stouts are intermediate form of Tallfellows and Hairfeet.');
     writeln('Hobbits are good thiefs and craftmens.');

end;

Procedure honning;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Honnings');
     writeln;
     writeln('Honnings are small, ruddy-skinned people live in Forest of Tears.');
     writeln('*Never* leaves from forest. All their weapons are made bronze so ');
     writeln('it means -10 bonus but they are not warriors or knights. ');
     writeln('Unlike their neighbors outside of the Wood, the Honnin are not at');
     writeln('all warlike. Ruler ship of the Honin is undertaken primarily by');
     writeln('family leaders. The Honin system of trade is based entirely on ');
     writeln('goods. Men and women alike wear nothing more than spere loin clouts.');
     writeln('Honnin will know only the magic of their gods. This Channeling is ');
     writeln('powerful as well, but only within the confins of the Wood, outside');
     writeln('their forest home, the gods power also fail.');

end;

Procedure honning_foragers;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Honning Foragers');
     writeln;
     writeln('Honnings are small, ruddy-skinned people live in Forest of Tears.');
     writeln('*Never* leaves from forest. All their weapons are made bronze so ');
     writeln('it means -10 bonus but they are not warriors or knights. ');
     writeln('Unlike their neighbors outside of the Wood, the Honnin are not at');
     writeln('all warlike. ');
     writeln('Men and women alike wear nothing more than spere loin clouts.');
     writeln('Honnin will know only the magic of their gods. This Channeling is ');
     writeln('powerful as well, but only within the confins of the Wood, outside');
     writeln('their forest home, the gods power also fail.');
     writeln('');
     writeln('Soon you notice foragers which are picking up fruits, herbs, tubers');
     writeln('and so on.');
end;

Procedure honning_hunters;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Honning Hunters');
     writeln;
     writeln('Level 4');
     writeln('Hits are 47');
     writeln('AT is No/1');
     writeln('DB is 5');
     writeln('Attacks are melee 20ss and missle 20sb, notice that arrows will');
     writeln('inflict 2 additional hits of damage for each wound they deliver');
     writeln('because arrows are barbed.');
     writeln('');
     writeln('Honnings are small, ruddy-skinned people live in Forest of Tears.');
     writeln('*Never* leaves from forest. All their weapons are made bronze so ');
     writeln('it means -10 bonus but they are not warriors or knights. ');
     writeln('Unlike their neighbors outside of the Wood, the Honnin are not at');
     writeln('all warlike. ');
     writeln('Men and women alike wear nothing more than spere loin clouts.');
     writeln('');
     writeln('Soon you notice hunters which are hunting apes and so on.');
end;

Procedure honning_non_combattants;
 begin
     write('Local Men, ');
     dice :=1+Random(19);
     writeln (dice, ' Honning Non-Combattants');
     writeln;
     writeln('Honnings are small, ruddy-skinned people live in Forest of Tears.');
     writeln('*Never* leaves from forest. All their weapons are made bronze so ');
     writeln('it means -10 bonus but they are not warriors or knights. ');
     writeln('Unlike their neighbors outside of the Wood, the Honnin are not at');
     writeln('all warlike. ');
     writeln('Men and women alike wear nothing more than spere loin clouts.');
     writeln('Honnin will know only the magic of their gods. This Channeling is ');
     writeln('powerful as well, but only within the confins of the Wood, outside');
     writeln('their forest home, the gods power also fail.');
     writeln('');
     writeln('Soon you notice Honnin people which are not all warlike, peacefull');
     writeln('If you get slaying around people hunters come. Normally monks.');
end;

Procedure honning_shamans;
 begin
     write('Local Men, ');
     dice :=1+Random(9);
     writeln (dice, ' Honning Shamans');
     writeln;
     writeln('Honnings are small, ruddy-skinned people live in Forest of Tears.');
     writeln('*Never* leaves from forest. All their weapons are made bronze so ');
     writeln('it means -10 bonus but they are not warriors or knights. ');
     writeln('Unlike their neighbors outside of the Wood, the Honnin are not at');
     writeln('all warlike. ');
     writeln('Men and women alike wear nothing more than spere loin clouts.');
     writeln('Honnin will know only the magic of their gods. This Channeling is ');
     writeln('powerful as well, but only within the confins of the Wood, outside');
     writeln('their forest home, the gods power also fail.');
     writeln('');
     writeln('Soon you notice Shamans which are shrines guardians.');
     writeln('Shamans spells are like animist outside the forest.');
end;

Procedure hopta;
 begin
     write('Flying Creatures, ');
     dice :=1+Random(19);
     writeln (dice, ' Hopta');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 14');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 30SHo/0SCl/-');
     writeln('Carrion bird.');

end;

Procedure hornets;
 begin
     write('Animals, ');
     dice :=1+Random(19);
     writeln (dice, ' Hornets');
     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 20');
     writeln('Attacks are 5TPi/-/-');
     writeln('Will not normally attack unless provoked');

end;

Procedure hornet_cliff;
 begin
     write('Animals, ');
     dice :=10+Random(90);
     writeln (dice, ' Cliff Hornets');
     writeln;
     writeln('Level 1');
     writeln('Size is tiny,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 1');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 0TSt/-/-');
     writeln('Huge nest of Cliff Hornets abound in crevices and caves throughout the White');
     writeln('Mountains, especially in the high reaches of Tarlang. They are not normally');
     writeln('hazardous unless one blunders directly in the nest, which consists of many');
     writeln('cells for eggs and young, built of mod that has hardened to the point where');
     writeln('it is like fired pottery. The nest defence consist of scors of fircely ');
     writeln('protective workerhonets which, unlike bees, have a smooth stinger and do not');
     writeln('die by tearing themselves apart when try to leave a victim with a stinger');
     writeln('embedded in his flesh. Victims suffer swelling and stiffness -25 to all');
     writeln('actions for 11 to 30 hours from the stings, but there is 35% change +RR');
     writeln('that hte unfortunate fool is allergic to the venom. Fever for 1-4 days');
     writeln('5 or more may cause death "rr vs each 1st lvl attack" in 1 to 10 hours');
end;

Procedure horses_wild;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Wild Horses');
     writeln;
     writeln('Level 4');
     writeln('Size is large,');
     writeln('Speed is FA/FA,');
     writeln('Hits are 120');
     writeln('AT is No/3');
     writeln('DB is 40');
     writeln('Attacks are 40MCr/30MTs/40SBi');
     writeln('Tameable, sturdy animals.');

end;

Procedure hourns;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(6);
     writeln (dice, ' Hourns');
     writeln;
     writeln('Level 10');
     writeln('Size is Huge,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 220');
     writeln('AT is RL/12');
     writeln('DB is 40');
     writeln('Attacks are 120LBa(2-4x)/-/-');
     writeln('Truely wild wood demons, do 2xDamage. Only fear is fire.');

end;

Procedure house_farmstead;
  begin
     write('Settlements Etc, ');
     writeln(' House/Farmstead');
     writeln('Farm ahead! Few farmers live here, usually friendly.');
end;

Procedure hummerhorns;
 begin
     write('Animals, ');
     dice :=1+Random(19);
     writeln (dice, ' Hummerhorns');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is VF/F,');
     writeln('Hits are 35');
     writeln('AT is No/1');
     writeln('DB is 50');
     writeln('Attacks are 50SST/-/-');
     writeln('Inhabit marshes, recklessly aggressive.');
     writeln('Surely on of Endors most viscious insect, the rare but often lethal');
     writeln('Hummerhorn is the stuff of legend. Each weight 6-8 lbs and has razor');
     writeln('sharp, pointed proboscis of chitin [transparent horn]. It seeks to');
     writeln('gore a victim to death, then feasting on the corpse with its three');
     writeln('sets of mandibles. They resemble gigantic wasps, and their only failing');
     writeln('is the unmistakable noise they make whenever they approach.');

end;

Procedure hunters;
 begin
     write('Local Men and Townsfolk, ');
     dice :=1+Random(4);
     writeln (dice, ' Hunters');
     writeln;
     writeln('What could i say ? Make your own choice.');
     writeln('');

end;

Procedure hut_shieling;
  begin
     write('Settlements Etc, ');
     writeln(' Hut/Shieling');
     writeln('Somebodys Hut. Maybe there are somebody or someone living.');
end;

Procedure izhta;
 begin
     write('Animals, ');
     dice :=1+Random(0);
     writeln (dice, ' Izhta');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 25');
     writeln('AT is No/2');
     writeln('DB is 50');
     writeln('Attacks are 50SSt/poison/-');
     writeln('A highly poisonous snake, the Izhta is milked to collect its venom.');
end;

Procedure jatewoone;
 begin
     write('Animals, ');
     dice :=1+Random(0);
     writeln (dice, ' Jatewoone');
     writeln;
     writeln('Level 9');
     writeln('Size is large,');
     writeln('Speed is F/VF,');
     writeln('Hits are 120');
     writeln('AT is No/2');
     writeln('DB is 30');
     writeln('Attacks are 80LPi/70LCl/50LBa');
     writeln('Huge bird of prey, rarly flies, "Cleaver Beak".');

end;

Procedure juthjuth;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Juthjuth');
     writeln;
     writeln('Level 1');
     writeln('Size is very small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 1');
     writeln('AT is No/3');
     writeln('DB is 20');
     writeln('Attacks are 25SSt/poison/-');
     writeln('A highly poisonous scorpion. Bright red in color, the Juthjuth grows up to');
     writeln('two inches long. The sting of the scorpion causes insanity [up to 2 years]');
     writeln('and may result in death. People that survive the experience are normally not');
     writeln('"right" for the rest of their days. Poison is 2nd level.');
 end;


Procedure kingfishers;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Kingfishers');
     writeln;
     writeln('Level 1');
     writeln('Size is tiny,');
     writeln('Speed is VF/FA,');
     writeln('Hits are 8');
     writeln('AT is No/1');
     writeln('DB is 60');
     writeln('Attacks are 20TPi/-/-');
     writeln('Attractively colored.');

end;

Procedure kine_wild;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Wild Kines');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is M/M,');
     writeln('Hits are 200');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 80LBa/90LCr/-');
     writeln('Huge ox-like animal.');

end;

Procedure kirkinir;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Kirkinir');
     writeln;
     writeln('Level 0');
     writeln('Size is tiny,');
     writeln('Speed is FA/MF,');
     writeln('Hits are 5');
     writeln('AT is No/1');
     writeln('DB is 55');
     writeln('Attacks are 5TPi/-/-');
     writeln('Tiny scarlet songbirds.');

end;
end.