щас:Р пспспсп)
Добавлено через 18 минут
вот чето нарисовала
если не так плис поправьте если несложно:Р
delphi Код:
const
nik='Astery';
Enchant=9;
var
UseItem, SelectItem, EnchantItem: string;
CurrentEnch: integer;
key: byte;
Timer01: TTimer;
procedure OnTimer01(Sender: TObject);
begin
inc(key);
case key of
1:begin
buf:=UseItem;
SendToServerEx(nik);
end;
2:begin
buf:=EnchantItem;
SendToServerEx(nik);
end;
3:begin
buf:=SelectItem;
SendToServerEx(nik);
Timer01.enabled:=false;
key := 0;
end;
end;
end;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=5640;
key := 0;
end;
procedure Free;
begin
Timer01.free;
CurrentEnch:=0;
end;
begin
if FromServer then //от сервера.
case pck[1] of
#$87:
case ReadD(2) of
0:begin
inc(CurrentEnch);
Timer01.enabled := (CurrentEnch = Enchant); //держим таймер включеным пока не достигнут нужный енчант.
end;
3: CurrentEnch := 0;
end;
end
else //от клиента.
case pck[1] of
#$19: UseItem:=pck;
#$D0: SelectItem:=pck;
#$5F: EnchantItem:=pck;
#$49: //say
case reads(2) of
'2':begin //say '2'
pck := '';
Timer01.enabled:=not Timer01.enabled;
end;
end;
end;
end.