if FromClient and(pck=HStr('1B 0C 00 00 00')) then begin - это пакет танца
buf:=HStr('17 01 00 00 00'); - это пакет подтвеждение торга
SendToServerEx('q1w2e3r4a1s2d3f4'); - ник чара
delay(600); - 1.5 сек.
buf:=HStr('09'); - это пакет выхода из игры
SendToServerEx('q1w2e3r4a1s2d3f4'); - ник чара
end;
end.
|