remove duplicate moss object in Experimental.ocd

planet/Experimental.ocd/Moss.ocd/DefCore.txt

@@ -1,19 +0,0 @@
-[DefCore]
-id=Moss
-Version=6,0
-Category=C4D_Object
-Width=8
-Height=8
-Offset=-4,-4
-Picture=0,0,64,64
-Vertices=3
-VertexX=0,2,-2
-VertexY=1,-1,-1
-VertexFriction=75,75
-Value=5
-Mass=5
-Components=Wood=2;
-Rotate=1
-Rotate=1
-Float=1
-Collectible=1

planet/Experimental.ocd/Moss.ocd/Lichen.ocd/DefCore.txt

@@ -1,7 +0,0 @@
-[DefCore]
-id=Moss_Lichen
-Version=6,0
-Category=C4D_StaticBack | C4D_Object
-Width=20
-Height=20
-Offset=-10,-10

planet/Experimental.ocd/Moss.ocd/Lichen.ocd/Script.c

@@ -1,140 +0,0 @@
-/*-- Vine --*/
-
-static const MOSS_MINDIST = 17;
-static const MOSS_MAXDIST = 20;
-static const MOSS_WATERMAXDIST = 17;
-static const MOSS_MINBURIED = 50;
-
-
-local size;
-local maxsize;
-local waterpos;
-local buriedtime;
-
-func Initialize()
-{
-	this.Plane=301+Random(230);
-	SetPosition(GetX(),GetY()+10);
-	var graphic = Random(3);
-	if(graphic)
-		SetGraphics(Format("%d",graphic));
-	size = 1;
-	buriedtime = 0;
-	waterpos = [0,0];
-	SetObjDrawTransform(10,0,0,0,10);
-	maxsize=150+Random(30);
-	SetR(Random(360));
-	SetClrModulation(RGBa(235+Random(20),235+Random(20),235+Random(20),255-Random(30)));
-	AddEffect("MossGrow", this, 100, 20, this, this.ID);
-
-}
-
-func IsProjectileTarget(weapon){return weapon->GetID() == Sword;}
-public func CanBeHitByShockwaves() { return true; }
-public func Incineration()
-{
-	Destroy();
-	return;
-}
-
-public func Damage()
-{
-	if (GetDamage() > (size/4)) Destroy();
-}
-
-private func Destroy()
-{
-	if(Random(maxsize+35)<size) CreateObjectAbove(Moss,0,0,-1);
-	var particles = 
-	{
-		Size = PV_Random(3, 7),
-		Alpha = PV_KeyFrames(0, 0, 255, 900, 255, 1000, 0),
-		ForceY = PV_Gravity(40),
-		DampingX = 900, DampingY = 900,
-		CollisionVertex = 750,
-		OnCollision = PC_Stop(),
-		Rotation = PV_Direction(PV_Random(900, 1100)),
-		Phase = PV_Random(0, 1)
-	};
-	CreateParticle("Lichen", PV_Random(-5, 5), PV_Random(-5, 5), PV_Random(-30, 30), PV_Random(-30, 30), PV_Random(36, 36 * 4), particles, 40);
-	RemoveObject();
-}
-
-
-
-protected func Replicate()
-{
-	
-	var x = RandomX(-MOSS_MAXDIST,MOSS_MAXDIST);
-	var y = RandomX(-MOSS_MAXDIST,MOSS_MAXDIST);
-	var i = 0;
-	var good=false;
-	while(i<10)
-	{
-		if(GetMaterial(x,y)!=Material("Earth") && GetMaterial(x,y)!=Material("Tunnel"))
-		{
-			i++;
-			continue;
-		}	
-		if(FindObject(Find_ID(Moss_Lichen),Find_Distance(MOSS_MINDIST,x,y)))
-		{
-			i++;
-			continue;
-		}
-		if(Distance(0,0,x,y)>MOSS_MAXDIST)
-		{
-			i++;
-			continue;
-		}
-		good = true;
-		break;
-	}
-	if(!good) return ;
-	for(var i=2+Random(5); i>0; i--)
-	if(ExtractLiquid(waterpos[0],waterpos[1]) != Material("Water")) return -1;
-	CreateObjectAbove(Moss_Lichen,x,y,-1);
-	buriedtime = -Random(MOSS_MINBURIED);
- 	
-}
-
-
-private func FxMossGrowTimer(target, effect, time)
-{
-	if(GetMaterial() != Material("Earth") && GetMaterial() != Material("Tunnel"))
-	{	
-		Destroy();
-		return 1;
-	}
-	if(size < maxsize)
-		size++;
-	SetObjDrawTransform(10*size+1,0,0,0,10*size+1 );
-
-	if(GetMaterial(waterpos[0],waterpos[1]) != Material("Water"))
-	{
-		SearchWater();
-		buriedtime = Min(buriedtime+1, MOSS_MINBURIED / 3 * 2);
-	}
-	else
-	{
-		buriedtime++;
-		if(buriedtime>MOSS_MINBURIED)
-		Replicate();
-	}
-}
-
-func SearchWater()
-{
-	for(var i = 0; i < 5; i++)
-	{
-		waterpos[0] = RandomX(-MOSS_WATERMAXDIST,MOSS_WATERMAXDIST);
-		waterpos[1] = RandomX(-MOSS_WATERMAXDIST,MOSS_WATERMAXDIST);
-		if(GetMaterial(waterpos[0],waterpos[1]) == Material("Water"))
-			break;
-	}	
-}
-
-local BlastIncinerate = 1;
-
-
-
-

