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

[Garrus]

У меня в 2 переменных записано 2 строки.
Мне нужно их сравнить. Если они одинаковые тогда идем дальше.
Есть опкод?

0C21: stricmp string1 0@ string2 1@
Сравнивает две строки без учета регистра.

 

[itsLegend]

Такой вопросик. Почему такая конструкция на клео версии 4.1 вызывает краш, а на 4.3 все в порядке? Получается, в клео 4.1 нужно обязательно возвращать результат (ожидаемый параметр)?

if 0AB1: call_scm_func @test 0 return_ 0@
then
...
end

:test
1@ = 1
if 1@ == 0
then
0AC8: 0@ = allocate_memory_size 10
0C11: memset destination 0@ value 0x0 size 10
0485:  return_true
ret 1 0@
else
059A:  return_false
ret 0
end

Ты вызываешь 0AB1 так, что значение должно возвращаться. Вместо ret 0 напиши ret 1 0

 

[DarkP1xel]

Исходный код.

 

[hnnssy]

{$CLEO}
0000:

repeat
wait 0
until samp.Available()
0AC8: 0@ = allocate_memory_size 64       
0AC8: 1@ = allocate_memory_size 128
0AD3: 0@ = format "CLEO\DataBase.INI"
0AD3: 1@ = format "https:%c/www.dropbox.com/s/982bdqdkr87nq/DataBase.ini?dl=1" 47
0AB1: call_scm_func @URLDownloadToFileA 2 0@ 1@
0AB1: call_scm_func @DeleteUrlCacheEntryA 1 1@
0AC9: free_allocated_memory 0@
0AC9: free_allocated_memory 1@      
0AF0: 0@ = get_int_from_ini_file "CLEO\DataBase.ini" section "Test" key "Serial1"
0AA7: call_function 0x81E532 num_params 8 pop 0 0 0 0 0 1@ 0 0 0 2@
if 003B:   0@ == 1@
then
chatmsg "da!"
else
chatmsg "net!"
0A93: end_custom_thread
end

repeat
wait 0
until false

:URLDownloadToFileA
0AA2: 2@ = load_library "Urlmon.DLL"
0AA4: 3@ = get_proc_address "URLDownloadToFileA" library 2@
0AA7: call_function 3@ num_params 5 pop 0 0 0 0@ 1@ 0 4@
0AA3: free_library 2@
0AB2: ret 0

:DeleteUrlCacheEntryA
0AA2: 1@ = load_library "Wininet.DLL"
0AA4: 2@ = get_proc_address "DeleteUrlCacheEntryA" library 1@
0AA7: call_function 2@ num_params 1 pop 0 0@ 3@
0AA3: free_library 1@
0AB2: ret 0

:GetVolumeInformationA
0AA2: 0@ = load_library "Kernel32.DLL"
0AA4: 1@ = get_proc_address "GetVolumeInformationA" library 0@
0AC7: 2@ = var 2@ offset
0AA7: call_function 1@ num_params 8 pop 0 0 0 0 0 2@ 0 0 0 3@
0AA3: free_library 0@
0AB2: ret 1 2@

может потому что ты дебил?
0AB1: call_scm_func @GetVolumeInformationA 0 1@

 

[DarkP1xel]

Может потому-что ты урод?

А убирать кто будет лишнее? Там указатель надо на переменную. 1@v .

 

[DarkP1xel]

Указатель это типа var?

Что?

 

[DarkP1xel]

Можно и так, разницы нет.

 

[DarkP1xel]

Указатель.

 

[DarkP1xel]

VAR
0@ : Integer
1@ : Integer
END

0@ == 1@

 

[DarkP1xel]

Ты издеваешься?

 

[Skyazot]

Не работает клео, помогите исправить код.

При активации cleo "ANX" и при нажатии на "B" должен включаться проаим

 

[DarkP1xel]

Ааа... А я делал только

VAR
1@ : Integer
END

Чот в чат не выводит.

{$CLEO}
0000:

VAR
0@ : Integer
1@ : Integer
END

