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

[Sashka]

Можно ли как-то высчитать, на какой именно строчке находится нужный мне текст в диалоге? А потом нажать на эту строчку

 

[randazzo]

Можно ли как-то высчитать, на какой именно строчке находится нужный мне текст в диалоге? А потом нажать на эту строчку

перебирай строки, получай текст через 0B48: samp 1@ = get_current_dialog_list_item и ищи нужный.

 

[shailkiller]

wait 228      
repeat
wait 0
until 0AB0: 54
8B21: not samp is_chat_opened
0ACD: show_text_highpriority "Anti-freeze OFF" time 1000
SAMP.WriteSAMPMemory(0x168E0, 1@, 2)
wait 228
end
end

Получилось частично, скрипт теперь не врубается при вкл чате, НО он выключить его можно, даже когда чат открыт, что надо делать в этой ситуации? Я вписал код так. Нужно туда Until добавить?

 

[kawa operand]

весь код дай и ваще какого хуя

8B21: not samp is_chat_opened

это условие бля

 

[shailkiller]

весь код дай и ваще какого хуя

это условие бля

{$CLEO .cs}
0000:

0662: printstring "Anti-freeze"

repeat
wait 0
until SAMP.Available()
0AF8: samp add_message_to_chat "Anti-Freeze by shailkiller" color 0xFF0000

while true
wait 0
if and
0AB0: 54
8B21: not samp is_chat_opened
then
0ACD: show_text_highpriority "Anti-freeze ON" time 1000
SAMP.ReadSAMPMemory(1@, 0x168E0, 2)
SAMP.WriteSAMPMemory(0x168E0, 50064, 2)
wait 228     
repeat
wait 0
until 0AB0: 54
8B21: not samp is_chat_opened
0ACD: show_text_highpriority "Anti-freeze OFF" time 1000
SAMP.WriteSAMPMemory(0x168E0, 1@, 2)
wait 228
end
end

 

[kawa operand]

31@ = false
while true
    wait 0
    if 8B21: not samp is_chat_opened
    then
        if 0ADC:   test_cheat "6"
        then
            if 31@ == false
            then
            SAMP.WriteSAMPMemory(0x168E0, 50064, 2)
            31@ = true
            else
            SAMP.WriteSAMPMemory(0x168E0, 1@, 2)
            31@ = false
            end
        end
    end
end

 

[shailkiller]

31@ = false
while true
    wait 0
    if 8B21: not samp is_chat_opened
    then
        if 0ADC:   test_cheat "6"
        then
            if 31@ == false
            then
            SAMP.WriteSAMPMemory(0x168E0, 50064, 2)
            31@ = true
            else
            SAMP.WriteSAMPMemory(0x168E0, 1@, 2)
            31@ = false
            end
        end
    end
end

Нормально, всё работает, спасибо

if 0ADC:   test_cheat "6"

Через этот опкод можно же и чит-код забабахать, да?.

 

[kawa operand]

да hesoyam

 

[Sashka]

перебирай строки, получай текст через 0B48: samp 1@ = get_current_dialog_list_item и ищи нужный.

0b48 выдает какой номер строки выделен в данный момент, но не ищет текст в ней

 

[kawa operand]

Напиши в поиске опкодов НАВОДЯЩИЕ слова
get list text

 

[Kristyan]

Привет ребята, вот у меня есть проблемка.. Не знаю зачем вылетает игра если пишу ID не в зоне стрима.

{$CLEO}
0000:


repeat
wait 0
until SAMP.Available()


0B34: samp register_client_command "cpe" to_label @cpe

0BDE: pause_thread 0@


:cpe
SAMP.IsCommandTyped(20@)
if
0AD4: 20@ = scan_string 20@ format "%d" 21@
then
 IF 
    samp.IsPlayerConnected(21@)
    then
      0B20: samp 1@ = actor_handle_by_samp_player_id 21@ 
        if   and
        056D:   actor 1@ defined
        0104:   actor $PLAYER_ACTOR near_actor 1@ radius 5.0 5.0 5.0 sphere FALSE
        then
            0AF9: samp say_msg "text %d 10" 21@
            0AF9: samp say_msg "text %d " 21@
            0AF9: samp say_msg "text" 
        else
         chatmsg "near" -1
         end
    else
    chatmsg "connect" -1
    end
else
chatmsg "syntax" -1
end
SAMP.CmdRet()

Здесь декомпил

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP 

:Noname_2
wait 0 
   SAMP.Available
jf @Noname_2 
0B34: samp register_client_command "cpe" to_label @Noname_32 
0BDE: pause_thread 0@ 

:Noname_32
   SAMP.IsCommandTyped(20@)
if 
0AD4: 20@ = scan_string 20@ format "%d" 21@ 
jf @Noname_218 
if 
   SAMP.IsPlayerConnected(21@)
