Код:
dim_act 3
dim_flt 14
findactor 0,"Tommy"
findactor 1,"NULL"
citymusic_off
let flt[9]=0 // toggle fade1
let flt[10]=0 // toggle fade2
let flt[11]=0 // toggle fade3
let flt[12]=-1 // last radio
let flt[13]=0 //toggle stopped radio
label NotInCar
commandblock 0
//stream_getpos 0,5
//stream_destroy 0
//stream_getpos 1,6
//stream_destroy 1
//stream_getpos 2,7
//stream_destroy 2
//findnearactor 0,2,Car
getactorsdist 0,2,8
freeride_scoreset flt[11]
if flt[8]<5,-1,vol1
if flt[10]=0,-1,subvol1
if flt[9]=0,-1,vol1
stream_fadevol 0,1000,1,0.5
stream_fadevol 1,1000,1,0.5
stream_fadevol 2,1000,1,0.5
let flt[9]=1
goto vol4
label subvol1
stream_fadevol 0,1000,0.25,0.5
stream_fadevol 1,1000,0.25,0.5
stream_fadevol 2,1000,0.25,0.5
let flt[10]=0
goto vol4
label vol1
if flt[8]<15,-1,vol2
if flt[8]>5,-1,vol2
if flt[11]=0,-1,subvol2
if flt[10]=0,-1,vol2
stream_fadevol 0,1000,0.5,0.25
stream_fadevol 1,1000,0.5,0.25
stream_fadevol 2,1000,0.5,0.25
let flt[10]=1
goto vol4
label subvol2
stream_fadevol 0,1000,0,0.25
stream_fadevol 1,1000,0,0.25
stream_fadevol 2,1000,0,0.25
let flt[11]=0
goto vol4
label vol2
if flt[8]<30,-1,vol4
if flt[8]>15,-1,vol4
if flt[11]=0,-1,vol4
stream_fadevol 0,1000,0.25,0.01
stream_fadevol 1,1000,0.25,0.01
stream_fadevol 2,1000,0.25,0.01
let flt[11]=1
goto vol4
label vol4
if flt[8]>50,-1,gb
if flt[13]=0,-1,gb
stream_getpos 0,5
stream_destroy 0
stream_getpos 1,6
stream_destroy 1
stream_getpos 2,7
stream_destroy 2
let flt[13]=1
label gb
if flt[8]<50,-1,gb1
if flt[13]=1,-1,gb1
if flt[12]=0,-1,rad1
stream_create 0,"sounds/MUSIC/opr04KOJ.mp3"
stream_setloop 0, 1000
stream_setpos 0,5
stream_play 0
stream_fadevol 0,1,0.01,0.01
let flt[13]=0
label rad1
if flt[12]=1,-1,rad2
stream_create 1,"sounds/MUSIC/opr04UR3.mp3"
stream_setloop 1, 1000
stream_setpos 1,6
stream_play 1
stream_fadevol 1,1,0.01,0.01
let flt[13]=0
label rad2
if flt[12]=2,-1,gb1
stream_create 2,"sounds/MUSIC/opr04FYZ.mp3"
stream_setloop 2, 1000
stream_setpos 2,7
stream_play 2
stream_fadevol 2,1,0.01,0.01
let flt[13]=0
label gb1
compareownerwithex 0,1,NotInCar,-1
human_getowner 0,2
let flt[9]=0
let flt[10]=0
let flt[11]=0
if flt[12]=-1,-1,manualselect
stream_getpos 0,5
stream_destroy 0
stream_getpos 1,6
stream_destroy 1
stream_getpos 2,7
stream_destroy 2
rnd 4,3
if flt[4]=0,PreMusic1,-1
if flt[4]=1,PreMusic2,-1
if flt[4]=2,PreMusic3,-1
goto NoRadio
label manualselect
if flt[12]=0,Music1,-1
if flt[12]=1,Music2,-1
if flt[12]=2,Music3,-1
label NoRadio
commandblock 0
commandblock 1
let flt[12]=-1
compareownerwithex 0,1,NotInCar,-1
ctrl_read 3,FIRE1
if flt[3]>0,-1,NoRadio
label PreMusic1
console_addtext 99970011
stream_create 0,"sounds/MUSIC/opr04KOJ.mp3"
stream_setloop 0, 1000
stream_setpos 0,5
stream_play 0
let flt[12]=0
commandblock 0
wait 100
label Music1
commandblock 0
commandblock 1
stream_fadevol 0,1,1,1
compareownerwithex 0,1,NotInCar,-1
ctrl_read 3,FIRE1
if flt[3]>0,-1,Music1
stream_getpos 0,5
stream_destroy 0
label PreMusic2
console_addtext 99970012
stream_create 1,"sounds/MUSIC/opr04UR3.mp3"
stream_setloop 1, 1000
stream_setpos 1,6
stream_play 1
let flt[12]=1
commandblock 0
wait 100
label Music2
commandblock 0
commandblock 1
stream_fadevol 1,1,1,1
compareownerwithex 0,1,NotInCar,-1
ctrl_read 3,FIRE1
if flt[3]>0,-1,Music2
stream_getpos 1,6
stream_destroy 1
label PreMusic3
console_addtext 99970013
stream_create 2,"sounds/MUSIC/opr04FYZ.mp3"
stream_setloop 2, 1000
stream_setpos 2,7
stream_play 2
let flt[12]=2
commandblock 0
wait 100
label Music3
commandblock 0
commandblock 1
stream_fadevol 2,1,1,1
compareownerwithex 0,1,NotInCar,-1
ctrl_read 3,FIRE1
if flt[3]>0,-1,Music3
stream_getpos 2,7
stream_destroy 2
console_addtext 99970014
commandblock 0
wait 100
goto NoRadio