Показать сообщение отдельно
Старый 06.03.2010, 13:23   #326
Новичок
 
Регистрация: 06.03.2010
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Pavel777777 пока неопределено
По умолчанию

Народ помогите плиз... Зашёл в игру, на серв, запустил прогу, сделал скрипт:
delphi Код:
const    nik='Paveljordan';    Enchant=30; var    UseItem, EnchantItem: string;    Count, CurrentEnch: integer;    Timer01: TTimer; procedure Init; begin    Timer01:=TTimer.Create(nil);    Timer01.OnTimer:=@OnTimer01;    Timer01.enabled:=false;    Timer01.interval:=500; 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 and (pck[1]=#$87) then case ReadD(2) of        0: begin           CurrentEnch:=CurrentEnch+1;           if CurrentEnch=Enchant then Timer01.enabled:=false;           end;        2: CurrentEnch:=0;        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.

Поставил галочку на нём, развернул окно, купил заточку, заточил пуху на +1, в соц действиях да, но ничего не точится...
Скажите плиз в чём у меня тут проблема?

Последний раз редактировалось QaK, 09.03.2010 в 19:25. Причина: Не полностью описал проблему
Pavel777777 вне форума   Ответить с цитированием