//Radio Script Ver. 1.0 12-10-2020 By KlassenAS For Kaiser
//Одна радиостанция с одним треком. 
//Поле окончания трек сбрасывается на начало.
//Этот скрипт хорош, если у Вас файл с длиннющей записью реального либо фейкового радиоэфира.
Dim_Act 2
Dim_Flt 8
GetActivePlayer 0
FindActor 1, "fire"


//Удалить для использования в scene2.bin
//Оставить для использования с патчем от GOLOD55
//Начало удаления
Human_GetProperty 0,0,Energy
If Flt[0]=0,-1,dan_on
Act_SetState 100,Off
Label dan_on
//Конец удаления

Let Flt[0]=0  //поток 00
Let Flt[1]=0  //логика
Let Flt[2]=-1 //сиденье/Время с начала игры/
Let Flt[3]=0  //Прошлое время с начала игры
Let Flt[4]=-1 //разница во времени игры
Let Flt[5]=-1 //прошлое время потока
Let Flt[7]=0 //текущее время потока


Label CHECK
CompareOwnerWithEx 0,1,CAR_IN,CAR_OUT
//Human_GetSeatIdx 0,2
//If Flt[2]=-1,CAR_OUT,CAR_IN

Label CAR_IN
If Flt[1]=0,-,CHECK
CityMusic_Off
Wait 500
CommandBlock 1
Stream_Create 0,"sounds\music\fireradio.ogg"
Stream_SetLoop 0,1
Stream_FadeVol 0,1,0,0
Stream_SetPos 0,7
Stream_Play 0
Stream_FadeVol 0,1,1,1
Let Flt[1]=1
CommandBlock 0
GoTo CHECK

Label CAR_OUT
If Flt[1]=1,-1,CHECK
Stream_GetPos 0,7
Stream_FadeVol 0,1,0,0
Stream_Pause 0
Stream_Destroy 0
CityMusic_On
Let Flt[1]=0
GoTo CHECK