LUA-Script Verzögerungs-Befehl

**BR03_1010-2** · 4. Juni 2017

Hallo,

ich schreibe gerade die LUA-Scripts für meine Dampfloks. Kennt jemand einen LUA Befehl, der eine Art Verzögerung hervorruft. Wer nicht weiß was ich meine:

Anweisung1;

1s. Pause/Verzögerung;

Anweisung2;

Bzw. gibt es sowas überhaupt für LUA im TS? Vielleicht kann mir ja jemand helfen.

LG BR03_1010-2

questo · 4. Juni 2017

Hallo,

meinst du, dass sich die Hebel verzögert bewegen? Also eher gedämpft sind, anstatt sich so hastig nach vorne zu bewegen?

Eine Verzögerung im zeitlichen Sinne, also dass die nächste Anweisung beispielsweise erst in einer Sekunde durchgeführt wird, könnte man dadurch erreichen, dass man sich mit Call( "*:GetSimulationTime") die aktuelle Simulationszeit holt, die erste Anweisung ausführt, dann sofort die aktuelle Simulationszeit in eine andere Variable packt und die Anweisung2 nur mit einer If-Abfrage zu starten.

Code

--Deklaration außerhalb von function Update()
AusfuehrungAnweisung1 = false;
AusfuehrungAnweisung2 = false;


function Update()
    simulationsZeit = Call( "*:GetSimulationTime");

    if (AusfuehrungAnweisung1 == false) then
        AusfuehrungAnweisung1 = true;
        --fuehre Anweisung1 aus ...
        lastSimulationsZeit = simulationsZeit;
    end
    if (AusfuehrungAnweisung1 == true and AusfuehrungAnweisung2 == false and simulationsZeit >= lastSimulationsZeit + 1) then --Hier wird nun eine Sekunde gewartet, bis es weiter geht
        AusfuehrungAnweisung2 = true;
        --Fuehre Anweisung2 aus ...
    end

Alles anzeigen

**BR03_1010-2** · 4. Juni 2017

~~Nein, ich suche einen Befehl mit dem ich eine Verzögerung hervorrufen kann. In C++ sah das damals so aus:~~

Spoiler anzeigen

Ich wollte eine Art "Auf- und Abschaltung" für den Regler programmieren. Die ReglerVorwahl habe ich im Inputmapper mit den Tasten D und A belegt. Solange ReglerVorwahl größer als Regler ist sollte er den Wert Regler langsam Aufschalten, solange der Wert ReglerVorwahl kleiner als Regler ist sollte der Wert Regler langsam abgeschalten werden. Damit die Ab und Aufschaltung überhaupt eine Wirkung hat, wollte ich das auf/abschalten des Regler Wertes mit etwas Verzögerung geschehen lassen.

questo · 4. Juni 2017

Auch das kannst du in der Update()-Funktion machen. Lege dir nochmals zwei globale Variablen an. Beispielsweise ReglerSoll und ReglerIst. Nun gehst du in die Funktion "function OnControlValueChange (name, index, value)". Falls du sie noch nicht erstellt hast, solltest du das eben machen. Hast du im InputMapper auch als Parameter "ReglerVorwahl" festgelegt? Also da, wo du quasi die Tasten A und D festgelegt hast. Dann musst du unter der Funktion OnControlValueChange folgendes schreiben:

Code

--Weitere globale Variablen außerhalb jeglicher Funktionen:
ReglerIst = 0;
ReglerSoll = 0;




function OnControlValueChange ( name, index, value )
    if (name == "ReglerVorwahl") --"ReglerVorwahl" wurde im InputMapper unter "Parameter" festgelegt
        ReglerSoll = value;
    end
end


function Update()
    if (ReglerSoll > ReglerIst) then
        Call("*:SetControlValue", "Regulator", 0, RegulatorIst + 0.01); --In diesem Falle wären das dann ja 1%-Schritte, also relativ langsam.
        ReglerIst = ReglerIst + 0.01;
    elseif (ReglerSoll < ReglerIst) then
        Call("*:SetControlValue", "Regulator", 0, RegulatorIst - 0.01);
        ReglerIst = ReglerIst - 0.01;
    end
end

Alles anzeigen

