Не могу компилировать, никак не получается, кто может помочь? Пожалуйста,вот код:
CLEO:
{$CLEO}
{$INCLUDE SF}
0001: wait 0 ms
0662: "by legend2360"
0662: "BlastHack - cheating is art"
while not SAMP.Available()
wait 400
end
0BE3: raknet setup_incoming_rpc_hook @incoming_rpc
pause_thread 0
:incoming_rpc
0BE5: raknet 0@ = get_hook_param PARAM_PACKETID
if 0@ == RPC_SCRCLIENTMESSAGE
then
0BE5: raknet 1@ = get_hook_param PARAM_BITSTREAM
0BEB: raknet bit_stream 1@ ignore_bits 32 // color
0BE7: raknet 2@ = bit_stream_read 1@ type BS_TYPE_INT // msg len
call @_allocate_memory 1 size 2@ ret_to 3@
0BE8: raknet bit_stream 1@ read_array 3@ size 2@
// {E3BE88}Ìàòåìàòèêà: {3399CC}9457 {299800}ïðèáàâèòü {3399CC}169 {FFFFFF}= {FF3300}??? {FFFFFF}| (Ïðèç çà ïðàâèëüíûé îòâåò: +1exp, +5000$)
if 0C25: strncmp string1 3@ string2 "{E3BE88}Ìàòåìàòèêà:" size 19
then
0A8E: 4@ = 3@ + 20 //
// 3@ - string; 4@ - string without "{E3BE88}Ìàòåìàòèêà: "; 5@ - digit 1; 6@ - operation; 7@ - digit 2
call @_allocate_memory 1 size 32 ret_to 6@
0AA7: call 0x8220AD num_params 5 pop 5 params 7@v 6@ 5@v "{3399CC}%d {299800}%s {3399CC}%d" 4@ result_to 8@ // sscanf(4@, "{3399CC}%d {299800}%s {3399CC}%d", 5@v, 6@, 7@v)
if 8@ == 3
then
if 0C14: strcmp string1 6@ string2 "ïðèáàâèòü"
then
0A8E: 9@ = 5@ + 7@
chat "Result: %d + %d = %d" -1 5@ 7@ 9@
else
if 0C14: strcmp string1 6@ string2 "ìèíóñ"
then
0A8F: 9@ = 5@ - 7@
chat "Result: %d - %d = %d" -1 5@ 7@ 9@
else
0A90: 9@ = 5@ * 7@
chat "Result: %d * %d = %d" -1 5@ 7@ 9@
end
end
end
free 6@
end
free 3@
end
0BE0: raknet hook_ret true
:_allocate_memory
// call @_allocate_memory 1 size 0@ ret_to 1@
0@++
alloc 1@ 0@
0C11: memset destination 1@ value 0 size 0@
ret 1 1@
Последнее редактирование модератором: