Ticket #4354: polar_sea.js

RMS.LoadLibrary("rmgen");
RMS.LoadLibrary("rmgen2");

{
    setFogThickness(0.76);
    setFogFactor(0.7);

    setPPEffect("hdr");
    setPPSaturation(0.48);
    setPPContrast(0.53);
    setPPBloom(0.12);

    var tPrimary = ["polar_snow_a"];
    var tCliff = ["polar_cliff_a", "polar_cliff_b", "polar_cliff_snow"];
    var tSecondary = "polar_snow_glacial";
    var tHalfSnow = ["ice_01", "ice_dirt"];
    var tSnowLimited = ["polar_snow_b", "polar_ice"];
    var tDirt = "ice_dirt";
    var tRoad = "polar_ice_b";
    var tRoadWild = "polar_ice_cracked";
    var tShore = "polar_ice_snow";
    var tWater = "polar_ice_c";

    // gaia entities
    var oBush = "gaia/flora_bush_badlands";
    var oBerryBush = "gaia/flora_bush_berry";
    var oChicken = "gaia/fauna_chicken";
    var oWolf = "gaia/fauna_wolf_snow";
    var oWalrus = "gaia/fauna_walrus";
    var oWhaleFin = "gaia/fauna_whale_fin";
    var oWhaleHumpback = "gaia/fauna_whale_humpback";
    var oFish = "gaia/fauna_fish";
    var oStoneLarge = "gaia/geology_stonemine_alpine_quarry";
    var oStoneSmall = "gaia/geology_stone_alpine_a";
    var oMetalLarge = "gaia/geology_metal_alpine_slabs";

    // decorative props
    var aRockLarge = "actor|geology/stone_granite_med.xml";
    var aRockMedium = "actor|geology/stone_granite_med.xml";
    var aIceberg = "actor|props/special/eyecandy/iceberg.xml";
}

// initialize map
log("Initializing map...");

InitMap();

const numPlayers = getNumPlayers();
const mapSize = getMapSize();
const mapArea = mapSize*mapSize;

// create tile classes
var clPlayer = createTileClass();
var clWater = createTileClass();
var clDirt = createTileClass();
var clRock = createTileClass();
var clMetal = createTileClass();
var clFood = createTileClass();
var clBaseResource = createTileClass();
var clSettlement = createTileClass();
var clForest = createTileClass();

//cover the ground with the primary terrain chosen in the beginning
for (var ix = 0; ix < mapSize; ix++)
{
    for (var iz = 0; iz < mapSize; iz++)
    {
        var x = ix / (mapSize + 1.0);
        var z = iz / (mapSize + 1.0);
            placeTerrain(ix, iz, tPrimary);
    }
}

// randomize player order
var playerIDs = [];
for (var i = 0; i < numPlayers; i++)
{
    playerIDs.push(i+1);
}
playerIDs = sortPlayers(playerIDs);

// place players
var playerX = new Array(numPlayers);
var playerZ = new Array(numPlayers);
var playerAngle = new Array(numPlayers);

var startAngle = randFloat(0, TWO_PI);
for (var i = 0; i < numPlayers; i++)
{
    playerAngle[i] = startAngle + i*TWO_PI/numPlayers;
    playerX[i] = 0.5 + 0.35*cos(playerAngle[i]);
    playerZ[i] = 0.5 + 0.35*sin(playerAngle[i]);
}

RMS.SetProgress(20);

