'#############################################################################################################
'				BVG E-Ticket Kontrollsysteme Skript by BerlinPotsdam Development
'#############################################################################################################

'Dies ist ein Skript zur Simulation des BVG E-Ticket Kontrollsystemes, welches sich in allen Bussen der BVG wieder finden lässst.
'!!!ACHTUNG!!! In diesem Skript befinden sich auch andere Funtkionen wie Seitenschild....

'(c) 12.01.2010 Rüdiger Hülsmann
'(c) 01.06.2020 BerlinPotsdam Development (SIMON) (Es ist strengstens untersagt, dieses Skript ohne Erlaubnis zu veröffentlichen oder einzubauen)
'(c) 13.05.2020 Fonts: Entdecker666 (dort gilt das selbe)

'Script Version: 1.0
'Omsi release: 1.0

'Needs:
'-

'Revision History:
'- Rüdiger Hülsmann	12.01.2011	File created
'- Rüdiger Hülsmann	15.01.2011	Functions added
'- Projekt Potsdam Design	11.07.2020	BVG E-Ticket Kontrollsysteme

'-------------------------------------------------------------------------------------------------------------
'----------------------
'	Trigger
'----------------------

{trigger:seitenschild_vorne}
(L.L.seitenschild_vorne) ! (S.L.seitenschild_vorne)
{end}

'----------------------
'	Macros
'----------------------

{macro:BVG_ETicket_init}

'Astabweiser bei bestimmten Wagennummern aktivieren, sonst soll er nicht am Bus drann sein:

'MAN DL07: 3234, 3236, 3237, 3242, 3245, 3247, 3250, 3253, 3254, 3258, 3265, 3271, 3278, 3280, 3285, 3290, 3294, 3297, 3304, 3307, 3311, 3312, 3314, 3322
(L.$.wagennummer) "3239" $=
(L.$.wagennummer) "3278" $= ||
(L.$.wagennummer) "3292" $= ||
(L.$.wagennummer) "3293" $= ||
(L.$.wagennummer) "3130" $= ||
(L.$.wagennummer) "3239" $= ||

'MAN DL08: 3350, 3364, 3370, 3375, 3378, 3401, 3414, 3419, 3421, 3422, 3424, 3425
(L.$.wagennummer) "3331" $= ||
(L.$.wagennummer) "3339" $= ||
(L.$.wagennummer) "3357" $= ||
(L.$.wagennummer) "3367" $= ||
(L.$.wagennummer) "3351" $= ||

'MAN DL09: 3441, 3443, 3458, 3460, 3480, 3492, 3509, 3510, 3514, 3519, 3520, 3528, 3535, 3538, 3539, 3543 - 3545, 3546
(L.$.wagennummer) "3451" $= ||
(L.$.wagennummer) "3472" $= ||
(L.$.wagennummer) "3513" $= ||
(L.$.wagennummer) "3527" $= ||
(L.$.wagennummer) "3536" $= ||
(L.$.wagennummer) "3459" $= ||
(L.$.wagennummer) "3460" $= ||
(L.$.wagennummer) "3476" $= ||
(L.$.wagennummer) "3483" $= ||
(L.$.wagennummer) "3489" $= ||
(L.$.wagennummer) "3511" $= ||
(L.$.wagennummer) "3522" $= ||
(L.$.wagennummer) "3524" $= ||
(L.$.wagennummer) "3525" $= ||
(L.$.wagennummer) "3530" $= ||
(L.$.wagennummer) "3532" $= ||
(L.$.wagennummer) "3533" $= ||
(L.$.wagennummer) "3542" $= ||
(L.$.wagennummer) "3469" $= ||
(L.$.wagennummer) "3474" $= ||
(L.$.wagennummer) "3501" $= ||
(L.$.wagennummer) "3503" $= ||
(L.$.wagennummer) "3505" $= ||
(L.$.wagennummer) "3506" $= ||
(L.$.wagennummer) "3518" $= ||
(L.$.wagennummer) "3465" $= ||
(L.$.wagennummer) "3498" $= ||
{if}
	0 (S.L.vis_astabweiser)
{else}
	1 (S.L.vis_astabweiser)
{endif}

'Nur bei den Folgenden Wagennummern soll es Scheibenwischer oben geben:
(L.$.wagennummer) "3130"
{if}
	0 (S.L.vis_wischerarm_2L)
	0 (S.L.vis_wischerarm_2R)
{else}
	1 (S.L.vis_wischerarm_2L)
	1 (S.L.vis_wischerarm_2R)
{endif}

{end}

{macro:BVG_ETicket_frame}

'######################
'    ETicket Skript
'######################

'Zufälliges drauflegen der E Ticket Karte der BVG
4 (M.V.GetHumanCountOnPathLink)
{if}
	40 random (S.L.ETicket_rate)
{endif}

(L.L.ETicket_rate) 20 =
{if}
	1 (S.L.ETicket_Karte)
{endif}

(L.L.ETicket_Karte) 1 =
{if}
	(T.L.ev_ETicket_gruen)
	1 (S.L.ETicket_Gruen)
	0 (S.L.ETicket_gelb)
{else}
	1 (S.L.ETicket_gelb)
{endif}

5 (M.V.GetHumanCountOnPathLink)
{if}
	0 (S.L.ETicket_Karte)
	0 (S.L.ETicket_Gruen)
{endif}

'######################
'    Sounds
'######################

'Zufälliges auslösen eines Sounds bei einer Capazität von....

9 (M.V.GetHumanCountOnSeat)
{if}
	(T.L.ev_niesen4)
{endif}

16 (M.V.GetHumanCountOnSeat)
{if}
	(T.L.ev_niesen1)
{endif}

21 (M.V.GetHumanCountOnSeat)
{if}
	(T.L.ev_niesen2)
{endif}

27 (M.V.GetHumanCountOnSeat)
{if}
	(T.L.ev_niesen3)
{endif}

49 (M.V.GetHumanCountOnSeat)
{if}
	(T.L.ev_kind)
{endif}

{end}