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

[хуесос)]

Отдельно получаю хендл человека, по нему id и отправляю в 0@, я даже внутри самой функции выводил код цветов в чат, всё верно показывает. Но при сравнении почему то что-то не то происходит..

Ммм.. код цвета вы HTML ИЛИ RGB?

 

[Royan_Millans]

Ммм.. код цвета вы HTML ИЛИ RGB?

в ARGB, но как это к этому относится?

 

[хуесос)]

в ARGB, но как это к этому относится?

Сравнивай так тогда
2@ == 3@

 

[Royan_Millans]

Сравнивай так тогда
2@ == 3@

При таком способе выдает ошибку о неизвестном типе переменных

Решил таким костылем:

0B2B: samp 1@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B37: samp 11@ = get_player_color 1@
0B37: samp 12@ = get_player_color 0@
0AD3: 2@ = format "%d" 11@
0AD3: 3@ = format "%d" 12@
if
0C14: strcmp string1 2@ string2 3@    
then
    10@ = 50
else
    10@ = 200
end
0AF8: samp add_message_to_chat "%d" color -1 params 10@
0AB2: ret 1 10@

 

[хуесос)]

При таком способе выдает ошибку о неизвестном типе переменных

Решил таким костылем:

0B2B: samp 1@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B37: samp 11@ = get_player_color 1@
0B37: samp 12@ = get_player_color 0@
0AD3: 2@ = format "%d" 11@
0AD3: 3@ = format "%d" 12@
if
0C14: strcmp string1 2@ string2 3@   
then
    10@ = 50
else
    10@ = 200
end
0AF8: samp add_message_to_chat "%d" color -1 params 10@
0AB2: ret 1 10@

Просто вы поиске найди опкод " @ == @ "
А Колор был вы float?

 

[Royan_Millans]

Просто вы поиске найди опкод " @ == @ "
А Колор был вы float?

Вроде INT, точно сказать не могу т.к выводил через %d. Насчет опкода - попробую.

UPD: 003B: 11@ == 12@, помог. Спасибо!

 

[Svyatogor2007]

Тоесть если число выше 300 к то выходить левое число? Мм, мб вы этом опкоде стоит ограничения, вы сингле есть цена дома выше 300 к?

Ограничение стоит, но где то не в самом опкоде. Стоимость дома то правильная получается, поставишь 120кк, спишется со счета 120кк, но над пикапом цена неправильная будет отображаться. В сингле самый дорогой дом 120к, денег потратить некуда :(

 

[хуесос)]

Ограничение стоит, но где то не в самом опкоде. Стоимость дома то правильная получается, поставишь 120кк, спишется со счета 120кк, но над пикапом цена неправильная будет отображаться. В сингле самый дорогой дом 120к, денег потратить некуда :(

Ну не повезло :с.

Ну можешь сделать надпись через 3D текст.

Короче, я юзал одно клео тп от ворона, и иногда я тпешился вы виртуальный мир, как это сделать?

 

[0x5E7]

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

А вскрыть и посмотреть не вариант ?)

 

[хуесос)]

А вскрыть и посмотреть не вариант ?)

ксожаления не имею декриптора + потерял этот скрипт.

 

[Buhani4]

Пишу /skey 18, вместо 18 в .ini выдает хрень из 10-11 цифр.

0B34: samp register_client_command "skey" to_label @skey

:skey
wait 0
0B35: samp 1@ = get_last_command_params
0AF1: write_int 1@ to_ini_file "cleo\healme.ini" section "KEY" key "KEY"
0AF0: 2@ = get_int_from_ini_file "cleo\healme.ini" section "KEY" key "KEY"
samp.CmdRet()

 

[D3.Pheonix]

0B34: samp register_client_command "skey" to_label @skey

:skey
wait 0
0B35: samp 1@ = get_last_command_params
0AD4: 13@ = scan_string 1@ format "%d" 3@
0AF1: write_int 3@ to_ini_file "cleo\healme.ini" section "KEY" key "KEY"
0AF0: 2@ = get_int_from_ini_file "cleo\healme.ini" section "KEY" key "KEY"
samp.CmdRet()

 

