Проблема со скриптом

[lSiml]

Проблема заключается в том что скрипт на автозаточку от TAMBIK который точит вещи по +1 к вещи не работает на некоторых серверах ИЛ где точки сделаны в 1 ячейку, причем ошибка заключается в том что скрипт пишет что "не найдет предмет для заточки" хотя лежат 2 одинаковых предмета, заточка до максимального уровня работает без проблем...
подскажите кто что думает.

[Pinko]

не работает на некоторых серверах ИЛ где точки сделаны в 1 ячейку,
ТАМ РОБИТ А ТАМ НЕ?????????????????
ОТВЕТ МОЖ СКРИПТ ПОД СВОЙ СЕРВ НАСТРОИТЬ

[Nickers]

http://coderx.ru/showthread.php?t=8594
Вот полезная тема по данному вопросу.

Добавлено через 7 минут
Const
Name='Nickers'; //Имя
interval1=444; //Интервал, сука
Max=250; // Кол-во ячеек в инвентаре
Ench=65; //На скок точить.
EnchItemMax=20; // Макс. Кол-во вещей для точки.
//---------------------------------------------
Var
ItemEnchList : array [1..EnchItemMax] of integer;
ItemBase : array[1..4,1..max] of integer; //ItemOID, ItemID, Kol-vo, ItemLvl
ICurOID, SCurOID, min1, ICurID: integer;
i, j, u, y, d, n, o, o1: Word;
min, min2, ItemNum: Byte;
z, L: boolean;
Timer01: TTimer;
num: string;


//================================================== ===========//
procedure Init; //Вызывается при включении скрипта
//----------------------------------------------------------
begin
n:=0; i:=0; min:=0; min2:=0;
L:=true; z:=true;
o:=1; o1:=1;
for i:=1 to EnchItemMax do ItemEnchList:=0;
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=interval1;
buf:=#$0F;
SendToServerEx(Name);
end;
//================================================== ===========//

procedure Free; //Вызывается при выключении скрипта
begin
Timer01.free;
end;

procedure SendMsg2(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);// ID Чата
WriteS('');
WriteS(msg);
SendToClientEx(Name);
end;

procedure OnTimer01(Sender: TObject);
begin //Проверка Энчант лвл'а
ICurID:=ItemEnchList[o1];
if GetItem(ICurOID, 1, 4)>=Ench then ICurOID:=EnchantDone;
z:=false;
if L then begin
L:=false;
buf:=#$14;
WriteD(SCurOID);
WriteD(0);
SendToServerEx(Name);
end
else
begin
L:=true;
buf:=#$58;
WriteD(ICurOID);
SendToServerEx(Name);
end;
if GetItem(ICurOID, 1, 4)>min then min:=GetItem(ICurOID, 1, 4);
end;

function EnchantDone : integer;
begin
for u:=1 to max do
if (ItemBase[2,u]=Getitem(ICurID, 1, 2)) and (ItemBase[4,u]<Ench) then begin
result:=ItemBase[1,u]; // itemOID
exit;
end;
result:=ItemEnchList[o1];
EnchList;
end;

procedure EnchList;
begin
o1:=o1+1;
ICurOID:=ItemEnchList[o1];
SendMsg2('Точю всё с ID '+IntToStr(GetItem(ICurOID, 1, 2)));
if o1>o then
begin
Timer01.enabled:=false;
SendMsg2('Типо все.');
end;
end;

procedure CreateItemBase;
var
i, j, ListCount: Word;
begin
for i:=1 to max do begin
//очищаем масив
ItemBase[1,i]:=0; //OID
ItemBase[2,i]:=0; //ID
ItemBase[3,i]:=0; //kol-vo
ItemBase[4,i]:=0; //lvl
end;
j:=4;
ListCount:=ReadH(j);
j:=8;
for i:=1 to ListCount do begin
itemBase[1,i]:=ReadD(j); //OID
itemBase[2,i]:=ReadD(j); //ItemID
itemBase[3,i]:=ReadD(j); //кол-во
inc(j,10);
itemBase[4,i]:=ReadH(j);//EnchantLevel
inc(j,12);
end;
end;
//......................................
//************************************************** ****************************
procedure InventoryUpdate; //пакет 27, обновляет базу ObjectID по ItemID
var
OID, Count, UpdType: integer;
lvl, ListCount, ID, i, ii, j: Word;
add : boolean;
begin
add:=false;
ListCount:=ReadH(2);
j:=4;
for ii:=1 to ListCount do begin
add:=false; //Ели додумался изза чего не добавляет сразу несколько предметов в базу
UpdType:=ReadH(j);
ReadH(j); //ItemType1
OID:=ReadD(j); //ObjectID
ID:=ReadD(j); //ItemID
Count:=ReadD(j); //кол-во
inc(j,10);
lvl:=ReadH(j);
case UpdType of
1: begin
for i:=1 to max do begin
if (ItemBase[1,i]=0) and (add=false) then begin
ItemBase[1,i]:=OID;
ItemBase[2,i]:=ID;
ItemBase[3,i]:=Count;
ItemBase[4,i]:=lvl;
add:=true;
end;
end;
end;
2: begin
for i:=1 to max do begin
if ItemBase[1,i]=OID then begin
ItemBase[3,i]:=Count;
ItemBase[4,i]:=lvl;
end;
end;
end;
3: begin
for i:=1 to max do begin
if ItemBase[1,i]=OID then begin
ItemBase[1,i]:=0;
ItemBase[2,i]:=0;
ItemBase[3,i]:=0;
ItemBase[4,i]:=0;
end;
end;
end;
end;
inc(j,10);
end;
end;

function GetItem(ID, FieldIn, FieldOut : integer) : integer;
var
y : Word;
begin
for y:=1 to max do
if ItemBase[FieldIn,y]=ID then begin
result:=ItemBase[FieldOut,y]; // itemOID
exit;
end;
result:=0;
end;

begin

if FromClient and (pck[1]=#$14) and z then
begin
ItemEnchList[o]:=ReadD(2);
SendMsg2(IntToStr(o)+'. ID '+IntToStr(GetItem(ReadD(2), 1, 2))+' (Запомнен)');
o:=o+1;
end;

if FromClient and (pck[1]=#$58) and z then
Begin
SCurOID:=ItemEnchList[o];
ItemEnchList[o]:=0;
o:=o-1;
ICurOID:=ItemEnchList[1];
Timer01.enabled:=true;
end;

if FromServer and (pck[1]=#$64) and (ReadD(2)=1517) and (min2<>min) then
begin
min2:=min;
SendMsg2('Лучшая попытка на '+IntToStr(ICurOID)+' пока: +'+IntToStr(min));
end;

if FromServer and (ConnectName=Name) then
case pck[1] of
//......................................
//Пакет ItemList
#$1B: CreateItemBase; //создание базы предметов
//......................................
#$27: InventoryUpdate; //Обновление базы
end; //end от case!!!

end.

[I]Добавлено через 2 минуты
Вот этот треш - мой скрипт, для серверов без шифрации и со скроллами в 1й ячейке. Если не работает, то я кинул не ту версию скрипта, а правильную я хрен сейчас найду...

[EmL]

хех ну тут ответ 1) переделывать епт)

[Nickers]

Мой скрипт для C6, ибо там нет грязных камаелей!!! \Ё