assist

[Sashafaq]

Вот кое как сдела скрипт для управления окнами лучиников
но оч тормозит обработка пакетов при масс замесе чую что можно както оптимизировать это дело )

var
IDPartyMember: String; //ИД командира
CoordLykX, CoordLykY, CoordLykZ :String; //координаты бота
CoordLytX, CoordLytY, CoordLytZ :String; //координаты бота
CoordKomandX, CoordKomandY, CoordKomandZ :String; // координаты командира
Mob, MobX, MobY, MobZ :String; // координаты моба и его ид
Lyk, Komandos, Lyt : String; // Имена


procedure bRun;
begin
          //выделяем командира, эмулируя щелчек мыши
          buf:=hstr('1F') + IDPartyMember + CoordLykX + CoordLykY + CoordLykZ + hstr('00');
          SendToServerEX(Lyk);
          buf:=hstr('1F') + IDPartyMember + CoordLykX + CoordLykY + CoordLykZ + hstr('00');
          SendToServerEX(Lyk);
end;

procedure bRun1;
begin
          //выделяем командира, эмулируя щелчек мыши
          buf:=hstr('1F') + IDPartyMember + CoordLytX + CoordLytY + CoordLytZ + hstr('00');
          SendToServerEX(Lyt);
          //бежим за командиром эмулируя повторный щелчек мыши по таргету
          buf:=hstr('1F') + IDPartyMember + CoordLytX + CoordLytY + CoordLytZ + hstr('00');
          SendToServerEX(Lyt);
end;
procedure Assist;
begin
          buf:=hstr('1F') + Mob + MobX + MobY + MobZ + hstr('00');
          SendToServerEX(Lyk);
          buf:=hstr('1F') + Mob + MobX + MobY + MobZ + hstr('00');
          SendToServerEX(Lyk);
end;
procedure Assist1;
begin
          buf:=hstr('1F') + Mob + MobX + MobY + MobZ + hstr('00');
          SendToServerEX(Lyt);  
          buf:=hstr('1F') + Mob + MobX + MobY + MobZ + hstr('00');
          SendToServerEX(Lyt);
end;


procedure Init; //Вызывается при включении скрипта
begin
     Lyk:='Lyk';
     Komandos:='Komand';
     Lyt:='KLyt';
end;