Скрипт на заточку

[NLObP]

Q:Как точить одну вещь?
A:В скрипте найди процедуру

procedure OnTimer(Sender: TObject);
begin
...

в ней найди

  if (sumitem(ItemID)<=1) then begin
//  if (sumitem(ItemID)<=0) then begin //если надо точить одну вещь

измени на

//  if (sumitem(ItemID)<=1) then begin
  if (sumitem(ItemID)<=0) then begin //если надо точить одну вещь

и сохрани. Станет точить только одну вещь.

[Silverlight Guest]

NLObP, пасиба большое. Но возникла проблема. У меня не видно никакого оружия. =( Может это связано с ITem Id.ini в программе? ( Помогите, пожалуйста.

Да это связанно с itemid.ini. Я так понимаю не вижно оружия ikarus итп веще которые не предусмотрены в чистом La2 а добавлены админами со сторонних сайтов. тч добавлять придется самому или просто на угад(как я)

[Витя]

Сообщение от NLObP

Цитата:
Сообщение от Pitkin Посмотреть сообщение
Есть ли возможность в скрипте сделать так,чтобы количество заточеных предметов оставалось не 1 шт а то скока мне нуна.Подскажите плиз чего нуна поддправить в срипете для этого
Для этого нужна только удача.

Питкин найди в скрипте вот такую страку if (sumitem(ItemID)<=1) then begin и меняй цифру и все

[LBEST]

Variant or safe array index out of bounds.
Как с этим бороца помогите плиз!!!

[Pitkin]

Использую скрипт на заточку от Shadow и получается следующее: при старте скрипта всё идёт нормально,заточки закупаются автоматом.Но как только доходит очередь до закупки оружия то сразу в логе выдаёт то что на картинке. После чего клиента(С4) сразу вырубает через дисконект,а пакетхак виснет...Как можна поправить это дело??? Подскажите плиз

[Shadow]

Сообщение от Pitkin

Использую скрипт на заточку от Shadow и получается следующее: при старте скрипта всё идёт нормально,заточки закупаются автоматом.Но как только доходит очередь до закупки оружия то сразу в логе выдаёт то что на картинке. После чего клиента(С4) сразу вырубает через дисконект,а пакетхак виснет...Как можна поправить это дело??? Подскажите плиз

Закупка толком не сделана, так что увы. К тому же тестировал только на С6.

[wanick]

зависает потомучто для Item -ов где покупать описано только вот

if ItemID=4707 then begin
  ItemListID:=576;
  ItemEntryID:=3;
  BuyItemCount:=1;
  ItemName:=('Coin of Luck');
  ItemPrice:=1000000;
 end;

у мня для Арки

if ItemID=4707 then begin
  ItemListID:=558;
  ItemEntryID:=13;
  BuyItemCount:=1;
  ItemName:=('Arcana Mace [acumen]');
  ItemPrice:=1;
 end;

вобще чтоб не парится с прописыванием всех параметров для точек для пушек и вобще для выбора Npc , можно столеть контрольные закупки , типа пишет выбирите NPc , хоп id запомнили дальше выбирите диалог закупки точек... купите точку
и также с пушкой
потом кнопка старт и поперли .

[Pitkin]

Чёрт побери!!!!!!!У меня заработала автозакупка оружия!!!!спс wanick за то,что подсказал где копать!!!Действительно подставил в эти строчки:

if ItemID=4707 then begin
ItemListID:=558;
ItemEntryID:=13;
BuyItemCount:=1;
ItemName:=('Arcana Mace [acumen]');
ItemPrice:=1;
end;

свои значения и всё пошло как нуна!!!

[Shadow]

NLObP, не могу понять почему происходит так:
В таймере есть проверка на поломки,

procedure OnTimer(Sender: TObject);
begin
 if (Adena<=99000000) then begin
  timer.Enabled:=False;
  stats.Lines.Add('Деньги закончились! Меняем...');
  if CheckAutoChange.Checked then Change.Enabled:=True else exit;
 end;
 ScrollOID:=GetItem(ScrollID,0);
 if (ScrollOID<3) then begin
  stats.Lines.Add('Свитки закончились! Покупаем...');
  timer.enabled:=False;
  //***** Закупка заточек *
  TargetAttacker(RoyOID);
  BuyScroll;
  BuyScroll;
  BuyScroll;
  //***********************
  delay(50);
  timer.enabled:=True;
 end;
 UseItem(ScrollOID);
 msg.Lines.Add('Задействовали скролл ScrollID='+IntToStr(scrollID)+' ScrollOID='+IntToStr(ScrollOID));
 ready:=true; //готовы затачивать
 if (CurEnchLvl>=StrToInt(Edit1.Text)) then begin
  stats.Lines.Add('Sum '+IntToStr(SumItem(ItemID))+' lvl'+IntToStr(CurEnchLvl)+' Ed'+(Edit1.Text));
  timer.enabled:=false;
  //Пакет RequestItemList
  buf:=hstr('0F');
  SendToServerEx(Name);
  delay(50);
  stats.Lines.Add('Достигнут требуемый уровень! Закупаем...');
  stats.Lines.Add('Свободно слотов: '+IntToStr(EmptySlots));
  if (EmptySlots>0) then begin
   ButtonBuyItems.Enabled:=True;
   ButtonBuyItems.Caption:=((ComboBoxItem.Text)+': '+IntToStr(EmptySlots)+'шт.');
  end;
  if CheckAutoBuy.Checked then Shops.Enabled:=True else exit;
 end;
 if (SumItem(ItemID)<=StrToInt(EditKeepItems.Text)) then begin
  timer.enabled:=false;
  stats.Lines.Add('Ограничение по поломкам - '+(EditKeepItems.Text)+'! Закупаем...');
  if CheckAutoBuy.Checked then Shops.Enabled:=True else exit;
 end;
 EditItemVal.Text:=IntToStr(SumItem(ItemID));
 EditScrollVal.Text:=IntToStr(SumItem(ScrollID));
end;

и как я понимаю даже при команде timer.Enabled:=False; цикл таймера всеравно доходит до конца. Поэтому я переставил функцию заточки ДО проверки условий, чтобы проверялось уже после заточки. Иначе получается что по условию нужно оставить к примеру 9 штук, условие останавливает таймер, но таймер доходит до конца где еще раз затачивает эту последнюю штуку, которую с успехом может сломать. Вроде бы так должно работать нормально...
НО.
Заметил что он всеравно после того как сработало условие, и собственно перед тем как начинается закупка, он точит еще одну штуку. А если она ломается, то сводится на нет весь предыдущий цикл заточки.
От чего так происходит?

[Shizo]

Что нада добавить в скрипт, чтобы он каждые 3000 мсек отпрвлял пакет который я ему задам
например (что нада сюда добавить)

begin
buf:=hstr('ХХ ХХ ХХ ХХ');
SendToServer;
buf:=hstr('Х1 Х1 Х1 Х1');
SendToServer;
end;

потом как привязать сюда остановку по нажатию *1*
например вот это

begin
if FromClient and (ConnectName=Name)and (pck[1]=#$38) then
if (pck[2]=#$31) and (pck[3]=#$00) then
begin
pck:='';
bStop;
exit;
end;

или луче не 1 а пакет от сервера например *Соц.Да*
('5A 06 00 00 00')