[ASSA]

(Скрипт для раскатывания рб в 4 окна и тд)
var
MOBID, partyLEADER: string;

begin
if FromServer and (ConnectName='BOT1') and (pck[1]=#$a7) then
begin
partyLEADER:=pck[6]+pck[7]+pck[8]+pck[9];
end;

begin
if FromServer and (ConnectName='BOT1') and (pck[1]=#$29)
and (pck[2]+pck[3]+pck[4]+pck[5]=partyLEADER)
then
begin
MOBID:=pck[6]+pck[7]+pck[8]+pck[9];
buf:=#$0a+MOBID+#$00+#$00+#$00+#$00;
SendToServerEx('BOT1');
SendToServerEx('BOT2');
SendToServerEx('BOT3');
SendToServerEx('BOT4');
pck:=''; //kill9em poket
end;

end;

end.