Показать сообщение отдельно
Старый 28.10.2007, 06:27   #26
Пользователь
 
Регистрация: 08.10.2007
Сообщений: 34
Сказал Спасибо: 17
Имеет 8 спасибок в 7 сообщенях
PIONER
По умолчанию

Код:
 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;
const
greeting=('1b 04 00 00 00');
victory=('1b 03 00 00 00');
advance=('1b 04 00 00 00');
yes=('1b 06 00 00 00');
begin
  buf:=HStr(greeting);
  SendToServer;
end;  //ТУТ ВЫДАЁТ ОШИБКУ<<<<<<<<<<<<<<<
begin
if pause(2) then;//+ 2 секунды ожидания
end;
begin
  buf:=HStr(victory);
  SendToServer;
end;
begin
if pause(2) then; //+ 2 секунды ожидания
end;

begin
  buf:=HStr(advance);
  SendToServer;
end;
begin
if pause(2) then; //+ 2 секунды ожидания
end;

begin
  buf:=HStr(yes);
  SendToServer;
end;
begin
if pause(2) then; //+ 2 секунды ожидания
end.
добавил задержку, но скрипт выдаёт ошибку на END(в скрипте указанно место), подскажите что неправильно или чего нехватает.
__________________
Продаю адену на l2.ru Cadmus BlackBird Athebaldt
ICQ: 329-867-244
PIONER вне форума   Ответить с цитированием
За это сообщение PIONER нажился спасибкой от: