Кружок нубов(Вопрос-Ответ)

[alxabay]

мне надо эти действия в скрипте затормозить

procedure RR(scrl,wp: integer);
begin
buf:=HStr('33 01 00 00 00 1F 00 00 00'); //zato4ka na 31 slot
WriteD(scrl);
buf:=buf+HStr('01 00 00 00'); //zakrili perenos na panel
SendToServer;

buf:=#$14;      //activ zato4ku
WriteD(scrl);
WriteD(0);
SendToServerEx(Name);
buf:=#$58;        //vesh vibrali
WriteD(wp);
SendToServerEx(Name);
buf:=#$14;        //activ zato4ku tuje samuu
WriteD(scrl);
WriteD(0);
WriteD(wp);
SendToServerEx(Name);
end;

вот этот код нада послать в оффлине а тут как я понял sendtoserver отсылает все это в обход тово места где на все пакеты реакция
не осилю, эх ладна.