Работа с массивом. запись чтение

[TAMBIK]

alexteam,
я так для примера
насчет ошибок х..р с ними
что здесь делать . добавить
что нехватает
//<<<<<=== ЧТО ТО НАДО

[alexteam]

как то так.
result - результат функции.
его так же можно использовать как локальную переменную.

// СКОЛЬКО предметов с itemID
//-------------------
function GetsumitemID(itemID:integer) : integer;
var
  i : integer;
begin
  Result := 0; //В начале у нас 0 вещей.
  for i:=1 to max do
    if (BaseItems[i,3]=itemID) then 
      inc(result, BaseItems[i,5]);
end;

// СКОЛЬКО предметов с itemID и Maxlvl
//---------------------
function GetsumMaxlvl(itemID,Maxlvl:integer) : integer;
var
  i : integer;
begin
  result := 0;
  for i:=1 to max do
  if (BaseItems[i,3]=itemID) and (BaseItems[i,10]=Maxlvl) then
  inc(result, BaseItems[i,5]);
end;

Добавлено через 2 минуты
кстати... рекомендации - называй переменные своими именами... ибо через неделю ты сам не разберешся в своем же скрипте %)
я про то что у тебя EnchantLevel так же Maxlvl ну и в этом духе..

[alexteam]

функции, если грубо = переменные


if func1(params1) < func2(params2) then

равносильно

value1 := func1(params1);
value2 := func2(params2);
if func1(params1) < func2(params2) then

вторая конструкция рекомендуеться к использванию если вызываемая функция содержит циклы либо какието сложные расчеты а функция ее вызывающая использует целевую несколько раз. (ибо лучше пожертвовать памятью чем цп)

[TAMBIK]

var
     ItemBase:array[1..100] of integer;// создали массив
     objectID:integer;
     i: integer;

procedure Init; //Вызывается при включении скрипта
begin
end;
// при приходе пакета
begin
     if FromServer and (pck[1]=#$21)  and (ReadD(12)= itemID) then begin
          // при условии
          if  условие then
               // записать  objectID в массив
               objectID:=ReadD(8);
               for i:=1 to 100 do begin
                    if (ItemBase[i] == 0) then begin
                                            // как  ЗАПИСАТЬ ?
                         ItemBase[i]:= objectID;  // да просто :)
                         Break;  // прерываем дальнейший перебор массива.
                    end;
               end;
         end;
     end;

как мне на примере этого скрипта
добавить функцию чтения из массива objectID
т.е находим ячейку с записью № 1 objectID
провожу действия какие мне надо с objectID
при выполнение определенного условия :
искать запись № 2 также провожу действия и т.д

[alexteam]

12й пост поправить

Function ObjIdInArray(value:integer):integer;
var
i : integer;
begin
  i := 0;
  result := -1;
  while (i < itemcount) do 
  begin
    if itemarray[i] = value then 
      begin
        result := i;
        exit;
      end;

    inc(i);
  end;
end;

использовать

var
itempos : integer;
begin
SearchItemPos := 0;

itempos := ObjIdInArray(itemobjectid, startpos);//получаем номер ячейки в массиве итемаррай с указаным обжектайди

if itempos <> -1 then //если номер ячейки не равен -1 т.е. ячейка была найдена
  begin 
    blablabla с itemobjectid 
  end;

end;

[pascalpwnz]

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

а проще просто брать из массива
запись 1
запись 2
и т.д как это сделать?

эээм... бртаь из массива ? ну

begin

 for i:=1 to 100 do
  begin
   if mas[i]=... then  // i - номер записи
    ...   
  end;

end.

[TAMBIK]

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

мая твая не панимает...

брать запись не с чем не сравнивать и использовать.
записи последовательно должны использоваться.
когда мне надо я использую запись 1
потом запись 2
потом запись 3
и т.д

[pascalpwnz]

Ну так обращайся к записи по номеру mas[1] , mas[2] , mas[3] и делай что надо...

[TAMBIK]

  BaseItems[i,1]:=ReadH(j);  
      BaseItems[i,2]:=ReadD(j);  
      BaseItems[i,3]:=ReadD(j);  //ItemID
      BaseItems[i,4]:=ReadD(j);  
      BaseItems[i,5]:=ReadD(j);  //Amount: 
               j:=j+4;         
      BaseItems[i,6]:=ReadH(j);
      BaseItems[i,7]:=ReadH(j);
      BaseItems[i,8]:=ReadH(j);
      BaseItems[i,9]:=ReadD(j);
      BaseItems[i,10]:=ReadH(j);//EnchantLevel

в массиве есть
1. несколько одинаковых предметов
2. несколько разных предметов
с разными уровнями заточки.
Как найти минимально заточеный предмет для 1 случая и для 2 ?

[alexteam]

Function GetMinEnchantedItemByItemId(itemid : integer):integer;
var
  i, MinFound : integer;
begin
  minfound := $ffff;
  result := -1;
  i := 0;
  while i < колличесвоэлементоввмасивеBaseItems do
  begin
  if (BaseItems[i,3] =  itemid) and (BaseItems[i,10] < MinFound) then
    begin
      MinFound := BaseItems[i,10];
      result := i;
    end;
  inc(i);
  end;
end;

поиск минимально заточеного предмета по итемайди.

var
index : integer;
begin
index := GetMinEnchantedItemByItemId(itemid);
if index >= 0 then
  begin
  //используем BaseItems[index,1..10]
  end;
end;

.... BaseItems[index,10] ?