Added new settlement scenario "Golden Mountain" to Experimental.ocf

planet/Experimental.ocf/GoldenMountain.ocs/Material.ocg/Amethyst.ocm

@@ -0,0 +1,13 @@
+[Material]
+Name=Amethyst
+Shape=Rough
+Density=50
+Friction=15
+BlastFree=1
+Blast2Object=Amethyst
+Blast2ObjectRatio=100
+MaxAirSpeed=100
+MaxSlide=1
+Corrode=60
+Placement=21
+TextureOverlay=Amethyst

planet/Experimental.ocf/GoldenMountain.ocs/Material.ocg/Ruby.ocm

@@ -0,0 +1,13 @@
+[Material]
+Name=Ruby
+Shape=Rough
+Density=50
+Friction=15
+BlastFree=1
+Blast2Object=Ruby
+Blast2ObjectRatio=100
+MaxAirSpeed=100
+MaxSlide=1
+Corrode=60
+Placement=21
+TextureOverlay=Ruby

planet/Experimental.ocf/GoldenMountain.ocs/Material.ocg/TEXMAP.TXT

@@ -0,0 +1,47 @@
+OverloadMaterials
+OverloadTextures
+
+10=Tunnel-tunnel
+12=Tunnel-brickback
+
+13=BrickSoft-brick1
+
+19=DuroLava-lava_red
+20=Water-water1-water2-water3-water1-water3-water2
+22=Acid-acid
+23=Lava-lava_red
+25=Water-water
+
+28=Earth-earth
+29=Earth-earth_dry
+30=Earth-earth_rough
+31=Earth-earth_topsoil
+32=Earth-earth_midsoil
+33=Ashes-ashes
+
+36=Ore-ore
+
+40=Granite-granite
+42=Granite-rock
+
+45=Gold-gold
+
+50=Rock-rock
+51=Rock-rock_cracked
+
+53=Sulphur-sulphur
+
+54=Coal-coal
+
+55=Sand-sand_rough
+56=Sand-sand_smooth
+
+60=Ruby-Ruby
+61=Amethyst-Amethyst
+
+65=Ice-ice2
+67=Ice-ice3
+
+70=Snow-snow1
+
+73=Brick-brick1

planet/Experimental.ocf/GoldenMountain.ocs/Scenario.txt

@@ -0,0 +1,55 @@
+[Head]
+Title=GoldenMountain
+Icon=24
+Version=5,2,0,1
+Difficulty=90
+
+[Definitions]
+Definition1=Objects.ocd
+Definition2=Experimental.ocd\WallKit.ocd
+Definition3=Experimental.ocd\Gems.ocd
+
+[Game]
+Goals=Goal_SellGems=1;
+Rules=Rule_TeamAccount=1;Rule_BuyAtFlagpole=1;
+
+[Player1]
+Crew=Clonk=2
+Knowledge=Flagpole=1;Foundry=1;WindGenerator=1;SteamEngine=1;Compensator=1;Sawmill=1;ChemicalLab=1;InventorsLab=1;Elevator=1;ToolsWorkshop=1;GoldBar=1;Loam=1;Metal=1;Axe=1;Barrel=1;Dynamite=1;Hammer=1;JarOfWinds=1;Pipe=1;Shovel=1;TeleGlove=1;GrappleBow=1;Ropeladder=1;Catapult=1;Pump=1;Pickaxe=1;
+HomeBaseMaterial=Clonk=5;Bread=5;
+HomeBaseProduction=Clonk=5;Bread=5;
+
+[Player2]
+Crew=Clonk=2
+Knowledge=Flagpole=1;Foundry=1;WindGenerator=1;SteamEngine=1;Compensator=1;Sawmill=1;ChemicalLab=1;InventorsLab=1;Elevator=1;ToolsWorkshop=1;GoldBar=1;Loam=1;Metal=1;Axe=1;Barrel=1;Dynamite=1;Hammer=1;JarOfWinds=1;Pipe=1;Shovel=1;TeleGlove=1;GrappleBow=1;Ropeladder=1;Catapult=1;Pump=1;Pickaxe=1;
+HomeBaseMaterial=Clonk=5;Bread=5;
+HomeBaseProduction=Clonk=5;Bread=5;
+
+[Player3]
+Crew=Clonk=2
+Knowledge=Flagpole=1;Foundry=1;WindGenerator=1;SteamEngine=1;Compensator=1;Sawmill=1;ChemicalLab=1;InventorsLab=1;Elevator=1;ToolsWorkshop=1;GoldBar=1;Loam=1;Metal=1;Axe=1;Barrel=1;Dynamite=1;Hammer=1;JarOfWinds=1;Pipe=1;Shovel=1;TeleGlove=1;GrappleBow=1;Ropeladder=1;Catapult=1;Pump=1;Pickaxe=1;
+HomeBaseMaterial=Clonk=5;Bread=5;
+HomeBaseProduction=Clonk=5;Bread=5;
+
+[Player4]
+Crew=Clonk=2
+Knowledge=Flagpole=1;Foundry=1;WindGenerator=1;SteamEngine=1;Compensator=1;Sawmill=1;ChemicalLab=1;InventorsLab=1;Elevator=1;ToolsWorkshop=1;GoldBar=1;Loam=1;Metal=1;Axe=1;Barrel=1;Dynamite=1;Hammer=1;JarOfWinds=1;Pipe=1;Shovel=1;TeleGlove=1;GrappleBow=1;Ropeladder=1;Catapult=1;Pump=1;Pickaxe=1;
+HomeBaseMaterial=Clonk=5;Bread=5;
+HomeBaseProduction=Clonk=5;Bread=5;
+
+[Landscape]
+Sky=Clouds1
+SkyScrollMode=1
+TopOpen=0
+BottomOpen=0
+MapWidth=300
+MapHeight=100
+MapZoom=8
+FlatChunkShapes=0
+
+[Weather]
+Climate=00,0,0,00
+StartSeason=0,0,0,00
+YearSpeed=0,0,0,000
+Wind=100,0,100,100
+

