Unit monster5;

interface

Procedure sagath;
Procedure sand_devil;
Procedure sand_drake_young;
Procedure sand_drake_mature;
Procedure sand_drake_old;
Procedure saralainners;
Procedure sarumeni;
Procedure sea_raiders;
Procedure scouts;
Procedure screaming_harrier;
Procedure sea_crocodiles;
Procedure servants;
Procedure sharks;
Procedure sheep;
Procedure sheep_big_horn;
Procedure shrimper_shell_fisher;
Procedure shrine0;
Procedure skeletons;
Procedure skeletons_lord;
Procedure slaves;
Procedure slign;
Procedure small_Patrol;
Procedure smugglers;
Procedure snakes_dangerous;
Procedure snakes_poisonous;
Procedure soldiers;
Procedure soldiers1;
Procedure south_haradrim;
Procedure spectres;
Procedure spiderlings;
Procedure spider_ennerlings;
Procedure spider_giant;
Procedure spider_king;
Procedure spider_large;
Procedure spider_shelob;
Procedure spies;
Procedure squirrel_black;
Procedure stetan;
Procedure stronghold;
Procedure sturgeon;
Procedure swimming_fishing_birds;
Procedure terrain_hazards;
Procedure the_razarac;
Procedure thieves;
Procedure tomb;
Procedure town_elder;
Procedure townfolk;
Procedure traders;
Procedure trail;
Procedure traps;
Procedure traps_in_or_outdoor;
Procedure travellers;
Procedure travelling_merchants;
Procedure troll_black;
Procedure troll_cave;
Procedure troll_cave1;
Procedure troll_forest;
Procedure troll_forest1;
Procedure troll_hill;
Procedure troll_hill1;
Procedure troll_mountain;
Procedure troll_stone;
Procedure troll_wolves;
Procedure trusa;
Procedure turtles;
Procedure unca;
Procedure undead;
Procedure variags;
Procedure village;
Procedure viper_rock;
Procedure vodyanoi;
Procedure vuk;
Procedure wading_birds;
Procedure wandering_folk;
Procedure warg;
Procedure warriors;
Procedure watcher_in_stone;
Procedure waterhole0;
Procedure web_hanging;
Procedure web_intact;
Procedure wels;
Procedure wels_large;
Procedure wight_barrow;
Procedure wight_lesser;
Procedure wight_greater;
Procedure wild_Aurochs;
Procedure wild_cat;
Procedure woodhawk_great;
Procedure woodmen;
Procedure wolves;
Procedure wolves1;
Procedure wolves_grey;
Procedure wolves_grey1;
Procedure wool_carrier;
Procedure worm_cave;
Procedure woses;
Procedure wraiths;
Procedure zamka;

implementation

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

     var

        dice : byte;  {muutuja satunnaisluvulle}



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

end;

Procedure sand_devil;

 begin
     write('Creatures, ');
     dice :=1+Random(0);
     writeln (dice, ' Sand Devil');
     writeln;
     writeln('Level 3');
     writeln('Size is Large,');
     writeln('Speed is FA/MF');
     writeln('Hits are 75');
     writeln('AT is No/1');
     writeln('DB is 10');
     writeln('Attacks are see notes');
     writeln('blindness, 1pt damage,');
     writeln('2nd deafness, 1pt');
     writeln('3rd suffocation,');
     writeln('4th damage/rnd double every 2rnds.');

     writeln('More Hiekkapirut!');


end;

Procedure sand_drake_mature;

 begin
     write('Creatures, ');
     dice :=1+Random(0);
     writeln (dice, ' Sand Devil mature');
     writeln;
     writeln('Level 8');
     writeln('Size is Large,');
     writeln('Speed is FA/FA');
     writeln('Hits are 150');
     writeln('AT is No/4');
     writeln('DB is 25');
     writeln('Attacks are 100HBi/70HCl/90HBa');
     writeln('Use Super_Large Creature Criticals');

end;

Procedure sand_drake_old;

 begin
     write('Creatures, ');
     dice :=1+Random(0);
     writeln (dice, ' Sand Devil old');
     writeln;
     writeln('Level 20');
     writeln('Size is huge,');
     writeln('Speed is FA/MF');
     writeln('Hits are 175');
     writeln('AT is Rl/12');
     writeln('DB is 20');
     writeln('Attacks are 110HBi/90HCl/90HBa');
     writeln('Use Super_Large Creature Criticals');

end;

Procedure sand_drake_young;

 begin
     write('Creatures, ');
     dice :=1+Random(0);
     writeln (dice, ' Sand Devil young');
     writeln;
     writeln('Level 4');
     writeln('Size is Large,');
     writeln('Speed is VF/FA');
     writeln('Hits are 125');
     writeln('AT is No/4');
     writeln('DB is 40');
     writeln('Attacks are 90LBi/50LCl/80HBa');
     writeln('Use Large Creature Criticals');

end;

Procedure saralainners;

 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Saralainners');
     writeln;
     writeln('These people live in somewhere where the flatland of Saralainn');
     writeln('slowly merge with the Eryn Vorn, tall grass becoming shrubs, then');
     writeln('becoming pines and beeches.');
     writeln('From a motley collection of barbarian warriors, they have become');
     writeln('a prosperous race of farmers and shepherds, the model citizenz ');
     writeln('that all kigns long for.');
     writeln('Also they are called name of The Siol Speriang and');
     writeln('adopt some D£nadan culture.');

end;

Procedure sarumeni;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Sar£meni');
     writeln;
     writeln('Level 7');
     writeln('Size is Large,');
     writeln('Speed is MF/MF');
     writeln('Hits are 210');
     writeln('AT is Rl/12');
     writeln('DB is 40');
     writeln('Attacks are 75MBi/90LBa/75LCr');
     writeln('Huge, freshwater eels. Male is 6 feets and Female 18 feets.');
     writeln('Stingers in back, poison is blue nerve poison called sarn£mein');

end;

Procedure scouts;

 begin
     write('Men, ');
     dice :=1+Random(0);
     writeln (dice, ' Scouts');
     writeln;
     writeln('Scouts are single individuals on scout type missions. Possibilities are');
     writeln('soldiers, spies, orcs, prospectors, hunters, trappers, brigands, etc.');
end;

