Unit monster4;

interface

Procedure oasis;
Procedure ohtarin_patrol;
Procedure orao;
Procedure orc_bodyguards;
Procedure orc_chieftan;
Procedure orc_desert;
Procedure orc_females;
Procedure orc_guard_group;
Procedure orc_imps;
Procedure orc_large_patrols;
Procedure orc_normal_patrols;
Procedure orc_officers;
Procedure orc_patrol;
Procedure orc_scouts;
Procedure orc_small_patrols;
Procedure orc_units;
Procedure orc_warband_caravan;
Procedure orc_warriors;
Procedure orc_warriors1;
Procedure other_animals;
Procedure other_beasts;
Procedure other_beings;
Procedure other_Individuals;
Procedure otravati;
Procedure owl_short_eared;
Procedure parrot_iu_tori;
Procedure petla;
Procedure petty_Dwarves;
Procedure pike;
Procedure ponies;
Procedure prelaz_bic_young;
Procedure prelaz_bic_mature;
Procedure prelaz_bic_old;
Procedure pronghorn;
Procedure Pushel_nin;
Procedure ruin0;
Procedure ruins;
Procedure rain;
Procedure rats_giant;
Procedure ravens;
Procedure reed_peat_cutters;
Procedure rewk;
Procedure rivermen;
Procedure rose_trees;
Procedure rogues;

implementation

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

           var

           dice : byte;  {muutuja satunnaisluvulle}

Procedure oasis;

 begin
     write('Sites or Things, ');
     dice :=1+Random(0);
     writeln (dice, ' Oasis');
     writeln;
     writeln('At last water! In this little oasis are few palm trees and others');
     writeln('has founded at this drinking point, pay fee ?');

end;

Procedure ohtarin_patrol;
 begin
     write('Local Men, ');
     dice :=1+Random(6);
     writeln (dice, ' Soldiers');
     writeln;
     writeln('Level 3');
     writeln('Hits are 45');
     writeln('AT is Ch/14');
     writeln('DB is 35');
     writeln('Attacks are melee 50bs and missle 45pl');
     writeln('Leader with esquire on patrol. This moment you can put NPC to lead this patrol.');

end;

Procedure orao;
 begin
     write('Animals, ');
     dice :=1+Random(3);
     writeln (dice, ' Orao');
     writeln;
     writeln('Level 6');
     writeln('Size is large,');
     writeln('Speed is FA/VF,');
     writeln('Hits are 90');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 80LPi/60LCl/40MBi');
     writeln('Desert eagle. 9 foot to wing to wing. Look very much of northern eagles but');
     writeln('it must eat sometimes carcass. May attack against peoples at Haradain');
     writeln('caravan route. Builds nest in Yellow Mountains northern caves.');
     writeln('These hawks are not so large as Great Eagles but may steal sometimes sheep');
     writeln('or goat!');
end;

Procedure orc_bodyguards;

 begin
     write('Orcs, ');
     dice :=1+Random(4);
     writeln (dice, ' Bodyguards');
     writeln;
     writeln('Level 7');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 95');
     writeln('AT is Ch/13');
     writeln('DB is 30');
     writeln('Attacks are melee 80pa and missile 90lb');
     writeln('Brand fallen foes with Burning Star.');
     writeln('Uruk-Hai orcs');

end;

Procedure orc_chieftan;

 begin
     write('Orcs, ');
     writeln ( ' Chieftan');
     writeln;
     writeln('Level 10');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 115');
     writeln('AT is Ch/14');
     writeln('DB is 40');
     writeln('Attacks are melee 120ms and missile 100lb');
     writeln('+5 Armor and shield. Use poison: Asgurath on weapons.');
     writeln('Uruk-Hai chieftan, with 9 or 6 other guards.');

end;

Procedure orc_desert;

 begin
     write('Orcs, ');
     dice :=1+Random(4);
     writeln (dice, ' Desert');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Hits are 40');
     writeln('AT is RL/10');
     writeln('DB is 25');
     writeln('Attacks are melee 20scimitar and missile 5sb');
     writeln('Warriors, uses shield. Elite warrior is 6th and Warlord is 10th level.');

end;

Procedure orc_females;

 begin
     write('Orcs, ');
     dice :=1+Random(9);
     writeln (dice, ' Females');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 25');
     writeln('AT is No/1');
     writeln('DB is 25');
     writeln('Non-combatant.');

end;

Procedure orc_guard_group;

 begin
     write('Orcs, ');
     dice :=3+Random(1);
     writeln (dice, ' Guard group');
     writeln;
     writeln('Level 7');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 95');
     writeln('AT is Ch/13');
     writeln('DB is 30');
     writeln('Attacks are melee 80pa and missile 90lb');
     writeln('Uruk-Hai orc as Captain, with 3 guards. And Troll chief with 2 trolls');

