crappy high school rpg

program moreNewerestRpg (input,output);
uses wincrt,randUnit,monDecl,sunit;
type ItemData = record
                   ItemNum: integer;
                   ItemName: string;
                  end;
     skill = array [1..6] of string;
     pack = array [1..20] of ItemData;
     skillDes = array [1..6] of string;

     runes=array [1..4] of integer;
label gamestart;
var runestones:runes;
var skills:skill;
var items:pack;
var maxstrength,maxdefense,speed,defense,strength,hp,mp,maxhp,maxmp,tetra,fire,ice:integer;
var lightning,intelligence,wisdom,fireDef,iceDef,lightningDef,damage:integer;
var class1,name,race,discipline:string;
var level,exp,gainedexp,skilluse,dummy:integer;
var describe:skillDes;
    beastName: string;
    beastMagStr:integer;
    beastStrength:integer;
    beastDefense:integer;
    beasthp:integer;
    beastElement:string;
    expGiven1:integer;

    genericA:char;

procedure a16;forward;
procedure a17;forward;
procedure a18;forward;
procedure a19;forward;
procedure a20;forward;
procedure b15;forward;
procedure b16;forward;
procedure b17;forward;
procedure b18;forward;
procedure b19;forward;
procedure b20;forward;
procedure c15;forward;
procedure c16;forward;
procedure c17;forward;
procedure c18;forward;
procedure c19;forward;
procedure c20;forward;
procedure d15;forward;
procedure d16;forward;
procedure d17;forward;
procedure d18;forward;
procedure d19;forward;
procedure d20;forward;
procedure d21;forward;
procedure e15;forward;
procedure e16;forward;
procedure e17;forward;
procedure e18;forward;
procedure e19;forward;
procedure e20;forward;
procedure e21;forward;
procedure f15;forward;
procedure f16;forward;
procedure f17;forward;
procedure f18;forward;
procedure f19;forward;
procedure f20;forward;
procedure f21;forward;
procedure f22;forward;
procedure g15;forward;
procedure g16;forward;
procedure g17;forward;
procedure g18;forward;
procedure g19;forward;
procedure g20;forward;
procedure g21;forward;
procedure g22;forward;
procedure g23;forward;
procedure h15;forward;
procedure h16;forward;
procedure h17;forward;
procedure h18;forward;
procedure h19;forward;
procedure h20;forward;
procedure h21;forward;
procedure h22;forward;
procedure h23;forward;
procedure h24;forward;
procedure h25;forward;
procedure h26;forward;
procedure i15;forward;
procedure i16;forward;
procedure i17;forward;
procedure i18;forward;
procedure i19;forward;
procedure i20;forward;
procedure i21;forward;
procedure i22;forward;
procedure i23;forward;
procedure i24;forward;
procedure i25;forward;
procedure i26;forward;
procedure initializeSkills;forward;
procedure chooseClass;forward;
procedure disciplineChoose;forward;
procedure final;forward;


{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||||||||||||||||||||||||char creation and engines||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}

procedure levelup;
begin
exp:=exp+expGiven1;
if (exp=level*500) then
begin
     strength:=strength+1;
     defense:=defense+1;
     maxstrength:=maxstrength+1;
     maxdefense:=maxdefense+1;
     tetra:=tetra+2;
     fire:=fire+1;
     ice:=ice+1;
     lightning:=lightning+1;
     maxhp:=maxhp+10;
     maxmp:=maxmp+7;
     fireDef:=fireDef+2;
     iceDef:=iceDef+2;
     lightningDef:=lightningDef+2;
writeln ('YOU LEVELED UP!');
writeln ('Strength:',strength);
writeln ('Defense:',defense);
if discipline='tetra' then writeln ('Tetra:',tetra);
if discipline='ice' then writeln ('Ice:',ice);
if discipline='fire' then writeln ('Fire:',fire);
if discipline='lightning' then writeln ('Lightning:',lightning);
writeln ('Firedef:',fireDef);
writeln ('Icedef:',iceDef);
writeln ('Lightningdef:',lightningDef);
readln;
clrscr;
end;
end;

procedure save;
var f:text;
begin
assign (f,'c:\save.sav');
rewrite (f);
writeln (f,hp);
writeln (f,mp);
writeln (f,maxhp);
writeln (f,maxmp);
writeln (f,strength);
writeln (f,defense);
writeln (f,maxstrength);
writeln (f,maxdefense);
writeln (f,speed);
writeln (f,level);
writeln (f,exp);
for generic:=1 to 20 do;
begin
writeln (f,items[generic].itemName);
end;
for generic:=1 to 20 do;
begin
writeln (f,items[generic].itemNum);
end;
for generic:=1 to 6 do
begin
writeln (f,skills[generic]);
end;
writeln (f,fire);
writeln (f,ice);
writeln (f,tetra);
writeln (f,lightning);
writeln (f,wisdom);
writeln (f,intelligence);
writeln (f,fireDef);
writeln (f,iceDef);
writeln (f,lightningDef);
for generic:=1 to 6 do
begin
writeln (f,describe[generic]);
end;
writeln (f,class1);
writeln (f,discipline);
writeln (f,race);
writeln (f,name);

close (f);
writeln ('SAVE COMPLETE');
readln;
clrscr;
end;


procedure load;
var f:text;
begin
assign (f,'c:\save.sav');
{$I-}
reset (f);
{$I+}
If IOResult <> 0 Then
     Begin
          WriteLn('ERROR: File Not found! (save.sav)');
          readln;
          Exit;
     End;


readln (f,hp);
readln (f,mp);
readln (f,maxhp);
readln (f,maxmp);
readln (f,strength);
readln (f,defense);
readln (f,maxstrength);
readln (f,maxdefense);
readln (f,speed);
readln (f,level);
readln (f,exp);
for generic:=1 to 20 do;
begin
readln (f,items[generic].itemName);
end;
for generic:=1 to 20 do;
begin
readln (f,items[generic].itemNum);
end;
for generic:=1 to 6 do
begin
readln (f,skills[generic]);
end;
readln (f,fire);
readln (f,ice);
readln (f,tetra);
readln (f,lightning);
readln (f,wisdom);
readln (f,intelligence);
readln (f,fireDef);
readln (f,iceDef);
readln (f,lightningDef);
for generic:=1 to 6 do
begin
readln (f,describe[generic]);
end;
readln (f,class1);
readln (f,discipline);
readln (f,race);
readln (f,name);

close (f);
writeln ('LOAD COMPLETE');
readln;
clrscr;

end;

procedure beastturn;
begin
if beasthp>0 then
                    begin
                    random2;
                     if generic=1 then
                        begin
                         if beaststrength>defense then
                         begin
                         randomDam;
                      damage:=(beaststrength-defense)+rand;
                      writeln ('the beast hits you!');
                      if (rand=8) or (rand=9) or (rand=10) then begin
                         damage:=damage*2;
                         writeln ('CRITICAL HIT!');
                         readln;
                         end;
                      hp:=hp-damage;
                         if hp<0 then hp:=0;
                         writeln ('your hp:',hp);
                         end;
                         if beaststrength<defense then
                         begin
                         writeln ('beast deals no damage');
                         end;
                         readln;
                         clrscr;
                        end;
                     if generic=2 then
                     begin
                          if beastElement='fire' then
                           begin
                            writeln ('The beast attacks with flame magic!');
                            hp:=hp-(beastMagstr-fireDef);
                           if hp<0 then hp:=0;
                           writeln ('hp:',hp);
                           readln;
                           clrscr;
                           end;
                          if beastElement='ice' then
                           begin
                            writeln ('The beast attacks you with ice magic!');
                            hp:=hp-(beastMagstr-iceDef);
                           if hp<0 then hp:=0;
                           writeln ('hp:',hp);
                           readln;
                           clrscr;
                           end;
                          if beastElement='lightning' then
                           begin
                            writeln ('The beast uses lightning magic!');
                            hp:=hp-(beastMagstr-lightningDef);
                           if hp<0 then hp:=0;
                           writeln ('hp:',hp);
                           readln;
                           clrscr;
                           end;

                    end;
                    end;
                    end;







procedure specialTechlev2;
begin
end;

procedure specialTechlev3;
begin
end;

procedure specialTechlev4;
begin
end;

procedure specialTechlev5;
begin
end;

procedure specialTechlev6;
begin
end;

procedure specialTechlev1;
begin
if skilluse=2 then
begin
writeln ('you have already used your special technique this fight!');
end;
if skilluse=1 then
begin;
skilluse:=2;
writeln (describe[1]);
if class1='elemental' then
begin
mp:=mp-10;
writeln ('you expended 10 mp');
writeln ('mp left:',mp);
skilluse:=1;
end;
beasthp:=beasthp-((intelligence+strength)-beastDefense);
if beasthp<0 then beasthp:=0;
writeln ('beast''s hp:',beasthp);
end;
end;

