{PUBLIC_VARS Timegap: single; SoundRunning: boolean; Snd_Laeuten: integer; } {PUBLIC_BUTTONS Switch; } procedure OnButton(id: string; value: boolean; cockpitIndex: integer); begin if id = 'Switch' then begin if value then begin if SoundRunning then begin Snd_Laeuten := -1 SoundRunning := false; end else begin Snd_Laeuten := 1; SoundRunning := true; end; end; end; end; end.