runwait("\storage card\setmem.exe",1000)

# birthday
if (formattime("dm") eq "0612")
	call("b"&rnd(4)+1)
endif

# 1. April
if (formattime("dm") eq "0104")
	call("a"&rnd(10)+1)
endif

# hours
if (formattime("H") eq "00")
	call("n"&rnd(37)+1)
elseif (formattime("H") eq "01")
	call("n"&rnd(37)+1)
elseif (formattime("H") eq "02")
	call("n"&rnd(37)+1)
elseif (formattime("H") eq "03")
	call("n"&rnd(37)+1)
elseif (formattime("H") eq "04")
	call("n"&rnd(37)+1)
elseif (formattime("H") eq "05")
	call("n"&rnd(37)+1)
elseif (formattime("H") eq "06")
	call(rnd(45)+1)
elseif (formattime("H") eq "07")
	call(rnd(45)+1)
elseif (formattime("H") eq "08")
	call("d"&rnd(6)+1)
elseif (formattime("H") eq "09")
	call("d"&rnd(6)+1)
elseif (formattime("H") eq "10")
	call("d"&rnd(6)+1)
elseif (formattime("H") eq "11")
	call("d"&rnd(6)+1)
elseif (formattime("H") eq "12")
	call("d"&rnd(6)+1)
elseif (formattime("H") eq "13")
	call("d"&rnd(6)+1)
elseif (formattime("H") eq "14")
	call(rnd(45)+1)
elseif (formattime("H") eq "15")
	call(rnd(45)+1)
elseif (formattime("H") eq "16")
	call(rnd(45)+1)
elseif (formattime("H") eq "17")
	call(rnd(45)+1)
elseif (formattime("H") eq "18")
	call(rnd(45)+1)
elseif (formattime("H") eq "19")
	call(rnd(45)+1)
elseif (formattime("H") eq "20")
	call(rnd(45)+1)
elseif (formattime("H") eq "21")
	call(rnd(45)+1)
elseif (formattime("H") eq "22")
	call("n"&rnd(37)+1)
elseif (formattime("H") eq "23")
	call("n"&rnd(37)+1)
endif

run("\storage card\navigation\mnavdce.exe")

# birthday
sub b1
	message("Huch, heute ist doch der 6.12. Also dann mal Alles Gute zum Geburtstag!")
endsub

sub b2
	message("Na, schon Geschenke bekommen? Vielleicht endlich nen schnelleres Auto.")
endsub

sub b3
	message("Na, schon Geschenke bekommen? Vielleicht nen neuen Navi?")
endsub

sub b4
	message("Moment mal, mein Kalander sagt mir heute ist der 6.12. Also dann Alles Gute zum Geburtstag!")
endsub

# 1. April
sub a1
endsub
	message("Super Neuigkeit! Ab heute wird das neueste Kartenmaterial direkt von den Satelliten auf dein Navi gespielt. Völlig automatisch und kostenlos.")
	call("april")
endsub
	
sub a2
	message("Heute gibt es bei allen Tankstellen 20 Liter Benzin gratis.")
	call("april")
endsub

sub a3
	message("Dein rechter Vorderreifen ist platt!")
	call("april")
endsub

sub a4
	message("Dein rechter Hinterreifen ist platt!")
	call("april")
endsub

sub a5
	message("Dein Bremslicht funktioniert nicht mehr!")
	call("april")
endsub

sub a6
	message("Im Tank sind nur noch 2 Liter Sprit. Wußtest Du das?")
	call("april")
endsub

sub a7
	message("Heute ist internationaler Autowaschtag. Alle Waschanlagen können gratis besucht werden.")
	call("april")
endsub

sub a8
	message("Letzte Nacht ist diese Version von GoPal abgelaufen. Sie müssen eine neue kaufen.")
	call("april")
endsub

sub a9
	message("Ab heute gilt in Ortschaften generell nur noch Tempo 49.")
	call("april")
endsub

sub a10
	message("Deine Kupplung hat ne Macke!")
	call("april")
endsub

sub april
	message("Ähm, du weißt aber schon, welcher Tag heute ist, oder?")
endsub

# day
sub d1
	message("Ich hab gehört, es soll heute noch donnern?")
