Цитата:
Сообщение от 8tomat8
боже мой.... какой идиот... это не тот ID
Открой файд itemname-e.dat и там найди по названию свой скрол, рядом с ним будет его ID
|
Фаил про который ты говоришь, я нашел. но он зашифрован. как открыть и просмотреть IDпредмета.
Добавлено через 1 час 17 минут
Все я разобрался где ID предмета. но вот скприпте используеться пакет на юзанье энчата и пакет юзанье энчата на предмет. но ведь эти пакеты всегда разные....что делать??
скприпт вот:
// Ядро от mks.
// Модификация ядра от HORSE.
// Конечный продукт от dev.
//
http://coderx.ru/showthread.php?t=1684
// Настройики
const
characterName='SyMaSvoD'; // Имя персоонажа
useEnchant=hstr('14 C6 E5 15 10 00 00 00 00'); // [0x19 (UseItem)]
requestEnchant=hstr('58 D1 59 27 10'); // [0x5F (RequestEnchantItem)]
itemID=889; // ID предмета [0x21 (InventoryUpdate)]
enchant=11; // До сколько скрипт должен заточить указанный предмет
speed=150; // Скорость заточки
start=2; // Соц. действие hello, запускает скрипт
stop=3; // Соц. действие victory, остонавливает скрипт
// Ниже ничего можно не трогать
var
timer:TTimer;
x:byte;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=speed;
timer.OnTimer:=@fireTimer;
timer.enabled:=false;
x:=1;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
case x of
1:begin
buf:=useEnchant;
SendToServerEx(characterName);
inc(x);
end;
2:begin
buf:=requestEnchant;
SendToServerEx(characterName);
x:=1;
end;
end;{case}
end;
begin
if FromClient then
begin
case pck[1] of
#$34: begin
if (ReadD(2)=start) then timer.enabled:=true;
if (ReadD(2)=stop) then timer.enabled:=false;
end;
end;
end;
if FromServer then
begin
case pck[1] of
#$21: begin
if (ReadD(12)=itemID) and (ReadD(34)=Enchant) then timer.enabled:=false;
end;
end;
end;
end.