Custom Radiostation cleo source

20 Mai 2022, 15:25

Hi, I been making this music radio script for driving that support 2-players. I take GTA Underground radio mp3 cuz there is sometime a bug when the radio is not playing and even skipping music which its annyoing whenever i reload my loaded game.

It's just a source, you can add your own mp3 music and change your filenames if you know what your doing or take the music from GTA underground folder if you still have this mod.

This script has no cleo+ support for Underground: Press [ / ] to change radio stations

I recommanded to mute the music in options menu to prevent overlapping musics.

sound0 - disable radio
sound1 - LC radio
sound2 - VC radio
sound3 - Bullsworth/Custom radio

Código: Selecionar tudo

 {$CLEO .cs}
 
 
 //Project radio

1@ = audiostream.Load("audio\Underground\radio\liberty\chat.mp3")
2@ = audiostream.Load("audio\Underground\radio\liberty\class.mp3")
3@ = audiostream.Load("audio\Underground\radio\liberty\flashb.mp3")
4@ = audiostream.Load("audio\Underground\radio\liberty\game.mp3")
5@ = audiostream.Load("audio\Underground\radio\liberty\head.mp3")
6@ = audiostream.Load("audio\Underground\radio\liberty\kjah.mp3")
7@ = audiostream.Load("audio\Underground\radio\liberty\lcfr.mp3")
8@ = audiostream.Load("audio\Underground\radio\liberty\lcj.mp3")
9@ = audiostream.Load("audio\Underground\radio\liberty\lips.mp3")
10@ = audiostream.Load("audio\Underground\radio\liberty\msx.mp3")
11@ = audiostream.Load("audio\Underground\radio\liberty\mundo.mp3")
12@ = audiostream.Load("audio\Underground\radio\liberty\rise.mp3")

//including unused/deleted map of atlantis
13@ = audiostream.Load("audio\Underground\radio\atlantis\empire.mp3")
14@ = audiostream.Load("audio\Underground\radio\atlantis\flashb.mp3")
15@ = audiostream.Load("audio\Underground\radio\atlantis\kbig.mp3")
16@ = audiostream.Load("audio\Underground\radio\atlantis\prbs.mp3")
17@ = audiostream.Load("audio\Underground\radio\bullworth\8track.mp3")
18@ = audiostream.Load("audio\Underground\radio\bullworth\arrow.mp3")
19@ = audiostream.Load("audio\Underground\radio\bullworth\bw_rr.mp3")
20@ = audiostream.Load("audio\Underground\radio\bullworth\voltage.mp3")

21@ = audiostream.Load("audio\Underground\radio\vice\PARADISE.mp3")
22@ = audiostream.Load("audio\Underground\radio\vice\EMOTION.mp3")
23@ = audiostream.Load("audio\Underground\radio\vice\flash.mp3")
24@ = audiostream.Load("audio\Underground\radio\vice\vrock.mp3")
25@ = audiostream.Load("audio\Underground\radio\vice\wild.mp3")
26@ = audiostream.Load("audio\Underground\radio\vice\PARADISE.mp3")
27@ = audiostream.Load("audio\Underground\radio\vice\FRESH.mp3")
28@ = audiostream.Load("audio\Underground\radio\vice\espant.mp3")  //i ran out of variebles to add few more remains VC music 
 
29@ = audiostream.Load("audio\Underground\radio\static.mp3")

