Unit monster3;

interface

Procedure lair;
Procedure lampreys;
Procedure large_Patrol;
Procedure latava;
Procedure leeches;
Procedure leopard_snow;
Procedure lesina;
Procedure levy_patrol;
Procedure lichen_Gloriosa;
Procedure lions;
Procedure lion_snow;
Procedure lisica;
Procedure lizard;
Procedure locals;
Procedure local_people;
Procedure lynx_highland;
Procedure majmun;
Procedure mara;
Procedure margurgoth;
Procedure marsh_adders;
Procedure marshmen;
Procedure marten_giant;
Procedure mastiff_wild;
Procedure mebden;
Procedure mendaen;
Procedure mensharag;
Procedure mercenaries;
Procedure merchants;
Procedure merisc_tyke;
Procedure mewlips;
Procedure milk_white_trumpet;
Procedure mill_workers;
Procedure mine_quarry_abandon;
Procedure mine_quarry_working;
Procedure mists;
Procedure monoliths;
Procedure morgai_flies;
Procedure mosquitos;
Procedure nathrach;
Procedure natural_events;
Procedure natural_hazards;
Procedure nazog;
Procedure neekerbreeker;
Procedure nethair;
Procedure nethraich;
Procedure nimfiara;
Procedure normal_patrol;
Procedure north_haradrim;
Procedure northmen;
Procedure npcs;

implementation

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

     var
           dice : byte;  {muutuja satunnaisluvulle}


Procedure lair;
 begin
     write('Sites or Things, ');
     writeln (' 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.');
     writeln('Also could lead to Paths of the Dead!');
end;

Procedure lampreys;
 begin
     write('Reptiles & Amphibians, ');
     dice :=1+Random(3);
     writeln (dice, ' Lampreys');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 15');
     writeln('AT is No/1');
     writeln('DB is 15');
     writeln('Attacks are 20SBi/+bleeding/-');
     writeln('Bloodsucking parasite.');
     writeln('The Lamprey is a parasite that attaches itself to other fish [or occasionally');
     writeln('other creatures], like a leech with a circular jaw. It then remains in place,');
     writeln('slowly burrowing into flesh and swllowing blood until sated.');
     writeln('A wound from a lamprey will bleed at a rate of 2 hits/rnd for each round it');
     writeln('was in place.');

end;

Procedure large_patrol;

 begin
     write('Local Men, ');
     dice :=6+Random(10);
     writeln (dice, ' Large Patrol');
     writeln;
     writeln('These strong groups are very dangerous. Could be bandits.');
     writeln('Usually group is consist of local people are they human or ');
     writeln('orcs, trolls or other creatures. Looking for great treasure ');
     writeln('or criminals or even just slaying people around.');
     writeln('Leader have better equipment, others have poor equipments');

end;

Procedure latava;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Latava');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is FA/VF,');
     writeln('Hits are 160');
     writeln('AT is No/4');
     writeln('DB is 35');
     writeln('Attacks are 75LCl/100LBi/-');
     writeln('Hunts in groups. A Large cat, the latava is the primary predator of Isra');
     writeln('It hunts primarily in the day and is very territorial. The latava is ');
     writeln('feared by most travellers because of its size and ferocity. The beasts');
     writeln('form groups called chaudu and hunt within a specific area. Typically, one');
     writeln('male will attract a number of females to form a harem. Younger males will');
     writeln('attach themselves to the chaud until they come of age and dorm their own');
     writeln('of age and form their own or take over an older latavas harem');
end;

Procedure leeches;
 begin
     write('Animals, ');
     dice :=1+Random(29);
     writeln (dice, ' Leeches');
     writeln;
     writeln('Level 0');
     writeln('Size is tiny,');
     writeln('Speed is SL/SL,');
     writeln('Hits are 4');
     writeln('AT is No/1');
     writeln('DB is 5');
     writeln('Attacks are 30TGr/+bleeding/-');
     writeln('If attached, suck 1 hit/rnd.');
     writeln('While lauded for its medicinal qualities in some cultures, the leech is');
     writeln('only considered a nuisance in the delta. These nasty, slug-like,');
     writeln('water-dwelling creatures fasten to anything warm blooded and use their');
     writeln('serrated tongue to rasp throught to a blood vessel. Then they sit down');
     writeln('and gorge themselves.');
