Rewrite: File not found

uses crt,graph;
 
  const constMapWidth = 64;
        constMapHeight = 48;
        constBlockSize = 10;
 
        MAXNUMOFBANANAS = 200;
        MAXNUMOFWOOD = 110;
 
  type EBlockType =
  (
      ebtEmpty,
      ebtWood,
      ebtGrass,
      ebtRock,
      ebtBanana,
      ebtYourBanana,
      ebtWoodPlant,
      ebtSpawn,
      ebtSand,
      ebtBlock,
      ebtSave,
      ebtQuarry
  );
 
  type TMap = array[0..constMapWidth-1,0..constMapHeight-1] of EBlockType;
  type TPos = record
                x : integer;
                y : integer;
              end;
  type TBlockDrawParams = record
                         nStyle : byte;
                         nColor : byte;
                         bRect  : boolean;
                       end;
  const arrBlockDrawParams : array [ EBlockType ] of TBlockDrawParams =
        (
          (nStyle : 1; nColor : 11; bRect : true  ),      {ebtEmpty      }
 
          (nStyle : 1; nColor : 6 ; bRect : true  ),      {ebtWood       }
 
          (nStyle : 1; nColor : 10; bRect : true  ),      {ebtGrass      }
 
          (nStyle : 1; nColor : 8 ; bRect : true  ),      {ebtRock       }
 
          (nStyle : 4; nColor : 3 ; bRect : false ),      {ebtBanana     }
 
          (nStyle : 4; nColor : 5 ; bRect : false ),      {ebtYourBanana }
 
          (nStyle : 4; nColor : 6 ; bRect : true  ),      {ebtWoodPlant  }
 
          (nStyle : 1; nColor : 5 ; bRect : true  ),      {ebtSpawn      }
 
          (nStyle : 9; nColor : 14; bRect : true  ),      {ebtSand       }
 
          (nStyle : 1; nColor : 7 ; bRect : true  ),      {ebtBlock      }
 
          (nStyle : 4; nColor : 7 ; bRect : true  ),      {ebtSave       }
 
          (nStyle : 9; nColor : 11; bRect : true  )       {ebtQuarry     }
        );
 
 
  var g_map : TMap;
      MapPos : string;
      mp : text;
      monsterx,monstery:byte;
 
  Function NOSIF(var t : text) : integer;
  var Cnt:Integer;
      FileName,s:string;
  begin
    Cnt:=0;
    While not Eof(t) do
    begin
      ReadLn(t,s);
      Inc(Cnt);
    end;
    Close(t);
    Reset(t);
    NOSIF:=Cnt;
  end;
 
  Procedure ReadMap(mapcoor : string);
  var map : text;
      i,a : integer;
      fstring:string;
  begin
    Assign(map,mapcoor + '.map');
    Reset(map);
    for i:=0 to constMapWidth-1 do
    begin
      ReadLn(map,fstring);
      for a:= 0 to constMapHeight-1 do
      begin
        case fstring[a] of
 
         'G':  g_Map[i,a]:=ebtGrass;
 
         'Q':  g_Map[i,a]:=ebtQuarry;
 
         'D':  g_Map[i,a]:=ebtSave;
 
         'A':  g_Map[i,a]:=ebtBlock;
 
         'P':  g_Map[i,a]:=ebtYourBanana;
 
         'F':  g_Map[i,a]:=ebtWoodPlant;
 
         'D':  g_Map[i,a]:=ebtSpawn;
 
         'S':  g_Map[i,a]:=ebtSand;
 
         'W':  g_Map[i,a]:=ebtWood;
 
         'R':  g_Map[i,a]:=ebtRock;
 
         'B':  g_Map[i,a]:=ebtBanana;
 
         'E':  g_Map[i,a]:=ebtEmpty;
      end;
    end;
  end;
  end;
 
  function fileexists(var filename: string): boolean;
  var f: file;
  begin
    {$I-} assign(f,filename); reset(f); {$I+}
    fileexists:=(ioresult=0) and (filename<>'');
  end;
 
  Procedure CreateMobPos(var pos:TPos);
  Begin
    repeat
      pos.x := Random(constMapWidth);
      pos.y := Random(constMapHeight);
    until g_map[pos.x, pos.y] <> ebtEmpty;
  End;
  Procedure CreatePlayerPos(var pos:TPos);
  Begin
    repeat
      pos.x := Random(constMapWidth);
      pos.y := Random(constMapHeight);
    until g_map[pos.x, pos.y] <> ebtEmpty;
  End;
 
 
  PROCEDURE CreateMap(mapcoor : string);
 
     Function IsEmptyBlockClose(x : integer; y : integer) : boolean;{with this function I can know is empty close}
     Begin
       IsEmptyBlockClose := ( g_Map[x,y-1]   = ebtEmpty ) or
                            ( g_Map[x,y+1]   = ebtEmpty ) or
                            ( g_Map[x+1,y+1] = ebtEmpty ) or
                            ( g_Map[x+1,y-1] = ebtEmpty ) or
                            ( g_Map[x+1,y]   = ebtEmpty ) or
                            ( g_Map[x-1,y-1] = ebtEmpty ) or
                            ( g_Map[x-1,y+1] = ebtEmpty ) or
                            ( g_Map[x-1,y]   = ebtEmpty );
     End;
 
     Procedure CreateSpawn;
     var x,y:integer;
     Begin
       Repeat
          X:=Random(constMapWidth-1);
          Y:=Random(constMapHeight-1);
       Until not(g_Map[x,y]<>ebtGrass)and(not(g_Map[x+1,y+1]<>ebtGrass));
       g_Map[x,y]:=ebtSpawn;
 
     End;
 
  const constNumOfIslands = 29;
        constIslandWidth  = 16;
 
 
  var iBlocksInString,IslandWidth : byte;
      iIsland,numofplants,plantx,planty,rand,x,y,iIslandString : integer;
      numOfplantxhasbeenset,numOfplantyhasbeenset:integer;
      DB:boolean;
      map:text;
  Begin
    {generate areas of earh, i.e.islands}
    for iIsland := 1 to constNumOfIslands do
    begin
      db:=false;
      islandWidth:=1;
      if (iIsland<6){create place of first island block}
         then begin
              y:=10+Random(17);
              x:=10+Random(35);
              end
         else begin
              y:=25+Random(7);
              x:=Random(45);
              end;
 
      for iIslandString:=1 to 21{number of row in island} do{create new row}
      begin
        for iBlocksInString:=1 to IslandWidth do{create new block in row}
        begin
          rand:=Random(100);{random for beutiful terrarian}
           if (rand<=90)then
                g_Map[x+iIslandString,y+iBlocksInString]:=ebtGrass
           else g_Map[x+iIslandString,y+iBlocksInString]:=ebtWood;
           if (rand=1)
              then g_Map[x+iIslandString,y+iBlocksInString]:=ebtRock;
           if (rand=0)
              then g_Map[x+iIslandString,y+iBlocksInString]:=ebtEmpty;
        end;
 
      if(IslandWidth>=20)
       then begin
              db:=true;
            end;
      if (db)
       then begin
              y:=y+1;
              IslandWidth:=IslandWidth-2;
            end
       else begin
              y:=y-1;
              IslandWidth:=IslandWidth+2;
             end;
      end;
    end;
 
    {set bananas}
    For numOfplants:=0 to 4 do
    begin
      { find not empty block }
      Repeat
          plantx:=Random(constMapWidth);
          planty:=Random(constMapHeight);
      Until g_Map[plantx,planty]<>ebtEmpty;
 
      {set bananas in found place}
      For x:=0 to 2 do
      begin
        For y:=0 to 2 do
        begin
          g_Map[x+plantx,y+planty]:=ebtBanana;
        end;
      end;
    end;
 
    {edge of map should be water}
    for x:=0 to  constMapWidth-1 do
    begin
      g_Map[x,0]:=ebtEmpty;
      g_Map[x,constMapHeight-1]:=ebtEmpty;
    end;
    for y:=0 to  constMapHeight-1 do
    begin
      g_Map[0,y]:=ebtEmpty;
      g_Map[constMapWidth-1,y]:=ebtEmpty;
    end;
 
    {set sand on the edge of water}
    for x:=1 to  constMapWidth-1 do
    begin
        for y:=1 to constMapHeight-1 do
        begin
            if (g_Map[x,y]=ebtGrass) and IsEmptyBlockClose(x,y)
               then g_Map[x,y]:=ebtSand;
        end;
    end;
 
    Assign(map, mapcoor);
    Rewrite(map);
 
    for y:=1 to  constMapHeight-1 do
    begin
        for x:=1 to constMapWidth-1 do
        begin
            if (g_Map[x,y]=ebtGrass)then
              Write(map,'G');
            if(g_Map[x,y]=ebtQuarry)then
              Write(map,'Q');
            if(g_Map[x,y]=ebtSave)then
              Write(mapcoor + '.map','D');
            if(g_Map[x,y]=ebtBlock)then
              Write(map,'A');
            if(g_Map[x,y]=ebtYourBanana)then
              Write(map,'P');
            if(g_Map[x,y]=ebtWoodPlant)then
              Write(map,'F');
            if(g_Map[x,y]=ebtSpawn)then
              Write(map, 'D');
            if(g_Map[x,y]=ebtSand)then
              Write(map,'S');
            if(g_Map[x,y]=ebtWood)then
              Write(map,'W');
            if(g_Map[x,y]=ebtRock)then
              Write(map,'R');
            if(g_Map[x,y]=ebtBanana)then
              Write(map,'B');
            if(g_map[x,y]=ebtEmpty)then
              Write(map,'E')
        end;
        WriteLn(map,'');
    end;
 
    CreateSpawn;
 
  End;
 
  Procedure DrawBlock(iCol   : integer;
                         iRow   : integer;
                         nStyle : byte;
                         eBlock : EBlockType;
                         nColor : byte
                        );
     var x,y:integer;
 
     begin
       SetFillStyle(nStyle,nColor);
       x := constBlockSize*iCol;
       y := constBlockSize*iRow;
       Bar(x,y,x+constBlockSize,y+constBlockSize);
       if arrBlockDrawParams[eBlock].bRect
          then Rectangle(x,y,x+constBlockSize,y+constBlockSize);
     end;
 
  PROCEDURE DrawMap;
     var  iRow, iCol : integer;
       x,y:integer;
       nStyle, nColor : byte;
       eBlock         : EBlockType;
  Begin
    For iCol:=0 to constMapWidth-1 do
    begin
      For iRow:=0 to constMapHeight-1  do
      begin
        eBlock := g_Map[icol,irow];
 
        SetFillStyle( arrBlockDrawParams[eBlock].nStyle
                    , arrBlockDrawParams[eBlock].nColor);
        x := constBlockSize*iCol;
        y := constBlockSize*iRow;
        DrawBlock(icol,irow,arrBlockDrawParams[eBlock].nstyle,eblock,arrBlockDrawParams[eBlock].ncolor);
      end;
 
    end;
  End;
 