Procedure screaming_harrier;
 begin
     write('Flying Creatures, ');
     dice :=1+Random(1);
     writeln (dice, ' Screaming Harriers');
     writeln;
     writeln('Level 2');
     writeln('Size is small,');
     writeln('Speed is F/VF,');
     writeln('Hits are 25');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 35MCl/25SPi/-');
     writeln('Fish-eating predator.');

end;

Procedure sea_raiders;

 begin
     write('Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Sea Raiders');
     writeln;
     writeln('These people live in Greater Harad, shipping lanes of the Bay of Ormal.');
     writeln('Mostly N£men¢rean peoples, proffession is merchant warrior/fighter and skills');
     writeln('trade 100, pecep 60, swim 65 and sail 100 of cource.');
end;

Procedure sea_crocodiles;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Sea Crocodiles');
     writeln;
     writeln('Level 7');
     writeln('Size is Large,');
     writeln('Speed is MD/MD');
     writeln('Hits are 245');
     writeln('AT is Rl/11');
     writeln('DB is 30');
     writeln('Attacks are 100LBi/110LBa/90LSt');
     writeln('Aggressive, attacks even against small boat');
     writeln('About 18-27 foots long, darkblue skin.');
end;

Procedure servants;
 begin
     write('Local Men, ');
     dice :=1+Random(1);
     writeln (dice, ' Servants');
     writeln;
     writeln('Level 1');
     writeln('Hits are 20');
     writeln('AT is No/1');
     writeln('DB is 5');
     writeln('Attacks are melee 45cl and missle 25da');
     writeln('e.g., valets or scullery hands. Will avoid combat and raise alarm.');

end;

Procedure sharks;
 begin
     write('Unusual, ');
     dice :=1+Random(5);
     writeln (dice, ' Sharks');
     writeln;
     writeln('Level 5');
     writeln('Size is Large,');
     writeln('Speed is MF/MF');
     writeln('Hits are 135');
     writeln('AT is SL/4');
     writeln('DB is 30');
     writeln('Attacks are 100LBi/-/-');
     writeln('Aggressive. About 20 foots long');

end;


Procedure sheep_big_horn;
 begin
     write('Animals, ');
     dice :=4+Random(36);
     writeln (dice, ' Big Horn Sheep');
     writeln;
     writeln('Level 4');
     writeln('Size is medium,');
     writeln('Speed is M/MF');
     writeln('Hits are 70');
     writeln('AT is No/4');
     writeln('DB is 35');
     writeln('Attacks are 60MBa/40MHo/20MTS');
     writeln('Only males have horns.');

end;

Procedure sheep;
 begin
     write('Animals, ');
     dice :=4+Random(26);
     writeln (dice, ' Sheep');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is M/MF');
     writeln('Hits are 40');
     writeln('AT is No/4');
     writeln('DB is 30');
     writeln('Attacks are 40MBa/20MHo/10MTS');
     writeln('Only males have horns. Ordinarily domesticated and accompanied by');
     writeln('shepherds in settled areas. In remote areas tehy would be wild.');

end;

Procedure shrimper_shell_fisher;
 begin
     write('People, ');
     writeln(' Shrimper/Shell Fisher');
     writeln;
     writeln('On shallow water is shrimper/shell fisher.');

end;

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

Procedure skeletons;
 begin
     write('Undead, ');
     dice :=1+Random(4);
     writeln (dice, ' Skeletons');
     writeln;
     writeln('Level 5');
     writeln('Size is medium,');
     writeln('Speed is FA/FA');
     writeln('Hits are 100');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 50we/50MBa/-');
     writeln('All within 10 feet must make a RR versus 7th level Fear or be stunned.');
     writeln('a round. Should they remain 10 feet of a person for 3 or more rounds,');
     writeln('they drain his life energy at a rate of 3 Co pts/round, until the victim');
     writeln('dies, escapes, or destroys the Skeleton.');
     writeln('Class III');
end;

Procedure skeletons_lord;
 begin
     write('Undead, ');
     dice :=1+Random(9);
     writeln (dice, ' Skeleton Lord');
     writeln;
     writeln('Level 10');
     writeln('Size is medium,');
     writeln('Speed is VF/VF');
     writeln('Hits are 135');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 95we/70LBa/-');
     writeln('All within 10 feet must make a RR versus 10th level Fear or flee.');
     writeln('After 4 rounds within 10 feed of a victim, a Skeleton Lord begins drainin');
     writeln('life energy at a rate of 4 Co pts/round, until the victim');
     writeln('dies, escapes, or destroys the Skeleton.');
     writeln('Class IV');
end;

Procedure slaves;

 begin
     write('Local Men, ');
     dice :=1+Random(9);
     writeln (dice, ' Slaves');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 25');
     writeln('AT is No/1');
     writeln('DB is 25');
     writeln('Attacks are melee and missile are variable.');
     writeln('Will welcome release and accept any arms offered.');

end;

Procedure slign;
 begin
     write('Animals, ');
     dice :=1+Random(0);
     writeln (dice, ' Slign');
     writeln;
     writeln('Level 8');
     writeln('Size is Large,');
     writeln('Speed is FA/FA');
     writeln('Hits are 160');
     writeln('AT is SL/4');
     writeln('DB is 50');
     writeln('Attacks are 90LCr/60MBi/50LGrx2');
     writeln('RR vs 5th level poison if bite');

end;

Procedure small_Patrol;

 begin
     write('Local Men, ');
     dice :=2+Random(6);
     writeln (dice, ' Small Patrol');
     writeln;
     writeln('These small but strong groups are very dangerous.');
     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 smugglers;
 begin
     write('People, ');
     dice :=1+Random(5);
     writeln (dice, ' Smugglers');
     writeln;
     writeln('Level 3');
     writeln('Hits are 35');
     writeln('AT No/1');
     writeln('DB is 15');
     writeln('Attacks are melee 50ss and missile 58lb.');
     writeln('Movement 15');
     writeln('Greedy trader and smuggler. Seems pleasant enought, but');
     writeln('gasping nature. Smuggles wino, herbs etc.');
end;