end;

Procedure orc_imps;

 begin
     write('Orcs, ');
     dice :=1+Random(9);
     writeln (dice, ' Imps');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 35');
     writeln('AT is No/1');
     writeln('DB is 15');
     writeln('Non-combatant.');

end;
Procedure orc_large_patrols;

 begin
     write('Orcs, ');
     dice :=6+Random(6);
     writeln (dice, ' Large Patrol');
     writeln;
     writeln('Level 4');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 50');
     writeln('AT is SL/10');
     writeln('DB is 35');
     writeln('Attacks are melee 65sc and missile 45da');
     writeln('High morale. Patrol includes two Uruk-Hai orc and three wargs.');

end;

Procedure orc_normal_patrols;

 begin
     write('Orcs, ');
     dice :=6+Random(4);
     writeln (dice, ' Normal Patrol');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 45');
     writeln('AT is SL/10');
     writeln('DB is 35');
     writeln('Attacks are melee 60sc and missile 40da');
     writeln('High morale. Patrol includes one Uruk-Hai orc and two wargs.');

end;

Procedure orc_officers;

 begin
     write('Orcs, ');
     dice :=1+Random(4);
     writeln (dice, ' Officers');
     writeln;
     writeln('Level 9');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 105');
     writeln('AT is Ch/14');
     writeln('DB is 45');
     writeln('Attacks are melee 100ms and missile 100lb');
     writeln('+5 Armor and shield. Use poison: Asgurath on weapons.');
     writeln('Uruk-Hai orcs');

end;


Procedure orc_patrol;

 begin
     write('Orcs, ');
     dice :=10+Random(5);
     writeln (dice, ' Patrol');
     writeln;
     writeln('Level 1-2');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 25');
     writeln('AT is SL/10');
     writeln('DB is 25');
     writeln('Attacks are melee 40sc and missile 20da');
     writeln('Patrol includes one 5th level Uruk-Hai orc as leader.');

end;


Procedure orc_scouts;

 begin
     write('Orcs, ');
     dice :=1+Random(4);
     writeln (dice, ' Scouts');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 35');
     writeln('AT is Sl/5');
     writeln('DB is 25');
     writeln('Attacks are melee 35sc and missile 30sl');
     writeln('Use iron weapons.');

end;

Procedure orc_small_patrols;

 begin
     write('Orcs, ');
     dice :=2+Random(4);
     writeln (dice, ' Small Patrol');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 45');
     writeln('AT is SL/10');
     writeln('DB is 35');
     writeln('Attacks are melee 60sc and missile 40da');
     writeln('High morale. Patrol includes one Uruk-Hai orc and two wargs.');

end;

Procedure orc_units;

 begin
     write('Orcs, ');
     dice :=6+Random(2);
     writeln (dice, ' Unit');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 45');
     writeln('AT is SL/10');
     writeln('DB is 35');
     writeln('Attacks are melee 60sc and missile 40da');
     writeln('Medium morale. Patrol includes one Uruk-Hai orc and one warg.');

end;

Procedure orc_warband_caravan;

 begin
     write('Orcs, ');
     dice :=12+Random(18);
     writeln (dice, ' Warband or Caravan');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 45');
     writeln('AT is SL/10');
     writeln('DB is 35');
     writeln('Attacks are melee 60sc and missile 40da');
     writeln('High morale. Patrol includes many Uruk-Hai orcs and two wargs.');
     writeln('In warband is more warriors and wargs. In caravan is few common man');
     writeln('and trackers to find slaves for sale and much more.');

end;

Procedure orc_warriors;

 begin
     write('Orcs, ');
     dice :=1+Random(9);
     writeln (dice, ' Warriors');
     writeln;
     writeln('Level 1');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 25');
     writeln('AT is Rl/7');
     writeln('DB is 20');
     writeln('Attacks are melee 40sc and missile 25sb.');
     writeln('Some use clubs. "Snaga" orcs.');

end;

Procedure orc_warriors1;

 begin
     write('Orcs, ');
     dice :=11+Random(9);
     writeln (dice, ' Warriors');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is MD/MD,');
     writeln('Hits are 25');
     writeln('AT is Rl/7');
     writeln('DB is 25');
     writeln('Attacks are melee 50sc and missile 35sb.');
     writeln('Some use whips. One leader about 5th level.');

end;

