{$CLEO}
0000:

if not 0@ = Samp.Base()
then 0A93:
end

repeat
    wait 400
until Samp.Available()

0B6D: render 0@ = create_font "Segoe UI" height 12 flags 13
0B34: samp register_client_command "ppo" to_label @activ

0AC8: 1@ = allocate_memory_size 260
0AC8: 9@ = allocate_memory_size 1260
0AC8: 19@ = allocate_memory_size 1260
0AC8: 26@ = allocate_memory_size 260

WHILE TRUE
Wait 0 ms
if 25@ == 1
THEN
3@ = 0 // Люди
4@ = 0 // Зомби
6@ = 0
5@ = 0 // Бандиты
17@ = 0
21@ = 0
22@ = 0
23@ = 0
18@ = 0
FOR 1@ = 0 to 1001
  IF 0B23:  samp is_player_connected 1@
  THEN
  0B20: samp 2@ = actor_handle_by_samp_player_id 1@
   IF 056D:   actor 2@ defined
   THEN
    IF 0B64:  samp is_player 1@ npc
    THEN
     IF OR
     02F2: actor 2@ model == 95
     02F2: actor 2@ model == 146
     02F2: actor 2@ model == 60
     02F2: actor 2@ model == 149
     THEN
      IF 82F2: actor 2@ model == 122
      THEN
      4@ += 1
    00A0: store_actor $Player_Actor position_to 10@ 11@ 12@
    00A0: store_actor 2@ position_to 13@ 14@ 15@
    050A: 16@ = distance_between_XYZ 13@ 14@ 15@ and_XYZ 10@ 11@ 12@
    if 8029: 16@ <= 100.0
    then
    22@ = 1
    6@ += 1
    end
      END
     END
     
     IF OR
     02F2: actor 2@ model == 29
     02F2: actor 2@ model == 23
     THEN
      IF 82F2: actor 2@ model == 122
      THEN
      5@ += 1
    00A0: store_actor $Player_Actor position_to 10@ 11@ 12@
    00A0: store_actor 2@ position_to 13@ 14@ 15@
    050A: 16@ = distance_between_XYZ 13@ 14@ 15@ and_XYZ 10@ 11@ 12@
    if 8029: 16@ <= 100.0
    then
    21@ = 1
    17@ += 1
    end
      END
     END
    ELSE
    3@ += 1
    00A0: store_actor $Player_Actor position_to 10@ 11@ 12@
    00A0: store_actor 2@ position_to 13@ 14@ 15@
    050A: 16@ = distance_between_XYZ 13@ 14@ 15@ and_XYZ 10@ 11@ 12@
    if 8029: 16@ <= 100.0
    then
    23@ = 1
    18@ += 1
    end
    END
   END
  END
END
  0B60: convert_game_screen_coords 1077143939 1134338048 to_window_screen_coords 27@ 28@
if 23@ == 1
then
0AD3: 9@ = format "Игроки: %d {ff0606}(%d){FFFFFF}%c" 3@ 18@ 10
else
0AD3: 9@ = format "Игроки: %d%c" 3@ 10
end
if 22@ == 1
then
0AD3: 19@ = format "Зомби: %d {ff0606}(%d){FFFFFF}%c" 4@ 6@ 10
else
0AD3: 19@ = format "Зомби: %d%c" 4@ 10
end
if 21@ == 1
then
0AD3: 26@ = format "RIA: %d {ff0606}(%d){FFFFFF}" 5@ 17@
else
0AD3: 26@ = format "RIA: %d" 5@
end
0C15: strcat destination 9@ source 19@
0C15: strcat destination 9@ source 26@
0B6F: render font 0@ draw_text 9@ pos 27@ 28@ color -1
END
    if 0ADC:   test_cheat "PPO"
    then
    0B12: 25@ = 25@ XOR 1
    end

END

:activ
0B12: 25@ = 25@ XOR 1
cmdret

0AC9: free_allocated_memory 1@
0AC9: free_allocated_memory 9@  
0AC9: free_allocated_memory 19@
0AC9: free_allocated_memory 26@