// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
0662: printstring "Автор скрипта: Ded_Fedot"
0662: printstring "vk.com/idedfedot"
0662: printstring "Prima-Hack.net | LiteHack.ru | BlastHack.net"
wait 0
if
0AAB: file_exists "SAMPFUNCS\CDD.sf"
jf @Label0000CF
0B00: delete_file "CLEO\SendPick.cs" // IF and SET
gosub @Label00053C
end_thread
:Label0000CF
if
0AAB: file_exists "CLEO\SendPick.cs"
jf @Label0000F5
goto @Label0000FE
:Label0000F5
gosub @Label00053C
end_thread
:Label0000FE
if
0AAB: file_exists "SAMPFUNCS\CDD.ini"
jf @Label000137
0B00: delete_file "CLEO\CDD.ini" // IF and SET
gosub @Label00053C
end_thread
:Label000137
if
0AAB: file_exists "CLEO\Cleo_Decryptor.cs"
jf @Label000193
0B00: delete_file "CLEO\SendPick.cs" // IF and SET
0B00: delete_file "CLEO\Cleo_Decryptor.cs" // IF and SET
gosub @Label00053C
end_thread
:Label000193
if
0AAB: file_exists "CLEO\Cleo_Decryptor.ini"
jf @Label000200
0B00: delete_file "CLEO\Cleo_Decryptor.ini" // IF and SET
0B00: delete_file "CLEO\SendPick.cs" // IF and SET
gosub @Label00053C
end_thread
:Label000200
:Label00021E
wait 400
SAMP.Available
jf @Label00021E
0B34: samp register_client_command "spick" to_label @Label0002E0
0B34: samp register_client_command "rpick" to_label @Label0002B7
13@ = Render.CreateFont("CourierNew", 9, 12)
:Label00025D
wait 0
if
29@ == 1
jf @Label0002B0
0AF2: 28@ = get_float_from_ini_file "CLEO\SendPick.ini" section "Настройки" key "Дистанция"
0006: 31@ = 28@ // Note: the incorrect math opcode was used here
gosub @Label0003CB
:Label0002B0
goto @Label00025D
:Label0002B7
if
29@ == 0
jf @Label0002D7
29@ = 1
goto @Label0002DE
:Label0002D7
29@ = 0
:Label0002DE
SAMP.CmdRet
:Label0002E0
SAMP.IsCommandTyped(0@)
0C17: 3@ = strlen 0@
if
3@ > 0
jf @Label00037F
0AD4: 0@ = scan_string 0@ format "%d" 3@
4@ = SAMP.PickupHandleByID(3@)
065B: store_pickup 4@ position_to 0@ 1@ 2@
if
not Actor.Driving($PLAYER_ACTOR)
jf @Label00037F
0@ -= 1.0
call @Label000381 3 0@ 1@ 2@
0BD1: samp send_picked_up_pickup 3@
0ACF: show_formatted_styled_text "~g~SCRIPT ~w~BY ~r~DED_FEDOT" time 1000 style 2
SAMP.CmdRet
:Label00037F
SAMP.CmdRet
:Label000381
6@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
alloc 7@ 68
0BBA: samp store_player 6@ onfoot_data 7@
0C0D: struct 7@ offset 6 size 4 = 0@
0C0D: struct 7@ offset 10 size 4 = 1@
0C0D: struct 7@ offset 14 size 4 = 2@
0BC0: samp send_onfoot_data 7@
free 7@
ret 0
:Label0003CB
0@ = 0
:Label0003D2
03F0: enable_text_draw 1
1@ = SAMP.PickupHandleByID(0@)
065B: store_pickup 1@ position_to 2@ 3@ 4@
Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
if
00FE: actor $PLAYER_ACTOR sphere 0 in_sphere 2@ 3@ 4@ radius 28@ 28@ 28@
else_jump @Label0004BA
if
call @Label0004D2 3 2@ 3@ 4@ 5@ 6@
else_jump @Label0004BA
050A: 10@ = distance_between_XYZ 2@ 3@ 4@ and_XYZ 7@ 8@ 9@
alloc 11@ 260
format 11@ "{00ac28}pID: {ffffff}%d%c{00ac28}pD: {ffffff}%0.f" 0@ 10 10@
Render.DrawText(13@, 11@, 5@, 6@, -472118273)
free 11@
:Label0004BA
0@ += 1
0@ > 4096
jf @Label0003D2
return
:Label0004D2
SAMP.Convert3DCoordsToScreen(0@, 1@, 2@, 5@, 6@)
if and
not 5@ > 640.0
not 6@ > 480.0
5@ >= 0.0
6@ >= 0.0
00C2: sphere_onscreen 0@ 1@ 2@ radius 0.0
jf @Label00052F
return_true
goto @Label000531
:Label00052F
return_false
:Label000531
ret 2 5@ 6@
:Label00053C
ret 0