procedure UsePotion;
begin
if items[generic].ItemNum>0 then
begin
writeln ('you regain 50 hp!');
items[generic].ItemNum:=items[generic].ItemNum-1;
hp:=hp+50;
if hp>maxhp then hp:=maxhp;
end;
if (items[generic].ItemNum <= 0) then
begin
items[generic].ItemName:=' ';
items[generic].ItemNum:=dummy;
end;
end;

procedure UseElixir;
begin
if items[generic].ItemNum>0 then
begin
writeln ('you gain 20 hp and mp!');
hp:=hp+20;
mp:=mp+20;
if hp>maxhp then hp:=maxhp;
if mp>maxmp then mp:=maxmp;
end;
if items[generic].ItemNum<1 then
begin
items[generic].ItemName:=' ';
items[generic].ItemNum:=dummy;
end;
end;

procedure UseEther;
begin
if items[generic].ItemNum>0 then
begin
writeln ('you gain 20 mp!');
mp:=mp+20;
if mp>maxmp then mp:=maxmp;
end;
if items[generic].ItemNum<1 then
begin
items[generic].ItemName:=' ';
items[generic].ItemNum:=dummy;
end;
end;

procedure BattleEngine;
begin
writeln ('The wicked beast ',beastname,' attacks.  Defend yourself in battle!');
skilluse:=1;
repeat
begin
     writeln('*************>ACTION SELECT<***************');
     writeln('1-attack,2-skills,3-item');
     readln (generic);
     case generic of
          1:begin
                 random2;

                     if rand2=1 then
                        begin
                             writeln ('you missed!');
                             readln;
                             clrscr;
                             beastturn;
                        end;
                    if (rand2=2) or (rand2=3) then
                 begin
                      if strength>beastdefense then
                      begin
                      randomDam;
                      damage:=(strength-beastdefense)+rand;
                      writeln ('you attack the beast');
                      if (rand=10) or (rand=9) or (rand=8) then begin
                         damage:=damage*2;
                         writeln ('CRITICAL HIT!');
                         readln;
                         end;
                      beasthp:=beasthp-damage;
                      if beasthp<0 then beasthp:=0;
                      writeln ('the monster''s hp:',beasthp);
                      beastturn;
                      end;
                      if strength<beastdefense then
                      begin
                      writeln ('no damage');
                      beastturn;
                      end;
                      readln;
                      clrscr;

                 end;
                 end;

          2:begin
                 writeln ('choose a tech level');
                 writeln ('1:',skills[1]);
                 for generic:=2 to 6 do
                     if not (skills[generic]=' ') then writeln (generic,':',skills[generic]);
                 readln (generic);
                 case generic of
                      1:specialTechlev1;
                      2:specialTechlev2;
                      3:specialTechlev3;
                      4:specialTechlev4;
                      5:specialTechlev5;
                      6:specialTechlev6;
                 end;
                  beastturn;
     end;
     3:begin
            generic:=1;
            repeat


                     writeln (generic,'-',items[generic].ItemName,':',items[generic].ItemNum);
                     generic:=generic+1;
            until (items[generic].ItemName=' ');
     readln (generic);
     if items[generic].ItemName='Potion' then UsePotion;
     if items[generic].ItemName='Ether' then UseEther;
     if items[generic].ItemName='Elixir' then UseElixir;
       if beasthp>0 then
                    begin
                    beastturn;
       end;
     end;
  end;
  end;

  until (beasthp<1) or (hp<1);
  if (beasthp<1) then levelup;
  if (hp<1) then donewincrt;
  end;


