не компилируется скрипт деда

khbkjbk

Известный
Автор темы
69
2
// 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"
call @Label000AFB 1 -113
call @Label00095F 1 -128
hex
FE FF FB FF 4E F5 FE F0
end

hex
FB FE FE 92 00 00 00 FF 29 FF FB FF 54 F5 F1 EF
AC BE B2 AF B9 AA B1 BC AC A3 BC BB BB D1 8C 99
B2 FF FE CE 00 00 00 FF F4 F1 EF BC B3 BA B0 A3
AC 9A 91 9B AF 96 9C 94 D1 9C 8C AF FF FE 3B 05
00 00 B1 FF 29 FF FB FF 54 F5 F1 EF BC B3 BA B0
A3 AC 9A 91 9B AF 96 9C 94 D1 9C 8C B2 FF FE F4
00 00 00 FD FF FE FD 00 00 00 AF FF FE 3B
end

hex
B1 FF 29 FF FB FF 54 F5 F1 EE AC BE B2 AF B9 AA
B1 BC AC A3 BC BB BB D1 96 91 96 B2 FF FE 36 01
00 00 FF F4 F1 F3 BC B3 BA B0 A3 BC BB BB D1 96
91 96 AF FF FE 3B
end

hex
B1 FF 29 FF FB FF 54 F5 F1 E9 BC B3 BA B0 A3 BC
93 9A 90 A0 BB 9A 9C 8D 86 8F 8B 90 8D D1 9C 8C
B2 FF FE 92
end
wait
hex
FF F4 F1 EF BC B3 BA B0 A3 AC 9A 91 9B AF 96 9C
94 D1 9C 8C FF F4 F1 E9 BC B3 BA B0 A3 BC 93 9A
90 A0 BB 9A 9C 8D 86 8F 8B 90 8D D1 9C 8C AF FF
FE 3B
end

hex
B1 FF 29 FF FB FF 54 F5 F1 E8 BC B3 BA B0 A3 BC
93 9A 90 A0 BB 9A 9C 8D 86 8F 8B 90 8D D1 96 91
96 B2 FF FE FF 01 00 00 FF F4 F1 E8 BC B3 BA B0
A3 BC 93 9A 90 A0 BB 9A 9C 8D 86 8F 8B 90 8D D1
96 91 96 FF F4 F1 EF BC B3 BA B0 A3 AC 9A 91 9B
AF 96 9C 94 D1 9C 8C AF FF FE 3B 05 00 00 B1 FF
4E F5 FE F0
end

hex
FB FE FE 92 00 00 00 FF
end
call @Label00095F 1 -128
call @Label00055F 1 -542

: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@
jf @Label0004BA
if
call @Label0004D2 3 2@ 3@ 4@ 5@ 6@
jf @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@
ret 0
call @Label00055F 1 -542
call @Label000AFB 1 -113

:Label00055F
почему не компилируется?
1629713576753.png