end;

Procedure lesina;
 begin
     write('Creatures, ');
     dice :=1+Random(9);
     writeln (dice, ' Lesina');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is M/MF,');
     writeln('Hits are 50');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are 80MBa/30Mbi/-');
     writeln('Undead Ghoul haunted around dry land in Raj, wester Back Harad.');
     writeln('These deserts are thousands travellers unknown grave by centuries.');
     writeln('Disgusting corps are remaining their previous bodies which desert');
     writeln('sun is dry up and tanned hard. Lesina hide in caves desert waterless');
     writeln('hills or under sand. Lesinavies may wander in big or small groups.');
     writeln('');
     writeln('Lesina do not have intelligent and can not speak. They feel rage');
     writeln('against other living humans. Lesinas wither eyes see victims life');
     writeln('painfull light in against dusk landscape. They do not feel pai or');
     writeln('fear, tactics, order but they attact with claws and theets and ');
     writeln('rip off victim in small parts');
     writeln('');
     writeln('Weapons make damage unless blood or stunned is not valid. ');
     writeln('Magic damage also unless mind or soul spells.');


end;

Procedure leopard_snow;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Snow Leopards');
     writeln;
     writeln('Level 6');
     writeln('Size is medium,');
     writeln('Speed is VF/VF');
     writeln('Hits are 120');
     writeln('AT is No/3');
     writeln('DB is 45');
     writeln('Attacks are 50MCl/40MBi/-');
     writeln('Unpredictable has been known to help men.');

end;

Procedure levy_patrol;
 begin
     write('Local Men and Townsfolk, ');
     dice :=1+Random(4);
     writeln (dice, ' Levy Patrol');
     writeln;
     writeln('The towns levy is a provisional troope made up of all of the');
     writeln('ablebodied adult males in the town. Most of the time, the levy consists');
     writeln('of some 20-40 warriors. Only the commander and six Gondorian men at');
     writeln('arms serve as full time soldiers. They, of course, are responsible for');
     writeln('for training and leading the levy.');

end;

Procedure lichen_gloriosa;

 begin
     write('Herbs, ');
     dice :=1+Random(4);
     writeln (dice, ' Lichen Gloriosa');
     writeln;
     writeln('This herb sharpens swors to even cut stone, must be used fresh.');
     writeln('Herb cost 10 gp and the code is m-D-7. Rub in fresh herb to blade.');

end;

Procedure lions;
 begin
     write('Animals, ');
     dice :=2+Random(8);
     writeln (dice, ' Spotted Lions');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is F/F,');
     writeln('Hits are 110');
     writeln('AT is No/4');
     writeln('DB is 25');
     writeln('Attacks are 70LCl/75LBi/-');
     writeln('Very wary, if Bite crits next attack is 100LCl.');

end;

Procedure lion_snow;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Snow Lions');
     writeln;
     writeln('Level 8');
     writeln('Size is large,');
     writeln('Speed is VF/FA,');
     writeln('Hits are 130');
     writeln('AT is SL/3');
     writeln('DB is 60');
     writeln('Attacks are 60LCl/80LBa/70LBi');
     writeln('Northern cousin of normal lion, i think.');

end;

Procedure lisica;
 begin
     write('Animal, ');
     dice :=1+Random(4);
     writeln (dice, ' Lisica');
     writeln;
     writeln('Level 3');
     writeln('Size is small,');
     writeln('Speed is FA/VF');
     writeln('Hits are 45');
     writeln('AT is No/3');
     writeln('DB is 50');
     writeln('Attacks are 60SBi/-/-.');
     writeln('Lisica is small in Harad living fox which have big ears. Lisica hunts');
     writeln('at night when is cool. It is hunts with family or couples.');
     writeln('Lisica eat small rodents and bugs and sometimes dig up sleeping reptiles.');
     writeln('Lisica is hunted of fur, it is shiny black or gold-brown.');