So ungefähr müsste das laufen, wenn ich dich richtig verstanden habe

Wobei man hier vielleicht doch wieder mit zeitlicher Verzögerung arbeiten sollte/könnte. Da bin ich mir jetzt etwas unsicher. Denn diese Update-Funktion wird ja pro Minute auch, ich schätze mal, 100 mal durchlaufen. Und es könnte etwas performancelastig sein, wenn man ständig dieses Call("*:SetControlValue"..) aufruft. Vielleicht kombinierst du das einfach mit dem lastSimulationZeit/lastSimulationTime.

StefanDD · 4. Juni 2017

Zitat von BR03_1010-2

~~Nein, ich suche einen Befehl mit dem ich eine Verzögerung hervorrufen kann. In C++ sah das damals so aus:~~

Ich wollte eine Art "Auf- und Abschaltung" für den Regler programmieren. Die ReglerVorwahl habe ich im Inputmapper mit den Tasten D und A belegt. Solange ReglerVorwahl größer als Regler ist sollte er den Wert Regler langsam Aufschalten, solange der Wert ReglerVorwahl kleiner als Regler ist sollte der Wert Regler langsam abgeschalten werden. Damit die Ab und Aufschaltung überhaupt eine Wirkung hat, wollte ich das auf/abschalten des Regler Wertes mit etwas Verzögerung geschehen lassen.

Dafuer gibt es bereits eine spezielle Lua Anweisung im TS, die dieses Herangleiten an einen Kontrollwert regelt. Die von @questo vorgeschlagene Update-variante ist also unter Umstaenden nicht noetig. Nimm statt Call("*:SetControlValue", "Regulator", 0, Sollwert) die Anweisung Call("*:SetControlTargetValue", "Regulator", 0, Sollwert). Diese Variante erzeugt eine langsame Annaeherung des "Regulator"-Wertes an den Sollwert.

**BR03_1010-2** · 4. Juni 2017

Ich habe es mal mit dem Tipp von @StefanDD versucht, aber irgendwie fährt die Lok nicht. Ich habe in der Engine.bin die ReglerVorwahl mit der Regler-Animation verknüpft. Das Funktioierrt auch, jedoch wird der "echte" Regler nicht angesprochen:

Code

Call("*:GetControlValue", "<RegulatorVorwahl>", 0);
	if name == RegulatorVorwahl then
	value = ReglerSoll;


	end
	Call("*:SetControlTargetValue", "Regulator", 0, "ReglerSoll");

Ist dort vielleicht ein Fehler drinne? Ich habe die Variable ReglerSoll außerhalb der Funktionen hinterlegt.

StefanDD · 4. Juni 2017

Zitat von BR03_1010-2

Ist dort vielleicht ein Fehler drinne? Ich habe die Variable ReglerSoll außerhalb der Funktionen hinterlegt.