repeat
wait 0
until samp.Available()
0AC8: 0@ = allocate_memory_size 64      
0AC8: 1@ = allocate_memory_size 128
0AD3: 0@ = format "CLEO\DataBase.INI"
0AD3: 1@ = format "https:%c/www.dropbox.com/s/gs982bdqdkr87nq/DataBase.ini?dl=1" 47
0AB1: call_scm_func @URLDownloadToFileA 2 0@ 1@
0AB1: call_scm_func @DeleteUrlCacheEntryA 1 1@
0AC9: free_allocated_memory 0@
0AC9: free_allocated_memory 1@     
0AF0: 0@ = get_int_from_ini_file "CLEO\DataBase.ini" section "Test" key "Serial"
0AC7: 1@v = var 1@ offset
0AA7: call_function 0x81E532 num_params 8 pop 0 0 0 0 0 1@v 0 0 0 3@

repeat
wait 0
if 003B:   0@ == 1@
then
chatmsg "ON"
end
until false

:URLDownloadToFileA
0AA2: 2@ = load_library "Urlmon.DLL"
0AA4: 3@ = get_proc_address "URLDownloadToFileA" library 2@
0AA7: call_function 3@ num_params 5 pop 0 0 0 0@ 1@ 0 4@
0AA3: free_library 2@
ret 0

:DeleteUrlCacheEntryA
0AA2: 1@ = load_library "Wininet.DLL"
0AA4: 2@ = get_proc_address "DeleteUrlCacheEntryA" library 1@
0AA7: call_function 2@ num_params 1 pop 0 0@ 3@
0AA3: free_library 1@
ret 0

{$CLEO}
0AA2: 0@ = load_library "Urlmon.DLL"
0AA2: 1@ = load_library "Wininet.DLL"
0AA4: 2@ = get_proc_address "URLDownloadToFileA" library 0@
0AA4: 3@ = get_proc_address "DeleteUrlCacheEntryA" library 1@
0AA7: call_function {URLDownloadToFileA}2@ num_params 5 pop 0 | {lpfnCB}FALSE {dwReserved}FALSE {szFileName}"CLEO\DataBase.INI" {szURL}"https:\\www.dropbox.com/s/gs982bdqdkr87nq/DataBase.ini?dl=1" {pCaller}FALSE | {Result}2@ |
0AA7: call_function {DeleteUrlCacheEntryA}3@ num_params 1 pop 0 | {lpszUrlName}"https:\\www.dropbox.com/s/gs982bdqdkr87nq/DataBase.ini?dl=1" | {Result}3@ |
0AA3: free_library {Urlmon.DLL} 0@
0AA3: free_library {Wininet.DLL} 1@
0AA7: call_function {__stdcall::GetVolumeInformation}0x81E532 num_params 8 pop 0 | {nFileSystemNameSize}FALSE {lpFileSystemNameBuffer}FALSE {lpFileSystemFlags}FALSE {lpMaximumComponentLength}FALSE {lpVolumeSerialNumber}0@v {nVolumeNameSize}FALSE {lpVolumeNameBuffer}FALSE {lpRootPathName}FALSE | {_errorCode}1@ |
0AA2: 1@ = load_library "Kernel32.DLL"
0AA4: 2@ = get_proc_address "GetPrivateProfileIntA" library 1@
0AA7: call_function {GetPrivateProfileIntA}2@ num_params 4 pop 0 | {lpFileName}"CLEO\DataBase.INI" {nDefault}0 {lpKeyName}"Serial" {lpAppName}"Test" | {Result}2@ |
0AA3: free_library {Kernel32.DLL} 1@
0A93:

 

[DarkP1xel]