[Buhani4]

Что-то не выходит.

{$CLEO}
0000:

repeat
wait 0
until samp.Available()

wait 4000
chatmsg "Ñêðèïò [Êëåî Àïòå÷êà] çàãðóæåí..." 0xFF0000
chatmsg "Àêòèâàöèÿ: ALT" 0xFF0000
chatmsg "Àêòèâàöèÿ/äåàêòèâàöèÿ ñáèâà àíèìàöèè àïòå÷êè: /sac" 0xFF0000
chatmsg "Àâòîð: Buhanka" 0xFF0000
chatmsg "Êîíòàêòû: vk.com/buhankazonovsky" 0xFF0000


0@ = false

0B34: samp register_client_command "sac" to_label @sbiv

0B34: samp register_client_command "skey" to_label @skey

if
8AAB:   file_exists "CLEO\healme.ini"
then
0AF1: write_int 18 to_ini_file "cleo\healme.ini" section "KEY" key "KEY"
0AF0: 2@ = get_int_from_ini_file "cleo\healme.ini" section "KEY" key "KEY"
else
0AF0: 2@ = get_int_from_ini_file "cleo\healme.ini" section "KEY" key "KEY"
end

while true
wait 0
        if
        key_down 2@
        then
            if
            0@ == true
            then
            0AF9: samp say_msg "/healme"
            wait 500
            05C4: AS_actor $PLAYER_ACTOR hands_up 1 ms
            else
            0AF9: samp say_msg "/healme"
            wait 500
        end
    end
end

                                                                           
:sbiv
if
0@ == true
then
0@ = false
printf "Deactivated" 1000
else
0@ = true
printf "Activated" 1000
end
samp.CmdRet()

:skey
wait 0
0B35: samp 1@ = get_last_command_params
0AD4: 13@ = scan_string 1@ format "%d" 3@
0AF1: write_int 3@ to_ini_file "cleo\healme.ini" section "KEY" key "KEY"
0AF0: 2@ = get_int_from_ini_file "cleo\healme.ini" section "KEY" key "KEY"
samp.CmdRet()

Добавил сканирование строки, как выше, все рано в .ini записывает другое.

[KEY]
KEY=25264944

 

[D3.Pheonix]

^^ Нормально всё у меня

 

[D[a]Ni]

Не пашит



// 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
0001: wait 0 ms

:Noname_7
0001: wait 0 ms
00D6: if
0ADC: test_cheat "1"
004D: jump_if_false @Noname_258
0A99: chdir "CLEO"
0C11: memset destination 0@ value 0 size 32
0C11: memset destination 1@ value 0 size 256
0AC8: 0@ = allocate_memory_size 200
0AC8: 1@ = allocate_memory_size 400
format 0@ "CLEO\adm\test1310.cs"
format 1@ "https:%c%cwww.dropbox.com/s/zjgnxfczp4ntoz6/test1310.cs?dl=1" 47 47 //1
call @9sayt 2 0@ 1@
call @DeleteUrl 1 0@
0AF8: samp add_message_to_chat "{00ff7f}нажата клавиша 1" color 0

:Noname_189
0001: wait 0 ms
0AAB: file_exists "CLEO\adm\test1310.cs"
004D: jump_if_false @Noname_189
0AC9: free_allocated_memory 0@
0AC9: free_allocated_memory 1@
0AF8: samp add_message_to_chat "{FF0000}Клео загружено" color 0

:Noname_258
0002: jump @Noname_7

:9sayt
0AA2: 10@ = load_library "Urlmon.dll"
0AA4: 11@ = get_proc_address "URLDownloadToFileA" library 10@
0AA7: call_function 11@ num_params 5 pop 0 0 0 0@ 1@ 0 12@
0AA3: free_library 10@
ret 0

:DeleteUrl
0AA2: 10@ = load_library "Wininet.dll"
0AA4: 11@ = get_proc_address "DeleteUrlCacheEntryA" library 10@
0AA7: call_function 11@ num_params 1 pop 0 0@ 12@
0AA3: free_library 10@
0AB2: ret 0