Procedure other_animals;

 begin
     write('Animals, ');
     dice :=1+Random(20);
     writeln (dice, ' Other animals');
     writeln;
     writeln('Level 1-8');
     writeln('Size is small-large,');
     writeln('Speed is MD/F - F/VF,');
     writeln('Hits are 20-150');
     writeln('AT is No/1 - HL/4');
     writeln('DB is 25-60');
     writeln('Attacks are 45LCl/56MBi/-');
     writeln('Allkind a animals, fox, rabbit, pig, fishes etc.');

end;

Procedure other_beasts;

 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Other Beasts');
     writeln;
     writeln('Shortly, you can make your own choice at this moment.');
     writeln('These beast are at Greater Harad mainly so it could not be.');
     writeln('polar bear.');
end;

Procedure other_beings;

 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(4);
     writeln (dice, ' Other Beings');
     writeln;
     writeln('Shortly, you can make your own choice at this moment.');
     writeln('Is could be rare animal, dragon, demon, ghoust or anything else.');

end;

Procedure other_Individuals;

 begin
     write('Local Men, ');
     dice :=1+Random(1);
     writeln (dice, ' Other Individuals');
     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;

Procedure otravati;
 begin
     write('Animals, ');
     dice :=1;
     writeln (dice, ' Otravati');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 30');
     writeln('AT is No/1');
     writeln('DB is 30');
     writeln('Attacks are 35Ho/-/-');
     writeln('Small 18 to 24 inches. Color is dirty grey. When critical hit then poison.');
     writeln('25th level nerve and blood poison, only chance is amputation. Kill after');
     writeln('one hour, to survive is only choice to amputation. It is *NOT* miracle');
     writeln('this snake is called Otravati because it means poison!');
end;

Procedure owl_short_eared;
 begin
     write('Flying Creatures, ');
     dice :=1+Random(29);
     writeln (dice, ' Short-Eared Owl');
     writeln;
     writeln('Level 4');
     writeln('Size is small,');
     writeln('Speed is F/F,');
     writeln('Hits are 20');
     writeln('AT is No/1');
     writeln('DB is 50');
     writeln('Attacks are 50SCl/25MCl/-');
     writeln('Only day-hunting owl, the Short-eared Owl is quite small but, like other');
     writeln('birds in Middle-earth, not unintelligent. They were taught by Elves to ');
     writeln('speak and have their own language, and one close to Nature can derive');
     writeln('helpful information from them.');
end;


Procedure parrot_iu_tori;
 begin
     write('Animals, ');
     dice :=1+Random(0);
     writeln (dice, ' Iu Tori Parrot');
     writeln;
     writeln('Level ?');
     writeln('Size is small,');
     writeln('Speed is FA/FA,');
     writeln('Hits are ?');
     writeln('AT is No/?');
     writeln('DB is ?');
     writeln('Attacks are -/-/-');
     writeln('????Tell me!');
end;

Procedure petla;
 begin
     write('Animals, ');
     dice :=1+Random(0);
     writeln (dice, ' Petla');
     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 10');
     writeln('Attacks are 85LGr/80LCr/40MBi');
     writeln('30 feet constrictor. Use Large Creature Criticals.');
     writeln('By spotted, brown skin snake blend shadows of forest. It sneak hopeless');
     writeln('traveller on tree or attacks from water and bites and wrap around victim');
     writeln('Thickes parts of snake could be about 1 feet and it is know that snake is ');
     writeln('swallow hole goat in one piece.');
     writeln('Takes abot 1 to 10 round that snake is wrapped around victim,');
     writeln('break loose is very difficult -30 + strenght bonus. When wrap is perfect it');
     writeln('it take 3 to 30 minutes that victim is dead!');
end;

Procedure Petty_Dwarves;
 begin
     write('Non-Mannish Races, ');
     dice :=1+Random(3);
     writeln (dice, ' Petty Dwarves');
     writeln;
     writeln('Called the Ta-Fa-Nilch by the hillmen. About 4 feet tall. Their');
     writeln('tendency to stoop and move about with peculiar steatlh accentuates');
     writeln('their smallnes. They are also remarkably ugly; their gnarled limbs ');
     writeln('ill-fit heir bodies, their heads are far too large and thin, and ');
     writeln('their beards are wispy and full of crumbs. They have farr less ');
     writeln('skills in stone- and metal-working than do the Dwarves.');
     writeln('Petty-Dwarves are good at growing and using herbs and more ');
     writeln('knowledgeable in the ways of nature.');

end;