audiostream.PerformAction(1@,play)
audiostream.PerformAction(2@,play)
audiostream.PerformAction(3@,play)
audiostream.PerformAction(4@,play)
audiostream.PerformAction(5@,play)
audiostream.PerformAction(6@,play)
audiostream.PerformAction(7@,play)
audiostream.PerformAction(8@,play)
audiostream.PerformAction(9@,play)
audiostream.PerformAction(10@,play)
audiostream.PerformAction(11@,play)
audiostream.PerformAction(12@,play)
audiostream.PerformAction(13@,play)
audiostream.PerformAction(14@,play)
audiostream.PerformAction(15@,play)
audiostream.PerformAction(16@,play)
audiostream.PerformAction(17@,play)
audiostream.PerformAction(18@,play)
audiostream.PerformAction(19@,play)
audiostream.PerformAction(20@,play)
audiostream.PerformAction(21@,play)
audiostream.PerformAction(22@,play)
audiostream.PerformAction(23@,play)
audiostream.PerformAction(24@,play)
audiostream.PerformAction(25@,play)
audiostream.PerformAction(26@,play)
audiostream.PerformAction(27@,play)
audiostream.PerformAction(28@,play)  


 
audiostream.Volume(1@)=0.0
audiostream.Volume(2@)=0.0
audiostream.Volume(3@)=0.0
audiostream.Volume(4@)=0.0
audiostream.Volume(5@)=0.0
audiostream.Volume(6@)=0.0
audiostream.Volume(7@)=0.0
audiostream.Volume(8@)=0.0
audiostream.Volume(9@)=0.0
audiostream.Volume(10@)=0.0
audiostream.Volume(11@)=0.0
audiostream.Volume(12@)=0.0 
audiostream.Volume(13@)=0.0 
audiostream.Volume(14@)=0.0 
audiostream.Volume(15@)=0.0 
audiostream.Volume(16@)=0.0 
audiostream.Volume(17@)=0.0 
audiostream.Volume(18@)=0.0 
audiostream.Volume(19@)=0.0 
audiostream.Volume(20@)=0.0 
audiostream.Volume(21@)=0.0 
audiostream.Volume(22@)=0.0 
audiostream.Volume(23@)=0.0 
audiostream.Volume(24@)=0.0 
audiostream.Volume(25@)=0.0 
audiostream.Volume(26@)=0.0 
audiostream.Volume(27@)=0.0 
audiostream.Volume(28@)=0.0  
const
radio_enabled = 30@
radio_NumberXX = 31@ 
Radio_Type  = 0@
end 
Radio_Type=0
radio_enabled=false
radio_NumberXX=3 
while true 
wait 0 
if 0ADC:   test_cheat "sound0"
then
Radio_Type = 0 
0ACD: show_text_highpriority "Car Radio disabled" time 3000
end
if 0ADC:   test_cheat "sound1"
then
Radio_Type = 1 
0ACD: show_text_highpriority "Car Radio set to LC Radio" time 3000
end
if 0ADC:   test_cheat "sound2"
then
Radio_Type = 2 
0ACD: show_text_highpriority "Car Radio set to VC Radio" time 3000
end
if 0ADC:   test_cheat "sound3"
then
Radio_Type = 3 
0ACD: show_text_highpriority "Car Radio set to Custom Radio" time 3000
end
    gosub @RADIO
    if  056D: actor_defined $SECOND_PLAYER_ACTOR
    then
       
            if  or
            actor.Driving($PLAYER_ACTOR)
            actor.Driving($SECOND_PLAYER_ACTOR)
            then
            
                    if and
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #LC_TRAINF
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #LC_TRAINR
                   80DD: not  actor $SECOND_PLAYER_ACTOR driving_car_with_model #LC_TRAINf
                   80DD: not  actor $SECOND_PLAYER_ACTOR driving_car_with_model #LC_TRAINr
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #CC_TRAINF
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #CC_TRAINR
                   80DD: not  actor $SECOND_PLAYER_ACTOR driving_car_with_model #CC_TRAINF
                   80DD: not  actor $SECOND_PLAYER_ACTOR driving_car_with_model #CC_TRAINR
 
       ///             89AE: not  actor $PLAYER_ACTOR driving_train
       //             89AE: not  actor $SECOND_PLAYER_ACTOR driving_train
                    then
                    
                        radio_enabled=true  
                    end
            else
             radio_enabled=false
            end     
    else 
            if actor.Driving($PLAYER_ACTOR)
            then
            
                    if  and
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #LC_TRAINF
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #LC_TRAINR
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #CC_TRAINF
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #CC_TRAINR
                  //  89AE: not  actor $PLAYER_ACTOR driving_train 
                    then
                        radio_enabled=true 
                    end             
            else
             radio_enabled=false
            end            
    end 
