Вопросы по CLEO-скриптингу

SR_team · 26 Сен 2014

АндрейЧотак написал(а):
Как проверить что кикнуло меня или нет?

по строке в чате

itsLegend · 26 Сен 2014

АндрейЧотак написал(а):
Как проверить что кикнуло меня или нет?

Есть способ с помощью отслеживания пакета ID_DISCONNECTION_NOTIFICATION(0x21), но, я думаю, ты не сможешь его осуществить.
Поэтому - чекай последнюю строку чата.

SR_team · 26 Сен 2014

legend2360 написал(а):
Есть способ с помощью отслеживания пакета ID_DISCONNECTION_NOTIFICATION(0x21), но, я думаю, ты не сможешь его осуществить.
Поэтому - чекай последнюю строку чата.

его можно занопить :D

Pon4ik · 26 Сен 2014

Будьте добры помогите : выдает ошибку

Неизвестная команда msg "{FF0000} [Luccize] %s %s[%d]: {EAEAEA}%s {FF0000}**" 0xFFFF00 13@ 1@ 0@ 22@.

Что делать?

Строка 3 :

HTML:

0B2B: samp 0@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B36: samp 1@ = get_player_nickname 0@
msg "{FF0000} [Luccize] %s %s[%d]: {EAEAEA}%s {FF0000}**" 0xFFFF00 13@ 1@ 0@ 22@
0AC9: free_allocated_memory 13@
for 0@ = 0 to 1000

iAmerican · 27 Сен 2014

Pon4ik написал(а):
Будьте добры помогите : выдает ошибку

Неизвестная команда msg "{FF0000} [Luccize] %s %s[%d]: {EAEAEA}%s {FF0000}**" 0xFFFF00 13@ 1@ 0@ 22@.

Что делать?

Строка 3 :

HTML:

0B2B: samp 0@ = get_player_id_by_actor_handle $PLAYER_ACTOR 0B36: samp 1@ = get_player_nickname 0@ 0af8: "{FF0000} [Luccize] %s %s[%d]: {EAEAEA}%s {FF0000}**" 0xFFFF00 13@ 1@ 0@ 22@ 0AC9: free_allocated_memory 13@ for 0@ = 0 to 1000

Nice_mans · 27 Сен 2014

Помогите скомпилировать скрипт, он не мой я взял его за основу и изменил координаты.

Код:

{$CLEO .cs}
0000: NOP "Made by Axwell"
thread 'TCLEO'
 
const
x_1 = 634.88 // (Добыча)
y_1 = 827.19 // (Добыча)
x_2 = 622.14 // (поворот)
y_2 = 827.07 // (поворот)
x_3 = 614.68 // (сдача)
y_3 = 875.73 // (сдача)
x_4 = 606.79 // Поворот на сбор ЗП
y_4 = 833.98 // Поворот на сбор ЗП
x_5 = 473.84 // Поворот на сбор ЗП 2
y_5 = 878.13 // Поворот на сбор ЗП 2
x_6 = 873.08 // Пикап
y_6 = 882.10 // Пикап
end
 
{
0@ = Дистанция от игрока до позиции
1@ = PlayerID
2@ = AnimationID
3@ = кол-во руды
10@ = Выполняемый блок
0 = скрипт выключен
1 = Бег к руде
2 = Бег на поворот
3 = Бег на здачу
4 = Бег на поворот
5 = бег на поворот сбор ЗП
6 = Бег на поворот сбор ЗП 2
7 = Бег к пикапу сбора ЗП 
}
 
repeat
wait 0
until Samp.Available()
0AF8: samp add_message_to_chat "Бот шахтер удачно загружен!" color 0xFFFFFF
0AF8: samp add_message_to_chat "Автор: Axwell. Специально для cheat-master.ru" color 0xFFFFFF
0B34: samp register_client_command "bot" to_label @bot
0B34: samp register_client_command "test" to_label @test
10@ = 0
 