endsub

sub d2
	message("Ich hab gehört, es soll heute noch hageln?")
endsub

sub d3
	message("Ich hab gehört, es soll heute noch regnen?")
endsub

sub d4
	message("Ich hab gehört, es soll heute noch stürmen?")
endsub

sub d5
	message("Ist das heute nicht ein wunderschöner Tag zum Fahren?")
endsub

sub d6
	message("Was für ein schöner Tag.")
endsub

# night
sub n1
	message("Also ein normaler Mensch würde jetzt schlafen.")
endsub

sub n2
	message("Also ich glaub, ich will nicht.")
endsub

sub n3
	message("Also ich würd ja erstmal das Licht überprüfen.")
endsub

sub n4
	message("Das darf doch wohl nicht wahr sein. Um die Zeit?")
endsub

sub n5
	message("Denk an die Vampire!")
endsub

sub n6
	message("Denk an die armen Werwölfe!")
endsub

sub n7
	message("Eh Mann, das muß doch nicht sein, oder?")
endsub

sub n8
	message("Eh Mann, laß uns doch lieber schlafen. Darfst mich auch ins Bett nehmen.")
endsub

sub n9
	message("Guck mal auf die Uhr!")
endsub

sub n10
	message("Hat da jemand Schlafstörungen?")
endsub

sub n11
	message("Ich glaub, meine interne Uhr tickt nicht richtig?")
endsub

sub n12
	message("Ich kann mir nicht helfen, aber ich bin ziemlich müde.")
endsub

sub n13
	message("Ich würd jetzt lieber weiter schlafen?")
endsub

sub n14
	message("Ich will jetzt schlafen.")
endsub

sub n15
	message("Kannst Du mich bitte wieder ausschalten. Ich will jetzt weiter schlafen.")
endsub

sub n16
	message("Kannst wohl auch nicht schlafen?")
endsub

sub n17
	message("Mitten in der Nacht?")
endsub

sub n18
	message("Moment mal, geht meine Uhr falsch oder ist es tatsächlich mitten in der Nacht?")
endsub

sub n19
	message("Moment mal, sind wir jetzt in Australien oder willst Du wirklich mitten in der Nacht fahren?")
endsub

sub n20
	message("Ne, oder?")
endsub

sub n21
	message("Oh Mann, stockdunkel! Geht das Licht überhaupt?")
endsub

sub n22
	message("Schonmal nen Schlafwandler überfahren?")
endsub

sub n23
	message("Schonmal nen Vampir überfahren?")
endsub

sub n24
	message("Schonmal nen Werwolf überfahren?")
endsub

sub n25
	message("Soll ich auch noch Schlafstörungen bekommen?")
endsub

sub n26
	message("Soll ich dir ne Uhr schenken?")
endsub

sub n27
	message("Träum ich das, oder hat mich gerade jemand angeschaltet?")
endsub

sub n28
	message("Um die Zeit könnte ich laut Gewerkschaft auch streiken.")
endsub
sub n29

sub n30
	message("Verflixt noch mal, wo ist der Aus-Schalter?")
endsub

sub n31
	message("Vorsicht Schlafwandler!")
endsub

sub n32
	message("Vorsicht Vampire!")
endsub

sub n33
	message("Vorsicht Werwölfe!")
endsub

sub n34
	message("Was? Wie? Jetzt?")
endsub

sub n35
	message("Wer fährt denn um diese Zeit Auto?")
endsub

sub n36
	message("Wohl Sehnsucht nach Vampiren, oder?")
endsub

sub n37
	message("Wußtest du, daß man Schlafstörungen auch heilen kann?")
endsub

# neutral
sub 1
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\demnaechst.wav")
	playsound("\storage card\navigation\res\de\audio\hlinks.wav")
	sleep(100)
	playsound("\storage card\navigation\res\de\audio\hrechts.wav")
	playsound("\storage card\navigation\res\de\audio\abbiegen.wav")
endsub

sub 2
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\demnaechst.wav")
	playsound("\storage card\navigation\res\de\audio\hlinks.wav")
	sleep(100)
	playsound("\storage card\navigation\res\de\audio\hrechts.wav")
	playsound("\storage card\navigation\res\de\audio\ab_folgen.wav")