end;

Procedure Lizard;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Lizards');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is MF/FA,');
     writeln('Hits are 25');
     writeln('AT is SL/1');
     writeln('DB is 40');
     writeln('Attacks are 30SCl/-/-');
     writeln('Harmless.');

end;

Procedure locals;

 begin
     write('Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Locals');
     writeln;
     writeln('These people are mixed Dunedain and Dunlendings. Normally rural folk,');
     writeln('farmers, shepherds, trappers, etc. Usually found goin about their business');
     writeln('or traveling to town for various reasons.');
end;

Procedure local_people;

 begin
     write('Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Local People');
     writeln;
     writeln('These are local people where ever you are. Herders, smiths, etc. ');
     writeln('People can be angry or peaceful or just be "Hey, live here"');
end;

Procedure lynx_highland;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Highland Lynxes');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 70');
     writeln('AT is No/3');
     writeln('DB is 55');
     writeln('Attacks are 45MCl/30LBi/-');
     writeln('Lives and hunt in groups.');

end;

Procedure majmun;
 begin
     write('Animals, ');
     dice :=2+Random(198);
     writeln (dice, ' Majmun');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is FA/VF,');
     writeln('Hits are 25');
     writeln('AT is No/3');
     writeln('DB is 40');
     writeln('Attacks are 35SBi/-/-');
     writeln('Monkey.');

end;

Procedure mara;
 begin
     write('Undead, ');
     dice :=1+Random(10);
     writeln (dice, ' Maras');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is MD/MD');
     writeln('Hits are 70');
     writeln('AT is No/2');
     writeln('DB is 0');
     writeln('Attacks are 5SBa/special/-');
     writeln('Eldebeth or Singing Ghost. Song prevents sleep.');
     writeln('Drains 2 CO pts/rnd in a 10 Radius.');
     writeln('Use lagre creature critical table.');
     writeln('Tall female figure in diaphanous light green robes,');
     writeln('pale darkhaired Elf of middling beuty(by Elven standards)');
     writeln('Creature do not attack unless it does not disturb');
     writeln('Creature is speciallyt made for Woses of the Black Wood adventure');

end;

Procedure margurgoth;

 begin
     write('Creatures, ');
     dice :=1+Random(0);
     writeln (dice, ' Margurgoth');
     writeln;
     writeln('Level 28');
     writeln('Size is huge,');
     writeln('Speed is BF/FA,');
     writeln('Hits are 325');
     writeln('AT is Ch/20');
     writeln('DB is 50');
     writeln('Attacks are 225ba/110sp/150HBa');
     writeln('Fallen Maia Warrior/Fighter.');

end;

Procedure marsh_adders;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Mars Adders');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is MD/VF,');
     writeln('Hits are 20');
     writeln('AT is No/1');
     writeln('DB is 60');
     writeln('Attacks are 50TSs/poison/-');
     writeln('Snake. 10th level Muscle poison.');

end;

Procedure marshmen;

 begin
     write('People, ');
     dice :=1+Random(4);
     writeln (dice, ' Marshmen');
     writeln;
     writeln('These people live in across the Anduin from their home territory of Nindalf. ');
     writeln('Typical tructure: a circle of huts surrounded by gardens and set upon a dry');
     writeln('patch of a marshy isle right at the end of the delta, near the confluence of');
     writeln('the Anduin and Formennin. The Marshmen are the only dweller in this lower');
     writeln('marsh area.');
end;

Procedure marten_giant;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Giant Marten');
     writeln;
     writeln('Level 4');
     writeln('Size is medium,');
     writeln('Speed is VF/MF,');
     writeln('Hits are 75');
     writeln('AT is No/3');
     writeln('DB is 50');
     writeln('Attacks are 60MBi/50MCl/-');
     writeln('Crazy, mean, attack almost at random. Climb trees well. Ingore bleeding crits.');

end;

Procedure mastiff_wild;
 begin
     write('Animals, ');
     writeln ('any, Wild Mastiff');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is F/F,');
     writeln('Hits are 90');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 90MBi/-/-');
     writeln('Guard dogs, used at Morthondost. Sometimes found in the countryside as');
     writeln('a wild dog.');