Procedure snakes_dangerous;
 begin
     write('Animals, ');
     dice :=1+Random(3);
     writeln (dice, ' Dangerous Snakes');
     writeln;
     writeln('Level 3-8');
     writeln('Size is small-medium,');
     writeln('Speed is MD/F - F/VF,');
     writeln('Hits are 20-100');
     writeln('AT is No/2 - SL/4');
     writeln('DB is 25-60');
     writeln('Attacks are 45SBi/poison/-');
     writeln('Allround snakes, remember poison and strangle. Make your own choice.');

end;

Procedure snakes_poisonous;
 begin
     write('Animals, ');
     dice :=1+Random(3);
     writeln (dice, ' Poisonous Snakes');
     writeln;
     writeln('Level 3-8');
     writeln('Size is small-medium,');
     writeln('Speed is MD/F - F/VF,');
     writeln('Hits are 20-60');
     writeln('AT is No/2 - SL/4');
     writeln('DB is 25-60');
     writeln('Attacks are 45MBi/poison/-');
     writeln('Remember only poisonous snakes at this moment!');

end;

Procedure spectres;
 begin
     write('Undead, ');
     dice :=1+Random(4);
     writeln (dice, ' Spectres');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is VF/VF');
     writeln('Hits are 200');
     writeln('AT is No/1');
     writeln('DB is 100');
     writeln('Attacks are +40 shock bolt/-/-');
     writeln('Only affected by concussion hits.');

end;

Procedure soldiers;
 begin
     write('Local Men, ');
     dice :=1+Random(5);
     writeln (dice, ' Soldiers');
     writeln;
     writeln('Level 3');
     writeln('Hits are 45');
     writeln('AT is Ch/14');
     writeln('DB is 35');
     writeln('Attacks are melee 70bs and missle 50pl');
     writeln('Dunedain soldiers returning from/going to guard duty, fully armed.');

end;

Procedure soldiers1;
 begin
     write('Local Men, ');
     dice :=1+Random(3);
     writeln (dice, ' Soldiers');
     writeln;
     writeln('Level 3');
     writeln('Hits are 45');
     writeln('AT is Ch/14');
     writeln('DB is 35');
     writeln('Attacks are melee 70bs and missle 50pl');
     writeln('Dunedain soldiers off-duty, unarmored with one weapon.');

end;