:repeat
while true
wait 0
 
    // БЕГ НА ДОБЫЧУ
   
    if 10@ == 1 // Бег на добычу
    then
    0AB1: call_scm_func @set_angle 2 x_1 y_1
    0AB1: call_scm_func @get_distance 2 x_1 y_1 0@
   
    // ПЕРВЫЙ БЛОК
   
    while true // Если расстояние до чекпоинта больше 8
    if or
    10@ == 0
    0@ < 8.0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_1 y_1
    0AB1: call_scm_func @get_distance 2 x_1 y_1 0@
    32@ = 0
       
    repeat // Бежим 1 сек
    wait 0
    0AB1: call_scm_func @set_angle 2 x_1 y_1
    0AB1: call_scm_func @get_distance 2 x_1 y_1 0@
    //=======
    if or
    10@ == 0
    0@ < 8.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 700// Бежим 1 сек
   
    0AB1: call_scm_func @set_angle 2 x_1 y_1
    //=====
    if or
    10@ == 0
    0@ < 8.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    //=====
    if or
    10@ == 0
    0@ < 8.0
    then
    break
    end
    //=====
    wait 400
    end
   
    // ВТОРОЙ БЛОК
       
    while true
    //======
    if or
    10@ == 0
    0@ < 2.0
    then
    break
    end
    //======
    0AB1: call_scm_func @set_angle 2 x_1 y_1
    0AB1: call_scm_func @get_distance 2 x_1 y_1 0@
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    //======
    if or
    10@ == 0
    0@ < 2.0
    then
    break
    end
    //======
    wait 0
    end
   
    // ТРЕТИЙ БОЛОК
         
    repeat // Ждем добычу
    wait 100
    2@ = SAMP.PlayerAnimationID(1@)
    if SAMP.IsDialogActive(0) // Если нарушили технологию
    then
    10@ = 5
    SAMP.CloseDialog(1)
    //0AF8: samp add_message_to_chat "#0" color 0xFFFFFF
    break
    end
    // =====
    if or
    10@ == 0
    10@ == 5
    then
    break
    end
    // =====
    Until 2@ == 616
    wait 3000
    //0AF8: samp add_message_to_chat "#1" color 0xFFFFFF
    // =====
    if 10@ == 1
    then
    10@ = 2
    end
    // =====
    end
   
    // БЕГ НА ПОВОРОТ
   
    if 10@ == 2 // бег на поворот
    then
    0AB1: call_scm_func @set_angle 2 x_2 y_2
    0AB1: call_scm_func @get_distance 2 x_2 y_2 0@
   
    // ПЕРВАЯ ЧАСТЬ
   
    while 0@ > 3.0
    wait 0
    0AB1: call_scm_func @set_angle 2 x_2 y_2
    0AB1: call_scm_func @get_distance 2 x_2 y_2 0@
    0B56: set_game_key 1 state -255 // W
    // =====
    if or
    10@ == 0
    0@ < 3.0
    then
    break
    end
    // ===== 
    end
    //0AF8: samp add_message_to_chat "#2" color 0xFFFFFF
    // =====
    if not 10@ == 0
    then
    10@ = 3
    end
    // =====
    end
   
    // БЕГ НА СДАЧУ РУДЫ
   
    if 10@ == 3 // Бег на сдачу руды
    then
    0AB1: call_scm_func @set_angle 2 x_3 y_3
    0AB1: call_scm_func @get_distance 2 x_3 y_3 0@
   
    // ПЕРВАЯ ЧАСТЬ
   
    while 0@ > 2.0
    0AB1: call_scm_func @set_angle 2 x_3 y_3
    0AB1: call_scm_func @get_distance 2 x_3 y_3 0@
    0B56: set_game_key 1 state -255 // W
    // =====
    if or
    10@ == 0
    0@ < 2.0
    then
    break
    end
    // =====
    wait 0
    end
   
    // ВТОРАЯ ЧАСТЬ
   
    repeat
    wait 100
    2@ = SAMP.PlayerAnimationID(1@)
    until 2@ == 263
    wait 3000
    //0AF8: samp add_message_to_chat "#3" color 0xFFFFFF
    // =====
    if not 10@ == 0
    then
    10@ = 4
    end
    // =====
    end
 
    // БЕГ НА ПОВОРОТ
   
    if 10@ == 4 // Бег на поворот
    then
    0AB1: call_scm_func @set_angle 2 x_2 y_2
    0AB1: call_scm_func @get_distance 2 x_2 y_2 0@
   
    // ПЕРВАЯ ЧАСТЬ
   
    while 0@ > 4.0
    // =====
    if 10@ == 0
    then
    break
    end
    // =====
    0AB1: call_scm_func @get_distance 2 x_2 y_2 0@
    32@ = 0   
    repeat
    0AB1: call_scm_func @set_angle 2 x_2 y_2
    0AB1: call_scm_func @get_distance 2 x_2 y_2 0@
    // =====
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    // =====
    wait 0
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 700 // Бежим 700 мс
    0AB1: call_scm_func @set_angle 2 x_2 y_2
    // =====
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    // =====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    wait 500
    end
    //0AF8: samp add_message_to_chat "#4" color 0xFFFFFF
    // =====   
    if not 10@ == 0
    then
    10@ = 1
    end
    // =====
    end
   
    // БЕГ НА ПОВОРТ СБОРА ЗП
   
    if 10@ == 5
    then
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
   
    while 0@ > 6.0
    if 10@ == 0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
    32@ = 0
       
    repeat
    wait 0
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
    //=======
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 1000 // Бежим 1 сек
   
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    //=====
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    wait 400
    end
   
    // ВТОРОЙ БЛОК
       
    while 0@ > 2.0
    //======
    if
    10@ == 0
    then
    break
    end
    //======
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    wait 0
    end
    if not 10@ == 0
    then
    10@ = 6
    end   
    end
   
    // БЕЖИМ НА ПОВОРОТ К ЗП 2
   
    if 10@ == 6
    then
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
   
    while 0@ > 4.0
    if 10@ == 0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
    32@ = 0
       
    repeat
    wait 0
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
    //=======
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 1000 // Бежим 1 сек
   
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    //=====
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    32@ = 0
    wait 400
    end
    if not 10@ == 0
    then
    10@ = 7
    end   
    end
   
    // БЕЖИМ К ПИКАПУ
   
    if 10@ == 7
    then
    0AB1: call_scm_func @set_angle 2 x_6 y_6
    0AB1: call_scm_func @get_distance 2 x_6 y_6 0@
   
    // ПЕРВЫЙ БЛОК
   
    while 0@ > 6.0
    wait 0
    if 10@ == 0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_6 y_6
    0AB1: call_scm_func @get_distance 2 x_6 y_6 0@
    32@ = 0
       
    repeat
    wait 0
    0AB1: call_scm_func @set_angle 2 x_6 y_6
    0AB1: call_scm_func @get_distance 2 x_6 y_6 0@
    //=======
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 1000 // Бежим 1 сек
   
    0AB1: call_scm_func @set_angle 2 x_6 y_6
    //=====
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    wait 600
    end
   
    // ВТОРОЙ БЛОК
       
    while 0@ > 2.0
    //======
    if
    10@ == 0
    then
    break
    end
    //======
    0AB1: call_scm_func @set_angle 2 x_6 y_6
    0AB1: call_scm_func @get_distance 2 x_6 y_6 0@
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    wait 0
    end
   
    // ТРЕТИЙ БЛОК
   
    repeat
    wait 0
    Until SAMP.IsDialogActive(110)
    SAMP.CloseDialog(1) // Завершаем работу
    repeat
    wait 0
    until SAMP.IsDialogActive(109)
    SAMP.CloseDialog(1) // Начинаем работу
    if not 10@ == 0
    then
    10@ = 8
    end   
    end
   
    // БЕГ НА ПОВОРОТ 2
   
    if 10@ == 8
    then
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
   
    while 0@ > 4.0
    wait 0
    if 10@ == 0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
    32@ = 0
       
    repeat
    wait 0
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
    //=======
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 1000 // Бежим 1 сек
   
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    //=====
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    wait 400
    end
    if not 10@ == 0
    then
    10@ = 9
    end
    end
   
    // БЕГ НА ПОВОРОТ 1
   
    if 10@ == 9
    then
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
   
    while 0@ > 6.0
    wait 0
    if 10@ == 0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
    32@ = 0
       
    repeat
    wait 0
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
    //=======
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 1000 // Бежим 1 сек
   
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    //=====
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    32@ = 0
    repeat
    wait 0       
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    until 32@ > 400
    end
    if not 10@ == 0
    then
    10@ = 1 // Возвращаемся на начало скрипта
    end 
    end
