Atomic Systems

Code: Select all

						<cControlContainerBlueprint-cControlValue d:id="21517">
							<ControlName d:type="cDeltaString">DSD</ControlName>
							<DefaultValue d:type="sFloat32" d:alt_encoding="0000000000000000" d:precision="string">0</DefaultValue>
							<MinimumValue d:type="sFloat32" d:alt_encoding="0000000000000000" d:precision="string">0</MinimumValue>
							<MaximumValue d:type="sFloat32" d:alt_encoding="000000000000F03F" d:precision="string">1</MaximumValue>
							<BriefDescription d:type="cDeltaString">Driver Vigilance</BriefDescription>
							<DetailedDescription d:type="cDeltaString">Driver Vigilance</DetailedDescription>
							<ApplyToConsist d:type="cDeltaString">eFalse</ApplyToConsist>
							<HUDControlID d:type="sUInt32">0</HUDControlID>
							<InterfaceElements>
								<cControlContainerBlueprint-cInteriorPushButton d:id="21527">
									<ElementName d:type="cDeltaString">Untitled</ElementName>
									<DifficultyType d:type="cDeltaString">StopGo</DifficultyType>
									<PickTransformName d:type="cDeltaString">dsd</PickTransformName>
									<MovementType d:type="cDeltaString">MoveLeftRight</MovementType>
									<AnalogInputSensitivity d:type="sFloat32" d:alt_encoding="000000000000F03F" d:precision="string">1</AnalogInputSensitivity>
									<DigitalInputSensitivity d:type="sFloat32" d:alt_encoding="000000000000F03F" d:precision="string">1</DigitalInputSensitivity>
									<AnimationName d:type="cDeltaString"></AnimationName>
									<OutputInterface d:type="cDeltaString">eCab</OutputInterface>
									<AutoRelease d:type="cDeltaString">eTrue</AutoRelease>
								</cControlContainerBlueprint-cInteriorPushButton>
							</InterfaceElements>
						</cControlContainerBlueprint-cControlValue>

Code: Select all

--proposed class 91 replacement script
function Initialise ()
	DEBUG = false;
	Call("BeginUpdate");
end

function Update (time)

	if Call("GetIsEngineWithKey") == 1 then --do stuff for the player loco only
		DSDControlCentre (time);
	else --do everything else including the headlight effects, if necessary (if the headlight flare child objects are correctly named, the core will set them correctly anyway)

	end

end

do
local DSDTimer = 0;
local DSDDepressed = true;
local TIMER_THRESHOLD = 60;
local lastControlState = {};
for i = 1, 5 do
	lastControlState[i] = 0;
end

local function ControlStateMonitor ()

	local powerController = GetControl("Regulator");
	local masterSwitch = GetControl("Reverser");
	local trainBrake = GetControl("TrainBrakeControl");
	local horn = math.max(GetControl("Horn"), GetControl("Bell"));
	local awsReset = GetControl("AWSReset");
	
	if powerController ~= lastControlState[1] then
		lastControlState[1] = powerController;
		return true;
	elseif masterSwitch ~= lastControlState[2] then
		lastControlState[2] = masterSwitch;
		return true;
	elseif trainBrake ~= lastControlState[3] then
		lastControlState[3] = trainBrake;
		return true;
	elseif horn ~= lastControlState[4] then
		lastControlState[4] = horn;
		return true;
	elseif awsReset ~= lastControlState[5] then
		lastControlState[5] = awsReset;
		return true;
	else
		return false;
	end

end

function DSD (time)

	local dsdReset = GetControl("DSDReset"); --I don't know what the actual control name is, unfortunately, so might need to change "DSDReset". GetControl will prevent a nil value being drawn up and used further on
	
	if dsdReset > 0.5 and DSDDepressed then
		DSDDepressed = false;
	elseif dsdReset < 0.5 then
		DSDDepressed = true;
	end
	
	if not DSDDepressed or ControlStateMonitor() then --has the pedal been pressed recently or any of the 5 main controls moved?
		DSDTimer = 0;
		local emergencyBrake = GetControl("EmergencyBrakeControl");
		if emergencyBrake ~= 0 then
			Call("SetControlValue", "EmergencyBrakeControl", 0, 0);
		end
	else
		DSDTimer = DSDTimer + time;
		if DSDTimer > TIMER_THRESHOLD then
			local emergencyBrake = GetControl("EmergencyBrakeControl");
			if emergencyBrake ~= 1 then
				Call("SetControlValue", "EmergencyBrakeControl", 0, 1);
			end
		end
	end


end

local DSDOn = false;
function DSDControlCentre (time)

	local DSDSwitch = GetControl("DSDOnOff") --there might be an existing switch control on the 91/DVT, but if not, one will need to be added to the engine blueprint and to the input mapper
	
	if DSDSwitch == 0 and not DSDOn then --assume 0 is the default position 
		DSD(time);
		SysCall("ScenarioManager:ShowAlertMessageExt", "DTG Intercity 225", "DSD enabled, press Shift + Numpad Enter to disable", 5, 0);
		DSDOn = true;
	elseif DSDSwitch == 1 and DSDOn then
		SysCall("ScenarioManager:ShowAlertMessageExt", "DTG Intercity 225", "DSD disabled, press Shift + Numpad Enter to enable", 5, 0);
		DSDOn = false;
	end
	
end
end

function GetControl(controlName)

	local control = Call("GetControlValue", controlName, 0);

	if control ~= nil then
		return control;
	else
		return 0;
		if DEBUG then
			Print("Control, "..controlName..", was not found.");
		end
	end

end