end 

end_thread 

:RADIO
if
radio_enabled==true 
then
    if 
    0AB0:   key_pressed 219   //[
    then
    radio_NumberXX -= 1    
    gosub @MUTE_ALL
    wait 300
    
    audiostream.PerformAction(29@,stop)
    end 
    if 
    0AB0:   key_pressed 221   //]
    then
    gosub @MUTE_ALL
     
    radio_NumberXX += 1
    wait 300
    audiostream.PerformAction(29@,stop)
    end 
    if radio_NumberXX < 0
    then
       radio_NumberXX = 12
    end 
    
    if radio_NumberXX > 12
    
    then
       radio_NumberXX = 0 
    end     
    
if Radio_Type == 1 
then    
    if  radio_NumberXX == 1 
    then
    audiostream.Volume(1@)=1.0
    //0ACD: show_text_highpriority "Radio 1" time 3000

    end 
    if  radio_NumberXX == 2 
    then
    audiostream.Volume(2@)=1.0
        //0ACD: show_text_highpriority "Radio 2" time 3000
    end 
    if  radio_NumberXX == 3 
    then
    audiostream.Volume(3@)=1.0
        //0ACD: show_text_highpriority "Radio 3" time 3000
    end 
    if  radio_NumberXX == 4 
    then
    audiostream.Volume(4@)=1.0
        //0ACD: show_text_highpriority "Radio 4" time 3000
    end 
    if  radio_NumberXX == 5 
    then
    audiostream.Volume(5@)=1.0
        //0ACD: show_text_highpriority "Radio 5" time 3000
    end 
    if  radio_NumberXX == 6
    then
    audiostream.Volume(6@)=1.0
        //0ACD: show_text_highpriority "Radio 6" time 3000
    end 
    if  radio_NumberXX == 7 
    then
    audiostream.Volume(7@)=1.0
        //0ACD: show_text_highpriority "Radio 7" time 3000
    end 
    if  radio_NumberXX == 8 
    then
    audiostream.Volume(8@)=1.0
        //0ACD: show_text_highpriority "Radio 8" time 3000
    end 
    if  radio_NumberXX == 9 
    then
    audiostream.Volume(9@)=1.0
        //0ACD: show_text_highpriority "Radio 9" time 3000
    end 
    if  radio_NumberXX == 10 
    then
    audiostream.Volume(10@)=1.0
        //0ACD: show_text_highpriority "Radio 10" time 3000
    end 
    if  radio_NumberXX == 11 
    then
        //0ACD: show_text_highpriority "Radio 11" time 3000
    audiostream.Volume(11@)=1.0
    end 
    if  radio_NumberXX == 12 
    then
        //0ACD: show_text_highpriority "Radio 12" time 3000
    audiostream.Volume(12@)=1.0
    end  
end


if Radio_Type == 2 
then    
    if  radio_NumberXX == 1 
    then
    audiostream.Volume(21@)=1.0
    //0ACD: show_text_highpriority "Radio 1" time 3000

    end 
    if  radio_NumberXX == 2 
    then
    audiostream.Volume(22@)=1.0
        //0ACD: show_text_highpriority "Radio 2" time 3000
    end 
    if  radio_NumberXX == 3 
    then
    audiostream.Volume(23@)=1.0
        //0ACD: show_text_highpriority "Radio 3" time 3000
    end 
    if  radio_NumberXX == 4 
    then
    audiostream.Volume(24@)=1.0
        //0ACD: show_text_highpriority "Radio 4" time 3000
    end 
    if  radio_NumberXX == 5 
    then
    audiostream.Volume(25@)=1.0
        //0ACD: show_text_highpriority "Radio 5" time 3000
    end 
    if  radio_NumberXX == 6
    then
    audiostream.Volume(26@)=1.0
        //0ACD: show_text_highpriority "Radio 6" time 3000
    end 
    if  radio_NumberXX == 7 
    then
    audiostream.Volume(27@)=1.0
        //0ACD: show_text_highpriority "Radio 7" time 3000
    end 
    if  radio_NumberXX == 8 
    then
    audiostream.Volume(28@)=1.0
        //0ACD: show_text_highpriority "Radio 8" time 3000
    end 
 