end
 
:bot
if 10@ >= 1
then
10@ = 0
0ACC: show_text_lowpriority "Miner bot ~r~OFF" time 1000
else
1@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
10@ = 1
0ACC: show_text_lowpriority "Miner bot ~g~ON" time 1000
end
0B43: samp cmd_ret
 
:test
10@ == 20
0B43: samp cmd_ret
 
:set_angle
Actor.StorePos($PLAYER_ACTOR, 3@, 4@, 5@)
0063: 0@ -= 3@ 
0063: 1@ -= 4@
0604: get_Z_angle_for_point 0@ 1@ store_to 5@
Actor.Angle($PLAYER_ACTOR) = 5@
Camera.Restore_WithJumpCut()
0AB2: ret 0
 
:get_distance
Actor.StorePos($PLAYER_ACTOR, 3@, 4@, 5@)
0509: 5@ = distance_between_XY 0@ 1@ and_XY 3@ 4@
0AB2: ret 1 5@
 
:get_angle
Actor.StorePos($PLAYER_ACTOR, 3@, 4@, 5@)
0063: 0@ -= 3@
0063: 1@ -= 4@
0604: get_Z_angle_for_pint 0@ 1@ store_to 5@
0AB2: ret 1 5@
 
:camera_restore
if and
0AA2: 0@ = load_library "User32.dll" // IF and SET
0AA4: 1@ = get_proc_address "mouse_event" library 0@ // IF and SET
then
0B5A: get_screen_resolution 2@ 3@
0016: 2@ /= 2
2@ += 10
0AA5: call 1@ num_params 2 pop 0 {flags}0x1 {x}1000 {y}0 {dwData}0 {dwExtraInfo}0
0AA3: free_library 0@
else
0AF8: samp add_message_to_chat "Ошибка! Не удаось загрузить библиотеку User32.dll" color 0xFFFFFF
0AA3: free_library 0@
end
0AB2: ret 0