procedure raceChoose; (*creates a character's race*)
begin
writeln ('*****************************************');
writeln ('#############Race Selection##############');
writeln ('*****************************************');
writeln ('welcome to the character creation menu');
writeln ('your choices here will effect the overall effectiveness of your game character!');
writeln ('please choose a race:');
writeln ('1-Elf,2-Man,3-HalfElven,4-BeastMan'); {chooses race}
readln (generic);
       case generic of
            1:begin
              race:='elf'; {sets race and basic race stats}
              maxhp:=100;
              hp:=maxhp;

              maxstrength:=5;
              maxdefense:=5;
              defense:=maxdefense;
              strength:=maxstrength;
              speed:=15;
              fire:=15;
              ice:=15;
              lightning:=15;
              fireDef:=15;
              iceDef:=15;
              lightningDef:=15;
              intelligence:=15;
              wisdom:=15;
            end;
            2:begin
                   maxhp:=50;
                   hp:=maxhp;
                   race:='Man';
                   maxstrength:=10;
                   maxdefense:=10;
                   defense:=maxdefense;
                   strength:=maxstrength;
                   speed:=7;
                   fire:=10;
                   ice:=10;
                   lightning:=10;
                   intelligence:=20;
                   wisdom:=2;
                   fireDef:=10;
              iceDef:=10;
              lightningDef:=10;
              end;
            3:begin
                   race:='HalfElven';
                   maxhp:=75;
                   hp:=maxhp;
                   maxstrength:=10;
                   maxdefense:=10;
                   speed:=13;
                   ice:=14;
                   fire:=12;
                   lightning:=13;
                   intelligence:=15;
                   wisdom:=15;
                   fireDef:=13;
              iceDef:=13;
              lightningDef:=13;

             end;
             4:begin
                    race:='BeastMan';
                    maxhp:=45;
                    hp:=maxhp;
                    maxstrength:=20;
                    maxdefense:=15;
                    defense:=maxdefense;
                    strength:=maxstrength;
                    speed:=17;
                    ice:=0;
                    lightning:=0;
                    fire:=0;
                    wisdom:=0;
                    intelligence:=25;
                    fireDef:=0;
              iceDef:=0;
              lightningDef:=0;
              end;
         end;

end;

procedure initializeSkills;{initializes the skills array}
begin
for generic:=1 to 6 do
    skills[generic]:=' ';
end;

procedure chooseClass;
begin                  {chooose your class}
writeln ('*************************************************');
writeln ('###############Class Selection###################');
writeln ('*************************************************');
writeln ('here you will choose the type of fighter your character will be');
writeln ('1-warrior,2-archer,3-elemental');
readln (generic);
      case generic of
           1:begin
                  class1:='warrior';
                  maxstrength:=maxstrength+5;
                  maxdefense:=maxdefense+5;      {sets class and stats}
                  speed:=speed-2;
             end;
           2:begin
                  class1:='archer';
                  speed:=speed+3;
                  intelligence:=intelligence+3;
             end;
           3:begin
                  class1:='elemental';
                  wisdom:=wisdom+4;
                  fireDef:=fireDef+2;
              iceDef:=iceDef+2;
              lightningDef:=lightningDef+2;
             end;
end;
end;

procedure disciplineChoose;              {choose discipline(affects skills and elemental stats)}
begin
writeln ('********************************************');
writeln ('##############Select Discipline#############');
writeln ('********************************************');
writeln ('here you must choose the specific discipline that you practice within your class');
if class1='warrior' then
begin
     writeln ('1-brute,2-strategist');
     readln (generic);
     case generic of
          1:begin
                 discipline:='brute';
                 skills[1]:='hammersmash';
          describe[1]:='You charge toward your opponent, right hand wrapped around left fist. You leap into the air and '+
          'smash your clublike pair of hands straight into the enemy''s skull!';

            end;
          2:begin
                 discipline:='strategist';
                 skills[1]:='dash';
                 describe[1]:='You run as fast as you can, building up speed for an attack. '+
                 'You hear a sonic boom just as you hit your opponent.  The air can be heard '+
                 'leaving their lungs with the speed of a hurricane.';

            end;
     end;
end;
if class1='archer' then
begin
     writeln ('you cannot choose a special discipline for this type of character');
     class1:='archer';
     skills[1]:='snipe';
     describe[1]:='You sneak away quietly, and climb a tree.  As you take aim, your oppononent '+
     'is blissfully unaware of it''s impendending doom. You fire a direct hit!';

end;
if class1='elemental' then
begin
maxmp:=50 ;
mp:=maxmp;
writeln ('you may be a 1-fire,2-ice,3-lightning,4-TETRA elemental');
readln (generic);
       case generic of
            1:begin
                   discipline:='fire';
                   fire:=fire+10;
                   skills[1]:='fireball';
              iceDef:=iceDef+3;
              lightningDef:=lightningDef-5;
              describe[1]:='your fingertips glow red as your chant begins.'+
              'a small flame flickers into life on you fingertips. '+
              'you smile as you are now holding '+
              'a large ball of fire. "FIREBALL" is the last word of your chant as you fling '+
              'it at your enemy!';
              end;
            2:begin
                   discipline:='ice';
                   ice:=ice+10;
                   skills[1]:='crystal crosses';
                   fireDef:=fireDef-5;
              lightningDef:=lightningDef+3;
              describe[1]:='Beautiful crosses of ice begin to form on your fingertips. '+
              'an ancient Ice mage''s incantations allow you to cast this spell.  the '+
              'final phrases of the spell leave you lips "Deadly Beauty, CRYSTAL CROSSES!'+
              'the ice flies towards your opponent, cutting it up and down.  as the wounds close '+
              'the ice begins to melt. the intricate designs so evident a moment ago, become '+
              'like every other snowflake when heated, water.';
              end;
            3:begin
                   discipline:='lightning';
                   lightning:=lightning+10;
                   skills[1]:='bolt blade';
                   fireDef:=fireDef+3;
              iceDef:=iceDef-5;
              describe[1]:='a flash of lightning rents the sky apart. yours is the raw power '+
              'of nature''s most deadly creation.  The blade of the sky hurtles towards earth, '+
              'piercing the heart of your opponent.';
              end;
            4:begin
                   discipline:='tetra';
                   lightning:=lightning+5;
                   fire:=fire+5;
                   ice:=ice+5;
                   tetra:=45;
                   skills[1]:='Grand blade of Gaia';
                   describe[1]:='the earth raises a mighty jagged crag of rock for your.  lightining '+
                   'pours from the sky, carving it into a perfect blade.  as gaia''s warrior '+
                   'you use your magic to wield it.  you strike your opponent with the might of '+
                   'the mother of all.';

              end;
         end;

end;
end;

procedure final;
begin
level:=1;
writeln ('finally, name your character!');
readln (name);
write (name, ', the ',discipline,' ',class1,' level ',level,' of the ');
if race = 'Man'
then writeln ('men.');
if race = 'elf'
then writeln ('elves.');
if race = 'HalfElven'
then writeln ('half-elves.');
if race = 'BeastMan'
then writeln ('beast-men.');
writeln ('HP:',hp);
writeln ('MP:',mp);
writeln ('maxstrength:',maxstrength);
writeln ('maxdefense:',maxdefense);
writeln ('Speed:',speed);
writeln ('Intelligence:',intelligence);
writeln ('Wisdom:',wisdom);
writeln ('elemental stats:');
writeln ('strength-Fire:',fire,' Ice:',ice,' Lightning:',lightning);
if discipline='tetra' then writeln ('TetraElemental strength:',tetra);
writeln ('your beginner''s skill is:',skills[1]);
readln;
clrscr;
end;


{(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)
(*)(*)(*)(*)(*)AREAS(*)(*)(*)(*)(*)(*)(*)(*)(*)(*)}
procedure castle;
begin

minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
BattleEngine;

writeln ('Thou dost standeth in a venerable castle, but all be barred to thee but the gates!');
writeln ('The castle doth be the home of thine father, who thou verily forsook to seek thine destiny.');
writeln ('To the north thine see but impassable forest, to the west, an infinite plain.');
writeln ('to the south, an aged canyon beyond scope of time, to the east, the high mountain, sentinal of the land.');
genericA:=readkey;
case genericA of
     'n':begin
              writeln ('I toldest thee that ''twas impassable, thou fool! It would do thee well to listen to thine');
              writeln ('narrators! now try again! <presseth RETURN>');
              readln;
              clrscr;
              castle;
         end;
     's':begin
         if (runestones[1]=2) and (runestones[2]=2) then
            begin
                 writeln ('This way beeth sealed to one so inexperienced!');
                 readln;
                 clrscr;
                 castle;
            end;
         if (runestones[1]=1) and (runestones[1]=1) then
            begin
                 clrscr;
                 {j16}castle;

            end;
         end;
     'e':begin
            if (runestones[1]=2) then
             begin
                  writeln ('Thou art barred from this path, for thou knoweth not the strength!');
                  readln;
                  clrscr;
                  castle;
             end;
            if (runestones[1]=1) then
            begin
                 clrscr;
                 {k15}castle;

            end;
         end;
     'w':begin
              begin
              clrscr;
              i15;

              end;
         end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                  writeln ('thou art not even typing proper letters moron!');
                                                  readln;
                                                  clrscr;
                                                  castle;
                                                  end;
end;
end;

procedure e21;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you dip your feet in the cool ocean.  youd drink, but you just stuck your nasty feet in there!');
writeln ('you can go north east and west');
genericA:=readkey;
clrscr;
case genericA of
     'n':e20;
     's':begin
                                                                writeln ('cant go there');
                                                                readln;
                                                                clrscr;
                                                                e21;
                                                           end;
     'e':f21;
     'w':d21;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                e21;
                                                           end;
end;
end;


procedure i15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('Thou art standing in a vast plains.  The north be impassable due to the');
writeln ('large forest that doth dwellest there.  east be the castle, that thou');
writeln ('once lived in.  to the west be more plains, and the same to the south!');
genericA:=readkey;
case genericA of
     'n':begin
              writeln ('I toldeth thee ''twas not passable!  listen to thine narrators!');
              readln;
              clrscr;
              i15;
     end;
     's':begin
              clrscr;
              i16;
     end;
     'e':begin
              clrscr;
         castle;
         end;
     'w':begin
              clrscr;
              h15;
     end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('thou art not typing sense!');
                                                                readln;
                                                                clrscr;
                                                                i15;
                                                                end;
end;
end;

procedure h15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('You stand in an area of vast plains.  You feel a great calm sweep over you as');
writeln ('you stand on the threshold of the world.  To the north is an entrance to a great');
writeln ('forest but it is blocked by a giant log, to the east west and south is more plains.');
genericA:=readkey;
clrscr;
case genericA of
     'n':{h14}h15;
     's':h16;
     'e':i15;
     'w':g15;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('thou art not typing sense!');
                                                                readln;
                                                                clrscr;
                                                                h15;
                                                            end;
end;
end;

procedure f15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('The plains truly earn their name of Infinite Pasture, since you cannot see');
writeln ('anything but grass and flowers for miles.  Plains extend in all directions.');
writeln ('list directions available');
genericA:=readkey;
clrscr;
case genericA of
     'n':{f14}f15;
     's':f16;
     'e':g15;
     'w':e15;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('Thou art not too bright, art thou?');
                                                                readln;
                                                                clrscr;
                                                                f15;
                                                           end;
end;
end;

procedure e15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('You hear the wind gently blowing through the grass.  The sound and sensations of the');
writeln ('field very calming.  All directions lead to plains!');
genericA:=readkey;
clrscr;
case genericA of
     'n':{e14}E15;
     's':e16;
     'e':f15;
     'w':d15;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('thou art a frickin'' idiot!');
                                                                readln;
                                                                clrscr;
                                                                e15;
                                                           end;
end;
end;

procedure d15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('In the very far distance thou can see a town (it lies west).  all other directions are more plains!');
genericA:=readkey;
clrscr;
case genericA of
     'n':{d14}d15;
     's':d16;
     'e':e15;
     'w':c15;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('stupid fool, you are an idiot!');
                                                                readln;
                                                                clrscr;
                                                                d15;
                                                           end;
end;
end;

procedure c15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('The town in the west grows closer.  Again the plains envelop thee.');
genericA:=readkey;
clrscr;
case genericA of
     'n':{c14}c15;
     's':c16;
     'e':d15;
     'w':b15;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('thou art an idiot, type real letters!');
                                                                readln;
                                                                clrscr;
                                                                c15;
                                                           end;

end;
end;

procedure b15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('You stand at the gate to a small village, which seems to have been burnt to the ground.  The');
writeln ('Necromancer''s symbol lies at the gate.  this is his work.  all other directions are plains.');
genericA:=readkey;
clrscr;
case genericA of
     'n':{b14}b15;
     's':b16;
     'e':c15;
     'w':{portGate}b15;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('Type sense pitious knave!');
                                                                readln;
                                                                clrscr;
                                                                b15;
                                                           end;
end;
end;

procedure k15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('You stand on the eastern end of the castle.  the eastern path is cut off by river, and the north by');
writeln ('forest, the west goes back to the castle, and the south follows the river''course.');
writeln ('list directions available');
genericA:=readkey;
clrscr;
case genericA of
     'n':begin
              writeln ('told ya it was impassable');
              k15;
              end;
     's':{k16}k15;
     'e':begin
              writeln ('told ya it was impassable');
              k15;
              end;
     'w':castle;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('type sense fool!');
                                                                k15;
                                                                end;
end;
end;

procedure m15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('you stand on a rocky mountain, chilly from the thin air. only the north and south are passable.');
writeln ('list directions available');
genericA:=readkey;
clrscr;
case genericA of
     'n':{m14}m15;
     's':{m16}m15;
     'e':begin writeln ('cannot pass');
               m15;
               end;
     'w':begin
              writeln ('cannot pass');
              m15;
              end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                m15;
                                                           end;
end;
end;

procedure n15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('you are on a jutting ledge of the mountain.  you can only go east.');
genericA:=readkey;
clrscr;
case genericA of
     'n':begin writeln ('nope'); n15; end;
     's':begin writeln ('nope'); n15; end;
     'e':{o15}n15;
     'w':begin writeln ('nope'); n15; end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                n15;
                                                                end;
end;
end;

procedure o15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('Thou stand upon a rocky mountain path.  to the west a large rock juts out of the face of the mountain.');
writeln ('the north and south continue the mountain path, while the east cannot be passed, though you can see the');
writeln ('road over a ridge.');
genericA:=readkey;
clrscr;
case genericA of
     'n':{o14}o15;
     's':{o16}o15;
     'e':begin; writeln ('tis not passable'); readln; clrscr; o15; end;
     'w':n15;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                o15;
                                                                end;
end;
end;

procedure p15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('you still stand on the mountainside, surrounded by rocks and naught else.  thou may travel north and');
writeln ('south, but the east and west are too steep for travel.');
genericA:=readkey;
clrscr;
case genericA of
     'n':{p14}p15;
     's':{p16}p15;
     'e':begin
              writeln ('tis too steep for a knave like you!');
              readln;
              clrscr;
              p15;
         end;
     'w':begin
              writeln ('tis too steep for a knave like you!');
              readln;
              clrscr;
              p15;
         end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                p15;
                                                                end;
end;
end;

procedure q15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('still standing on the mountain, thou can see a town precariously balanced on the top of the mountain.  they');
writeln ('seem to have found a way to live up here.  To the north is path, and east leads to the village.');
genericA:=readkey;
clrscr;
case genericA of
     'n':{q14}q15;
     's':begin
              writeln ('tis not passable for mortal men!');
              readln;
              clrscr;
              q15;
         end;
     'e':{r15}q15;
     'w':begin
              writeln ('tis not passable for mortal men!');
              readln;
              clrscr;
              q15;
         end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                q15;
                                                           end;
end;
end;

procedure r15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('you stand on the edge of the mountain town.  it is a small wonder of itself that it can sit so well on the');
writeln ('top of the peak.  The town gate lies east, and the path back down the mountain is west. there are');
writeln ('lookouts to the north and south!');
genericA:=readkey;
clrscr;
case genericA of
     'n':{r14}r15;
     's':{r16}r15;
     'e':{voltaraGate}r15;
     'w':q15;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                r15;
                                                           end;
end;
end;

procedure h26;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('You are standing on the shoreline, with your feet in the water, the ocean stretches on forever it seems.');
writeln ('the north and east are both passable, being part of the plains.  It would seem that you don''t want to go');
writeln ('though, because the water is so soothing!');
genericA:=readkey;
clrscr;
case genericA of
     'n':h25;
     's':begin
              writeln ('tis not a real letter fool!');
              readln;
              clrscr;
              h26;
         end;
     'e':i26;
     'w':begin
              writeln ('tis not a real letter fool!');
              readln;
              clrscr;
              h26;
         end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h26;
                                                           end;
end;
end;

procedure i26;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('You stand in the infinite plains, on the very edge of the sparkling sea.  a school of dolphins leaps into the');
writeln ('air and flies away!  the north and the west lead to more plains, but the other directions lead nowhere');
genericA:=readkey;
clrscr;
case genericA of
     'n':i25;
     's':begin
              writeln ('i told thou knave twas impassable!');
              readln;
              clrscr;
              i26;
         end;
     'e':begin
              writeln ('i told thou knave twas impassable!');
              readln;
              clrscr;
              i26;
         end;
     'w':h26;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i26;
                                                           end;
end;
end;

procedure i25;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('Thou art in the most expansive portion of the infinite pastures.  the grasses here are beautiful blues and');
writeln ('greens!  you see a herd of jackalope in the distance.  Thou may go north, south or west');
genericA:=readkey;
clrscr;
case genericA of
     'n':i24;
     's':i26;
     'e':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i25;
                                                           end;
     'w':h25;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i25;
                                                           end;
end;
end;

procedure h25;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('You stand on the shore of the ocean, on the edge of the infinite plain.  the sparkling water feels cool on');
writeln ('your feet.  You may go north south or east.');
genericA:=readkey;
clrscr;
case genericA of
     'n':h24;
     's':h26;
     'e':i25;
     'w':begin
              writeln ('that is not a legal direction fool!');
              readln;
              clrscr;
              h25;
         end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h25;
                                                           end;
end;
end;

procedure h24;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('You are standing on a sandy beach.  The sand is warm beneath you,');
writeln('but you regret that you must move on (there are girls in ');
writeln ('bikinis!). the north, the south, and the east are available!');
genericA:=readkey;
clrscr;
case genericA of
     'n':h23;
     's':h25;
     'e':i24;
     'w':begin
              writeln ('Not passable');
              readln;
              clrscr;
              h24
         end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h24;
                                                           end;
end;
end;

procedure i24;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('You are standing on a cliff, just above the famous Rune Canyon.  You can go North, South, or West.');
genericA:=readkey;
clrscr;
case genericA of
     'n':i23;
     's':i25;
     'e':begin
              writeln ('What were you thinking? Now your Dead!');
              readln;
              clrscr;
              writeln ('Just Kidding!');
              readln;
              clrscr;
              i24;
         end;
     'w':h24;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h24;
                                                           end;
end;
end;

procedure i23;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;

writeln ('thou art on the infinite pasture.  you grow weary of this endless grass.  the cute');
writeln ('animals begin to look delicious.  the only thing cute you wanna see is a girl!');
writeln ('you may go off to the north, south, and west');
genericA:=readkey;
clrscr;
case genericA of
     'n':i22;
     's':i24;
     'e':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i23;
                                                           end;
     'w':h23;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i23;
                                                           end;
end;
end;

procedure h23;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('The wind in the grass seems relaxing, but you know there is no time to laze about.');
writeln ('You get you rbearings and determine that all four compass directions can be traveled in.');
genericA:=readkey;
clrscr;
case genericA of
     'n':h22;
     's':h24;
     'e':i23;
     'w':g23;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h23;
                                                           end;
end;
end;

procedure g23;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('You let your feet cool in the calm ocean waters.  the sea is so beautiful on the plain.');
writeln ('You stand to head off.  you may go north and east.');
genericA:=readkey;
clrscr;
case genericA of
     'n':g22;
     's':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                g23;
                                                           end;
     'e':h23;
     'w':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                g23;
                                                           end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                g23;
                                                           end;
end;
end;

procedure f22;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('Though the ocean''s shores are beautiful, but no people come here to enjoy it.');
writeln ('the north and the east are travelable.');
genericA:=readkey;
clrscr;
case genericA of
     'n':f21;
     's':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                f22;
                                                           end;
     'e':g22;
     'w':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                f22;
                                                           end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                f22;
                                                           end;
end;
end;

procedure g22;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('the sands of the ocean meet the grasses of the pasture about here.  you can feel the');
writeln ('cool ocean breeze sweeping inland.  all directions may be traveled.');
genericA:=readkey;
clrscr;
case genericA of
     'n':g21;
     's':g23;
     'e':h22;
     'w':f22;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                g22;
                                                           end;
end;
end;

procedure h22;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('Here there is a spot on the ground that shows no sign of vegetation.  Such a patch');
writeln ('of dirt here is quite unusual.  all directions can be taken.');
genericA:=readkey;
clrscr;
case genericA of
     'n':h21;
     's':h23;
     'e':i22;
     'w':g22;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h22;
                                                           end;
end;
end;

procedure i22;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('You''re standing on the very edge of a high canyon wall, which creates a sheer drop to');
writeln ('the east.  you may go in any direction but that.');
genericA:=readkey;
clrscr;
case genericA of
     'n':i21;
     's':i23;
     'e':begin
              writeln ('tis not a real letter fool!');
              readln;
              clrscr;
              i22;
         end;
     'w':h22;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i22;
                                                           end;
end;
end;

procedure i21;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('The desert-like canyon and the Infinite Pasture merge here seamlessly.  there is a');
writeln ('sheer dropoff to the east that prevents travel in that direction, but the other');
writeln ('paths are travelable.');
genericA:=readkey;
clrscr;
case genericA of
     'n':i20;
     's':i22;
     'e':begin
              writeln ('I pity th'' foo who try ta go dat way!');
              readln;
              clrscr;
              i21;
         end;
     'w':h21;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i21;
                                                           end;
end;
end;

procedure i20;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('The canyon to the east extends a great way north and south, and effectively cuts the');
writeln ('world in half.  you cannot travel east, but the other directions seem clear.');
genericA:=readkey;
clrscr;
case genericA of
     'n':i19;
     's':i21;
     'e':begin
              writeln ('You cannot go in that direction. LISTEN!');
              readln;
              clrscr;
              i20;
         end;
     'w':h20;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i20;
                                                           end;
end;
end;

procedure g15;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you stand on the well-beaten path between the port city and the castle.');
writeln ('the full complement of directions are available.');
genericA:=readkey;
clrscr;
case genericA of
     'n':{h14}g15;
     's':i16;
     'e':h15;
     'w':f15;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i22;
                                                           end;
end;
end;

procedure i19;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln('There is a small circle of stones here. someone must have spent the night a while ago,');
writeln('since there is a large pile of gray ashes in the circle.  You cannot go east.');
genericA:=readkey;
clrscr;
case genericA of
     'n':i18;
     's':i20;
     'e':begin
              writeln ('tis not a real letter fool!');
              readln;
              clrscr;
              i19;
         end;
     'w':h19;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i22;
                                                           end;
end;
end;

procedure i18;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('in the distance, to the north, you can see the tiny blot on the skyline that is the');
writeln ('castle.  it''s amazing how small it looks from here!  You cannot go east.');
genericA:=readkey;
clrscr;
case genericA of
     'n':i17;
     's':i19;
     'e':begin
              writeln ('i just told you you can''t go this way!');
              readln;
              clrscr;
              i18;
         end;
     'w':h18;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i18;
                                                           end;
end;
end;

procedure i17;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('the canyon to the east is not as deep here, but a jump down there would still kill');
writeln ('you. obviously you cannot go east.');
genericA:=readkey;
clrscr;
case genericA of
     'n':i16;
     's':i18;
     'e':begin
              writeln ('not that way!');
              readln;
              clrscr;
              i17;
         end;
     'w':h17;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i17;
                                                           end;
end;
end;

procedure i16;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('straight to the northeast lies the castle.  sadly, the builders of the ancient roads.');
writeln ('only built in the cardinal directions, so you can''t go northeast.  you can''t go');
writeln ('east either come to think of it.');
genericA:=readkey;
clrscr;
case genericA of
     'n':i15;
     's':i17;
     'e':begin
              writeln ('you can''t go there!');
              readln;
              clrscr;
              i16;
         end;
     'w':h16;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                i16;
                                                           end;
end;
end;

procedure a16;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you ares standing against the south wall of Port City, but the wall does not permit entrance. the ocean stands');
writeln ('on you west.  only the south an the east are open to travel.');
genericA:=readkey;
clrscr;
case genericA of
     'n':begin
              writeln ('I said you can''t go here!');
              readln;
              clrscr;
              a16;
         end;
     's':a17;
     'e':b16;
     'w':begin
              writeln ('Not that way!');
              readln;
              clrscr;
              a16;
         end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                a16;
                                                           end;
end;
end;

procedure a20;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('You stand where one of the bays runs into the ocean.  it is to your');
writeln ('south and west.  you may travel north and east.');
genericA:=readkey;
clrscr;
case genericA of
     's':begin
              writeln ('I said you can''t go here!');
              readln;
              clrscr;
              a20;
         end;
     'n':a19;
     'e':b20;
     'w':begin
              writeln ('Not that way!');
              readln;
              clrscr;
              a20;
         end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                a20;
                                                           end;
end;
end;

procedure a17;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
writeln ('You can see the outer wall of port city to the north.');
writeln ('The main part of the plains is to the east, west is the ocean');
writeln ('which you cannot pass. south is a small prairie path.');
genericA:=readkey;
clrscr;
case genericA of
     'n':a16;
     's':a18;
     'w':begin
              writeln ('you can''t go there!');
              readln;
              clrscr;
              a17;
         end;
     'e':b17;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                a17;
                                                           end;
end;
end;

procedure a18;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
writeln ('You stand on the western edge of the world, right against the ocean.  the ocean breeze makes you feel a very');
writeln ('strong sense of destiny.  You can go north, south, and east.');
genericA:=readkey;
clrscr;
case genericA of
     'n':a17;
     's':a19;
     'w':begin
              writeln ('you can''t go there!');
              readln;
              clrscr;
              a18;
         end;
     'e':b18;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                a18;
                                                           end;
end;
end;

procedure a19;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
writeln ('The whole coast seems dead. the usual flocks of dolphins, and schools of seagulls have dissapeared.  Ahhhh, the');
writeln ('ocean was once so beautiful.  you miss the old oceans of days past.  You may go north, south, and east.');
genericA:=readkey;
clrscr;
case genericA of
     'n':a18;
     's':a20;
     'w':begin
              writeln ('you can''t go there!');
              readln;
              clrscr;
              a19;
         end;
     'e':b19;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                a19;
                                                           end;
end;
end;

procedure b20;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('The ocean calls to you. you call back "Fuck');
writeln (' you you stupid fucking ocean, you killed my father!". the ocean replies');
writeln ('"no, i am your father." you then shout "SHAVE THE WHALES!".  You may go anywhere but south.');
genericA:=readkey;
clrscr;
case genericA of
     'n':b19;
     's':begin
              writeln ('not this way!');
              readln;
              clrscr;
              b20;
         end;
     'e':c20;
     'w':a20;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                b20;
                                                           end;
end;
end;

procedure c20;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('The ocean sucks.  your so sick of walking along it that you decide to piss in it.  the fish die as your toxic');
writeln ('Urine soaks them, filling their gills with poison. you can''t go south');
genericA:=readkey;
clrscr;
case genericA of
     'n':c19;
     's':begin
              writeln ('not this way!');
              readln;
              clrscr;
              c20;
         end;
     'e':d20;
     'w':b20;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                c20;
                                                           end;
end;
end;

procedure e20;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('You know what, if you can''t figure out where you are by now, then your a hopeless idiot.  go away. you can''t go');
writeln ('South.  weast is okay though.');
genericA:=readkey;
clrscr;
case genericA of
     'n':e19;
     's':begin
              writeln ('not this way!');
              readln;
              clrscr;
              e20;
         end;
     'e':f20;
     'w':d20;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                e20;
                                                           end;
end;
end;

procedure d21;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you are in another of the jutting points of land on the ocean.');
writeln (' many jagged pieces of land stick out into this great');
writeln ('bay. you can''t go south or west.');
genericA:=readkey;
clrscr;
case genericA of
     's':begin
              writeln ('I said you can''t go here!');
              readln;
              clrscr;
              d21;
         end;
     'n':d20;
     'e':e21;
     'w':begin
              writeln ('Not that way!');
              readln;
              clrscr;
              d21;
         end;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                d21;
                                                           end;
end;
end;

procedure b19;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('the area you stand in is called the infinite pasture.  it is a giant plains area, with many species of animal,');
writeln ('some still undiscovered and undocemented.  you can go in any direction.');
genericA:=readkey;
clrscr;
case genericA of
     'n':b18;
     's':b20;
     'e':c19;
     'w':a19;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                b19;
                                                           end;
end;
end;

procedure d20;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you are in the infinite pasture.  the wind howls through the grass, and animals make noise everywhere. it is');
writeln ('a very relaxing experience. you can go anywhere.');
genericA:=readkey;
clrscr;
case genericA of
     'n':d19;
     's':d21;
     'e':e20;
     'w':c20;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                d20;
                                                           end;
end;
end;

procedure f21;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('The infinite plain stretches before you.  You see the beauty of the land, and know you must run to protect it.');
writeln ('All directions are open to travel.');
genericA:=readkey;
clrscr;
case genericA of
     'n':f20;
     's':f22;
     'e':g21;
     'w':e21;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                f21;
                                                           end;
end;
end;

procedure g21;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('Grass, Grass, and more Grass.  there is so much grass here not even a prairie fire could wipe it all out.  you');
writeln ('decided to test that theory.  you light a match, but a bush immediately pulls it from your hand and puts it');
writeln ('out against the ground.  all directions are open.');
genericA:=readkey;
clrscr;
case genericA of
     'n':g20;
     's':g22;
     'e':h21;
     'w':f21;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                f21;
                                                           end;
end;
end;



procedure h21;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('in the fields are many kinds of animals, but you now find one that you have never heard of');
writeln ('it has three rabbit ears, a dogs head, but with a cat''s whiskersr, a mule body and the feet of');
writeln ('a bear.  You kill it because you feel like it. screw conservation.  You can go in all directions');
genericA:=readkey;
clrscr;
case genericA of
     'n':h20;
     's':h22;
     'e':i21;
     'w':g21;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h21;
                                                           end;
end;
end;

procedure h20;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('Fields, fields in all directions. i''m getting sick of coding field text, so screw you and your directions!');
writeln ('go anywhere ya friggin want!');
genericA:=readkey;
clrscr;
case genericA of
     'n':h19;
     's':h21;
     'e':i20;
     'w':g20;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h20;
                                                           end;
end;
end;

procedure h19;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('the fields, the fields, the fields.  You are growing so tired of fields that you almost torch the whole');
writeln ('plain.  the path marches in all directions.');
genericA:=readkey;
clrscr;
case genericA of
     'n':h18;
     's':h20;
     'e':i19;
     'w':g19;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h19;
                                                           end;
end;
end;

procedure h18;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('You see the remains of a leveled village here.  three huts and a central firepit, it was obviously a primitive');
writeln ('town.  You cross yourself, praying for the souls of the dead here, then move on.');
genericA:=readkey;
clrscr;
case genericA of
     'n':h17;
     's':h19;
     'e':i18;
     'w':g18;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h18;
                                                           end;
end;
end;

procedure h17;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('Paris shows up and bitch smacks the crap out of you.  Then enrique shows up and falls down cause he''s');
writeln ('too lazy to do anything.');
genericA:=readkey;
clrscr;
case genericA of
     'n':h16;
     's':h18;
     'e':i17;
     'w':g17;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h17;
                                                           end;
end;
end;

procedure h16;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you are quite close to the castle, but still in the prairie.  the castle calls you home, but you must complete');
writeln ('your journey or the whole world is doomed.');
genericA:=readkey;
clrscr;
case genericA of
     'n':h15;
     's':h17;
     'e':i16;
     'w':g16;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                h16;
                                                           end;
end;
end;

procedure g16;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('The plains are a vast place, but they are calm and peaceful.  it''s surprising that so many beasts wander');
writeln ('about the plains.  the grass is rustling in the wind.');
genericA:=readkey;
clrscr;
case genericA of
     'n':g15;
     's':g17;
     'e':h16;
     'w':f16;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                g16;
                                                           end;
end;
end;

procedure g17;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('plains.  your in the plains.  there is no more to say.  if you need a more avid description then you');
writeln ('have no imagination.  i''m starting to lose pride in my work.');
genericA:=readkey;
clrscr;
case genericA of
     'n':g16;
     's':g18;
     'e':h17;
     'w':f17;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                g17;
                                                           end;
end;
end;

procedure g18;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you''re in the plains.  the meadow flowers are beautiful this time of year. to bad they''l be burnt to hell');
writeln ('if you don''t hurry your sissy flowerloving ass up!');
genericA:=readkey;
clrscr;
case genericA of
     'n':g17;
     's':g19;
     'e':h18;
     'w':f18;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                g18;
                                                           end;
end;
end;

procedure g19;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('grass, flowers, ninja demon squirrels. waitaminute, SQUIRRELS? you better hurry outta here!');
genericA:=readkey;
clrscr;
case genericA of
     'n':g18;
     's':g20;
     'e':h19;
     'w':f19;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                g19;
                                                           end;
end;
end;

procedure g20;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('the remains of an old house are here.  there were many such cottages in the days of expansion.  that was long');
writeln ('ago, when settlers were still sent out byt the far eastern cities.');
genericA:=readkey;
clrscr;
case genericA of
     'n':g19;
     's':g21;
     'e':h20;
     'w':f20;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                g20;
                                                           end;
end;
end;

procedure f20;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln (' the ocean is fairly close to you in the south.  the castle, your home, is far to the northeast.  you long for');
writeln ('home, but you know your duty.');
genericA:=readkey;
clrscr;
case genericA of
     'n':f19;
     's':f21;
     'e':g20;
     'w':e20;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                f20;
                                                           end;
end;
end;

procedure f19;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you see many dead carcasses of animals, lying and rotting on the ground.  there was a great hunt here long ago.');
writeln ('it was a great historical event, the great heros of the age attacking the vicious Cornithian Boar.');
genericA:=readkey;
clrscr;
case genericA of
     'n':f18;
     's':f20;
     'e':g19;
     'w':e19;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                f19;
                                                           end;
end;
end;

procedure f18;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('yo momma');
genericA:=readkey;
clrscr;
case genericA of
     'n':f17;
     's':f19;
     'e':g18;
     'w':e18;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                f18;
                                                           end;
end;
end;

procedure f17;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('You set up a camp and take a bit of a nap.  Your HP and MP is restored.');
genericA:=readkey;
clrscr;
case genericA of
     'n':f16;
     's':f18;
     'e':g17;
     'w':e17;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                f17;
                                                           end;
end;
end;

procedure f16;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('You see a lot of bodies here.  Yet another battleground of the ancients.  You wish you could bury all of them,');
writeln ('but you do not have time to waste.  It is time to move on.');
genericA:=readkey;
clrscr;
case genericA of
     'n':f15;
     's':f17;
     'e':g16;
     'w':e16;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                f16;
                                                           end;
end;
end;

procedure e16;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('You hear one of the ancient beastmen howling in the distance.  Beastmen were an ancient race of people who');
writeln ('committed the sin of mating themselves to animals, and an ancient magic punished them by making all their');
writeln ('offspring half beast and half human.');
genericA:=readkey;
clrscr;
case genericA of
     'n':e15;
     's':e17;
     'e':f16;
     'w':d16;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                e16;
                                                           end;
end;
end;

procedure e17;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you see a guy so you kill him because you hate people.  im losing pride in my work!');
genericA:=readkey;
clrscr;
case genericA of
     'n':e16;
     's':e18;
     'e':f17;
     'w':d17;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                e17;
                                                           end;
end;
end;

procedure e18;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('The infinite plains stretch out forever, but you know even the plains have an end.  The sense of urgency');
writeln ('in you mind prevents you from stopping to take in the sights.');
genericA:=readkey;
clrscr;
case genericA of
     'n':e17;
     's':e19;
     'e':f18;
     'w':d18;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                e18;
                                                           end;
end;
end;

procedure e19;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('Directly to your north is the dead center of the plains.  it was once a place of magic,  but that ancient');
writeln ('magic is long gone.  the current day is long past');
genericA:=readkey;
clrscr;
case genericA of
     'n':e18;
     's':e20;
     'e':f19;
     'w':d19;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                e19;
                                                           end;
end;
end;



procedure d19;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('åáÖÒÞ');
genericA:=readkey;
clrscr;
case genericA of
     'n':d18;
     's':d20;
     'e':e19;
     'w':c19;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                d19;
                                                           end;
end;
end;

procedure d18;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('Plains, plains, plains, plains, plains.  you were told the plains were an exciting place, but you are bored');
writeln ('stiffer than a board.');
genericA:=readkey;
clrscr;
case genericA of
     'n':d17;
     's':d19;
     'e':e18;
     'w':c18;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                d18;
                                                           end;
end;
end;

procedure d17;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('Using your GPS Global Positioning System sword, you can tell at Longitude D, Latitude 17');
genericA:=readkey;
clrscr;
case genericA of
     'n':d16;
     's':d18;
     'e':e17;
     'w':c17;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                d17;
                                                           end;
end;
end;

procedure d16;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('You see a broken down pioneering wagon, like the ones used by the old settlers.  Wild dogs crawl in and out, ');
writeln ('searching for the remains of long gone food.');
genericA:=readkey;
clrscr;
case genericA of
     'n':d15;
     's':d17;
     'e':e16;
     'w':c16;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                d16;
                                                           end;
end;
end;

procedure c16;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you are close to the once prosperous city of Port.  it was very wealthy before the Necromancer''time, but his');
writeln ('wrath has ruined the town.');
genericA:=readkey;
clrscr;
case genericA of
     'n':c15;
     's':c17;
     'e':d16;
     'w':b16;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                c16;
                                                           end;
end;
end;

procedure c17;
begin
minmon:=1;
maxmon:=7;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('A giant herd of monkeys runs past you.  They are so loud, your ears begin to bleed.  You die. GAME OVER.');
delay;
delay;
delay;
clrscr;
writeln ('JUST KIDDING.  you can go in any direction.');
genericA:=readkey;
clrscr;
case genericA of
     'n':c16;
     's':c18;
     'e':d17;
     'w':b17;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                c17;
                                                           end;
end;
end;

procedure c18;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you are still in the plains.  the plains make up the vast majority of the world.  Most people who enter the plains');
writeln ('spend their lives wandering them.');
genericA:=readkey;
clrscr;
case genericA of
     'n':c17;
     's':c19;
     'e':d18;
     'w':b18;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                c18;
                                                           end;
end;
end;

procedure c19;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you are in the plains.  the plains are plains.  plains are usually composed of smaller sections of plains which');
writeln ('are usually comprised of yet smaller pieces of plain.');
genericA:=readkey;
clrscr;
case genericA of
     'n':c18;
     's':c20;
     'e':d19;
     'w':b19;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                c19;
                                                           end;
end;
end;

procedure b16;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('you are in the middle of the plains, in a spot called "Patch of Grass".  there are many such spots in the world');
writeln ('because of the abundance of grass.');
genericA:=readkey;
clrscr;
case genericA of
     'n':b15;
     's':b17;
     'e':c16;
     'w':a16;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                b16;
                                                           end;
end;
end;

procedure b17;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('There are many squirrels here, mostly because they want your nuts.  GIVE THEM THE NUTS MAN, FOR THE LOVE OF GOD,');
writeln ('GIVE THEM YOUR FREAKING NUTS!');
genericA:=readkey;
clrscr;
case genericA of
     'n':b16;
     's':b18;
     'e':c17;
     'w':a17;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                b17;
                                                           end;
end;
end;

procedure b18;
begin
minmon:=1;
maxmon:=6;
monrand;
beaststrength:=monsters[generic].beaststrength1;
beastdefense:=monsters[generic].beastdefense1;
beastname:=monsters[generic].beastname1;
beastMagStr:=monsters[generic].beastMagStr1;
beasthp:=monsters[generic].beasthp1;
beastelement:=monsters[generic].beastelement1;
expGiven1:=monsters[generic].expGiven;
random2;
if (generic = 3) or (generic=1) then
battleEngine;
writeln ('DER NINJA DÄMONISCHE EICHHÖRNCHEN ESSEN MEINE MUTTERN! HELFEN Sie MIR, ich STERBE!');
genericA:=readkey;
clrscr;
case genericA of
     'n':b17;
     's':b19;
     'e':c18;
     'w':a18;
     'b'..'d','f'..'m','o'..'r','t'..'v','x'..'z','0'..'9':begin
                                                                writeln ('tis not a real letter fool!');
                                                                readln;
                                                                clrscr;
                                                                b18;
                                                           end;
end;
end;

{___________________________________________________________
|**********************************************************|
|************************MAIN PROGRAM**********************|
|**********************************************************|
|----------------------------------------------------------|}

begin
for generic:=1 to 4 do
    runestones[generic]:=2;

{END INITIALIZE}

seed:=21;
{begin initializing pack}
for generic:= 1 to 20 do
begin
     with Items[generic] do
     begin
          ItemName:= ' ';
          ItemNum:= dummy;
     end;
end;
items[1].itemname:='Potion';
items[1].itemnum:=200;
items[2].itemname:='Elixir';
items[2].itemnum:=200;
items[3].itemname:='Ether';
items[3].itemnum:=200;
{for generic:= 1 to 20 do
begin
     if Items[generic].ItemName = 'Potion'
     then Items[generic].ItemNum:= Items[generic].ItemNum + 1;
end;
generic:=0;
for generic:= 1 to 20 do
begin
     if Items[generic].ItemName:= 'Potion'
     then generic:= 21;
end;
    if not generic = 21
    then begin
     repeat
     generic:=generic+1;
     until Items[generic].ItemName=' ';
     Items[generic].ItemName:='potion';
     items[generic].ItemNum:=1;
    end;

no space left thingy:
for generic:=1 to 20 do
    if not (items.ItemName=' ') then
       accumulate:=accumulate+1;
    if accumulate=20 then writeln ('your inventory is full');}
repeat
writeln ('                                FATE OF DARKNESS PT.1:                 ');
writeln ('                                       Secrets of the Necromancer      ');
writeln ('                                   (N)ew game            ');
writeln ('                                   (L)oad game           ');
generica:=readkey;
clrscr;
case generica of
'n':goto gamestart;
'l':load;
end;
gamestart:begin
writeln ('INSERT FANCY INTRO HERE');
readln;
clrscr;
initializeSkills;
raceChoose;
chooseclass;
disciplineChoose;
final;
clrscr;
writeln ('THE GAME DOTH BEGINNETH!');
readln;
clrscr;
castle;
end;
end.







________________________________________
RANDUNIT.PAS
unit randUnit;
interface
uses wincrt;
var minmon,maxmon,generic,seed,x7,rand,rand1,rand2:integer;
function randomfun (var Seed: integer):real;
procedure monrand;
procedure random2;
procedure randomDam;
procedure random1;

implementation
function Randomfun (var Seed: integer):real;
const modulus=65536;
      multiplier=25137;
      increment=13849;

begin
     Seed:= ((Seed * multiplier) + (increment + MemAvail)) mod modulus;
     Randomfun:=Seed / modulus;
end;

procedure monRand;
const modulus=65536;
      multiplier=25137;
      increment=13849;
begin
     for x7:=1 to 25 do
     begin
          repeat
          generic:= 1+trunc(randomfun(seed)*maxmon);
          if generic< 0 then
          generic:=generic*(-1);
          until generic >= minmon;
    end;
end;

procedure random2;
const modulus=65536;
      multiplier=25137;
      increment=13849;
begin
     for x7:=1 to 25 do
     begin
          repeat
          rand2:= 1+trunc(randomfun(seed)*3);
          if rand2< 0 then
          rand2:=generic*(-1);
          until rand2 > 0;
    end;
end;

procedure randomDam;
const modulus=65536;
      multiplier=25137;
      increment=13849;
begin
     for x7:=1 to 25 do
     begin
          repeat
          rand:= 1+trunc(randomfun(seed)*10);
          if rand< 0 then
          rand:=rand*(-1);
          until rand > 0;
    end;
end;


procedure random1;
const modulus=65536;
      multiplier=25137;
      increment=13849;
begin
     for x7:=1 to 25 do
     begin
          repeat
          rand1:= 1+trunc(randomfun(seed)*3);
          if rand1< 0 then
          rand1:=rand1*(-1);
          until rand1 > 1;
    end;
end;
begin
seed:=24;
minmon:=1;
maxmon:=6;
generic:=1;
end.


-----------------------------------------
MONDECL.PAS

unit monDecl;

interface

uses
  winCrt;
type MonData = record
                     beastName1: string;
                     beastNum1:integer;
                     beastStrength1:integer;
                     beastDefense1:integer;
                     beasthp1:integer;
                     beastElement1:string;
                     beastMagStr1:integer;
                     expGiven:integer;
                     end;
     mon = array [1..6] of MonData;
var monsters:mon;

implementation

begin
monsters[1].beastName1:='Rogue Shonen';
monsters[1].beastNum1:=1;
monsters[1].beastStrength1:=16;
monsters[1].beastDefense1:=10;
monsters[1].beasthp1:=45;
monsters[1].beastElement1:='fire';
monsters[1].beastMagStr1:=20;
monsters[1].expGiven:=25;

monsters[2].beastName1:='FoxLord';
monsters[2].beastNum1:=2;
monsters[2].beastStrength1:=19;
monsters[2].beastDefense1:=14;
monsters[2].beasthp1:=30;
monsters[2].beastElement1:='ice';
monsters[2].beastMagStr1:=22;
monsters[2].expGiven:=45;

monsters[3].beastName1:='Ninja Demon Squirrel';
monsters[3].beastNum1:=3;
monsters[3].beastStrength1:=20;
monsters[3].beastDefense1:=16;
monsters[3].beasthp1:=60;
monsters[3].beastElement1:='lightning';
monsters[3].beastMagStr1:=23;
monsters[3].expGiven:=125;

monsters[4].beastName1:='Stray Samurai';
monsters[4].beastNum1:=4;
monsters[4].beastStrength1:=25;
monsters[4].beastDefense1:=20;
monsters[4].beasthp1:=50;
monsters[4].beastElement1:='fire';
monsters[4].beastMagStr1:=23;
monsters[4].expGiven:=75;

monsters[5].beastName1:='DoomShell Tortoise';
monsters[5].beastNum1:=5;
monsters[5].beastStrength1:=10;
monsters[5].beastDefense1:=26;
monsters[5].beasthp1:=25;
monsters[5].beastElement1:='fire';
monsters[5].beastMagStr1:=20;
monsters[5].expGiven:=100;

monsters[6].beastName1:='plenotopic demon';
monsters[6].beastNum1:=6;
monsters[6].beastStrength1:=24;
monsters[6].beastDefense1:=18;
monsters[6].beasthp1:=30;
monsters[6].beastElement1:='fire';
monsters[6].beastMagStr1:=22;
monsters[6].expGiven:=75;

{FOREST MONSTERS}

monsters[7].beastName1:='malevolent treefolk';
monsters[7].beastNum1:=7;
monsters[7].beastStrength1:=50;
monsters[7].beastDefense1:=34;
monsters[7].beasthp1:=65;
monsters[7].beastElement1:='lightning';
monsters[7].beastMagStr1:=30;
monsters[7].expGiven:=100;

monsters[8].beastName1:='Curious Raven';
monsters[8].beastNum1:=8;
monsters[8].beastStrength1:=25;
monsters[8].beastDefense1:=50;
monsters[8].beasthp1:=30;
monsters[8].beastElement1:='lightning';
monsters[8].beastMagStr1:=45;
monsters[8].expGiven:=125;

monsters[9].beastName1:='Despicable Python';
monsters[9].beastNum1:=9;
monsters[9].beastStrength1:=75;
monsters[9].beastDefense1:=43;
monsters[9].beasthp1:=46;
monsters[9].beastElement1:='fire';
monsters[9].beastMagStr1:=23;
monsters[9].expGiven:=150;

monsters[10].beastName1:='Loathesome Swarm';
monsters[10].beastNum1:=10;
monsters[10].beastStrength1:=30;
monsters[10].beastDefense1:=60;
monsters[10].beasthp1:=60;
monsters[10].beastElement1:='ice';
monsters[10].beastMagStr1:=50;
monsters[10].expGiven:=135;

monsters[11].beastName1:='Mimic';
monsters[11].beastNum1:=11;
monsters[11].beastStrength1:=30;
monsters[11].beastDefense1:=50;
monsters[11].beasthp1:=99;
monsters[11].beastElement1:='lightning';
monsters[11].beastMagStr1:=10;
monsters[11].expGiven:=450;

monsters[12].beastName1:='Flaming Chipmunk';
monsters[12].beastNum1:=12;
monsters[12].beastStrength1:=0;
monsters[12].beastDefense1:=0;
monsters[12].beasthp1:=0;
monsters[12].beastElement1:='fire';
monsters[12].beastMagStr1:=0;
monsters[12].expGiven:=2;

{VOLCANO MONSTERS}

monsters[13].beastName1:='Flame Salamander';
monsters[13].beastNum1:=13;
monsters[13].beastStrength1:=60;
monsters[13].beastDefense1:=55;
monsters[13].beasthp1:=70;
monsters[13].beastElement1:='fire';
monsters[13].beastMagStr1:=50;
monsters[13].expGiven:=150;

monsters[14].beastName1:='Ash of Phoenix';
monsters[14].beastNum1:=14;
monsters[14].beastStrength1:=65;
monsters[14].beastDefense1:=65;
monsters[14].beasthp1:=65;
monsters[14].beastElement1:='fire';
monsters[14].beastMagStr1:=65;
monsters[14].expGiven:=160;


monsters[15].beastName1:='Gargantuan Butterfly';
monsters[15].beastNum1:=15;
monsters[15].beastStrength1:=70;
monsters[15].beastDefense1:=65;
monsters[15].beasthp1:=70;
monsters[15].beastElement1:='fire';
monsters[15].beastMagStr1:=50;
monsters[15].expGiven:=175;

monsters[16].beastName1:='Flame Esper';
monsters[16].beastNum1:=16;
monsters[16].beastStrength1:=2;
monsters[16].beastDefense1:=45;
monsters[16].beasthp1:=100;
monsters[16].beastElement1:='fire';
monsters[16].beastMagStr1:=100;
monsters[16].expGiven:=245;

monsters[17].beastName1:='Ember Hound';
monsters[17].beastNum1:=17;
monsters[17].beastStrength1:=75;
monsters[17].beastDefense1:=60;
monsters[17].beasthp1:=70;
monsters[17].beastElement1:='fire';
monsters[17].beastMagStr1:=50;
monsters[17].expGiven:=200;

monsters[18].beastName1:='Darkfire Demon';
monsters[18].beastNum1:=18;
monsters[18].beastStrength1:=80;
monsters[18].beastDefense1:=70;
monsters[18].beasthp1:=50;
monsters[18].beastElement1:='fire';
monsters[18].beastMagStr1:=60;
monsters[18].expGiven:=225;

{CANYON MONSTERS}

monsters[19].beastName1:='DirtClod';
monsters[19].beastNum1:=19;
monsters[19].beastStrength1:=89;
monsters[19].beastDefense1:=25;
monsters[19].beasthp1:=100;
monsters[19].beastElement1:='ice';
monsters[19].beastMagStr1:=65;
monsters[19].expGiven:=300;

monsters[20].beastName1:='RockSnake';
monsters[20].beastNum1:=20;
monsters[20].beastStrength1:=91;
monsters[20].beastDefense1:=70;
monsters[20].beasthp1:=113;
monsters[20].beastElement1:='fire';
monsters[20].beastMagStr1:=34;
monsters[20].expGiven:=300;

monsters[21].beastName1:='Dust Devil';
monsters[21].beastNum1:=21;
monsters[21].beastStrength1:=79;
monsters[21].beastDefense1:=73;
monsters[21].beasthp1:=134;
monsters[21].beastElement1:='lightning';
monsters[21].beastMagStr1:=90;
monsters[21].expGiven:=350;

monsters[22].beastName1:='Unknown Assailant';
monsters[22].beastNum1:=22;
monsters[22].beastStrength1:=82;
monsters[22].beastDefense1:=90;
monsters[22].beasthp1:=147;
monsters[22].beastElement1:='lightning';
monsters[22].beastMagStr1:=50;
monsters[22].expGiven:=360;

monsters[23].beastName1:='Canyon Rat';
monsters[23].beastNum1:=23;
monsters[23].beastStrength1:=45;
monsters[23].beastDefense1:=45;
monsters[23].beasthp1:=134;
monsters[23].beastElement1:='ice';
monsters[23].beastMagStr1:=135;
monsters[23].expGiven:=367;

monsters[24].beastName1:='Stickman';
monsters[24].beastNum1:=24;
monsters[24].beastStrength1:=1;
monsters[24].beastDefense1:=1;
monsters[24].beasthp1:=1;
monsters[24].beastElement1:='Ice';
monsters[24].beastMagStr1:=1;
monsters[24].expGiven:=1;

{CRYPT MONSTERS}

monsters[25].beastName1:='HellFire Demon';
monsters[25].beastNum1:=25;
monsters[25].beastStrength1:=99;
monsters[25].beastDefense1:=99;
monsters[25].beasthp1:=99;
monsters[25].beastElement1:='fire';
monsters[25].beastMagStr1:=99;
monsters[25].expGiven:=1000;

monsters[26].beastName1:='Servant of the Blue Fire';
monsters[26].beastNum1:=26;
monsters[26].beastStrength1:=114;
monsters[26].beastDefense1:=102;
monsters[26].beasthp1:=100;
monsters[26].beastElement1:='ice';
monsters[26].beastMagStr1:=100;
monsters[26].expGiven:=1000;

monsters[27].beastName1:='SkullWarrior';
monsters[27].beastNum1:=27;
monsters[27].beastStrength1:=125;
monsters[27].beastDefense1:=113;
monsters[27].beasthp1:=113;
monsters[27].beastElement1:='lightning';
monsters[27].beastMagStr1:=75;
monsters[27].expGiven:=1100;

monsters[28].beastName1:='??????????????';
monsters[28].beastNum1:=28;
monsters[28].beastStrength1:=127;
monsters[28].beastDefense1:=117;
monsters[28].beasthp1:=200;
monsters[28].beastElement1:='ice';
monsters[28].beastMagStr1:=90;
monsters[28].expGiven:=1500;

monsters[29].beastName1:='ReDead Gryphon';
monsters[29].beastNum1:=29;
monsters[29].beastStrength1:=145;
monsters[29].beastDefense1:=134;
monsters[29].beasthp1:=250;
monsters[29].beastElement1:='lightning';
monsters[29].beastMagStr1:=100;
monsters[29].expGiven:=2000;

monsters[30].beastName1:='Spirit of Hatred';
monsters[30].beastNum1:=30;
monsters[30].beastStrength1:=160;
monsters[30].beastDefense1:=160;
monsters[30].beasthp1:=300;
monsters[30].beastElement1:='fire';
monsters[30].beastMagStr1:=145;
monsters[30].expGiven:=2500;

{BOSSES}

monsters[31].beastName1:='Fire Boss PHOENIX';
monsters[31].beastNum1:=31;
monsters[31].beastStrength1:=100;
monsters[31].beastDefense1:=80;
monsters[31].beasthp1:=115;
monsters[31].beastElement1:='fire';
monsters[31].beastMagStr1:=75;
monsters[31].expGiven:=750;

monsters[32].beastName1:='Forest Boss VENUSIAN';
monsters[32].beastNum1:=32;
monsters[32].beastStrength1:=80;
monsters[32].beastDefense1:=70;
monsters[32].beasthp1:=200;
monsters[32].beastElement1:='ice';
monsters[32].beastMagStr1:=60;
monsters[32].expGiven:=500;

monsters[33].beastName1:='Canyon Boss GOLEM';
monsters[33].beastNum1:=32;
monsters[33].beastStrength1:=125;
monsters[33].beastDefense1:=120;
monsters[33].beasthp1:=225;
monsters[33].beastElement1:='lightning';
monsters[33].beastMagStr1:=80;
monsters[33].expGiven:=900;

monsters[34].beastName1:='Crypt Boss DEATH';
monsters[34].beastNum1:=34;
monsters[34].beastStrength1:=5;
monsters[34].beastDefense1:=200;
monsters[34].beasthp1:=300;
monsters[34].beastElement1:='fire';
monsters[34].beastMagStr1:=175;
monsters[34].expGiven:=6000;

monsters[35].beastName1:='The Mage of Blackest Night';
monsters[35].beastNum1:=35;
monsters[35].beastStrength1:=200;
monsters[35].beastDefense1:=250;
monsters[35].beasthp1:=400;
monsters[35].beastElement1:='lightning';
monsters[35].beastMagStr1:=200;
monsters[35].expGiven:=10000;

monsters[36].beastName1:='DOOM OF THE LIVING Necromancer';
monsters[36].beastNum1:=36;
monsters[36].beastStrength1:=300;
monsters[36].beastDefense1:=300;
monsters[36].beasthp1:=500;
monsters[36].beastElement1:='ice';
monsters[36].beastMagStr1:=400;
monsters[36].expGiven:=10000;
end.

------------------------------
SUNIT.PAS


unit sunit;
interface
uses wincrt;
var seed,x7,randomnum,min,max:integer;
function Random1 (var Seed: integer):real;
procedure random;
procedure delay;

implementation
function Random1 (var Seed: integer):real;
const modulus=65536;
      multiplier=25137;
      increment=13849;

begin
     Seed:= ((Seed * multiplier) + (increment + MemAvail)) mod modulus;
     Random1:=Seed / modulus;
end;

procedure delay;
var x:longint;
    addy:real;
begin
    for x:= 1 to 20000000 do
        for x:= 1 to 20000000 do
            for x:= 1 to 20000000 do
           for x:= 1 to 20000000 do
               for x:= 1 to 20000000 do
                   addy:=20+20*20/20+45-2;
end;

procedure random;
const modulus=65536;
      multiplier=25137;
      increment=13849;
begin
     for x7:=1 to 25 do
     begin
          repeat
          randomnum:= 1+trunc(random1(seed)*max);
          if randomnum< 0 then
          randomnum:=randomnum*(-1);
          until randomnum > min;
    end;
end;
begin
seed:=11;
min:=1;
max:=10;
randomnum:=0;
end.