Scenario for the capture the flag goal

planet/BackToTheRocks.c4f/Hideout.c4s/Scenario.txt

@@ -0,0 +1,37 @@
+[Head]
+Icon=12
+Title=Hideout
+Version=4,10,0,0
+MinPlayer=2
+MaxPlayer=8
+
+[Definitions]
+Definition1=Objects.c4d
+
+[Player1]
+Crew=Clonk=1
+
+[Player2]
+Crew=Clonk=1
+
+[Player3]
+Crew=Clonk=1
+
+[Player4]
+Crew=Clonk=1
+
+[Landscape]
+Vegetation=Seaweed=4;Fern=4
+VegetationLevel=70
+InEarth=Rock=1;Loam=1;Firestone=1
+InEarthLevel=40
+Sky=Clouds2
+MapWidth=280
+MapHeight=70
+SkyScrollMode=2
+
+[Weather]
+Climate=0,0,0,100
+StartSeason=0,0,0,100
+YearSpeed=0,0,0,100
+Wind=1,100,-100,100

planet/BackToTheRocks.c4f/Hideout.c4s/Script.c

@@ -0,0 +1,139 @@
+/*-- 
+	Hideout
+	Author: Maikel
+	
+	A capture the flag scenario for two teams, both teams occupy a fortress and must steal the flag from
+	the opposing team. The fortress is protected by doors and various weapons are there to fight with.
+--*/
+
+
+protected func Initialize()
+{
+	// Environment 
+	PlaceGrass(85);
+	
+	// Capture the flag, with bases in both fortesses.
+	var goal = CreateObject(Goal_CaptureTheFlag, 0, 0, NO_OWNER);
+	goal->SetFlagBase(1, 120, 570);
+	goal->SetFlagBase(2, LandscapeWidth() - 120, 570);
+	
+	// Doors and spinwheels.
+	var gate, wheel;
+	gate = CreateObject(CastleDoor, 366, 490, NO_OWNER);
+	wheel = CreateObject(SpinWheel, 320, 530, NO_OWNER);
+	wheel->SetCastleDoor(gate);
+	gate = CreateObject(CastleDoor, 346, 620, NO_OWNER);
+	wheel = CreateObject(SpinWheel, 270, 650, NO_OWNER);
+	wheel->SetCastleDoor(gate);
+	gate = CreateObject(CastleDoor, 846, 520, NO_OWNER);
+	wheel = CreateObject(SpinWheel, 780, 550, NO_OWNER);
+	wheel->SetCastleDoor(gate);
+	gate = CreateObject(CastleDoor, LandscapeWidth() - 364, 490, NO_OWNER);
+	wheel = CreateObject(SpinWheel, LandscapeWidth() - 320, 530, NO_OWNER);
+	wheel->SetCastleDoor(gate);
+	gate = CreateObject(CastleDoor, LandscapeWidth() - 344, 620, NO_OWNER);
+	wheel = CreateObject(SpinWheel, LandscapeWidth() - 270, 650, NO_OWNER);
+	wheel->SetCastleDoor(gate);
+	gate = CreateObject(CastleDoor, LandscapeWidth() - 844, 520, NO_OWNER);
+	wheel = CreateObject(SpinWheel, LandscapeWidth() - 780, 550, NO_OWNER);
+	wheel->SetCastleDoor(gate);
+	
+	// Chests with weapons.
+	var chest;
+	chest = CreateObject(Chest, 110, 660, NO_OWNER);
+	AddEffect("FillBaseChest", chest, 100, 2 * 36);
+	chest = CreateObject(Chest, 25, 530, NO_OWNER);
+	AddEffect("FillBaseChest", chest, 100, 2 * 36);
+	chest = CreateObject(Chest, 810, 670, NO_OWNER);
+	AddEffect("FillOtherChest", chest, 100, 2 * 36);
+	chest = CreateObject(Chest, LandscapeWidth() - 110, 660, NO_OWNER);
+	AddEffect("FillBaseChest", chest, 100, 2 * 36);
+	chest = CreateObject(Chest, LandscapeWidth() - 25, 530, NO_OWNER);
+	AddEffect("FillBaseChest", chest, 100, 2 * 36);
+	chest = CreateObject(Chest, LandscapeWidth() - 810, 670, NO_OWNER);
+	AddEffect("FillOtherChest", chest, 100, 2 * 36);
+	chest = CreateObject(Chest, 1400, 570, NO_OWNER);
+	AddEffect("FillOtherChest", chest, 100, 2 * 36);
+	
+	// Cannons loaded with 12 shots.
+	var cannon;
+	cannon = CreateObject(Cannon, 429, 514, NO_OWNER);
+	cannon->SetDir(DIR_Right);
+	cannon->SetR(15);
+	cannon->CreateContents(PowderKeg);
+	cannon = CreateObject(Cannon, 2372, 514, NO_OWNER);
+	cannon->SetDir(DIR_Left);
+	cannon->SetR(-15);
+	cannon->CreateContents(PowderKeg);
+	return;
+}
+
+protected func InitializePlayer(int plr)
+{
+	SetPlayerZoomByViewRange(plr, 600, nil, PLRZOOM_Direct);
+	return;
+}
+
+// Gamecall from CTF goal, on respawning.
+protected func OnPlayerRelaunch(int plr)
+{
+	var clonk = GetCrew(plr);
+	var relaunch = CreateObject(RelaunchContainer, clonk->GetX(), clonk->GetY(), clonk->GetOwner());
+	relaunch->StartRelaunch(clonk);
+	relaunch->SetRelaunchTime(8, true);
+	return;
+}
+
+func RelaunchWeaponList() { return [Firestone, Loam, Shovel, Dynamite]; }
+
+/*-- Chest filler effects --*/
+
+global func FxFillBaseChestStart(object target, int num, int temporary)
+{
+	if(temporary) 
+		return 1;
+	var w_list = [Bow, Shield, Sword, Javelin, Shovel, Firestone, Dynamite, Loam];
+	if (target->ContentsCount() < 5)
+		target->CreateChestContents(w_list[Random(GetLength(w_list))]);
+	return 1;
+}
+
+global func FxFillBaseChestTimer(object target)
+{
+	var w_list = [Bow, Shield, Sword, Javelin, Shovel, Firestone, Dynamite, Loam];
+	
+	if (target->ContentsCount() < 5)
+		target->CreateChestContents(w_list[Random(GetLength(w_list))]);
+	return 1;
+}
+
+global func FxFillOtherChestStart(object target, int num, int temporary)
+{
+	if(temporary) 
+		return 1;
+	var w_list = [Bow, Shield, Sword, Javelin, Club, Musket, DynamiteBox, GrappleBow, Balloon];
+	if (target->ContentsCount() < 5)
+		target->CreateChestContents(w_list[Random(GetLength(w_list))]);
+	return 1;
+}
+
+global func FxFillOtherChestTimer(object target)
+{
+	var w_list = [Bow, Shield, Sword, Javelin, Club, Musket, DynamiteBox, GrappleBow, Balloon];
+	if (target->ContentsCount() < 5)
+		target->CreateChestContents(w_list[Random(GetLength(w_list))]);
+	return 1;
+}
+
+global func CreateChestContents(id obj_id)
+{
+	if (!this)
+		return;
+	var obj = CreateObject(obj_id);
+	if (obj_id == Bow)
+		obj->CreateContents(Arrow);
+	if (obj_id == Musket)
+		obj->CreateContents(LeadShot);
+	obj->Enter(this);
+	return;
+}

