Hi,
Die Lüfter auf dem Dach der V200 könnten sich drehen, ist soweit alles vorhanden.
C
-->>Deklarationen
-->>ControlValues
ControlValue = {};
--
ControlValue.CabLight = 0;
ControlValue.lastValue_CabLight = 0;
ControlValue.VirtualBrake = 0;
ControlValue.lastValue_VirtualBrake = 0;
ControlValue.TrainBrakeControl = 0;
ControlValue.lastValue_TrainBrakeControl = 0;
--<<
-->>
firstrun = true;
--<<
--<<
-->>Verweis auf das Originalskript
require ("Assets/Kuju/RailSimulator/RailVehicles/Diesel/V200/Default/Engine/v200_script.lua");
original_Initialise = Initialise;
original_Update = Update;
--<<
-->>Code
-->>Initialisierung
function Initialise()
original_Initialise(); --Ruft die alte initialise Funktion auf
Call("BeginUpdate")
end
--<<
-->>Funktion, die jeden Frame durchläuft
function Update(Interval)
original_Update(Interval); --Ruft die alte Update Funktion auf
-->>Ingamewerte Abfragen
ControlValue.CabLight = Call("GetControlValue", "CabLight", 0);
ControlValue.VirtualBrake = Call("GetControlValue", "VirtualBrake", 0);
ControlValue.TrainBrakeControl = Call("GetControlValue", "TrainBrakeControl", 0);
--<<
-->>Virtuelle Bremse
if (ControlValue.VirtualBrake ~= ControlValue.lastValue_VirtualBrake or firstrun == true) then
Call("SetControlValue", "TrainBrakeControl", 0, ControlValue.VirtualBrake);
ControlValue.lastValue_VirtualBrake = ControlValue.VirtualBrake;
end
if (Call("GetControlValue", "EmergencyBrake" , 0) > 0.1) then
Call("SetControlValue", "VirtualBrake", 0, 1);
end
--<<
-->>An- und ausschalten der Lampen
if (ControlValue.CabLight ~= ControlValue.lastValue_CabLight or firstrun == true) then
if (ControlValue.CabLight == 1 ) then
Call("CabLight_01:Activate", 1 )
Call("CabLight_02:Activate", 1 )
else
Call("CabLight_01:Activate", 0 )
Call("CabLight_02:Activate", 0 )
end
ControlValue.lastValue_CabLight = ControlValue.CabLight;
end
--<<
-->>Die RPM Werte erhalten, um die CoolerFans zu steuern
rpm = Call("GetControlValue", "RPM", 0);
rpm_change = Call("GetControlValue", "RPMDelta", 0);
value = rpm_change;
if (rpm > 750 or rpm_change > 0.1) then
Call("SetTime", "fans", rpm_change) * rpm / 10;
else
Call("SetTime", "fans", 0);
end
--<<
firstrun = false;
end
--<<
--<<aber mein Gemurkse hier, bringt den kleinen Grünen hervor: "Du noch viel zu lernen hast!" Es geht um den letzten Abschnitt im Script (RPM Werte erhalten usw.), vielleicht kann jemand helfen und weiß, wie die Lüfter angesteuert werden müssen. Bedanke mich!
Grüße
