CLEO Анти-угонщик

[gcode]

Сами знаете, как напрягает, когда ваш автобус или не закрытое авто пытаются угнать. Приходится ждать другой автобус, делать релог или платный респаун автомобиля. Этот скрипт поможет вам предотвратить такие ситуации. Если вас выкинут из авто, или вы отошли до банкомата, а машину кто-то пытается угнать, то в чате появится предупреждающая надпись, и у вас будет возможность моментально вернуться в транспорт. В архиве скомпилированный скрипт и исходный код.

Исходный код:

{$CLEO .cs}
0662: NOP "CLEO : Anti Theft"
0662: NOP "Blasthack.net : gcode : 2013"
thread "antitheft"
 
if
    8AF7: get_samp_base_to 33@
then
    0A93: end_custom_thread
end
repeat
    wait 400
until 0AFA: is_samp_structures_available
 
:antitheft
wait 0
if and
    Player.Defined($PLAYER_CHAR)
    Actor.Driving($PLAYER_ACTOR)
else_jump @antitheft
0AB1: call_scm_func @waiter 1 3000
30@ = Actor.Car($PLAYER_ACTOR)
:antitheft2
wait 0
if and
    not Actor.Driving($PLAYER_ACTOR)
    not Actor.Dead($PLAYER_ACTOR)
else_jump @antitheft2
:antitheft3
wait 0
if
    Car.Defined(30@)
else_jump @antitheft
046C: 29@ = car 30@ driver
if
    Actor.Defined(29@)
else_jump @antitheft3
if
    not Actor.InCar($PLAYER_ACTOR, 30@)
else_jump @antitheft
0AF8: samp add_message_to_chat "Обнаружена попытка угона! %cEAEAEA%cВернуться в транспорт? %c8cbe35%cY %cEAEAEA%c- да %cbe3535%cN %cEAEAEA%c- нет" 0xff0000 123 125 123 125 123 125 123 125 123 125
:antitheft4
wait 0
if
    0AB0:  key_pressed 89
else_jump @antitheft5
if and
    Car.Defined(30@)
    not Actor.Dead($PLAYER_ACTOR)
    not Actor.Driving($PLAYER_ACTOR)
then
    0B2C: samp 28@ = get_vehicle_id_by_car_handle 30@
    0B30: samp send_enter_vehicle 28@ as_passenger false
    wait 200
    072A: task_warp_char_into_car_as_driver $PLAYER_ACTOR car 30@
else
    0AF8: samp add_message_to_chat "[AntiTheft]: %cEAEAEA%cМашина находится вне зоны прорисовки." 0xc3d73e 123 125
end   
jump @antitheft
:antitheft5
wait 0
if
    0AB0:  key_pressed 78
else_jump @antitheft4
jump @antitheft
 
:waiter
wait 0
0@ /= 100
for 1@ = 0 to 0@
if and
    Player.Defined($PLAYER_CHAR)
    Actor.Driving($PLAYER_ACTOR)
else_jump @antitheft
wait 100
end
0AB2: ret 0

Проверь(те):

1. SAMP R1 (не R1-2). Скачать можно отсюда: http://blasthack.net/data/samp/sa-mp-0.3x-R1-install.exe
2. CLEO 4.1. Скачать можно отсюда:http://cleo.sannybuilder.com/cleo4/CLEO4_setup.exe
3. SAMPFUNCS 2.4 или новее. Скачать можно отсюда:http://blasthack.net/threads/cleo-plugin-sampfuncs.17/

 

[Silenthacker]

Почему когда я сменил текст в исходнике "Ваше авто угоняют", мне выдает ошибку при компилировании? "Неизвестная команда Car.Defined(0@)"

 

[NeviL]

ты все больше и больше у удивляешь с клео супер продолжай :D

 

[mauvais_ton]

оно античитом на кархак не палится?

 

[gcode]

Мини-update скрипта, теперь должен работать точнее.

оно античитом на кархак не палится?

Не должно.

 

[mauvais_ton]

Полезная штука. Пригодится. Молодец))

 

[Антохаууу132145365]

Если нажимаешь " Да " происходит TP ?

 

[gcode]

Если нажимаешь " Да " происходит TP ?

Если нажимаешь да, то серверу отправляется пакет о том что ты открываешь дверь машины, а потом тебя телепортирует за руль, а того чувака выкидывает из тачки.

 

[querta]

а, если машина далеко? ТП на дальние расстояния получается?

 

[gcode]

а, если машина далеко? ТП на дальние расстояния получается?

else
    0AF8: samp add_message_to_chat "[AntiTheft]: %cEAEAEA%cМашина находится вне зоны прорисовки." 0xc3d73e 123 125
end

 

[Joker333]

Нормуль.. Тп не рискую а вот /fixcar прописать успеваю :D

 

[Starter]

Отличный клео.

 

[prostoi9901]

есть мелкие баги:
1. Если сидишь в байке и его отработали, сообщение не появляется, 0 действий
2. Если ты сидишь на пассажирском сидении, а потом выходишь, выходит сообщение что "обнаружена попытка...", после жмёшь Y, и тебя кикает (Samp-rp)
3. Если ты вышел из машины, и уже за 3 пи*** от машины, и если нажмёшь Y, то телепортирует в тачку и кикнет ( Samp-rp)
4. Когда пишешь в чат и если нажать на Y то телепортирует в тачку