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

Natami

Участник
377
26
Тебе надо что бы 2 активных потока было?

Код:
{$CLEO}
{$INCLUDE SF}
0000:

:Noname
thread "Noname"

alloc 6@ 256

repeat
wait 0
until SAMP.Available()

while true
wait 0
end

:Noname_109
0A8D: 7@ = read_memory 12045136 size 4 virtual_protect 1
0092: 7@ = float 7@ to_integer
format 6@ "fps:_%d" 7@
0C48: samp textdraw 2010 create 6@ pos 605.0 100.0
0C50: samp textdraw 2010 set_string 6@
0C52: samp textdraw 2010 set_letter_size 0.27 0.9 color 0xff8080ff
0C4E: samp textdraw 2010 set_outline 1 color -16777216
0C4C: samp textdraw 2010 set_style 3
0C4A: samp textdraw 2010 set_align 3
004D: jump_if_false @Noname_109
0AB2: ret 0
end_thread

не отображается
 

astap_

Известный
Всефорумный модератор
626
601
Код:
{$CLEO}
{$INCLUDE SF}
0000:

:Noname
thread "Noname"

alloc 6@ 256

repeat
wait 0
until SAMP.Available()

while true
wait 0
end

:Noname_109
0A8D: 7@ = read_memory 12045136 size 4 virtual_protect 1
0092: 7@ = float 7@ to_integer
format 6@ "fps:_%d" 7@
0C48: samp textdraw 2010 create 6@ pos 605.0 100.0
0C50: samp textdraw 2010 set_string 6@
0C52: samp textdraw 2010 set_letter_size 0.27 0.9 color 0xff8080ff
0C4E: samp textdraw 2010 set_outline 1 color -16777216
0C4C: samp textdraw 2010 set_style 3
0C4A: samp textdraw 2010 set_align 3
004D: jump_if_false @Noname_109
0AB2: ret 0
end_thread

не отображается
этого хватит
CLEO:
{$CLEO}
0000:

while not SAMP.Available()
    wait 0
end

while SAMP.Available()
wait 100
    alloc 6@ 128
    0A8D: 7@ = read_memory 12045136 size 4 virtual_protect 1
    0092: 7@ = float 7@ to_integer
    format 6@ "fps:_%d" 7@
    0C48: samp textdraw 2010 create 6@ pos 605.0 100.0
    0C50: samp textdraw 2010 set_string 6@
    0C52: samp textdraw 2010 set_letter_size 0.27 0.9 color 0xff8080ff
    0C4E: samp textdraw 2010 set_outline 1 color -16777216
    0C4C: samp textdraw 2010 set_style 3
    0C4A: samp textdraw 2010 set_align 3
    free 6@
end
 

Natami

Участник
377
26
этого хватит
CLEO:
{$CLEO}
0000:

while not SAMP.Available()
    wait 0
end

while SAMP.Available()
wait 100
    alloc 6@ 128
    0A8D: 7@ = read_memory 12045136 size 4 virtual_protect 1
    0092: 7@ = float 7@ to_integer
    format 6@ "fps:_%d" 7@
    0C48: samp textdraw 2010 create 6@ pos 605.0 100.0
    0C50: samp textdraw 2010 set_string 6@
    0C52: samp textdraw 2010 set_letter_size 0.27 0.9 color 0xff8080ff
    0C4E: samp textdraw 2010 set_outline 1 color -16777216
    0C4C: samp textdraw 2010 set_style 3
    0C4A: samp textdraw 2010 set_align 3
    free 6@
end

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

astap_

Известный
Всефорумный модератор
626
601
мне надо так скажем отдельный потом ибо в while true у меня другой скрипт
если как ты сделать, то тот скрипт не работает, поэтому я пришел к такому варианту, но реализовать не получается
ну кидай весь код, посмотрим че да как
 

хуесос)

Известный
263
64
Код:
{$CLEO}
{$INCLUDE SF}
0000:

:Noname
thread "Noname"

alloc 6@ 256

repeat
wait 0
until SAMP.Available()

while true
wait 0
end

:Noname_109
0A8D: 7@ = read_memory 12045136 size 4 virtual_protect 1
0092: 7@ = float 7@ to_integer
format 6@ "fps:_%d" 7@
0C48: samp textdraw 2010 create 6@ pos 605.0 100.0
0C50: samp textdraw 2010 set_string 6@
0C52: samp textdraw 2010 set_letter_size 0.27 0.9 color 0xff8080ff
0C4E: samp textdraw 2010 set_outline 1 color -16777216
0C4C: samp textdraw 2010 set_style 3
0C4A: samp textdraw 2010 set_align 3
004D: jump_if_false @Noname_109
0AB2: ret 0
end_thread

не отображается
CLEO:
{$CLEO}
 0000:

0C6A: 25@ create_custom_thread_at_label @Noname_109

 repeat
 wait 0
until SAMP.Available()

 while true
wait 0
Log "лысая пизда"
 end


 :Noname_109
Wait 0
   alloc 6@ 128
   0A8D: 7@ = read_memory 12045136 size 4 virtual_protect 1  
 0092: 7@ = float 7@ to_integer     format 6@ "fps:_%d" 7@ 
  0C48: samp textdraw 2010 create 6@ pos 605.0 100.0  
 0C50: samp textdraw 2010 set_string 6@ 
0C52: samp textdraw 2010 set_letter_size 0.27 0.9 color 0xff8080ff     0C4E: samp textdraw 2010 set_outline 1 color -16777216  
 0C4C: samp textdraw 2010 set_style 3   