var nextx,nexty:Shortint;
PROCEDURE MoveBot(mobpos,playerpos:TPos;
                  var health:byte);
var monsrtergoto:byte;
Begin
  if(playerpos.x=mobpos.x)then
    begin
      if(playerpos.y=mobpos.y)then
        begin
          health:=health-Random(5)-5;
        end
      else
        begin
          if(playerpos.y<mobpos.y)then
            begin
              if(g_map[mobpos.x,mobpos.y-1]<>ebtEmpty)and
                (g_map[mobpos.x,mobpos.y-1]<>ebtSave)then
                begin
                  nexty:=-1
                end
              else
                begin
                  if(g_map[mobpos.x+1,mobpos.y]<>ebtEmpty)and
                  (g_map[mobpos.x+1,mobpos.y]<>ebtSave)then
                    begin
                      nextx:=1;
                    end;
                  if(g_map[mobpos.x-1,mobpos.y]<>ebtEmpty)and
                    (g_map[mobpos.x-1,mobpos.y]<>ebtSave)then
                    begin
                      nextx:=-1;
                    end;
                end;
            end
          else
            begin
              if(g_map[mobpos.x,mobpos.y+1]<>ebtEmpty)and
                (g_map[mobpos.x,mobpos.y+1]<>ebtSave)then
                begin
                  nexty:=1
                end
              else
                begin
                  if(g_map[mobpos.x+1,mobpos.y]<>ebtEmpty)and
                    (g_map[mobpos.x+1,mobpos.y]<>ebtSave)then
                    begin
                      nextx:=1;
                    end;
                  if(g_map[mobpos.x-1,mobpos.y]<>ebtEmpty)and
                    (g_map[mobpos.x-1,mobpos.y]<>ebtSave)then
                    begin
                      nextx:=-1;
                    end;
                end;
            end;
          end;
    end
  else
    begin
      if(playerpos.x=mobpos.x)then
        begin
          health:=health-Random(5)-5;
        end
      else
        begin
          if(playerpos.x<mobpos.x)then
            begin
              if(g_map[mobpos.x-1,mobpos.y]<>ebtEmpty)and
                (g_map[mobpos.x-1,mobpos.y]<>ebtSave)then
                begin
                  nextx:=-1
                end
              else
                begin
                  if(g_map[mobpos.x,mobpos.y+1]<>ebtEmpty)and
                    (g_map[mobpos.x,mobpos.y+1]<>ebtSave)then
                    begin
                      nexty:=1;
                    end;
                  if(g_map[mobpos.x,mobpos.y-1]<>ebtEmpty)and
                    (g_map[mobpos.x,mobpos.y-1]<>ebtSave)then
                    begin
                      nexty:=-1;
                    end;
                end;
            end
          else
            begin
              if(g_map[mobpos.x+1,mobpos.y]<>ebtEmpty)and
                (g_map[mobpos.x+1,mobpos.y]<>ebtSave)then
                begin
                  nextx:=1
                end
              else
                begin
                  if(g_map[mobpos.x,mobpos.y+1]<>ebtEmpty)and
                    (g_map[mobpos.x,mobpos.y+1]<>ebtSave)then
                    begin
                      nexty:=1;
                    end;
                  if(g_map[mobpos.x,mobpos.y-1]<>ebtEmpty)and
                    (g_map[mobpos.x,mobpos.y-1]<>ebtSave)then
                    begin
                      nexty:=-1;
                    end;
                end;
            end;
          end;
    end;
  if((playerPos.x=mobPos.x+1)and
    (playerPos.y=mobPos.y+2))then
    begin
      if(g_map[mobpos.x,mobpos.y+1]<>ebtEmpty)and
      (g_map[mobpos.x,mobpos.y+1]<>ebtSave)then
        begin
          nexty:=1;
          nextx:=0;
        end;
    end;
  if((playerPos.x=mobPos.x+1)and
  (playerPos.y=mobPos.y+1))then
    begin
      if(g_map[mobpos.x,mobpos.y+1]<>ebtEmpty)and
      (g_map[mobpos.x,mobpos.y+1]<>ebtSave)then
        begin
          nexty:=1;
          nextx:=0;
        end;
    end;
  if((playerPos.x=mobPos.x+1)and
  (playerPos.y=mobPos.y-2))then
    begin
      if(g_map[mobpos.x,mobpos.y-1]<>ebtEmpty)and
      (g_map[mobpos.x,mobpos.y-1]<>ebtSave)then
      begin
        nexty:=-1;
        nextx:=0;
      end;
    end;
  if((playerPos.x=mobPos.x+1)and
  (playerPos.y=mobPos.y-1))then
    begin
      if(g_map[mobpos.x,mobpos.y-1]<>ebtEmpty)and
      (g_map[mobpos.x,mobpos.y-1]<>ebtSave)then
      begin
        nexty:=-1;
        nextx:=0;
      end;
    end;
  if((nextx<>0)and(nexty<>0))then
    begin
      if(Random(100)>50)then
        nextx:=0
      else
        nexty:=0;
    end;