planet/BackToTheRocks.c4f/Hideout.c4s/StringTblDE.txt

@@ -0,0 +1,2 @@
+NameLeft=The Ascenders
+NameRight=The Defenders

planet/BackToTheRocks.c4f/Hideout.c4s/StringTblUS.txt

@@ -0,0 +1,2 @@
+NameLeft=The Ascenders
+NameRight=The Defenders

planet/BackToTheRocks.c4f/Hideout.c4s/System.c4g/CastleDoor.c

@@ -0,0 +1,10 @@
+// Castle door destructible.
+
+#appendto CastleDoor
+
+protected func Damage()
+{
+	if (GetDamage() > 180)
+		RemoveObject();
+	return;
+}

planet/BackToTheRocks.c4f/Hideout.c4s/System.c4g/PowderKeg.c

@@ -0,0 +1,9 @@
+// Infinite gunpowder for the cannons.
+
+#appendto PowderKeg
+
+//public func SetStackCount(int amount)
+//{
+//	count = MaxStackCount();
+//	Update();
+//}

planet/BackToTheRocks.c4f/Hideout.c4s/Teams.txt

@@ -0,0 +1,18 @@
+[Teams]
+TeamColors=true
+
+	[Team]
+	id=1
+	Name=$NameLeft$
+	Color=255
+	#IconSpec=GrappleBow:1
+	MaxPlayer=4
+
+	[Team]
+	id=2
+	Name=$NameRight$
+	Color=16711680
+	#IconSpec=Shield:1
+	MaxPlayer=4
+
+

planet/BackToTheRocks.c4f/Hideout.c4s/Title.txt

@@ -0,0 +1,2 @@
+DE:Versteck
+US:Hideout

planet/Objects.c4d/Structures.c4d/CastleDoor.c4d/SpinWheel.c4d/Script.c

@@ -15,7 +15,7 @@ public func SetCastleDoor(object door)
 
 public func ControlUp(object clonk)
 {
-	if (GetAction() == "Still")
+	if (GetAction() == "Still" && targetdoor)
 	{
 		targetdoor->OpenGateDoor();
 		SetAction("SpinLeft");
@@ -25,7 +25,7 @@ public func ControlUp(object clonk)
 
 public func ControlDown(object clonk)
 {
-	if (GetAction() == "Still")
+	if (GetAction() == "Still" && targetdoor)
 	{
 		targetdoor->CloseGateDoor();
 		SetAction("SpinRight");