Показать сообщение отдельно
Старый 17.06.2009, 15:28   #1
Новичок
 
Регистрация: 16.06.2009
Сообщений: 14
Сказал Спасибо: 2
Имеет 0 спасибок в 0 сообщенях
ivano пока неопределено
По умолчанию !!!опять я нуб=)))прошу помошь у Батек=)

короче таккая проблема точу скриптом
Цитата:
const
Name='***'; // прописуем между '' свой ник
var
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=1000;
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
buf:=hstr('0C 03 AB 0B 10 00 00 00 00 '); // пакет на активацию скрола (Useitem)
SendToServer;
buf:=hstr('65 87 FB 0B 10 00 00 00 00 '); // Пакет на выбор затачиваемого предмета и заточка (RequestEnchantItem)
SendToServer;
end;
begin
if FromServer and (ConnectName=Name) and (pck = HStr('87 0A 00 00 00 0A 00 00 00 0A 00 00 00')) then begin // Уровень заточки
timer.enabled:=false;
end;
end.

//+9
// 87 09 00 00 00 09 00 00 00 09 00 00 00
//+10
// 87 0A 00 00 00 0A 00 00 00 0A 00 00 00
//+11
// 87 0B 00 00 00 0B 00 00 00 0B 00 00 00
и невозможно достич уровня заточки , тоесть ТОЧКА НЕПРЕКРАШАЕТЬСЯ..как зделать чтобы она прекрашалась при заточен итеме допустим на 10???плиз помогите...
ivano вне форума   Ответить с цитированием