endsub

sub 3
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\"&substr(formattime("s"),1,1)+4&"km.wav")
	playsound("\storage card\navigation\res\de\audio\tausend.wav")
	playsound("\storage card\navigation\res\de\audio\km.wav")
	sleep(100)
	playsound("\storage card\navigation\res\de\audio\im_kreis.wav")
	playsound("\storage card\navigation\res\de\audio\gerade.wav")
	playsound("\storage card\navigation\res\de\audio\danach_gleich.wav")
	playsound("\storage card\navigation\res\de\audio\abfahrt_1"&rnd(6)&".wav")
	playsound("\storage card\navigation\res\de\audio\abfahrt_nehmen.wav")
endsub

sub 4
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\"&substr(formattime("s"),1,1)+4&"km.wav")
	playsound("\storage card\navigation\res\de\audio\tausend.wav")
	playsound("\storage card\navigation\res\de\audio\km.wav")
	sleep(100)
	playsound("\storage card\navigation\res\de\audio\im_tunnel.wav")
	playsound("\storage card\navigation\res\de\audio\gerade.wav")
endsub

sub 5
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\"&substr(formattime("s"),1,1)+4&"km.wav")
	playsound("\storage card\navigation\res\de\audio\tausend.wav")
	playsound("\storage card\navigation\res\de\audio\km.wav")
	sleep(100)
	playsound("\storage card\navigation\res\de\audio\dieautobahn.wav")
	playsound("\storage card\navigation\res\de\audio\gerade.wav")
endsub

sub 6
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\uturn.wav")
	playsound("\storage card\navigation\res\de\audio\danach_gleich.wav")
	playsound("\storage card\navigation\res\de\audio\fr_wechseln.wav")
endsub

sub 7
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\im_kreis.wav")
	playsound("\storage card\navigation\res\de\audio\uturn.wav")
endsub

sub 8
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\im_kreis.wav")
	playsound("\storage card\navigation\res\de\audio\fr_wechseln.wav")
endsub

sub 9
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\im_tunnel.wav")
	playsound("\storage card\navigation\res\de\audio\uturn.wav")
endsub

sub 10
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\im_tunnel.wav")
	playsound("\storage card\navigation\res\de\audio\fr_wechseln.wav")
endsub

sub 11
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\im_tunnel.wav")
	playsound("\storage card\navigation\res\de\audio\slinks.wav")
	playsound("\storage card\navigation\res\de\audio\abbiegen.wav")
endsub

sub 12
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\im_tunnel.wav")
	playsound("\storage card\navigation\res\de\audio\srechts.wav")
	playsound("\storage card\navigation\res\de\audio\abbiegen.wav")
endsub

sub 13
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\slinks.wav")
	playsound("\storage card\navigation\res\de\audio\ab_folgen.wav")
endsub

sub 14
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\srechts.wav")
	playsound("\storage card\navigation\res\de\audio\ab_folgen.wav")
endsub

sub 15
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\sehrlange.wav")
	playsound("\storage card\navigation\res\de\audio\im_kreis.wav")
	playsound("\storage card\navigation\res\de\audio\gerade.wav")
endsub

sub 16
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\sehrlange.wav")
	playsound("\storage card\navigation\res\de\audio\im_tunnel.wav")
	playsound("\storage card\navigation\res\de\audio\gerade.wav")
endsub

sub 17
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\demnaechst.wav")
	playsound("\storage card\navigation\res\de\audio\slinks.wav")
	sleep(100)
	playsound("\storage card\navigation\res\de\audio\srechts.wav")
	playsound("\storage card\navigation\res\de\audio\ab_folgen.wav")
endsub

sub 18
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\demnaechst.wav")
	playsound("\storage card\navigation\res\de\audio\slinks.wav")
	sleep(100)
	playsound("\storage card\navigation\res\de\audio\srechts.wav")
	playsound("\storage card\navigation\res\de\audio\demsv.wav")
	playsound("\storage card\navigation\res\de\audio\folgen.wav")
endsub

