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

kraft1k

Вынь х*й из головы и все получится © hnnssy
Друг
1,480
1,168

Вложения

  • anticrasher037.asi
    89 KB · Просмотры: 6
Последнее редактирование:

VLnet

Новичок
16
0
Здрасьте
Задача: при вводе команды /lec в чат выводится лекция.
Проблема: после 2го сообщение начинается лоторея: или вылетит, или зависнет, или сработает нормально
Проблемный код, в цикле while true: (глючит кодировка хз почему)
CLEO:
if
        10@ == true
     then
             0AC8: 15@ = allocate_memory_size 500
             0AD3: 15@ = format "/r Óâàæàåìûå ñîòðóäíèêè, õî÷ó íàïîìíèòü Âàì:"
             0AB1: call_scm_func @addToChat 1 15@
             0AD3: 15@ = format "/r Çà ñîí â íåïîëîæåííîì ìåñòå âû áóäèòå óâîëåíû èëè áóäåò âûäàí âûãîâîð"
             0AB1: call_scm_func @addToChat 1 15@
             0AD3: 15@ = format "/r Cïàòü òîëüêî â îðäèíàòîðñêîé. Ñïàñèáî çà âíèìàíèå."
             0AB1: call_scm_func @addToChat 1 15@
             0AD3: 15@ = format "/c 60"
             0AB1: call_scm_func @addToChat 1 15@
             0AC9: free_allocated_memory 15@
             10@ = false
           
     end
PS: Пробовал вместо /r писать /n - всё работает
Функция addToChat
CLEO:
:addToChat 
while true
wait 0

        if and
    0ab0: 88
    0ab0: 90
    0ab0: 93
    then
      0AF8: samp add_message_to_chat "Ôðàçà áûëà ïðîïóùåíà!" color ColorText  
      break 
    end

    0AC8: 15@ = allocate_memory_size 100

   0AF9: samp say_msg "%s" 0@
  
    wait 200
    0B75: samp get_chat_string 99 text_to 15@ prefix_to 0 color_to 0 prefix_color_to 0
            if
               0C14: strcmp string1 15@ string2 "Не флудите"          
             then
                 wait 3000
                 0AF9: samp say_msg "Кхм..."
                  wait 500
                 0AC9: free_allocated_memory 15@            
             else
                   wait 500
                  0AC9: free_allocated_memory 15@
                   break
            end

end
0AC9: free_allocated_memory 15@
0AB2: ret 0
Ну и код, из которого всё начинается:
CLEO:
0B34: samp register_client_command "lec" to_label @lec

:lec
10@ = true
SAMP.CmdRet()
 
Последнее редактирование:

Ichimaru

Известный
33
7
Как убрать вывод текста при подключении к игре:
Код:
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
gosub @DefaultVarInit
gosub @Config 
0093: 12@ = integer FOV to_float 
0AB1: call @AutoMark 2 AutoActivation ActiveStatus ret_to ActiveStatus
0946: set_actor $PLAYER_ACTOR actions_uninterupted_by_weapon_fire 1
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
0B34: samp register_client_command "master" to_label @cmd_hook
0B34: samp register_client_command "recfg" to_label @cmd2_hook
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if DisableRpcHook == 0
then 0BE1: raknet setup_outcoming_rpc_hook @MyRPC_Hook
end
0BE2: raknet setup_outcoming_packet_hook @PACKET_SYNC_HOOK
print "~p~[PRIVATE] ~b~Silent Aim ~g~v10 ~w~by ~>~~y~0pc0d3R~<~" time 3000
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 

Степан0073

Новичок
19
5
Как убрать вывод текста при подключении к игре:
Код:
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
gosub @DefaultVarInit
gosub @Config
0093: 12@ = integer FOV to_float
0AB1: call @AutoMark 2 AutoActivation ActiveStatus ret_to ActiveStatus
0946: set_actor $PLAYER_ACTOR actions_uninterupted_by_weapon_fire 1
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
0B34: samp register_client_command "master" to_label @cmd_hook
0B34: samp register_client_command "recfg" to_label @cmd2_hook
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if DisableRpcHook == 0
then 0BE1: raknet setup_outcoming_rpc_hook @MyRPC_Hook
end
0BE2: raknet setup_outcoming_packet_hook @PACKET_SYNC_HOOK
print "~p~[PRIVATE] ~b~Silent Aim ~g~v10 ~w~by ~>~~y~0pc0d3R~<~" time 3000
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Убери: print "~p~[PRIVATE] ~b~Silent Aim ~g~v10 ~w~by ~>~~y~0pc0d3R~<~" time 3000
 

