PoliceRadarRingSA

{$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
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
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
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)
jf @COPRDR_165
30@ = 1
jump @COPRDR_149

:COPRDR_165
if
30@ == 1
jf @COPRDR_149
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
30@ = 0
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