[@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).


Хочу постов)