Показать сообщение отдельно
Старый 22.09.2013, 12:24   #3
Новичок
 
Регистрация: 21.09.2013
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
nk5223 пока неопределено
По умолчанию

Цитата:
Сообщение от SeregaZ Посмотреть сообщение
как бы эти пакеты подразумевают каждый раз разные ID предметов - всмысле точек разные, предмет до первой поломки, а дальше купил новый - новый ID, используя старый естесно произойдет вылет.
принцип скрипта- точишь 1 раз сам юзаешь соц действие он точит сам дальше

после 1й -15 заточки ети пакеты одикаковы
19 CF 9C 12 10 00 00 00 00 -UseItem
D0 49 00 04 33 09 10 --- SelectItem

5F 04 33 09 10 00 00 00 00

Добавлено через 31 секунду
Код:
const
nik='cv1';
Enchant=12;
 
var
 UseItem, SelectItem, EnchantItem: string;
 CurrentEnch: integer;
 key: boolean;
 Timer01, Timer03, Timer02: TTimer;
 
procedure Init;
 begin
 Timer01:=TTimer.Create(nil);
 Timer01.OnTimer:=@OnTimer01;
 Timer01.enabled:=false;
Timer01.interval:=2250; 

 Timer03:=TTimer.Create(nil);
 Timer03.OnTimer:=@OnTimer01;
 Timer03.enabled:=false;
Timer03.interval:=2250; 
 
Timer02:=TTimer.Create(nil);
 Timer02.OnTimer:=@OnTimer02;
 Timer02.enabled:=false;
Timer02.interval:=2250; 
 end;
 
procedure OnTimer01(Sender: TObject);
 begin
 case key of
 false: begin
 buf:=UseItem;
 SendToServerEx(nik);

procedure OnTimer03(Sender: TObject);
 begin
 case key of
 false: begin
 buf:=EnchantItem;
 SendToServerEx(nik);

 Timer02.enabled:=true;
 end;
 true: begin
 buf:=EnchantItem;
 SendToServerEx(nik);
 end;
 end;
 key:=not(key);
 end;
 
procedure OnTimer02(Sender: TObject);
 begin
 buf:=SelectItem;
 SendToServerEx(nik);
 Timer02.enabled:=false;
 end;

procedure Free;
 begin
 Timer01.free;
 Timer03.free;
 Timer02.free;
 CurrentEnch:=0;
 key:=false;
 end;
 
begin
 if FromServer and (pck[1]=#$87) then case ReadD(2) of
 0: begin
 CurrentEnch:=CurrentEnch+1;
 if CurrentEnch=Enchant then Timer01.enabled:=false;
 if CurrentEnch=Enchant then Timer03.enabled:=false;
 end;
 3: CurrentEnch:=0;
 end;
 if FromClient and (pck[1]=#$19) then UseItem:=pck;
 if FromClient and (pck[1]=#$D0) then SelectItem:=pck;
 if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
 if FromClient and (pck[1]+pck[2]=#$56#$0C) then
 begin
 pck:='';
 Timer01.enabled:=not(Timer01.enabled);
 Timer01.enabled:=not(Timer03.enabled);
 end;
 end.
Добавил Timer03 но всеравно неработает гдето ошибка в скрипте

Последний раз редактировалось nk5223, 22.09.2013 в 12:30. Причина: Добавлено сообщение
nk5223 вне форума   Ответить с цитированием