hnnssy · 27 Сен 2014

Nice_mans написал(а):

Помогите скомпилировать скрипт, он не мой я взял его за основу и изменил координаты.

Код:

{$CLEO .cs}
0000: NOP "Made by Axwell"
thread 'TCLEO'
 
const
x_1 = 634.88 // (Добыча)
y_1 = 827.19 // (Добыча)
x_2 = 622.14 // (поворот)
y_2 = 827.07 // (поворот)
x_3 = 614.68 // (сдача)
y_3 = 875.73 // (сдача)
x_4 = 606.79 // Поворот на сбор ЗП
y_4 = 833.98 // Поворот на сбор ЗП
x_5 = 473.84 // Поворот на сбор ЗП 2
y_5 = 878.13 // Поворот на сбор ЗП 2
x_6 = 873.08 // Пикап
y_6 = 882.10 // Пикап
end
 
{
0@ = Дистанция от игрока до позиции
1@ = PlayerID
2@ = AnimationID
3@ = кол-во руды
10@ = Выполняемый блок
0 = скрипт выключен
1 = Бег к руде
2 = Бег на поворот
3 = Бег на здачу
4 = Бег на поворот
5 = бег на поворот сбор ЗП
6 = Бег на поворот сбор ЗП 2
7 = Бег к пикапу сбора ЗП
}
 
repeat
wait 0
until Samp.Available()
0AF8: samp add_message_to_chat "Бот шахтер удачно загружен!" color 0xFFFFFF
0AF8: samp add_message_to_chat "Автор: Axwell. Специально для cheat-master.ru" color 0xFFFFFF
0B34: samp register_client_command "bot" to_label @bot
0B34: samp register_client_command "test" to_label @test
10@ = 0
 