end

if Radio_Type == 3 
then    
    if  radio_NumberXX == 1 
    then
    audiostream.Volume(13@)=1.0
    //0ACD: show_text_highpriority "Radio 1" time 3000

    end 
    if  radio_NumberXX == 2 
    then
    audiostream.Volume(14@)=1.0
        //0ACD: show_text_highpriority "Radio 2" time 3000
    end 
    if  radio_NumberXX == 3 
    then
    audiostream.Volume(15@)=1.0
        //0ACD: show_text_highpriority "Radio 3" time 3000
    end 
    if  radio_NumberXX == 4 
    then
    audiostream.Volume(16@)=1.0
        //0ACD: show_text_highpriority "Radio 4" time 3000
    end 
    if  radio_NumberXX == 5 
    then
    audiostream.Volume(17@)=1.0
        //0ACD: show_text_highpriority "Radio 5" time 3000
    end 
    if  radio_NumberXX == 6
    then
    audiostream.Volume(18@)=1.0
        //0ACD: show_text_highpriority "Radio 6" time 3000
    end 
    if  radio_NumberXX == 7 
    then
    audiostream.Volume(19@)=1.0
        //0ACD: show_text_highpriority "Radio 7" time 3000
    end  
 
end
else
audiostream.Volume(1@)=0.0
audiostream.Volume(2@)=0.0
audiostream.Volume(3@)=0.0
audiostream.Volume(4@)=0.0
audiostream.Volume(5@)=0.0
audiostream.Volume(6@)=0.0
audiostream.Volume(7@)=0.0
audiostream.Volume(8@)=0.0
audiostream.Volume(9@)=0.0
audiostream.Volume(10@)=0.0
audiostream.Volume(11@)=0.0
audiostream.Volume(12@)=0.0 
audiostream.Volume(13@)=0.0 
audiostream.Volume(14@)=0.0 
audiostream.Volume(15@)=0.0 
audiostream.Volume(16@)=0.0 
audiostream.Volume(17@)=0.0 
audiostream.Volume(18@)=0.0 
audiostream.Volume(19@)=0.0 
audiostream.Volume(20@)=0.0 
audiostream.Volume(21@)=0.0 
audiostream.Volume(22@)=0.0 
audiostream.Volume(23@)=0.0 
audiostream.Volume(24@)=0.0 
audiostream.Volume(25@)=0.0 
audiostream.Volume(26@)=0.0 
audiostream.Volume(27@)=0.0 
audiostream.Volume(28@)=0.0  
end 




return 

:MUTE_ALL
audiostream.Volume(1@)=0.0
audiostream.Volume(2@)=0.0
audiostream.Volume(3@)=0.0
audiostream.Volume(4@)=0.0
audiostream.Volume(5@)=0.0
audiostream.Volume(6@)=0.0
audiostream.Volume(7@)=0.0
audiostream.Volume(8@)=0.0
audiostream.Volume(9@)=0.0
audiostream.Volume(10@)=0.0
audiostream.Volume(11@)=0.0
audiostream.Volume(12@)=0.0 
audiostream.Volume(13@)=0.0 
audiostream.Volume(14@)=0.0 
audiostream.Volume(15@)=0.0 
audiostream.Volume(16@)=0.0 
audiostream.Volume(17@)=0.0 
audiostream.Volume(18@)=0.0 
audiostream.Volume(19@)=0.0 
audiostream.Volume(20@)=0.0 
audiostream.Volume(21@)=0.0 
audiostream.Volume(22@)=0.0 
audiostream.Volume(23@)=0.0 
audiostream.Volume(24@)=0.0 
audiostream.Volume(25@)=0.0 
audiostream.Volume(26@)=0.0 
audiostream.Volume(27@)=0.0 
audiostream.Volume(28@)=0.0  
audiostream.PerformAction(29@,play)
return