end;

Procedure mebden;

 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Medbens');
     writeln;
     writeln('These people live in Eryn Vorn, a secretive Eriadoran people of');
     writeln('the deep forest.');

end;

Procedure mendaen;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(9);
     writeln (dice, ' Mendaens');
     writeln;
     writeln('Level 10');
     writeln('Size is Large,');
     writeln('Speed is SL/MD,');
     writeln('Hits are 60');
     writeln('AT is Ch/16');
     writeln('DB is 20');
     writeln('Attacks are 80MGr/120LCr/-');
     writeln('Stone man-like form.');

end;

Procedure mensharag;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(9);
     writeln (dice, ' Mensharags');
     writeln;
     writeln('Level 5');
     writeln('Size is Large,');
     writeln('Speed is MF/MF,');
     writeln('Hits are 80');
     writeln('AT is Ch/16');
     writeln('DB is 30');
     writeln('Attacks are 60LCl/50LBA/40MBi');
     writeln('Stone lizard-like form.');

end;

Procedure mercenaries;

 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Mercenaries');
     writeln;
     writeln('Wears lot of weapons and grand armors, wondering around lands');
     writeln('Usually found from various inns and gambling places');
     writeln('All races are possible');

end;

Procedure merchants;
 begin
     write('Local Men and Townsfolk, ');
     dice :=1+Random(4);
     writeln (dice, ' Merchants');
     writeln;
     writeln('On the few actual stores in the town, a small group of people who');
     writeln('other collectively call the merchant are responsible for much of');
     writeln('the contact with both Minas Anor and Pelargir.');
     writeln('Inns, fishermens, herbalist, psysician, smithy, Tinnen Wares');
     writeln('general supply store, mill workers.');

end;

Procedure merisc_tyke;
 begin
     write('Animals, ');
     dice :=7+Random(5);
     writeln (dice, ' Merisc Tyke');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is F/F');
     writeln('Hits are 55');
     writeln('AT is Sl/3');
     writeln('DB is 40');
     writeln('Attacks are 45MBi/-/-');
     writeln('Wild dogs.');
     writeln('Merisc Tyke is local name for the wild dog [possible a relative of the feral');
     writeln('dogs of the Talath Harroch]. They frequent the fens and moorlands in small');
     writeln('packs, usually scavenging or attacking young sheep, ponies and the like.');
     writeln('Easily scared off, they are espicially afraid of fire. The Tyke has a dapled');
     writeln('coat of yellowish-tan and brownish-grey [giving it a +40 Hiding bonus]');
end;

Procedure mewlips;
 begin
     write('Undead, ');
     dice :=2+Random(18);
     writeln (dice, ' Mewlips');
     writeln;
     writeln('Level 4');
     writeln('Size is medium,');
     writeln('Speed is F/MD');
     writeln('Hits are 60');
     writeln('AT is No/1');
     writeln('DB is 35');
     writeln('Attacks are 50We/75MBi/-');
     writeln('Semi-aquatic Undead. Trance Spell: 10 Radius, 1 rnd/5% failure,');
     writeln('drain blood each round (2-20 hits/rnd)');

end;

Procedure milk_white_trumpet;
 begin
     write('Hazards, ');
     dice :=1+Random(9);
     writeln (dice, ' Milk-White Trumpet');
     writeln;
     writeln('Level 3');
     writeln('Hits are 30');
     writeln('AT is No/1');
     writeln('DB is 0');
     writeln('This white pollen is poisonous. When you breath it it causes 4 level nausea.');
     writeln('Herb code is m-D-8.');
     writeln('When it blooms in midsummer, the forcefully ejected pollen causes nausea and ');
     writeln('blindness, and sometimes even madness, in those who come too near.');

end;

