Hallo zusammen,
seit einiger Zeit sitze ich an der Umsetzung eines LAWO Sicma-Controls für OMSI. Den Screen hierzu will ich ähnlich einer Matrix mit Scripttexturen umsetzen. Grundsätzlich scheint das Script zu laufen, es hakt jedoch sobald ich versuche, Fonts in die Scripttextur mit einzubinden. Diese werden auf der Scripttextur nur sehr selten, fast schon zufällig angezeigt (d.h. für mich grundsätzlich kan OMSI den Font finden), meist sieht es jedoch aus, als wären da gar keine Zahlen. Dazu kommen in der Logfile Zugriffsverletzungen, aber nicht, wie man sich denken würde, eine vollgespamte Logfile, sondern nur vereinzelte Einträge. Daraus schließe ich, dass der Fehler nicht im Frame-Script, sondern in einem puktuellen Macro liegt (in diesen wird auch mit Fonts gearbeitet, in den Triggern hingegen nicht, weshalb ich diese ebenfalls ausschließen würde), jedoch sind zumindest meine 2 Augen zu blind einen Fehler zu finden.
Hier mal 2 Beispiels-Zugriffsverletzungen. Meine Vermutung ist, dass diese passiert, sobald ich den Zielcode verändern will (d.h. zahlen höher/niedriger mache).
300 00:12:59 - - Error: Zugriffsverletzung bei Adresse 005D6C37 in Modul 'Omsi.exe'. Schreiben von Adresse 2D31C820: P.TL: 8
301 00:13:05 - - Error: Zugriffsverletzung bei Adresse 005D6C37 in Modul 'Omsi.exe'. Schreiben von Adresse 484C10C0: P.TL: 8
Und im Folgenden nun die Macros, doch zuerst dessen Funktionen grob erklärt. Das reinladen von Bitmap-Texturen funktioniert übrigens Problemlos, kann also eigentlich auch als Fehlerquelle ausgeschlossen werden. (in den Fett hervorgehobenen vermute ich ein Problem)
sicma_zahlentasten: wird jedes mal beim Drücken einer der Tasten "+1000"/"-1000"; "+100"/"-100" ect. ausgelöst. Das scheint grundsätzlich auch zu funktionieren (d.h. ich kann Zielcodes korrekt einstellen), jedoch funktioniert eben die Anzeige des Codes auf dem Display nicht.
sicma_display: wird zur erneuten berechnung des Displays ausgelöst (d.h. bei jedem Druck eines Buttons)
sicma_reset: Resettet die Scripttextur bevor sie neu beschrieben wird
sicma_zielcode: soll den Zielcode groß aufs Display schreiben, während dieser eingestellt werden kann (deshalb jede Ziffer einzeln)
sicma_liniennr: selbiges für die Liniennummer
sicma_suffix: selbiges für's suffix
sicma_zielcode_klein: eine kleine Zielcodeanzeige auf dem Zielanzeigescreen
sicma_zielanzeige: Soll später das Matrixziel anzeigen, vorerst jedoch nur testweise die Liniennummer.
sicma_zielcode_refresh: Berechnet die Codes aus den eingaben der 1000er, 100er, 10er und 1er-Stelle.
Noch eine Randinfo: ich verwende für das 134x136px große Display zwecks besserer Darstellung pro eigentlichem Pixel 8 Scripttexturpixel (also 1072x288, die Scripttextur hat 2048x512), sämtliche Grafiken & Fonts sind auf diese Größe angepasst. Macht zumindest bei den gelegentlich zu sehenden Zahlen und den Bitmaps auch keine Probleme.
Nun die Macros im Script (auf Anfrage würde ich auch mehr zur Verfügung stellen, wenn dies der Lösung des Problems dient).
'------------------------
' Macros
'------------------------
{macro:sicma_zahlentasten}
' Zieleingabe
s2
0 0 0 0 "0" "0" "0"
(L.L.sicma_mode) 3 =
{if}
l2 1000 =
l2 -1000 = ||
{if}
(L.L.sicma_zielcode_t) l2 1000 / + (S.L.sicma_zielcode_t)
(L.L.sicma_zielcode_t) 9 >
{if}
0 (S.L.sicma_zielcode_t)
{endif}
(L.L.sicma_zielcode_t) 0 <
{if}
9 (S.L.sicma_zielcode_t)
{endif}
{endif}
l2 100 =
l2 -100 = ||
{if}
(L.L.sicma_zielcode_h) l2 100 / + (S.L.sicma_zielcode_h)
(L.L.sicma_zielcode_h) 9 >
{if}
0 (S.L.sicma_zielcode_h)
{endif}
(L.L.sicma_zielcode_h) 0 <
{if}
9 (S.L.sicma_zielcode_h)
{endif}
{endif}
l2 10 =
l2 -10 = ||
{if}
(L.L.sicma_zielcode_z) l2 10 / + (S.L.sicma_zielcode_z)
(L.L.sicma_zielcode_z) 9 >
{if}
0 (S.L.sicma_zielcode_z)
{endif}
(L.L.sicma_zielcode_z) 0 <
{if}
9 (S.L.sicma_zielcode_z)
{endif}
{endif}
l2 1 =
l2 -1 = ||
{if}
(L.L.sicma_zielcode_e) l2 + (S.L.sicma_zielcode_e)
(L.L.sicma_zielcode_e) 9 >
{if}
0 (S.L.sicma_zielcode_e)
{endif}
(L.L.sicma_zielcode_e) 0 <
{if}
9 (S.L.sicma_zielcode_e)
{endif}
{endif}
{endif}
' Linieneingabe
(L.L.sicma_mode) 5 =
{if}
s2
l2 1000 =
l2 -1000 = ||
{if}
(L.L.sicma_linie_t) l2 1000 / + (S.L.sicma_linie_t)
(L.L.sicma_linie_t) 9 >
{if}
0 (S.L.sicma_linie_t)
{endif}
(L.L.sicma_linie_t) 0 <
{if}
9 (S.L.sicma_linie_t)
{endif}
{endif}
l2 100 =
l2 -100 = ||
{if}
(L.L.sicma_linie_h) l2 100 / + (S.L.sicma_linie_h)
(L.L.sicma_linie_h) 9 >
{if}
0 (S.L.sicma_linie_h)
{endif}
(L.L.sicma_linie_h) 0 <
{if}
9 (S.L.sicma_linie_h)
{endif}
{endif}
l2 10 =
l2 -10 = ||
{if}
(L.L.sicma_linie_z) l2 10 / + (S.L.sicma_linie_z)
(L.L.sicma_linie_z) 9 >
{if}
0 (S.L.sicma_linie_z)
{endif}
(L.L.sicma_linie_z) 0 <
{if}
9 (S.L.sicma_linie_z)
{endif}
{endif}
l2 1 =
l2 -1 = ||
{if}
(L.L.sicma_linie_e) l2 + (S.L.sicma_linie_e)
(L.L.sicma_linie_e) 9 >
{if}
0 (S.L.sicma_linie_e)
{endif}
(L.L.sicma_linie_e) 0 <
{if}
9 (S.L.sicma_linie_e)
{endif}
{endif}
{endif}
' Suffixeingabe
(L.L.sicma_mode) 6 =
{if}
s2
l2 1000 =
l2 -1000 = ||
{if}
(L.L.sicma_suffix_t) l2 1000 / + (S.L.sicma_suffix_t)
(L.L.sicma_suffix_t) 9 >
{if}
0 (S.L.sicma_suffix_t)
{endif}
(L.L.sicma_suffix_t) 0 <
{if}
9 (S.L.sicma_suffix_t)
{endif}
{endif}
l2 100 =
l2 -100 = ||
{if}
(L.L.sicma_suffix_h) l2 100 / + (S.L.sicma_suffix_h)
(L.L.sicma_suffix_h) 9 >
{if}
0 (S.L.sicma_suffix_h)
{endif}
(L.L.sicma_suffix_h) 0 <
{if}
9 (S.L.sicma_suffix_h)
{endif}
{endif}
l2 10 =
l2 -10 = ||
{if}
(L.L.sicma_suffix_z) l2 10 / + (S.L.sicma_suffix_z)
(L.L.sicma_suffix_z) 9 >
{if}
0 (S.L.sicma_suffix_z)
{endif}
(L.L.sicma_suffix_z) 0 <
{if}
9 (S.L.sicma_suffix_z)
{endif}
{endif}
l2 1 =
l2 -1 = ||
{if}
(L.L.sicma_suffix_e) l2 + (S.L.sicma_suffix_e)
(L.L.sicma_suffix_e) 9 >
{if}
0 (S.L.sicma_suffix_e)
{endif}
(L.L.sicma_suffix_e) 0 <
{if}
9 (S.L.sicma_suffix_e)
{endif}
{endif}
{endif}
{end}
{macro:sicma_display}
0 0 0 0 "0" "0" "0"
' Scripttexturindex und Fonts
(C.L.sicma_scripttexturindex) s0
"LAWO SICMA Control gr" (M.V.GetFontIndex) s1
(M.L.sicma_reset)
(L.L.sicma_mode) 0 =
{if}
l0 "LAWO SICMA-Control\leer.png" (M.V.STLoadTex)
{endif}
(L.L.sicma_mode) 1 =
{if}
l0 "LAWO SICMA-Control\IBIS_ok.png" (M.V.STLoadTex)
(M.L.sicma_zielanzeige)
{endif}
(L.L.sicma_mode) 2 =
{if}
l0 "LAWO SICMA-Control\IBIS_menu.png" (M.V.STLoadTex)
{endif}
(L.L.sicma_mode) 3 =
{if}
(L.L.sicma_timemode) 0 =
{if}
"LAWO SICMA-Control\Ziel.png"
{endif}
(L.L.sicma_timemode) 1 =
{if}
"LAWO SICMA-Control\Ziel_1.png"
{endif}
(L.L.sicma_timemode) 2 =
{if}
"LAWO SICMA-Control\Ziel_2.png"
{endif}
l0 (M.V.STLoadTex)
(M.L.sicma_zielcode)
{endif}
(L.L.sicma_mode) 4 =
{if}
l0 "LAWO SICMA-Control\Zielanzeige.png" (M.V.STLoadTex)
(M.L.sicma_zielanzeige)
(M.L.sicma_zielcode_klein)
{endif}
(L.L.sicma_mode) 5 =
{if}
(L.L.sicma_timemode) 0 =
{if}
"LAWO SICMA-Control\Linie.png"
{else}
(L.L.sicma_timemode) 1 =
{if}
"LAWO SICMA-Control\Linie_1.png"
{else}
(L.L.sicma_timemode) 2 =
{if}
"LAWO SICMA-Control\Linie_2.png"
{endif}
{endif}
{endif}
l0 (M.V.STLoadTex)
(M.L.sicma_liniennr)
{endif}
(L.L.sicma_mode) 6 =
{if}
(L.L.sicma_timemode) 0 =
{if}
"LAWO SICMA-Control\Suffix.png"
{else}
(L.L.sicma_timemode) 1 =
{if}
"LAWO SICMA-Control\Suffix.png"
{else}
(L.L.sicma_timemode) 2 =
{if}
"LAWO SICMA-Control\Suffix.png"
{endif}
{endif}
{endif}
l0 (M.V.STLoadTex)
(M.L.sicma_suffix)
{endif}
l0 (M.V.STFilter) (M.V.STUnlock)
{end}
{macro:sicma_reset}
l0 (M.V.STLock)
l0 0 0 0 0 (M.V.STSetColor)
l0 0 0 1072 272 (M.V.STDrawRect)
{end}
{macro:sicma_zielcode}
0 0 0 0 "0" "0" "0"
' Scripttexturindex und Fonts
(C.L.sicma_scripttexturindex) s0
"LAWO SICMA Control gr" (M.V.GetFontIndex) s1
(L.L.sicma_zielcode_t) $IntToStr
l0
496
88
l1
2
8
(M.V.STTextOut)
(L.L.sicma_zielcode_h) $IntToStr
l0
576
88
l1
2
8
(M.V.STTextOut)
(L.L.sicma_zielcode_z) $IntToStr
l0
656
88
l1
2
8
(M.V.STTextOut)
(L.L.sicma_zielcode_e) $IntToStr
l0
736
88
l1
2
8
(M.V.STTextOut)
{end}
{macro:sicma_liniennr}
0 0 0 0 "0" "0" "0"
' Scripttexturindex und Fonts
(C.L.sicma_scripttexturindex) s0
"LAWO SICMA Control gr" (M.V.GetFontIndex) s1
(L.L.sicma_linie_t) $IntToStr
l0
496
88
l1
2
8
(M.V.STTextOut)
(L.L.sicma_linie_h) $IntToStr
l0
576
88
l1
2
8
(M.V.STTextOut)
(L.L.sicma_linie_z) $IntToStr
l0
656
88
l1
2
8
(M.V.STTextOut)
(L.L.sicma_linie_e) $IntToStr
l0
736
88
l1
2
8
(M.V.STTextOut)
{end}
{macro:sicma_suffix}
0 0 0 0 "0" "0" "0"
' Scripttexturindex und Fonts
(C.L.sicma_scripttexturindex) s0
"LAWO SICMA Control gr" (M.V.GetFontIndex) s1
(L.L.sicma_suffix_t) $IntToStr
l0
496
88
l1
2
8
(M.V.STTextOut)
(L.L.sicma_suffix_h) $IntToStr
l0
576
88
l1
2
8
(M.V.STTextOut)
(L.L.sicma_suffix_z) $IntToStr
l0
656
88
l1
2
8
(M.V.STTextOut)
(L.L.sicma_suffix_e) $IntToStr
l0
736
88
l1
2
8
(M.V.STTextOut)
{end}
{macro:sicma_zielcode_klein}
0 0 0 0 "0" "0" "0"
' Scripttexturindex und Fonts
(C.L.sicma_scripttexturindex) s0
"LAWO SICMA Control kl" (M.V.GetFontIndex) s1
(L.L.sicma_zielcode) $IntToStr "1 234567890"
l0
520
216
l1
2
8
(M.V.STTextOut)
{end}
{macro:sicma_zielanzeige}
0 0 0 0 "0" "0" "0"
(C.L.sicma_scripttexturindex) s0
(L.L.IBIS_TerminusIndex) s2
' Liniennummer
"LAWO SICMA Control gr" (M.V.GetFontIndex) s1
(L.$.Matrix_Nr)
l1 (M.V.TextLength) (S.L.sicma_linie_length)
l0
24
24
l1
2
8
(M.V.STTextOut)
{end}
{macro:sicma_zielcode_refresh}
0 0 0 0 "0" "0" "0"
(L.L.sicma_zielcode_t) 1000 *
(L.L.sicma_zielcode_h) 100 * +
(L.L.sicma_zielcode_z) 10 * +
(L.L.sicma_zielcode_e) 1 * +
(S.L.sicma_zielcode)
(L.L.sicma_linie_t) 1000 *
(L.L.sicma_linie_h) 100 * +
(L.L.sicma_linie_z) 10 * +
(L.L.sicma_linie_e) 1 * +
(S.L.sicma_linie)
(L.L.sicma_suffix_t) 1000 *
(L.L.sicma_suffix_h) 100 * +
(L.L.sicma_suffix_z) 10 * +
(L.L.sicma_suffix_e) 1 * +
(S.L.sicma_suffix)
' Zielcode an Matrix übertragen
(L.L.sicma_zielcode) (M.V.GetTerminusIndex) 0 >=
{if}
(L.L.sicma_zielcode) (M.V.GetTerminusIndex) (S.L.IBIS_TerminusIndex)
{else}
0 (S.L.IBIS_TerminusIndex)
{endif}
' Linie an Matrix übertragen
(L.L.sicma_linie) 100 * (L.L.sicma_suffix) + (S.L.IBIS_Linie_Complex)
{end}
Alles anzeigen
Ich würde mich sehr über fachkundige Hilfe freuen!
LG Niklas
= Englisch [EN], 
= Deutsch [DE], 
= Französisch [FR]. Wenn du die angegebene Sprache nicht beherrschst, schreibe auf Englisch! 
könntest du mir die evtl schicken?
