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

test132

Новичок
28
2
Подскажите, как реализовать mp3 в игре? Нужно только включать и выключать 1 трек по кнопке.
 

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,695
1,447
0AAC: 0@ = load_audiostream "CLEO\playlist\1.mp3"
Громкость игры влияет на громкость воспроизведения.
 

Vovich

HOT
Проверенный
717
196
Есть у кого функа получения времени и даты из компьютера?
 

hnnssy

Известный
Друг
2,684
2,744
Есть у кого функа получения времени и даты из компьютера?
Код:
 :GetLocalTime
{
Params:
In: None
Out: wYear 3@ wMonth 4@ wDayOfWeek 5@ wDay 6@ wHour 7@ wMinute 8@ wSeconds 9@ wMiliseconds 10@
Example:
0AB1: Call @GetLocalTime 0 wYear 3@ wMonth 4@ wDayOfWeek 5@ wDay 6@ wHour 7@ wMinute 8@ wSeconds 9@ wMiliseconds 10@
}
0AA2: 0@ = load_library "kernel32.dll"
0AA4: 1@ = get_proc_address "GetLocalTime" library 0@
0AC8: 2@ = alloc mem 32
0AA5: call 1@ params 1 pop 0 2@
0A8D: 3@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 4@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 5@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 6@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 7@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 8@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 9@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 10@ = read mem 2@ size 2 vp 0
2@ -= 30
0AB2: ret 8 3@ 4@ 5@ 6@ 7@ 8@ 9@ 10@
 
  • Нравится
Реакции: Vovich

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,695
1,447
Есть у кого функа получения времени и даты из компьютера?
Либо выше, либо так:
Код:
:getLocalTime
// call @getLocalTime 1 struct_systemtime 0@
if 0@ > 0
then
    0C71: 1@ = get_module "kernel32.dll" proc "GetLocalTime" address
    0AA5: call 1@ num_params 1 pop 0 params 0@
end
0AB2: ret 0

Код:
{$CLEO}

const
    _wYear = 0
    _wMonth = 2
    _wDayOfWeek = 4
    _wDay = 6
    _wHour = 8
    _wMinute = 10
    _wSecond = 12
    _wMilliseconds = 14
    sizeof_SYSTEMTIME = 16
end

0000:

repeat
    wait 400
until 0AFA:  is_samp_available

0AC8: 0@ = allocate_memory_size sizeof_SYSTEMTIME
0AB1: call @getLocalTime 1 struct_systemtime 0@

0C0C: 1@ = struct 0@ offset _wYear size 2
0C0C: 2@ = struct 0@ offset _wMonth size 2
0C0C: 3@ = struct 0@ offset _wDay size 2
0C0C: 4@ = struct 0@ offset _wHour size 2
0C0C: 5@ = struct 0@ offset _wMinute size 2
0C0C: 6@ = struct 0@ offset _wSecond size 2
0AF8: samp add_message_to_chat "Сейчас: %02d.%02d.%d %02d:%02d:%02d" color -1 3@ 2@ 1@ 4@ 5@ 6@

0AC9: free_allocated_memory 0@

0A93: end_custom_thread
 
  • Нравится
Реакции: test132, hnnssy и Vovich

Vovich

HOT
Проверенный
717
196
Либо выше, либо так:
Код:
:getLocalTime
// call @getLocalTime 1 struct_systemtime 0@
if 0@ > 0
then
    0C71: 1@ = get_module "kernel32.dll" proc "GetLocalTime" address
    0AA5: call 1@ num_params 1 pop 0 params 0@
end
0AB2: ret 0

Код:
{$CLEO}

const
    _wYear = 0
    _wMonth = 2
    _wDayOfWeek = 4
    _wDay = 6
    _wHour = 8
    _wMinute = 10
    _wSecond = 12
    _wMilliseconds = 14
    sizeof_SYSTEMTIME = 16
end

0000:

repeat
    wait 400
until 0AFA:  is_samp_available

0AC8: 0@ = allocate_memory_size sizeof_SYSTEMTIME
0AB1: call @getLocalTime 1 struct_systemtime 0@

0C0C: 1@ = struct 0@ offset _wYear size 2
0C0C: 2@ = struct 0@ offset _wMonth size 2
0C0C: 3@ = struct 0@ offset _wDay size 2
0C0C: 4@ = struct 0@ offset _wHour size 2
0C0C: 5@ = struct 0@ offset _wMinute size 2
0C0C: 6@ = struct 0@ offset _wSecond size 2
0AF8: samp add_message_to_chat "Сейчас: %02d.%02d.%d %02d:%02d" color -1 3@ 2@ 1@ 4@ 5@ 6@

0AC9: free_allocated_memory 0@

0A93: end_custom_thread
хм, почему вот так пишет
PHP:
[14:37:31] Сейчас: 52.52.376 00:00
 

test132

Новичок
28
2
Код:
0AAC: 0@ = load_audiostream "CLEO\playlist\1.mp3"

Подскажите, а можно ли как-то этим опкодом или может другим запустить прослушивание стрима интернет радио?? Например файла с расширением "1.m3u" или прямой ссылкой например:
Код:
http://radio02-cn03.akadostream.ru:8112/nashe128.mp3
 

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,695
1,447
Код:
0AAC: 0@ = load_audiostream "CLEO\playlist\1.mp3"

