Rollband erstellen

CityBus · 13. September 2022

Hallo Leute,

Nachdem ich viele Stunden damit verbracht habe, es selbst herauszufinden, bin ich zu dem Schluss gekommen, dass ich es einfach nicht verstehe.

Ich möchte mit Hilfe des Standardskripts von Lexicon (Tutorial: Rollbandanzeige) ein Rollband erstellen.

Der ... Teil ist nicht im Skript, da er beim Import einen Fehler hervorruft.

Spoiler anzeigen

Auch die Materialeigenschaften sind die gleichen aus dem Lexikon-Tutorial.

Mit dem FIS (Spezial) habe ich schon einiges ausprobiert, aber kein Zentimeter des Rollbandes bewegt sich. Außerdem zeigt es nur eine schwarze Textur oder eine Textur mit einigen seltsamen Streifen darauf.

Vielleicht stimmt also etwas mit den Skript- oder Materialeinstellungen nicht. Kann mir jemand sagen ob das so richtig ist?

TigerChris · 16. September 2022

Mahlzeit ,

es wäre nicht schlecht wenn jemand ein "Kochbuch" schreiben könnte wie genau das Funktioniert

Weil ich verstehe den Lexikon Artikel dazu auch nicht ganz

Mit Freundlichen Grüßen

Chris

Cedric_451 · 16. September 2022

Zitat von TigerChris

Mahlzeit ,

es wäre nicht schlecht wenn jemand ein "Kochbuch" schreiben könnte wie genau das Funktioniert

Weil ich verstehe den Lexikon Artikel dazu auch nicht ganz

Mit Freundlichen Grüßen

Chris

Alles anzeigen

Gerne auch mit Bildmaterial

tramkatze · 16. September 2022

- Ist das Script die Hauptdatei (z.B. eines Moduls) oder in eine andere Datei inkludiert?
- Wird Rollerblindsimstep irgendwo aufgerufen? Jede Prozedur, die nicht SimStep, Initialize, InitializeAfterConstSet oder Finalize heißt, muss irgendwo aufgerufen werden, meistens im SimStep. Wenn das die Hauptdatei ist, reicht es die Prozedur zu SimStep umzubenennen.
- Wird previousUpperIndex irgendwo auf -1 gesetzt?
- haben die Rollbandtexturen die UserID 12345678 und die ContentID beginnend von 10000, wie es hier steht?
DisplayNumberUpperTexID := GetTextureIndex(12345678, 10000 + upperIndex);
(ich kann dir jetzt schon sagen dass das nicht der Fall ist da das 1:1 das Script aus dem Lexikon ist, leider kann man das nicht einfach so kopieren)
- Was ist der ... Teil und welchen Fehler ruft er hervor?

Spezial-FIS-Einträge werden dir nichts bringen, da die in diesem Script nicht abgefragt werden.

Wenn du willst, kann ich dir ein zumindest annähernd funktionsfähiges Rollbandscript, mit Kommentaren versehen, zukommen lassen, damit du das versuchen kannst zu verstehen und zu adaptieren.

Zu dem Kochbuch-Vorschlag:
Gute Idee, allerdings ist ein Rollband etwas komplizierter umzusetzen als die meisten Kochbuch-Objekte, weiß also nicht ob man da so weit kommt. Was ich aber auch sagen muss ist dass die Rollband-Dokumentation (vor allem für das Script) einer der lückenhaftesten und kryptischsten ist, ich habe selbst auch mehrere Tage gebraucht, um ein Rollband zum Laufen zu bekommen. Da wäre so allgemein im Lexikon Verbesserungsbedarf.

CityBus · 17. September 2022

-Das Skript ist separat und wird daher vom Hauptskript aufgerufen.

-Der Rollerblindsimstep wurde noch nicht im Hauptskript aufgerufen, also hoffte ich, dass dies die Lösung sein würde. Aber leider ist es immer noch das gleiche Ergebnis wie vorher, es funktioniert nicht.

- Wird previousUpperIndex irgendwo auf -1 gesetzt? Ich weiß nicht, wie dieser Teil des Skripts funktioniert.

-Die UserID 12345678 im Script wird durch meine eigene 575..... Nummer von Steam ersetzt. Ich teste es mit 4 Texturen, sie haben die Content-ID-Nummern von 10000 bis 10003. Ich habe schon viele verschiedene Zahlenkombinationen ausprobiert, aber das obige Beispiel muss stimmen, denke ich?

-Wenn ich das Beispielscript von Lexicon 1:1 kopiere gibt es beim Import folgenden Fehler. Wenn ich den ... Teil lösche, kann ich erfolgreich importieren.

Wenn Sie mir und anderen ein funktionierendes Rollband-Skript zur Verfügung stellen können, wäre das großartig. Weil mir jetzt wirklich die Ideen ausgehen.

Sam302 · 17. September 2022

Zitat von CityBus

Wenn ich den ... Teil lösche, kann ich erfolgreich importieren.

Den Teil musst du auch löschen. "..." ist kein Befehl und dient nur als Orientierung.