я воскрес

Активный
245
36
Здрасьте
Задача: при вводе команды /lec в чат выводится лекция.
Проблема: после 2го сообщение начинается лоторея: или вылетит, или зависнет, или сработает нормально
Проблемный код, в цикле while true: (глючит кодировка хз почему)
CLEO:
if
        10@ == true
     then
             0AC8: 15@ = allocate_memory_size 500
             0AD3: 15@ = format "/r Óâàæàåìûå ñîòðóäíèêè, õî÷ó íàïîìíèòü Âàì:"
             0AB1: call_scm_func @addToChat 1 15@
             0AD3: 15@ = format "/r Çà ñîí â íåïîëîæåííîì ìåñòå âû áóäèòå óâîëåíû èëè áóäåò âûäàí âûãîâîð"
             0AB1: call_scm_func @addToChat 1 15@
             0AD3: 15@ = format "/r Cïàòü òîëüêî â îðäèíàòîðñêîé. Ñïàñèáî çà âíèìàíèå."
             0AB1: call_scm_func @addToChat 1 15@
             0AD3: 15@ = format "/c 60"
             0AB1: call_scm_func @addToChat 1 15@
             0AC9: free_allocated_memory 15@
             10@ = false
          
     end
PS: Пробовал вместо /r писать /n - всё работает
Функция addToChat
CLEO:
:addToChat 
while true
wait 0

        if and
    0ab0: 88
    0ab0: 90
    0ab0: 93
    then
      0AF8: samp add_message_to_chat "Ôðàçà áûëà ïðîïóùåíà!" color ColorText  
      break 
    end

    0AC8: 15@ = allocate_memory_size 100

   0AF9: samp say_msg "%s" 0@
  
    wait 200
    0B75: samp get_chat_string 99 text_to 15@ prefix_to 0 color_to 0 prefix_color_to 0
            if
               0C14: strcmp string1 15@ string2 "Не флудите"          
             then
                 wait 3000
                 0AF9: samp say_msg "Кхм..."
                  wait 500
                 0AC9: free_allocated_memory 15@            
             else
                   wait 500
                  0AC9: free_allocated_memory 15@
                   break
            end

end
0AC9: free_allocated_memory 15@
0AB2: ret 0
Ну и код, из которого всё начинается:
CLEO:
0B34: samp register_client_command "lec" to_label @lec

:lec
10@ = true
SAMP.CmdRet()
CLEO:
:cmd
wait 0
say "Blah Blah Blah"
wait 3000
say "Blah Blah Blah"
cmdret
 

Ichimaru

Известный
33
7
Убери: print "~p~[PRIVATE] ~b~Silent Aim ~g~v10 ~w~by ~>~~y~0pc0d3R~<~" time 3000