Procedure south_haradrim;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' South Haradrim');
     writeln;
     writeln('Coastal area and Back harad - mostly of them are relative to Mmakan');
     writeln('peoples. Tall, average men weight is 82 kilos and lenght is 195 cm and females');
     writeln('64 kilos and 185 cm. They life is short 40 to 60 years. Haradrim eyes stand');
     writeln('light which was make normal human blind. Skin is dark brown, brown or black');
     writeln('skin straight or curly black hair and dark brown of black 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('South Harad they use elefants and horses.');
end;

Procedure spider_ennerlings;
 begin
     write('Animals, ');
     dice :=1+Random(99);
     writeln (dice, ' Ennerlings Spiders');
     writeln;
     writeln('Level 0');
     writeln('Size is small,');
     writeln('Speed is IN/VF');
     writeln('Hits are 5');
     writeln('AT is No/1');
     writeln('DB is 10');
     writeln('Attacks are 10TSt/poison/-');
     writeln('2 level poison is white and causes paralysis.');

end;

Procedure spider_giant;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Giant Spiders');
     writeln;
     writeln('Level 5');
     writeln('Size is Large,');
     writeln('Speed is FA/FA');
     writeln('Hits are 70');
     writeln('AT is SL/4');
     writeln('DB is 45');
     writeln('Attacks are 40LSt/40LGr/poison');
     writeln('2 level poison is milk-white and causes slow liquification.');
     writeln('These are about 4 to 8 foot wide, commucate by means of ominous');
     writeln('creaking and hissing sounds and by a limited telepathic capacity,');
     writeln('range is 100 feet. If you can telepathic, you can tap into spiders ');
     writeln('thoughts and may well belive that the spiders are actually speaking.');
     writeln('There is, of cource little attraction in reading a speders mind,');
     writeln('save only to learn what it will do next. Low intelligent and unformyl evil.');

end;

Procedure spider_king;
 begin
     write('Animals, ');
     dice :=1+Random(0);
     writeln (dice, ' King Spiders');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is M/MF');
     writeln('Hits are 55');
     writeln('AT is Ch/16');
     writeln('DB is 20');
     writeln('Attacks are 40MPi/-/-');
     writeln('These creatures, with bodies up to 2 feet in diameter and legs up to 6 ');
     writeln('feet length. Rather than building webs, however they build pit traps.');
     writeln('These pits are usually on slopes in forest, between trees, and measure');
     writeln('8 to 10 feet deep and about 2 or 3 feet wide. A Lid of spider silk');
     writeln('inwoven with dead vegetation from the forest floor, -30 to spot covers');
     writeln('the trap. The King Spider waits in a side passage, and immediately');
     writeln('leaps upon its victim and bites it, injecting the reduction poison kennesank');
     writeln('An RR failure of 01-50 results in paralysis, while one of +51 proves fatal');
     writeln('the victims inner organs dissolve into a delectable fluid. Then it EAT');
     writeln('victim, if only paralyzed then it will save for females which lay 6 to 12');
     writeln('eggs on top of the victim and leave the hole. Eggs hatch in 2 days.');

end;

Procedure spider_large;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Large Spiders');
     writeln;
     writeln('Level 5');
     writeln('Size is Large,');
     writeln('Speed is FA/FA');
     writeln('Hits are 40');
     writeln('AT is SL/4');
     writeln('DB is 40');
     writeln('Attacks are 20LSt/20LGr/poison');
     writeln('2 level poison is milk-white and causes slow liquification.');

end;


Procedure spider_shelob;
 begin
     write('Demon, ');
     writeln ('Spider, Shelob');
     writeln;
     writeln('Level 50');
     writeln('Size is Huge,');
     writeln('Speed is F/F');
     writeln('Hits are 500, including 20point for each leg, 8 pieces');
     writeln('and 30 point for great clusters of eyes, 2 pieces.');
     writeln('AT are at body Pl/20, at legs are Rl/12 and at eyes No/1.');
     writeln('DB is 80');
     writeln('Attacks are 120HPi, poison injected if critical hit. Then 100HHo 2x 25% change');
     writeln('and last 120 HBI.');
     writeln('Super Large critical table.');
     writeln('Spell bonus is +20 and 200 power points, an overhelming presence!');
     writeln('Poison is 50th level, it kills instantly or paralyzes at option 2-24 hours.');
     writeln('Shelob attacks at -100 in full daylight or equivalent magical light. ');
     writeln('Given the option she will flee and hope to lyre her prey into a situation more ');
     writeln('advantageous to her. She can only be hit by enchanted weapons.');
     writeln;
     writeln('Shelobs Spell lists are some many so i do not listed here but one i can say and');
     writeln('it do not take any power points it is Open Mentalist Brilliance List.');

end;

Procedure spiderlings;
 begin
     write('Animals, ');
     dice :=5+Random(5);
     writeln (dice, ' Spiderlings');
     writeln;
     writeln('Level 10');
     writeln('Size is Large,');
     writeln('Speed is MD/F');
     writeln('Hits are 120');
     writeln('AT is Rl/11');
     writeln('DB is 60');
     writeln('Attacks are 75HSt/60LGr/-');
     writeln('Maybe use somekind poison to paralyze victim.');

end;

Procedure spies;

 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Spies');
     writeln;
     writeln('Usually thiefes, boundy hunters, strange cult people, or normal');
     writeln('peoples spy on Player Chracters');
     writeln('Motivation is money, revenge or just interested of PC');


end;

Procedure squirrel_black;
 begin
     write('Animals, ');
     dice :=1+Random(19);
     writeln (dice, ' Black Squirrels');
     writeln;
     writeln('Level 0');
     writeln('Size is Small,');
     writeln('Speed is MD/VF');
     writeln('Hits are 5');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 5TBi/-/-');

end;

Procedure stetan;
 begin
     write('Animal, ');
     dice :=1+Random(0);
     writeln (dice, ' Stetan');
     writeln;
     writeln('Level 20');
     writeln('Size is large,');
     writeln('Speed is VF/VF');
     writeln('Hits are 50');
     writeln('AT is No/3');
     writeln('DB is 40');
     writeln('Attacks are 40MBi/-/-.');
     writeln('Word stetan is Apysaic language and mean tricky. This name is perfect ');
     writeln('for otter-like animal. Body size is same as dog, stetan is friendly');
     writeln('and playful. These animals is tried to domesticated but in captivity');
     writeln('it dies quite soon after capture. Why it dies, because it can not ');
     writeln('stand be separed from other Stetans by spell it could be avoid');
     writeln('spells.');
end;

Procedure stronghold;
 begin
     write('Sites or Things, ');
     writeln('Stronghold');
     writeln;
     writeln('This stronghold is Far Harad army, you can choose which race. Several');
     writeln('professionals. They could be enemies or friends. Strength of fortress');
     writeln('is up to you.');

end;

Procedure sturgeon;
 begin
     write('Animal, ');
     dice :=1+Random(0);
     writeln (dice, ' Sturgeon');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is MF/MF');
     writeln('Hits are 200');
     writeln('AT is No/3');
     writeln('DB is 10');
     writeln('Attacks are 60LBa/-/-.');
     writeln('Fish, prized for their roe [eggs].');
     writeln('The Granddaddy of all fish, the Sturgeon grows up to 18 foot long');
     writeln('in still waters. It is has a scaly skin, which protected by five');
     writeln('rows of bony scutes along it sides. Normally very docile, one of');
     writeln('these formidable creatures will only attack if its lair is disturbed.');
     writeln('Then, it thrashes about angrily, perhaps ramming or upsetting any');
     writeln('nearby river craft.');
end;



Procedure swimming_fishing_birds;
 begin
     write('Animals, ');
     dice :=1+Random(15);
     writeln(dice, ' swimming/fishing birds');
     writeln;
     writeln('Bird on water or swamp, looking for fishes, shells, shrimps etc.');

end;


Procedure terrain_hazards;
 begin
     write('Hazards, ');
     writeln(' Terrain');
     writeln;
     writeln('Choose one, bog, quicksand stream, rapids, undergrowth etc.');

end;

Procedure thieves;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' thieves');
     writeln;
     writeln('Level 3');
     writeln('Hits are 48');
     writeln('AT No/1');
     writeln('DB is 15');
     writeln('Attacks are melee 60sc and missile 40sb.');
     writeln('Movement 10');
     writeln('Sneaky Haradan Scout/thieves.');

end;

Procedure the_razarac;
 begin
     write('Creature, ');
     dice :=1+Random(0);
     writeln (dice, ' The Razarac');
     writeln;
     writeln('Level 20');
     writeln('Size is large,');
     writeln('Speed is BF/BF');
     writeln('Hits are 250');
     writeln('AT is RL/12');
     writeln('DB is 40');
     writeln('Attacks are 80HCl/50TSt/poison.');
     writeln('Use Large Creature Crits, 4 level poison.');
     writeln('Desert demon, strikes 3x per round.');
end;

Procedure tomb;
 begin
     write('Inimate Dangers, ');
     writeln(' Tomb');
     writeln('');
     writeln('Little tomb is near. You can feel the time which is past this tomb.');
     writeln('Or this could be new tomb, what is made in hurry. Old and great tombs are');
     writeln('sometimes guarded by ghoust and other creatures.');

end;


Procedure town_elder;
 begin
     write('Local Men and Townsfolk, ');
     dice :=1+Random(1);
     writeln (dice, ' Town Elder');
     writeln;
     writeln('The town of Bar-en-Tinnen itself is governed by a group of eight ');
     writeln('Wise Speaker. Read more from Ghost of the Southern Anduin!');

end;

Procedure townfolk;

 begin
     write('Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Townfolk');
     writeln;
     writeln('These people are mixed Dunedain and Dunlendings. Normally these are');
     writeln('shopkeepers, workers atc. and are ordinarily seen doing their mundane ');
     writeln('chores or traveling for buseness or pleasure.');

end;

Procedure traders;
 begin
     write('People, ');
     dice :=1+Random(4);
     writeln (dice, ' Traders');
     writeln;
     writeln('Usually Urban men something like merchants but have not get money');
     writeln('enought so some items must be swap. Owns many little stores like');
     writeln('inns, herbalist, smithy etc. Also sell product on Market Place.');

end;

Procedure trail;
  begin
     write('Settlements Etc, ');
     writeln(' Trails');
     writeln('Trails on ground. Foot prints, horse trail, broken branch etc.');
     writeln('Maybe this could lead players to solving mission?');