Procedure pike;
 begin
     write('Animals, ');
     dice :=1+Random(1);
     writeln (dice, ' Pike');
     writeln;
     writeln('Level 1');
     writeln('Size is small-medium,');
     writeln('Speed is MF/F,');
     writeln('Hits are 30');
     writeln('AT is No/1');
     writeln('DB is 35');
     writeln('Attacks are 40MBi/-/-');
     writeln('Freshwater predator.');
     writeln('The pike is vicious and is renowned as the shark of the freshwaters. It has');
     writeln('a powerful jaw and wicked theeth, and once it has a hold it will not let go');
     writeln('unless it is seriously wounded or it succeeds in biting off a healthy piece');
     writeln('of its victim. [Note that, once bitten, a victim will not be attacked again,');
     writeln('but they must roll an additional attack to knock the fish loose, with no mods');
     writeln('for DB, armor etc.]');
     writeln('The pike will not normally attack a swimmer. This is particularly reassuring');
     writeln('to the rivermen. Pike grow up to 7 foot long in the Onodl�.');

end;

Procedure ponies;
 begin
     write('Animals, ');
     dice :=1+Random(9);
     writeln (dice, ' Ponies');
     writeln;
     writeln('Level 2');
     writeln('Size is medium,');
     writeln('Speed is FA/MF,');
     writeln('Hits are 100');
     writeln('AT is No/3');
     writeln('DB is 20');
     writeln('Attacks are 30MBa/30LTs/-');
     writeln('Study pack animals.');

end;

Procedure prelaz_bic_mature;
 begin
     write('Creatures, ');
     dice :=1;
     writeln (dice, ' Prelaz Bic mature');
     writeln;
     writeln('Level 7');
     writeln('Size is large,');
     writeln('Speed is FA/FA,');
     writeln('Hits are 135');
     writeln('AT is Rl/12');
     writeln('DB is 20');
     writeln('Attacks are 110LBi/70LCl/70LCL');
     writeln('Also called "Travelers Scourge". It is related to Zimmaj of the');
     writeln('Dune Sea but it is smaller and has no wings. It possesses a vaguely');
     writeln('manlike head, with a halo of horns and brisles, atop a strong,');
     writeln('six-foot neck. Its eyes are large an have a transparent inner lid');
     writeln('which allow it see even when buried under a light film of sand.');
     writeln('Irregular spines run down its ack to flexible tail. The beast will');
     writeln('beneath the sand and wait for days to ambush a passing beast or man,');
     writeln('bringing it pery down with its powerful forelimbs an jaws as would ');
     writeln('a hunting cat. It is not clever, though, and can oftern be out foxed');
     writeln('by multiple attackers or good strategy.');
end;

Procedure prelaz_bic_old;
 begin
     write('Creatures, ');
     dice :=1;
     writeln (dice, ' Prelaz Bic old');
     writeln;
     writeln('Level 18');
     writeln('Size is large,');
     writeln('Speed is FA/MF,');
     writeln('Hits are 160');
     writeln('AT is Ch/16');
     writeln('DB is 15');
     writeln('Attacks are 120LBi/90LCl/90LCL');
     writeln('Also called "Travelers Scourge". It is related to Zimmaj of the');
     writeln('Dune Sea but it is smaller and has no wings. It possesses a vaguely');
     writeln('manlike head, with a halo of horns and brisles, atop a strong,');
     writeln('six-foot neck. Its eyes are large an have a transparent inner lid');
     writeln('which allow it see even when buried under a light film of sand.');
     writeln('Irregular spines run down its ack to flexible tail. The beast will');
     writeln('beneath the sand and wait for days to ambush a passing beast or man,');
     writeln('bringing it pery down with its powerful forelimbs an jaws as would ');
     writeln('a hunting cat. It is not clever, though, and can oftern be out foxed');
     writeln('by multiple attackers or good strategy.');
end;

Procedure prelaz_bic_young;
 begin
     write('Creatures, ');
     dice :=1+Random(1);
     writeln (dice, ' Prelaz Bic young');
     writeln;
     writeln('Level 3');
     writeln('Size is large,');
     writeln('Speed is VF/FA,');
     writeln('Hits are 110');
     writeln('AT is Rl/12');
     writeln('DB is 30');
     writeln('Attacks are 100LBi/50LCl/50LCL');
     writeln('Also called "Travelers Scourge". It is related to Zimmaj of the');
     writeln('Dune Sea but it is smaller and has no wings. It possesses a vaguely');
     writeln('manlike head, with a halo of horns and brisles, atop a strong,');
     writeln('six-foot neck. Its eyes are large an have a transparent inner lid');
     writeln('which allow it see even when buried under a light film of sand.');
     writeln('Irregular spines run down its ack to flexible tail. The beast will');
     writeln('beneath the sand and wait for days to ambush a passing beast or man,');
     writeln('bringing it pery down with its powerful forelimbs an jaws as would ');
     writeln('a hunting cat. It is not clever, though, and can oftern be out foxed');
     writeln('by multiple attackers or good strategy.');
