Клео /sendpic

[RusFatal]

Помогите найти исходник /sendpic ( взятие пикапа с расстояния ) как в собейте от Slonoboyko.

 

[itsLegend]

Более точнее это может сделать только Slonoboyko.

 

[RusFatal]

Более точнее это может сделать только Slonoboyko.

В паблике таких клео море, обычное взятие пикапа с расстояния 50 метров, но только все закрыты :С
Вот нашел один, но он не работает:

{$CLEO}
0000:

if 0@ = SAMP.Base()
then
      while not SAMP.Available()
          wait 500
      end
      0B34: samp register_client_command "sendpic" to_label @sendpic
else end_thread
end

const
      RPC_PICKEDUPPICKUP = 0x92
      UNRELIABLE_SEQUENCED = 1 
      PRIORITY_HIGH = 1
end

while true
wait 0
end

:sendpic

0B35: samp 2@ = get_last_command_params
if
0AD4: 2@ = scan_string 2@ "%d" 3@
then
0ab1: @pickup 1 3@  
end
0B43: samp cmd_ret

:pickup
1@ = Raknet.NewBitStream()
Raknet.Write(1@, 0@, BS_TYPE_INT, 4)
Raknet.RPC(RPC_PICKEDUPPICKUP, 1@, PRIORITY_HIGH, UNRELIABLE_SEQUENCED, 0, false)
Raknet.DeleteBitStream(1@)
0ab2: 0

 

[sаnеk]

poolrender by mgmoldova

 

[RusFatal]

poolrender by mgmoldova

Нужен именно исходник

 

[untеrmensch]

Я додик, у слонобойки ведь тоже не работает взятие пикапов, даже на том же адвансе

 

[DarkP1xel]

Если это не работает, то сервер ограничивает расстояние с которого можно подобрать пикап. Чтобы обойти нужно отправить фейк позицию на пикап, но на многих серверах с такой подменой кикает по причине телепорта.

{$CLEO}
0B34: samp register_client_command "SENDPIC" to_label @cmd_SENDPIC
0BDE: pause_thread 0

:cmd_SENDPIC
IF 0B35: samp 0@ = get_last_command_params
THEN 0C1A: 0@ = atoi 0@
    IF AND
    0029:   0@ >= 0
    8019:   NOT 0@ > {MAX_PICKUPS}4096
    THEN 0BD1: samp send_picked_up_pickup 0@
    END
END
0B43: samp cmd_ret

// By DarkP1xel

 

[RusFatal]

Если это не работает, то сервер ограничивает расстояние с которого можно подобрать пикап. Чтобы обойти нужно отправить фейк позицию на пикап, но на многих серверах с такой подменой кикает по причине телепорта.

Спойлер

{$CLEO}
0B34: samp register_client_command "SENDPIC" to_label @cmd_SENDPIC
0BDE: pause_thread 0

:cmd_SENDPIC
IF 0B35: samp 0@ = get_last_command_params
THEN 0C1A: 0@ = atoi 0@
    IF AND
    0029:   0@ >= 0
    8019:   NOT 0@ > {MAX_PICKUPS}4096
    THEN 0BD1: samp send_picked_up_pickup 0@
    END
END
0B43: samp cmd_ret

// By DarkP1xel

Не работает, нужно с синхрой

 

[sаnеk]

Не работает, нужно с синхрой

всё работает
http://radikal.ru/video/AAm4lLjxEo4

 

[RusFatal]

всё работает
http://radikal.ru/video/AAm4lLjxEo4

Скрипт-то рабочий, но работать будет только на нубо рп. На крупных проектах пока ты не подойдешь к пикапу, ты его не возьмешь. Обойти можно отправкой синхронизации о том, что находишься у пикапа и поднятием его.
P.S. Сам фейк синхронизацию пока писать не умею :(