end;


Procedure travellers;
 begin
     write('Local Men and Townsfolk, ');
     dice :=1+Random(4);
     writeln (dice, ' Travellers');
     writeln;
     writeln('People just wandering around kingdoms. Trying find great teasure or');
     writeln('something which change their whole life. Town is near great Anduin');
     writeln('river and ships carry many many weird things and stories.');

end;

Procedure traps;
  begin
     writeln('Inanimate Dangers, Traps');
     writeln;
     writeln('These traps are make to drive away trespassers.');
     writeln('But animal traps are also, roll dice to see if there is prey!');
end;

Procedure traps_in_or_outdoor;
  begin
     writeln('Sites or Things, Traps in or outdoor');
     writeln;
     writeln('These traps are make to drive away trespassers.');
     writeln('Macigal also are possible.');
end;

Procedure travelling_merchants;

 begin
     write('Other Men, ');
     dice :=1+Random(3);
     writeln (dice, ' Travelling Merchants');
     writeln;
     writeln('Mercahants from other cultures, kingdoms or just wandering.');
     writeln('They could have some rare weapons, herbs or magical items.');
     writeln('Usually humans but other races are not exceptions.');


end;

Procedure troll_black;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(0);
     writeln (dice, ' Black Trolls');
     writeln;
     writeln('Level 9');
     writeln('Size is large,');
     writeln('Speed is MD/MD');
     writeln('Hits are 250');
     writeln('AT is RL/16');
     writeln('DB is 50');
     writeln('Attacks are 170wh/80LBa/70ro 150 feet.');
     writeln('Also known as an Olog.');

end;

Procedure troll_cave;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(3);
     writeln (dice, ' Cave Trolls');
     writeln;
     writeln('Level 8');
     writeln('Size is large,');
     writeln('Speed is MF/M');
     writeln('Hits are 150');
     writeln('AT is No/3');
     writeln('DB is 20');
     writeln('Attacks are 120HBa/80HCl/50Lbi');
     writeln('Semi-intelligent, qearrelsome, mean. Like shiny objects.');
     writeln('They do not like daylight but can tolerate it for brief ');
     writeln('periods of time 1-2 hours. But direct sunlight turns them to stone.');

end;

Procedure troll_cave1;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(0);
     writeln (dice, ' Cave Trolls');
     writeln;
     writeln('Level 12');
     writeln('Size is large,');
     writeln('Speed is M/M');
     writeln('Hits are 175');
     writeln('AT is Rl/11');
     writeln('DB is 25');
     writeln('Attacks are 100HCl/85We/-');
     writeln('Semi-intelligent, qearrelsome, mean. Like shiny objects.');
     writeln('They do not like daylight but can tolerate it for brief ');
     writeln('periods of time 1-2 hours. But direct sunlight turns them to stone.');

end;

Procedure troll_forest;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(3);
     writeln (dice, ' Forest Trolls');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is MD/MD');
     writeln('Hits are 80');
     writeln('AT is Rl/11');
     writeln('DB is 10');
     writeln('Attacks are 65LCl/50LBi/-');
     writeln('Degenerate even by trollish standards');

end;

Procedure troll_forest1;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(5);
     writeln (dice, ' Forest Trolls');
     writeln;
     writeln('Level 6');
     writeln('Size is medium,');
     writeln('Speed is M/MF');
     writeln('Hits are 100');
     writeln('AT is Rl/11');
     writeln('DB is 15');
     writeln('Attacks are 80LBa/65LCl/-');
     writeln('Found in woods.');

end;

Procedure troll_hill;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(6);
     writeln (dice, ' Hill Trolls');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is M/M');
     writeln('Hits are 110');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are 120LBa/80LCl/40Mbi');
     writeln('Semi-intelligent, qearrelsome, mean. Like shiny objects.');
     writeln('They do not like daylight but can tolerate it for brief ');
     writeln('periods of time 1-2 hours.');

end;

Procedure troll_hill1;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(1);
     writeln (dice, ' Hill Trolls');
     writeln;
     writeln('Level 5');
     writeln('Size is large,');
     writeln('Speed is M/M');
     writeln('Hits are 110');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are 120LBa/80LCl/40Mbi');
     writeln('Semi-intelligent, qearrelsome, mean. Like shiny objects.');
     writeln('They do not like daylight but can tolerate it for brief ');
     writeln('periods of time 1-2 hours.');

end;

Procedure troll_mountain;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(0);
     writeln (dice, ' Mountain Trolls');
     writeln;
     writeln('Level 11');
     writeln('Size is large,');
     writeln('Speed is MD/MD');
     writeln('Hits are 240');
     writeln('AT is RL/16');
     writeln('DB is 40');
     writeln('Attacks are 110We/100LBa/100ro 150 feet');
     writeln('Smelly.');

end;

Procedure troll_stone;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(4);
     writeln (dice, ' Stone Trolls');
     writeln;
     writeln('Level 7');
     writeln('Size is large,');
     writeln('Speed is SL/M');
     writeln('Hits are 120');
     writeln('AT is RL/11');
     writeln('DB is 10');
     writeln('Attacks are 45LCl/35Mbi/-');
     writeln('Use Large Creature Criticals.');

end;

Procedure troll_wolves;

 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(5);
     writeln (dice, ' Hill Trolls');
     writeln;
     writeln('Level 12');
     writeln('Size is Large,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 150');
     writeln('AT is Rl/11');
     writeln('DB is 5');
     writeln('Attacks are melee 140ma and missile 110Lc');
     writeln('Also few wolves with guarding lairs.');

end;

Procedure trusa;
 begin
     write('Animal, ');
     dice :=1+Random(4);
     writeln (dice, ' Trusa');
     writeln;
     writeln('Level 1');
     writeln('Size is tiny,');
     writeln('Speed is SL/SL');
     writeln('Hits are 10');
     writeln('AT is NO/1');
     writeln('DB is 30');
     writeln('Attacks are 0TBa/50TSt/poison.');
     writeln('If Tst obtain critical, level 4 poison. "Leaf frog".');
     writeln('Skin color is bright blue or red. It is only 3 inches long. In back is thorns');
     writeln('which is poisonous after 1 to 10 rnds if safe roll >21 failed, if safe roll is');
     writeln('11 to 20 failed then victim is blinded and in coma. If is failed 1 to 10 then');
     writeln('one or both eyes is blinded.');