:repeat
while true
wait 0
 
    // БЕГ НА ДОБЫЧУ
 
    if 10@ == 1 // Бег на добычу
    then
    0AB1: call_scm_func @set_angle 2 x_1 y_1
    0AB1: call_scm_func @get_distance 2 x_1 y_1 0@
 
    // ПЕРВЫЙ БЛОК
 
    while true // Если расстояние до чекпоинта больше 8
    if or
    10@ == 0
    0@ < 8.0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_1 y_1
    0AB1: call_scm_func @get_distance 2 x_1 y_1 0@
    32@ = 0
     
    repeat // Бежим 1 сек
    wait 0
    0AB1: call_scm_func @set_angle 2 x_1 y_1
    0AB1: call_scm_func @get_distance 2 x_1 y_1 0@
    //=======
    if or
    10@ == 0
    0@ < 8.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 700// Бежим 1 сек
 
    0AB1: call_scm_func @set_angle 2 x_1 y_1
    //=====
    if or
    10@ == 0
    0@ < 8.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    //=====
    if or
    10@ == 0
    0@ < 8.0
    then
    break
    end
    //=====
    wait 400
    end
 
    // ВТОРОЙ БЛОК
     
    while true
    //======
    if or
    10@ == 0
    0@ < 2.0
    then
    break
    end
    //======
    0AB1: call_scm_func @set_angle 2 x_1 y_1
    0AB1: call_scm_func @get_distance 2 x_1 y_1 0@
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    //======
    if or
    10@ == 0
    0@ < 2.0
    then
    break
    end
    //======
    wait 0
    end
 
    // ТРЕТИЙ БОЛОК
       
    repeat // Ждем добычу
    wait 100
    2@ = SAMP.PlayerAnimationID(1@)
    if SAMP.IsDialogActive(0) // Если нарушили технологию
    then
    10@ = 5
    SAMP.CloseDialog(1)
    //0AF8: samp add_message_to_chat "#0" color 0xFFFFFF
    break
    end
    // =====
    if or
    10@ == 0
    10@ == 5
    then
    break
    end
    // =====
    Until 2@ == 616
    wait 3000
    //0AF8: samp add_message_to_chat "#1" color 0xFFFFFF
    // =====
    if 10@ == 1
    then
    10@ = 2
    end
    // =====
    end
 
    // БЕГ НА ПОВОРОТ
 
    if 10@ == 2 // бег на поворот
    then
    0AB1: call_scm_func @set_angle 2 x_2 y_2
    0AB1: call_scm_func @get_distance 2 x_2 y_2 0@
 
    // ПЕРВАЯ ЧАСТЬ
 
    while 0@ > 3.0
    wait 0
    0AB1: call_scm_func @set_angle 2 x_2 y_2
    0AB1: call_scm_func @get_distance 2 x_2 y_2 0@
    0B56: set_game_key 1 state -255 // W
    // =====
    if or
    10@ == 0
    0@ < 3.0
    then
    break
    end
    // =====
    end
    //0AF8: samp add_message_to_chat "#2" color 0xFFFFFF
    // =====
    if not 10@ == 0
    then
    10@ = 3
    end
    // =====
    end
 
    // БЕГ НА СДАЧУ РУДЫ
 
    if 10@ == 3 // Бег на сдачу руды
    then
    0AB1: call_scm_func @set_angle 2 x_3 y_3
    0AB1: call_scm_func @get_distance 2 x_3 y_3 0@
 
    // ПЕРВАЯ ЧАСТЬ
 
    while 0@ > 2.0
    0AB1: call_scm_func @set_angle 2 x_3 y_3
    0AB1: call_scm_func @get_distance 2 x_3 y_3 0@
    0B56: set_game_key 1 state -255 // W
    // =====
    if or
    10@ == 0
    0@ < 2.0
    then
    break
    end
    // =====
    wait 0
    end
 
    // ВТОРАЯ ЧАСТЬ
 
    repeat
    wait 100
    2@ = SAMP.PlayerAnimationID(1@)
    until 2@ == 263
    wait 3000
    //0AF8: samp add_message_to_chat "#3" color 0xFFFFFF
    // =====
    if not 10@ == 0
    then
    10@ = 4
    end
    // =====
    end
 
    // БЕГ НА ПОВОРОТ
 
    if 10@ == 4 // Бег на поворот
    then
    0AB1: call_scm_func @set_angle 2 x_2 y_2
    0AB1: call_scm_func @get_distance 2 x_2 y_2 0@
 
    // ПЕРВАЯ ЧАСТЬ
 
    while 0@ > 4.0
    // =====
    if 10@ == 0
    then
    break
    end
    // =====
    0AB1: call_scm_func @get_distance 2 x_2 y_2 0@
    32@ = 0 
    repeat
    0AB1: call_scm_func @set_angle 2 x_2 y_2
    0AB1: call_scm_func @get_distance 2 x_2 y_2 0@
    // =====
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    // =====
    wait 0
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 700 // Бежим 700 мс
    0AB1: call_scm_func @set_angle 2 x_2 y_2
    // =====
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    // =====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    wait 500
    end
    //0AF8: samp add_message_to_chat "#4" color 0xFFFFFF
    // ===== 
    if not 10@ == 0
    then
    10@ = 1
    end
    // =====
    end
 
    // БЕГ НА ПОВОРТ СБОРА ЗП
 
    if 10@ == 5
    then
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
 
    while 0@ > 6.0
    if 10@ == 0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
    32@ = 0
     
    repeat
    wait 0
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
    //=======
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 1000 // Бежим 1 сек
 
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    //=====
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    wait 400
    end
 
    // ВТОРОЙ БЛОК
     
    while 0@ > 2.0
    //======
    if
    10@ == 0
    then
    break
    end
    //======
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    wait 0
    end
    if not 10@ == 0
    then
    10@ = 6
    end 
    end
 
    // БЕЖИМ НА ПОВОРОТ К ЗП 2
 
    if 10@ == 6
    then
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
 
    while 0@ > 4.0
    if 10@ == 0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
    32@ = 0
     
    repeat
    wait 0
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
    //=======
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 1000 // Бежим 1 сек
 
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    //=====
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    32@ = 0
    wait 400
    end
    if not 10@ == 0
    then
    10@ = 7
    end 
    end
 
    // БЕЖИМ К ПИКАПУ
 
    if 10@ == 7
    then
    0AB1: call_scm_func @set_angle 2 x_6 y_6
    0AB1: call_scm_func @get_distance 2 x_6 y_6 0@
 
    // ПЕРВЫЙ БЛОК
 
    while 0@ > 6.0
    wait 0
    if 10@ == 0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_6 y_6
    0AB1: call_scm_func @get_distance 2 x_6 y_6 0@
    32@ = 0
     
    repeat
    wait 0
    0AB1: call_scm_func @set_angle 2 x_6 y_6
    0AB1: call_scm_func @get_distance 2 x_6 y_6 0@
    //=======
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 1000 // Бежим 1 сек
 
    0AB1: call_scm_func @set_angle 2 x_6 y_6
    //=====
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    wait 600
    end
 
    // ВТОРОЙ БЛОК
     
    while 0@ > 2.0
    //======
    if
    10@ == 0
    then
    break
    end
    //======
    0AB1: call_scm_func @set_angle 2 x_6 y_6
    0AB1: call_scm_func @get_distance 2 x_6 y_6 0@
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    wait 0
    end
 
    // ТРЕТИЙ БЛОК
 
    repeat
    wait 0
    Until SAMP.IsDialogActive(110)
    SAMP.CloseDialog(1) // Завершаем работу
    repeat
    wait 0
    until SAMP.IsDialogActive(109)
    SAMP.CloseDialog(1) // Начинаем работу
    if not 10@ == 0
    then
    10@ = 8
    end 
    end
 
    // БЕГ НА ПОВОРОТ 2
 
    if 10@ == 8
    then
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
 
    while 0@ > 4.0
    wait 0
    if 10@ == 0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
    32@ = 0
     
    repeat
    wait 0
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    0AB1: call_scm_func @get_distance 2 x_5 y_5 0@
    //=======
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 1000 // Бежим 1 сек
 
    0AB1: call_scm_func @set_angle 2 x_5 y_5
    //=====
    if or
    10@ == 0
    0@ < 4.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    wait 400
    end
    if not 10@ == 0
    then
    10@ = 9
    end
    end
 
    // БЕГ НА ПОВОРОТ 1
 
    if 10@ == 9
    then
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
 
    while 0@ > 6.0
    wait 0
    if 10@ == 0
    then
    break
    end
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
    32@ = 0
     
    repeat
    wait 0
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    0AB1: call_scm_func @get_distance 2 x_4 y_4 0@
    //=======
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=======
    0B56: set_game_key 1 state -255 // W
    0B56: set_game_key 16 state 0xFF // Sprint
    until 32@ >= 1000 // Бежим 1 сек
 
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    //=====
    if or
    10@ == 0
    0@ < 6.0
    then
    break
    end
    //=====
    0B56: set_game_key 16 state 0x00
    0B56: set_game_key 14 state 0xFF // Прыгаем
    32@ = 0
    repeat
    wait 0     
    0AB1: call_scm_func @set_angle 2 x_4 y_4
    until 32@ > 400
    end
    if not 10@ == 0
    then
    10@ = 1 // Возвращаемся на начало скрипта
    end
    end