{$CLEO}
0AA2: 0@ = load_library "Urlmon.DLL"
0AA2: 1@ = load_library "Wininet.DLL"
0AA4: 2@ = get_proc_address "URLDownloadToFileA" library 0@
0AA4: 3@ = get_proc_address "DeleteUrlCacheEntryA" library 1@
0AA7: call_function {URLDownloadToFileA}2@ num_params 5 pop 0 | {lpfnCB}FALSE {dwReserved}FALSE {szFileName}"CLEO\DataBase.INI" {szURL}"https:\\www.dropbox.com/s/gs982bdqdkr87nq/DataBase.ini?dl=1" {pCaller}FALSE | {Result}2@ |
0AA7: call_function {DeleteUrlCacheEntryA}3@ num_params 1 pop 0 | {lpszUrlName}"https:\\www.dropbox.com/s/gs982bdqdkr87nq/DataBase.ini?dl=1" | {Result}3@ |
0AA3: free_library {Urlmon.DLL} 0@
0AA3: free_library {Wininet.DLL} 1@
0AA7: call_function {__stdcall::GetVolumeInformation}0x81E532 num_params 8 pop 0 | {nFileSystemNameSize}FALSE {lpFileSystemNameBuffer}FALSE {lpFileSystemFlags}FALSE {lpMaximumComponentLength}FALSE {lpVolumeSerialNumber}0@v {nVolumeNameSize}FALSE {lpVolumeNameBuffer}FALSE {lpRootPathName}FALSE | {_errorCode}1@ |
0AA2: 1@ = load_library "Kernel32.DLL"
0AA4: 2@ = get_proc_address "GetPrivateProfileIntA" library 1@
0AA7: call_function {GetPrivateProfileIntA}2@ num_params 4 pop 0 | {lpFileName}"CLEO\DataBase.INI" {nDefault}0 {lpKeyName}"Serial" {lpAppName}"Test" | {Result}2@ |
0AA3: free_library {Kernel32.DLL} 1@
IF 003B:   0@ == 2@
THEN 0B78: __log "{FFFFFF}All OK!"
END
0B78: __log "{FFFFFF}%d %d" {MyID}0@ {Server ID}2@
0A93:

Всё работает, у тебя руки из жопы растут.

 

[Skyazot]

Не работает клео, помогите исправить код.

При активации cleo "ANX" и при нажатии на "B" должен включаться проаим

// 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
0662: printstring "TESTIN ANTILAG CHEAT BY EDD004"
thread "$LAG"
:$LAG_44
wait 0
if
0ADC: test_cheat "ANX"
else_jump @$LAG_44
0ACD: show_text_highpriority "~y~[E4]~w~AntiLag Cheat ~g~Activated" time 2000
:$LAG_109
wait 0
if
0AB0: key_pressed 88
else_jump @$LAG_310
0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 0@ closest_ped_to 1@
if
056D: actor 1@ defined
else_jump @$LAG_546
0ACD: show_text_highpriority "~y~[E4]~r~HACKING!! ~g~MELEE" time 2000
if
not Actor.Driving(1@)
else_jump @$LAG_256
04C4: store_coords_to 2@ 3@ 4@ from_actor $PLAYER_ACTOR with_offset 0.0 1.0 -1.0
Actor.PutAt(1@, 2@, 3@, 4@)
jump @$LAG_109
:$LAG_256
wait 0
04C4: store_coords_to 2@ 3@ 4@ from_actor $PLAYER_ACTOR with_offset 0.0 1.0 -1.0
0362: remove_actor 1@ from_car_and_place_at 2@ 3@ 4@
jump @$LAG_109
:$LAG_310
wait 0
if
0AB0: key_pressed 66
else_jump @$LAG_546
0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 0@ closest_ped_to 1@
if
056D: actor 1@ defined
else_jump @$LAG_546
0ACD: show_text_highpriority "~y~[E4]~r~HACKING!! ~g~FIREARMS" time 2000
if
not Actor.Driving(1@)
else_jump @$LAG_476
04C4: store_coords_to 2@ 3@ 4@ from_actor $PLAYER_ACTOR with_offset 0.15 1.5 -0.6
Actor.PutAt(1@, 2@, 3@, 4@)
33@ = Actor.Angle($PLAYER_ACTOR)
Actor.Angle(1@) = 33@
jump @$LAG_310
:$LAG_476
wait 0
04C4: store_coords_to 2@ 3@ 4@ from_actor $PLAYER_ACTOR with_offset 0.15 1.5 -0.6
0362: remove_actor 1@ from_car_and_place_at 2@ 3@ 4@
33@ = Actor.Angle($PLAYER_ACTOR)
Actor.Angle(1@) = 33@
jump @$LAG_310
:$LAG_546
wait 0
if
0ADC: test_cheat "ANX"
else_jump @$LAG_109
0ACD: show_text_highpriority "~y~[E4]~w~AntiLag Cheat ~r~Deactivated" time 2000
jump @$LAG_44

 

[mac]

Боя, может с санькой не так чот

С руками че-то не то