я вот так сделал, но оно токо спойл кидает (очень редко), свип не делает, семку не вбивает...
delphi Код:
procedure PhisicalAttack; // команда атаки
var
ppp1: integer;
begin
buf:=#$04; //action
WriteD(TargetID);
WriteD(MyX);
WriteD(MyY);
WriteD(MyZ);
WriteC(0);
SendToServerEx(NickName);
if ppp1 = targetid then begin
ppp1:= targetid
end
else
begin
buf:=HStr('14 6C 7A 0C 10 00 00 00 00 '); //семка
buf:=HStr('2F FE 00 00 00 00 00 00 00 00 '); //spoil
SendToServerEx(NickName);
End;
ppp1:= targetid
end;
procedure InitPickUpMode(mode: boolean);
begin
if mode then
begin
PickUpMode:= true;
TimerCombat.enabled:= false;
TimerPickUp.enabled:= true;
end
else
begin
PickUpMode:= false;
TimerCombat.enabled:= true;
TimerPickUp.enabled:= false;
end;
end;
а при таком расскладе семку забивает в моба..очень редко, но нужен и спойл..; как сделать что бы бот постоянно кидал спойл или манор? на каждого моба, а не через пару раз?
(извините, мож там ниче, но я не разбираюсь ни грама в скриптах, такого уже напутал.. что...)
procedure PhisicalAttack; // команда атаки
var
ppp1: integer;
begin
buf:=#$04; //action
WriteD(TargetID);
WriteD(MyX);
WriteD(MyY);
WriteD(MyZ);
WriteC(0);
SendToServerEx(NickName);
if ppp1 = targetid then begin
ppp1:= targetid
end
else
begin
buf:=HStr('14 6C 7A 0C 10 00 00 00 00 '); //семка
SendToServerEx(NickName);
End;
ppp1:= targetid
end;
procedure InitPickUpMode(mode: boolean);
begin
if mode then
begin
PickUpMode:= true;
TimerCombat.enabled:= false;
TimerPickUp.enabled:= true;
end
else
begin
PickUpMode:= false;
TimerCombat.enabled:= true;
TimerPickUp.enabled:= false;
end;
end;