From 9ad28f470ed8b8c14c120079301b8cce4c226ea8 Mon Sep 17 00:00:00 2001
From: Maikel de Vries <maikeldevries@hotmail.com>
Date: Tue, 30 Oct 2012 21:01:04 +0100
Subject: [PATCH] Fixed volcano lava chunks

---
 planet/Objects.ocd/Environment.ocd/Volcano.ocd/Script.c | 3 ++-
 planet/Settlement.ocf/Krakatoa.ocs/Script.c             | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/planet/Objects.ocd/Environment.ocd/Volcano.ocd/Script.c b/planet/Objects.ocd/Environment.ocd/Volcano.ocd/Script.c
index 932957c44..deb6b0649 100644
--- a/planet/Objects.ocd/Environment.ocd/Volcano.ocd/Script.c
+++ b/planet/Objects.ocd/Environment.ocd/Volcano.ocd/Script.c
@@ -154,7 +154,8 @@ private func Erupt()
 
 	// Cast other particles (lava chunks, ashes, ashclouds).
 	if (!Random(6))
-		CastObjects(LavaChunk, 1, 60, 0, 0, 0, 40);
+		if (WildcardMatch(MaterialName(mat), "*Lava*"))		
+			CastObjects(LavaChunk, 1, 60, 0, 0, 0, 40);
 
 	// Reduce strength.
 	if(!Random(3))
diff --git a/planet/Settlement.ocf/Krakatoa.ocs/Script.c b/planet/Settlement.ocf/Krakatoa.ocs/Script.c
index c1779b88a..51dd11c99 100644
--- a/planet/Settlement.ocf/Krakatoa.ocs/Script.c
+++ b/planet/Settlement.ocf/Krakatoa.ocs/Script.c
@@ -44,7 +44,7 @@ func Initialize()
 	// Some natural disasters, earthquakes, volcanos, meteorites.
 	Meteor->SetChance(15);
 	Earthquake->SetChance(2);
-	Volcano->SetChance(0);
+	Volcano->SetChance(4);
 	Volcano->SetMaterial("DuroLava");
 	
 	// Vegetation.