end;

Procedure turtles;
 begin
     write('Animal, ');
     dice :=1+Random(2);
     writeln (dice, ' Turtles');
     writeln;
     writeln('Level 4');
     writeln('Size is medium,');
     writeln('Speed is SL/MD');
     writeln('Hits are 75');
     writeln('AT is Rl/12');
     writeln('DB is 30');
     writeln('Attacks are 55MBi/-/-.');
     writeln('Passive. Very slow and peacefull. Very rare.');
     writeln('5 foot long, weight is about 300lbs.');
end;


Procedure unca;
 begin
     write('Animal, ');
     dice :=1+Random(1);
     writeln (dice, ' Unca');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is FA/VF');
     writeln('Hits are 100');
     writeln('AT is NO/3');
     writeln('DB is 35');
     writeln('Attacks are 80MBi/50MCl/-.');
     writeln('Large cat. Active in morning and evening. Looks like leopard but it is ');
     writeln('smaller. Fur is spotted brown. Its attack even bigger preys than itself.');
     writeln('Only fear is Petla but it eats also Stetans. It afraid also humans if ');
     writeln('it is attack quickly and suprised.');
end;

Procedure undead;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(3);
     writeln (dice, ' Undeads');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is MF/M');
     writeln('Hits are 50');
     writeln('AT is No/1');
     writeln('DB is 20');
     writeln('Attacks are 30MBa/weapon/');
     writeln('These creatus are entirely or primarily nocturnal. If primarily.');
     writeln('nocturnal e.g. orcs, certain Undead, etc. , they will appear only');
     writeln('50% of the time during daylight, and never if entirely nocturnal');
     writeln('e.g. certain undead, certain trolls, etc.');
     writeln('make your own choice, sorry');

end;

Procedure variags;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Variags');
     writeln;
     writeln('Varriags live land called Khandi, half-desert highland sout-east');
     writeln('from Mordodr. In fact there have much mutual with Eastmen.');
     writeln('They have war with neighbors continuosly. Constitution is average');
     writeln('men weight is 73 kilos and lenght 175 cm, female is 57 kilos');
     writeln('and 160 cm. Lifetime is short 50 to 70 years. Variags are excelent');
     writeln('horseman and cameldrivers. They like that clothes are decored with');
     writeln('old monsters, color must be red or black. Most of them have gold');
     writeln('jewelry in ears, nose, cheeks or lips. Often weapons are gold or');
     writeln('gild with gols.');
     writeln('');
     writeln('Continuosly war going people life is cruel and exciting. Most of');
     writeln('are nomad which steal other cattle. Human life is on elite warriors');
     writeln('and priestess hands. Female have more than one men, no marriage is');
     writeln('known. Most powerfull god is God of Darkness which is Sauron or ');
     writeln('Morgoth incarnation. Priestess interpreter laws.');
     writeln('');
     writeln('Variags look down all people unless they have just lose war against');
     writeln('them! Also they have respect for people of Mordor but they usually');
     writeln('hate other non-human races.');

end;

Procedure village;
 begin
     write('Sites or Things, ');
     writeln('Village');
     writeln;
     writeln('In this little village live People of Far Harad. Several professionals.');
     writeln('You can make your mind of everything else!');

end;

Procedure viper_rock;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Rock Viper');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is VF/BF,');
     writeln('Hits are 15');
     writeln('AT is No/1');
     writeln('DB is 50');
     writeln('Attacks are 20MSt/-/-');
     writeln('This small snake is quite inconspicuous as it sunbathes on the rocks.');
     writeln('Diminutive, it is nonetheless quite poisonous. Will not attack unless');
     writeln('threatened, but anyone climbing the cliffs of the White Mountains below');
     writeln('the treeline is well advised to watch where he puts his hands. Their 9th');
     writeln('level respiratory venom causes rapid swelling, massive bruising,');
     writeln('discoloration arouond the locus of the wound. Then the victims heart begins');
     writeln('to palpitate, his breathing becomes difficult, his endocrine system fails,');
     writeln('and he dies of total system shock in 6 to 10 minutes. No way has yet been ');
     writeln('found to extract the poison for use.');
end;

Procedure vodyanoi;
 begin
     write('Animal, ');
     dice :=1+Random(1);
     writeln (dice, ' Vodyanoi');
     writeln;
     writeln('Level 1');
     writeln('Size is medium,');
     writeln('Speed is MF/MF');
     writeln('Hits are 55');
     writeln('AT is Sl/3');
     writeln('DB is 35');
     writeln('Attacks are 60HBi/Swallow/-.');
     writeln('01-60 victims have to roll RR [+Pr bonus] vs. 5th lvl HOLD spell.');
     writeln('The Voduanoi is a relative of the Giant Hellbender. It is aquatic carnivore,');
     writeln('but prefers the flesh of mammals, especially people, over all other treats.');
     writeln('Growing up to 6 foot tall, it resembles a giant, black frog. It lurks in dank');
     writeln('pools, below the water, ready to strike. Then the Vodyanoi either drags its');
     writeln('prey into water in order to drown it, or swallows the victim whole. Like');
     writeln('a snake, it can dislocate its own jaw to swallow creatures larger than its');
     writeln('mouth would normally allow. The Vodyanoi has huge eyes which sometimes uses');
     writeln('to distract and hypnotize its prey.');
end;

Procedure vuk;
 begin
     write('Animals, ');
     dice :=5+Random(25);
     writeln (dice, ' Vuk');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is FA/VA,');
     writeln('Hits are 110');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 70MBi/-/-');
     writeln('Wild dogs, look like wolves but muzzle is more angular and fur is spotted');
     writeln('dark brown, grey or brown spots. This is excelent camouflage.');
     writeln('Prey upon herd not alone.');
end;

Procedure wading_birds;
 begin
     write('Animals, ');
     dice :=1+Random(15);
     writeln(dice, ' Wading birds');
     writeln;
     writeln('Small bird on swallow water or swamp, looking for worms, shells, shrimps.');
     writeln('The wading birds are including some of the largest birds around, such as');
     writeln('the crane, stork, pelican and heron. Even the occasional spoonbill or');
     writeln('flamingo may visit from the South. There are also smaller birds suchs as');
     writeln('the stilt, curlew and snipe.');
