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