TigerChris · 17. September 2022

Mahlzeit O´Zapft is ,

ich Frag mal meinen "lieben" Scripter ob ich sein Beispiel Rollbandscript posten darf

Dieses Funktioniert auf Basis des Lexikon Artikel und es geht nur als Modul-Klasse

(Antwort könnte bisschen dauern da WE ist )

Gruß Chris

tramkatze · 17. September 2022

Zitat von TigerChris

ich Frag mal meinen "lieben" Scripter ob ich sein Beispiel Rollbandscript posten darf

Mach das mal, ist wahrscheinlich aufgeräumter und funktioniert besser als meins. Müsstest es allerdings mit Kommentaren versehen wenn das nicht schon der Fall ist, die Scripts anderer Leute ohne Kommentare zu lesen ist ziemlich schwierig, zumindest wenn nicht alle Variablen/Prozedurnamen völlig selbsterklärend sind

Kira · 17. September 2022

Zitat von TigerChris

ich Frag mal meinen "lieben" Scripter ob ich sein Beispiel Rollbandscript posten darf

Es ist aber wirklich nichts besonderes (und sicherlich auch nicht optimal geschrieben), aber als kleine Einstieghilfe sollte es reichen

Code: SimplesRollband.pas

{PUBLIC_VARS
Line_previousUpperIndex: integer;
Line_DisplayNumberUpperTexID: integer;
Line_DisplayNumberLowerTexID: integer;
Line_DisplayNumberPreLoadTexID: integer;
Line_DisplayNumberTranslate: single;
Line_displayNumber: single;
Dest_previousUpperIndex: integer;
Dest_DisplayNumberUpperTexID: integer;
Dest_DisplayNumberLowerTexID: integer;
Dest_DisplayNumberPreLoadTexID: integer;
Dest_DisplayNumberTranslate: single;
Dest_displayNumber: single;
Rollbandbeleuchtung: single;
}
{PUBLIC_BUTTONS
Kurbel_Linie_Plus;
Kurbel_Linie_Minus;
Kurbel_Ziel_Plus;
Kurbel_Ziel_Minus;
}
// "Kurbel" die allerdings nur scriptintern genutzt wird
type
TKurbel = record
up: boolean;
down: boolean;
end;
procedure KurbelPlus(var K: TKurbel; b: boolean);
begin
if b then
K.up := true
else
K.up := false
;
end;
procedure KurbelMinus(var K: TKurbel; b: boolean);
begin
if b then
K.down := true
else
K.down := false
;
end;
var
Kurbel_L: TKurbel; // "Kurbel" fuer Linienrollband
Kurbel_Z: TKurbel; // "Kurbel" fuer Zielrollband
const
USERID = 123456; // User ID für Rollbandtexturen
CONTENTID_LINE = 10000; // Start ID fuer Linienrollband Texturen
CONTENTID_DEST = 20000; // Start ID fuer Zielrollband Texturen
MAX_LINES = 10; // maximale Anzahl der "Linien" auf dem Rollband
MAX_DEST = 20; // maximale Anzahl der "Ziele" auf dem Rollband
//##############################################################################
//
// INITIALIZATION
//
//##############################################################################
procedure Initialize;
begin
Line_displayNumber := 2.01; // Linienband beim Start ungefähr auf Position des 2. Ziels drehen
Dest_displayNumber := 1.98; // Zielband beim Start ungefähr auf Position des 2. Ziels drehen
// Diese beiden Zeilen sollten nur dafuer sorgen das die Rollbandposition nicht zu 100 Prozent ganz genau passt und sind fuer die weitere Funktion nicht relevant.
end;
//##############################################################################
//
// SimStep
//
//##############################################################################
procedure SimStep;
var
Line_upperIndex: integer;
Dest_upperIndex: integer;
begin
// Linienrollband kurbeln
if Kurbel_L.up and (Line_displayNumber < MAX_LINES) then
Line_displayNumber := Line_displayNumber + Timegap * 0.35
else if Kurbel_L.down and (Line_displayNumber > 0) then
Line_displayNumber := Line_displayNumber - Timegap * 0.35;
// Textur für Linienrollband
Line_upperIndex := trunc(Line_displayNumber); // schreibt den Index der anzuzeigenden Liniennummer
Line_DisplayNumberTranslate := Line_displayNumber - Line_upperIndex ; // "Rest" zwischen dem tatsächlichen "Kurbelstand" und der Position der oberen Nummer (aus Lexikon übernommen, aber hier noch ohne Funktion)
if Line_previousUpperIndex <> Line_upperIndex then // Schildwechsel (GetTextureIndex sollte nie dauerhaft ausgeführt werden!)
begin
Line_DisplayNumberUpperTexID := GetTextureIndex(USERID, CONTENTID_LINE + Line_upperIndex); // schreiben (laden) der aktuellen Textur
Line_DisplayNumberLowerTexID := GetTextureIndex(USERID, (CONTENTID_LINE + 1) + Line_upperIndex); // schreiben (laden) der nächsten Textur
Line_DisplayNumberPreLoadTexID := GetTextureIndex(USERID, (CONTENTID_LINE + 2) + Line_upperIndex); // zusätzliches schreiben (laden) der übernächsten Textur für das "Anti-Flacker-Polygon"
Line_previousUpperIndex := Line_upperIndex;
end;
// Zielrollband kurbeln
if Kurbel_Z.up and (Dest_displayNumber < MAX_DEST) then
Dest_displayNumber := Dest_displayNumber + Timegap * 0.35
else if Kurbel_Z.down and (Dest_displayNumber > 0) then
Dest_displayNumber := Dest_displayNumber - Timegap * 0.35;
// Textur für Zielrollband
Dest_upperIndex := trunc(Dest_displayNumber); // schreibt den Index des anzuzeigenden Zielschilds
Dest_DisplayNumberTranslate := Dest_displayNumber - Dest_upperIndex ; // "Rest" zwischen dem tatsächlichen "Kurbelstand" und der Position der oberen Nummer (aus Lexikon übernommen, aber hier noch ohne Funktion)
if Dest_previousUpperIndex <> Dest_upperIndex then // Schildwechsel (GetTextureIndex sollte nie dauerhaft ausgeführt werden!)
begin
Dest_DisplayNumberUpperTexID := GetTextureIndex(USERID, CONTENTID_DEST + Dest_upperIndex); // schreiben (laden) der aktuellen Textur
Dest_DisplayNumberLowerTexID := GetTextureIndex(USERID, (CONTENTID_DEST + 1) + Dest_upperIndex); // schreiben (laden) der nächsten Textur
Dest_DisplayNumberPreLoadTexID := GetTextureIndex(USERID, (CONTENTID_DEST + 2) + Dest_upperIndex); // zusätzliches schreiben (laden) der übernächsten Textur für das "Anti-Flacker-Polygon"
Dest_previousUpperIndex := Dest_upperIndex;
end;
end;
procedure ReceiveBroadcastSingle(busId: string; id: string; value: single);
begin
if (busid = 'GEN') and (id = 'LIGHT') then // Rollband beleuchten (Funktion muss vom Fahrzeug unterstützt werden)
Rollbandbeleuchtung := value;
end;
//##############################################################################
//
// OnButton + OnFloatInput
//
//##############################################################################
procedure OnButton(id: string; value: boolean; cockpitIndex: byte);
begin
if (id = 'Kurbel_Linie_Plus') then begin KurbelPlus(Kurbel_L, value); end
else if (id = 'Kurbel_Linie_Minus') then begin KurbelMinus(Kurbel_L, value); end
else if (id = 'Kurbel_Ziel_Plus') then begin KurbelPlus(Kurbel_Z, value); end
else if (id = 'Kurbel_Ziel_Minus') then begin KurbelMinus(Kurbel_Z, value); end
;
end;
end.

