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

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[mks]

SeregaZ, а не проще добавить условие типа, если ид=0 то ниче подбирать не надо и переходить к следующему элементу массива

[TAMBIK]

TAMBIK,

искал так и не нашел
где то встречал описание функции для вызова
паузы в любом месте скрипта
может кто эту функцию мне опишет и на
примере покажет как действует.

Yegor,

TAMBIK, паузу делать в теле скрипта нельзя ни в коем случае. Нужно просто сравнивать время и по нему ориентироваться выполнять команду или нет. Посмотри как реализована задержка в старом скрипте на здачу манора.

а вот что я нашел

Таймер со сквозным проходом
Если ставить sleep() то скрипт останавливается на время, но и пакеты тоже не принимаются и не отправляются, так вот эта функция позваляет избежать этого
Код:

//(c)dmitry501 
var
 tick: Integer;

procedure Init;
begin
end;
function Pause(Timewait: Integer):Boolean;
// сквозная проверка без остановки скрипта (c)dmitry501
  var
    t : integer;
  begin
    result := false;
    t := Round(Time*86400);
    if  t > (tick + Timewait) then
      begin
        tick := t;
        result := true;
      end;
  end;

пример использования
Код:

  if   (NoEarned=1) and pause(2) then //+ 2 секунды ожидания 
          begin
                ...........
          end;

[ake1a]

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

[mks]

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

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

нельзя

[Yegor]

SeregaZ, какой ты массив используешь?
Если свой обычный то напиши функцию которая будет удалять эелемент массива и сразу эе делать сдвиг, это легко.
Можешь для массива использовать класс TstringList там есть методы добавления, изменения, удаления элемента массива, но правда тогда данные для каждого дропа прийдеться либо хранить в объекта или преоброзовывать все данные в строку. А свои классы наверно фаст скрипт не поддерживает, поэтому сделай как я написал вначале.

Добавлено через 12 минут
TAMBIK, это и есть сравнение с текущем временем, только недостаток в том что ты такую паузу должен вызывать только в 1 месте за проход не больше. Если паузы поанируеться ставить в разных местах то надо ещё добавить что то вроде pauseid. И не везде так удобно будет делать. Если ты делаешь на пакетхаке что то сложнее чем блокировка и модификация неукоторых пакетов советую поставить делфи и писать скрипт в виде длл модуля для пакет хака. Там создашь отдельный поток для выполняемого действия и можно лепить обычную паузу в виде Sleep(xxxx).

[SeregaZ]

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

SeregaZ, а не проще добавить условие типа, если ид=0 то ниче подбирать не надо и переходить к следующему элементу массива

и образуется утечка памяти. представляешь что будет через час-два-три после старта скрипта? индекс в массиве будет ууууууууууууу... а сам масив просто огромный

будем думать дальше.

[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(массив) не работает?

[alexteam]

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

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

[NLObP]

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

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

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