with cleo+ use mouse wheel to change radiostations

Código: Selecionar tudo

 {$CLEO .cs}
 {$USE cleo+}
 
 
 //Project radio

1@ = audiostream.Load("[RadioStations]\liberty\chat.mp3")
2@ = audiostream.Load("[RadioStations]\liberty\class.mp3")
3@ = audiostream.Load("[RadioStations]\liberty\flashb.mp3")
4@ = audiostream.Load("[RadioStations]\liberty\game.mp3")
5@ = audiostream.Load("[RadioStations]\liberty\head.mp3")
6@ = audiostream.Load("[RadioStations]\liberty\kjah.mp3")
7@ = audiostream.Load("[RadioStations]\liberty\lcfr.mp3")
8@ = audiostream.Load("[RadioStations]\liberty\lcj.mp3")
9@ = audiostream.Load("[RadioStations]\liberty\lips.mp3")
10@ = audiostream.Load("[RadioStations]\liberty\msx.mp3")
11@ = audiostream.Load("[RadioStations]\liberty\mundo.mp3")
12@ = audiostream.Load("[RadioStations]\liberty\rise.mp3")

//including unused/deleted map of atlantis
13@ = audiostream.Load("[RadioStations]\atlantis\empire.mp3")
14@ = audiostream.Load("[RadioStations]\atlantis\flashb.mp3")
15@ = audiostream.Load("[RadioStations]\atlantis\kbig.mp3")
16@ = audiostream.Load("[RadioStations]\atlantis\prbs.mp3")
17@ = audiostream.Load("[RadioStations]\bullworth\8track.mp3")
18@ = audiostream.Load("[RadioStations]\bullworth\arrow.mp3")
19@ = audiostream.Load("[RadioStations]\bullworth\bw_rr.mp3")
20@ = audiostream.Load("[RadioStations]\bullworth\voltage.mp3")

21@ = audiostream.Load("[RadioStations]\vice\PARADISE.mp3")
22@ = audiostream.Load("[RadioStations]\vice\EMOTION.mp3")
23@ = audiostream.Load("[RadioStations]\vice\flash.mp3")
24@ = audiostream.Load("[RadioStations]\vice\vrock.mp3")
25@ = audiostream.Load("[RadioStations]\vice\wild.mp3")
26@ = audiostream.Load("[RadioStations]\vice\PARADISE.mp3")
27@ = audiostream.Load("[RadioStations]\vice\FRESH.mp3")
28@ = audiostream.Load("[RadioStations]\vice\espant.mp3")  //i ran out of variebles to add few more remains VC music 
 
29@ = audiostream.Load("[RadioStations]\static.mp3")

