var
timer1: TTimer;
mytext:string;
Name,Bypass:string;
textID,tocklvl:integer;
ObjectID,myID,TargetID,x,i:integer;
MyX,MyY,MyZ:integer;
procedure SendMsg2(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
procedure OnTimer1(Sender: TObject);
begin
buf:=#$A8;
WriteD(myID);
WriteD(1);
WriteD(ObjectID);
WriteD(1);
SendToServer;
timer1.enabled:=false;
SendMsg2( '15 '+IntToStr(tocklvl)+' ' );
SendToServer;
end;
procedure Init;
begin
x:=0;
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer1;
timer1.enabled:=false;
timer1.interval:=6000;
buf:=#$14;
SendToServer;
end;
procedure Free;
begin
timer1.free;
end;
begin
if fromserver and (pck[1]=#$32) then myID:=ReadD(18);
if FromClient and (pck[1]=#$5F) then begin
ObjectID:=ReadD(2);
SendMsg2('запомнил: ВЕЩЬ для ЗАТОЧКИ');
timer1.enabled:=true;
end;
if FromClient and (pck[1]=#$49) then begin
i:=2;
mytext:=ReadS(i);
textID:=ReadD(i);
if (textID=3) then begin
tocklvl:=StrToInt(mytext);
SendMsg2(+50)+50);
pck:='';
exit;
//хотьинепервоеапреля.прочитатькрякобразыписалпоруск инаанглийскойклаве
end;
end;
end.
я это тут ошибку сделал как её исправить хочу точнуть Augmented Zeus Mace Epic Weapon на +50 ((( томб сори что закалупываю так ))) прот некого просить больше
|