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

popan228

Новичок
9
0
пацаны, есть ли способ получить исходник любого закриптованного скрипта?
 

popan228

Новичок
9
0
декриптовать его
так вот, мне и интересно, есть ли способ декомпилировать любой скрипт? помню несколько лет назад пацаны выкладывали какую то хуйню, которая выгружает скрипты прямо по ходу игры, и получает исходники совершенно любых скриптов, только забыл как эта прога называлась..
 

LUCHARE

Известный
Друг
545
701
так вот, мне и интересно, есть ли способ декомпилировать любой скрипт? помню несколько лет назад пацаны выкладывали какую то хуйню, которая выгружает скрипты прямо по ходу игры, и получает исходники совершенно любых скриптов, только забыл как эта прога называлась..
CDD - инструмент для CLEO разработчиков(https://blast.hk/threads/9948/) или через IDA
 

popan228

Новичок
9
0
можно ли как то занопить нажатие пкм на определенное время, не меняя управление в настройках? тоесть, чтобы я жал на пкм, но прицел не активировался
 

LUCHARE

Известный
Друг
545
701
можно ли как то занопить нажатие пкм на определенное время, не меняя управление в настройках? тоесть, чтобы я жал на пкм, но прицел не активировался
по человечески:
хук на winproc нажатия клавиш
а в клео и так сойдёт:
CLEO:
{$CLEO}
0000:

while true
    wait 0
    if Player.Defined($PLAYER_CHAR)
    then
        if key_down 2 // RMB
        then 0B56: set_game_key 6 state 0 // 6 - aiming key, 0 - nop
        end
    end
end
**можно просто зациклить 0B56 т.к. не все на ПКМ прицел юзают
 

Gnusmus_Cool

Известный
44
4
Как восстановить все значения персонажа по серверу, т.е. все его жизни, его скиллы,
CLEO:
// 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 "ebal_this_script" 

:start
8AFA:   not is_samp_available 
004D: jump_if_false @1
0001: wait 1337 ms 
0002: jump @start

:1
0B34: samp register_client_command "sskill" to_label @2

:LOL
0001: wait 0 ms 
0002: jump @LOL

:2
0B12: 1@ = 1@ XOR 1 
00D6: if 
0039:   1@ == 1 
004D: jump_if_false @3
0627: update_integer_stat 72 to 101.0 
0627: update_integer_stat 78 to 102.0 
0627: update_integer_stat 71 to 103.0 
0627: update_integer_stat 76 to 104.0 
0627: update_integer_stat 79 to 105.0 
0627: update_integer_stat 77 to 106.0 
0627: update_integer_stat 70 to 107.0 
0AF8: samp add_message_to_chat "{00FF00}[FakeSkill] {ffffff}Ñêðèïò{32CD32} âêëþ÷¸í." color 16777215 
0002: jump @4

:3
0AF8: samp add_message_to_chat "{00FF00}[FakeSkill] {ffffff}Ñêðèïò{32CD32} âûêëþ÷åí." color 16777215 
0627: update_integer_stat 101.0 to 72
0627: update_integer_stat 102.0 to 78
0627: update_integer_stat 103.0 to 71 
0627: update_integer_stat 104.0 to 76
0627: update_integer_stat 105.0 to 79
0627: update_integer_stat 106.0 to 77 
0627: update_integer_stat 107.0 to 70

:4
0B43: samp cmd_ret
Нужно где :3 сделать, что бы скиллы возвращались назад, пробовал вернуть значения назад, но не работает, пробовал еще opcode 0625, тоже не робит
Думаю если есть какой то opcode, который восстанавливает все характеристика перса по серверу как бы, то его туда запихнуть, так что вот, помогите
Мне поможет кто?
 

MISTER_GONWIK

Всефорумный гонщик
Всефорумный модератор
1,262
1,754
Изменил активацию скриптов, и они пошли по ***** , перестал выдавать число, которое я ввожу, вместо этого выдаёт букву D
CLEO:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
03A4: name_thread "hnnssy" 
0662: printstring "set time" 
00D6: if 
8AF7:   not samp 0@ = get_base 
004D: jump_if_false @HNNSSY_40 
0A93: end_custom_thread 

:HNNSSY_40
8AFA:   not is_samp_available 
004D: jump_if_false @HNNSSY_60 
0001: wait 100 ms 
0002: jump @HNNSSY_40 

:HNNSSY_60
0B34: samp register_client_command "sett" to_label @HNNSSY_334 
0B34: samp register_client_command "setw" to_label @HNNSSY_578 

:HNNSSY_298
0001: wait 0 ms 
00D6: if 
0039:   10@ == 1 
004D: jump_if_false @HNNSSY_327 
00C0: set_current_time_hours_to 1@ minutes_to 0 

:HNNSSY_327
0002: jump @HNNSSY_298 

:HNNSSY_334
0001: wait 0 ms 
0B35: samp 0@ = get_last_command_params 
0AD4: 4@ = scan_string 0@ format "%d" 1@ 
00D6: if and
0029:   1@ >= 0 
8019:   not  1@ > 23 
004D: jump_if_false @HNNSSY_484 
00C0: set_current_time_hours_to 1@ minutes_to 0 
0AF8: samp add_message_to_chat "[hnnssy | W&T]: {EAEAEA}Время установлено на {00CCFF}%d{EAEAEA} ч." color 52479 1@ 
0006: 10@ = 1 
0002: jump @HNNSSY_576 

:HNNSSY_484
0AF8: samp add_message_to_chat "[hnnssy | W&T]: {EAEAEA}Правильный ввод: {00CCFF}/settime [0 - 23]{EAEAEA}." color 52479 
0006: 10@ = 0 

:HNNSSY_576
0B43: samp cmd_ret 

:HNNSSY_578
0001: wait 0 ms 
0B35: samp 3@ = get_last_command_params 
0AD4: 5@ = scan_string 3@ format "%d" 2@ 
00D6: if and
0029:   2@ >= 0 
8019:   not  2@ > 45 
004D: jump_if_false @HNNSSY_718 
01B6: set_weather 2@ 
0AF8: samp add_message_to_chat "[hnnssy | W&T]: {EAEAEA}Погода установлена на {00CCFF}%d{EAEAEA}." color 52479 2@ 
0002: jump @HNNSSY_806 

:HNNSSY_718
0AF8: samp add_message_to_chat "[hnnssy | W&T]: {EAEAEA}Правильный ввод: {00CCFF}/setweather [0 - 45]{EAEAEA}." color 52479 

:HNNSSY_806
0B43: samp cmd_ret
CLEO:
{$CLEO}
0001: wait 2000 ms

0B34: samp register_client_command "shp" to_label @SetHealth

0BDE: pause_thread 0

:SetHealth
0B35: samp 0@ = get_last_command_params
if 0AD4: 1@ = scan_string 0@ format "%d" 2@
then
    if 80DF: actor $PLAYER_ACTOR driving
    then
        0223: set_actor $PLAYER_ACTOR health_to 2@ 
        0AF8: "{A3E900}[SetHealth]: {FFFFFF}Ваше здоровье изменено на: %d" -1 2@
    else
        03C0: 3@ = actor $PLAYER_ACTOR car
        0224: set_car 3@ health_to 2@
        0AF8: "{A3E900}[SetHealth]: {FFFFFF}Здоровье вашей машины изменено на: %d" -1 2@
    end
else
    0AF8: "{A3E900}[SetHealth]: {FFFFFF}Введите: /sh [количество]" -1
end
0B43: samp cmd_ret
Посмотреть вложение 9404
миллиарды раз было всё это расписано, так что сиди и ищи все ответы сам.
 

LaRossa

Потрачен
429
117
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Как повернуть камеру на координаты ?
 

Gnusmus_Cool

Известный
44
4
миллиарды раз было всё это расписано, так что сиди и ищи все ответы сам.
Вот оригенальный код
CLEO:
{$CLEO}
0001: wait 2000 ms

0B34: samp register_client_command "sh" to_label @SetHealth
0AF8: "{A3E900}[SetHealth]: {FFFFFF}Óñïåøíî çàãðóæåí. Àâòîð: {A3E900}Niko" -1

0BDE: pause_thread 0

:SetHealth
0B35: samp 0@ = get_last_command_params
if 0AD4: 1@ = scan_string 0@ format "%d" 2@
then
    if 80DF: actor $PLAYER_ACTOR driving
    then
        0223: set_actor $PLAYER_ACTOR health_to 2@ 
        0AF8: "{A3E900}[SetHealth]: {FFFFFF}Âàøå çäîðîâüå èçìåíåíî íà: %d" -1 2@
    else
        03C0: 3@ = actor $PLAYER_ACTOR car
        0224: set_car 3@ health_to 2@
        0AF8: "{A3E900}[SetHealth]: {FFFFFF}Çäîðîâüå âàøåé ìàøèíû èçìåíåíî íà: %d" -1 2@
    end
else
    0AF8: "{A3E900}[SetHealth]: {FFFFFF}Ââåäèòå: /sh [êîëè÷åñòâî]" -1
end
0B43: samp cmd_ret
Всё работает с этим кодом, цифры пишет
b84803b5-3c8a-4459-8b3f-0f2f6390e208

S8POLru.jpg

Буквально изменяю активацию и убираю/изменяю текс и код идёт по *****
CLEO:
{$CLEO}
0001: wait 2000 ms

0B34: samp register_client_command "shp" to_label @SetHealth

0BDE: pause_thread 0

:SetHealth
0B35: samp 0@ = get_last_command_params
if 0AD4: 1@ = scan_string 0@ format "%d" 2@
then
    if 80DF: actor $PLAYER_ACTOR driving
    then
        0223: set_actor $PLAYER_ACTOR health_to 2@ 
        0AF8: "{A3E900}[SetHealth]: {FFFFFF}Ваше здоровье изменено на: %d" -1 2@
    else
        03C0: 3@ = actor $PLAYER_ACTOR car
        0224: set_car 3@ health_to 2@
        0AF8: "{A3E900}[SetHealth]: {FFFFFF}Здоровье вашей машины изменено на: %d" -1 2@
    end
else
    0AF8: "{A3E900}[SetHealth]: {FFFFFF}Введите: /shp [количество]" -1
end
0B43: samp cmd_ret
ANUI8LY.jpg
 

Вложения

  • SetHP.cs
    18.3 KB · Просмотры: 5
  • SetHP_1.cs
    18.1 KB · Просмотры: 4