jf @Noname_197 
1@ = SAMP.GetActorHandleByPlayerID(21@)
if and
056D:   actor 1@ defined 
0104:   actor $PLAYER_ACTOR near_actor 1@ radius 5.0 5.0 5.0 sphere 0 
jf @Noname_179 
say "text %d 10" 21@ 
say "text %d " 21@ 
say "text" 
goto @Noname_190 

:Noname_179
chatmsg "near" -1 

:Noname_190
goto @Noname_211 

:Noname_197
chatmsg "connect" -1 

:Noname_211
goto @Noname_231 

:Noname_218
chatmsg "syntax" -1 

:Noname_231
SAMP.CmdRet

[/cleo]

 

[LaRossa]

Привет ребята, вот у меня есть проблемка.. Не знаю зачем вылетает игра если пишу ID не в зоне стрима.

{$CLEO}
0000:


repeat
wait 0
until SAMP.Available()


0B34: samp register_client_command "cpe" to_label @cpe

0BDE: pause_thread 0@


:cpe
SAMP.IsCommandTyped(20@)
if
0AD4: 20@ = scan_string 20@ format "%d" 21@
then
 IF
    samp.IsPlayerConnected(21@)
    then
      0B20: samp 1@ = actor_handle_by_samp_player_id 21@
        if   and
        056D:   actor 1@ defined
        0104:   actor $PLAYER_ACTOR near_actor 1@ radius 5.0 5.0 5.0 sphere FALSE
        then
            0AF9: samp say_msg "text %d 10" 21@
            0AF9: samp say_msg "text %d " 21@
            0AF9: samp say_msg "text"
        else
         chatmsg "near" -1
         end
    else
    chatmsg "connect" -1
    end
else
chatmsg "syntax" -1
end
SAMP.CmdRet()

Здесь декомпил

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP

:Noname_2
wait 0
   SAMP.Available
jf @Noname_2
0B34: samp register_client_command "cpe" to_label @Noname_32
0BDE: pause_thread 0@

:Noname_32
   SAMP.IsCommandTyped(20@)
if
0AD4: 20@ = scan_string 20@ format "%d" 21@
jf @Noname_218
if
   SAMP.IsPlayerConnected(21@)
jf @Noname_197
1@ = SAMP.GetActorHandleByPlayerID(21@)
if and
056D:   actor 1@ defined
0104:   actor $PLAYER_ACTOR near_actor 1@ radius 5.0 5.0 5.0 sphere 0
jf @Noname_179
say "text %d 10" 21@
say "text %d " 21@
say "text"
goto @Noname_190

:Noname_179
chatmsg "near" -1

:Noname_190
goto @Noname_211

:Noname_197
chatmsg "connect" -1

:Noname_211
goto @Noname_231

:Noname_218
chatmsg "syntax" -1

:Noname_231
SAMP.CmdRet

[/cleo]

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end

0B34: samp register_client_command "cpe" to_label @cmd
0BDE: pause_thread 0

:cmd
SAMP.IsCommandTyped(20@)
if
0AD4: 20@ = scan_string 20@ format "%d" 21@
then
if samp.IsPlayerConnected(21@)
    then
    0104: actor $PLAYER_ACTOR near_actor 1@ radius 5.0 5.0 5.0 sphere FALSE
    if 056D: actor 1@ defined
        then
        say "text %d 10" 21@
        say "text %d " 21@
        say "text"
        else
         chatmsg "near" -1
         end
    else
    chatmsg "connect" -1
    end
else
chatmsg "syntax" -1
end
SAMP.CmdRet()

 

[Kristyan]

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end

0B34: samp register_client_command "cpe" to_label @cmd
0BDE: pause_thread 0

:cmd
SAMP.IsCommandTyped(20@)
if
0AD4: 20@ = scan_string 20@ format "%d" 21@
then
if samp.IsPlayerConnected(21@)
    then
    0104: actor $PLAYER_ACTOR near_actor 1@ radius 5.0 5.0 5.0 sphere FALSE
    if 056D: actor 1@ defined
        then
        say "text %d 10" 21@
        say "text %d " 21@
        say "text"
        else
         chatmsg "near" -1
         end
    else
    chatmsg "connect" -1
    end
else
chatmsg "syntax" -1
end
SAMP.CmdRet()

Забыл handle...

 

[Rus1k228]

Здравствуйте, вообщем мне нужно сделать так чтобы была проверка что в определённых координатах есть красный чекпоинт, и если он там есть, то я бежал по этим координатам через другие координаты. Если такое возможно. То хелпаните плеаз.

 

[LaRossa]

Забыл handle...

Отпиши что ты хочешь. Я не понимаю почему у тебя проверка на игрока не в цикле. Возле тебя может быть не один человек...