for (var i = 0; i < numPlayers; i++)
{
    var id = playerIDs[i];
    log("Creating base for player " + id + "...");

    // some constants
    var radius = scaleByMapSize(15,25);
    var cliffRadius = 2;
    var elevation = 20;

    // get the x and z in tiles
    var fx = fractionToTiles(playerX[i]);
    var fz = fractionToTiles(playerZ[i]);
    var ix = round(fx);
    var iz = round(fz);
    addToClass(ix, iz, clPlayer);
    addToClass(ix+5, iz, clPlayer);
    addToClass(ix, iz+5, clPlayer);
    addToClass(ix-5, iz, clPlayer);
    addToClass(ix, iz-5, clPlayer);

    // create the city patch
    var cityRadius = radius/3;
    var placer = new ClumpPlacer(PI*cityRadius*cityRadius, 0.6, 0.3, 10, ix, iz);
    var painter = new LayeredPainter([tRoadWild, tRoad], [1]);
    createArea(placer, painter, null);

    // create starting units
    placeCivDefaultEntities(fx, fz, id);

    // create animals
    for (var j = 0; j < 2; ++j)
    {
        var aAngle = randFloat(0, TWO_PI);
        var aDist = 7;
        var aX = round(fx + aDist * cos(aAngle));
        var aZ = round(fz + aDist * sin(aAngle));
        var group = new SimpleGroup(
            [new SimpleObject(oChicken, 5,5, 0,2)],
            true, clBaseResource, aX, aZ
        );
        createObjectGroup(group, 0);
    }

    // create berry bushes
    var bbAngle = randFloat(0, TWO_PI);
    var bbDist = 12;
    var bbX = round(fx + bbDist * cos(bbAngle));
    var bbZ = round(fz + bbDist * sin(bbAngle));
    group = new SimpleGroup(
        [new SimpleObject(oBerryBush, 5,5, 0,3)],
        true, clBaseResource, bbX, bbZ
    );
    createObjectGroup(group, 0);

    // create metal mine
    var mAngle = bbAngle;
    while(abs(mAngle - bbAngle) < PI/3)
    {
        mAngle = randFloat(0, TWO_PI);
    }
    var mDist = 12;
    var mX = round(fx + mDist * cos(mAngle));
    var mZ = round(fz + mDist * sin(mAngle));
    group = new SimpleGroup(
        [new SimpleObject(oMetalLarge, 1,1, 0,0)],
        true, clBaseResource, mX, mZ
    );
    createObjectGroup(group, 0);

    // create stone mines
    mAngle += randFloat(PI/8, PI/4);
    mX = round(fx + mDist * cos(mAngle));
    mZ = round(fz + mDist * sin(mAngle));
    group = new SimpleGroup(
        [new SimpleObject(oStoneLarge, 1,1, 0,2)],
        true, clBaseResource, mX, mZ
    );
    createObjectGroup(group, 0);

    // create wood
    var bbAngle = randFloat(0, TWO_PI);
    var bbDist = 13;
    var bbX = round(fx + bbDist * cos(bbAngle));
    var bbZ = round(fz + bbDist * sin(bbAngle));
    group = new SimpleGroup(
        [new SimpleObject("gaia/special_treasure_wood", 14,14, 0,3)],
        true, clBaseResource, bbX, bbZ
    );
    createObjectGroup(group, 0);
};

RMS.SetProgress(30);

var lakeAreas = [];
var playerConstraint = new AvoidTileClassConstraint(clPlayer, 20);
var waterConstraint = new AvoidTileClassConstraint(clWater, 8);

for (var x = 0; x < mapSize; ++x)
    for (var z = 0; z < mapSize; ++z)
        if (playerConstraint.allows(x, z) && waterConstraint.allows(x, z))
            lakeAreas.push([x, z]);

var chosenPoint;
var lakeAreaLen;

//create the lake
var fx = fractionToTiles(0.5);
var fz = fractionToTiles(0.5);
ix = round(fx);
iz = round(fz);

const lSize = sqrt(sqrt(sqrt(scaleByMapSize(1, 6))));

var placer = new ChainPlacer(2, floor(scaleByMapSize(5, 16)), floor(scaleByMapSize(35, 200)), 1, ix, iz, 0, [floor(mapSize * 0.17 * lSize)]);
var terrainPainter = new LayeredPainter(
    [tShore, tWater, tWater, tWater],       // terrains
    [1, 4, 2]       // widths
);
var elevationPainter = new SmoothElevationPainter(
    ELEVATION_SET,          // type
    -4,             // elevation
    4               // blend radius
);
createArea(placer, [terrainPainter, elevationPainter, paintClass(clWater)], avoidClasses(clPlayer, 20));

paintTerrainBasedOnHeight(3, floor(scaleByMapSize(20, 40)), 0, tCliff);
paintTerrainBasedOnHeight(floor(scaleByMapSize(20, 40)), 100, 3, tSnowLimited);