planet/Experimental.ocd/Moss.ocd/Script.c

@@ -1,95 +0,0 @@
-/*-- Moss --*/
-
-static const MOSS_MAXWETNESS = 30;
-static const MOSS_LICHENDELAY = 30;
-local wetness;
-local graphic;
-local lastpos;
-local still;
-func Initialize()
-{
-	graphic = Random(3);
-	if(graphic)
-		SetGraphics(Format("%d",graphic));
-	else SetGraphics();
-	wetness = MOSS_MAXWETNESS;
-	lastpos = CreateArray();
-	AddEffect("MossMoisture",this,100,36,this,this.ID);
-	still=0;
-}
-
-
-private func FxMossMoistureTimer(target, effect, time)
-{
-	if(GetMaterial() == Material("Water"))
-	{
-		
-		if(wetness < MOSS_MAXWETNESS)
-		{	
-			wetness = MOSS_MAXWETNESS;
-			if(graphic)
-			SetGraphics(Format("%d",graphic));
-			SetGraphics();
-		}
-		if([GetX(),GetY()]==lastpos)
-			still++;
-		else 
-			still=0;
-		if(still>MOSS_LICHENDELAY)
-			TryToLichen();
-		lastpos=[GetX(),GetY()];
-	}
-	
-	else if(!Contained() && !GBackSolid() && !GBackLiquid())
-		if(wetness)
-		{
-			wetness--;
-			if(wetness == 0)
-			{
-				if(graphic)
-				SetGraphics(Format("%dDry",graphic));
-				else SetGraphics("Dry");
-			}
-		}		 
-}
-
-
-protected func TryToLichen()
-{
-	
-	var x = RandomX(-MOSS_MAXDIST,MOSS_MAXDIST);
-	var y = RandomX(-MOSS_MAXDIST,MOSS_MAXDIST);
-	var i = 0;
-	var good=false;
-	while(i<10)
-	{
-		if(GetMaterial(x,y)!=Material("Earth") && GetMaterial(x,y)!=Material("Tunnel"))
-		{
-			i++;
-			continue;
-		}	
-		if(FindObject(Find_ID(Moss_Lichen),Find_Distance(MOSS_MINDIST,x,y)))
-		{
-			i++;
-			continue;
-		}
-		if(Distance(0,0,x,y)>MOSS_MAXDIST)
-		{
-			i++;
-			continue;
-		}
-		good = true;
-		break;
-	}
-	if(!good) return ;
-	
-	CreateObjectAbove(Moss_Lichen,x,y,-1);
-	still = -MOSS_LICHENDELAY-Random(MOSS_LICHENDELAY);
- 	
-}
-
-local Collectible = 1;
-local Name = "$Name$";
-local Description = "$Description$";
-local BlastIncinerate = 1;
-local ContactIncinerate = 1;

planet/Experimental.ocd/Moss.ocd/StringTblDE.txt

@@ -1,2 +0,0 @@
-Name=Moos
-Description=Moos wächst unterirdisch nahe des Wassers. Zum kultivieren ins Wasser nahe Erde legen. Zum trocknen kontakt mit Wasser vermeiden. Kultivieren und trocknen dauern seine Zeit.

planet/Experimental.ocd/Moss.ocd/StringTblUS.txt

@@ -1,2 +0,0 @@
-Name=Moss
-Description=Moss grows close to subterraen ponds. Place in water next to earth to cultivate. To dry, put anywhere but water. Cultivation and drying take some time.