{THIS UNIT IS FOR JUST "EMPTY" PROCEDURES WHICH JUMP TO ANOTHER PROCEDURE}

Unit monster0;

interface

Procedure bandits_brigands;
Procedure bats_grey_flyer;
Procedure bees_hornets;
Procedure birds_of_prey; {golden eagle, screaming harrier,eagles gold red verrin, hawk}
Procedure boars_bears_deer; {bears_black3, deer_dappled, boar_fen}
Procedure crocodiles;
Procedure druedain;
Procedure fish_huge; {wels_large, wels_large?}
Procedure fish_large; {wels, sturgeon}
Procedure fish_medium; {eels, pike}
Procedure gnats_mosquitos;
Procedure insects_swarm; {bees,dumbledoors,neekerbreeker,grey_flyer,hummerhorns,mosquitos,morgai_flies}
Procedure leeches_flukes; {leeches, lampreys}
Procedure mercenaries_brigands;
Procedure nazog_herumor;
Procedure nimfiara_wild_Aurochs;
Procedure orc_body_officers;
Procedure other_flying_creatures;
Procedure otters_minks_rodents; {blue otter, black mink}
Procedure prelaz_bic;
Procedure sand_drake;
Procedure sheep_goats;
Procedure small_reptiles; {Marsh Adder, Nathrach}
Procedure smugglers_rogues;
Procedure snakes_poisonous1; {coireal,nethair or nethraich}
Procedure snakes_poisonous2; {arnathrach, nathrach, marsh adder}
Procedure thieves_brigands;
Procedure thieves_sea_raiders;
Procedure wild_dogs_tykes; {vuk, merisc_tyke}
Procedure wolf_warg;
Procedure wool_grain_carrier;

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


           var

           dice : byte;  {muutuja satunnaisluvulle}


Procedure bandits_brigands;

 begin
     dice :=1+random(99);
     if dice <50 then bandits else brigands;
 end;

Procedure bats_grey_flyer;

 begin
     dice :=1+random(99);
     if dice <50 then bat else grey_flyer;
  end;

Procedure bees_hornets;

 begin
     dice :=1+random(99);
     if dice <50 then bees else hornets;
  end;

Procedure birds_of_prey;

 begin
       randomize;
       dice := 1+Random(99);
        case dice of
        1..20     : eagle_golden;
        21..40    : eagle_red;
        41..60    : eagle_verrin;
        61..80    : hawk;
        81..100   : screaming_harrier;
        end;
 end;

Procedure boars_bears_deer;

 begin
       randomize;
       dice := 1+Random(99);
        case dice of
        1..33     : bears_black3;
        34..66    : deer_dappled;
        67..100   : boar_fen;
        end;
 end;

Procedure druedain;

 begin
     Woses;
  end;

Procedure crocodiles;

 begin
     dice :=1+random(99);
     if dice <50 then crocodiles_small else crocodiles_large;
 end;

Procedure fish_huge;

 begin
     dice :=1+random(99);
     if dice <50 then wels_large else wels_large;
  end;

Procedure fish_large;

 begin
     dice :=1+random(99);
     if dice <50 then sturgeon else wels;
  end;

Procedure fish_medium;

 begin
     dice :=1+random(99);
     if dice <50 then eels else pike;
  end;

Procedure gnats_mosquitos;

 begin
     dice :=1+random(99);
     if dice <50 then gnats else mosquitos;
 end;

Procedure insects_swarm;

 begin
       randomize;
       dice := 1+Random(99);
        case dice of
        1..15     : bees;
        16..30    : dumbledoors;
        31..45    : grey_flyer;
        46..60    : hummerhorns;
        61..75    : neekerbreeker;
        76..85    : morgai_flies;
        86..100   : mosquitos;
        end;
 end;

Procedure leeches_flukes;

 begin
     dice :=1+random(99);
     if dice <50 then leeches else lampreys;
  end;

Procedure mercenaries_Brigands;

 begin
     dice :=1+random(99);
     if dice <50 then Mercenaries else brigands;
  end;

Procedure nazog_herumor;

 begin
     dice :=1+random(99);
     if dice <75 then Nazog else herumor;
  end;

Procedure nimfiara_wild_aurochs;

 begin
     dice :=1+random(99);
     if dice <50 then nimfiara else wild_aurochs;
  end;

Procedure orc_body_officers;

 begin
     dice :=1+random(99);
     if dice <25 then orc_officers else orc_bodyguards;
  end;

Procedure other_flying_creatures;

 begin
       randomize;
       dice := 1+Random(99);
        case dice of
        1..20     : goose;
        21..40    : gorcrows1;
        41..60    : hopta;
        61..80    : jatewoone;
        81..100   : owl_short_eared;
        end;
 end;

Procedure otters_minks_rodents;

 begin
     dice :=1+random(99);
     if dice <50 then blue_otter else black_mink;
  end;


Procedure prelaz_bic;

 begin
       randomize;
       dice := 1+Random(99);
        case dice of
        1..33     : prelaz_bic_young;
        34..66    : prelaz_bic_mature;
        67..100   : prelaz_bic_old;
        end;
 end;

Procedure sand_drake;

 begin
       randomize;
       dice := 1+Random(99);

        case dice of
        1..33     : sand_drake_young;
        34..66    : sand_drake_mature;
        67..100   : sand_drake_old;
        end;
 end;

Procedure sheep_goats;

 begin
     dice :=1+random(99);
     if dice <50 then sheep else goats_mountain;
  end;

Procedure small_reptiles;

 begin
     dice :=1+random(99);
     if dice <50 then marsh_adders else nathrach;
  end;

Procedure smugglers_rogues;

 begin
     dice :=1+random(99);
     if dice <50 then smugglers else rogues;
  end;

Procedure snakes_poisonous1;

 begin
       randomize;
       dice := 1+Random(99);

        case dice of
        1..33     : Coireal;
        34..66    : Nethair;
        67..100   : Nethraich;
        end;
 end;

Procedure snakes_poisonous2;

 begin
       randomize;
       dice := 1+Random(99);

        case dice of
        1..10     : Arnathrach;
        11..50    : Nathrach;
        51..100   : Marsh_adders;
        end;
 end;

Procedure thieves_brigands;

 begin
     dice :=1+random(99);
     if dice <50 then thieves else brigands;
  end;

Procedure thieves_sea_raiders;

 begin
     dice :=1+random(99);
     if dice <50 then thieves else sea_raiders;
  end;

Procedure wild_dogs_tykes;

 begin
     dice :=1+random(99);
     if dice <50 then vuk else merisc_tyke;
  end;

Procedure wolf_warg;

 begin
     dice :=1+random(99);
     if dice <50 then wolves else warg;
  end;

Procedure wool_grain_carrier;

 begin
     dice :=1+random(99);
     if dice <50 then wool_carrier else grain_carrier;
  end;

end.