planet/Experimental.ocf/GoldenMountain.ocs/Script.c

@@ -0,0 +1,69 @@
+/* Golden mountain */
+
+func Initialize()
+{
+	// Goal
+	var goal = FindObject(Find_ID(Goal_SellGems));
+	if (!goal) goal = CreateObject(Goal_SellGems);
+	goal->SetTargetAmount(30);
+	// Rules
+	if (!ObjectCount(Find_ID(Rule_TeamAccount))) CreateObject(Rule_TeamAccount);
+	if (!ObjectCount(Find_ID(Rule_BuyAtFlagpole))) CreateObject(Rule_BuyAtFlagpole);
+	return true;
+}
+
+static g_was_player_init;
+
+func InitializePlayer(int plr)
+{
+	// Harsh zoom range
+	for (var flag in [PLRZOOM_LimitMax, PLRZOOM_Direct])
+		SetPlayerZoomByViewRange(plr,500,350,flag);
+	SetPlayerViewLock(plr, true);
+	// First player init base
+	if (!g_was_player_init)
+	{
+		InitBase(plr);
+		g_was_player_init = true;
+	}
+	// Position and materials
+	var i, crew;
+	for (i=0; crew=GetCrew(plr,i); ++i)
+	{
+		crew->SetPosition(500+Random(100), 200-10);
+		crew->CreateContents(Shovel);
+	}
+	return true;
+}
+
+private func InitBase(int owner)
+{
+	// Create standard base owned by player
+	var y=200;
+	var flag = CreateObject(Flagpole, 590,y, owner);
+	var windgen = CreateObject(WindGenerator, 500,y, owner);
+	var chemlab = CreateObject(ChemicalLab, 560,y, owner);
+	var invlab = CreateObject(InventorsLab, 660,y, owner);
+	if (invlab)
+	{
+		invlab->SetClrModulation(0xff804000);
+	}
+	var toolsw = CreateObject(ToolsWorkshop, 620,y, owner);
+	if (toolsw)
+	{
+		toolsw->CreateContents(Wood, 5);
+		toolsw->CreateContents(Metal, 2);
+	}
+	var lorry = CreateObject(Lorry, 690,y-2, owner);
+	if (lorry)
+	{
+		lorry->CreateContents(GrappleBow, GetStartupPlayerCount());
+		lorry->CreateContents(JarOfWinds, 2);
+		lorry->CreateContents(TeleGlove, 1);
+		lorry->CreateContents(Axe, 1);
+		lorry->CreateContents(Hammer, 1);
+		//lorry->CreateContents(DynamiteBox, 1);
+		lorry->CreateContents(Dynamite, 2);
+	}
+	return true;
+}

planet/Experimental.ocf/GoldenMountain.ocs/System.ocg/Pickaxe.c

@@ -0,0 +1,3 @@
+#appendto Pickaxe
+
+local MaxPickDensity = 70; // can't pick granite

planet/Experimental.ocf/GoldenMountain.ocs/Title.txt

@@ -0,0 +1,2 @@
+DE:Goldener Berg
+US:Golden Mountain

planet/Experimental.ocf/RubyCave.ocs/Scenario.txt

@@ -7,6 +7,7 @@ Difficulty=90
 [Definitions]
 Definition1=Objects.ocd
 Definition2=Experimental.ocd\WallKit.ocd
+Definition3=Experimental.ocd\Gems.ocd
 
 [Game]
 Goals=Goal_SellGems=1;