PHP:
:copcmd_main
WAIT 0
IF 31@ == 1
THEN
FOR 0@ = 0 to 999
IF SAMP.IsPlayerConnected(0@)
THEN
IF 1@ = SAMP.GetActorHandleByPlayerID(0@)
THEN
16@ = SAMP.GetPlayerColor(0@)
IF 16@ == COLOR
THEN
IF
056D: actor 1@ defined
THEN 0AF9: samp say_msg "/find %d" 0@
0AF9: samp say_msg "/mdc %d" 0@
WAIT 1000
13@ += 1
END
END
END
END
END
IF 14@ == 0
then
wait 0
else
chatmsg "[CopCMD]: {FF8000}Have found %d wanted players." -1 13@
13@ = 0
end
31@ = 0
END
FOR 22@ = 0 to 999
IF SAMP.IsPlayerConnected(22@)
THEN
IF 1@ = SAMP.GetActorHandleByPlayerID(22@)
THEN
16@ = SAMP.GetPlayerColor(22@)
IF 16@ == COLOR
THEN
23@ += 1
END
END
END
END
if 4@ == 1
then
if 23@ == 0
then
03F0: enable_text_draw 1
format 24@ "Wanted Players: %d" 23@
0AA8: call_function_method 6946896 struct 12694336 num_params 1 pop 0 'CRED002' 17@
0AA5: call 7439872 num_params 2 pop 2 17@ 24@
033F: set_text_draw_letter_size 0.33 1.2
081C: draw_text_outline 1 RGBA 0 0 0 255
0340: set_text_draw_RGBA 255 255 255 255
0349: set_text_draw_font 1
03E4: set_text_draw_align_right 1
033E: set_draw_text_position 375.0 430.0 GXT 'CRED002'
23@ = 0
else
03F0: enable_text_draw 1
format 24@ "Wanted Players: %d" 23@
0AA8: call_function_method 6946896 struct 12694336 num_params 1 pop 0 'CRED002' 17@
0AA5: call 7439872 num_params 2 pop 2 17@ 24@
033F: set_text_draw_letter_size 0.33 1.2
081C: draw_text_outline 1 RGBA 0 0 0 255
0340: set_text_draw_RGBA 227 51 109 255
0349: set_text_draw_font 1
03E4: set_text_draw_align_right 1
033E: set_draw_text_position 375.0 430.0 GXT 'CRED002'
23@ = 0
end
end
if key_down 75
then
if 0B21: samp is_chat_opened
then
jump @copcmd_main
else
if 8@ == 0
then
8@ = 1
0AF9: samp say_msg "/so %s" 5@
end
end
else
if 8@ == 2
then
0000:
else
8@ = 0
end
end
if key_down 113
then
if 8@ == 0
then
8@ = 2
jump @cmd_repref
end
else
if 8@ == 1
then
0000:
else
8@ = 0
end
end
if 0B21: samp is_chat_opened
then
jump @copcmd_main
else
if key_down 71
then
01B9: set_actor $PLAYER_ACTOR armed_weapon_to 31
end
end
jump @copcmd_main
:cmd_repref
0007: 12@ = 10.0
11@ = -1
Actor.StorePos($PLAYER_ACTOR, 27@, 26@, 25@)
FOR 0@ = 0 to 999
IF SAMP.IsPlayerConnected(0@)
THEN
IF 1@ = SAMP.GetActorHandleByPlayerID(0@)
THEN
IF Actor.Driving(1@)
THEN
2@ = Actor.CurrentCar(1@)
046C: 20@ = car 2@ driver
IF 003B: 20@ == 1@
THEN
Actor.StorePos(1@, 30@, 29@, 28@)
050A: 16@ = distance_between_XYZ 27@ 26@ 25@ and_XYZ 30@ 29@ 28@
IF 0025: 16@ > 12@
THEN
16@ = 0
ELSE
0087: 12@ = 16@
0085: 11@ = 0@
END
END
END
END
END
END
IF 0039: 11@ == -1
THEN
0085: 1@ = 1@
ELSE
0AF9: samp say_msg "/repair %d 1" 11@
END
11@ = -1
Actor.StorePos($PLAYER_ACTOR, 27@, 26@, 25@)
FOR 0@ = 0 to 999
IF SAMP.IsPlayerConnected(0@)
THEN
IF 1@ = SAMP.GetActorHandleByPlayerID(0@)
THEN
IF Actor.Driving(1@)
THEN
2@ = Actor.CurrentCar(1@)
046C: 20@ = car 2@ driver
IF 003B: 20@ == 1@
THEN
Actor.StorePos(1@, 30@, 29@, 28@)
050A: 16@ = distance_between_XYZ 27@ 26@ 25@ and_XYZ 30@ 29@ 28@
IF 0025: 16@ > 12@
THEN
16@ = 0
ELSE
0087: 12@ = 16@
0085: 11@ = 0@
END
END
END
END
END
END
IF 0039: 11@ == -1
THEN
0085: 1@ = 1@
ELSE
0AF9: samp say_msg "/refill %d 1" 11@
END
jump @copcmd_main