Treasure hunt: Fixes and achievements.

* Music fix (#1115)
* Some string fixes
* Disallow gold bar production
* Add gold bar achievement for side goal

planet/Missions.ocf/TreasureHunt.ocs/ParameterDefs.txt

@@ -6,3 +6,19 @@ Achievement=Done
 		[Option]
 		Description=$Completed$
 		Value=1
+
+[ParameterDef]
+ID=Bars
+Achievement=Bars
+	[Options]
+		[Option]
+		Description=$Found5$
+		Value=1
+
+		[Option]
+		Description=$Found10$
+		Value=2
+
+		[Option]
+		Description=$Found20$
+		Value=3

planet/Missions.ocf/TreasureHunt.ocs/Script.c

@@ -109,8 +109,24 @@ static const MAX_GOLD_BARS = 20;
 func OnGoldBarCollected(object collector)
 {
 	++g_num_goldbars;
+	var sAchievement = "";
+	if (g_num_goldbars==MAX_GOLD_BARS/4)
+	{
+		sAchievement = "|$Achieve5$";
+		GainScenarioAchievement("Bars", 1);
+	}
+	else if (g_num_goldbars==MAX_GOLD_BARS/2)
+	{
+		sAchievement = "|$Achieve10$";
+		GainScenarioAchievement("Bars", 2);
+	}
+	else if (g_num_goldbars==MAX_GOLD_BARS)
+	{
+		sAchievement = "|$Achieve20$";
+		GainScenarioAchievement("Bars", 3);
+	}
 	UpdateLeagueScores();
-	Dialogue->MessageBoxAll(Format("$MsgGoldBarCollected$", g_num_goldbars, MAX_GOLD_BARS), collector, true);
+	Dialogue->MessageBoxAll(Format("$MsgGoldBarCollected$%s", g_num_goldbars, MAX_GOLD_BARS, sAchievement), collector, true);
 	return true;
 }
 

planet/Missions.ocf/TreasureHunt.ocs/StringTblDE.txt

@@ -4,3 +4,9 @@ MsgTreasureCollected=Sehr gut! Nun muss der Schatz nur noch zur
 MsgGoldBarCollected=Ich habe einen Goldbarren gefunden! (%d/%d)
 MsgStoneDoorNoDamage=Diese Steintür ist zu stabil. Ich sollte einen Schalter suchen.
 Completed=Abgeschlossen
+Found5=Mit 5 Goldbarren abgeschlossen
+Found10=Mit 10 Goldbarren abgeschlossen
+Found20=Mit 20 Goldbarren abgeschlossen
+Achieve5=Bronzenen Barren erreicht!
+Achieve10=Silbernen Barren erreicht!
+Achieve20=Goldenen Barren erreicht!

planet/Missions.ocf/TreasureHunt.ocs/StringTblUS.txt

@@ -4,3 +4,9 @@ MsgTreasureCollected=Excellent! Now we need to bring the treasure back to Dagobe
 MsgGoldBarCollected=I've found a gold bar! (%d/%d)
 MsgStoneDoorNoDamage=This stone door is too resilient. I should search for a switch.
 Completed=Completed
+Found5=Completed with 5 gold bars
+Found10=Completed with 10 gold bars
+Found20=Completed with 20 gold bars
+Achieve5=Bronze bar achieved!
+Achieve10=Silver bar achieved!
+Achieve20=Gold bar achieved!

planet/Missions.ocf/TreasureHunt.ocs/System.ocg/DlgDagobert.c

@@ -69,12 +69,12 @@ func Dlg_Dagobert_Oil1(object clonk)
 {
 	if (g_got_oil)
 	{
-		MessageBox("$DagobertOil1B$", clonk, dlg_target); // oil for gem
+		MessageBox("$DagobertOil1C$", clonk, dlg_target); // oil for gem
 		SetDialogueProgress(2);
 	}
 	else if (g_got_gem_task)
 	{
-		MessageBox("$DagobertOil1C$", clonk, dlg_target); // u already got oil
+		MessageBox("$DagobertOil1B$", clonk, dlg_target); // u already got oil
 		SetDialogueProgress(2);
 	}
 	else

planet/Missions.ocf/TreasureHunt.ocs/System.ocg/GoldBarSpecial.c

@@ -2,6 +2,8 @@
 
 #appendto GoldBar
 
+public func IsFoundryProduct() { return false; } // Don't let players produce them
+
 func Entrance(container)
 {
 	if (container->GetAlive())

planet/Missions.ocf/TreasureHunt.ocs/TreasureHunt.ocd/StringTblDE.txt

@@ -1,5 +1,5 @@
 Name=Ölsuche
-Name=Schatzsuche
+Name2=Schatzsuche
 MsgSideGoal=Sekundärziel: %d von %d Goldbarren gefunden.
 MsgGoalFulfilled=Schatz gefunden und verkauft :-)
 MsgGoalUnFulfilled=Schatz noch nicht gefunden und verkauft :-(