Experimental EvilCastle: Message when you enter the mushroom cave + misc landscape/object stuff

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

@@ -25,6 +25,8 @@ func DoInit(int first_player)
 	Object(2369)->AddPoisonEffect(0,0); // ceiling left
 	Object(2375)->AddPoisonEffect(-20,0); // floor right
 	Object(2398)->AddPoisonEffect(10,-10); // ceiling right
+	// Message when first player enters shroom area
+	ScheduleCall(nil, Scenario.ShroomCaveCheck, 21, 0xffffff);
 	// Scorching village
 	Object(343)->AddScorch(-20,-10, -45, 50, 1500);
 	Object(344)->AddScorch(-15,42, 90, 50, 1200);
@@ -120,3 +122,15 @@ func EncounterKing(object enemy, object player)
 	Dialogue->MessageBoxAll(Format("$MsgEncounterKing$", player->GetName()), enemy);
 	return true;
 }
+
+
+/* Mushroom cave encounter */
+
+func ShroomCaveCheck()
+{
+	var intruder = FindObject(Find_InRect(1252,1342,320,138), Find_OCF(OCF_CrewMember));
+	if (!intruder) return true;
+	Dialogue->MessageBoxAll("$MsgEncounterShrooms$", intruder);
+	ClearScheduleCall(nil, Scenario.ShroomCaveCheck);
+	return true;
+}

planet/Experimental.ocf/EvilCastle.ocs/StringTblDE.txt

@@ -2,3 +2,4 @@ MsgIntro1=Hilfe! King Horax hat unser Dorf zerstoert und wir sind alle zu feige,
 MsgEncounterCave=Ein Eindringling klaut unser Gold! Schnappt ihn!
 MsgEncounterOutpost=Halt, im Namen des Koenigs!
 MsgEncounterKing=Ah, %s. Ich habe Euch bereits erwartet.
+MsgEncounterShrooms=Was ist denn das fuer ein Gestank? Von diesen Pflanzen sollten wir uns besser fern halten...

planet/Experimental.ocf/EvilCastle.ocs/StringTblUS.txt

@@ -2,3 +2,4 @@ MsgIntro1=Help! Tyrant Horax has destroyed our village, drank all our beer and t
 MsgEncounterCave=An intruder tries to steal out gold. Catch him!
 MsgEncounterOutpost=Stop, in the name of the king!
 MsgEncounterKing=Ah, %s. I have been awaiting you.
+MsgEncounterShrooms=What is this smell? We better stay away from those plants...