выкладываю свой первый нубо-скрипт
чтоб вы видели что ваши старания и мои консультации не прошли напрасно
скрипт для бота-бафера или бд, прошу строго не судить:
Код:
//вписать имя бота
//взять командира в таргет
//для запуска скрипта бафнуть (можно только один первый бафф)
const //buffs, dance
Name='bot';
d1='2F B4 04 00 00 00 00 00 00 00'; // WW
d2='2F 2C 04 00 00 00 00 00 00 00'; // might
d3='2F 10 04 00 00 00 00 00 00 00'; //shield
d4='2F 0C 04 00 00 00 00 00 00 00'; //magicbarier
d5='2F 14 04 00 00 00 00 00 00 00'; //regen
d6='2F 15 04 00 00 00 00 00 00 00'; //blessbody
d7='2F 18 04 00 00 00 00 00 00 00'; //blessoul
d8='2F 3E 04 00 00 00 00 00 00 00'; //haste
d9='2F 35 04 00 00 00 00 00 00 00'; //focus
d10='2F DA 04 00 00 00 00 00 00 00'; //crit
d11='2F D8 04 00 00 00 00 00 00 00'; //guidance
d12='2F A7 04 00 00 00 00 00 00 00'; //resist
var
Timer1 : TTimer;
procedure Init;
begin
Timer1 := TTimer.Create(nil);
Timer1.Interval := 1200000; // задержка таймера (для танцев бд 125000)
Timer1.Enabled := False;
Timer1.OnTimer := @OnTimer;
end;
procedure Free;
begin
Timer1.Free;
end;
procedure OnTimer;
begin
begin
buf:=hstr(d1);
SendToServerEx(Name);
delay (3100); //для танцев delay можно сделать меньше
end;
begin
buf:=hstr(d2);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr(d3);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr(d4);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr(d5);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr(d6);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr(d7);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr(d8);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr(d9);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr(d10);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr(d11);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr(d12);
SendToServerEx(Name);
delay (3100);
end;
begin
buf:=hstr('04');
SendToServerEx(Name);
end;
end;
begin
if FromClient and (pck=HStr('2F B4 04 00 00 00 00 00 00 00')) then
begin
Timer1.Enabled := True;
end;
end.