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

[hnnssy]

"https%c%c%cwww.dropbox.com/s/wg28mwrz0vnxocz/admin_checker.cs?dl=1" 47 47 58

Там наоборот тогда, 58 47 47, идёт ведь ://.
Хотя всё равно не работает, файл по прежнему не скачивается :/

0ac8: 0@ = 256
0ac8: 1@ = 256
0ad3: 0@ = "CLEO\SoA\members.txt"    
0ad3: 1@ = "https%c%c%cwww.dropbox.com/s/2idh9kld61mjraz/members.txt?dl=1" 58 47 47
call @URLDownloadToFile 2 0@ 1@ 2@
0ac9: 0@
0ac9: 1@

 

[Dark_Knight]

Там наоборот тогда, 58 47 47, идёт ведь ://.
Хотя всё равно не работает, файл по прежнему не скачивается :/

0ac8: 0@ = 256
0ac8: 1@ = 256
0ad3: 0@ = "CLEO\SoA\members.txt"   
0ad3: 1@ = "https%c%c%cwww.dropbox.com/s/2idh9kld61mjraz/members.txt?dl=1" 58 47 47
call @URLDownloadToFile 2 0@ 1@ 2@
0ac9: 0@
0ac9: 1@

0ad3: DownloadFile = "https:%c%cdl.dropboxusercontent.com/s/rh4ldlfhvx7vpie/draw.cs" 47 47

 

[hnnssy]

0ad3: DownloadFile = "https:%c%cdl.dropboxusercontent.com/s/rh4ldlfhvx7vpie/draw.cs" 47 47

Через dropboxuserconent тоже не работает.
Система никак не может блокировать скачку файлов?

 

[itsLegend]

Через dropboxuserconent тоже не работает.
Система никак не может блокировать скачку файлов?

https://dl.dropboxusercontent.com/s/2idh9kld61mjraz/members.txt?dl=1

 

[hnnssy]

https://dl.dropboxusercontent.com/s/2idh9kld61mjraz/members.txt?dl=1

Это трындец. Всё равно не скачивается. Папка создаётся, а файл не щагружается. Вот фуллкод:

if 0AE4:  directory_exists "CLEO\SoA"
then
0B00: delete_file "CLEO\SoA\members.txt"  // IF and SET
0ac8: 0@ = 256
0ac8: 1@ = 256
0ad3: 0@ = "CLEO\SoA\members.txt"
0ad3: 1@ = "https%c%c%cdl.dropboxusercontent.com/s/2idh9kld61mjraz/members.txt?dl=1" 58 47 47
call @URLDownloadToFile 2 0@ 1@ 2@
0ac9: 0@
0ac9: 1@
else
0AE5: create_directory "CLEO\SoA" //IF and SET
0ac8: 0@ = 256
0ac8: 1@ = 256
0ad3: 0@ = "CLEO\SoA\members.txt"   
0ad3: 1@ = "https%c%c%cdl.dropboxusercontent.com/s/2idh9kld61mjraz/members.txt?dl=1" 58 47 47
call @URLDownloadToFile 2 0@ 1@ 2@
0ac9: 0@
0ac9: 1@
end

 

[itsLegend]

Это трындец. Всё равно не скачивается. Папка создаётся, а файл не щагружается. Вот фуллкод:

if 0AE4:  directory_exists "CLEO\SoA"
then
0B00: delete_file "CLEO\SoA\members.txt"  // IF and SET
0ac8: 0@ = 256
0ac8: 1@ = 256
0ad3: 0@ = "CLEO\SoA\members.txt"
0ad3: 1@ = "https%c%c%cdl.dropboxusercontent.com/s/2idh9kld61mjraz/members.txt?dl=1" 58 47 47
call @URLDownloadToFile 2 0@ 1@ 2@
0ac9: 0@
0ac9: 1@
else
0AE5: create_directory "CLEO\SoA" //IF and SET
0ac8: 0@ = 256
0ac8: 1@ = 256
0ad3: 0@ = "CLEO\SoA\members.txt"
0ad3: 1@ = "https%c%c%cdl.dropboxusercontent.com/s/2idh9kld61mjraz/members.txt?dl=1" 58 47 47
call @URLDownloadToFile 2 0@ 1@ 2@
0ac9: 0@
0ac9: 1@
end

Только что протестил, скачалось.

Спойлер

{$CLEO}
 
thread 'legend2360'
0662: "by legend2360"
0662: "BlastHack - Cheating is art"
 
if 8AF7: get_samp_base_to 33@
then 0A93: end_custom_thread
end
repeat
    wait 400
until 0AFA: is_samp_structures_available
 