audiostream.PerformAction(1@,play)
audiostream.PerformAction(2@,play)
audiostream.PerformAction(3@,play)
audiostream.PerformAction(4@,play)
audiostream.PerformAction(5@,play)
audiostream.PerformAction(6@,play)
audiostream.PerformAction(7@,play)
audiostream.PerformAction(8@,play)
audiostream.PerformAction(9@,play)
audiostream.PerformAction(10@,play)
audiostream.PerformAction(11@,play)
audiostream.PerformAction(12@,play)
audiostream.PerformAction(13@,play)
audiostream.PerformAction(14@,play)
audiostream.PerformAction(15@,play)
audiostream.PerformAction(16@,play)
audiostream.PerformAction(17@,play)
audiostream.PerformAction(18@,play)
audiostream.PerformAction(19@,play)
audiostream.PerformAction(20@,play)
audiostream.PerformAction(21@,play)
audiostream.PerformAction(22@,play)
audiostream.PerformAction(23@,play)
audiostream.PerformAction(24@,play)
audiostream.PerformAction(25@,play)
audiostream.PerformAction(26@,play)
audiostream.PerformAction(27@,play)
audiostream.PerformAction(28@,play)  


 
audiostream.Volume(1@)=0.0
audiostream.Volume(2@)=0.0
audiostream.Volume(3@)=0.0
audiostream.Volume(4@)=0.0
audiostream.Volume(5@)=0.0
audiostream.Volume(6@)=0.0
audiostream.Volume(7@)=0.0
audiostream.Volume(8@)=0.0
audiostream.Volume(9@)=0.0
audiostream.Volume(10@)=0.0
audiostream.Volume(11@)=0.0
audiostream.Volume(12@)=0.0 
audiostream.Volume(13@)=0.0 
audiostream.Volume(14@)=0.0 
audiostream.Volume(15@)=0.0 
audiostream.Volume(16@)=0.0 
audiostream.Volume(17@)=0.0 
audiostream.Volume(18@)=0.0 
audiostream.Volume(19@)=0.0 
audiostream.Volume(20@)=0.0 
audiostream.Volume(21@)=0.0 
audiostream.Volume(22@)=0.0 
audiostream.Volume(23@)=0.0 
audiostream.Volume(24@)=0.0 
audiostream.Volume(25@)=0.0 
audiostream.Volume(26@)=0.0 
audiostream.Volume(27@)=0.0 
audiostream.Volume(28@)=0.0  
const
radio_enabled = 30@
radio_NumberXX = 31@ 
Radio_Type  = 0@
end 
Radio_Type=0
radio_enabled=false
radio_NumberXX=3 
while true 
wait 0 
if 0ADC:   test_cheat "sound0"
then
Radio_Type = 0 
0ACD: show_text_highpriority "Car Radio disabled" time 3000
end
if 0ADC:   test_cheat "sound1"
then
Radio_Type = 1 
0ACD: show_text_highpriority "Car Radio set to LC Radio" time 3000
end
if 0ADC:   test_cheat "sound2"
then
Radio_Type = 2 
0ACD: show_text_highpriority "Car Radio set to VC Radio" time 3000
end
if 0ADC:   test_cheat "sound3"
then
Radio_Type = 3 
0ACD: show_text_highpriority "Car Radio set to Custom Radio" time 3000
end
    gosub @RADIO
    if 056D: actor_defined $SECOND_PLAYER_ACTOR
    then
       
            if  or
            actor.Driving($PLAYER_ACTOR)
            actor.Driving($SECOND_PLAYER_ACTOR)
            then
            
                    if and
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #LC_TRAINF
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #LC_TRAINR
                   80DD: not  actor $SECOND_PLAYER_ACTOR driving_car_with_model #LC_TRAINf
                   80DD: not  actor $SECOND_PLAYER_ACTOR driving_car_with_model #LC_TRAINr
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #CC_TRAINF
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #CC_TRAINR
                   80DD: not  actor $SECOND_PLAYER_ACTOR driving_car_with_model #CC_TRAINF
                   80DD: not  actor $SECOND_PLAYER_ACTOR driving_car_with_model #CC_TRAINR
 
       ///             89AE: not  actor $PLAYER_ACTOR driving_train
       //             89AE: not  actor $SECOND_PLAYER_ACTOR driving_train
                    then
                    
                        radio_enabled=true  
                    end
            else
             radio_enabled=false
            end     
    else 
            if actor.Driving($PLAYER_ACTOR)
            then
            
                    if  and
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #LC_TRAINF
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #LC_TRAINR
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #CC_TRAINF
                   80DD: not  actor $PLAYER_ACTOR driving_car_with_model #CC_TRAINR
                  //  89AE: not  actor $PLAYER_ACTOR driving_train 
                    then
                        radio_enabled=true 
                    end             
            else
             radio_enabled=false
            end            
    end 
end 

end_thread 

:RADIO
if
radio_enabled==true 
then
    if 
  0E11: is_mouse_wheel_down