end
 
:bot
if 10@ >= 1
then
10@ = 0
0ACC: show_text_lowpriority "Miner bot ~r~OFF" time 1000
else
1@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
10@ = 1
0ACC: show_text_lowpriority "Miner bot ~g~ON" time 1000
end
0B43: samp cmd_ret
 
:test
10@ == 20
0B43: samp cmd_ret
 
:set_angle
Actor.StorePos($PLAYER_ACTOR, 3@, 4@, 5@)
0063: 0@ -= 3@
0063: 1@ -= 4@
0604: get_Z_angle_for_point 0@ 1@ store_to 5@
Actor.Angle($PLAYER_ACTOR) = 5@
Camera.Restore_WithJumpCut()
0AB2: ret 0
 
:get_distance
Actor.StorePos($PLAYER_ACTOR, 3@, 4@, 5@)
0509: 5@ = distance_between_XY 0@ 1@ and_XY 3@ 4@
0AB2: ret 1 5@
 
:get_angle
Actor.StorePos($PLAYER_ACTOR, 3@, 4@, 5@)
0063: 0@ -= 3@
0063: 1@ -= 4@
0604: get_Z_angle_for_pint 0@ 1@ store_to 5@
0AB2: ret 1 5@
 
:camera_restore
if and
0AA2: 0@ = load_library "User32.dll" // IF and SET
0AA4: 1@ = get_proc_address "mouse_event" library 0@ // IF and SET
then
0B5A: get_screen_resolution 2@ 3@
0016: 2@ /= 2
2@ += 10
0AA5: call 1@ num_params 2 pop 0 {flags}0x1 {x}1000 {y}0 {dwData}0 {dwExtraInfo}0
0AA3: free_library 0@
else
0AF8: samp add_message_to_chat "Ошибка! Не удаось загрузить библиотеку User32.dll" color 0xFFFFFF
0AA3: free_library 0@
end
0AB2: ret 0