end;

Procedure Pronghorn;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Pronghorns');
     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 25');
     writeln('Attacks are 30SHo/20STS/-');
     writeln('Curious, but skittish');

end;

Procedure pushel_nin;
 begin
     write('Creatures, ');
     dice :=1+Random(1);
     writeln (dice, ' P�shel N�n');
     writeln;
     writeln('Level 3');
     writeln('Size is medium,');
     writeln('Speed is M/MF,');
     writeln('Hits are 70');
     writeln('AT is RL/16');
     writeln('DB is 15');
     writeln('Attacks are 80wp/45LPi/-');
     writeln('Telepathically linked. Stone carved to represent an avian warrior, with');
     writeln('sharp beak and a taloned club which attacks like a morningstar. All is ');
     writeln('stone, though as Ch/16 armor. In addition, each time a normal bladed');
     writeln('weapon strikes a critical blow against one, the stone will blunt it');
     writeln('enought to reduce its attack rolls by one until it is sharpened. As in');
     writeln('true of the similar figures found in northern lands, these suffer from');
     writeln('neither stun nor bleeding criticals and display a remarkable cunning.');
     writeln('They will work togother to gain whatever advantage they can.');
     writeln('The disadvantage to their close relationship is that, if one of these');
     writeln('P�shel N�n should fall in battle, the other will also lose his animation.');
end;

Procedure the_razarac;

 begin
     write('Creatures, ');
     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/120HBa/-');
     writeln('Demon. Strikes 3x/rnd. Use Large Creature Crits');

end;

Procedure Rain;
 begin
      write('Hazards, ');
      writeln( 'Rain');
      writeln;
      writeln('Normal rain from sky.');

end;

Procedure rats_giant;
 begin
     write('Animals, ');
     dice :=1+Random(19);
     writeln (dice, ' Giant Rats');
     writeln;
     writeln('Level 1');
     writeln('Size is small,');
     writeln('Speed is FA/FA,');
     writeln('Hits are 20');
     writeln('AT is SL/3');
     writeln('DB is 30');
     writeln('Attacks are 20TBi/20SBi/-');
     writeln('Body lenght 2-3 feet, city rats are larger than desert rats.');

end;

Procedure ravens;
 begin
     write('Animals, ');
     dice :=1+Random(4);
     writeln (dice, ' Ravens');
     writeln;
     writeln('Level 4');
     writeln('Size is small,');
     writeln('Speed is VF/VF,');
     writeln('Hits are 20');
     writeln('AT is No/3');
     writeln('DB is 50');
     writeln('Attacks are 50SCl/25MCl/-');
     writeln('Intelligent, mildly enchanted.');

end;


Procedure reed_peat_cutters;
 begin
     write('People, ');
     dice :=1+Random(5);
     writeln(dice, ' Reed/Peat Cutters');
     writeln;
     writeln('Small group of people cutting reed or peat from near village.');

end;

Procedure rewk;

 begin
     write('Herbs, ');
     dice :=1+Random(4);
     writeln (dice, ' Rewk');
     writeln;
     writeln('This herb heals 2-20 points. You make brew of this herb and drink it.');
     writeln('Herb cost 9 sp and the code is t-D-3.');

end;

Procedure rivermen;

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

end;

Procedure rose_trees;

 begin
     write('Hazards, ');
     dice :=1+Random(4);
     writeln (dice, ' Rose Trees');
     writeln;
     writeln('Brown poisonous spines from tree, causes bleeding.');
     writeln('The code is m-D-3 of cource ROLEMASTER.');

end;

Procedure ruin0;
 begin
     write('You see soon Ruin so roll once at Suza Sumar->Ruin chart!');
 end;

Procedure ruins;
 begin
     write('Sites or Things, ');
     writeln(' Ruins');
     writeln('');
     writeln('You notice ruins, allmost sand/vines are covered it.');
     writeln('You can feel time which is past this');
     writeln('great building. Or new ruins after hostile attack');
     writeln('Sometimes guarded by ghoust and other creatures.');

end;

Procedure rogues;
 begin
     write('People, ');
     dice :=1+Random(4);
     writeln (dice, ' Rogues');
     writeln;
     writeln('Level 2');
     writeln('Hits are 38');
     writeln('AT No/1');
     writeln('DB is 10');
     writeln('Attacks are melee 40sc and missile 30sb.');
     writeln('Movement 10');
     writeln('Beginners pick pockets and so on. Rural and Urban people');

end;

end.