Горячие клавиши

[Sibedir]

Так у нас то же самое и делается.

Хм... Что-то у меня ничего не выходит, или я не так пользуюсь...

function GetZdorovye: Integer;
var
res: int64;
begin
  res:=0;
  read_value($0049DD9C, 4, res);
  Result:=res;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  res: int64;
begin
  res:=0;
  read_value($0049DBFC, 4, res);
  hpMax:=(res);
  hpMin:= Round (hpMax * 0.4);
  hpNormal:= Round (hpMax * 0.8);
  NadoLechitsa:= False;
  HotKey:= Ord ('1');
  Timer1.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  HitPoints: Integer;
begin
  HitPoints:= GetZdorovye;

  NadoLechitsa:= (HitPoints < hpMin)
  or (NadoLechitsa and (HitPoints < hpNormal));
  if NadoLechitsa
  then begin
    PostKeyEx32(HotKey, [ssAlt], False);
    Inc (HotKey);
  end;
  if HotKey = Ord ('7')
  then Timer1.Enabled:= False;
end;

У меня вот так горячие клавиши стали нажиматся вовремя. Только окорочка не кушались. Я подозреваю, что во время боя персонаж не может использовать предметы. Вообще заметил, что во время боя персонах плохо реагирует на команды.

[xRamzeSx]

Всё великолепно работает, кушает рыбку после того, как отбежал от атаки, но...
Можно ли выполнять данную процедуру бесконечным путём, т.е повтором, пока не восстановится нормальное кол-во хп? Если можно, как это записать в коде?

И сразу вопрос - как сделать просто клики сочетания клавиш, т.е без хп, а просто поочерёдное выполнение сочетаний Alt+1... Alt+6 и заново, пока не нажмём кнопку "Стоп" -?

[Sibedir]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  HitPoints: Integer;
begin
  PostKeyEx32(HotKey, [ssAlt], False);
  Inc (HotKey);
  if HotKey = Ord ('7') then HotKey = Ord ('1');
end;

[xRamzeSx]

Всё работает.
Есть возможность реализовать данные сочетания клавиш на всех ячейках кармана, исли известны только адреса ячеек? Горячих клавиш на этих ячейках нет, но есть функция "Use On" как и на Alt+1... Alt+6.

[Sibedir]

Есть возможность реализовать данные сочетания клавиш на всех ячейках кармана, исли известны только адреса ячеек?

Есть даже возможность автоматически запускать игру, вводить логин и пароль и управлять персонажем без участия пользователя (используя ИИ). Технически это возможно. Но кто здесь будет еще этим заниматься кроме вас?

[xRamzeSx]

Но кто здесь будет еще этим заниматься кроме вас?

Я и только я. Поверьте, мне самому не приятно просить Вас. Если бы я мог сам всё написать, я бы давно всё сделал, но увы, прошу помощи у Вас, т.к Вы больше меня в этом разбираетесь.

[Sibedir]

Да я это к тому, xRamzeSx, что я тему вел только пока был мой интерес: освежить в памяти азы управления чужим приложением. Разбираться дальше для меня нет смысла. К тому же разбераться дальше уже не нужно. Принципиальные механизмы мы уже вспомнили: эмулирование действий устройств ввода, отправка сообщений приложениям, работа с адресным пространством чужих приложений. Используя эти механизмы, можно впринципе любым приложением управлять.
В вашем случае методика такая:
- узнаем адрес нужной переменной
- узнаем формат данных по этому адресу
- создаем программу, которая следит за значениями в указанных адресах и соответственно реагирует
Заниматься всем вышеуказанным мне нет ни какого резона. Какой смысл разбирать конкретный частный случай, ведь в других программах свои адреса, свои форматы и свои нюансы управления. Только время потрачу, а результата никокого. Я ведь не собираюсь играть в эту игру.
Так что извиняй, дальше сам. К тому же основа уже есть, дальше по аналогии.

[xRamzeSx]

Хорошо, спасибо Вам за все коды, с которыми Вы помогли, дальше всё буду делать по анологии.

Тему можно закрыть.