Подскажите, а можно ли как-то этим опкодом или может другим запустить прослушивание стрима интернет радио?? Например файла с расширением "1.m3u" или прямой ссылкой например:
Код:
http://radio02-cn03.akadostream.ru:8112/nashe128.mp3
Можно через библиотеку bass.dll. По документации она несложная, но запустить на клео будет не очень легко, наверно. По крайне мере, вызвать BASS_StreamCreateURL я так и не смог. А BASS_StreamCreateFile подавно, хотя через SFPlugin он работает отлично.

хм, почему вот так пишет
PHP:
[14:37:31] Сейчас: 52.52.376 00:00
Забыл про секунды. Исправил начальный код.
 
  • Нравится
Реакции: Vovich

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,695
1,447
Число %d не стримит, почему?
Код потому что неработоспособный.
Код:
{$CLEO}
0000:

repeat
    wait 0
until Samp.Available()

alloc 0@ 144 // chat.text
alloc 1@ 144 // buffer

while true
    wait 0
    0B75: samp get_chat_string 99 text_to 0@ prefix_to 1@ color_to 0 prefix_color_to 0

    0ad3: 1@ = format "можно заправить на"
    if 0C18: 2@ = strstr string1 0@ string2 1@
    then
        0AD4: 3@ = scan_string 2@ format "можно заправить на %d" 4@
        if 3@ == 1
        then
            0af9: say_to_chat "/fill %d" 4@
            wait 1337
        end
    end
end
 
  • Нравится
Реакции: next23012 и test132

test132

Новичок
28
2
Есть исходная строка, нужно из неё вырезать подстроку начиная с n-ого символа заканчивая k-ым. Например "Privet,kak dela?" нужно вырезать с 3 элемента по 10 (с 3 + 7 символов тоже подойдет). В итоге должно быть так "vet,kak de". Подскажите как сделать? (CLEO,SF)
 

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,695
1,447
Есть исходная строка, нужно из неё вырезать подстроку начиная с n-ого символа заканчивая k-ым. Например "Privet,kak dela?" нужно вырезать с 3 элемента по 10 (с 3 + 7 символов тоже подойдет). В итоге должно быть так "vet,kak de". Подскажите как сделать? (CLEO,SF)
Код:
:substr
// call @substr 3 string 0@ start 1@ length 2@ result_to 3@
005A: 0@ += 1@

0AB1: call @allocate_buffer_with_reserve 3 size 2@ reserve 0 with_null true result_to 3@
0C24: strncpy destination 3@ source 0@ size 2@
0AB2: ret 1 3@

:allocate_buffer_with_reserve
// call @allocate_buffer_with_reserve 3 size 0@ reserve 1@ with_null 2@ result_to 3@
if 2@ == true
then 1@++
end

005A: 0@ += 1@

alloc 3@ 0@
0C11: memset destination 3@ value 0 size 0@
ret 1 3@

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

0001: wait 0 ms
0662: "by legend2360"
0662: "BlastHack - cheating is art"

while not SAMP.Available()
    wait 400
end

alloc 0@ 64
0C11: memset destination 0@ value 0 size 64

format 0@ = "Privet,kak dela?"
0AB1: call @substr 3 string 0@ start 3 length 10 result_to 1@
0AF8: samp add_message_to_chat "Past: %s" color -1 0@
0AF8: samp add_message_to_chat "After: %s" color -1 1@

free 0@
free 1@

0A93: end_custom_thread
 
  • Нравится
Реакции: test132

Stas07

Известный
Проверенный
262
98
Как получить угол камеры по X и Y и установить их на эту точку?
 

san0

Известный
Друг
411
267
Как получить угол камеры по X и Y и установить их на эту точку?
https://www.blast.hk/threads/897/page-3#post-53452
Код:
0AAC: 0@ = load_audiostream "CLEO\playlist\1.mp3"

Подскажите, а можно ли как-то этим опкодом или может другим запустить прослушивание стрима интернет радио?? Например файла с расширением "1.m3u" или прямой ссылкой например:
Код:
http://radio02-cn03.akadostream.ru:8112/nashe128.mp3
https://www.blast.hk/threads/897/page-2#post-53096
 
  • Нравится
Реакции: test132

test132

Новичок
28
2
Код:
:substr
// call @substr 3 string 0@ start 1@ length 2@ result_to 3@
005A: 0@ += 1@

0AB1: call @allocate_buffer_with_reserve 3 size 2@ reserve 0 with_null true result_to 3@
0C24: strncpy destination 3@ source 0@ size 2@
0AB2: ret 1 3@

:allocate_buffer_with_reserve
// call @allocate_buffer_with_reserve 3 size 0@ reserve 1@ with_null 2@ result_to 3@
if 2@ == true
then 1@++
end

005A: 0@ += 1@

alloc 3@ 0@
0C11: memset destination 3@ value 0 size 0@
ret 1 3@

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

0001: wait 0 ms
0662: "by legend2360"
0662: "BlastHack - cheating is art"

while not SAMP.Available()
    wait 400
end

alloc 0@ 64
0C11: memset destination 0@ value 0 size 64

format 0@ = "Privet,kak dela?"
0AB1: call @substr 3 string 0@ start 3 length 10 result_to 1@
0AF8: samp add_message_to_chat "Past: %s" color -1 0@
0AF8: samp add_message_to_chat "After: %s" color -1 1@

free 0@
free 1@

0A93: end_custom_thread
https://www.blast.hk/threads/897/page-3#post-53452

https://www.blast.hk/threads/897/page-2#post-53096

Спасибо!