sub 19
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\demnaechst.wav")
	playsound("\storage card\navigation\res\de\audio\hlinks.wav")
	sleep(100)
	playsound("\storage card\navigation\res\de\audio\hrechts.wav")
	playsound("\storage card\navigation\res\de\audio\demsv.wav")
	playsound("\storage card\navigation\res\de\audio\folgen.wav")
endsub

sub 20
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\dieautobahn.wav")
	playsound("\storage card\navigation\res\de\audio\uturn.wav")
endsub

sub 21
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\nachkv.wav")
	playsound("\storage card\navigation\res\de\audio\uturn.wav")
endsub

sub 22
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\nachkv.wav")
	playsound("\storage card\navigation\res\de\audio\fr_wechseln.wav")
endsub

sub 23
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\in_1.wav")
	playsound("\storage card\navigation\res\de\audio\"&substr(formattime("s"),1,1)+4&"km.wav")
	playsound("\storage card\navigation\res\de\audio\tausend.wav")
	playsound("\storage card\navigation\res\de\audio\km.wav")
	sleep(100)
	playsound("\storage card\navigation\res\de\audio\abbiegen.wav")
endsub

sub 24
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\fr_wechseln.wav")
	playsound("\storage card\navigation\res\de\audio\danach_gleich.wav")
	playsound("\storage card\navigation\res\de\audio\fr_wechseln.wav")
endsub

sub 25
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\nach_tunnel.wav")
	playsound("\storage card\navigation\res\de\audio\fr_wechseln.wav")
endsub

sub 26
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\nach_tunnel.wav")
	playsound("\storage card\navigation\res\de\audio\uturn.wav")
endsub

sub 27
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\uturn.wav")
	playsound("\storage card\navigation\res\de\audio\danach_gleich.wav")
	playsound("\storage card\navigation\res\de\audio\uturn.wav")
endsub

sub 28
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\dieautobahn.wav")
	playsound("\storage card\navigation\res\de\audio\slinks.wav")
	playsound("\storage card\navigation\res\de\audio\verlassen.wav")
endsub

sub 29
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\dieautobahn.wav")
	playsound("\storage card\navigation\res\de\audio\srechts.wav")
	playsound("\storage card\navigation\res\de\audio\verlassen.wav")
endsub

sub 30
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\dieautobahn.wav")
	playsound("\storage card\navigation\res\de\audio\slinks.wav")
	playsound("\storage card\navigation\res\de\audio\abbiegen.wav")
endsub

sub 31
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\dieautobahn.wav")
	playsound("\storage card\navigation\res\de\audio\srechts.wav")
	playsound("\storage card\navigation\res\de\audio\abbiegen.wav")
endsub

sub 32
	call("achtung")
	playsound("\storage card\navigation\res\de\audio\jetzt.wav")
	playsound("\storage card\navigation\res\de\audio\dieautobahn.wav")
	playsound("\storage card\navigation\res\de\audio\verlassen.wav")
	playsound("\storage card\navigation\res\de\audio\danach_gleich.wav")
	playsound("\storage card\navigation\res\de\audio\ab_folgen.wav")
endsub

sub achtung
	playsound("\storage card\navigation\res\de\audio\achtung.wav")
	playsound("\storage card\navigation\res\de\audio\rouwurdeakt.wav")
	sleep(500)
endsub

sub 33
	message("Haben wir überhaupt genug Sprit?")
endsub

sub 34
	message("Kennen wir uns?")
endsub

sub 35
	message("Wer sagt eigentlich, daß alle Blinker noch funktionieren?")
endsub

sub 36
	message("Alles am rechten Platz? Na dann kann's ja losgehen.")
endsub

sub 37
	message("Auf die Plätze, fertig, los!")
endsub

sub 38
	message("Auf die Plätze, fertig, Gas!")
endsub

sub 39
	message("Bau ja keinen Unfall!")
endsub

sub 40
	message("Ich hab dich schon am Schritt erkannt.")
endsub

sub 41
	message("Ich hab dich schon kommen sehen.")
endsub

sub 42
	message("Na wo soll's denn heute hingehen?")
endsub

sub 43
	message("Wo immer du auch hinfährst, icb bin bei dir.")
endsub

sub 44
	message("Wo willst Du denn hin?")
endsub

sub 45
	message("Gute Fahrt!")
endsub