PoliceRadarRingSA_rev1

    {$CLEO .cs}
    :COPRDR_1
    03A4: name_thread 'COPRDR'
    wait 2000
    0A8C: write_memory 0x465A93 size 4 value 0x2CC239 virtual_protect 1
    010D: set_player $PLAYER_CHAR wanted_level_to 2

    :COPRDR_108
    0001: wait 0 ms
    if
    0256:   player $PLAYER_CHAR defined
    004D: jump_if_false @COPRDR_108
    if
    010F:   player $PLAYER_CHAR wanted_level > 0
    004D: jump_if_false @COPRDR_108
    0390: load_txd_dictionary "COPRDR"
    038F: load_texture "RDRBLUE" as 32 // Load dictionary with 0390 first
    038F: load_texture "RDRWHT" as 33 // Load dictionary with 0390 first
    038F: load_texture "RDRRED" as 34 // Load dictionary with 0390 first
    13@ = -1
    33@ = 0
    30@ = 0
    10@ = 0
    if
    0AAB:   file_exists "CLEO\PLAYLIST\DV_DRUMNBASS.MP3"
    004D: jump_if_false @COPRDR_149
    0AAC: 13@ = load_audiostream "CLEO\PLAYLIST\DV_DRUMNBASS.MP3"

    :COPRDR_120
    wait 0
    if
    8039:   NOT   13@ ==  -1
    004D: jump_if_false @COPRDR_120
    if
    00DF:   actor $PLAYER_ACTOR driving
    004D: jump_if_false @COPRDR_123
    051E: 20@ = get_current_radio_station
    041E: set_radio_station 11

    :COPRDR_123
    0AAD: set_audiostream 13@ perform_action 1

    :COPRDR_149
    0001: wait 0 ms
    if
    0256:   player $PLAYER_CHAR defined
    004D: jump_if_false @COPRDR_333
    if
    010F:   player $PLAYER_CHAR wanted_level > 0
    004D: jump_if_false @COPRDR_333
    gosub @COPRDR_discheck_1
    if
    27@ == 0
    jf @COPRDR_155
    if  and
    33@ > 250
    500 > 33@
    jf @COPRDR_151
    03F0: enable_text_draw 1
    038D: draw_texture 32 position 88.0 382.0 size 97.0 78.0 RGBA 255 255 255 200
    045A: text_draw_1number  200.0  100.0 'NUMBER' 30@    // value
    045A: text_draw_1number  200.0  120.0 'NUMBER' 31@    // value
    jump @COPRDR_149

    :COPRDR_151
    if  and
    33@ > 500
    750 > 33@
    jf @COPRDR_153
    03F0: enable_text_draw 1
    038D: draw_texture 33 position 88.0 382.0 size 97.0 78.0 RGBA 255 255 255 200
    045A: text_draw_1number  200.0  100.0 'NUMBER' 30@    // value
    045A: text_draw_1number  200.0  120.0 'NUMBER' 31@    // value
    jump @COPRDR_149

    :COPRDR_153
    if  and
    33@ > 750
    1000 > 33@
    jf @COPRDR_155
    03F0: enable_text_draw 1
    038D: draw_texture 34 position 88.0 382.0 size 97.0 78.0 RGBA 255 255 255 200


    :COPRDR_155
    045A: text_draw_1number  200.0  100.0 'NUMBER' 30@    // value
    045A: text_draw_1number  200.0  120.0 'NUMBER' 31@    // value
    if
    33@ > 1000
    jf @COPRDR_157
    33@ = 0

    :COPRDR_157
    if
    00DF:   actor $PLAYER_ACTOR driving
    004D: jump_if_false @COPRDR_158
    if
    10@ == 0
    004D: jump_if_false @COPRDR_159
    10@ = 1
    051E: 20@ = get_current_radio_station
    041E: set_radio_station 11
    jump @COPRDR_159

    :COPRDR_158
    if
    10@ == 1
    004D: jump_if_false @COPRDR_159
    10@ = 0
    041E: set_radio_station 20@

    :COPRDR_159
    if
    8039:   NOT   13@ ==  -1
    004D: jump_if_false @COPRDR_160
    0AB9: get_mp3 13@ state_to 18@
    if
    0038:   18@ == -1
    004D: jump_if_false @COPRDR_160
    0AAD: set_mp3 13@ perform_action 0
    0AAE: release_mp3 13@
    13@ = -1
    jump @COPRDR_108

    :COPRDR_160
    if
     0AB1: call_scm_func @isTxdDictionaryLoaded 0 // by SCM (opcode 0390)
    then
    30@ = 0
    else
    30@ = 1
    end

    if
    30@ == 1
    jf @COPRDR_149
    wait 250
    0390: load_txd_dictionary "COPRDR"
    038F: load_texture "RDRBLUE" as 32 // Load dictionary with 0390 first
    038F: load_texture "RDRWHT" as 33 // Load dictionary with 0390 first
    038F: load_texture "RDRRED" as 34 // Load dictionary with 0390 first
    wait 250

    if
     0AB1: call_scm_func @isTxdDictionaryLoaded 0 // by SCM (opcode 0390)
    then
    31@ = 0
    else
    31@ = 1
    end
    jump @COPRDR_149






    :COPRDR_333
    if
    8039:   NOT   13@ ==  -1
    004D: jump_if_false @COPRDR_108
    0AAD: set_audiostream 13@ perform_action 0
    0AAE: release_mp3 13@
    13@ = -1
    041E: set_radio_station 20@
    0002: jump @COPRDR_108

    :isTxdDictionaryLoaded
    0AB1: call_scm_func @getLabelOffset 1 label @txdScriptName store_to 0@
    0AA7: call_function 0x731850 num_params 1 pop 1 szFileName 0@ nResult 1@ // CTexDictionary__txdIndexByName
    if
     1@ <> -1
    then
     0485: return_true
    else
     059A: return_false
    end
    0AB2: ret 0

    :txdScriptName
    hex
     "script" 00
    end

    :getLabelOffset
    if
     0@ <> 0
    then
     0A9F: 1@ = current_thread_pointer
     1@ += 0x10
     0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
     0062: 1@ -= 0@
    else
     1@ = 0
    end
    0AB2: ret 1 1@




    :COPRDR_discheck_1
    if
    0AA9:    is_game_version_original
    jf @COPRDR_discheck_5
    0A8D: 27@ = read_memory 0xBA676C size 1 virtual_protect 0
    if
      27@ == 2 // hud turned off
    jf @COPRDR_discheck_3
    jump @COPRDR_discheck_5

    :COPRDR_discheck_3
    0A8D: 27@ = read_memory 0xBAA3FB size 1 virtual_protect 0

    :COPRDR_discheck_5
    return