Procedure mill_workers;
 begin
     write('Local Men and townsfolk, ');
     dice :=1+Random(4);
     writeln (dice, ' Mill Workers');
     writeln;
     writeln('This is a selective description of individuals who work at the');
     writeln('mill itself and live in the nearvy vottages. Millmen and their');
     writeln('families make up about thirty-five percent of the total population');
     writeln('of the town. Since the flour mill is the sourve of local trade revenue,');
     writeln('they seve as the economic foundation of the village.');
     writeln('Maybe work for PC as a assistant.');

end;

Procedure mine_quarry_abandon;
 begin
      write('Sites or Things, ');
      writeln('Quarry abandom mine');
      writeln;
      writeln('Abandoned mines, just think possible dangers and encounters.');

end;

Procedure mine_quarry_working;
 begin
      write('Sites or Things, ');
      writeln('Quarry working mine');
      writeln;
      writeln('Mines where slaves are digging gold, coal, silver or jewels. Usually guarded.');

end;

Procedure mists;
 begin
      write('Hazards, ');
      writeln('Mist');
      writeln;
      writeln('Normal mist from hot spring, water fall or just morning mist.');

end;

Procedure monoliths;
 begin
     write('Sites or Things, ');
     writeln (' Monoliths');
     writeln;
     writeln('Mournful standing stones that are all that is left of those who called ');
     writeln('themselves "People of Skills" Daen Coenti. Stones are from few feets up ');
     writeln('to 36 feet.');
end;

Procedure mosquitos;
 begin
     write('Animals, ');
     dice :=3+Random(297);
     writeln (dice, ' Mosquitos');
     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('20% carry disease.');

end;

Procedure morgai_flies;
 begin
     write('Animals, ');
     dice :=1+Random(79);
     writeln (dice, ' Morgai Flies');
     writeln;
     writeln('Level 0');
     writeln('Size is tiny,');
     writeln('Speed is VF/FA,');
     writeln('Hits are 2');
     writeln('AT is No/1');
     writeln('DB is 35');
     writeln('Attacks are 15TBi/-/-');
     writeln('Vicious Parasites. This race is one of many Morgai plagues.');
     writeln('Also known as Orc flies. Only nourishment is blood, which it');
     writeln('suck almost from any creature.');

end;

Procedure nathrach;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Nathrach');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is MD/NF,');
     writeln('Hits are 20');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are 30SST/poison/-');
     writeln('F/MD in water. The natrix is another quatic snake. Brown bands');
     writeln('surround it rust-colored body, which typically measures 3-5 feet');
     writeln('in lenght. These snakes only attack when their "runs" are encountered,');
     writeln('and then it bites with astounding quickness. A natrixs critical strike');
     writeln('is accompanied by a 2nd level muscle poison that causes bleeding,');
     writeln('bruises and selling [double all these effects on this and subsequent');
     writeln('criticals]. The venom is deliberately mild and is designed to stun');
     writeln('small rodents before the snake envelops and crushes them. ');
     writeln('The Arnathrach, or Royal Natrix, is a much larger and rarer cousin');
     writeln('that inhabits brackish waters.');
end;

Procedure natural_events;
 begin
     write('Events, ');
     writeln(' Natural');
     writeln;
     writeln('Choose one, flood, storm, unusual noises, strange discoveries');
     writeln('[herbs, corpses, lost items, etc] found food, etc.');

end;


Procedure natural_Hazards;
  begin
     writeln('Natural Hazards');
       writeln;
       writeln('Are normally rain, sun, quicksand, rock slide, poison berries');
       writeln('and mushrooms or what ever you think.');

  end;

Procedure nazog;

 begin
     write('Orcs, ');
     writeln (' Nagoz');
     writeln;
     writeln('Level 8');
     writeln('Size is Large,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 60');
     writeln('AT is Ch/13');
     writeln('DB is 60');
     writeln('Attacks are melee 100bs and missile 80cb.');
     writeln('Uruk-hai/Variag Thief. +10 broadsword, +5 chain.');
     writeln('Ring of invisitibility 1x per wk.');

end;

