Ищу пару простых Клео.

[MAHEKEH]

Ну вообщем ищу я пару простых клео скриптов.Первый: скрипт основанный на НОПе "SetPlayerHealth" (( запрет на изменение ХП сервером )) очень нужен с активацией на кнопку и изминением её-же (( тоесть с иником )) или просто с любой активацией.
И второй скрипт: стрельба без перезаряда с "активацией\деактивацией"

Ооочень буду благодарен)

 

[DarkP1xel]

{$CLEO}
0BE3: raknet setup_incoming_rpc_hook @iRPC

WHILE TRUE
0001: 0
    IF 0C89:  key_just_pressed {ID Клавиши}0x31
    THEN
    0B12: 0@ = 0@ XOR 1
    0A8C: write_memory 0x969178 size 1 value 0@ virtual_protect TRUE
    END
END

:iRPC
0BE5: raknet 1@ = get_hook_param {PARAM_PACKETID}1
IF 0039:   1@ == {RPC_SCRSETPLAYERHEALTH}14
THEN 0BE0: raknet hook_ret FALSE
END
0BE0: raknet hook_ret TRUE

 

[SHOTIKkk]

активация автомат

// 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 

:Noname_2
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @Noname_2 
0470: 1@ = actor $PLAYER_ACTOR current_weapon 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 1@, 0)
wait 150 
jump @Noname_2 
[B]

[/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 

:Noname_2
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @Noname_2 
0470: 1@ = actor $PLAYER_ACTOR current_weapon 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 1@, 0)
wait 150 
jump @Noname_2 
[B]

[/B]

И второй скрипт: стрельба без перезаряда с "активацией\деактивацией"

 

[anonim37]

вот антиперезарядка, актива f10

 

[MAHEKEH]

Я очень рад конечно что кто-то откликнулся,но ребят,СБ у меня не компелирует
(( https://www.blast.hk/threads/10498/#post-91043 в этой теме я е*ался и через раз появляются новые ошибки... )) -
по возможности скиньте в готовом клео...

 

[©Ded_Fedot]

Я очень рад конечно что кто-то откликнулся,но ребят,СБ у меня не компелирует
(( https://www.blast.hk/threads/10498/#post-91043 в этой теме я е*ался и через раз появляются новые ошибки... )) -
по возможности скиньте в готовом клео...

тебе же скинули

http://puu.sh/r00kZ/b6d9621161.cs (с) DarkP1xel

 

[MAHEKEH]

тебе же скинули

Первый скрипт имел ввиду...

вот антиперезарядка, актива f10

От души) Всё работает как надо.

{$CLEO}
0BE3: raknet setup_incoming_rpc_hook @iRPC

WHILE TRUE
0001: 0
    IF 0C89:  key_just_pressed {ID Клавиши}0x31
    THEN
    0B12: 0@ = 0@ XOR 1
    0A8C: write_memory 0x969178 size 4 value 0@ virtual_protect TRUE
    END
END

:iRPC
0BE5: raknet 1@ = get_hook_param {PARAM_PACKETID}1
IF 0039:   1@ == {RPC_SCRSETPLAYERHEALTH}14
THEN 0BE0: raknet hook_ret FALSE
END
0BE0: raknet hook_ret TRUE

Dark,кинь готовым скриптом пж. с активацией на "R" (82) и с возможностью отключения так-же,по умолчанию отключенным.
(( получилось компилировать,но лагает пздц + кикает через секунд 5-10 ))

http://puu.sh/r00kZ/b6d9621161.cs (с) DarkP1xel

Инфа есть? Как вкл\выкл....

 

[DarkP1xel]

на

{$CLEO}
0BE3: raknet setup_incoming_rpc_hook @iRPC

WHILE TRUE
0001: 0
    IF 0C89:  key_just_pressed {ID клавиши}0x31
    THEN
    0B12: 0@ = 0@ XOR 1
    0A8C: write_memory 0x969178 size 1 value 0@ virtual_protect TRUE
    END
 
    IF 0C89:  key_just_pressed {ID клавиши}0x59
    THEN 0B12: 1@ = 1@ XOR 1
    END
END

:iRPC
IF 0039:   1@ == TRUE
THEN 0BE5: raknet 2@ = get_hook_param {PARAM_PACKETID}1
    IF 0039:   2@ == {RPC_SCRSETPLAYERHEALTH}14
    THEN 0BE0: raknet hook_ret FALSE
    END
END
0BE0: raknet hook_ret TRUE

первая клавиша за перезарядку отвечает вторая за ноп

 

[MAHEKEH]

на

первая клавиша за перезарядку отвечает вторая за ноп

Лагает пздц(