Убрал, скомпилил, скрипт после такого "вмешательства" не выполняет свои функции ((

Да, и после этого в файле .ini изменяется регистр, то есть если раньше было так:
[Settings]
FOV=40
AnyDistance=0
SkinVector=1

То теперь так:

[SETTINGS]
FOV=40
ANYDISTANCE=0
SKINVECTOR=1
 

BlackKnigga

Известный
BH Team
922
446
Убрал, скомпилил, скрипт после такого "вмешательства" не выполняет свои функции ((

Да, и после этого в файле .ini изменяется регистр, то есть если раньше было так:
[Settings]
FOV=40
AnyDistance=0
SkinVector=1

То теперь так:

[SETTINGS]
FOV=40
ANYDISTANCE=0
SKINVECTOR=1
сервис - настройки - форматирование - Регистр букв - "Как есть"
И компилируй еще раз
 

Coghweel

Новичок
76
0
Здрасьте
Задача: при вводе команды /lec в чат выводится лекция.
Проблема: после 2го сообщение начинается лоторея: или вылетит, или зависнет, или сработает нормально
Проблемный код, в цикле while true: (глючит кодировка хз почему)
CLEO:
if
        10@ == true
     then
             0AC8: 15@ = allocate_memory_size 500
             0AD3: 15@ = format "/r Óâàæàåìûå ñîòðóäíèêè, õî÷ó íàïîìíèòü Âàì:"
             0AB1: call_scm_func @addToChat 1 15@
             0AD3: 15@ = format "/r Çà ñîí â íåïîëîæåííîì ìåñòå âû áóäèòå óâîëåíû èëè áóäåò âûäàí âûãîâîð"
             0AB1: call_scm_func @addToChat 1 15@
             0AD3: 15@ = format "/r Cïàòü òîëüêî â îðäèíàòîðñêîé. Ñïàñèáî çà âíèìàíèå."
             0AB1: call_scm_func @addToChat 1 15@
             0AD3: 15@ = format "/c 60"
             0AB1: call_scm_func @addToChat 1 15@
             0AC9: free_allocated_memory 15@
             10@ = false
        
     end
PS: Пробовал вместо /r писать /n - всё работает
Функция addToChat
CLEO:
:addToChat 
while true
wait 0

        if and
    0ab0: 88
    0ab0: 90
    0ab0: 93
    then
      0AF8: samp add_message_to_chat "Ôðàçà áûëà ïðîïóùåíà!" color ColorText  
      break 
    end

    0AC8: 15@ = allocate_memory_size 100

   0AF9: samp say_msg "%s" 0@
  
    wait 200
    0B75: samp get_chat_string 99 text_to 15@ prefix_to 0 color_to 0 prefix_color_to 0
            if
               0C14: strcmp string1 15@ string2 "Не флудите"          
             then
                 wait 3000
                 0AF9: samp say_msg "Кхм..."
                  wait 500
                 0AC9: free_allocated_memory 15@            
             else
                   wait 500
                  0AC9: free_allocated_memory 15@
                   break
            end

end
0AC9: free_allocated_memory 15@
0AB2: ret 0
Ну и код, из которого всё начинается:
CLEO:
0B34: samp register_client_command "lec" to_label @lec

:lec
10@ = true
SAMP.CmdRet()

Так просто say "текст" юзай
или chatmsg "текст", если хочешь фейк-лекцию
 
Последнее редактирование:

Ichimaru

Известный
33
7
сервис - настройки - форматирование - Регистр букв - "Как есть"
И компилируй еще раз

сделал, теперь с этим нормально - сообщения нет, но аим не работает почему то, а команды перезагрузки cfg и активации выполняются. Не понимаю, как это строка влияет на его работоспособность...
 

mac

HEY DARLING
1,317
911
сделал, теперь с этим нормально - сообщения нет, но аим не работает почему то, а команды перезагрузки cfg и активации выполняются. Не понимаю, как это строка влияет на его работоспособность...
Как сука можно быть таким рукожопом, чтобы убрать одну бесполезную строчку и похерить весь код?
 
  • Нравится
Реакции: kraft1k и 4el0ve4ik

Javier_Honda

Участник
37
1
Есть ли быстрый респавнер машин, сущ-вует один, работающий командой /scar, но там есть достаточно большой промежуток времени между спавном, есть ли что-то более быстрое?
 

Ichimaru

Известный
33
7
Как сука можно быть таким рукожопом, чтобы убрать одну бесполезную строчку и похерить весь код?

Не знаю даже, все делал в точности, как сказали. Да и собственно, что там делать? Удалил строку + F6. Но не работает же...
Вот ссылка на него, помогите, код открытый. Там еще антистан вшит, но не знаю точно, под каким кодом.
 

VLnet

Новичок
16
0
CLEO:
:cmd
wait 0
say "Blah Blah Blah"
wait 3000
say "Blah Blah Blah"
cmdret
Так просто say "текст" юзай
или chatmsg "текст", если хочешь фейк-лекцию
Логика такая: выводится фраза, и, если сервер ответил "Не флудите" - код ждёт 3 секунды и опять выводит фразу.
Думал увеличить задержку, но часто нужно параллельно с биндером болтать так, и, из-за слишком частой отправки сообщений - "Не флудите"