anchor.diff:      for I := 0 to 49 do
         AddArea(Z, teDefaultFloor, teFloor3);
     end;
  +
     repeat
  -    Player.X := RandomRange(64, High(Byte) - 64);
  -    Player.Y := RandomRange(64, High(Byte) - 64);
  +    Player.X := RandomRange(25, High(Byte) - 25);
  +    Player.Y := RandomRange(25, High(Byte) - 25);
     until (not(GetTileEnum(Player.X, Player.Y, Current) in StopTiles));
  +
  +  AddVillage(Player.X, Player.Y);
   
     for Z := Low(TMapEnum) to High(TMapEnum) do
     begin
  
positive.code: 
  implementation
  
  uses SysUtils, Math, uPlayer, uMob, uItem, GNUGetText, uTerminal;
  
  { TMap }
  
  
negative.code: 
  function TMap.GetName: string;
  begin
    if (GetTileEnum(Player.X, Player.Y, Current) in VillageTiles) then
    begin
      case Current of
        deDarkWood:
          Result := _('Village Dork');
        deDeepCave:
          Result := _('Village Elatrom');
      end;
      Exit;
    end;
    case Current of
      deDarkWood:
        Result := _('Dark Wood');
  