Added Powered Ladders that offer scripted vertical assistance

Author: fourZK

Base.rte/Scenes/Objects/Bunkers/BunkerSystems/BunkerSystems.ini

@@ -75,4 +75,136 @@ AddTerrainObject = TerrainObject
 			Y = -39
 		HFlipped = 1
 		Rotation = Matrix
-			AngleDegrees = 90
+			AngleDegrees = 90
+
+// This particle is for creating cracks around the destroyed node
+AddParticle = MOPixel
+	PresetName = Node Spark
+	Mass = 1
+	RestThreshold = 500
+	LifeTime = 10
+	Sharpness = 10
+	HitsMOs = 0
+	GetsHitByMOs = 0
+	Color = Color
+		R = 255
+		G = 255
+		B = 255
+	Atom = Atom
+		Material = Material
+			CopyOf = Air Blast
+		TrailColor = Color
+			R = 255
+			G = 255
+			B = 255
+		TrailLength = 25
+
+
+AddActor = MOSRotating
+	PresetName = Powered Ladder Node
+	PinStrength = 1000
+	Mass = 20
+	RestThreshold = 0
+	HitsMOs = 0
+	GetsHitByMOs = 1
+	SpriteFile = ContentFile
+		FilePath = Base.rte/Scenes/Objects/Bunkers/BunkerSystems/LadderNode.bmp
+	FrameCount = 1
+	SpriteOffset = Vector
+		X = -12
+		Y = -12
+	ScriptPath = Base.rte/Scenes/Objects/Bunkers/BunkerSystems/LadderNode.lua
+	EntryWound = AEmitter
+		CopyOf = Dent Metal
+	ExitWound = AEmitter
+		CopyOf = Dent Metal
+	AtomGroup = AtomGroup
+		AutoGenerate = 1
+		Material = Material
+			CopyOf = Military Stuff
+		Resolution = 1
+		Depth = 0
+	DeepGroup = AtomGroup
+		AutoGenerate = 1
+		Material = Material
+			CopyOf = Military Stuff
+		Resolution = 4
+		Depth = 6
+	DeepCheck = 0
+	AddGib = Gib
+		GibParticle = MOSParticle
+			CopyOf = Gib Glass Micro A
+		Count = 3
+	AddGib = Gib
+		GibParticle = MOPixel
+			CopyOf = Spark Yellow 1
+		Count = 6
+		Spread = 3.14
+		MaxVelocity = 30
+		MinVelocity = 15
+		LifeVariation = 0.30
+	AddGib = Gib
+		GibParticle = MOSParticle
+			CopyOf = Tiny Smoke Ball 1
+		Count = 3
+		Spread = 3.14
+		MaxVelocity = 30
+		MinVelocity = 15
+		LifeVariation = 0.30
+	AddGib = Gib
+		GibParticle = MOPixel
+			CopyOf = Node Spark
+		Count = 9
+		Spread = 3.14
+		MaxVelocity = 30
+		MinVelocity = 15
+	GibImpulseLimit = 500
+	GibWoundLimit = 5
+	GibSound = Sound
+		CopyOf = Robot Death
+
+
+AddTerrainObject = TerrainObject
+	PresetName = Powered Ladder Left
+	Description = Having trouble climbing regular ladders? This model will offer you the vertical assistance you need.
+	AddToGroup = Bunker Systems
+	GoldValue = 10
+	FGColorFile = ContentFile
+		Path = Base.rte/Scenes/Objects/Bunkers/BunkerSystems/LadderAFG.bmp
+	MaterialFile = ContentFile
+		Path = Base.rte/Scenes/Objects/Bunkers/BunkerSystems/LadderAMat.bmp
+	BGColorFile = ContentFile
+		Path = Base.rte/Scenes/Objects/Bunkers/BunkerSystems/LadderABG.bmp
+	BitmapOffset = Vector
+		X = 0
+		Y = 0
+	AddChildObject = SOPlacer
+		PlacedObject = MOSRotating
+			CopyOf = Powered Ladder Node
+		Offset = Vector
+			X = 12
+			Y = 12
+			
+			
+AddTerrainObject = TerrainObject
+	PresetName = Powered Ladder Right
+	Description = Having trouble climbing regular ladders? This model will offer you the vertical assistance you need.
+	AddToGroup = Bunker Systems
+	GoldValue = 10
+	FGColorFile = ContentFile
+		Path = Base.rte/Scenes/Objects/Bunkers/BunkerSystems/LadderBFG.bmp
+	MaterialFile = ContentFile
+		Path = Base.rte/Scenes/Objects/Bunkers/BunkerSystems/LadderBMat.bmp
+	BGColorFile = ContentFile
+		Path = Base.rte/Scenes/Objects/Bunkers/BunkerSystems/LadderBBG.bmp
+	BitmapOffset = Vector
+		X = 0
+		Y = 0
+	AddChildObject = SOPlacer
+		PlacedObject = MOSRotating
+			CopyOf = Powered Ladder Node
+		Offset = Vector
+			X = 12
+			Y = 12
+		HFlipped = 1
+			

Base.rte/Scenes/Objects/Bunkers/BunkerSystems/LadderABG.bmp

@@ -0,0 +1,26 @@
+function Create(self)
+	self.checkTimer = Timer();
+	self.checkTimer:SetSimTimeLimitMS(51);
+	self.width = (ToMOSprite(self):GetSpriteWidth() / 2) - 1;
+	self.height = (ToMOSprite(self):GetSpriteHeight() / 2) - 1;
+end
+function Update(self)
+	if self.PinStrength > 0 and self.checkTimer:IsPastSimTimeLimit() then
+		self.checkTimer:Reset();
+		self.checkTimer:SetSimTimeLimitMS(51 + self.WoundCount * 34);
+		self.Vel, self.AngularVel = Vector(), 0;
+		local checkPos = self.Pos + Vector(self.width * self.FlipFactor, math.random(-self.height, self.height)):RadRotate(self.RotAngle);
+		local moCheck = SceneMan:GetMOIDPixel(checkPos.X, checkPos.Y);
+		if moCheck ~= 255 then
+			local mo = MovableMan:GetMOFromID(moCheck);
+			if IsAttachable(mo) and ToAttachable(mo):GetParent() and IsAHuman(ToAttachable(mo):GetParent()) then
+				local actor = ToAHuman(MovableMan:GetMOFromID(mo.RootID));
+				local controller, velFactor = actor:GetController(), 1 + actor.Vel.Magnitude * 0.3;
+				if actor.Status == Actor.STABLE and actor.FlipFactor ~= self.FlipFactor and not controller:IsState(Controller.BODY_JUMP) then
+					actor.Vel = actor.Vel * (1 - 1 / velFactor);
+					if controller:IsState(Controller.MOVE_LEFT) or controller:IsState(Controller.MOVE_RIGHT) then
+						local speed = actor:GetLimbPathSpeed(1) / velFactor;
+						actor.Vel = actor.Vel + Vector(speed / 2, 0):RadRotate(actor:GetAimAngle(true)) - Vector(0, speed);
+					elseif controller:IsState(Controller.BODY_CROUCH) then
+						actor.Vel = actor.Vel / 2;
+end	end	end	end	end	end