//  0AB0:   key_pressed 219   //[
    then
    radio_NumberXX -= 1    
    gosub @MUTE_ALL
    wait 300
    
    audiostream.PerformAction(29@,stop)
    end 
    if 
   0E10: is_mouse_wheel_up
/// 0AB0:   key_pressed 221   //]
    then
    gosub @MUTE_ALL
     
    radio_NumberXX += 1
    wait 300
    audiostream.PerformAction(29@,stop)
    end 
    if radio_NumberXX < 0
    then
       radio_NumberXX = 12
    end 
    
    if radio_NumberXX > 12
    
    then
       radio_NumberXX = 0 
    end     
    
if Radio_Type == 1 
then    
    if  radio_NumberXX == 1 
    then
    audiostream.Volume(1@)=1.0
    //0ACD: show_text_highpriority "Radio 1" time 3000

    end 
    if  radio_NumberXX == 2 
    then
    audiostream.Volume(2@)=1.0
        //0ACD: show_text_highpriority "Radio 2" time 3000
    end 
    if  radio_NumberXX == 3 
    then
    audiostream.Volume(3@)=1.0
        //0ACD: show_text_highpriority "Radio 3" time 3000
    end 
    if  radio_NumberXX == 4 
    then
    audiostream.Volume(4@)=1.0
        //0ACD: show_text_highpriority "Radio 4" time 3000
    end 
    if  radio_NumberXX == 5 
    then
    audiostream.Volume(5@)=1.0
        //0ACD: show_text_highpriority "Radio 5" time 3000
    end 
    if  radio_NumberXX == 6
    then
    audiostream.Volume(6@)=1.0
        //0ACD: show_text_highpriority "Radio 6" time 3000
    end 
    if  radio_NumberXX == 7 
    then
    audiostream.Volume(7@)=1.0
        //0ACD: show_text_highpriority "Radio 7" time 3000
    end 
    if  radio_NumberXX == 8 
    then
    audiostream.Volume(8@)=1.0
        //0ACD: show_text_highpriority "Radio 8" time 3000
    end 
    if  radio_NumberXX == 9 
    then
    audiostream.Volume(9@)=1.0
        //0ACD: show_text_highpriority "Radio 9" time 3000
    end 
    if  radio_NumberXX == 10 
    then
    audiostream.Volume(10@)=1.0
        //0ACD: show_text_highpriority "Radio 10" time 3000
    end 
    if  radio_NumberXX == 11 
    then
        //0ACD: show_text_highpriority "Radio 11" time 3000
    audiostream.Volume(11@)=1.0
    end 
    if  radio_NumberXX == 12 
    then
        //0ACD: show_text_highpriority "Radio 12" time 3000
    audiostream.Volume(12@)=1.0
    end  
end


if Radio_Type == 2 
then    
    if  radio_NumberXX == 1 
    then
    audiostream.Volume(21@)=1.0
    //0ACD: show_text_highpriority "Radio 1" time 3000

    end 
    if  radio_NumberXX == 2 
    then
    audiostream.Volume(22@)=1.0
        //0ACD: show_text_highpriority "Radio 2" time 3000
    end 
    if  radio_NumberXX == 3 
    then
    audiostream.Volume(23@)=1.0
        //0ACD: show_text_highpriority "Radio 3" time 3000
    end 
    if  radio_NumberXX == 4 
    then
    audiostream.Volume(24@)=1.0
        //0ACD: show_text_highpriority "Radio 4" time 3000
    end 
    if  radio_NumberXX == 5 
    then
    audiostream.Volume(25@)=1.0
        //0ACD: show_text_highpriority "Radio 5" time 3000
    end 
    if  radio_NumberXX == 6
    then
    audiostream.Volume(26@)=1.0
        //0ACD: show_text_highpriority "Radio 6" time 3000
    end 
    if  radio_NumberXX == 7 
    then
    audiostream.Volume(27@)=1.0
        //0ACD: show_text_highpriority "Radio 7" time 3000
    end 
    if  radio_NumberXX == 8 
    then
    audiostream.Volume(28@)=1.0
        //0ACD: show_text_highpriority "Radio 8" time 3000
    end 
 
