ДА БУДЕТ БOT!

[gtynfujy924]

я вот так сделал, но оно токо спойл кидает (очень редко), свип не делает, семку не вбивает...

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;

[Lynx]

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);
ошибка надо так

buf:=HStr('14 6C 7A 0C 10 00 00 00 00 '); //семка
SendToServerEx(NickName);//Сюда, возможно, надо задержку
buf:=HStr('2F FE 00 00 00 00 00 00 00 00 '); //spoil
SendToServerEx(NickName);
Я вроде делал на спойл? пакеты там замени

[Doberman]

Люди у мну вопрос такой(заранее говорю тему всю не перечитывал мож он и ужэ звучал,тогда извиняйте) :
Где в скрипте на мулити титул изменить врямя смены?,чтоб бегущей строкой шол нормально,а то еле ползёт((
Менял тут :
//таймер
Timer := TTimer.Create(Main);
Timer.Interval := 1050;
Timer.Enabled := False;
Timer.onTimer := @TimerTimer;

Button := TButton.Create(Main);
Button.Parent := Main;
Button.Caption := 'Старт';
Button.Left := 10;
Button.Top := 10;
Button.onClick := @ButtonClick;
но нечего неизменилось
Кто подскажет?

[NLObP]

Сообщение от Doberman

Timer.Interval := 1050;

Да, время здесь меняется. 1 сек = 1000.

[Doberman]

Сообщение от NLObP

Да, время здесь меняется. 1 сек = 1000.

Хм... менял,чтот неособо разницу почуствовал,сейчас есщё попробую

Добавлено через 42 минуты
Некатит,скорость увеличиваеш он один раз прокручивается и встаёт(

[Liiion911]

Небольшой вопрос:
Можно ли написать кусочек кода для поднятий Herb's на хп или ману.

Если это уже реализовано, былобы неплохо ссылку...
Если же нет, каму не сложно, плиз

[8tomat8]

Вернемся у первому посту)))) у меня не хочет моба в базу добавлять, вообще) все остальные действия работают, а добавление мобов заканчивается на фразе в чата "Доьавляем моба 1" и все)) если есть соображения то плиз, в ручную прямо в скрипт впихнуть Имена мобов так и не придумал как(

Сори но больше 3к символов незя) так что залил на дамп

[ramblik]

Соро будет бот Спойлер Ждите)

[nezabudkin]

Сообщение от 8tomat8

Вернемся у первому посту)))) у меня не хочет моба в базу добавлять, вообще) все остальные действия работают, а добавление мобов заканчивается на фразе в чата "Доьавляем моба 1" и все))

Блин, пишите хоть про какой скрипт спрашиваете.
Но в твоем случае, чтобы моб добавился, его надо замочить (убить, грохнуть, прикончить

[ramblik]

Вот вам ботик на спойл и свип делает все автоматом но у меня лагает чуть.
Качайте 2 версию ниже постом