end;

Procedure wandering_folk;

 begin
     write('Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Wandering Folk');
     writeln;
     writeln('These people are mixed Dunedain and Dunlendings. These unfortunantes are');
     writeln('normally homeless refugees. They are running or hiding from various evils');
     writeln('or hard times. They all have a sad story to tell.');

end;

Procedure warg;

 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Wargs');
     writeln;
     writeln('Level 6');
     writeln('Size is medium,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 150');
     writeln('AT is No/4');
     writeln('DB is 50');
     writeln('Attacks are 75Lbi/60LCl/-');
     writeln('Operate in packs, warn Orcs of intruders.');
     writeln('Dissipates when slain.');

end;

Procedure warriors;
 begin
     write('Local Men, ');
     dice :=1+Random(5);
     writeln (dice, ' Warriors');
     writeln;
     writeln('Level 4');
     writeln('Hits are 50');
     writeln('AT is RL/9');
     writeln('DB is 15');
     writeln('Attacks are melee 65scimitar and missle 50sb');
     writeln('Haradrim warrior/fighter returning from/going to war fully armed.');

end;

Procedure watcher_in_stone;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(1);
     writeln (dice, ' Watcher in Stone');
     writeln;
     writeln('Level 15');
     writeln('Size is large,');
     writeln('Speed is --/--');
     writeln('Hits are 250');
     writeln('AT is Pl/20');
     writeln('DB is 40');
     writeln('Attacks are special');
     writeln('Stone Dunman-like form with eagle-head.');

end;

Procedure waterhole0;
 begin
     write('You see soon Waterhole so roll once at Waterhole chart!');
 end;

Procedure web_hanging;

 begin
     write('Hazards, ');
     writeln (' Web Hanging');
     writeln;
     writeln('Web fragments hanging, no effect.');

end;

Procedure web_intact;

 begin
     write('Hazards, ');
     dice :=10+Random(5);
     writeln (dice, ' Web Intacts');
     writeln;
     writeln('Stands must be cut to sever');

end;

Procedure wels;
 begin
     write('Animal, ');
     dice :=1+Random(11);
     writeln (dice, ' Wels');
     writeln;
     writeln('Level 3');
     writeln('Size is large,');
     writeln('Speed is SL/MF');
     writeln('Hits are 160');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 60LBa/60LGr/Swallow.');
     writeln('Fish, bottom-feeders.');
     writeln('A species of giant catfish, the Wels is an ugly brute. They are usually');
     writeln('up to 4-5 foot long. It has a rounded body with a flattened head and a');
     writeln('wide horizontal mouth, around which are 2 long sensory barbels and 4 short');
     writeln('ones. It is known to swallow prey whole.');

end;

Procedure wels_large;
 begin
     write('Animal, ');
     dice :=1+Random(0);
     writeln (dice, ' Large Wels');
     writeln;
     writeln('Level 10');
     writeln('Size is huge,');
     writeln('Speed is VS/MD');
     writeln('Hits are 260');
     writeln('AT is No/4');
     writeln('DB is 15');
     writeln('Attacks are 90HBa/90HGr/Swallow.');
     writeln('Fish, bottom-feeders.');
     writeln('A species of giant catfish, the Wels is an ugly brute. They are up to 10');
     writeln('foot long. A larger Wels weights nearly 700 lbs. It has a rounded body with');
     writeln('a flattened head and a wide horizontal mouth, around which are 2 long sensory');
     writeln('barbels and 4 short ones. It is known to swallow prey whole and will');
     writeln('sometimes bash boats.');
end;


Procedure wight_barrow;
 begin
     write('Undead, ');
     dice :=1+Random(1);
     writeln (dice, ' Barrow Wights');
     writeln;
     writeln('Level 15');
     writeln('Size is medium,');
     writeln('Speed is VF/BF,');
     writeln('Hits are 165');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 110We/90LBa/-');
     writeln('Barrow-wights are Wraith-Lords who haunt the ancien passage-graves');
     writeln('"barrows" of the Daen Coentis and Dunlendings.');
     writeln('The simplest sort of Wraiths have the actual appearance of dark bodily');
     writeln('shape with glinting lights for eyes, but they can briefly shift other,');
     writeln('simple forms. When within 10 feet and facing a victim, a Wraith can mesmerize');
     writeln('its prey. If succesful the victim myst make a RR vs a 15th lvl attack, the ');
     writeln('undead attack can force the victim to comply with his Will. Wraiht drains');
     writeln('the victims powr at 2 Co pts/round until the victim perishes. If the Wraith');
     writeln('is interrupted before the pool fool dies, the victim will remember nothing');
     writeln('except the initial feeling of vertigo as the spell took hold.');
     writeln('Can use spells and of such items as they could use when alive.');
     writeln('Class V');

end;

Procedure wight_greater;
 begin
     write('Undead, ');
     dice :=1+Random(0);
     writeln (dice, ' Wight Greater');
     writeln;
     writeln('Level 25');
     writeln('Size is large,');
     writeln('Speed is M/M,');
     writeln('Hits are 170');
     writeln('AT is Pl/19');
     writeln('DB is 30');
     writeln('Attacks are 150We/80LBa/-');
     writeln('Cast Fear. Paralysis and sleep on touch.');

end;

Procedure wight_lesser;
 begin
     write('Undead, ');
     dice :=1+Random(0);
     writeln (dice, ' Wight Lesser');
     writeln;
     writeln('Level 15');
     writeln('Size is large,');
     writeln('Speed is M/M,');
     writeln('Hits are 120');
     writeln('AT is Ch/16');
     writeln('DB is 30');
     writeln('Attacks are 110We/80LBa/-');
     writeln('Cast Fear. Paralysis and sleep on touch.');

end;

Procedure wild_aurochs;
 begin
     write('Animals, ');
     dice :=1+Random(3);
     writeln (dice, ' Wild Aurochs');
     writeln;
     writeln('Level 4');
     writeln('Size is large,');
     writeln('Speed is MF/F,');
     writeln('Hits are 190');
     writeln('AT is No/3');
     writeln('DB is 35');
     writeln('Attacks are 50LHo/65LTs/-');
     writeln('Becomes very aggressive with little provocation');

