спасибо!0AAC: 0@ = load_audiostream "CLEO\playlist\1.mp3"
Громкость игры влияет на громкость воспроизведения.
Есть у кого функа получения времени и даты из компьютера?
: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@
Либо выше, либо так:Есть у кого функа получения времени и даты из компьютера?
: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
хм, почему вот так пишетЛибо выше, либо так:
Код::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
[14:37:31] Сейчас: 52.52.376 00:00
0AAC: 0@ = load_audiostream "CLEO\playlist\1.mp3"
http://radio02-cn03.akadostream.ru:8112/nashe128.mp3
Можно через библиотеку bass.dll. По документации она несложная, но запустить на клео будет не очень легко, наверно. По крайне мере, вызвать BASS_StreamCreateURL я так и не смог. А BASS_StreamCreateFile подавно, хотя через SFPlugin он работает отлично.Код:0AAC: 0@ = load_audiostream "CLEO\playlist\1.mp3"
Подскажите, а можно ли как-то этим опкодом или может другим запустить прослушивание стрима интернет радио?? Например файла с расширением "1.m3u" или прямой ссылкой например:Код:http://radio02-cn03.akadostream.ru:8112/nashe128.mp3
Забыл про секунды. Исправил начальный код.хм, почему вот так пишет
PHP:[14:37:31] Сейчас: 52.52.376 00:00
Код потому что неработоспособный.Число %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
Есть исходная строка, нужно из неё вырезать подстроку начиная с 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
https://www.blast.hk/threads/897/page-3#post-53452Как получить угол камеры по X и Y и установить их на эту точку?
https://www.blast.hk/threads/897/page-2#post-53096Код:0AAC: 0@ = load_audiostream "CLEO\playlist\1.mp3"
Подскажите, а можно ли как-то этим опкодом или может другим запустить прослушивание стрима интернет радио?? Например файла с расширением "1.m3u" или прямой ссылкой например:Код:http://radio02-cn03.akadostream.ru:8112/nashe128.mp3
Код::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