End;
var n:integer;
PROCEDURE Bot(var posMob,posPlayer:TPos;
                  step:integer;
              var health:byte);
var eblock : eBlockType;
Begin
  if(step>100)then
  Begin
     eblock:=g_map[posMob.x,posMob.y];
     DrawBlock(posMob.x,
               posMob.y,
               arrBlockDrawParams[eBlock].nstyle,
               eblock,
               arrBlockDrawParams[eBlock].ncolor);
     SetFillStyle(1,1);
     if((nextx<>0)and(nexty<>0))then
       begin
         if(Random(100)>50)then
           nextx:=0
         else
           nexty:=0;
       end;
     MoveBot(posMob,posPlayer,health);
     posMob.x:=posMob.x+nextx;
     posMob.y:=posMob.y+nexty;
     nextx:=0;
     nexty:=0;
  end;
  if(((g_map[posMob.x+1,posMob.y]=ebtSave)or
     (g_map[posMob.x+1,posMob.y]=ebtEmpty))and
     ((g_map[posMob.x-1,posMob.y]=ebtSave)or
     (g_map[posMob.x-1,posMob.y]=ebtEmpty))and
     ((g_map[posMob.x,posMob.y+1]=ebtSave)or
     (g_map[posMob.x,posMob.y+1]=ebtEmpty))and
     ((g_map[posMob.x,posMob.y-1]=ebtSave)or
     (g_map[posMob.x,posMob.y-1]=ebtEmpty)))then
     begin
       n:=n+1;
       if(n>500)then
         begin
           CreateMobPos(posMob);
           n:=0;
         end;
     end;
  SetFillStyle(1,1);
  bar(posMob.x*constBlockSize,
      posMob.y*constBlockSize,
      posMob.x*constBlockSize+constBlockSize,
      posMob.y*constBlockSize+constBlockSize);
  Rectangle(posMob.x*constBlockSize,
            posMob.y*constBlockSize,
            posMob.x*constBlockSize+constBlockSize,
            posMob.y*constBlockSize+constBlockSize);
