Hallo,
Ich möchte für meinen Fuhrpark des Hamburger Buspakets (2017) Umläufe/Dienstpläne wie auf Hamburg Hafencity.
Sodass dies wie auf Hamburg, auch auf andern Karten wie;
-Alheim Laurenzbach updated
-Berlin X10
-Berlin Spandau
-Krefrath
-Städtedreieck V3
und viele weitere (oben genannten sind meine Favoriten) funktioniert.
Das Script des "Timetablesystem" vom Hamburger Buspaket kurz durchgelesen und auch etwas ausprobiert, und leider zu keinem positiven Ergebnis gekommen.
Da diese Frage nirgends im Forum aufkamm dachte ich mir, dass ich einfach in die Tasten haue.
Wäre daher über Hilfe sehr dankbar.
Im Spoiler habe ich mal die Scripts aufgeschrieben.
Die Scripts sind zu finden im Ordnerverlauf: Vehicles\HH_Stadtbus2017\Script
-17_timetable_system.osc
-17_timetable_system_stringvarlist.txt
-17_timetable_system_varlist.txt
- '##############
- 'erweitertes Fahrplan- und Schichtkartensystem
- '##############
- 'Darius Bode 2017
- {macro:timetable_system_frame}
- ' Prüfen ob Einsatz in Hamburg
- (L.L.almex_hafencity) {if}
- (L.L.almex_int_umlauf) 0 >
- {if}
- (L.L.almex_int_umlauf) (S.L.ts_umlauf)
- {else}
- 0 (S.L.ts_umlauf) (S.L.almex_tourdepart)
- {endif}
- ' Ermittlung passender Fahrzeitkarte
- ' Wochentag
- ' Tagesziffer
- (L.S.Day) 7 % (S.L.tagesrechner_tagesziffer)
- ' Monatsziffer
- (L.S.Month) 1 =
- (L.S.Month) 10 = ||
- {if}
- 0 (S.L.tagesrechner_monatsziffer)
- {endif}
- (L.S.Month) 2 =
- (L.S.Month) 3 = ||
- (L.S.Month) 11 = ||
- {if}
- 3 (S.L.tagesrechner_monatsziffer)
- {endif}
- (L.S.Month) 4 =
- (L.S.Month) 7 = ||
- {if}
- 6 (S.L.tagesrechner_monatsziffer)
- {endif}
- (L.S.Month) 5 =
- {if}
- 1 (S.L.tagesrechner_monatsziffer)
- {endif}
- (L.S.Month) 6 =
- {if}
- 4 (S.L.tagesrechner_monatsziffer)
- {endif}
- (L.S.Month) 8 =
- {if}
- 2 (S.L.tagesrechner_monatsziffer)
- {endif}
- (L.S.Month) 12 =
- (L.S.Month) 9 = ||
- {if}
- 5 (S.L.tagesrechner_monatsziffer)
- {endif}
- ' Jahresziffer
- (L.S.Year) $IntToStr 2 $cutBegin $StrToFloat s1
- l1 4 / trunc l1 + 7 % (S.L.tagesrechner_jahresziffer)
- ' Jahrhundertziffer
- (L.S.Year) $IntToStr 2 $cutEnd $StrToFloat 4 % s1
- 3 l1 - 2 * (S.L.tagesrechner_jahrhundertziffer)
- ' Schaltjahreskorrektur
- (L.S.Year) 4 % 0 =
- (L.S.Month) 3 < &&
- {if}
- 1 (S.L.tagesrechner_schaltjahreskorrektur)
- {else}
- 0 (S.L.tagesrechner_schaltjahreskorrektur)
- {endif}
- ' Errechnung Wochentag
- (L.L.tagesrechner_tagesziffer)
- (L.L.tagesrechner_monatsziffer) +
- (L.L.tagesrechner_jahresziffer) +
- (L.L.tagesrechner_jahrhundertziffer) +
- (L.L.tagesrechner_schaltjahreskorrektur) -
- 7 % (S.L.wochentag)
- ""
- '####### Fahrauftrag-Beschriftung ########
- '####### Datum und Kalenderwoche ########
- ' Antirepeat
- (L.L.yearstop) 0 =
- {if}
- (L.S.Year) (S.L.lastyear)
- 1 (S.L.yearstop)
- {endif}
- (L.S.Year) ! (L.L.lastyear)
- {if}
- 0 (S.L.yearstop) (S.L.datumsrechner_kalenderwoche_nach)
- {endif}
- ' Welcher Wochentag war der 29. Dez letztes Jahr?
- ' Jahresziffer
- (L.S.Year) 1 - $IntToStr 2 $cutBegin $StrToFloat s1
- l1 4 / trunc l1 + 7 % (S.L.datumsrechner_jahresziffer)
- ' Jahrhundertziffer
- (L.S.Year) 1 - $IntToStr 2 $cutEnd $StrToFloat 4 % s1
- 3 l1 - 2 * (S.L.datumsrechner_jahrhundertziffer)
- ' Schaltjahreskorrektur
- (L.S.Year) 1 - 4 % 0 =
- 12 3 < &&
- {if}
- 1 (S.L.datumsrechner_schaltjahreskorrektur)
- {else}
- 0 (S.L.datumsrechner_schaltjahreskorrektur)
- {endif}
- ' Errechnung Wochentag
- 6 (L.L.datumsrechner_jahresziffer) +
- (L.L.datumsrechner_jahrhundertziffer) +
- (L.L.datumsrechner_schaltjahreskorrektur) -
- 7 % (S.L.datumsrechner_2912)
- ' Welcher Wochentag ist der 31.12.?
- (L.S.Year) 4 % 0 =
- {if}
- (L.L.datumsrechner_2912) 4 <
- {if}
- (L.L.datumsrechner_2912) 4 + (S.L.datumsrechner_3112)
- {else}
- (L.L.datumsrechner_2912) 3 - (S.L.datumsrechner_3112)
- {endif}
- {else}
- (L.L.datumsrechner_2912) 4 <
- {if}
- (L.L.datumsrechner_2912) 3 + (S.L.datumsrechner_3112)
- {else}
- (L.L.datumsrechner_2912) 4 - (S.L.datumsrechner_3112)
- {endif}
- {endif}
- ' Wieviele Wochen hatte das Vorjahr
- (L.L.datumsrechner_2912) 2 = &&
- (L.S.Year) 1 - 4 % 0 = (L.L.datumsrechner_2912) 3 = && ||
- {if}
- 53 (S.L.datumsrechner_kalenderwochen_vorjahr)
- {else}
- 52 (S.L.datumsrechner_kalenderwochen_vorjahr)
- {endif}
- ' Wochentag 29.12. des Vorjahrs
- (L.L.datumsrechner_2912) 0 =
- {if}
- -5 (S.L.datumsrechner_kalenderwoche_vor)
- {endif}
- (L.L.datumsrechner_2912) 6 =
- {if}
- 1 (S.L.datumsrechner_kalenderwoche_vor)
- {endif}
- (L.L.datumsrechner_2912) 5 =
- {if}
- 0 (S.L.datumsrechner_kalenderwoche_vor)
- {endif}
- (L.L.datumsrechner_2912) 4 =
- {if}
- -1 (S.L.datumsrechner_kalenderwoche_vor)
- {endif}
- (L.L.datumsrechner_2912) 3 =
- {if}
- -2 (S.L.datumsrechner_kalenderwoche_vor)
- {endif}
- (L.L.datumsrechner_2912) 2 =
- {if}
- -3 (S.L.datumsrechner_kalenderwoche_vor)
- {endif}
- (L.L.datumsrechner_2912) 1 =
- {if}
- -4 (S.L.datumsrechner_kalenderwoche_vor)
- {endif}
- ' Wochentag 31.12.
- (L.L.datumsrechner_3112) 1 =
- (L.S.Month) 12 = &&
- (L.S.Day) 30 > &&
- {if}
- 1 (S.L.datumsrechner_kalenderwoche_nach)
- {endif}
- (L.L.datumsrechner_3112) 2 =
- (L.S.Month) 12 = &&
- (L.S.Day) 29 > &&
- {if}
- 1 (S.L.datumsrechner_kalenderwoche_nach)
- {endif}
- (L.L.datumsrechner_3112) 3 =
- (L.S.Month) 12 = &&
- (L.S.Day) 28 > &&
- {if}
- 1 (S.L.datumsrechner_kalenderwoche_nach)
- {endif}
- (L.S.DayOfYear) (L.L.datumsrechner_kalenderwoche_vor) + 0 >
- (L.L.datumsrechner_kalenderwoche_nach) 1 = ! &&
- {if}
- (L.S.DayOfYear) (L.L.datumsrechner_kalenderwoche_vor) + 7 / (F.L.kalenderwoche) (S.L.datumsrechner_kalenderwoche)
- (L.S.Year) 2013 = {if} (L.L.datumsrechner_kalenderwoche) 1 + (S.L.datumsrechner_kalenderwoche) {endif}
- {endif}
- (L.S.DayOfYear) (L.L.datumsrechner_kalenderwoche_vor) + 0 <
- (L.S.DayOfYear) (L.L.datumsrechner_kalenderwoche_vor) + 0 = ||
- (L.L.datumsrechner_kalenderwoche_nach) 1 = ! &&
- {if}
- (L.L.datumsrechner_kalenderwochen_vorjahr) (S.L.datumsrechner_kalenderwoche)
- {endif}
- (L.L.datumsrechner_kalenderwoche_nach) 1 =
- {if}
- (L.L.datumsrechner_kalenderwoche_nach) (S.L.datumsrechner_kalenderwoche)
- {endif}
- (L.L.almex_vis_zettel) ! (L.L.schedule_active) && (L.L.umlauf) 0 > && (S.L.HC_schedule_vis)
- "Fahrauftraege\Hamburg\" (L.L.umlauf) $IntToStr $+ "1.jpg" $+ (S.$.umlaufzettel)
- 0 (S.L.SD_schedule_vis)
- ' Ende If-Bedingung für Hamburger Hofdatei
- {else}
- (L.$.linelist) $length 22 <
- {if}
- "Linienlisten\" (L.$.Yard) $+ "_ANX.jpg" $+ (S.$.linelist) ""
- {endif}
- (L.L.almex_vis_zettel) ! (L.L.schedule_active) && (S.L.SD_schedule_vis)
- 0 (S.L.HC_schedule_vis)
- {endif}
- {end}
- datumsrechner_tagesziffer
- datumsrechner_monatsziffer
- datumsrechner_jahresziffer
- datumsrechner_jahrhundertziffer
- datumsrechner_schaltjahreskorrektur
- datumsrechner_2912
- datumsrechner_3112
- datumsrechner_kalenderwoche
- datumsrechner_kalenderwoche_vor
- datumsrechner_kalenderwoche_nach
- datumsrechner_kalenderwochen_vorjahr
- lastyear
- yearstop
- ts_umlauf
- timetable_hide
- schedule_routecode
- HC_schedule_vis
- SD_schedule_vis
- tagesrechner_tagesziffer
- tagesrechner_monatsziffer
- tagesrechner_jahresziffer
- tagesrechner_jahrhundertziffer
- tagesrechner_schaltjahreskorrektur
- wochentag
Vielen dank im vorraus, und freue mich jetzt schon auf eure Hilfe.