Szenario Script Vr EL

@marxkevin1996 mir ist wohl bewußt das vR hier zwar mitliest...aber antworten werden sie bei solchen Dingen hier wohl nicht ;).
Abgesehen davon hat mich hier der persönliche Ehrgeiz gepackt.
Deshalb wäre für mich die letzte Instanz eher der vR Support

ich kann im übrigem einen Teilerfolg verbuchen...

Der Kollege @Thor hat mich auf die Existenz des Syscalls "PlayerEngine:SetControlTargetValue" aufmerksam gemacht, der im Gegensatz zum Syscall "PlayerEngine:SetControlValue" hier greift! -- Danke nochmals dafür

Das einzige Problem das ich noch habe, ist das die Werte der ControlValues "PZBOnOff" und "SifaOnOff" auf 1 stehen bleiben. Beide Zugsicherungssysteme scheinen dennoch zu funktionieren (Rückmeldung bzgl. SiFa und PZB Einschaltung des vR Messagesystems kommen wie gewünscht). Tiefgründige Tests ob das Einfluß auf die Funktion beider Systeme hat habe ich nicht getätigt. Alle versuche die Werte beider Stats (SiFa-/PZBOnOff) auf "0" zu setzen, blieben bislang erfolglos. Egal ob aneinander gefügt oder mit irgendwelchen "Zeitüberbrückern" zwischen den "1" und "0" Befehlen.
Nur wenn ich "geschummelt*" habe konnte ich die Werte auf "0" zurücksetzen.

(*Die Befehle zum Zurücksetzen in einen anderen (zeitlich versetzten) Event verlagert )

Ich seh mir das morgen Abend nochmal an...wär doch gelacht

Update:

-Ich bekomme das Problem, das die ControlStates nicht zurück auf 0 gehen nicht in den Griff

-PZB und Sifa scheinen dennoch normal zu funktionieren.

PZB Zugart O wird auch gewählt...

Dennoch würde ich jedem raten das folgende Script mit allergrößter Vorsicht zu benutzen (betrifft natürlich nur den SiFa und PZB Bereich )!
Ich habe keine Ahnung, was das in einem komplexem, vorallem mit PZB-lastigen Manövern ausgestattetem, Szenario anstellt!

function sleep(n) --Funktion soll das Script fuer "n"-Sekunden anhalten...klappt irgendwie nicht!
  TIME1 = GetScenarioTime();
  while GetScenarioTime() - TIME1 <= n do 
  end
end


function OnEvent ( event )															
	if ( event == "LOCK_CONTROLS" ) then
		SysCall ( "ScenarioManager:LockControls" );
	end
	if ( event == "UNLOCK_CONTROLS" ) then
		SysCall ( "ScenarioManager:UnlockControls" );
	end
	if ( event == "CabCamera") then								
		SysCall ( "CameraManager:ActivateCamera", "CabCamera" , 0 );		
	end
	if (event == "BRAKEMODE_1") then
			SysCall ( "PlayerEngine:SetControlValue" , "BrakeMode" , 0 , 1 );    --Bremsstellung R   (nur 101)
	end
	if (event == "BRAKEMODE_2") then
			SysCall ( "PlayerEngine:SetControlValue" , "BrakeMode" , 0 , 2 );    --Bremsstellung P    
	end
	if (event == "BRAKEMODE_3" ) then
			SysCall ( "PlayerEngine:SetControlValue" , "BrakeMode" , 0 , 3 ); 	 --Bremsstellung P2  (nur 151) 
	end
	if (event == "BRAKEMODE_4" ) then
			SysCall ( "PlayerEngine:SetControlValue" , "BrakeMode" , 0 , 4 );    --Bremsstellung G    
	end
	if ( event  == "SIFA" ) then
        SysCall ( "PlayerEngine:SetControlTargetValue", "SifaOnOff" , 0 , 1 ) ;
		sleep( "2" ); --sleep( 2 ); egal ob String oder Zahl...es geht nicht!
		SysCall ( "PlayerEngine:SetControlTargetValue", "SifaOnOff" , 0 , 0 ) ; --klappt nicht ohne zeitlichen Abstand (Wert bleibt auf 1)
	end
	if ( event == "PZB_O" ) then        				
        SysCall ( "PlayerEngine:SetControlTargetValue", "PZBOnOff" , 0 , 1 ) ;
		sleep( "2" ); --sleep( 2 ); egal ob String oder Zahl...es geht nicht!
		SysCall ( "PlayerEngine:SetControlTargetValue", "PZBOnOff" , 0 , 0 ) ; --klappt nicht ohne zeitlichen Abstand (Wert bleibt auf 1)
	end
end

Wenn jemand eine Idee hat, warum meine sleep Funktion im Script nicht tut wie es soll (und diese dann auch mit mir teilen möchte ) wäre das natürlich klasse.

Der zum Script passende Fahrplan sieht für meinen Test so aus:

Falls jemand mein 25 Sekunden Test Szenario für die Verkehrsrote 101 EL haben möchte, schreibt mich an. (Das kann sich aber auch jeder mit den hier vorhandenen Infos in 2 Minuten selber basteln )

Grüße

-setter-