End;
var exit:boolean;
PROCEDURE DrawIndicators(bananas,wood,Health:integer);
var numofsquare:byte;
    strwood,strbana:string;
Begin
  {----Else----}
    if (wood > MAXNUMOFWOOD)
       then wood:=MAXNUMOFWOOD;
    if (bananas > MAXNUMOFBANANAS)
       then BANANAS:=MAXNUMOFBANANAS;
 
    SetFillStyle(1,11);
    Bar(0,450,310,480);
    SetColor(1);
    str(wood,strwood);
    strwood:='Number of wood is: '+strwood;
    str(bananas,strbana);
    strbana:='Number of bananas is: '+strbana;
    SetFillStyle(1,0);
    bar(0,440,10,450);
    OutTextXY(0,460,strbana);
    OutTextXY(0,450,strwood);
    SetColor(15);
    if(health<3)then
      Begin
        exit:=true;
      end;
  {----Else----}
 
 
  {---Health---}
  setcolor(4);
  for numofsquare:=1 to health div 10 do
    Begin
      OutTextXY(1+numofsquare*10-10,472,chr(3));
    End;
  {---Health---}
 
  SetColor(15);
 
  {---Banana---}
  SetFillStyle(1,12);
          For numofsquare:=1 to wood div 11 do
            begin
              bar(200+numofsquare*10,450,210+numofsquare*10,460);
              rectangle(200+numofsquare*10,450,210+numofsquare*10,460);
            end;
  {---Banana---}
 
 
  {----Wood----}
  SetFillStyle(1,17);
          For numofsquare:=1 to bananas div 20 do
            begin
              bar(200+numofsquare*10,460,210+numofsquare*10,470);
              rectangle(200+numofsquare*10,460,210+numofsquare*10,470);
            end;
  {----Wood----}
  setcolor(15);
