помогите со скриптом
вообщем у нас на сервере эвент по заточке эвентовых пух
я сам начинаю только изучать L2PacketHack, так что надеюсь на вашу помощь
условия эвента:
эвент предмет только точится когда одет, вот и решил написать скрипт
эвент точек не меренно, если не удачная заточка - предмет снимается
я так думаю что если предмет снялся, покупаем новый и точим, если заточилась на +23 то снимаем
надеюсь на вашу помощь
Код:
const
zakup='23 30 00 30 00 00 00';// пакет на закупку эвентового предмета
zatocsh='19 4C 9D 2D 10 00 00 00 00';//пакет на заточку предмета
var
i:integer;
Timer01: TTimer;
UseItem: string;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=true;
Timer01.interval:=2000;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=HStr(zatocsh); //заточка
SendToServer;
end;
begin
if FromServer and (pck[1]+pck[2]=#$62#$28) then // если предмет снялся(сломался) покупаем новый
begin
buf:=HStr(zakup);
SendToServer;
i:=0;//обнуляем точку
end;
if FromServer and (pck[1]=#$21) and (pck[4]=#$01) then begin
UseItem:='19 '+pck[8]+' '+pck[9]+' '+pck[10]+' '+pck[11]+' 00 00 00 00';
buf:=HStr(UseItem);//это создаем пакет чтобы одеть эвент предмет
SendToServer;
end;
if FromServer and (pck[1]+pck[2]=#$62#$26) then i:=i+1;//если заточилась увеличиваем на +1
if i=23 then begin// если заточилась на +23 снимаем эвент предмет
buf:=HStr(UseItem);
SendToServer;
end;
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end.