na

2Shae · 27 Сен 2014

Как сделать чтобы после ввода команды в игре /addbl, например cleo\blacklist.txt, выполнялась команда /blacklist nick - и так все ники из файла

Drv64 · 28 Сен 2014

Можно как нибудь узнать что открыта дверь в машине?

Dark_Knight · 28 Сен 2014

09B3: get_car $CARMOD_CAR door_status $10448

itsLegend · 28 Сен 2014

Drv64 написал(а):
Можно как нибудь узнать что открыта дверь в машине?

09B3: get_car 0@ door_status 1@
0@ - хендл авто
1@ - статус открытия дверей(0 - открыта, 1 - закрыта)

Drv64 · 28 Сен 2014

legend2360 написал(а):
09B3: get_car 0@ door_status 1@
0@ - хендл авто
1@ - статус открытия дверей(0 - открыта, 1 - закрыта)

Спасибо

vlad09 · 29 Сен 2014

Как вывести текст в чат с кавычками?

Код:

chatmsg "Введите команду "/accept" чтобы.." color

Dark_Knight · 29 Сен 2014

Код:

0af8: "Введите команду %c/accept%c чтобы.." 0xFFFF00 0x22 0x22

hnnssy: или так.

Код:

0af8: "Введите команду \"/accept\" чтобы.." 0xFFFF00

vlad09 · 29 Сен 2014

Код:

chatmsg "Вызов от %s. Он находится в - %d" color 5@ 0@s

Код:

scanstr 2@ 1@ "%d%d%d" 3@ 4@ 0@s

Как можно выдернуть слова из строки?

/cmd 5 55 я тут

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

Поиск

Поиск

Вопросы по CLEO-скриптингу

SR_team

like pancake

itsLegend

Фонд борьбы за жуков 🐞

SR_team

like pancake

Pon4ik

Новичок

iAmerican

Известный

Nice_mans

Новичок

hnnssy

Известный

Вложения

2Shae

Известный

Drv64

Новичок

Dark_Knight

Me, me and me.

itsLegend

Фонд борьбы за жуков 🐞

Drv64

Новичок

vlad09

Новичок

Dark_Knight

Me, me and me.

vlad09

Новичок

Похожие темы