Als Ergänzung noch der Link zur Docu des DLC, wo ich die SetControlTargetValue Funktion gefunden habe:
https://www.google.ch/url?sa=t…5cYLWkePxi0b767uA&cad=rja

Bei der Class 442 wird damit die Zielanzeige gesteuert, allerdings in Kombination mit dem normalen SetControlValue.

Grüsse

Thorsten

So Leute...

mit @Thors Unterstützung habe ich es nun doch geschafft. Auch hier nochmals danke für Deine Hilfe

MIt dem Syscall "SysCall ( "ScenarioManager:TriggerDeferredEvent" , "<Evenname>" , n ); (n-Sekunden Verzögerung des aufzurufenden Events) ) hat das ganze funktioniert.

Hier jetzt nur mal das Rohgerüst (genau wie in meinem Letzten Beitrag, nur funktioniered ) des Scriptes.

Ich bastel die Tage mal was hübscheres zusammen (Wechsel der PZB-Zugart sollte dann auch gehen), damit man nicht gefühlte 20 Anweisungen zum Aufrüsten braucht...aber als proof of concept reicht mir das erstmal so zum zeigen.

function OnEvent ( event )															
	if ( event == "LOCK_CONTROLS" ) then
		SysCall ( "ScenarioManager:LockControls" );
	end
	if ( event == "UNLOCK_CONTROLS" ) then
		SysCall ( "ScenarioManager:UnlockControls" );
	end
	if ( event == "Sifa_null") then								
		SysCall ( "PlayerEngine:SetControlTargetValue", "SifaOnOff" , 0 , 0 ) ;
	end
	if ( event == "PZB_null") then								
		SysCall ( "PlayerEngine:SetControlTargetValue", "PZBOnOff" , 0 , 0 ) ;
	end
	if ( event == "CabCamera") then								
		SysCall ( "CameraManager:ActivateCamera", "CabCamera" , 0 );		
	end
	if (event == "BRAKEMODE_1") then
			SysCall ( "PlayerEngine:SetControlValue" , "BrakeMode" , 0 , 1 );    --Bremsstellung R   (nur 101)
	end
	if (event == "BRAKEMODE_2") then
			SysCall ( "PlayerEngine:SetControlValue" , "BrakeMode" , 0 , 2 );    --Bremsstellung P    
	end
	if (event == "BRAKEMODE_3" ) then
			SysCall ( "PlayerEngine:SetControlValue" , "BrakeMode" , 0 , 3 ); 	 --Bremsstellung P2  (nur 151) 
	end
	if (event == "BRAKEMODE_4" ) then
			SysCall ( "PlayerEngine:SetControlValue" , "BrakeMode" , 0 , 4 );    --Bremsstellung G    
	end
	if ( event  == "SIFA" ) then
        SysCall ( "PlayerEngine:SetControlTargetValue", "SifaOnOff" , 0 , 1 ) ;
		SysCall ( "ScenarioManager:TriggerDeferredEvent" , "Sifa_null" , 1 );
	end
	if ( event == "PZB_O" ) then        				
        SysCall ( "PlayerEngine:SetControlTargetValue", "PZBOnOff" , 0 , 1 ) ;
		SysCall ( "ScenarioManager:TriggerDeferredEvent" , "PZB_null" , 1 );
	end
end

Im gegensatz zum Script in meinem letzten Beitrag sollte dieses Script keinerlei Probleme bereiten.

Ich werde das ganze (frühestens am Samstag oder Sonntag) wie gesagt noch etwas optimieren.

In diesem Sinne...

Grüße

-setter-

@marxkevin1996 Dann viel Glück (passe hier super rein ins Gesrpäch oder nicht :D)

Hi, @marxkevin1996,

ich hatte die letzten Wochen viel um die Ohren...habe das aber nicht völlig verdrängt.
Vielleicht finde ich am Wochenende Zeit dafür.

Grüße

-setter-

Vielen Dank für das SCript, funktionioert hervorragend. Ich habe leidiglich ein kleines Problem: Ist es möglich eine stärkere Bremsstellung als die standartmäßigen 4,7 beim Start per Script zu setzen? Da ich mit dem Zug an einer leicht abschüssigen Strecke starte und die 4,7 den Zug nicht ganz halten kann, schaltet sich die PZB nicht ein.

Hi @Schwarzwaldbahner,

das Script beinflusst in keiner Weise irgend einen Bremshebel, nur die Bremsart...oder was meintest Du jetzt?

Grüße

-setter-

Er meint bzw möchte, dass man per Skript festlegt, dass die Bremse anstatt auf 4,7 auf 4,5 Bar geht, damit er nicht losrollt, wenn das Szenario startet.

irgend so etwas dachte ich mir schon

...nur war Bremshebelverhalten hier (bislang) noch nie ein Thema.

Bremsart ja...Durchaus.

Wer Interesse an so etwas hat muss sich nur die ControlStates der benutzen Bremsen ansehen und entsprechend Scripten...Ist doch gar nicht so schwer...oder doch

Grüße

-setter-

@-setter- @fan Exakt das meinte ich, dass ich die Bremskraft anpasse. Gut, dann werde ich mir am Wochenende mal die ControlStates anschauen.

Das Script konnte ich so replizieren, das funktioniert alles. Ich denke die Änderung des PZB-Modus aus M wird wohn auch über die ControlStates gehen, oder?