OMSI - Omnibussimulator 1 & 2
Jelentkezz be a hozzászóláshoz.
#53808
Üdvözlend mindenki! :D
Megtörve a csendet, az Ikarus 256.44-hez jöjjön egy Volánbusz festés :D
A Rábáshoz:
És a Detroitoshoz egyaránt :D
Letölthető egyben, Innen
Megtörve a csendet, az Ikarus 256.44-hez jöjjön egy Volánbusz festés :D
A Rábáshoz:
És a Detroitoshoz egyaránt :D
Letölthető egyben, Innen
Üdv ich!
#53807
Pont, hogy mindig (relatíve) baromi messze állok meg vele, mert már azt hiszem, mindjárt neki megyek. :) Az ap-sekkel meg "lazán" vezetve is simán sikerül pár cm-re megállni, igaz azokat meg jobban ki kell egyenesíteni, főleg a csuklóst.
A váltás probléma megoldódott. Működik az automata kuplung, csak le tud fulladni, így igazándiból csak félautomata, de teljesen használható, csak nem olyan, mint az o305-nél, én meg ahhoz voltam szokva. Az omsi 2 meg nem engedi billentyűre rakni a (3.) tengely funckióját, ha akítv a játékvezérlő, ezért dobálta ki a sebességet, mert nem érzékelte a kuplungolást...
A váltás probléma megoldódott. Működik az automata kuplung, csak le tud fulladni, így igazándiból csak félautomata, de teljesen használható, csak nem olyan, mint az o305-nél, én meg ahhoz voltam szokva. Az omsi 2 meg nem engedi billentyűre rakni a (3.) tengely funckióját, ha akítv a játékvezérlő, ezért dobálta ki a sebességet, mert nem érzékelte a kuplungolást...
#53803
Ja jó, én arra gondoltam amit Nemeza módosított
#53803
Talán bpvkv.atw.hu Egyébként ilyen, hogy Kispest 2.0 nincsen, mivel azt hivatalosan Routeres készíti.
http://www.youtube.com/user/OMSITNH | Intel Core i5-4460 | 8 GB RAM | Geforce GT640
#53802
Van olyan command (Vehicle Key Event) a billentyűparancsoknál, hogy V - Take the change azaz visszajáró elvétele.
Én ezt a Shift+T -re állítottam be ( T: jegy, Ctrl+T: visszajáró, Shift+T: pénz elvétele).
Utoljára szerkesztette: gylacus, 2014.08.29. 09:32:01
Én ezt a Shift+T -re állítottam be ( T: jegy, Ctrl+T: visszajáró, Shift+T: pénz elvétele).
Utoljára szerkesztette: gylacus, 2014.08.29. 09:32:01
PC: i5-3570, 4GB, HD6850 1, G27, CM Blizzard T2 Laptop ASUS ZenBook 15" i7-3612HQ 6GB
#53801
Sziasztok nem tudja valaki, hogy Kispest 2.0-hoz nincsenek-e futár hangok?
#53800
Szia!
Az OMSI 1 magyarítása is jó hozzá, csak nagyjából a 80%-át fordítja le.
Az OMSI 1 magyarítása is jó hozzá, csak nagyjából a 80%-át fordítja le.
MSI B350 | Ryzen5 1600| Hyperx-Predator 16GB | Geforce GTX 1050 2GB | Chieftec 600w-smart | Windows 10 Pro (64bit). Játékok: OMSI2, SA-MP, MTA, CS:GO. Kormány: DFGT.
#53799
Hali! Látom nem vagyok egyedül ezzel a jegykiadásos problémával. Összevissza pakolják a pénzt, általában a szélvédő osztásra teszik, de van amikor a fejem fölé nyúl és nem találom az istennek sem. :( Valakinek van ötlete?
#53798
Nem hogy Ikarus c56.42 jött volna. :) De persze ne legyek telhetetlen, ez is jó. Sőt nagyon tetszik. Gratulálok a készítőknek!
#53797
Köszönöm szépen ! :)
#53796
Én hozzáadtam két bmp-t a Rollband_SD79-hez, és a bmpket még hozzá is vetettem a chtex_rollband.cfg-hez, mégsem úgy működik ahogy kéne, na mindegy... De az a lényeg, hogy a "92E" gombbal legalább belehet ütni azt.
#53795
Nekem se. Itt is bill.+egér.
______________________________
Nem szeretem a helyközi/távolsági buszokat, de ez még nekem is tetszik! :) Grat!
______________________________
Nem szeretem a helyközi/távolsági buszokat, de ez még nekem is tetszik! :) Grat!
#53794
Nem tudom hogy páran mit művelnek a 256-ossal. Nekem sose fullad le(és nem pörög fel). Pedig én billentyűvel és egérrel játszok.
Asus M5A97 Evo R2.0,AMD FX8350,DDR3 Kingston HyperX Blu 8GB KIT 1600Mhz,Sapphire HD 6950 OC+Accelero Extrem Plus II,Samsung 830 SSD 128GB,WD20EURS,WD10EZEX
#53793
Kuplungot használod? <#vigyor>
Más:
Utoljára szerkesztette: bolhalovas, 2014.08.28. 19:40:10
Más:
Utoljára szerkesztette: bolhalovas, 2014.08.28. 19:40:10
Intel C2D E6700 @ 2,66 GHz, 4 GB DDR2, Gigabyte HD5450 512 MB Logitech Driving Force GT + "Home-made" kuplung
#53792
Sziasztok!
Ikarus 256.44 / 256.44D busznál,hol tudok esetleg állítani a scriptben,
hogy ne fulladjon le mindig a motor?
Ha egy pirosnál áll meg az ember,vagy egy buszmegállóban.
Ikarus 256.44 / 256.44D busznál,hol tudok esetleg állítani a scriptben,
hogy ne fulladjon le mindig a motor?
Ha egy pirosnál áll meg az ember,vagy egy buszmegállóban.
#53791
Kb. 1 perc kutakodás után sikerült megoldást találnom a problémádra, ami nálam is jelen volt.
Az antrieb.osc-ben az első pár sorban végre kell hajtani egy kis változtatást:
Ilyen alapból:
{trigger:kw_s_plus}
(L.L.antrieb_getr_gang) s0 4 <
És ilyenre kell átírni:
{trigger:kw_s_plus}
(L.L.antrieb_getr_gang) s0 6 <
Valamint nálam visszaváltásnál rükvercbe rakta a buszt, ezt úgy lehet orvosolni, hogy az Inputs mappán belül a gamectrler.cfg-ben a kw_s_R sort átírod kw_s_minus-ra. Ezek után minden úgy megy, ahogy kell :)
Utoljára szerkesztette: Geri556, 2014.08.28. 19:36:16
Az antrieb.osc-ben az első pár sorban végre kell hajtani egy kis változtatást:
{trigger:kw_s_plus}
(L.L.antrieb_getr_gang) s0 4 <
És ilyenre kell átírni:
{trigger:kw_s_plus}
(L.L.antrieb_getr_gang) s0 6 <
Utoljára szerkesztette: Geri556, 2014.08.28. 19:36:16
#53790
Velem is ez van
#53789
Sziasztok az új Ikarus 256.44-nél miért van az, hogy szekvenciális váltóval (Logitech DFGT) csak a 4. sebességig tudok váltani?
#53788
Sajnos nincs referenciám, kipróbálni nem tudom, így csak feltételezek...
Nem sorban hozzáfűzted, hanem beszúrtad a Neked kellő betűt, így viszont át kellett nevezned az összes meglévő bmp-t. Ha nem tetted, akkor ahogy lejjebb került a sorban, csak addig fogja megjeleníteni a meglévőket.
Nem sorban hozzáfűzted, hanem beszúrtad a Neked kellő betűt, így viszont át kellett nevezned az összes meglévő bmp-t. Ha nem tetted, akkor ahogy lejjebb került a sorban, csak addig fogja megjeleníteni a meglévőket.
#53787
Csak az OMSI 1-hez van sajnos.
Utoljára szerkesztette: ferikemsts, 2014.08.28. 17:48:43
Utoljára szerkesztette: ferikemsts, 2014.08.28. 17:48:43
#53785
200-as szériával se nehéz padkázni. Minden busszal mész 2 kanyart és tükör nélkül is tudni fogod hol a padka.
Asus M5A97 Evo R2.0,AMD FX8350,DDR3 Kingston HyperX Blu 8GB KIT 1600Mhz,Sapphire HD 6950 OC+Accelero Extrem Plus II,Samsung 830 SSD 128GB,WD20EURS,WD10EZEX
#53783
Mivel nem tudom szerkeszteni a hszt ídőtúllépés miatt, ezért új hsz-ba írom:
Igen, sikerült, bár lenne egy problémám: A számos tekerőt csak a piros 1-esig tudom vinni, ahhoz hogy az E és az A betűt betudjam vinni, már kell hozzá a "92E" feliratot nyomni..
Utoljára szerkesztette: MineHeadHun, 2014.08.28. 16:58:47
Igen, sikerült, bár lenne egy problémám: A számos tekerőt csak a piros 1-esig tudom vinni, ahhoz hogy az E és az A betűt betudjam vinni, már kell hozzá a "92E" feliratot nyomni..
Utoljára szerkesztette: MineHeadHun, 2014.08.28. 16:58:47
#53782
Szuper lett, bár nem igazán vagyok oda a játékban a 200-asokért, de ezt tényleg egész élvezetes vezetni (egyébként a valóságban is ennyivel nehezebben érzékelhető a padka távolsága 200-asokkal, mint LF buszokkal?). :) Viszont a 2-ben nem tudom sebességbe rakni, mindig kiugrik üresbe, ezt miért csinálja vajon? Automata kuplunggal kipipálva is és anélkül is (egyébként kár, hogy nincs automata kuplungja, talán ezt az egyet tudom felróni negatívumként).
#53781
Okés, kijavítottam. Most akkor megnézem, hogy sikerül-e a "műtét", és akkor ezt a hozzászólást megszerkesztem.
#53780
Nagyon jó a busz, köszönjük! Egy kérdés. Amikor egy utas jegyet kér és odaadja a pénzt érte akkor azt a pénzt hol találom? Mert ugye el kell vennem mert a következő addig áll ott amíg nem vettem el. Viszont nincs se a jegykiadó tetején se sehol. Mit tehetnék?
IntelŸ Core™ i5-661 Dual-Core 3.33 Ghz, 2 GB DDR3 1333Mhz RAM, Nvidia Geforce Gt440 (1Gb DDR3), Win 7 Sp1 64 bit, Logitech Driving Force Pro
#53779
Most megnyugodtam hogy nem csak én tolom a Börzsönyben folyamat ezzel a géppel, meg hogy nem csak nekem villan be időnként a TEST fény. :D
#53778
Hát ez a 256.44D még a C56-nál is nagyobb függőséget okoz már megállás nélkül a negyedik kanyart csinálom Börzsönyben.
Olyan realisztikus minden porcikája hogy az valami hihetetlen.
Egy kérdés. A TEST lámpa miért kapcsol be mindig?
Olyan realisztikus minden porcikája hogy az valami hihetetlen.
Egy kérdés. A TEST lámpa miért kapcsol be mindig?
Asus M5A97 Evo R2.0,AMD FX8350,DDR3 Kingston HyperX Blu 8GB KIT 1600Mhz,Sapphire HD 6950 OC+Accelero Extrem Plus II,Samsung 830 SSD 128GB,WD20EURS,WD10EZEX
#53777
A rollband-ra válaszolnék:
{macro:rollband_refresh_setLineTo}
sor után a bevitt adatok sorszáma nem egyezik meg az utána következő endif befejezéssel.
Azaz:
az else -- endif sorok száma nem egyezik
Jelenleg, ha jól számoltam, 17-15 ez az arány...
{macro:rollband_refresh_setLineTo}
sor után a bevitt adatok sorszáma nem egyezik meg az utána következő endif befejezéssel.
Azaz:
az else -- endif sorok száma nem egyezik
Jelenleg, ha jól számoltam, 17-15 ez az arány...
#53776
Megtekintjük a buszocskát mindenképpen! :)
Oli - Simulators&Others Omsi - Omnibussimulator 1 & 2 Házigazda
#53775
De a lairásban lévő parancsot nem tudom megtalálni és igy nem tudok elindulni vele :S
#53773
Nem tudok vele elindulni és azt a retarder parancsot nem is találom :(
#53772
Most p,szo,v
#53770
Mikor lesz?
#53769
Gratula a készítőknek, jól sikerült! Nekem egy dolog viszont nagyon szúrja a szemem, az pedig a beltér. Mert a második ajtóig nincs dobogó valójában, hanem az összes ülés a padlón van (kivéve a 256.44E-nél, mert ott mindkét oldalon az első üléspár emelt). A hátsó traktus pedig szintén nincs egy szintben a kerékdobok eltüntetése miatt.
#53768
Én viszem a BPO-671-t(BPO-103),és az egyik PKD-t ha bármi kell szólj.
#53767
Erre a kocsira én csak azt tudom mondani, hogy AZT A BETYÁR MINDENIT DE KOMOLY! Főleg a hangja. Gratulálok hozzá.
#53766
Köszönöm, működik, és remek busz
#53764
Be, de a tömörített fájlban sincs benn amit letöltöttem
#53762
Nekem hiányolja az LCD_08_Alpha.bmp fájlt valaki, akinek elindult elküldhetné
#53760
És a O305 standard rollband_m.osc-je:
'##############
'Rollband Script
'##############
'Rollbandanimation für ein O305-Rollband (Drei Ziffern und Ziel manuell)
'(c) 20.02.2009 Rüdiger Hülsmann
'(c) 26.06.2011 Marcel Kuhnt
'Script Version: 1.6
'Omsi release: 1.0
'Needs:
'- none
'Revision History:
'- Marcel Kuhnt 10.08.2009 Added Revision History
'- Marcel Kuhnt 13.04.2010 Added Line List Script
'- Rüdiger Hülsmann 11.10.2010 New AI Scheduled trigger
'- Rüdiger Hülsmann 17.10.2010 line offset added
'- Marcel Kuhnt 25.01.2011 Reduced error offset
'- Marcel Kuhnt 03.02.2011 /^\ corrected
'- Marcel Kuhnt 26.06.2011 Komplettmanuelles Rollband
'- Marcel Kuhnt 10.09.2011 Rollband-Menüfunktion angepasst
'- Rüdiger Hülsmann 22.12.2013 Funktionen für Steck- und Seitenschild
'- Marcel Kuhnt 09.01.2014 Einführung von Unterordnern über Hofdatei-Globalstring 1
'------------------------------------------------------------------------------------------
{trigger:bus_rollband_up}
(L.L.rlbnd_activekurbel) 1 =
{if}
(L.L.rlbnd_ln1) (L.S.timegap) 1 / + (S.L.rlbnd_ln1)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 2 =
{if}
(L.L.rlbnd_ln2) (L.S.timegap) 1 / + (S.L.rlbnd_ln2)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 3 =
{if}
(L.L.rlbnd_ln3) (L.S.timegap) 1 / + (S.L.rlbnd_ln3)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 4 =
{if}
(L.L.rlbnd_ziel) (L.S.timegap) 1 / + (S.L.rlbnd_ziel)
(M.L.rollband_actu)
{endif}
{endif}
{endif}
{endif}
{end}
{trigger:bus_rollband_dn}
(L.L.rlbnd_activekurbel) 1 =
{if}
(L.L.rlbnd_ln1) (L.S.timegap) 1 / - (S.L.rlbnd_ln1)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 2 =
{if}
(L.L.rlbnd_ln2) (L.S.timegap) 1 / - (S.L.rlbnd_ln2)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 3 =
{if}
(L.L.rlbnd_ln3) (L.S.timegap) 1 / - (S.L.rlbnd_ln3)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 4 =
{if}
(L.L.rlbnd_ziel) (L.S.timegap) 1 / - (S.L.rlbnd_ziel)
(M.L.rollband_actu)
{endif}
{endif}
{endif}
{endif}
{end}
{trigger:bus_rollband_setL1}
1 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setL2}
2 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setL3}
3 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setT}
4 (S.L.rlbnd_activekurbel)
{end}
'****************************************************************
'** MCQ 24.5.2009 - Trigger für AI-Scheduled-Initialisierung: **
'****************************************************************
{trigger:ai_scheduled_settarget}
'Hier wird das automatische Rollband eingestellt:
(L.L.AI_target_index) s0 (M.V.GetTerminusCode) s1
'Wenn der Terminus-Code größer als 1000 ist, dann bitte Steckschild verwenden:
1000 >
{if}
l1 1000 - (S.L.rlbnd_steckschild_index)
l0 (S.L.rlbnd_steckschild_Termindex)
'Rollband auf 0:
0 (S.L.rlbnd_ziel)
{else}
l0 (S.L.rlbnd_ziel)
-1 (S.L.rlbnd_steckschild_Termindex)
'Wenn der Bitmap-String in Verwendung ist, dann den als Integer interpretieren und Steckschild zusätzlich setzen:
l0 6 (M.V.GetTerminusString) $StrToFloat s1
l1 1000 >
{if}
l1 1000 - (S.L.rlbnd_steckschild_index)
l0 (S.L.rlbnd_steckschild_Termindex)
{endif}
{endif}
(M.L.rollband_setsteckschild)
'Hier werden die Nummernrollbänder eingestellt:
'Nummern-String holen:
'Vorgehensweise pro Ziffer: zunächst wird die Ziffer "ausgeschnitten", dann jeweils dubliziert, damit
'jeweils ein Exemplar der ausgeschnittenen Ziffer im Cache bleibt (die andere geht beim $= verloren)
'1. Ziffer:
(L.$.SetLineTo) 1 $SetLengthL $d
" " $= {if} 1 (S.L.rlbnd_ln1) {endif} $d
"0" $= {if} 2 (S.L.rlbnd_ln1) {endif} $d
"1" $= {if} 3 (S.L.rlbnd_ln1) {endif} $d
"2" $= {if} 4 (S.L.rlbnd_ln1) {endif} $d
"3" $= {if} 5 (S.L.rlbnd_ln1) {endif} $d
"4" $= {if} 6 (S.L.rlbnd_ln1) {endif} $d
"5" $= {if} 7 (S.L.rlbnd_ln1) {endif} $d
"6" $= {if} 8 (S.L.rlbnd_ln1) {endif} $d
"7" $= {if} 9 (S.L.rlbnd_ln1) {endif} $d
"8" $= {if} 10 (S.L.rlbnd_ln1) {endif} $d
"9" $= {if} 11 (S.L.rlbnd_ln1) {endif} $d
"/" $= {if} 12.5 (S.L.rlbnd_ln1) {endif} $d
"E" $= {if} 14 (S.L.rlbnd_ln1) {endif} $d
"A" $= {if} 15 (S.L.rlbnd_ln1) {endif}
'2. Ziffer:
(L.$.SetLineTo) 2 $SetLengthL 1 $SetLengthR $d
"^" $= {if} 0.5 (S.L.rlbnd_ln2) {endif} $d
" " $= {if} 1 (S.L.rlbnd_ln2) {endif} $d
"0" $= {if} 2 (S.L.rlbnd_ln2) {endif} $d
"1" $= {if} 3 (S.L.rlbnd_ln2) {endif} $d
"2" $= {if} 4 (S.L.rlbnd_ln2) {endif} $d
"3" $= {if} 5 (S.L.rlbnd_ln2) {endif} $d
"4" $= {if} 6 (S.L.rlbnd_ln2) {endif} $d
"5" $= {if} 7 (S.L.rlbnd_ln2) {endif} $d
"6" $= {if} 8 (S.L.rlbnd_ln2) {endif} $d
"7" $= {if} 9 (S.L.rlbnd_ln2) {endif} $d
"8" $= {if} 10 (S.L.rlbnd_ln2) {endif} $d
"9" $= {if} 11 (S.L.rlbnd_ln2) {endif} $d
"E" $= {if} 14 (S.L.rlbnd_ln2) {endif} $d
"A" $= {if} 15 (S.L.rlbnd_ln2) {endif}
'3. Ziffer:
(L.$.SetLineTo) 3 $SetLengthL 1 $SetLengthR $d
" " $= {if} 1 (S.L.rlbnd_ln3) {endif} $d
"0" $= {if} 2 (S.L.rlbnd_ln3) {endif} $d
"1" $= {if} 3 (S.L.rlbnd_ln3) {endif} $d
"2" $= {if} 4 (S.L.rlbnd_ln3) {endif} $d
"3" $= {if} 5 (S.L.rlbnd_ln3) {endif} $d
"4" $= {if} 6 (S.L.rlbnd_ln3) {endif} $d
"5" $= {if} 7 (S.L.rlbnd_ln3) {endif} $d
"6" $= {if} 8 (S.L.rlbnd_ln3) {endif} $d
"7" $= {if} 9 (S.L.rlbnd_ln3) {endif} $d
"8" $= {if} 10 (S.L.rlbnd_ln3) {endif} $d
"9" $= {if} 11 (S.L.rlbnd_ln3) {endif} $d
"\" $= {if} 12.5 (S.L.rlbnd_ln3) {endif} $d
"E" $= {if} 14 (S.L.rlbnd_ln3) {endif} $d
"A" $= {if} 15 (S.L.rlbnd_ln3) {endif}
' Das ultimative Sahnehäubchen: die drei Rollbänder werden noch zufällig verrutscht...! *ggg*
11 random 5 - 75 / (L.L.rlbnd_ln1) + (S.L.rlbnd_ln1)
11 random 5 - 75 / (L.L.rlbnd_ln2) + (S.L.rlbnd_ln2)
11 random 5 - 75 / (L.L.rlbnd_ln3) + (S.L.rlbnd_ln3)
11 random 5 - 75 / (L.L.rlbnd_ziel) + (S.L.rlbnd_ziel)
(M.L.rollband_actu)
1 (S.L.rlbnd_refresh_seitenschild)
{end}
'********************************************************************
'** MCQ 24.5.2009 - Ende Trigger für AI-Scheduled-Initialisierung **
'********************************************************************
'*******************************************
' Trigger für Seitenschild
{trigger:rlbnd_seitenschildklemme_drag}
(L.S.mouse_y) -300 / (L.L.rlbnd_seitenschildklemme) + (S.L.rlbnd_seitenschildklemme) s0
l0 0 <
{if}
0 (S.L.rlbnd_seitenschildklemme)
{endif}
l0 0.7 >
{if}
(L.L.rlbnd_seitenschild_refresh) 0 =
{if}
1 (S.L.rlbnd_seitenschild_refresh)
(T.L.ev_fahrertuer_auf)
(L.$.Rollband_Seitenschild) "" $=
{if}
1 (S.L.rlbnd_refresh_seitenschild)
{else}
"" (S.$.Rollband_Seitenschild)
{endif}
{endif}
{endif}
l0 1 >
{if}
1 (S.L.rlbnd_seitenschildklemme)
{endif}
{end}
{trigger:rlbnd_seitenschildklemme_off}
(L.L.rlbnd_seitenschildklemme)
0.3 >
{if}
(T.L.ev_fahrertuer_zu)
{endif}
0 (S.L.rlbnd_seitenschildklemme)
(S.L.rlbnd_seitenschild_refresh)
{end}
'*******************************************
' Trigger für Steckschild
{trigger:bus_rollband_change_steckschild}
(L.L.rlbnd_steckschild_index) 1 + (S.L.rlbnd_steckschild_index)
1000 + (M.V.GetTerminusIndex) (S.L.rlbnd_steckschild_Termindex)
(M.L.rollband_setsteckschild)
(M.L.rollband_refreshIntIndex)
{end}
{macro:rollband_setsteckschild}
(L.L.rlbnd_steckschild_Termindex) s0
0 >=
{if}
l0 6 (M.V.GetTerminusString) (S.$.Rollband_SchildFrnt)
1 $SetLengthL $StrToFloat 1 max (S.L.rlbnd_steckschild_vis)
"..\..\Anzeigen\SteckSchilder\" (L.$.Rollband_SchildFrnt) $+ (S.$.Rollband_SchildFrnt)
{else}
0 (S.L.rlbnd_steckschild_index) (S.L.rlbnd_steckschild_vis)
"" (S.$.Rollband_SchildFrnt)
{endif}
{end}
'----------------------
' Init
'----------------------
{macro:rollband_init}
0
(S.L.rlbnd_ln1) (S.L.rlbnd_ln2) (S.L.rlbnd_ln3) (S.L.rlbnd_ziel)
1 (S.L.rlbnd_activekurbel)
(M.L.rollband_actu)
{end}
{macro:rollband_frame}
'Aktualisierung der Code-Tafel:
"Linienlisten\" (L.$.yard) "_RLB.jpg" $+ $+ (S.$.Rollband_Linelist)
(L.L.rlbnd_refresh_seitenschild)
{if}
"..\..\Anzeigen\Seitenschilder\" 2 (M.V.GetDepotStringGlobal) $+ "\" $+ (L.$.SetLineTo) $RemoveSpaces $+ ".bmp" $+ (S.$.Rollband_Seitenschild)
0 (S.L.rlbnd_refresh_seitenschild)
{endif}
{end}
{macro:rollband_refreshIntIndex}
(L.L.rlbnd_steckschild_Termindex) s0 0 >=
l0 0 (M.V.GetTerminusString) "" $= ! &&
{if}
l0
{else}
(L.L.rlbnd_ziel)
{endif}
(S.L.target_index_int)
{end}
{macro:rollband_actu}
(L.L.rlbnd_ln1) trunc 0.001 + (S.L.rlbnd_ln1_bmp)
/-/ (L.L.rlbnd_ln1) + 2 / (S.L.rlbnd_ln1_trans)
(L.L.rlbnd_ln2) trunc 0.001 + (S.L.rlbnd_ln2_bmp)
/-/ (L.L.rlbnd_ln2) + 2 / (S.L.rlbnd_ln2_trans)
(L.L.rlbnd_ln3) trunc 0.001 + (S.L.rlbnd_ln3_bmp)
/-/ (L.L.rlbnd_ln3) + 2 / (S.L.rlbnd_ln3_trans)
(L.L.rlbnd_ziel) (S.L.target_index_int) trunc
/-/ (L.L.rlbnd_ziel) + (S.L.rlbnd_ziel_trans) 1 - (S.L.rlbnd_ziel_trans_2)
'Aktualisierung der Strings für das Austauschen der Texturen:
(L.L.rlbnd_ziel) trunc s0
"..\..\Anzeigen\Rollband_SD79\" 1 (M.V.GetDepotStringGlobal) $+ "\" $+ (S.$.Rollband_Tex_H)
l0 4 (M.V.GetTerminusString) $+ (S.$.Rollband_Tex_V)
(L.$.Rollband_Tex_H) l0 1 + 4 (M.V.GetTerminusString) $+ (S.$.Rollband_Tex_H)
{end}
A chtex_rollband.cfg-jébe nem nyúltam bele, mivel olyan mint az SD200-asénak.
'Rollband Script
'##############
'Rollbandanimation für ein O305-Rollband (Drei Ziffern und Ziel manuell)
'(c) 20.02.2009 Rüdiger Hülsmann
'(c) 26.06.2011 Marcel Kuhnt
'Script Version: 1.6
'Omsi release: 1.0
'Needs:
'- none
'Revision History:
'- Marcel Kuhnt 10.08.2009 Added Revision History
'- Marcel Kuhnt 13.04.2010 Added Line List Script
'- Rüdiger Hülsmann 11.10.2010 New AI Scheduled trigger
'- Rüdiger Hülsmann 17.10.2010 line offset added
'- Marcel Kuhnt 25.01.2011 Reduced error offset
'- Marcel Kuhnt 03.02.2011 /^\ corrected
'- Marcel Kuhnt 26.06.2011 Komplettmanuelles Rollband
'- Marcel Kuhnt 10.09.2011 Rollband-Menüfunktion angepasst
'- Rüdiger Hülsmann 22.12.2013 Funktionen für Steck- und Seitenschild
'- Marcel Kuhnt 09.01.2014 Einführung von Unterordnern über Hofdatei-Globalstring 1
'------------------------------------------------------------------------------------------
{trigger:bus_rollband_up}
(L.L.rlbnd_activekurbel) 1 =
{if}
(L.L.rlbnd_ln1) (L.S.timegap) 1 / + (S.L.rlbnd_ln1)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 2 =
{if}
(L.L.rlbnd_ln2) (L.S.timegap) 1 / + (S.L.rlbnd_ln2)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 3 =
{if}
(L.L.rlbnd_ln3) (L.S.timegap) 1 / + (S.L.rlbnd_ln3)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 4 =
{if}
(L.L.rlbnd_ziel) (L.S.timegap) 1 / + (S.L.rlbnd_ziel)
(M.L.rollband_actu)
{endif}
{endif}
{endif}
{endif}
{end}
{trigger:bus_rollband_dn}
(L.L.rlbnd_activekurbel) 1 =
{if}
(L.L.rlbnd_ln1) (L.S.timegap) 1 / - (S.L.rlbnd_ln1)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 2 =
{if}
(L.L.rlbnd_ln2) (L.S.timegap) 1 / - (S.L.rlbnd_ln2)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 3 =
{if}
(L.L.rlbnd_ln3) (L.S.timegap) 1 / - (S.L.rlbnd_ln3)
(M.L.rollband_actu)
{else}
(L.L.rlbnd_activekurbel) 4 =
{if}
(L.L.rlbnd_ziel) (L.S.timegap) 1 / - (S.L.rlbnd_ziel)
(M.L.rollband_actu)
{endif}
{endif}
{endif}
{endif}
{end}
{trigger:bus_rollband_setL1}
1 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setL2}
2 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setL3}
3 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setT}
4 (S.L.rlbnd_activekurbel)
{end}
'****************************************************************
'** MCQ 24.5.2009 - Trigger für AI-Scheduled-Initialisierung: **
'****************************************************************
{trigger:ai_scheduled_settarget}
'Hier wird das automatische Rollband eingestellt:
(L.L.AI_target_index) s0 (M.V.GetTerminusCode) s1
'Wenn der Terminus-Code größer als 1000 ist, dann bitte Steckschild verwenden:
1000 >
{if}
l1 1000 - (S.L.rlbnd_steckschild_index)
l0 (S.L.rlbnd_steckschild_Termindex)
'Rollband auf 0:
0 (S.L.rlbnd_ziel)
{else}
l0 (S.L.rlbnd_ziel)
-1 (S.L.rlbnd_steckschild_Termindex)
'Wenn der Bitmap-String in Verwendung ist, dann den als Integer interpretieren und Steckschild zusätzlich setzen:
l0 6 (M.V.GetTerminusString) $StrToFloat s1
l1 1000 >
{if}
l1 1000 - (S.L.rlbnd_steckschild_index)
l0 (S.L.rlbnd_steckschild_Termindex)
{endif}
{endif}
(M.L.rollband_setsteckschild)
'Hier werden die Nummernrollbänder eingestellt:
'Nummern-String holen:
'Vorgehensweise pro Ziffer: zunächst wird die Ziffer "ausgeschnitten", dann jeweils dubliziert, damit
'jeweils ein Exemplar der ausgeschnittenen Ziffer im Cache bleibt (die andere geht beim $= verloren)
'1. Ziffer:
(L.$.SetLineTo) 1 $SetLengthL $d
" " $= {if} 1 (S.L.rlbnd_ln1) {endif} $d
"0" $= {if} 2 (S.L.rlbnd_ln1) {endif} $d
"1" $= {if} 3 (S.L.rlbnd_ln1) {endif} $d
"2" $= {if} 4 (S.L.rlbnd_ln1) {endif} $d
"3" $= {if} 5 (S.L.rlbnd_ln1) {endif} $d
"4" $= {if} 6 (S.L.rlbnd_ln1) {endif} $d
"5" $= {if} 7 (S.L.rlbnd_ln1) {endif} $d
"6" $= {if} 8 (S.L.rlbnd_ln1) {endif} $d
"7" $= {if} 9 (S.L.rlbnd_ln1) {endif} $d
"8" $= {if} 10 (S.L.rlbnd_ln1) {endif} $d
"9" $= {if} 11 (S.L.rlbnd_ln1) {endif} $d
"/" $= {if} 12.5 (S.L.rlbnd_ln1) {endif} $d
"E" $= {if} 14 (S.L.rlbnd_ln1) {endif} $d
"A" $= {if} 15 (S.L.rlbnd_ln1) {endif}
'2. Ziffer:
(L.$.SetLineTo) 2 $SetLengthL 1 $SetLengthR $d
"^" $= {if} 0.5 (S.L.rlbnd_ln2) {endif} $d
" " $= {if} 1 (S.L.rlbnd_ln2) {endif} $d
"0" $= {if} 2 (S.L.rlbnd_ln2) {endif} $d
"1" $= {if} 3 (S.L.rlbnd_ln2) {endif} $d
"2" $= {if} 4 (S.L.rlbnd_ln2) {endif} $d
"3" $= {if} 5 (S.L.rlbnd_ln2) {endif} $d
"4" $= {if} 6 (S.L.rlbnd_ln2) {endif} $d
"5" $= {if} 7 (S.L.rlbnd_ln2) {endif} $d
"6" $= {if} 8 (S.L.rlbnd_ln2) {endif} $d
"7" $= {if} 9 (S.L.rlbnd_ln2) {endif} $d
"8" $= {if} 10 (S.L.rlbnd_ln2) {endif} $d
"9" $= {if} 11 (S.L.rlbnd_ln2) {endif} $d
"E" $= {if} 14 (S.L.rlbnd_ln2) {endif} $d
"A" $= {if} 15 (S.L.rlbnd_ln2) {endif}
'3. Ziffer:
(L.$.SetLineTo) 3 $SetLengthL 1 $SetLengthR $d
" " $= {if} 1 (S.L.rlbnd_ln3) {endif} $d
"0" $= {if} 2 (S.L.rlbnd_ln3) {endif} $d
"1" $= {if} 3 (S.L.rlbnd_ln3) {endif} $d
"2" $= {if} 4 (S.L.rlbnd_ln3) {endif} $d
"3" $= {if} 5 (S.L.rlbnd_ln3) {endif} $d
"4" $= {if} 6 (S.L.rlbnd_ln3) {endif} $d
"5" $= {if} 7 (S.L.rlbnd_ln3) {endif} $d
"6" $= {if} 8 (S.L.rlbnd_ln3) {endif} $d
"7" $= {if} 9 (S.L.rlbnd_ln3) {endif} $d
"8" $= {if} 10 (S.L.rlbnd_ln3) {endif} $d
"9" $= {if} 11 (S.L.rlbnd_ln3) {endif} $d
"\" $= {if} 12.5 (S.L.rlbnd_ln3) {endif} $d
"E" $= {if} 14 (S.L.rlbnd_ln3) {endif} $d
"A" $= {if} 15 (S.L.rlbnd_ln3) {endif}
' Das ultimative Sahnehäubchen: die drei Rollbänder werden noch zufällig verrutscht...! *ggg*
11 random 5 - 75 / (L.L.rlbnd_ln1) + (S.L.rlbnd_ln1)
11 random 5 - 75 / (L.L.rlbnd_ln2) + (S.L.rlbnd_ln2)
11 random 5 - 75 / (L.L.rlbnd_ln3) + (S.L.rlbnd_ln3)
11 random 5 - 75 / (L.L.rlbnd_ziel) + (S.L.rlbnd_ziel)
(M.L.rollband_actu)
1 (S.L.rlbnd_refresh_seitenschild)
{end}
'********************************************************************
'** MCQ 24.5.2009 - Ende Trigger für AI-Scheduled-Initialisierung **
'********************************************************************
'*******************************************
' Trigger für Seitenschild
{trigger:rlbnd_seitenschildklemme_drag}
(L.S.mouse_y) -300 / (L.L.rlbnd_seitenschildklemme) + (S.L.rlbnd_seitenschildklemme) s0
l0 0 <
{if}
0 (S.L.rlbnd_seitenschildklemme)
{endif}
l0 0.7 >
{if}
(L.L.rlbnd_seitenschild_refresh) 0 =
{if}
1 (S.L.rlbnd_seitenschild_refresh)
(T.L.ev_fahrertuer_auf)
(L.$.Rollband_Seitenschild) "" $=
{if}
1 (S.L.rlbnd_refresh_seitenschild)
{else}
"" (S.$.Rollband_Seitenschild)
{endif}
{endif}
{endif}
l0 1 >
{if}
1 (S.L.rlbnd_seitenschildklemme)
{endif}
{end}
{trigger:rlbnd_seitenschildklemme_off}
(L.L.rlbnd_seitenschildklemme)
0.3 >
{if}
(T.L.ev_fahrertuer_zu)
{endif}
0 (S.L.rlbnd_seitenschildklemme)
(S.L.rlbnd_seitenschild_refresh)
{end}
'*******************************************
' Trigger für Steckschild
{trigger:bus_rollband_change_steckschild}
(L.L.rlbnd_steckschild_index) 1 + (S.L.rlbnd_steckschild_index)
1000 + (M.V.GetTerminusIndex) (S.L.rlbnd_steckschild_Termindex)
(M.L.rollband_setsteckschild)
(M.L.rollband_refreshIntIndex)
{end}
{macro:rollband_setsteckschild}
(L.L.rlbnd_steckschild_Termindex) s0
0 >=
{if}
l0 6 (M.V.GetTerminusString) (S.$.Rollband_SchildFrnt)
1 $SetLengthL $StrToFloat 1 max (S.L.rlbnd_steckschild_vis)
"..\..\Anzeigen\SteckSchilder\" (L.$.Rollband_SchildFrnt) $+ (S.$.Rollband_SchildFrnt)
{else}
0 (S.L.rlbnd_steckschild_index) (S.L.rlbnd_steckschild_vis)
"" (S.$.Rollband_SchildFrnt)
{endif}
{end}
'----------------------
' Init
'----------------------
{macro:rollband_init}
0
(S.L.rlbnd_ln1) (S.L.rlbnd_ln2) (S.L.rlbnd_ln3) (S.L.rlbnd_ziel)
1 (S.L.rlbnd_activekurbel)
(M.L.rollband_actu)
{end}
{macro:rollband_frame}
'Aktualisierung der Code-Tafel:
"Linienlisten\" (L.$.yard) "_RLB.jpg" $+ $+ (S.$.Rollband_Linelist)
(L.L.rlbnd_refresh_seitenschild)
{if}
"..\..\Anzeigen\Seitenschilder\" 2 (M.V.GetDepotStringGlobal) $+ "\" $+ (L.$.SetLineTo) $RemoveSpaces $+ ".bmp" $+ (S.$.Rollband_Seitenschild)
0 (S.L.rlbnd_refresh_seitenschild)
{endif}
{end}
{macro:rollband_refreshIntIndex}
(L.L.rlbnd_steckschild_Termindex) s0 0 >=
l0 0 (M.V.GetTerminusString) "" $= ! &&
{if}
l0
{else}
(L.L.rlbnd_ziel)
{endif}
(S.L.target_index_int)
{end}
{macro:rollband_actu}
(L.L.rlbnd_ln1) trunc 0.001 + (S.L.rlbnd_ln1_bmp)
/-/ (L.L.rlbnd_ln1) + 2 / (S.L.rlbnd_ln1_trans)
(L.L.rlbnd_ln2) trunc 0.001 + (S.L.rlbnd_ln2_bmp)
/-/ (L.L.rlbnd_ln2) + 2 / (S.L.rlbnd_ln2_trans)
(L.L.rlbnd_ln3) trunc 0.001 + (S.L.rlbnd_ln3_bmp)
/-/ (L.L.rlbnd_ln3) + 2 / (S.L.rlbnd_ln3_trans)
(L.L.rlbnd_ziel) (S.L.target_index_int) trunc
/-/ (L.L.rlbnd_ziel) + (S.L.rlbnd_ziel_trans) 1 - (S.L.rlbnd_ziel_trans_2)
'Aktualisierung der Strings für das Austauschen der Texturen:
(L.L.rlbnd_ziel) trunc s0
"..\..\Anzeigen\Rollband_SD79\" 1 (M.V.GetDepotStringGlobal) $+ "\" $+ (S.$.Rollband_Tex_H)
l0 4 (M.V.GetTerminusString) $+ (S.$.Rollband_Tex_V)
(L.$.Rollband_Tex_H) l0 1 + 4 (M.V.GetTerminusString) $+ (S.$.Rollband_Tex_H)
{end}
A chtex_rollband.cfg-jébe nem nyúltam bele, mivel olyan mint az SD200-asénak.
#53759
Nagyszerű rendkívül részteles busz! Szép munka köszönjük!<#worship>
Asus M5A97 Evo R2.0,AMD FX8350,DDR3 Kingston HyperX Blu 8GB KIT 1600Mhz,Sapphire HD 6950 OC+Accelero Extrem Plus II,Samsung 830 SSD 128GB,WD20EURS,WD10EZEX
#53758
Jó lett a busz, bár még nem próbáltam ki, mert nem rég ébredtem fel.
Ez a kérdés nem csak bocskornak szól hanem őrajta kívül azokhoz is aki ért a scriptekhez:
Lenne egy problémám, hogy a Merci O305-nek és a Man SD200 rollbandjába belenyúlva(mert akartam A jelzést meg E jelzést előre a Great Grundorf 2 pályához, habár a P betűt kifelejtettem, mert olyan járat is van benne, hogy P1,P2,P3,P4) zugriffelt az egész. Az O305 standardnak is belenyúltam a rollbandjába, de azt egy másik hozzászólásban írom le, mert az sg csak 25000 karaktert enged egy hsz-be.
Nos, itt a lényeg:
'##############
'Rollband Script
'##############
'Rollbandanimation für ein SD79-Rollband (Ziffern manuell, Ziel automatisch)
'(c) 20.02.2009 Rüdiger Hülsmann
'(c) 17.09.2013 Marcel Kuhnt
'Script Version: 1.5
'Omsi release: 1.0
'Needs:
'- none
'Revision History:
'- Marcel Kuhnt 10.08.2009 Added Revision History
'- Marcel Kuhnt 13.04.2010 Added Line List Script
'- Rüdiger Hülsmann 11.10.2010 New AI Scheduled trigger
'- Rüdiger Hülsmann 17.10.2010 line offset added
'- Marcel Kuhnt 25.01.2011 Reduced error offset
'- Marcel Kuhnt 03.02.2011 /^\ corrected
'- Marcel Kuhnt 30.10.2012 Neue Busbar-Logik
'- Marcel Kuhnt 04.12.2012 Steckschilder für ausgewählte Ziele
'- Marcel Kuhnt 18.12.2012 Seitenschild
'- Marcel Kuhnt 17.09.2013 Einführung von Unterordnern über Hofdatei-Globalstring 1
'- Marcel Kuhnt 13.10.2013 Neuer Seitenschildpfad
'------------------------------------------------------------------------------------------
{trigger:rollband_auf}
1 (S.L.rlbnd_auf_pressed)
(T.L.rlbnd_taste_ein)
{end}
{trigger:rollband_auf_off}
0 (S.L.rlbnd_auf_pressed)
(T.L.rlbnd_taste_aus)
{end}
{trigger:rollband_ab}
1 (S.L.rlbnd_ab_pressed)
(T.L.rlbnd_taste_ein)
{end}
{trigger:rollband_ab_off}
0 (S.L.rlbnd_ab_pressed)
(T.L.rlbnd_taste_aus)
{end}
{trigger:rollband_sync}
1 (S.L.rlbnd_sync_pressed)
(T.L.rlbnd_taste_ein)
(L.L.elec_busbar_main) (C.L.elec_busbar_minV) >
{if}
(S.L.rlbnd_running_dn)
0 (S.L.rlbnd_ziel_target)
{endif}
{end}
{trigger:rollband_sync_off}
0 (S.L.rlbnd_sync_pressed)
(T.L.rlbnd_taste_aus)
{end}
'*******************************************
' Trigger für Tastaturbedienung
{trigger:bus_rollband_up_step}
(L.L.rlbnd_activekurbel) 4 =
{if}
1 (S.L.rlbnd_auf_pressed)
(T.L.rlbnd_taste_ein)
{endif}
{end}
{trigger:bus_rollband_up_step_off}
(L.L.rlbnd_activekurbel) 4 =
{if}
0 (S.L.rlbnd_auf_pressed)
(T.L.rlbnd_taste_aus)
{endif}
{end}
{trigger:bus_rollband_dn_step}
(L.L.rlbnd_activekurbel) 4 =
{if}
1 (S.L.rlbnd_ab_pressed)
(T.L.rlbnd_taste_ein)
{endif}
{end}
{trigger:bus_rollband_dn_step_off}
(L.L.rlbnd_activekurbel) 4 =
{if}
0 (S.L.rlbnd_ab_pressed)
(T.L.rlbnd_taste_aus)
{endif}
{end}
{trigger:bus_rollband_up}
(L.L.rlbnd_activekurbel) 1 =
{if}
(L.L.rlbnd_ln1) (L.S.timegap) 1 / + 0 max 15 min (S.L.rlbnd_ln1)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{else}
(L.L.rlbnd_activekurbel) 2 =
{if}
(L.L.rlbnd_ln2) (L.S.timegap) 1 / + 0 max 15 min (S.L.rlbnd_ln2)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{else}
(L.L.rlbnd_activekurbel) 3 =
{if}
(L.L.rlbnd_ln3) (L.S.timegap) 1 / + 0 max 15 min (S.L.rlbnd_ln3)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{endif}
{endif}
{endif}
{end}
{trigger:bus_rollband_dn}
(L.L.rlbnd_activekurbel) 1 =
{if}
(L.L.rlbnd_ln1) (L.S.timegap) 1 / - 0 max 15 min (S.L.rlbnd_ln1)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{else}
(L.L.rlbnd_activekurbel) 2 =
{if}
(L.L.rlbnd_ln2) (L.S.timegap) 1 / - 0 max 15 min (S.L.rlbnd_ln2)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{else}
(L.L.rlbnd_activekurbel) 3 =
{if}
(L.L.rlbnd_ln3) (L.S.timegap) 1 / - 0 max 15 min (S.L.rlbnd_ln3)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{endif}
{endif}
{endif}
{end}
{trigger:bus_rollband_setL1}
1 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setL2}
2 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setL3}
3 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setT}
4 (S.L.rlbnd_activekurbel)
{end}
'****************************************************************
'** MCQ 24.5.2009 - Trigger für AI-Scheduled-Initialisierung: **
'****************************************************************
{trigger:ai_scheduled_settarget}
'Hier wird das automatische Rollband eingestellt:
1 (S.L.elec_busbar_main_sw)
1.0 (S.L.elec_V_battery)
(L.L.AI_target_index) s0 (M.V.GetTerminusCode) s1
'Wenn der Terminus-Code größer als 1000 ist, dann bitte Steckschild verwenden:
1000 >
{if}
l1 1000 - (S.L.rlbnd_steckschild_index)
l0 (S.L.rlbnd_steckschild_Termindex)
'Rollband auf 0:
0 (S.L.rlbnd_ziel_target)
{else}
l0 (S.L.rlbnd_ziel_target)
-1 (S.L.rlbnd_steckschild_Termindex)
'Wenn der Bitmap-String in Verwendung ist, dann den als Integer interpretieren und Steckschild zusätzlich setzen:
l0 6 (M.V.GetTerminusString) $StrToFloat s1
l1 1000 >
{if}
l1 1000 - (S.L.rlbnd_steckschild_index)
l0 (S.L.rlbnd_steckschild_Termindex)
{endif}
{endif}
(M.L.rollband_setsteckschild)
' Und gleich "schnell" gekurbelt: (aber +0.1, damit das Zielband noch aktualisiert wird)
(L.L.rlbnd_ziel_target) 0.1 + (S.L.rlbnd_ziel)
'Hier werden die Nummernrollbänder eingestellt:
'Nummern-String holen:
'Vorgehensweise pro Ziffer: zunächst wird die Ziffer "ausgeschnitten", dann jeweils dubliziert, damit
'jeweils ein Exemplar der ausgeschnittenen Ziffer im Cache bleibt (die andere geht beim $= verloren)
'1. Ziffer:
(L.$.SetLineTo) 1 $SetLengthL $d
" " $= {if} 0 s1 {endif} $d
"N" $= {if} 2 s1 {endif} $d
"g" $= {if} 3 s1 {endif} $d
"0" $= {if} 4 s1 {endif} $d
"1" $= {if} 5 s1 {endif} $d
"2" $= {if} 6 s1 {endif} $d
"3" $= {if} 7 s1 {endif} $d
"4" $= {if} 8 s1 {endif} $d
"5" $= {if} 9 s1 {endif} $d
"6" $= {if} 10 s1 {endif} $d
"7" $= {if} 11 s1 {endif} $d
"8" $= {if} 12 s1 {endif} $d
"9" $= {if} 13 s1 {endif} $d
"/" $= {if} 14 s1 {endif} $d
"A" $= {if} 16 s1 {endif} $d
"E" $= {if} 17 s1 {endif}
'2. Ziffer:
(L.$.SetLineTo) 2 $SetLengthL 1 $SetLengthR $d
" " $= {if} 0 s2 {endif} $d
"E" $= {if} 1 s2 {endif} $d
"A" $= {if} 2 s2 {endif} $d
"h" $= {if} 3 s2 {endif} $d
"0" $= {if} 4 s2 {endif} $d
"1" $= {if} 5 s2 {endif} $d
"2" $= {if} 6 s2 {endif} $d
"3" $= {if} 7 s2 {endif} $d
"4" $= {if} 8 s2 {endif} $d
"5" $= {if} 9 s2 {endif} $d
"6" $= {if} 10 s2 {endif} $d
"7" $= {if} 11 s2 {endif} $d
"8" $= {if} 12 s2 {endif} $d
"9" $= {if} 13 s2 {endif} $d
"^" $= {if} 14 s2 {endif}
'3. Ziffer:
(L.$.SetLineTo) 3 $SetLengthL 1 $SetLengthR $d
" " $= {if} 0 s3 {endif} $d
"E" $= {if} 1 s3 {endif} $d
"N" $= {if} 2 s3 {endif} $d
"A" $= {if} 3 s3 {endif} $d
"0" $= {if} 4 s3 {endif} $d
"1" $= {if} 5 s3 {endif} $d
"2" $= {if} 6 s3 {endif} $d
"3" $= {if} 7 s3 {endif} $d
"4" $= {if} 8 s3 {endif} $d
"5" $= {if} 9 s3 {endif} $d
"6" $= {if} 10 s3 {endif} $d
"7" $= {if} 11 s3 {endif} $d
"8" $= {if} 12 s3 {endif} $d
"9" $= {if} 13 s3 {endif} $d
"\" $= {if} 14 s3 {endif}
' Das ultimative Sahnehäubchen: die drei Rollbänder werden noch zufällig verrutscht...! *ggg*
10 random 5 - 100 / l1 + (S.L.rlbnd_ln1_target)
10 random 5 - 100 / l2 + (S.L.rlbnd_ln2_target)
10 random 5 - 100 / l3 + (S.L.rlbnd_ln3_target)
(L.L.rlbnd_ln1_target) (S.L.rlbnd_ln1)
(L.L.rlbnd_ln2_target) (S.L.rlbnd_ln2)
(L.L.rlbnd_ln3_target) (S.L.rlbnd_ln3)
(M.L.rollband_actu)
1 (S.L.rlbnd_refresh_seitenschild)
{end}
'********************************************************************
'** MCQ 24.5.2009 - Ende Trigger für AI-Scheduled-Initialisierung **
'********************************************************************
'*******************************************
' Trigger für Seitenschild
{trigger:rlbnd_seitenschildklemme_drag}
(L.S.mouse_y) -300 / (L.L.rlbnd_seitenschildklemme) + (S.L.rlbnd_seitenschildklemme) s0
l0 0 <
{if}
0 (S.L.rlbnd_seitenschildklemme)
{endif}
l0 0.7 >
{if}
(L.L.rlbnd_seitenschild_refresh) 0 =
{if}
1 (S.L.rlbnd_seitenschild_refresh)
(T.L.ev_fahrertuer_auf)
(L.$.Rollband_Seitenschild) "" $=
{if}
1 (S.L.rlbnd_refresh_seitenschild)
{else}
"" (S.$.Rollband_Seitenschild)
{endif}
{endif}
{endif}
l0 1 >
{if}
1 (S.L.rlbnd_seitenschildklemme)
{endif}
{end}
{trigger:rlbnd_seitenschildklemme_off}
(L.L.rlbnd_seitenschildklemme)
0.3 >
{if}
(T.L.ev_fahrertuer_zu)
{endif}
0 (S.L.rlbnd_seitenschildklemme)
(S.L.rlbnd_seitenschild_refresh)
{end}
'*******************************************
' Trigger für Steckschild
{trigger:bus_rollband_change_steckschild}
(L.L.rlbnd_steckschild_index) 1 + (S.L.rlbnd_steckschild_index)
1000 + (M.V.GetTerminusIndex) (S.L.rlbnd_steckschild_Termindex)
(M.L.rollband_setsteckschild)
(M.L.rollband_refreshIntIndex)
{end}
{macro:rollband_setsteckschild}
(L.L.rlbnd_steckschild_Termindex) s0
0 >=
{if}
l0 6 (M.V.GetTerminusString) (S.$.Rollband_SchildFrnt)
1 $SetLengthL $StrToFloat 1 max (S.L.rlbnd_steckschild_vis)
"..\..\Anzeigen\SteckSchilder\" (L.$.Rollband_SchildFrnt) $+ (S.$.Rollband_SchildFrnt)
{else}
0 (S.L.rlbnd_steckschild_index) (S.L.rlbnd_steckschild_vis)
"" (S.$.Rollband_SchildFrnt)
{endif}
{end}
'----------------------
' Init
'----------------------
{macro:rollband_init}
0
(S.L.rlbnd_ln1) (S.L.rlbnd_ln2) (S.L.rlbnd_ln3) (S.L.rlbnd_ziel)
1 (S.L.rlbnd_activekurbel)
(M.L.rollband_actu)
0 (S.L.rlbnd_ziel_target) (S.L.rlbnd_ziel)
-1 (L.L.rlbnd_steckschild_Termindex)
0 (S.L.rlbnd_steckschild_vis)
{end}
{macro:rollband_frame}
(L.L.elec_busbar_main) (C.L.elec_busbar_minV) >
{if}
(L.L.rlbnd_ziel_target) (L.L.rlbnd_ziel) =
{if}
(L.L.rlbnd_auf_pressed)
{if}
(L.L.rlbnd_ziel_target) 1 + (S.L.rlbnd_ziel_target)
1 (S.L.rlbnd_running) (S.L.rlbnd_running_up)
0 (S.L.rlbnd_running_dn)
(T.L.rlbnd_klick)
{else}
(L.L.rlbnd_ab_pressed)
{if}
(L.L.rlbnd_ziel_target) 1 - (S.L.rlbnd_ziel_target)
1 (S.L.rlbnd_running) (S.L.rlbnd_running_dn)
0 (S.L.rlbnd_running_up)
(T.L.rlbnd_klick)
{else}
(L.L.rlbnd_running)
{if}
(T.L.rlbnd_klick)
{endif}
0 (S.L.rlbnd_running) (S.L.rlbnd_running_up) (S.L.rlbnd_running_dn)
{endif}
{endif}
{else}
1 (S.L.rlbnd_running)
(L.L.rlbnd_ziel_target) (L.L.rlbnd_ziel) >
{if}
1 (S.L.rlbnd_running_up)
0 (S.L.rlbnd_running_dn)
{else}
1 (S.L.rlbnd_running_dn)
0 (S.L.rlbnd_running_up)
{endif}
{endif}
{else}
0 (S.L.rlbnd_running) (S.L.rlbnd_running_dn) (S.L.rlbnd_running_up)
{endif}
' Hier muss unterschieden werden zwischen Auf und Ab, da das Zählwerk sofort nach Betätigung des Tasters umspringen soll
(L.L.rlbnd_ziel) trunc s0
(L.L.rlbnd_ziel_target) (L.L.rlbnd_ziel) >
{if}
l0 (L.L.rlbnd_ziel) d trunc - (F.L.rlbnd_klinkwerk_auf) + s0
{else}
l0 (L.L.rlbnd_ziel) d trunc - (F.L.rlbnd_klinkwerk_ab) + s0
{endif}
l0 (S.L.rlbnd_1er)
(L.L.rlbnd_1er) 10 / trunc
(L.L.rlbnd_1er) 10 / d trunc - (F.L.rlbnd_10er-uebertrag) +
(S.L.rlbnd_10er)
(L.L.rlbnd_10er) 10 / trunc
(L.L.rlbnd_10er) 10 / d trunc - (F.L.rlbnd_10er-uebertrag) +
(S.L.rlbnd_100er)
(L.L.elec_busbar_main) (C.L.elec_busbar_minV) >
{if}
(L.S.Timegap) (C.L.rlbnd_vmax) * s0 (L.L.rlbnd_ziel_target) (L.L.rlbnd_ziel) - l0 min s1 l0 /-/ l1 max s0
0 = !
{if}
l0 (L.L.rlbnd_ziel) + (S.L.rlbnd_ziel)
(L.L.rlbnd_ziel) trunc
' (S.L.target_index_ext)
/-/ (L.L.rlbnd_ziel) + (S.L.rlbnd_ziel_trans) 1 - (S.L.rlbnd_ziel_trans_2)
' (L.L.target_texture) 1 + (S.L.target_texture_2)
'Aktualisierung der Strings für das Austauschen der Texturen:
(L.L.rlbnd_ziel) trunc s0
"..\..\Anzeigen\Rollband_SD79\" 1 (M.V.GetDepotStringGlobal) $+ "\" $+ (S.$.Rollband_Tex_H)
l0 4 (M.V.GetTerminusString) $+ (S.$.Rollband_Tex_V)
(L.$.Rollband_Tex_H) l0 1 + 4 (M.V.GetTerminusString) $+ (S.$.Rollband_Tex_H)
'Internen Index aktualisieren:
(M.L.rollband_refreshIntIndex)
{endif}
{endif}
'Aktualisierung der Code-Tafel:
"Linienlisten\" (L.$.yard) "_RLB.jpg" $+ $+ (S.$.Rollband_Linelist)
(L.L.rlbnd_refresh_seitenschild)
{if}
"..\..\Anzeigen\Seitenschilder\" 2 (M.V.GetDepotStringGlobal) $+ "\" $+ (L.$.SetLineTo) $RemoveSpaces $+ ".bmp" $+ (S.$.Rollband_Seitenschild)
0 (S.L.rlbnd_refresh_seitenschild)
{endif}
{end}
{macro:rollband_refreshIntIndex}
(L.L.rlbnd_steckschild_Termindex) s0 0 >=
l0 0 (M.V.GetTerminusString) "" $= ! &&
{if}
l0
{else}
(L.L.rlbnd_ziel)
{endif}
(S.L.target_index_int)
{end}
{macro:rollband_actu}
(L.L.rlbnd_ln1) trunc 0.001 + (S.L.rlbnd_ln1_bmp)
/-/ (L.L.rlbnd_ln1) + 2 / (S.L.rlbnd_ln1_trans)
(L.L.rlbnd_ln2) trunc 0.001 + (S.L.rlbnd_ln2_bmp)
/-/ (L.L.rlbnd_ln2) + 2 / (S.L.rlbnd_ln2_trans)
(L.L.rlbnd_ln3) trunc 0.001 + (S.L.rlbnd_ln3_bmp)
/-/ (L.L.rlbnd_ln3) + 2 / (S.L.rlbnd_ln3_trans)
{end}
{macro:rollband_refresh_setLineTo}
(L.L.rlbnd_ln1) s0
l0 0.5 < {if} " " {else}
l0 1.5 < {if} " " {else}
l0 2.5 < {if} "N" {else}
l0 3.5 < {if} "g" {else}
l0 4.5 < {if} "0" {else}
l0 5.5 < {if} "1" {else}
l0 6.5 < {if} "2" {else}
l0 7.5 < {if} "3" {else}
l0 8.5 < {if} "4" {else}
l0 9.5 < {if} "5" {else}
l0 10.5 < {if} "6" {else}
l0 11.5 < {if} "7" {else}
l0 12.5 < {if} "8" {else}
l0 13.5 < {if} "9" {else}
l0 14.5 < {if} "/" {else}
l0 16.5 < {if} "A" {else}
l0 17.5 < {if} "E" {else}
" "
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
(L.L.rlbnd_ln2) s0
l0 0.5 < {if} " " {else}
l0 1.5 < {if} "E" {else}
l0 2.5 < {if} "A" {else}
l0 3.5 < {if} "h" {else}
l0 4.5 < {if} "0" {else}
l0 5.5 < {if} "1" {else}
l0 6.5 < {if} "2" {else}
l0 7.5 < {if} "3" {else}
l0 8.5 < {if} "4" {else}
l0 9.5 < {if} "5" {else}
l0 10.5 < {if} "6" {else}
l0 11.5 < {if} "7" {else}
l0 12.5 < {if} "8" {else}
l0 13.5 < {if} "9" {else}
l0 14.5 < {if} "^" {else}
" "
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif} $+
(L.L.rlbnd_ln3) s0
l0 0.5 < {if} " " {else}
l0 1.5 < {if} "E" {else}
l0 2.5 < {if} "N" {else}
l0 3.5 < {if} "A" {else}
l0 4.5 < {if} "0" {else}
l0 5.5 < {if} "1" {else}
l0 6.5 < {if} "2" {else}
l0 7.5 < {if} "3" {else}
l0 8.5 < {if} "4" {else}
l0 9.5 < {if} "5" {else}
l0 10.5 < {if} "6" {else}
l0 11.5 < {if} "7" {else}
l0 12.5 < {if} "8" {else}
l0 13.5 < {if} "9" {else}
l0 14.5 < {if} "\" {else}
" "
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif} $+ (S.$.SetLineTo)
{end}
Ha tudjátok hogy mitől van a zugriffelés, akkor azt írjátok le nekem, hogy mitől van.
A chtex_rollband.cfg így néz ki:
Konfiguration des Texturtausches:
Ein neuer TexChangeMaster wird hinzugefügt
* Name der Textur, die in der X-Datei verwendet wird und getauscht werden soll
* Variablennummer (Integer), die zum Wechseln der Textur herangezogen werden soll
linienband1.bmp
rlbnd_ln1_bmp
18
Rollband_Ln1_01.bmp
Rollband_Ln1_02.bmp
Rollband_Ln1_03.bmp
Rollband_Ln1_04.bmp
Rollband_Ln1_05.bmp
Rollband_Ln1_06.bmp
Rollband_Ln1_07.bmp
Rollband_Ln1_08.bmp
Rollband_Ln1_09.bmp
Rollband_Ln1_10.bmp
Rollband_Ln1_11.bmp
Rollband_Ln1_12.bmp
Rollband_Ln1_13.bmp
Rollband_Ln1_14.bmp
Rollband_Ln1_15.bmp
Rollband_Ln1_16.bmp
Rollband_Ln1_17.bmp
Rollband_Ln1_18.bmp
linienband2.bmp
rlbnd_ln2_bmp
16
Rollband_Ln2_01.bmp
Rollband_Ln2_02.bmp
Rollband_Ln2_03.bmp
Rollband_Ln2_04.bmp
Rollband_Ln1_05.bmp
Rollband_Ln1_06.bmp
Rollband_Ln1_07.bmp
Rollband_Ln1_08.bmp
Rollband_Ln1_09.bmp
Rollband_Ln1_10.bmp
Rollband_Ln1_11.bmp
Rollband_Ln1_12.bmp
Rollband_Ln1_13.bmp
Rollband_Ln2_14.bmp
Rollband_Ln2_15.bmp
Rollband_Ln2_16.bmp
linienband3.bmp
rlbnd_ln3_bmp
18
Rollband_Ln1_01.bmp
Rollband_Ln1_02.bmp
Rollband_Ln1_03.bmp
Rollband_Ln1_04.bmp
Rollband_Ln1_05.bmp
Rollband_Ln1_06.bmp
Rollband_Ln1_07.bmp
Rollband_Ln1_08.bmp
Rollband_Ln1_09.bmp
Rollband_Ln1_10.bmp
Rollband_Ln1_11.bmp
Rollband_Ln1_12.bmp
Rollband_Ln1_13.bmp
Rollband_Ln1_14.bmp
Rollband_Ln1_15.bmp
Rollband_Ln1_16.bmp
Rollband_Ln1_17.bmp
Rollband_Ln1_18.bmp
Utoljára szerkesztette: MineHeadHun, 2014.08.28. 08:23:57
Ez a kérdés nem csak bocskornak szól hanem őrajta kívül azokhoz is aki ért a scriptekhez:
Lenne egy problémám, hogy a Merci O305-nek és a Man SD200 rollbandjába belenyúlva(mert akartam A jelzést meg E jelzést előre a Great Grundorf 2 pályához, habár a P betűt kifelejtettem, mert olyan járat is van benne, hogy P1,P2,P3,P4) zugriffelt az egész. Az O305 standardnak is belenyúltam a rollbandjába, de azt egy másik hozzászólásban írom le, mert az sg csak 25000 karaktert enged egy hsz-be.
Nos, itt a lényeg:
'Rollband Script
'##############
'Rollbandanimation für ein SD79-Rollband (Ziffern manuell, Ziel automatisch)
'(c) 20.02.2009 Rüdiger Hülsmann
'(c) 17.09.2013 Marcel Kuhnt
'Script Version: 1.5
'Omsi release: 1.0
'Needs:
'- none
'Revision History:
'- Marcel Kuhnt 10.08.2009 Added Revision History
'- Marcel Kuhnt 13.04.2010 Added Line List Script
'- Rüdiger Hülsmann 11.10.2010 New AI Scheduled trigger
'- Rüdiger Hülsmann 17.10.2010 line offset added
'- Marcel Kuhnt 25.01.2011 Reduced error offset
'- Marcel Kuhnt 03.02.2011 /^\ corrected
'- Marcel Kuhnt 30.10.2012 Neue Busbar-Logik
'- Marcel Kuhnt 04.12.2012 Steckschilder für ausgewählte Ziele
'- Marcel Kuhnt 18.12.2012 Seitenschild
'- Marcel Kuhnt 17.09.2013 Einführung von Unterordnern über Hofdatei-Globalstring 1
'- Marcel Kuhnt 13.10.2013 Neuer Seitenschildpfad
'------------------------------------------------------------------------------------------
{trigger:rollband_auf}
1 (S.L.rlbnd_auf_pressed)
(T.L.rlbnd_taste_ein)
{end}
{trigger:rollband_auf_off}
0 (S.L.rlbnd_auf_pressed)
(T.L.rlbnd_taste_aus)
{end}
{trigger:rollband_ab}
1 (S.L.rlbnd_ab_pressed)
(T.L.rlbnd_taste_ein)
{end}
{trigger:rollband_ab_off}
0 (S.L.rlbnd_ab_pressed)
(T.L.rlbnd_taste_aus)
{end}
{trigger:rollband_sync}
1 (S.L.rlbnd_sync_pressed)
(T.L.rlbnd_taste_ein)
(L.L.elec_busbar_main) (C.L.elec_busbar_minV) >
{if}
(S.L.rlbnd_running_dn)
0 (S.L.rlbnd_ziel_target)
{endif}
{end}
{trigger:rollband_sync_off}
0 (S.L.rlbnd_sync_pressed)
(T.L.rlbnd_taste_aus)
{end}
'*******************************************
' Trigger für Tastaturbedienung
{trigger:bus_rollband_up_step}
(L.L.rlbnd_activekurbel) 4 =
{if}
1 (S.L.rlbnd_auf_pressed)
(T.L.rlbnd_taste_ein)
{endif}
{end}
{trigger:bus_rollband_up_step_off}
(L.L.rlbnd_activekurbel) 4 =
{if}
0 (S.L.rlbnd_auf_pressed)
(T.L.rlbnd_taste_aus)
{endif}
{end}
{trigger:bus_rollband_dn_step}
(L.L.rlbnd_activekurbel) 4 =
{if}
1 (S.L.rlbnd_ab_pressed)
(T.L.rlbnd_taste_ein)
{endif}
{end}
{trigger:bus_rollband_dn_step_off}
(L.L.rlbnd_activekurbel) 4 =
{if}
0 (S.L.rlbnd_ab_pressed)
(T.L.rlbnd_taste_aus)
{endif}
{end}
{trigger:bus_rollband_up}
(L.L.rlbnd_activekurbel) 1 =
{if}
(L.L.rlbnd_ln1) (L.S.timegap) 1 / + 0 max 15 min (S.L.rlbnd_ln1)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{else}
(L.L.rlbnd_activekurbel) 2 =
{if}
(L.L.rlbnd_ln2) (L.S.timegap) 1 / + 0 max 15 min (S.L.rlbnd_ln2)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{else}
(L.L.rlbnd_activekurbel) 3 =
{if}
(L.L.rlbnd_ln3) (L.S.timegap) 1 / + 0 max 15 min (S.L.rlbnd_ln3)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{endif}
{endif}
{endif}
{end}
{trigger:bus_rollband_dn}
(L.L.rlbnd_activekurbel) 1 =
{if}
(L.L.rlbnd_ln1) (L.S.timegap) 1 / - 0 max 15 min (S.L.rlbnd_ln1)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{else}
(L.L.rlbnd_activekurbel) 2 =
{if}
(L.L.rlbnd_ln2) (L.S.timegap) 1 / - 0 max 15 min (S.L.rlbnd_ln2)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{else}
(L.L.rlbnd_activekurbel) 3 =
{if}
(L.L.rlbnd_ln3) (L.S.timegap) 1 / - 0 max 15 min (S.L.rlbnd_ln3)
(M.L.rollband_actu)
(M.L.rollband_refresh_setLineTo)
{endif}
{endif}
{endif}
{end}
{trigger:bus_rollband_setL1}
1 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setL2}
2 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setL3}
3 (S.L.rlbnd_activekurbel)
{end}
{trigger:bus_rollband_setT}
4 (S.L.rlbnd_activekurbel)
{end}
'****************************************************************
'** MCQ 24.5.2009 - Trigger für AI-Scheduled-Initialisierung: **
'****************************************************************
{trigger:ai_scheduled_settarget}
'Hier wird das automatische Rollband eingestellt:
1 (S.L.elec_busbar_main_sw)
1.0 (S.L.elec_V_battery)
(L.L.AI_target_index) s0 (M.V.GetTerminusCode) s1
'Wenn der Terminus-Code größer als 1000 ist, dann bitte Steckschild verwenden:
1000 >
{if}
l1 1000 - (S.L.rlbnd_steckschild_index)
l0 (S.L.rlbnd_steckschild_Termindex)
'Rollband auf 0:
0 (S.L.rlbnd_ziel_target)
{else}
l0 (S.L.rlbnd_ziel_target)
-1 (S.L.rlbnd_steckschild_Termindex)
'Wenn der Bitmap-String in Verwendung ist, dann den als Integer interpretieren und Steckschild zusätzlich setzen:
l0 6 (M.V.GetTerminusString) $StrToFloat s1
l1 1000 >
{if}
l1 1000 - (S.L.rlbnd_steckschild_index)
l0 (S.L.rlbnd_steckschild_Termindex)
{endif}
{endif}
(M.L.rollband_setsteckschild)
' Und gleich "schnell" gekurbelt: (aber +0.1, damit das Zielband noch aktualisiert wird)
(L.L.rlbnd_ziel_target) 0.1 + (S.L.rlbnd_ziel)
'Hier werden die Nummernrollbänder eingestellt:
'Nummern-String holen:
'Vorgehensweise pro Ziffer: zunächst wird die Ziffer "ausgeschnitten", dann jeweils dubliziert, damit
'jeweils ein Exemplar der ausgeschnittenen Ziffer im Cache bleibt (die andere geht beim $= verloren)
'1. Ziffer:
(L.$.SetLineTo) 1 $SetLengthL $d
" " $= {if} 0 s1 {endif} $d
"N" $= {if} 2 s1 {endif} $d
"g" $= {if} 3 s1 {endif} $d
"0" $= {if} 4 s1 {endif} $d
"1" $= {if} 5 s1 {endif} $d
"2" $= {if} 6 s1 {endif} $d
"3" $= {if} 7 s1 {endif} $d
"4" $= {if} 8 s1 {endif} $d
"5" $= {if} 9 s1 {endif} $d
"6" $= {if} 10 s1 {endif} $d
"7" $= {if} 11 s1 {endif} $d
"8" $= {if} 12 s1 {endif} $d
"9" $= {if} 13 s1 {endif} $d
"/" $= {if} 14 s1 {endif} $d
"A" $= {if} 16 s1 {endif} $d
"E" $= {if} 17 s1 {endif}
'2. Ziffer:
(L.$.SetLineTo) 2 $SetLengthL 1 $SetLengthR $d
" " $= {if} 0 s2 {endif} $d
"E" $= {if} 1 s2 {endif} $d
"A" $= {if} 2 s2 {endif} $d
"h" $= {if} 3 s2 {endif} $d
"0" $= {if} 4 s2 {endif} $d
"1" $= {if} 5 s2 {endif} $d
"2" $= {if} 6 s2 {endif} $d
"3" $= {if} 7 s2 {endif} $d
"4" $= {if} 8 s2 {endif} $d
"5" $= {if} 9 s2 {endif} $d
"6" $= {if} 10 s2 {endif} $d
"7" $= {if} 11 s2 {endif} $d
"8" $= {if} 12 s2 {endif} $d
"9" $= {if} 13 s2 {endif} $d
"^" $= {if} 14 s2 {endif}
'3. Ziffer:
(L.$.SetLineTo) 3 $SetLengthL 1 $SetLengthR $d
" " $= {if} 0 s3 {endif} $d
"E" $= {if} 1 s3 {endif} $d
"N" $= {if} 2 s3 {endif} $d
"A" $= {if} 3 s3 {endif} $d
"0" $= {if} 4 s3 {endif} $d
"1" $= {if} 5 s3 {endif} $d
"2" $= {if} 6 s3 {endif} $d
"3" $= {if} 7 s3 {endif} $d
"4" $= {if} 8 s3 {endif} $d
"5" $= {if} 9 s3 {endif} $d
"6" $= {if} 10 s3 {endif} $d
"7" $= {if} 11 s3 {endif} $d
"8" $= {if} 12 s3 {endif} $d
"9" $= {if} 13 s3 {endif} $d
"\" $= {if} 14 s3 {endif}
' Das ultimative Sahnehäubchen: die drei Rollbänder werden noch zufällig verrutscht...! *ggg*
10 random 5 - 100 / l1 + (S.L.rlbnd_ln1_target)
10 random 5 - 100 / l2 + (S.L.rlbnd_ln2_target)
10 random 5 - 100 / l3 + (S.L.rlbnd_ln3_target)
(L.L.rlbnd_ln1_target) (S.L.rlbnd_ln1)
(L.L.rlbnd_ln2_target) (S.L.rlbnd_ln2)
(L.L.rlbnd_ln3_target) (S.L.rlbnd_ln3)
(M.L.rollband_actu)
1 (S.L.rlbnd_refresh_seitenschild)
{end}
'********************************************************************
'** MCQ 24.5.2009 - Ende Trigger für AI-Scheduled-Initialisierung **
'********************************************************************
'*******************************************
' Trigger für Seitenschild
{trigger:rlbnd_seitenschildklemme_drag}
(L.S.mouse_y) -300 / (L.L.rlbnd_seitenschildklemme) + (S.L.rlbnd_seitenschildklemme) s0
l0 0 <
{if}
0 (S.L.rlbnd_seitenschildklemme)
{endif}
l0 0.7 >
{if}
(L.L.rlbnd_seitenschild_refresh) 0 =
{if}
1 (S.L.rlbnd_seitenschild_refresh)
(T.L.ev_fahrertuer_auf)
(L.$.Rollband_Seitenschild) "" $=
{if}
1 (S.L.rlbnd_refresh_seitenschild)
{else}
"" (S.$.Rollband_Seitenschild)
{endif}
{endif}
{endif}
l0 1 >
{if}
1 (S.L.rlbnd_seitenschildklemme)
{endif}
{end}
{trigger:rlbnd_seitenschildklemme_off}
(L.L.rlbnd_seitenschildklemme)
0.3 >
{if}
(T.L.ev_fahrertuer_zu)
{endif}
0 (S.L.rlbnd_seitenschildklemme)
(S.L.rlbnd_seitenschild_refresh)
{end}
'*******************************************
' Trigger für Steckschild
{trigger:bus_rollband_change_steckschild}
(L.L.rlbnd_steckschild_index) 1 + (S.L.rlbnd_steckschild_index)
1000 + (M.V.GetTerminusIndex) (S.L.rlbnd_steckschild_Termindex)
(M.L.rollband_setsteckschild)
(M.L.rollband_refreshIntIndex)
{end}
{macro:rollband_setsteckschild}
(L.L.rlbnd_steckschild_Termindex) s0
0 >=
{if}
l0 6 (M.V.GetTerminusString) (S.$.Rollband_SchildFrnt)
1 $SetLengthL $StrToFloat 1 max (S.L.rlbnd_steckschild_vis)
"..\..\Anzeigen\SteckSchilder\" (L.$.Rollband_SchildFrnt) $+ (S.$.Rollband_SchildFrnt)
{else}
0 (S.L.rlbnd_steckschild_index) (S.L.rlbnd_steckschild_vis)
"" (S.$.Rollband_SchildFrnt)
{endif}
{end}
'----------------------
' Init
'----------------------
{macro:rollband_init}
0
(S.L.rlbnd_ln1) (S.L.rlbnd_ln2) (S.L.rlbnd_ln3) (S.L.rlbnd_ziel)
1 (S.L.rlbnd_activekurbel)
(M.L.rollband_actu)
0 (S.L.rlbnd_ziel_target) (S.L.rlbnd_ziel)
-1 (L.L.rlbnd_steckschild_Termindex)
0 (S.L.rlbnd_steckschild_vis)
{end}
{macro:rollband_frame}
(L.L.elec_busbar_main) (C.L.elec_busbar_minV) >
{if}
(L.L.rlbnd_ziel_target) (L.L.rlbnd_ziel) =
{if}
(L.L.rlbnd_auf_pressed)
{if}
(L.L.rlbnd_ziel_target) 1 + (S.L.rlbnd_ziel_target)
1 (S.L.rlbnd_running) (S.L.rlbnd_running_up)
0 (S.L.rlbnd_running_dn)
(T.L.rlbnd_klick)
{else}
(L.L.rlbnd_ab_pressed)
{if}
(L.L.rlbnd_ziel_target) 1 - (S.L.rlbnd_ziel_target)
1 (S.L.rlbnd_running) (S.L.rlbnd_running_dn)
0 (S.L.rlbnd_running_up)
(T.L.rlbnd_klick)
{else}
(L.L.rlbnd_running)
{if}
(T.L.rlbnd_klick)
{endif}
0 (S.L.rlbnd_running) (S.L.rlbnd_running_up) (S.L.rlbnd_running_dn)
{endif}
{endif}
{else}
1 (S.L.rlbnd_running)
(L.L.rlbnd_ziel_target) (L.L.rlbnd_ziel) >
{if}
1 (S.L.rlbnd_running_up)
0 (S.L.rlbnd_running_dn)
{else}
1 (S.L.rlbnd_running_dn)
0 (S.L.rlbnd_running_up)
{endif}
{endif}
{else}
0 (S.L.rlbnd_running) (S.L.rlbnd_running_dn) (S.L.rlbnd_running_up)
{endif}
' Hier muss unterschieden werden zwischen Auf und Ab, da das Zählwerk sofort nach Betätigung des Tasters umspringen soll
(L.L.rlbnd_ziel) trunc s0
(L.L.rlbnd_ziel_target) (L.L.rlbnd_ziel) >
{if}
l0 (L.L.rlbnd_ziel) d trunc - (F.L.rlbnd_klinkwerk_auf) + s0
{else}
l0 (L.L.rlbnd_ziel) d trunc - (F.L.rlbnd_klinkwerk_ab) + s0
{endif}
l0 (S.L.rlbnd_1er)
(L.L.rlbnd_1er) 10 / trunc
(L.L.rlbnd_1er) 10 / d trunc - (F.L.rlbnd_10er-uebertrag) +
(S.L.rlbnd_10er)
(L.L.rlbnd_10er) 10 / trunc
(L.L.rlbnd_10er) 10 / d trunc - (F.L.rlbnd_10er-uebertrag) +
(S.L.rlbnd_100er)
(L.L.elec_busbar_main) (C.L.elec_busbar_minV) >
{if}
(L.S.Timegap) (C.L.rlbnd_vmax) * s0 (L.L.rlbnd_ziel_target) (L.L.rlbnd_ziel) - l0 min s1 l0 /-/ l1 max s0
0 = !
{if}
l0 (L.L.rlbnd_ziel) + (S.L.rlbnd_ziel)
(L.L.rlbnd_ziel) trunc
' (S.L.target_index_ext)
/-/ (L.L.rlbnd_ziel) + (S.L.rlbnd_ziel_trans) 1 - (S.L.rlbnd_ziel_trans_2)
' (L.L.target_texture) 1 + (S.L.target_texture_2)
'Aktualisierung der Strings für das Austauschen der Texturen:
(L.L.rlbnd_ziel) trunc s0
"..\..\Anzeigen\Rollband_SD79\" 1 (M.V.GetDepotStringGlobal) $+ "\" $+ (S.$.Rollband_Tex_H)
l0 4 (M.V.GetTerminusString) $+ (S.$.Rollband_Tex_V)
(L.$.Rollband_Tex_H) l0 1 + 4 (M.V.GetTerminusString) $+ (S.$.Rollband_Tex_H)
'Internen Index aktualisieren:
(M.L.rollband_refreshIntIndex)
{endif}
{endif}
'Aktualisierung der Code-Tafel:
"Linienlisten\" (L.$.yard) "_RLB.jpg" $+ $+ (S.$.Rollband_Linelist)
(L.L.rlbnd_refresh_seitenschild)
{if}
"..\..\Anzeigen\Seitenschilder\" 2 (M.V.GetDepotStringGlobal) $+ "\" $+ (L.$.SetLineTo) $RemoveSpaces $+ ".bmp" $+ (S.$.Rollband_Seitenschild)
0 (S.L.rlbnd_refresh_seitenschild)
{endif}
{end}
{macro:rollband_refreshIntIndex}
(L.L.rlbnd_steckschild_Termindex) s0 0 >=
l0 0 (M.V.GetTerminusString) "" $= ! &&
{if}
l0
{else}
(L.L.rlbnd_ziel)
{endif}
(S.L.target_index_int)
{end}
{macro:rollband_actu}
(L.L.rlbnd_ln1) trunc 0.001 + (S.L.rlbnd_ln1_bmp)
/-/ (L.L.rlbnd_ln1) + 2 / (S.L.rlbnd_ln1_trans)
(L.L.rlbnd_ln2) trunc 0.001 + (S.L.rlbnd_ln2_bmp)
/-/ (L.L.rlbnd_ln2) + 2 / (S.L.rlbnd_ln2_trans)
(L.L.rlbnd_ln3) trunc 0.001 + (S.L.rlbnd_ln3_bmp)
/-/ (L.L.rlbnd_ln3) + 2 / (S.L.rlbnd_ln3_trans)
{end}
{macro:rollband_refresh_setLineTo}
(L.L.rlbnd_ln1) s0
l0 0.5 < {if} " " {else}
l0 1.5 < {if} " " {else}
l0 2.5 < {if} "N" {else}
l0 3.5 < {if} "g" {else}
l0 4.5 < {if} "0" {else}
l0 5.5 < {if} "1" {else}
l0 6.5 < {if} "2" {else}
l0 7.5 < {if} "3" {else}
l0 8.5 < {if} "4" {else}
l0 9.5 < {if} "5" {else}
l0 10.5 < {if} "6" {else}
l0 11.5 < {if} "7" {else}
l0 12.5 < {if} "8" {else}
l0 13.5 < {if} "9" {else}
l0 14.5 < {if} "/" {else}
l0 16.5 < {if} "A" {else}
l0 17.5 < {if} "E" {else}
" "
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
(L.L.rlbnd_ln2) s0
l0 0.5 < {if} " " {else}
l0 1.5 < {if} "E" {else}
l0 2.5 < {if} "A" {else}
l0 3.5 < {if} "h" {else}
l0 4.5 < {if} "0" {else}
l0 5.5 < {if} "1" {else}
l0 6.5 < {if} "2" {else}
l0 7.5 < {if} "3" {else}
l0 8.5 < {if} "4" {else}
l0 9.5 < {if} "5" {else}
l0 10.5 < {if} "6" {else}
l0 11.5 < {if} "7" {else}
l0 12.5 < {if} "8" {else}
l0 13.5 < {if} "9" {else}
l0 14.5 < {if} "^" {else}
" "
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif} $+
(L.L.rlbnd_ln3) s0
l0 0.5 < {if} " " {else}
l0 1.5 < {if} "E" {else}
l0 2.5 < {if} "N" {else}
l0 3.5 < {if} "A" {else}
l0 4.5 < {if} "0" {else}
l0 5.5 < {if} "1" {else}
l0 6.5 < {if} "2" {else}
l0 7.5 < {if} "3" {else}
l0 8.5 < {if} "4" {else}
l0 9.5 < {if} "5" {else}
l0 10.5 < {if} "6" {else}
l0 11.5 < {if} "7" {else}
l0 12.5 < {if} "8" {else}
l0 13.5 < {if} "9" {else}
l0 14.5 < {if} "\" {else}
" "
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif}
{endif} $+ (S.$.SetLineTo)
{end}
Ha tudjátok hogy mitől van a zugriffelés, akkor azt írjátok le nekem, hogy mitől van.
A chtex_rollband.cfg így néz ki:
Ein neuer TexChangeMaster wird hinzugefügt
* Name der Textur, die in der X-Datei verwendet wird und getauscht werden soll
* Variablennummer (Integer), die zum Wechseln der Textur herangezogen werden soll
linienband1.bmp
rlbnd_ln1_bmp
18
Rollband_Ln1_01.bmp
Rollband_Ln1_02.bmp
Rollband_Ln1_03.bmp
Rollband_Ln1_04.bmp
Rollband_Ln1_05.bmp
Rollband_Ln1_06.bmp
Rollband_Ln1_07.bmp
Rollband_Ln1_08.bmp
Rollband_Ln1_09.bmp
Rollband_Ln1_10.bmp
Rollband_Ln1_11.bmp
Rollband_Ln1_12.bmp
Rollband_Ln1_13.bmp
Rollband_Ln1_14.bmp
Rollband_Ln1_15.bmp
Rollband_Ln1_16.bmp
Rollband_Ln1_17.bmp
Rollband_Ln1_18.bmp
linienband2.bmp
rlbnd_ln2_bmp
16
Rollband_Ln2_01.bmp
Rollband_Ln2_02.bmp
Rollband_Ln2_03.bmp
Rollband_Ln2_04.bmp
Rollband_Ln1_05.bmp
Rollband_Ln1_06.bmp
Rollband_Ln1_07.bmp
Rollband_Ln1_08.bmp
Rollband_Ln1_09.bmp
Rollband_Ln1_10.bmp
Rollband_Ln1_11.bmp
Rollband_Ln1_12.bmp
Rollband_Ln1_13.bmp
Rollband_Ln2_14.bmp
Rollband_Ln2_15.bmp
Rollband_Ln2_16.bmp
linienband3.bmp
rlbnd_ln3_bmp
18
Rollband_Ln1_01.bmp
Rollband_Ln1_02.bmp
Rollband_Ln1_03.bmp
Rollband_Ln1_04.bmp
Rollband_Ln1_05.bmp
Rollband_Ln1_06.bmp
Rollband_Ln1_07.bmp
Rollband_Ln1_08.bmp
Rollband_Ln1_09.bmp
Rollband_Ln1_10.bmp
Rollband_Ln1_11.bmp
Rollband_Ln1_12.bmp
Rollband_Ln1_13.bmp
Rollband_Ln1_14.bmp
Rollband_Ln1_15.bmp
Rollband_Ln1_16.bmp
Rollband_Ln1_17.bmp
Rollband_Ln1_18.bmp
Utoljára szerkesztette: MineHeadHun, 2014.08.28. 08:23:57