Resource icon

Untagged Release [RELEASE]Pickup finder

Status
Not open for further replies.

Krc

Active member
Joined
Mar 30, 2018
Messages
193
Reaction score
25
Location
Lithuania
Howto search by model id? Steps please.
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@
 

Unimax

New member
Joined
Mar 30, 2020
Messages
2
Reaction score
0
Location
Algeria
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@

Can you send me file, please? I'm bad at scripting :)
 

Akiii

Member
Joined
Aug 26, 2017
Messages
5
Reaction score
1
It asks me for a password of the PickupV1.1.rar, if someone can tell me what is the pass i would be thankful
 

Devilhu4435d

New member
Joined
Feb 2, 2022
Messages
1
Reaction score
0
Location
Nasa
Bro I am searching for pickup id 169, I cant spec it or anything with it untill its in my range
Any idea how i can spec it without going in range ?
 
Status
Not open for further replies.
Top