end

if Radio_Type == 3 
then    
    if  radio_NumberXX == 1 
    then
    audiostream.Volume(13@)=1.0
    //0ACD: show_text_highpriority "Radio 1" time 3000

    end 
    if  radio_NumberXX == 2 
    then
    audiostream.Volume(14@)=1.0
        //0ACD: show_text_highpriority "Radio 2" time 3000
    end 
    if  radio_NumberXX == 3 
    then
    audiostream.Volume(15@)=1.0
        //0ACD: show_text_highpriority "Radio 3" time 3000
    end 
    if  radio_NumberXX == 4 
    then
    audiostream.Volume(16@)=1.0
        //0ACD: show_text_highpriority "Radio 4" time 3000
    end 
    if  radio_NumberXX == 5 
    then
    audiostream.Volume(17@)=1.0
        //0ACD: show_text_highpriority "Radio 5" time 3000
    end 
    if  radio_NumberXX == 6
    then
    audiostream.Volume(18@)=1.0
        //0ACD: show_text_highpriority "Radio 6" time 3000
    end 
    if  radio_NumberXX == 7 
    then
    audiostream.Volume(19@)=1.0
        //0ACD: show_text_highpriority "Radio 7" time 3000
    end  
 
end
else
audiostream.Volume(1@)=0.0
audiostream.Volume(2@)=0.0
audiostream.Volume(3@)=0.0
audiostream.Volume(4@)=0.0
audiostream.Volume(5@)=0.0
audiostream.Volume(6@)=0.0
audiostream.Volume(7@)=0.0
audiostream.Volume(8@)=0.0
audiostream.Volume(9@)=0.0
audiostream.Volume(10@)=0.0
audiostream.Volume(11@)=0.0
audiostream.Volume(12@)=0.0 
audiostream.Volume(13@)=0.0 
audiostream.Volume(14@)=0.0 
audiostream.Volume(15@)=0.0 
audiostream.Volume(16@)=0.0 
audiostream.Volume(17@)=0.0 
audiostream.Volume(18@)=0.0 
audiostream.Volume(19@)=0.0 
audiostream.Volume(20@)=0.0 
audiostream.Volume(21@)=0.0 
audiostream.Volume(22@)=0.0 
audiostream.Volume(23@)=0.0 
audiostream.Volume(24@)=0.0 
audiostream.Volume(25@)=0.0 
audiostream.Volume(26@)=0.0 
audiostream.Volume(27@)=0.0 
audiostream.Volume(28@)=0.0  
end 




return 

:MUTE_ALL
audiostream.Volume(1@)=0.0
audiostream.Volume(2@)=0.0
audiostream.Volume(3@)=0.0
audiostream.Volume(4@)=0.0
audiostream.Volume(5@)=0.0
audiostream.Volume(6@)=0.0
audiostream.Volume(7@)=0.0
audiostream.Volume(8@)=0.0
audiostream.Volume(9@)=0.0
audiostream.Volume(10@)=0.0
audiostream.Volume(11@)=0.0
audiostream.Volume(12@)=0.0 
audiostream.Volume(13@)=0.0 
audiostream.Volume(14@)=0.0 
audiostream.Volume(15@)=0.0 
audiostream.Volume(16@)=0.0 
audiostream.Volume(17@)=0.0 
audiostream.Volume(18@)=0.0 
audiostream.Volume(19@)=0.0 
audiostream.Volume(20@)=0.0 
audiostream.Volume(21@)=0.0 
audiostream.Volume(22@)=0.0 
audiostream.Volume(23@)=0.0 
audiostream.Volume(24@)=0.0 
audiostream.Volume(25@)=0.0 
audiostream.Volume(26@)=0.0 
audiostream.Volume(27@)=0.0 
audiostream.Volume(28@)=0.0  
audiostream.PerformAction(29@,play)
return