0C4A: samp textdraw 2010 set_align 3     free 6@
Jump @noname_109

Пробуй, будет показываться фпс, и в консоле будет писаться лысая пизда
 
  • Нравится
Реакции: Natami

хуесос)

Известный
263
64
Вот нормальный код.
CLEO:
{$CLEO}
0000:

repeat
    wait 0
until samp.Available()

0AC8: 6@ = allocate_memory_size 128

while true
    wait 0
    0A8D: 7@ = read_memory 12045136 size 4 virtual_protect 1
    0092: 7@ = float 7@ to_integer
        wait 400
        format 6@ "fps:_%d" 7@
        0C48: samp textdraw 2010 create 6@ pos 605.0 100.0
            0C50: samp textdraw 2010 set_string 6@
        0C52: samp textdraw 2010 set_letter_size 0.27 0.9 color 0xff8080ff
        0C4E: samp textdraw 2010 set_outline 1 color -16777216
    0C4C: samp textdraw 2010 set_style 3
    0C4A: samp textdraw 2010 set_align 3
end
*Facepalm*
В while true он будет писать свой код, а в другом потоке показываеться fps
 

grod

Новичок
11
0
CLEO:
{$CLEO .cs}
{$INCLUDE SF} /

0000:
repeat
wait 150
until 0afa:

0B34: samp register_client_command "cmd1" to_label @cmd1

while true
wait 0

if 22@ == 1
then
         
repeat
     wait 0
     until 0C5D: samp textdraw 2010 is_exists//Кликаем текстдрав
     0C72: set_virtual_key 1 down true // жмем ЛКМ
     0BCA: samp send_click_textdraw 2010//Кликаем текстдрав
     0C72: set_virtual_key 1 down false// отпускаем ЛКМ
     wait 1000//ниже нажимаем и отпускаем клавишу АЛЬТ
     0C72: set_virtual_key 56 down true
     wait 500
     0C72: set_virtual_key 56 down false

end
end

:cmd1
wait 0
0001: wait 0 ms
0B12: 22@ = 22@ XOR 1
if 22@ == 1
then
Вообщем сделал код то работает то не работает в чем проблема, что не так?
 
Последнее редактирование модератором:

клешь рояль

Известный
1,255
550
Код:
{$CLEO .cs}
{$INCLUDE SF} /

0000:
repeat
wait 150
until 0afa:

0B34: samp register_client_command "cmd1" to_label @cmd1

while true
wait 0

if 22@ == 1
then
         
repeat
     wait 0
     until 0C5D: samp textdraw 2010 is_exists//Кликаем текстдрав
     0C72: set_virtual_key 1 down true // жмем ЛКМ
     0BCA: samp send_click_textdraw 2010//Кликаем текстдрав
     0C72: set_virtual_key 1 down false// отпускаем ЛКМ
     wait 1000//ниже нажимаем и отпускаем клавишу АЛЬТ
     0C72: set_virtual_key 56 down true
     wait 500
     0C72: set_virtual_key 56 down false

end
end

:cmd1
wait 0
0001: wait 0 ms
0B12: 22@ = 22@ XOR 1
if 22@ == 1
then
Вообщем сделал код то работает то не работает в чем проблема, что не так?
у тебя скрипт заканчивается на then ? Или обрезан код?
 

grod

Новичок
11
0
у тебя скрипт заканчивается на then ? Или обрезан код?
Вот весь код

CLEO:
{$CLEO .cs}
{$INCLUDE SF} // Ïîäêëþ÷àåì SAMPFUNCS äëÿ ðàçðàáîò÷èêîâ.       

0000:
repeat
wait 150
until 0afa:

0B34: samp register_client_command "cmd1" to_label @cmd1

while true
wait 0

if 22@ == 1
then
         
repeat     
wait 0     
      until 0C5D: samp textdraw 2010 is_exists//Кликаем текстдрав
      0C72: set_virtual_key 1 down true // жмем ЛКМ
      0BCA: samp send_click_textdraw 2010//Кликаем текстдрав
      0C72: set_virtual_key 1 down false// отпускаем ЛКМ
      wait 1000//ниже нажимаем и отпускаем клавишу АЛЬТ
      0C72: set_virtual_key 56 down true
      wait 500
      0C72: set_virtual_key 56 down false

end
end

:cmd1
wait 0
0001: wait 0 ms
0B12: 22@ = 22@ XOR 1
if 22@ == 1
then      

0A8C: write_memory 7634870 size 1 value 1 virtual_protect 1
0A8C: write_memory 7635034 size 1 value 1 virtual_protect 1
0C11: memset destination 7623723 value 144 size 8
0C11: memset destination 5499528 value 144 size 6

0AF8: samp add_message_to_chat "{FFFFFF}çàïóøåí!" color 16777215
else  
0AF8: samp add_message_to_chat "{FFFFFF}îòêëþ÷åí! Ïîæàëóéñòà, ïîäîæäèòå..." color 16777215
0A92: create_custom_thread "0test.cs"
0A93: end_custom_thread
Samp.CmdRet()
end
Samp.CmdRet()
//cmdret
 
Последнее редактирование модератором:

Natami

Участник
377
26
При входе в игру показывает заставку, как добавить туда свою?
 

tokie

Известный
70
69
Приветствую, хотелось бы узнать как работает WallHack который скрывает рендер на захвате экрана и в итоге на видео ничего нет.
Буду благодарен.