PoliceRadarBlips

{$CLEO .cs}
:COP_RandomActor_RAFSTEP2_ckeck_modl_id
wait 1000
thread 'COPMARK'
26@ = 1

:COPMARK_11
wait 0
if
   Player.Defined($PLAYER_CHAR)
jf @COPMARK_11
077E: get_active_interior_to 12@
if
0039:   12@ ==  0 // integer values
jf @COPMARK_11
if
26@ == 0
jf @COPMARK_21
26@ = 1
jump @COPMARK_23

:COPMARK_21
if
26@ == 1
jf @COPMARK_23
26@ = 0

:COPMARK_23
13@ = -1
14@ = -1
15@ = -1
16@ = -1
17@ = -1
18@ = -1
19@ = -1
20@ = -1
21@ = -1
22@ = -1
23@ = -1
24@ = -1
if
010F:   player $PLAYER_CHAR wanted_level > 0
jf @COPMARK_25
gosub @COPMARK_141
wait 300
gosub @COPMARK_368
jump @COPMARK_11

:COPMARK_25
26@ = 1
gosub @COPMARK_141
wait 2000
gosub @COPMARK_368
jump @COPMARK_11






:COPMARK_141
31@ = 0
27@ = 0

:COPMARK_155
0085: 30@ = 31@ // (int)
29@ = 0

:COPMARK_170
if and
   Actor.Defined(30@)
803C:   not  $PLAYER_ACTOR == 30@ // (int)
8118:   not actor 30@ dead
jf @COPMARK_302
if  and
056C:   actor 30@ driving_police_car
84C8:   NOT   actor 30@ driving_flying_vehicle
jf @COPMARK_171
jump @COPMARK_172

:COPMARK_171
if
044B:   actor 30@ on_foot
jf @COPMARK_302
089F: get_actor 30@ pedtype_to 12@
if
  12@ == 6
jf @COPMARK_302


:COPMARK_172
0085: 0@(27@,12i) = 30@ // (int)
13@(27@,12i) = Marker.CreateAboveActor(0@(27@,12i))
07E0: set_marker 13@(27@,12i) type_to 26@
018B: set_marker 13@(27@,12i) radar_mode 2
jump @COPMARK_288

:COPMARK_288
27@ += 1
jump @COPMARK_330

:COPMARK_302
30@ += 1
29@ += 1
  29@ > 127
jf @COPMARK_170

:COPMARK_330
31@ += 256
if or
  27@ > 10
  31@ > 35584
jf @COPMARK_155
return

:COPMARK_368
27@ = 0

:COPMARK_375
wait 0
if
  11 > 27@
jf @COPMARK_451
if
   not 13@(27@,12i) == -1
jf @COPMARK_428
Marker.Disable(13@(27@,12i))
Actor.RemoveReferences(0@(27@,12i))

:COPMARK_428
//Actor.RemoveReferences(0@(27@,12i))
27@ += 1
jump @COPMARK_375

:COPMARK_451
return