Разрабатываю скрипт кристаллизации... и столкнулся с рядом проблем :
PHP код:
const
ItemID = 12098; // ItemID шмотки
MyName='Gaubica'; //<-- пишем ник своего чара
InventorySize = 100; //<-- количество ячеек в рюкзаке
//InventoryOffset = 22; //<-- смещение для листа инвентаря, если у вас не определяет инвентарь поменяйте на 26 или какое там на вашем ГФШ
//----------------------------------------------------------------
var
ItemBase: array of Int64;
Crystal: boolean;
BaseItems : array[1..InventorySize,1..22] of Int64;
x:longint;
//----------------------------------------------------------------
procedure Init; //Вызывается при включении скрипта
var
i,k: Int64;
begin
for i:=1 to InventorySize do for k:=1 to 22 do BaseItems[i,k]:=0;
Crystal:=false;
SendMsg1('Начало инициализации скрипта, откройте инвентарь');
end;
//-----------------------------------------------------------------
procedure Free; //Вызывается при выключении скрипта
begin
break;
end;
//------------------------------------------------------------------
procedure SendMsg1(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClientEx('Gaubica');
end;
procedure ItemList;
var
i, j, k: Int64;
ListSize: Int64;
begin
j:=4; //пропускаем дo ListSize
ListSize:=ReadH(j);
//SendMsg1('--'+inttostr(ListSize));
for i:=1 to ListSize do
if (i<=ListSize) then
begin
BaseItems[i,1]:=ReadH(j); //ItemType1
BaseItems[i,2]:=ReadD(j); //ObjectID
BaseItems[i,3]:=ReadD(j); //ItemID
BaseItems[i,4]:=ReadD(j); //LocationSlot
BaseItems[i,5]:=ReadQ(j); //Amount:
BaseItems[i,6]:=ReadH(j); //ItemType2
BaseItems[i,7]:=ReadH(j); //CustomType1
BaseItems[i,8]:=ReadH(j); //isEquipped:
BaseItems[i,9]:=ReadD(j); //BodyPart
BaseItems[i,10]:=ReadH(j); //EnchantLevel
BaseItems[i,11]:=ReadH(j); //CustType2
BaseItems[i,12]:=ReadD(j); //AugmentationID
BaseItems[i,13]:=ReadD(j); //mana
BaseItems[i,14]:=ReadH(j); //attackelement
BaseItems[i,15]:=ReadH(j); //attackelementpower
BaseItems[i,16]:=ReadH(j); //firedefelementpower
BaseItems[i,17]:=ReadH(j); //waterdefelementpower
BaseItems[i,18]:=ReadH(j); //winddefelementpower
BaseItems[i,19]:=ReadH(j); //earthdefelementpower
BaseItems[i,20]:=ReadH(j); //holydefelementpower
BaseItems[i,21]:=ReadH(j); //unholydefelementpower
BaseItems[i,22]:=ReadD(j); //remindingtime
end;
end;