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

[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.

где я ошибся?

[Yegor]

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

[alexteam]

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

[Yegor]

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

[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;

[ake1a]

_Юзаю L2PacketHack v.l2phx.3.5.15.126.... сервер la2 Gracia Final... Использую скрипт на автоматизацию заточки от "Mks" - работает скрипт отлично... НО! .......... спустя какоето время может колебаться как от 2 минут так до 15 минут... происходит разрыв соединение с сервером... Пишеться в чате ла2.... соединение с сервером было потеряно и ла2 просто тупо закрываеться.... опытные люди помогите

[mks]

ake1a, используешь скрипт с двумя таймерами?

[alexteam]

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

[ake1a]

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

ake1a, используешь скрипт с двумя таймерами?

Вот начало скрипта
const
nik='Mixxx';
Enchant=16;

var
UseItem, SelectItem, EnchantItem: string;
CurrentEnch: integer;
key: boolean;
Timer01, Timer02: TTimer;

procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=3000;

Timer02:=TTimer.Create(nil);
Timer02.OnTimer:=@OnTimer02;
Timer02.enabled:=false;
Timer02.interval:=500;
end;

[mks]

ake1a, да с двумя таймерами, он должен нормально пахать, может у тебя со связью проблемы

[ake1a]

enchant_by_NLObP_.... Решил попробыватье тот скрипт на грации финал.... не отображает предметов... (выбираю на угад по ИД)... Но скрипт работает )))) ..... Но проблемка в том что он затачивает поочереди например 10 предметов а когда они все ломаються... скрипт останавливаеться... виснет ПХП и ла2... в чем может быть проблемы помогите...

Вот еще в самом скрипте ета строчка горит красным цветом
ShowInf.Enabled:=false; ShowInf.Interval:=0; ShowInf.Free; ShowInf.OnTimer:=nil;