прошу помощи в переделке скрипта под сервер
моя версия:
PHP код:
const
nik='nik';
Enchant=5;
var
UseItem, EnchantItem: string;
Count, CurrentEnch: integer;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=5000;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=UseItem;
SendToServerEx(nik);
buf:=EnchantItem;
SendToServerEx(nik);
end;
procedure Free;
begin
Timer01.free;
count:=0;
CurrentEnch:=0;
end;
begin
if FromServer then
begin
case pck[1] of
#$62: begin
if (ReadD[02]=62) or (ReadD[02]=63) then
CurrentEnch:=CurrentEnch+1
else
if ReadD[02]=1517 then
CurrentEnch:=0;
if CurrentEnch=Enchant then
Timer01.enabled:=false;
end;
end;
end;
if FromClient and (pck[1]=#$19) then UseItem:=pck;
if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
if FromClient and (pck=#$34#$02#$00#$00#$00) then
begin
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end;
end.
Пакет Enchant Result и InventoryUpdate переделан админами и не показывает результата точки и уровня заточки предмета соответственно.
Я решил сделать с помощью просмотра пакета 62(системное сообщение об удачности\неудачности заточки),где значение 62 и 63 в строке 2 выдаются при удачной заточке и 1517 при неудачной.
При компиляции скрипта выдает ошибку "Array type required". Ошибка в строке 38("if (ReadD[02]=62) or (ReadD[02]=63 then").
Тут мои знания языка закончились и пришлось региться на форуме и писать вам
Добавлено:
Разобрался в чем проблема- скобки у ReadD были квадратные...
Невнимательность это нехорошо....