PDA

Просмотр полной версии : [Скрипт] Авто баф для чара


stels1111
10.10.2011, 20:39
Решил выложить Скрипт для автоматического бафа для чародея:pirate:
При активации скрипта и вводе команды /bstart
Чародей бафается тремя скилами
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Это довольно таки удобно когда находишься в пати или бегаешь в одиночку можно не обращать внимания на эти скилы и они будут юзаться по окончанию и откату автоматически:noemotion: Главное не забывать о мане:eek:
Вот собственно сам скрипт:info:
var
cnt:Integer;
i:Integer;
skill:Integer;
b1:Boolean;
b2:Boolean;
b3:Boolean;
b4:Boolean;
active:Boolean;

procedure Init; //Вызывается при включении скрипта
begin
active:=FaLse;
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure castBuf(id:Integer);
begin
buf:=hstr('CF 57 6C');
writeh(id);
buf:=buf+hstr('01 00 00 00 00 00 00 00 F9 2F 00 00 ');
sendToServer;
end;

procedure Log(msg:String); //Вызывается при включении скрипта
begin
//sendMSG('Using conid:' + IntToStr(useforconnectid));
buf:=HStr('17 50 D4 19 00 00 00 00 00 00 00');
WriteS(msg);
SendToClient;
end;
begin
if(fromclient) and (pck[1]=#$B9) then
begin

sendMsg(ReadS(5));
if(CompareText(ReadS(5),'/bstart')=0) then
begin
active:=true;
pck:=hstr('C9 57 66 18');
Log('ChantAutoBuf: started');
end;
if(CompareText(ReadS(5),'/bstop')=0) then
begin
active:=false;
pck:=hstr('C9 57 66 18');
Log('ChantAutoBuf: stopped');
end;
end;
if (active) and (fromserver) and (pck[1]=#$4E) then
begin
b1:=TRUE; //1223
b2:=TRUE; //1224
b3:=TRUE; //1225
b4:=TRUE;
cnt:=ReadH(8);
for i := 0 to (cnt-1) do
begin
skill:=ReadH(i*12+14);
if (skill=1223) then b1:=FALSE;
if (skill=1224) then b2:=FALSE;
if (skill=1225) then b3:=FALSE;
end;

if(b1) then castBuf(1223);
if(b2) then castBuf(1224);
if(b3) then castBuf(1225);


end
end.
Чтобы остановить работу скрипта ввести /bstop.
Проверенно на Aion-free. Подходит как Элийцам так и Асмам.Что бы создать скрипт заходим в l2phx вкладка Автоматизация -> Скрипты -> Новый скрипт -> Называем как вам удобно -> Копируем и заменяем весь текст скрипта -> Сохраняем -> Ставим галочку вводим команду и вперед.
Кому помог не стесняемся ставим спасибку или + (если нет ещё 10 сообщений). Спасибо за внимание.

par-vova
10.10.2011, 21:13
Нелегче тык ([Ссылки могут видеть только зарегистрированные и активированные пользователи])

Там мой скрипт на баф.

Хотя нет сорри т.к. тут он автоматически бафается после окончяния бафов.

Aoi Hana
30.10.2011, 08:45
можете подправить для 2.6 версии? (после подправки данный пост удал, во избежание флуда темы)
пыталась сама, но не могу отловить измененные пакеты от сервера, слишком уж их много и нужный отсеять не получается. Заранее пасибки.