Procedure neekerbreeker;
 begin
     write('Flying Creatures, ');
     dice :=3+Random(297);
     writeln (dice, ' Neekerbreeker');
     writeln;
     writeln('Level 0');
     writeln('Size is small,');
     writeln('Speed is VF/MD,');
     writeln('Hits are 1');
     writeln('AT is No/1');
     writeln('DB is 45');
     writeln('Attacks are 10TBi/Disease/-');
     writeln('Giant relatives of mosquito.');
     writeln('A very annouing insect, the Neekerbreeker is known in many of the');
     writeln('worst swamps of Middle-earth. Gigantic relatives of the mosquito,');
     writeln('these carnivores prefer solid meat. So, while it does not suck blood,');
     writeln('a Neekerbreeker will appropriate small chunks of a mans flesh. Any');
     writeln('wound inflicted by a neekerbreeker has a change of being infected ');
     writeln('Yellow Rhem, a 0 level illness.');

end;

Procedure nethair;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Nethair');
     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 20');
     writeln('Attacks are 40SST/poison/-');
     writeln('Passive, 6th level muscle poison. 5-7 feet long.');
     writeln('Poison causes swelling then pulse slow down, shock and skin color');
     writeln('change at big areas.');
     writeln('Eats rodents, birds and small lizards.');
     writeln('Head is thick triangle shaped, body is cream colored, dark/black');
     writeln('triangle figures at back. Prey upon at plain long hay.');
end;

Procedure nethraich;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Nethraichs');
     writeln;
     writeln('Level 0');
     writeln('Size is small,');
     writeln('Speed is MD/BF,');
     writeln('Hits are 25');
     writeln('AT is No/1');
     writeln('DB is 25');
     writeln('Attacks are 35SST/poison/-');
     writeln('Protective water snakes. 2nd level muscle poison. 3-5 feet long.');
     writeln('Poison causes bleeding, bruises and swelling.');
     writeln('Poison reason is to stun prey a little rodent and make easier to');
     writeln('swallow and crush the prey.');
end;

Procedure Nimfiara;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Nimfiaras');
     writeln;
     writeln('Level 7');
     writeln('Size is large,');
     writeln('Speed is BF/VF,');
     writeln('Hits are 210');
     writeln('AT is No/3');
     writeln('DB is 60');
     writeln('Attacks are 75LHo/60LBa/-');
     writeln('Vegatarian, Extremely rare, if crits when charging go to 80 LTs');
     writeln('White deer. Fur is grey-silver colored and it is quite expensive');
     writeln('Rumor says that if you make flour of Nimfiaras horn you do not');
     writeln('get older anymore!');
end;

Procedure normal_patrol;

 begin
     write('Others, ');
     dice :=2+Random(8);
     writeln (dice, ' Normal Patrol');
     writeln;
     writeln('Level 4');
     writeln('Hits are 55');
     writeln('AT is Ch/14');
     writeln('DB is 30');
     writeln('Attacks are 70bs and missile 60cp.');
     writeln('Use shield, movement is 15. Walks in two units of 5');
     writeln('Consists of soldiers from Sarn Erech or one local villages keeping their');
     writeln('normal rounds of the area.');

end;

Procedure north_haradrim;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' North Haradrim');
     writeln;
     writeln('North and middle desert - mostly clearland living peoples are small');
     writeln('sized, average men weight is 60 kilos and lenght is 165 cm and females');
     writeln('45 kilos and 152 cm. They life 80 to 100 years. Haradrim eyes stand');
     writeln('light which was make normal human blind. Grey or brown skin,');
     writeln('traight black hair and dark brown eyes.');
     writeln('');
     writeln('Favorite color is red, purple, gold but black and white is used pratical');
     writeln('causes. Women and mens wear their property, usually shape of gold jewerly.');
     writeln('North Harad they use camels and horses.');
end;

Procedure northmen;

 begin
     write('Other Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Northmens');
     writeln;
     writeln('These taciturn and unfriendly people will tolerate travellers but.');
     writeln('little beyond that. ');

end;

Procedure npcs;

 begin
     write('Local Men, ');
     dice :=1+Random(2);
     writeln (dice, ' NPCs');
     writeln;
     writeln('This is great opportunity to put your NPC-character to adventure ');
     writeln('so do not miss it! Or just think one or even reroll.');

end;

end.