Alles anzeigen

(entweder kopieren oder aus dem Anhang herunterladen, alle Konstanten (Zeilen 57-61) anpassen und es sollte funktionieren)

TigerChris · 17. September 2022

Ich Bastel mal ein Kochbuch auf dein Script basierend Kira

(um es besser zu verstehen)

CityBus · 18. September 2022

Wow, als ich dieses Thema gestartet habe, hatte ich gehofft, eine Erklärung für mein Problem zu bekommen. Aber ich hatte nicht erwartet, ein vollständiges Tutorial zu bekommen. Vielen Dank TigerChris und Kira!

Das Skript, das Sie in diesem Thema geschrieben haben, wurde von mir sofort getestet. Das Rollband funktionierte immer noch nicht, also war ich kurz davor aufzugeben. Aber dann kam dein Tutorial und ich habe jetzt endlich ein animiertes Rollband!

Ich weiß nicht, ob das Rollband bei den vielen Versuchen, die ich mit der Änderung der Skripte und Texturen unternommen habe, vorher funktioniert hat. Der Test, den ich immer wieder gemacht habe, war, Lotus zu starten, F5 - F8 und PgUp und PgDn zu drücken. Außerdem habe ich jedes Mal den Test per Eingabe über IBIS gemacht. Das Rollband bewegte sich keinen einzigen #%*$ mm.

Also habe ich aus dem Tutorial gelernt, dass es sich bewegen kann, indem man die linke und rechte Taste auf dem Rollband mit den Maus-Interaktion Kurbel_Linie_Plus und Kurbel_Linie_Minus drückt.

Kevantasy · 18. September 2022

So erkennt man aber von weitem um welche Linie es sich handelt auch nicht schlecht 🤔🤭

CityBus · 18. September 2022

Nicht schlecht aber braucht definitiv etwas Feintuning.

Rollband erstellen

Ähnliche Themen

Pandemists Modulsammlung - Kommentare

Dokumentation GT8 Rollbänder

(Baubericht) Rathgeber München P Wagen (Triebwagen und Beiwagen) von 1969

Content-Tool fernsteuern um Rollbandtexturen zu erzeugen?