Howto search by model id? Steps please.
for 1@ = 0 to 4096
If
0B51: samp 2@ = pickup_handle_by_id 1@
Then
call @GetPickupModelbySampID 1 1@ ret 14@
:GetPickupModelbySampID
0BB9: samp 10@ = get_pickup_pool_ptr
0@ *= 20
0@ += 61444
005A: 10@ += 0@
0A8D: 10@ = read_memory 10@ size 4 virtual_protect 0
ret 1 10@
{$CLEO .cs}
0000: NOP
REPEAT
Wait 0
Until 0AFA: is_samp_structures_available
0B34: "pic" @TEST
0@ = FALSE
0B6D: render 13@ = create_font "Arial" height 10 flags 0x1
While True
Wait 0
If
0@ == TRUE
Then
for 1@ = 0 to 4096
If
0B51: samp 2@ = pickup_handle_by_id 1@
Then
call @GetPickupModelbySampID 1 1@ ret 14@
065B: store_pickup 2@ position_to 3@ 4@ 5@
00A0: store_actor $PLAYER_ACTOR position_to 6@ 7@ 8@
050A: 9@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 6@ 7@ 8@
0B55: convert_3D_coords 3@ 4@ 5@ to_screen 10@ 11@
alloc 12@ 16
format 12@ "{FFFFFF}%d {F0FF0F}%.1f" 14@ 9@
0B6F: render font 13@ draw_text 12@ pos 10@ 11@ color 0xFFFFFFFF
end
end
end
END
:TEST
0B12: 0@ = 0@ XOR TRUE
If
0@ == TRUE
Then
chatmsg "TEST: ON" -1
else
chatmsg "TEST: OFF" -1
end
CmdRet
:GetPickupModelbySampID
0BB9: samp 10@ = get_pickup_pool_ptr
0@ *= 20
0@ += 61444
005A: 10@ += 0@
0A8D: 10@ = read_memory 10@ size 4 virtual_protect 0
ret 1 10@
Code:for 1@ = 0 to 4096 If 0B51: samp 2@ = pickup_handle_by_id 1@ Then call @GetPickupModelbySampID 1 1@ ret 14@ :GetPickupModelbySampID 0BB9: samp 10@ = get_pickup_pool_ptr 0@ *= 20 0@ += 61444 005A: 10@ += 0@ 0A8D: 10@ = read_memory 10@ size 4 virtual_protect 0 ret 1 10@
Try it
Code:{$CLEO .cs} 0000: NOP REPEAT Wait 0 Until 0AFA: is_samp_structures_available 0B34: "pic" @TEST 0@ = FALSE 0B6D: render 13@ = create_font "Arial" height 10 flags 0x1 While True Wait 0 If 0@ == TRUE Then for 1@ = 0 to 4096 If 0B51: samp 2@ = pickup_handle_by_id 1@ Then call @GetPickupModelbySampID 1 1@ ret 14@ 065B: store_pickup 2@ position_to 3@ 4@ 5@ 00A0: store_actor $PLAYER_ACTOR position_to 6@ 7@ 8@ 050A: 9@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 6@ 7@ 8@ 0B55: convert_3D_coords 3@ 4@ 5@ to_screen 10@ 11@ alloc 12@ 16 format 12@ "{FFFFFF}%d {F0FF0F}%.1f" 14@ 9@ 0B6F: render font 13@ draw_text 12@ pos 10@ 11@ color 0xFFFFFFFF end end end END :TEST 0B12: 0@ = 0@ XOR TRUE If 0@ == TRUE Then chatmsg "TEST: ON" -1 else chatmsg "TEST: OFF" -1 end CmdRet :GetPickupModelbySampID 0BB9: samp 10@ = get_pickup_pool_ptr 0@ *= 20 0@ += 61444 005A: 10@ += 0@ 0A8D: 10@ = read_memory 10@ size 4 virtual_protect 0 ret 1 10@
/pic on/offCan you send me file, please? I'm bad at scripting
ugbase.euIt asks me for a password of the PickupV1.1.rar, if someone can tell me what is the pass i would be thankful
Thank you very much.ugbase.eu