if 0AE4:  directory_exists "CLEO\SoA"
then
0B00: delete_file "CLEO\SoA\members.txt"  // IF and SET
0ac8: 0@ = 256
0ac8: 1@ = 256
0ad3: 0@ = "CLEO\SoA\members.txt"
0ad3: 1@ = "https%c%c%cdl.dropboxusercontent.com/s/2idh9kld61mjraz/members.txt?dl=1" 58 47 47
call @URLDownloadToFileA 2 0@ 1@
0ac9: 0@
0ac9: 1@
else
0AE5: create_directory "CLEO\SoA" //IF and SET
0ac8: 0@ = 256
0ac8: 1@ = 256
0ad3: 0@ = "CLEO\SoA\members.txt"
0ad3: 1@ = "https%c%c%cdl.dropboxusercontent.com/s/2idh9kld61mjraz/members.txt?dl=1" 58 47 47
call @URLDownloadToFileA 2 0@ 1@
0ac9: 0@
0ac9: 1@
end
 
:1
0001: 0
goto @1
 
:URLDownloadToFileA
// 0AB1: @URLDownloadToFileA 2 to 0@ from 1@ // IF and SET
// 0AB1: @URLDownloadToFileA 2 to @file from @site // IF and SET
 
const
    S_OK = 0
    E_OUTOFMEMORY = 1
    INET_E_DOWNLOAD_FAILURE = 2
end
 
if 0@ < 0 // @label
then 0AC6: 0@ = label 0@ offset
end
 
if 1@ < 0 // @label
then 0AC6: 1@ = label 1@ offset
end
 
call @DeleteUrlCacheEntry 1 1@
wait 0
0AA2: 2@ = load_library "urlmon.dll" // IF and SET
0AA4: 3@ = get_proc_address "URLDownloadToFileA" library 2@
0AA7: call_function 3@ num_params 5 pop 0 0 0 0@ 1@ 0 4@
if 4@ == S_OK
then
    0AA3: free_library 2@
    ret 0 1
end
0AA3: free_library 2@
ret 0
 
:DeleteUrlCacheEntry
0AA2: 1@ = load_library "wininet.dll"
0AA4: 2@ = get_proc_address "DeleteUrlCacheEntryA" library 1@
0AA5: call 2@ num_params 1 pop 0 0@
0AA3: free_library 1@
ret 0

 

[Dark_Knight]

И после скачивания юзай call @DeleteUrlCacheEntryA 1 DownloadFile так как файл скачивается из кеша.

 

[hnnssy]

Только что протестил, скачалось.

Спойлер

{$CLEO}
 
thread 'legend2360'
0662: "by legend2360"
0662: "BlastHack - Cheating is art"
 
if 8AF7: get_samp_base_to 33@
then 0A93: end_custom_thread
end
repeat
    wait 400
until 0AFA: is_samp_structures_available
 
if 0AE4:  directory_exists "CLEO\SoA"
then
0B00: delete_file "CLEO\SoA\members.txt"  // IF and SET
0ac8: 0@ = 256
0ac8: 1@ = 256
0ad3: 0@ = "CLEO\SoA\members.txt"
0ad3: 1@ = "https%c%c%cdl.dropboxusercontent.com/s/2idh9kld61mjraz/members.txt?dl=1" 58 47 47
call @URLDownloadToFileA 2 0@ 1@
0ac9: 0@
0ac9: 1@
else
0AE5: create_directory "CLEO\SoA" //IF and SET
0ac8: 0@ = 256
0ac8: 1@ = 256
0ad3: 0@ = "CLEO\SoA\members.txt"
0ad3: 1@ = "https%c%c%cdl.dropboxusercontent.com/s/2idh9kld61mjraz/members.txt?dl=1" 58 47 47
call @URLDownloadToFileA 2 0@ 1@
0ac9: 0@
0ac9: 1@
end
 
:1
0001: 0
goto @1
 
:URLDownloadToFileA
// 0AB1: @URLDownloadToFileA 2 to 0@ from 1@ // IF and SET
// 0AB1: @URLDownloadToFileA 2 to @file from @site // IF and SET
 
const
    S_OK = 0
    E_OUTOFMEMORY = 1
    INET_E_DOWNLOAD_FAILURE = 2
end
 
if 0@ < 0 // @label
then 0AC6: 0@ = label 0@ offset
end
 
if 1@ < 0 // @label
then 0AC6: 1@ = label 1@ offset
end
 
call @DeleteUrlCacheEntry 1 1@
wait 0
0AA2: 2@ = load_library "urlmon.dll" // IF and SET
0AA4: 3@ = get_proc_address "URLDownloadToFileA" library 2@
0AA7: call_function 3@ num_params 5 pop 0 0 0 0@ 1@ 0 4@
if 4@ == S_OK
then
    0AA3: free_library 2@
    ret 0 1
end
0AA3: free_library 2@
ret 0
 
