Кристаллизация

[klizmabeqa1992]

cod:

 

//----------------------------------------------------------------

const

  ItemID = 9455; // ItemID шмотки

  myname = 'ник;

//----------------------------------------------------------------

var

  ItemBase: array of integer;

  Crystal: boolean;                                           

  //------------------------------------------------------------------

procedure SendMsg2(msg:string);

begin

  buf:=#$4A;

  WriteD(0);

  WriteD(10);

  WriteS('');

  WriteS(msg);

  SendToClientEx(myname);

end;

//----------------------------------------------------------------

procedure Init; //Вызывается при включении скрипта

begin

  SendMsg2('Начало инициализации скрипта, откройте инвентарь' );

  Crystal:=false;

end;

//-----------------------------------------------------------------

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

begin

 

end;

 

//----------------------------------------------------------------

procedure CreateItemBase; //Создает базу ObjectID и ItemID, опять же не проверяет пакет на правильность для экономия ресурсов

var

  i,j: integer;

begin

  j:=8;

  SetLength(ItemBase,int((length(pck)-5)/14)); //1ый байт - идентификатор пакета, следующие 4 байта хз, далее для каждого итема отводится 28 байт, размер массива должен быть в 2 раза больше, чем итемов.