просидел часа полтора, вот до чего дошел:
Код:
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", а на окне БД только макрос танцев, уже удобнее чем было :) .
Ща попытаюсь доработать первый свой скрипт.