Показать сообщение отдельно
Старый 26.12.2007, 15:58   #127
Новичок
 
Регистрация: 21.12.2007
Сообщений: 10
Сказал Спасибо: 7
Имеет 1 спасибку в 1 сообщении
jestb
По умолчанию

просидел часа полтора, вот до чего дошел:
Код:
begin
  if FromClient and (ConnectName='char1')  //посылаю с 1-го окна пакет "SocialActionYes"
  and (pck=HStr('1B 06 00 00 00')) then begin
    buf:=HStr('2A 01 00 00 00');                  //п.№1  - принять пати
    buf:=HStr('2F 13 01 00 00 00 00 00 00 00 ');  //п.№2  - Fury
    buf:=HStr('2F 12 01 00 00 00 00 00 00 00 ');  //п.№3  - Fire
    buf:=HStr('2F 0F 01 00 00 00 00 00 00 00 ');  //п.№4  - Warrior
    buf:=HStr('2B');                              //п.№5  - выйти с пати
    buf:=HStr('04 B2 F9 20 48 24 CB 00 00 45 2B FF FF A6 F3 FF FF 00'); //п.№7  - следовать за мной
    SendToServerEx('char2');                      //вместо 1-го окна "yes", 2-е окно делает пункты №1-№7.
    pck:='';
  end;
end.
//тока вот проблема :(  он принимает пати, делает п№1-2 и все :( .  Как прописать,
//чтобы между п№2-3-4 была задержка в 1 секунду, и вобще что я пропустил, чтобы пункты включались один за другим?.
Но даже с таким скриптом:
Код:
begin
  if FromClient and (ConnectName='char1')  //посылаю с 1-го окна пакет "SocialActionYes"
  and (pck=HStr('1B 06 00 00 00')) then begin
    buf:=HStr('2A 01 00 00 00');                  //  - принять пати
    SendToServerEx('char2');                      //вместо 1-го окна "yes", 2-е окно принимает пати.
    pck:='';
  end;
end.
нажимаю на 1 окне макрос приема БД и "yes", а на окне БД только макрос танцев, уже удобнее чем было :) .
Ща попытаюсь доработать первый свой скрипт.
jestb вне форума   Ответить с цитированием