A mod to set the default radio station?

[muh linucs]

Surprisingly, I haven't managed to find such mod. Should have an option to set the radio to "off", I prefer only turning on at will.

[Mysterdogg]

Courtesy of @Jack back in 2016:

Fixed*

{$CLEO}
0000: RAD
REPEAT
    wait 250
    UNTIL     0256: player $PLAYER_CHAR defined
     WHILE TRUE
         wait 0
             IF
              00DF:   actor $PLAYER_ACTOR driving
                  THEN
                          0A8D: 0@ = read_memory 0xB7341B size 1 virtual_protect 0
                                  0A8D: 1@ = read_memory 0xB7341C size 1 virtual_protect 0
                                          IF OR
                                                      0@ == 1
                                                                  1@ == 1
                                                                          THEN
                                                                                  2@ = 1
                                                                                          END
                                                                                                          IF
                                                                                                           2@ == 0
                                                                                                                   THEN
                                                                                                                               051E: 0@ = get_current_radio_station
                                                                                                                                           IF
                                                                                                                                            0@ <> 11
                                                                                                                                                        THEN
                                                                                                                                                                    041E: set_radio_station 11
                                                                                                                                                                                2@ = 1
                                                                                                                                                                                            END
                                                                                                                                                                                                    END
                                                                                                                                                                                                        ELSE
                                                                                                                                                                                                            2@ = 0
                                                                                                                                                                                                                END
                                                                                                                                                                                                                END

Alternative layout:

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 6.14.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP 

:NONAME_2
wait 250 
   Player.Defined($PLAYER_CHAR)
else_jump @NONAME_2 

:NONAME_19
wait 0 
if 
   Actor.Driving($PLAYER_ACTOR)
else_jump @NONAME_158 
0A8D: 0@ = read_memory 12006427 size 1 virtual_protect 0 
0A8D: 1@ = read_memory 12006428 size 1 virtual_protect 0 
if or
  0@ == 1 
  1@ == 1 
else_jump @NONAME_99 
2@ = 1 

:NONAME_99
if 
  2@ == 0 
else_jump @NONAME_151 
051E: 0@ = get_current_radio_station 
if 
   not 0@ == 11 
else_jump @NONAME_151 
041E: set_radio_station 11 
2@ = 1 

:NONAME_151
jump @NONAME_165 

:NONAME_158
2@ = 0 

:NONAME_165
jump @NONAME_19 

Sanny Builder required.

Edited May 6, 2020 by Mysterdogg

[muh linucs]

@Mysterdogg I installed Sanny Builder and receive "Condition expected." error when compiling. Could you tell how to compile the script?

[Mysterdogg]

Check again  fixed the source, little typing mistake