Вот кое как сдела скрипт для управления окнами лучиников
но оч тормозит обработка пакетов при масс замесе чую что можно както оптимизировать это дело )
Код:
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;