Кружок нубов(Вопрос-Ответ)

[mks]

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

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

нельзя

[alexteam]

написано на коленке, могут быть ошибки синтаксиса (я не ходячий компилатор и спеллчеккер) но идея понятна.

var
itemcount:integer;//  - колво вещей в очереди при инициализации скрипта установить равным нулю.!!
itemarray:array[0..255] of integer;

Function GetItemIdAndMove(index:integer):integer;
var
 i:integer;
begin
  result := 0;
  if index >= itemcount then exit;
  result := itemarray[index];
  i := index;
  while i < itemcount -1 do
  begin
    itemarray[i] := itemarray[i+1];
    inc(i);
  end;
  itemarray[i] := 0;
  dec (itemcount);
end;

procedure additemtoarray(itemobjid:integer);
begin
itemarray[itemcount] := itemobjid;
inc(itemcount);
end;

использование.
добавить:
additemtoarray(обжектайди вещи.)

подымать:
var
PickupItemId : integer
begin
pickupitemid := GetItemIdAndMove(0); //получаем первый элемент массива и смещаем все последующие
if pickupitemid <> 0 then
begin
//подымаем тут. ориентируясь на pickupitemid
end;

[Yegor]

alexteam, а что Length(массив) не работает?

[NLObP]

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

alexteam, а что Length(массив) не работает?

Работает. Видел скрипт на форуме с его использованием.

[alexteam]

itemarray:array[0..255] of integer;
Length(itemarray) = const 256 ?

Добавлено через 1 минуту
и не забывай. я индус -)

[Yegor]

alexteam, тогда сделал бы динамический массив. А вдруг дропа много будет.

[alexteam]

я бы вообще на tlist и классах делал...

[Yegor]

alexteam, где на фаст скрипт? он разве классы поддерживает?

[alexteam]

Yegor, врядли я стал бы писать чтото серьезное на ФС. -)

[TAMBIK]

где то на сайте нашел скажите на примере как пользоваться

Предлагаю расширенный вариант функции "Пауза". При котором можно независимо вызывать несколько пауз в разных местах скрипта.
Код:

// пауза в секундах
function Wait(var tick: integer; Timewait: Integer): Boolean;
var
  t: integer;
begin
  result:=false;
  t:=Round(Time*86400);
  if t>(tick+Timewait) then begin
    if tick>0 then result:=true;
    tick:=t;
  end;
end;