End;
 
Procedure MovePlayer(var posPlayer,posMob:Tpos;
                     var health:byte);
var exit,saveorblock : boolean;
    numofwood,bananas:word;
    plants,numofstep,numofseeds:longint;
    strwood,strbana:string;
    quarrypos:tpos;
  Procedure PressKey(var SpawnHealth:integer);
  const up=72;        {Buttons keys}
        down=80;
        left=75;
        right=77;
        mine=101;
        bplant=113;
        wplant=122;
        w=119;
        a=97;
        s=115;
        d=100;
        x=120;
        j=106;
        k=107;
        h=104;
        help=59;      {Buttons keys}
  Function IsPlayerOnPlant(PlayerPOs:TPos):boolean;
  Begin
    if(g_map[PlayerPOs.x,PlayerPOs.y]=ebtBanana)then
      begin
        IsPlayerOnPlant:=true;
        plants:=plants+1;
      end
    else
      IsPlayerOnPlant:=false;
  End;
  var key : char;
      eblock : EblockType;
  Begin
    numofstep:=numofstep+1;{Number of steps}
    Bot(posMob,posPlayer,numofstep,health);{This procedure controls bot}
    if ((NumOfStep mod 20)=0){every 10 step doings somethig procedures}
       then begin
            bananas:=bananas+1+plants div 3;
            numofwood:=numofwood+numofseeds div 3;
            health:=health+5;
            if(health>100)then health:=100;
            end;
    key:=ReadKey;
    if(key=#0)then{ReadKey retuns 0 and code of key what you've pressed}
      key:=readkey;{This ReadKey returnus code of key what you've pressed}
    eblock:=g_map[posPlayer.x,posPlayer.y];
    DrawBlock(posPlayer.x,
              posPlayer.y,
              arrBlockDrawParams[eBlock].nstyle,
              eblock,arrBlockDrawParams[eBlock].ncolor);
    case ord(key) of
       up:      begin
                  if(g_map[posPlayer.x,posPlayer.y-1]<>ebtEmpty)then
                     posPlayer.y:=posPlayer.y-1;
                end;
 
       down:    begin
                  if(g_map[posPlayer.x,posPlayer.y+1]<>ebtEmpty)then
                    posPlayer.y:=posPlayer.y+1;
                end;
 
       left:    begin
                  if(g_map[posPlayer.x-1,posPlayer.y]<>ebtEmpty)then
                    posPlayer.x:=posPlayer.x-1;
                end;
 
       right:   begin
                  if(g_map[posPlayer.x+1,posPlayer.y]<>ebtEmpty)then
                    posPlayer.x:=posPlayer.x+1;
                end;
 
       x:       if(saveorblock)then
                  saveorblock:=false
                else
                  saveorblock:=true;
 
       w:       begin
                  if(bananas>=5)and(numofwood>=5)then
                    begin
                     if(saveorblock)then
                       if(g_map[posPlayer.x,posPlayer.y-1]=ebtEmpty)then
                         g_map[posPlayer.x,posPlayer.y-1]:=ebtBlock
                       else
                         g_map[posPlayer.x,posPlayer.y-1]:=ebtSave;
                  eblock:=g_map[posPlayer.x,posPlayer.y-1];
                  DrawBlock(posPlayer.x,
                            posPlayer.y-1,
                            arrBlockDrawParams[eBlock].nstyle,
                            eblock,arrBlockDrawParams[eBlock].ncolor);
                end;
                end;
 
       s:       begin
                  if(bananas>=5)and(numofwood>=5)then
                    begin
                     if(saveorblock)then
                       if(g_map[posPlayer.x,posPlayer.y+1]=ebtEmpty)then
                         g_map[posPlayer.x,posPlayer.y+1]:=ebtBlock
                     else
                       g_map[posPlayer.x,posPlayer.y+1]:=ebtSave;
                  eblock:=g_map[posPlayer.x,posPlayer.y+1];
                  DrawBlock(posPlayer.x,
                            posPlayer.y+1,
                            arrBlockDrawParams[eBlock].nstyle,
                            eblock,arrBlockDrawParams[eBlock].ncolor);
                end;
                end;
 
       a:       begin
                  if(bananas>=5)and(numofwood>=5)then
                    begin
                     if(saveorblock)then
                       if(g_map[posPlayer.x-1,posPlayer.y]=ebtEmpty)then
                         g_map[posPlayer.x-1,posPlayer.y]:=ebtBlock
                     else
                       g_map[posPlayer.x-1,posPlayer.y]:=ebtSave;
                  eblock:=g_map[posPlayer.x-1,posPlayer.y];
                  DrawBlock(posPlayer.x-1,
                            posPlayer.y,
                            arrBlockDrawParams[eBlock].nstyle,
                            eblock,arrBlockDrawParams[eBlock].ncolor);
                end;
                end;
 
       d:       begin
                  if(bananas>=5)and(numofwood>=5)then
                    begin
                     if(saveorblock)then
                       if(g_map[posPlayer.x+1,posPlayer.y]=ebtEmpty)then
                         g_map[posPlayer.x+1,posPlayer.y]:=ebtBlock
                     else
                       g_map[posPlayer.x+1,posPlayer.y]:=ebtSave;
                  eblock:=g_map[posPlayer.x+1,posPlayer.y];
                  DrawBlock(posPlayer.x+1,
                            posPlayer.y,
                            arrBlockDrawParams[eBlock].nstyle,
                            eblock,arrBlockDrawParams[eBlock].ncolor);
                end;
                end;
 
       wplant:  begin
                  if(bananas>=15)and(numofwood>=5)
                   then begin
                         bananas:=bananas-15;
                         numofwood:=numofwood-5;
                         g_map[posPlayer.x,posPlayer.y]:=ebtWoodPlant;
                         numofseeds:=numofseeds+1;
                        end;
                end;
 
       mine:    begin
                  if((bananas>=5)and(g_map[posPlayer.x,posPlayer.y]=ebtWood))
                   then begin
                         bananas:=bananas-5;
                         g_map[posPlayer.x,posPlayer.y]:=ebtGrass;
                         numofwood:=numofwood+4+Random(1);
                        end;
                  if((bananas>=MAXNUMOFBANANAS div 2)and
                    (numofwood>=MAXNUMOFWOOD div 2)and
                    (g_map[posPlayer.x,posPlayer.y]=ebtSpawn))
                   then begin
                         bananas:=100;
                         spawnhealth:=spawnhealth-1;
                         iF(spawnhealth<=0)then
                           begin
                             g_map[posPlayer.x,posPlayer.y]:=ebtGrass;
                             {spawn:=false;}
                           end;
                         numofwood:=55;
                        end;
                end;
 
       bplant:  begin
                  if(bananas>=15)
                   then begin
                         bananas:=bananas-15;
                         g_map[posPlayer.x,posPlayer.y]:=ebtYourBanana;
                        end;
                end;
 
       j:       begin
                  key:=readkey;
                  if(ord(key)=k)then
                    begin
                     key:=readkey;
                     if(ord(key)=h)then
                       begin
                         numofwood:=200;
                         bananas:=200;
                       end;
                    end;
                end;
 
       help:    begin
                  ClrScr;
                  OutTextXY(1,1,'Hello,Player!');
                  OutTextXY(1,10,'Now you plaing in Ilands Adventures v3.1 IM&Q (Intelectual Mobs & Mining).');
                  OutTextXY(1,20,'Stop you did not read help in the title scren?!');
                  OutTextXY(1,30,'Game by yegof1,n-klyshko and A-Ikon.Give us a cookie, it will be realy cool :D.');
                  ReadKey;
                  DrawMap;
                end;
 
       27:      exit:=true;
    end;
    if (IsPlayerOnPlant(posPlayer))
       then g_map[POsPlayer.x,POsPlayer.y]:=ebtYourBanana;
    DrawIndicators(bananas,numofwood,health);
    setFillStyle(9,5);
    bar(posPlayer.
        x*constBlockSize,
        posPlayer.y*constBlockSize,
        posPlayer.x*constBlockSize+10,
        posPlayer.y*constBlockSize+10);
 
    rectangle(posPlayer.x*constBlockSize,
              posPlayer.y*constBlockSize,
              posPlayer.x*constBlockSize+10,
              posPlayer.y*constBlockSize+10);
 
    if(health>100)then
      begin
        SetTextStyle(DefaultFont, HorizDir,5);
        SetColor(12);
        OutTextXY(200,130,'You lose!!!');
        delay(2000);
        ReadKey;
        exit:=true;
      end;
  End;
 
var x,spawnhealth,y:integer;
Begin
  numofstep:=0;
  numofwood:=0;
  bananas:=0;
  plants:=0;
  numofseeds:=0;
  spawnhealth:=10;
  exit:=false;
  saveorblock:=true;
  while not(exit) do
    PressKey(spawnhealth);
End;
 
var key : char;
    grDriver,grMode,mapposX,mapposY : integer;
    health:byte;
    posPlayer,posMob:Tpos;
    donothing:string;
 
Begin
  grDriver:=Detect;
  Randomize;
  InitGraph(grDriver,grMode,'../bgi');
  donothing:='mappos.pos';
  Assign(mp,'mappos.pos');
 
  if(not(FileExists(donothing)))then
    begin
      Rewrite(mp);
      WriteLn(mp,'0');
      WriteLn(mp,'0');
    end
  else
    begin
      Reset(mp);
      ReadLn(mp,mapposX);
      ReadLn(mp,mapposY);
      Close(mp);
      Rewrite(mp);
      Str(mapposX, donothing);
      MapPos := donothing + ',';
      Str(mapposY, donothing);
      MapPos := MapPos + donothing;
      WriteLn(mp,MapPos);
    end;
  donothing := mappos + '.map';
  if not(fileexists(donothing))then
    CreateMap(mappos + '.map')
  else
    ReadMap(donothing);
  SetBkColor(11);
  DrawMap;
  CreateMobPos(posMob);
  CreatePlayerPos(posPlayer);
  health:=100;
  n:=0;
  MovePlayer(posPlayer,posMob,health);
End.