Показать сообщение отдельно
Старый 12.12.2010, 13:35   #2
Новичок
 
Регистрация: 25.09.2010
Сообщений: 7
Сказал Спасибо: 6
Имеет 1 спасибку в 1 сообщении
Gray314 пока неопределено
По умолчанию

Добрый день...Меня заинтересовал твой скрипт, но к сожелению он че-то неработает, и скорей всего из-за различий хроник. Я играю на Freya..
Скрипт выдает ошибку "не установлены параметры или нет предметов! ", и я принципе знаю где она возникает, поидее в процедуре ИтемЛист. Я использую скрипт для заточки от TAMBIK, у меня там тоже была подобная ошибка, то ли предметов не видел, то ли не верно их распозновал. NLObP посоветовал в процедуре ИтемЛист его скрипта закоментить первую строчку, т.е. сделать так:
Код:
procedure ItemList;
var
  i, j, k: integer;
  count,x:integer; 
 begin
 deleteBase;
   count:=0;
   x:=0;
   y:=0;
   j:=4; 
  ListSize:=ReadH(j); 
   count:=round((Length(pck)-5) / ListSize);
  for i:=1 to ListSize do
  if (i<=ListSize) then begin
  //BaseItems[i,1]:=ReadH(j);     <------------------------------------------
  BaseItems[i,2]:=ReadD(j);//ObjectID
  BaseItems[i,3]:=ReadD(j);//ItemID
  BaseItems[i,4]:=ReadD(j);//LocationSlot
  BaseItems[i,5]:=ReadD(j);//  Amount: 
  BaseItems[i,6]:=ReadD(j);//  Amount: 
  BaseItems[i,7]:=ReadH(j);//ItemType2
  BaseItems[i,8]:=ReadH(j);// CustomType1
  BaseItems[i,9]:=ReadH(j);//isEquipped: 
  BaseItems[i,10]:=ReadD(j);//BodyPart
  BaseItems[i,11]:=ReadH(j);//EnchantLevel
   inc(x); 
  y:=count*x-(j-6);
   inc(j,y); 
 end else for k:=1 to 11 do BaseItems[i,k]:=0; 
 if start then addenchantitemID;
  skrolObject:=0; 
  sumskrol:=0;
  sumskroll:=0;
   minlvl:=Baselvl[1];
   for ii:=2 to index do   
 if (Baselvl[ii] < minlvl) then  
    minlvl:=Baselvl[ii];// мин заточка 
//------------------------------
if start and selectskrol and (selectblessedskrol=false) then enchantSkroll;
//------------------------------
if start and selectblessedskrol and (selectskrol=false)  then enchantblessedskroll;
//------------------------------
if start and selectskrol and selectblessedskrol then enchantautoSelectSkroll;  
  end;
и после чего все стало заработать. По аналогии я попытался сделать тоже самое но у меня ниче не получилось... Если согласишься помочь, то я выложу ЛОГи пакетов на агументацию...
Заранее благодарен!!!

Добавлено через 21 час 26 минут
По совету NLObP, в теме АвТОзаТоЧкА, пост #125. Расчитал смещение, оно получилось равным 36. Исправил значение в скрипте, но опять же результат нулевой...((




скачал свежую версию скрипта Vilson Augment_3, но всеровно ошибка никуда не делась.. может кто-то все таки сможет мне помочь?(

Последний раз редактировалось Gray314, 14.12.2010 в 15:54. Причина: Добавлено сообщение
Gray314 вне форума   Ответить с цитированием