[SA:MP] Как быстро найти всё подарки

[EvilAkaZloy]

Всем привет выкладываю код клео скрипта. Для быстрого финда подарков

Спойлер: 1

{$CLEO}
0000:

REPEAT
0001: 0
UNTIL 0AFA:
0BB9: samp 0@ = get_pickup_pool_ptr
alloc 31@ 256
20@ = Render.CreateFont("arial", 10, 12)
WHILE TRUE
0001: 0

FOR 1@ = 0 TO {MAX_PICKUPS}4096 [STEP = 1]
IF 0B51: samp 2@ = pickup_handle_by_id 1@
THEN
0A90: 2@ = 1@ * 20
000A: 2@ += 61444
000A: 2@ += 0@ // stPickup
0A8D: 3@ = read_memory 2@ size 4 virtual_protect TRUE // iModelID
IF and
3@ >= 19054
3@ <= 19058
THEN
0C0C: 3@ = struct 2@ offset 8 size 4 // X
0C0C: 4@ = struct 2@ offset 12 size 4 // Y
0C0C: 5@ = struct 2@ offset 16 size 4 // Z
IF 00C2: sphere_onscreen 3@ 4@ 5@ radius 5.0
THEN
00A0: store_actor $PLAYER_ACTOR position_to 15@ 16@ 17@
050A: 21@ = distance_between_XYZ 15@ 16@ 17@ and_XYZ 3@ 4@ 5@
0B55: convert_3D_coords 3@ 4@ 5@ to_screen 3@ 4@
00A0: store_actor $PLAYER_ACTOR position_to 5@ 6@ 7@
0B55: convert_3D_coords 5@ 6@ 7@ to_screen 5@ 6@

0B68: render draw_line_point1 5@ 6@ point2 3@ 4@ width 1 color 0xFFFFA500
03F0: enable_text_draw 1 // ????? ?????, ????? ????? ?? ??????, ??? ????? ????????? ? ???? ????????.
// 0B5A: get_screen_resolution 20@ 21@ // ???????? ?????????? ??????.
//0B6F: render font 12@ draw_text "GodFatherProject" pos 3@ 4@ color 0xFFFF3300 // ????????? ??????
0092: 21@ = float 21@ to_integer
format 31@ "distance: %i m" 21@
Render.DrawText(20@, 31@, 3@, 4@, -1)
END
END
END
END

END