Das geht so nicht. Die Funktion Call("*:SetControlTargetValue"... benoetigt eine Zahl, keine Zeichenkette, also waere ein erlaubter Aufruf Call("*:SetControlTargetValue", "Regulator", 0, ReglerSoll) oder Call("*:SetControlTargetValue", "Regulator", 0, value);

Auch "Call("*:GetControlValue", "<RegulatorVorwahl>", 0);" ist nicht korrekt -- wozu die '<', '>'?

Insgesamt sieht das Codefragment nicht sehr sinnvoll aus und ich glaube, Du musst Dich wohl oder uebel durch ein paar Skriptingtutorials arbeiten, sonst muessten die Forumsmitglieder Dein Skript per Forumspostings Schritt fuer Schritt mitaufbauen, was, sagen wir mal, ein sehr zaeher Prozess waere.

**BR03_1010-2** · 4. Juni 2017

So, ich habe es jetzt soweit geschafft, dass es funktioniert. Jedoch erzeugt "SetControlTargetValue" keine Verzögerung bzw. keinen langsamen Anstieg bei mir.

StefanDD · 4. Juni 2017

Je nach ControlValue musst Du es evtl. paarig mit SetControlValue benutzen.
Probiere mal: Call("SetControlValue", "Regulator", 0, ReglerSoll); Call("SetControlTargetValue", "Regulator", 0, ReglerSoll)

**BR03_1010-2** · 4. Juni 2017

@StefanDD auch das hat nicht funktioniert.

Code

--------------------------------------------------------------------------------------
-- RailSimulator.com RailWorks


--------------------------------------------------------------------------------------
gUpdate = false
gEmitRate = 0.0
ReglerSoll = 0;


-- INITIALISE
function Initialise ()


	-- All emitters are active by default so turn off req effects
	Call( "Whistle Smoke:SetEmitterActive", 0 );
	Call( "Sander Right Front:SetEmitterActive", 0 );
	Call( "Sander Right Middle:SetEmitterActive", 0 );
	Call( "Sander Right Rear:SetEmitterActive", 0 );
	Call( "Sander Left Front:SetEmitterActive", 0 );
	Call( "Sander Left Middle:SetEmitterActive", 0 );
	Call( "Sander Left Rear:SetEmitterActive", 0 );
	Call( "Cylinder Cocks Left:SetEmitterActive", 0 );
	Call( "Cylinder Cocks Right:SetEmitterActive", 0 );
	gEmitRate = Call( "Main Smoke Stack:GetEmitterRate" );


	-- If player engine then update
	if Call( "GetIsPlayer" ) then
		Call( "BeginUpdate" )
		gUpdate = true
	end


end


------------------------------------------------------------
-- OnControlValueChange
------------------------------------------------------------
-- Called when a cab control is modified
------------------------------------------------------------
-- Parameters:
--	name	= Name of the control
--	index	= Index of the control
--	value	= Modified control value
------------------------------------------------------------


function OnControlValueChange ( name, index, value )


	if Call( "*:ControlExists", name, index ) then
		Call( "*:SetControlValue", name, index, value );
	end
	if name == "Horn" then
		if value > 0.01 then
			Call( "Whistle Smoke:SetEmitterActive", 1 );
		else
			Call( "Whistle Smoke:SetEmitterActive", 0 );
		end
	end
	if name == "Sander" then
		if value > 0.01 then
			Call( "Sander Right Front:SetEmitterActive", 1 );
			Call( "Sander Right Middle:SetEmitterActive", 1 );
			Call( "Sander Right Rear:SetEmitterActive", 1 );
			Call( "Sander Left Front:SetEmitterActive", 1 );
			Call( "Sander Left Middle:SetEmitterActive", 1 );
			Call( "Sander Left Rear:SetEmitterActive", 1 );
		else
			Call( "Sander Right Front:SetEmitterActive", 0 );
			Call( "Sander Right Middle:SetEmitterActive", 0 );
			Call( "Sander Right Rear:SetEmitterActive", 0 );
			Call( "Sander Left Front:SetEmitterActive", 0 );
			Call( "Sander Left Middle:SetEmitterActive", 0 );
			Call( "Sander Left Rear:SetEmitterActive", 0 );
		end
	end
	if name == "CylinderCock" then
		if value > 0.01 then
			Call( "Cylinder Cocks Left:SetEmitterActive", 1 );
			Call( "Cylinder Cocks Right:SetEmitterActive", 1 );
		else
			Call( "Cylinder Cocks Left:SetEmitterActive", 0 );
			Call( "Cylinder Cocks Right:SetEmitterActive", 0 );
		end
	end
	if name == "RegulatorVorwahl" then


	Call("SetControlValue", "Regulator", 0, value); 
	Call("SetControlTargetValue", "Regulator", 0, value);
	end
	if gUpdate ~= true and Call ( "GetIsPlayer") then
		Call( "BeginUpdate" )
		gUpdate = true
	end
end


---------------------------------------------
function Update ( time )


	-- dont update if no longer player
	if Call( "GetIsPlayer" ) == false then
		Call( "EndUpdate" )
		gUpdate = false
	end
	speed = Call ( "GetSpeed" )
	if speed < 0.0 then 
		speed = -speed;		
	end
	if speed <= 0.1 then
		Call ( "Main Smoke Stack:SetEmitterRate", 100000.0 );
	elseif speed > 0.1 then 
		Call ( "Main Smoke Stack:SetEmitterRate", gEmitRate );
	end


end

Alles anzeigen

Hier ist nochmal der gesamte Quellcode. Das meiste ist von der Kuju Black 5. Mein Teil beginnt bei Zeile 81 und endet bei Zeile 85.

Edit: @StefanDD Es hat doch funktioniert, ~~jedoch ist die ReglerVorwahl jetzt genau so schnell wie der Regulator, kann man irgendwie den SetControlTargetValue langsamer machen?~~ Meine Grundidee war ja, dass es wie bei der 86er wird. Da ich weiß, dass es da einen relativ komplexe Schieberkasten-Simulation gibt, wollte ich einfach nur diese Verzögerung hinzufügen um zumindest ein wenig von der unrealistischen Dampfloksteuerung im TS wegzukommen.

Edit2: Hat sich erledigt, ich habe es selber hinbekommen.

**BR03_1010-2** · 11. Juni 2017

Hallo,

ich habe noch eine Frage und wollte nicht unbedingt einen neuen Thread erstellen. Ich habe jetzt folgendes Problem: Ich Versuche schon den ganzen Tag lang den Sound des Troffimow-Druckausgleichsschiebers hinzubekommen. Ich wollte, damit es einfach bleibt, dass immer wenn die Lok eine Geschwindigkeit von 2km/h hat und der Regler offen ist, dieser Sound ertönt. Ich habe es schon mit SysCall("ScenarioManager:PlayDialogueSound", "Troffimow.wav"); versucht (wobei ich mir schon denken konnte, dass dieser Befehl nicht funktioniert). Außerdem habe ich Call(“ControlSound:SetParameter”, “Troffimow”, 1) versucht. Beides ohne erfolg. Hat jemand Ahnung davon und kann mir vielleicht helfen?

LG BR03_1010-2

Stephan218 · 11. Juni 2017

@BR03_1010-2

kommt das typische klacken des Troffimowschieber nicht immer sobald man den Regler öffnet egal ob 2km/h oder 40km/h?

Gruß Stephan

**BR03_1010-2** · 11. Juni 2017

@Stephan218 Theoretisch schon, jedoch wollte ich es vereinfachen, da man sonnst den ganzen Druckausgleich-Prozess simulieren müsste.

So wie ich das jetzt gelesen habe und es mir ein Dampflokführer vor ein paar Wochen erklärt hat, klackt es nur wenn zuvor während der Fahrt der Trofimow-Druckausgleich gemacht wurde. Die Besonderheit beim Trofimow-Ausgleichsschieber war, dass sich der Schieber im Zylinder einklappen konnte.

Das wurde ja meines Achtens gemacht, damit der sich während des "Rollens" der Lok kein Überdruck in den Zylindern bilden konnte, der die Lok ausbremste. Dabei galt:

Spoiler anzeigen

Bei den HSB-Loks war ja eine weitere Besonderheit, dass die beweglichen Schieberseiten keine Dämpfung hatten, deswegen auch das Charakteristische Klacken beim Losfahren, wenn sich die Schieberseiten durch den Druck wieder nach außen pressten.

Stephan218 · 11. Juni 2017

@BR03_1010-2

oh okay habe ich wieder was dazu gelernt, dass mit dem Druckausgleich wusste ich nämlich nicht.

Aber wäre es reintheoretisch nicht einfach dem Script zusagen, dass wem man den Regleröffnet das dann dieser Sound kommt egal bei welcher Geschwindigkeit.
Mit der Steuerung, dass wäre ja interneswissen.

Also ich könnt mich daran erfreuen wenn man den Regleröffnet und dieses typiche Klacken kommt, dass mit dem Druckausgleich wäre mir eigentlich egal. Und wenn es für dich einfacher wäre?

**BR03_1010-2** · 11. Juni 2017

Mein Problem ist ja in erster Linie den Sound aufzurufen und abzuspielen. Der Rest sollte kein Problem sein.

Stephan218 · 11. Juni 2017

@BR03_1010-2

mhhhh da habe ich echt zuwenig Ahnung von.

Oh mir fällt ein im Assets Ordner unter dev => Docs sind pdf Datein eine davon heißt ,,EngineScript,, vieleicht bringt die da was weiter?

LUA-Script Verzögerungs-Befehl

Teilen

Benutzer online in diesem Thema