Расчитано на пвп серваки и изобилие блес точек...
Использование: включаем скрипт, включаем скрипт << СМОТРЕТЬ
забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку. 1е соц действие << СМОТРЕТЬ
Скорость заточки выставлена 500мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака...
Купил Династи Неклю...точил с 0 до 4 вроде...
Только я не могу понять как вы в той "матрице" что то розберете...
Глянул лог. Сервак я понял Грация, ID пакетов изменены.
Код:
Tип: 0x0C (UseItem)
Pазмер: 9+2
Время прихода: 23:17:40:921
0002 d ObjectID: 431973704 (0x19BF6548)
0006 d ?: 0 (0x00000000)
Tип: 0x65 (RequestEnchantItem)
Pазмер: 9+2
Время прихода: 23:17:50:531
0002 d ObjectID: 431973704 (0x19BF6548)
0006 d ?: 0 (0x00000000)
в пакете
Код:
Tип: 0x87 (EnchantResult)
Pазмер: 13+2
Время прихода: 23:17:50:921
0002 d Result: 3 (0x00000003)
0006 d Result: 3 (0x00000003)
0010 d Result: 3 (0x00000003)
по крайней мере до +3 видно соответствие увеличения до 3 и сброс в 0 после фейла. Так что приведенный тобой скрипт должен работать, только надо ObjectID смотреть чтобы правильные были.
PS: А ещё лучше поменять в скрипте от mks на это
Код:
if FromServer and (pck[1]=#$87) then CurrentEnch:=ReadD(2);
if FromClient and (pck[1]=#$0C) then UseItem:=pck;
if FromClient and (pck[1]=#$65) then EnchantItem:=pck;
Скрипт mks у меня пашет...но как то корявенько...
А мой скрипт тоже пашет, но как я говорил, я не знаю как пакетом указать степень заточки и скрипт точит,ломает до тех пор пока не скончаться точки....мне посоветовали сделать с таймером, но я увы в этом не могу розобраться...не получаеться=(((
я наблюдал за процесом точки...вот та подчеркнутая цыфра означает уровень точки шмотки...а тогда какой пакет будет "пакетом ограничения точения"???
Добавлено через 20 минут
PS: А ещё лучше поменять в скрипте от mks на это
Код:
if FromServer and (pck[1]=#$87) then CurrentEnch:=ReadD(2);
if FromClient and (pck[1]=#$0C) then UseItem:=pck;
if FromClient and (pck[1]=#$65) then EnchantItem:=pck;
[/quote]
Последний кусок скрипта поменять???
Тогда же мне кажеться придеться крутить структуру скрипта,дописать переменные...или же ент??
Последний раз редактировалось HORSE, 08.06.2009 в 14:03.
Причина: Добавлено сообщение
я играю на l2rx.com l2pbx работет нормально видит пакеты и тдт но когда я в скрипт вписываю свойо имя и нажымаю выполнить получаю пару сек лагает потом дисконект ето фикс ?
Tип: 0x21 (InventoryUpdate)
Pазмер: 77+2
Время прихода: 15:48:20:078
0002 h Count: 1 (0x0001)
[Начало повторяющегося блока 1/1]
0004 h UpdateType: 2 (0x0002)
0006 h ItemType1: 0 (0x0000)
0008 d ObjectID: 431973704 (0x19BF6548)
0012 d ItemID: Ожерелье Династии ID:9456 (0x24F0) (0x000024F0)
0016 d LocationSlot: 1 (0x00000001)
0020 d Quantity: 1 (0x00000001)
0024 h ItemType2: 2 (0x0002)
0026 h CustomType1: 0 (0x0000)
0028 h Equipped: 0 (0x0000)
0030 d BodyPart: 8 (0x00000008)
0034 h EnchantLevel: 4 (0x0004)
0036 h CustType2: 0 (0x0000)
0038 d AugmentationBonus: 0 (0x00000000)
0042 d Mana: -1 (0xFFFFFFFF)
0046 d AttackAttrElement: -2 (0xFFFFFFFE)
0050 d AttackAttrElementVal: 0 (0x00000000)
0054 d DefAttrFire: 0 (0x00000000)
0058 d DefAttrWater: 0 (0x00000000)
0062 d DefAttrWind: 0 (0x00000000)
0066 d DefAttrEarth: 0 (0x00000000)
0070 d DefAttrHoly: 0 (0x00000000)
0074 d DefAttrUnholy: 0 (0x00000000)
[Конец повторяющегося блока 1/1]
Примерно так
Код:
if FromServer then
begin
case pck[1] of
#$21: begin //InventoryUpdate
if (ReadD[12]=ID_предмета) and (ReadD[34]=уровень заточки) then что_хотим_сделать;
end;
end;
решил всё таки добить свой скрипт...
но у меня ругаеться на end. в конце...
ЧТо я сделал не так???
PHP код:
const
Name='HORSE';
var
timer:TTimer;
x:byte; //определение, какоде действие по счету мы совершаем
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=150;
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
x:=1;//сначала х=1
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
case x of
1:begin
buf:=hstr('5F 48 65 BF 19 00 00 00 00 ');
SendToServerEx(Name);
inc(x);
end;
2:begin
buf:=hstr('5F 48 65 BF 19 00 00 00 00 ');
SendToServerEx(Name);
x:=1;
end;
end;{case}
if FromServer then
begin
case pck[1] of
#$21: begin //InventoryUpdate
if (pck[12]=9456) and (pck[34]=5) then timer.enabled:=false;;
end;
end.
Добавлено через 5 минут
Цитата:
Сообщение от NLObP
Да, просто поменяй как написано.
ох я как поменял...нажал соц действие как полезли окна в Пакетнику...это было штото...
Дело в том что у меня скрипт mks оч переборчивый...или это из за серва или из за серва...ставишь значение +7 первый раз оно точит на +7...но когда точнул что то другое на +1 - нажал ХЕЛЛО то оно уже точит на +8...может потому что в системном окошке пишет- улучшение предмета на +7 было успешно произведено?!)))
Последний раз редактировалось HORSE, 08.06.2009 в 19:29.
Причина: Добавлено сообщение