[@Likelihood]

Сообщение о наличии рядом Драгоценного Куба и Куба Удачи.
Подмена визуального отображения Драгоценного Куба на Рунный Столб.


Первый код для пакетов без обвязки

// Подмена визуального отображения Драгоценного Куба на Рунный Столб
// Сообщение о наличии рядом Драгоценного Куба и Куба Удачи
//
// !!!     Работает на серверах без шифровки пакетов без обвязки
//
//         Скрипт написан Likelihood (WWW.RF-CHEATS.RU)
//         для собственных нужд
//
Var
P,SCR:String;
SL:Integer;
SH:Variant;
Procedure OnCreate;
Begin
P:='';
SCR:='020B 04 00000000 00575046000000000D000000000000000000FF00';
SL:=0;
SH:=Null;
End;
Begin
If _gFromServ And ((Copy(_gBuff,3,2)=HStr('040B')) Or (Copy(_gBuff,3,2)=HStr('0416'))) Then Begin
If (Copy(_gBuff,5,2)=HStr('A903')) Then Begin
P:='Рядом Куб Удачи.';
SL:=Length(P);
SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
gSys.SendC(SH);
Exit;
End;
If (Copy(_gBuff,5,2)=HStr('AA03')) Then Begin
P:='Рядом Драгоценный Куб. Показан как Рунный Столб.';
SL:=Length(P);
SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
gSys.SendC(SH);
gBlockPacket;
If (Copy(_gBuff,3,2)=HStr('040B')) Then Begin
gSys.SendC(HPck('0402'+BufToHex(Copy(_gBuff,7,17))));
End Else If (Copy(_gBuff,3,2)=HStr('0416')) Then Begin
gSys.SendC(HPck('0402'+BufToHex(Copy(_gBuff,7,20))));
End;
Exit;
End;
End;
End.

Второй код для пакетов с обвязкой

// Подмена визуального отображения Драгоценного Куба на Рунный Столб
// Сообщение о наличии рядом Драгоценного Куба и Куба Удачи
//
// !!!     Работает на серверах без шифровки пакетов с обвязкой
//
//         Скрипт написан Likelihood (WWW.RF-CHEATS.RU)
//         для собственных нужд
//
Var
P,SCR:String;
SL:Integer;
SH:Variant;
Procedure OnCreate;
Begin
P:='';
SCR:='020B 04 00000000 00575046000000000D000000000000000000FF00';
SL:=0;
SH:=Null;
End;
Begin
If _gFromServ And ((Copy(_gBuff,5,2)=HStr('040B')) Or (Copy(_gBuff,5,2)=HStr('0416'))) Then Begin
If (Copy(_gBuff,7,2)=HStr('A903')) Then Begin
P:='Рядом Куб Удачи.';
SL:=Length(P);
SH:=HPck(BufToHex(HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00'))+'04000000');
gSys.SendC(SH);
Exit;
End;
If (Copy(_gBuff,7,2)=HStr('AA03')) Then Begin
P:='Рядом Драгоценный Куб. Показан как Рунный Столб.';
SL:=Length(P);
SH:=HPck(BufToHex(HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00'))+'04000000');
gSys.SendC(SH);
gBlockPacket;
If (Copy(_gBuff,5,2)=HStr('040B')) Then Begin
gSys.SendC(HPck(BufToHex(Copy(_gBuff,3,4))+'0402'+BufToHex(Copy(_gBuff,9,21))));
End Else If (Copy(_gBuff,5,2)=HStr('0416')) Then Begin
gSys.SendC(HPck(BufToHex(Copy(_gBuff,3,4))+'0402'+BufToHex(Copy(_gBuff,9,24))));
End;
Exit;
End;
End;
End.

Скрипты работают на НЕШИФРОВАННЫХ пакетах

Видеоролик использования скрипта

[@dark]

На сколько это полезно?

[@Jlo6aH]

Сообщение весьма полезно.

[@Nightshade2]

Для распечатки в принципе полезно при поиске куба. Но есть патч, который делает из куба огромную свинью. Что примерно одно и то же в итоге.

[@dark]

Likelihood +80 постов

[@Nightshade2]

Отображение рунного столба не работает

Исправленный скрипт:

// Подмена визуального отображения Драгоценного Куба на Рунный Столб
// Сообщение о наличии рядом Драгоценного Куба и Куба Удачи
//
// !!!     Работает на серверах без шифровки пакетов без обвязки
//
//         Скрипт написан Likelihood (WWW.RF-CHEATS.RU)
//         для собственных нужд
//         Исправлено Nightshade
Var
P,SCR:String;
SL:Integer;
SH:Variant;
Procedure OnCreate;
Begin
P:='';
SCR:='020B 04 00000000 00575046000000000D000000000000000000FF00';
SL:=0;
SH:=Null;
End;
Begin
If _gFromServ And ((Copy(_gBuff,3,2)=HStr('040B')) Or (Copy(_gBuff,3,2)=HStr('0416'))) Then Begin
If (Copy(_gBuff,5,2)=HStr('A903')) Then Begin
P:='Рядом Куб Удачи.';
SL:=Length(P);
SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
gSys.SendC(SH);
Exit;
End;
If (Copy(_gBuff,5,2)=HStr('AA03')) Then Begin
P:='Рядом Драгоценный Куб. Показан как Рунный Столб.';
SL:=Length(P);
SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
gSys.SendC(SH);
//gBlockPacket;
//If (Copy(_gBuff,3,2)=HStr('040B')) Then Begin
//gSys.SendC(HPck('0402'+BufToHex(Copy(_gBuff,7,17))));
//End Else If (Copy(_gBuff,3,2)=HStr('0416')) Then Begin
//gSys.SendC(HPck('0402'+BufToHex(Copy(_gBuff,7,20))));
_gOutBuff := _gBuff;
PInt(_gOutBuff, $04ae, 5, 2);
End;
Exit;
End;
End;
End.

Ты забыл добавить заголовок пакета(его ID).


Хочу постов)

[@Likelihood]

Сообщение от Nightshade2

Отображение рунного столба не работает
*** скрытый текст ***
Хочу постов)

На чем именно не работает?

[@Nightshade2]

В смысле на чем? Твой скрипт без обвязки не работает нигде. Я проверял на пвпваре.

[@dark]

Снял хайд, ибо теме 2 года.