:DeleteUrlCacheEntry
0AA2: 1@ = load_library "wininet.dll"
0AA4: 2@ = get_proc_address "DeleteUrlCacheEntryA" library 1@
0AA5: call 2@ num_params 1 pop 0 0@
0AA3: free_library 1@
ret 0

С твоим кодом всё скачалось, спасибо ;)

 

[Opcode.eXe]

Hello again,
I cant figure out, howto draw a text with the new sampfuncs opcodes:

0B6D: 4@ = create_font ? height 2.0 flags ?
0B6F: font 4@ draw_text "THIS IS A TEST" pos 450 364 color 0xFFFFFFFF
0B6E: release_font 4@

Can anyone give me an example for this?

 

[gcode]

Hello again,
I cant figure out, howto draw a text with the new sampfuncs opcodes:

0B6D: 4@ = create_font ? height 2.0 flags ?
0B6F: font 4@ draw_text "THIS IS A TEST" pos 450 364 color 0xFFFFFFFF
0B6E: release_font 4@

Can anyone give me an example for this?

0B6D: render 30@ = create_font "Tahoma" height 10 flags 0x5
0AC8: 29@ = allocate_memory_size 128
0AD3: 29@ = format "Ebalo on"
28@ = 0xFF33CC00
while true
    wait 0
    0B6F: render 30@ draw_text 29@ pos 20 27@ color 28@
end

 

[JevDeg]

Тут даже Опкод тусует пздц, кто помочь сможет, изменить это клео так чтобы работало что нет так щас в нем (тп по ид по всей карте)

// This file was decompiled using sascm.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013

{$VERSION 3.1.1000}
{$CLEO .cs}

//-------------MAIN---------------
if
29@ = SAMP.Base()
else_jump @NONAME_18
0A93: end_custom_thread

:NONAME_18
wait 100
SAMP.Available
else_jump @NONAME_18
0B34: samp register_client_command "ids" to_label @NONAME_54

:NONAME_43
wait 0
jump @NONAME_43

:NONAME_54
SAMP.IsCommandTyped(0@)
if
0AD4: 33@ 0@ format "%d" 0@
else_jump @NONAME_224
20@ = 2648.48
21@ = -2021
22@ = 80
SAMP.ReadSAMPMemory(11@, 17104, 1)
SAMP.WriteSAMPMemory(17104, 195, 1)
10@ = 0

:NONAME_138
wait 0
0AB1: call_scm_func @NONAME_226 3 20@ 21@ 22@
wait 100
10@ += 1
10@ > 19
else_jump @NONAME_138
SAMP.GetStreamedOutPlayerPos(0@, 1@, 2@, 3@)
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
SAMP.WriteSAMPMemory(17104, 11@, 1)

:NONAME_224
SAMP.CmdRet

:NONAME_226
3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
3@ = SAMP.GetPlayerStruct(3@)
3@ += 109
0AC8: 4@ = allocate_memory_size 68
0AB1: call_scm_func @NONAME_394 3 4@ 3@ 68
0085: 5@ = 4@ // (int)
5@ += 6
0A8C: write_memory 5@ size 4 value 0@ virtual_protect 0
5@ += 4
0A8C: write_memory 5@ size 4 value 1@ virtual_protect 0
5@ += 4
0A8C: write_memory 5@ size 4 value 2@ virtual_protect 0
5@ = RakNet.NewBitStream()
RakNet.Write(5@, 212, BS_TYPE_BYTE, 1)
RakNet.Write(5@, 4@, BS_TYPE_ARRAY, 68)
RakNet.Send(5@, 1, 1, 0)
RakNet.DeleteBitStream(5@)
0AC9: free_allocated_memory 4@
0AB2: ret 0

:NONAME_394
2@ -= 1
3@ = 0

:NONAME_408
0A8D: 4@ = read_memory 1@ size 1 virtual_protect 0
0A8C: write_memory 0@ size 1 value 4@ virtual_protect 0
1@ += 1
0@ += 1
3@ += 1
001D: 3@ > 2@ // (int)
else_jump @NONAME_408
0AB2: ret 0

 

[Lightkiller]

Тут даже Опкод тусует пздц, кто помочь сможет, изменить это клео так чтобы работало что нет так щас в нем (тп по ид по всей карте)

Если ты играешь на крайме, то этот телепорт уже пофиксили

 

[JevDeg]

Если ты играешь на крайме, то этот телепорт уже пофиксили

Я не играю там, мне нужно для дм, нубо рп, до обновы на 0.3z все работало а щас нет

 

[hnnssy]

Как правильно юзать сей опкод?
0DC4: set_script 4@ can_work_if_in_menu true

 

[MogAika]

Как правильно юзать сей опкод?
0DC4: set_script 4@ can_work_if_in_menu true

получаешь указатель на поток с помощью
get current thread pointer
и передаешь его в эту функцию