// create bumps
createBumps(avoidClasses(clWater, 2, clPlayer, 20));

RMS.SetProgress(60);

// create dirt patches
log("Creating dirt patches...");
createLayeredPatches(
 [scaleByMapSize(3, 6), scaleByMapSize(5, 10), scaleByMapSize(8, 21)],
 [[tDirt,tHalfSnow], [tHalfSnow,tSnowLimited]],
 [2],
 avoidClasses(clWater, 3, clDirt, 5, clPlayer, 12)
);

// create shrubs
log("Creating shrubs...");
createPatches(
 [scaleByMapSize(2, 4), scaleByMapSize(3, 7), scaleByMapSize(5, 15)],
 tSecondary,
 avoidClasses(clWater, 3, clDirt, 5, clPlayer, 12)
);

RMS.SetProgress(65);

log("Creating stone mines...");
// create stone quarries
createMines(
 [
  [new SimpleObject(oStoneSmall, 0,2, 0,4), new SimpleObject(oStoneLarge, 1,1, 0,4)],
  [new SimpleObject(oStoneSmall, 2,5, 1,3)]
 ],
 avoidClasses(clWater, 3, clPlayer, 20, clRock, 18)
)

log("Creating metal mines...");
// create large metal quarries
createMines(
 [
  [new SimpleObject(oMetalLarge, 1,1, 0,4)]
 ],
 avoidClasses(clWater, 3, clPlayer, 20, clMetal, 18, clRock, 5),
 clMetal
)

RMS.SetProgress(70);

// create land decoration
createDecoration
(
 [[new SimpleObject(aRockMedium, 1,3, 0,1)],
  [new SimpleObject(aRockLarge, 1,2, 0,1), new SimpleObject(aRockMedium, 1,3, 0,2)]
 ],
 [
  scaleByMapSize(16, 262),
  scaleByMapSize(8, 131),
 ],
 avoidClasses(clWater, 0, clPlayer, 0)
);

// create water decoration
createDecoration
(
 [[new SimpleObject(aIceberg, 3,5, 0,3)]
 ],
 [
  scaleByMapSize(8, 131)
 ],
 stayClasses(clWater, 6)
);


RMS.SetProgress(75);

// create land animals
createFood
(
 [
  [new SimpleObject(oWolf, 4,6, 0,4)],
  [new SimpleObject(oWalrus, 2,3, 0,2)]
 ],
 [
  3 * numPlayers,
  3 * numPlayers
 ],
 avoidClasses(clFood, 16)
);

// create water animals
createFood
(
 [
  [new SimpleObject(oWhaleFin, 1,2, 0,2)],
  [new SimpleObject(oWhaleHumpback, 1,2, 0,2)]
 ],
 [
  3 * numPlayers,
  3 * numPlayers
 ],
 [avoidClasses(clFood, 20), stayClasses(clWater, 6)]
);

// create fish
createFood
(
 [
  [new SimpleObject(oFish, 2,3, 0,2)]
 ],
 [
  15 * numPlayers
 ],
 [avoidClasses(clFood, 12), stayClasses(clWater, 6)]
);

RMS.SetProgress(85);

// create straggler trees
var types = [oBush];
createStragglerTrees(types, avoidClasses(clWater, 5, clPlayer, 12, clMetal, 1, clRock, 1));

var random_var = randInt(1,5)

if (random_var==1)
    setSkySet("cirrus");
else if (random_var ==2)
    setSkySet("cumulus");
else if (random_var ==3)
    setSkySet("sunny");
else if (random_var ==4)
    setSkySet("overcast");
else if (random_var ==3)
    setSkySet("rain");


setSunRotation(randFloat(0, TWO_PI));
setSunElevation(randFloat(PI/ 4, PI / 2));
setWaterColor(0.0, 0.047, 0.286);               // dark majestic blue
setWaterTint(0.462, 0.756, 0.866);              // light blue
setWaterMurkiness(0.92);
setWaterWaviness(1.0);
setWaterType("clap");

// Export map data
ExportMap();