end;

Procedure wild_cat;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Wild Cats');
     writeln;
     writeln('Level 5');
     writeln('Size is Medium,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 100');
     writeln('AT is No/3');
     writeln('DB is 40');
     writeln('Attacks are 40MCl/60MBa/60MBi');
     writeln('Very wild and aggressive.');

end;

Procedure wolves;

 begin
     write('Animals, ');
     dice :=5+Random(15);
     writeln (dice, ' Wolves');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is F/F,');
     writeln('Hits are 110');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 65Lbi/-/-');
     writeln('Will not attack groups unless provoked.');

end;

Procedure wolves1;

 begin
     write('Animals, ');
     dice :=5+Random(20);
     writeln (dice, ' Wolves');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is F/F,');
     writeln('Hits are 110');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 65Lbi/-/-');
     writeln('Few survive here, most are very cautious.');

end;

Procedure wolves_grey;

 begin
     write('Animals, ');
     dice :=2+Random(38);
     writeln (dice, ' Grey Wolves');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 110');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 60LBi/30MCl/-');
     writeln('Rarely attack humans..');

end;

Procedure wolves_grey1;

 begin
     write('Animals, ');
     dice :=2+Random(4);
     writeln (dice, ' Grey Wolves');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is FA/FA,');
     writeln('Hits are 110');
     writeln('AT is No/3');
     writeln('DB is 30');
     writeln('Attacks are 55LBi/30MCl/-');
     writeln('Aggressive pack hunters.');

end;

Procedure woodhawk_great;

 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Great Woodhawk');
     writeln;
     writeln('Level 4');
     writeln('Size is large,');
     writeln('Speed is FA/VF,');
     writeln('Hits are 70');
     writeln('AT is No/1');
     writeln('DB is 40');
     writeln('Attacks are 60LBi/50LCl/35MBi');
     writeln('This bird kown to the Honnin as O-Taka. It found only in the more central.');
     writeln('regions of the wood, so it is virtually unknown to the men who live in');
     writeln('surrounding lands. With a wingspan of almost ten feet, the hawk is the ');
     writeln('largest bird native to the forest, and its sharp beak and powerful talons');
     writeln('make it a formidable adversary for even the hunting cats that share its ');
     writeln('habitat. Hawk will not typically attack anything larger than the smaller');
     writeln('jungle rodents or birds, but in defense of young other extreme cases, they');
     writeln('have been known to take on men or even the mighty constrictor snakes that');
     writeln('prowl in trees. In coloring, the bird is a subdued mix of browna and greys,');
     writeln('the males bear a tall crest of white. Once the hawk has reached the ground');
     writeln('or a safe height, the strong beak will come down to begin the meal');
     end;

Procedure woodmen;
 begin
     write('Local Men, ');
     dice :=1+Random(4);
     writeln (dice, ' Woodmens');
     writeln;
     writeln('Necromants lietnaut or something.. Kuvaile uudestaan');
     writeln('');
     writeln('');
     writeln('');
     writeln('');
     writeln('');

end;

Procedure wool_carrier;

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


Procedure worm_cave;

 begin
     write('Animals, ');
     dice :=2+Random(0);
     writeln (dice, ' Cave Worm');
     writeln;
     writeln('Level 10');
     writeln('Size is huge,');
     writeln('Speed is MF/F,');
     writeln('Hits are 160');
     writeln('AT is SL/12');
     writeln('DB is 30');
     writeln('Attacks are 90HGr/110HHo/-');
     writeln('Grapples foe then uses other attacks. Cave Worms will be seen outside only');
     writeln('at night. Lenght is 24 to 36 feet. Almost blinds but can feel vibrations');
     writeln('and feel preys with excelent scent. Grapple foe with flexible tong.');
     writeln('Cave worms do not eat stone even though dwarves told so. These worms eat');
     writeln('FLESH and need much calsium so eat also bones.');

end;

Procedure woses;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(4);
     writeln (dice, ' Woses');
     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 wraiths;
 begin
     write('Undead, ');
     writeln ('any, Wraiths');
     writeln;
     writeln('Level 5');
     writeln('Size is medium,');
     writeln('Speed is MF/F,');
     writeln('Hits are 50');
     writeln('AT is No/1');
     writeln('DB is 25');
     writeln('Attacks are 50MBa/40We/-');
     writeln('These creatures straddle the line between life and death, and ');
     writeln('although they seem to have seem have physical bodies, they are');
     writeln('little more than elusive Shadow-forms, partially born of energy and rarely');
     writeln('subject to the natural laws that govern the bodies of the living.');
     writeln('The simplest sort of Wraiths have the actual appearance of dark bodily');
     writeln('shape with glinting lights for eyes, but they can briefly shift other,');
     writeln('simple forms. When within 10 feet and facing a victim, a Wraith can mesmerize');
     writeln('its prey. If succesful the victim myst make a RR vs a 5th lvl attack, the ');
     writeln('undead attack can force the victim to comply with his Will. Wraiht drains');
     writeln('the victims powr at 2 Co pts/round until the victim perishes. If the Wraith');
     writeln('is interrupted before the pool fool dies, the victim will remember nothing');
     writeln('except the initial feeling of vertigo as the spell took hold.');
     writeln('Class II');

end;

Procedure zamka;
 begin
     write('Animal, ');
     dice :=1;
     writeln (dice, ' Zamka');
     writeln;
     writeln('Level 1');
     writeln('Size is medium,');
     writeln('Speed is VF/BF,');
     writeln('Hits are 30');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 60MGr/40MCr/30MBi');
     writeln('Snare Snake, 10th level muscle poison. 7 feet long.');
     writeln('Poison causes paralysis for 20 minutes/each missing 10 points safe roll.');
     writeln('Poison is from stingers boths sides of snake. Snake strangle prey.');
     writeln('When victim is dead, zamka wait that time and weather soften victim, it');
     writeln('wait beside victim.');
     writeln('');
     writeln('Use grapple attact chart. Critical hit means that poison is in victim.');
     writeln('Zamka aim bare skin but it strangle only motionless victims, if motion then');
     writeln('new attack until it is *motionless*. Unsuccesfull safe roll is cumulative.');
end;
end.