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

[Sibedir]

var
  NadoLechitsa: Boolean;
  HotKey: Byte;

...

procedure TForm1.Timer1Timer(Sender: TObject);
var
  HitPoints: Integer;
begin
  HitPoints := GetZdorovye;
  if HitPoints < _KritikMin then NadoLechitsa := True;
  if NadoLechitsa and (HitPoints > _NormalZdorovye) then NadoLechitsa := Flase;
  if NadoLechitsa then PostKeyEx32(HotKey, [ssAlt], False);
  Inc (HotKey);
end;

[xRamzeSx]

Delphi ругается на следующие операторы:
GetZdorovye;
_KritikMin;
_NormalZdorovye;
NadoLechitsa
Я так понимаю, они должны быть в какой-то функции? ...

[Sibedir]

GetZdorovye - функция, которая должна возвращать текущее здоровье персонажа (читаешь из того самого адрес)
_KritikMin - глобальная переменная, критический минимум здоровья, с которого надо начинать личится (определяется програмно, взависимости от мах здоровья)
_NormalZdorovye - глобальная переменная, допустимый минимум здоровья, с которого можно прекращать личится (определяется програмно, взависимости от мах здоровья)
NadoLechitsa - глобальная переменная, тру - поц и ент на диспетчеризации, фалз - поц здоров (имеются остаточные симптомы типа насмор) (ругатся не должен, я ж ее уже объявил (см. выше, раздел var))

[xRamzeSx]

Я не знаю, куда писать все эти переменные.

GetZdorovye - read_value($49DD9C,1,res);
_KritikMin - hpMin:=25; hpMax:= read_value($49DBFC,1,res);
_NormalZdorovye - hpMin:=30;

Как всё это связать?

[Sibedir]

Как связать - см. пост 51. Куда писать - см. пост 51.
HotKey перед запускам таймера установить в Ord ('1') и останавливать таймер, когда HotKey = Ord ('7').

[xRamzeSx]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  HitPoints: Integer;
  hpMin:=25;
begin
  HotKey(Ord('1'), [ssAlt], False);
  HitPoints := read_value($49DD9C,1,res);
  if HitPoints < hpMin then NadoLechitsa := True;
  if NadoLechitsa and (HitPoints > hpMin) then NadoLechitsa := Flase;
  if NadoLechitsa then PostKeyEx32(HotKey, [ssAlt], False);
  Inc (HotKey);
end;

Так? Или я не понимаю?

[Sibedir]

var
  NadoLechitsa: Boolean;
  HotKey: Byte;
  hpMax, hpKritichMin, _hpNormal: Integer;

...

hpMax := read_value($49DBFC,1,res);
hpKritichMin := Round (hpMax * 0.2);
hpNormal := Round (hpMax * 0.8);
NadoLechitsa := False;
HotKey := Ord ('1');
Timer1.Enabel := True;

...

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

  NadoLechitsa := (HitPoints < hpKritichMin) or (NadoLechitsa and (HitPoints < hpNormal))
  if NadoLechitsa then PostKeyEx32(HotKey, [ssAlt], False);

  Inc (HotKey);
  if HotKey = Odr ('7') then Timer1.Enabel := False;
end;

Как то так

[xRamzeSx]

hpMax := read_value($49DBFC,1,res);
hpKritichMin := Round (hpMax * 0.2);
hpNormal := Round (hpMax * 0.8);
NadoLechitsa := False;
HotKey := Ord ('1');
Timer1.Enabel := True;

Куда это писать?

[Sibedir]

Куда это писать?

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

xRamzeSx, здесь все не просто. Здесь все ОЧЕНЬ просто
Пишите по принципу: Что вижу, то и пою. Т. е. что руками бы делал, то пусть прога и делает. Можете сесть в позу лотоса и мидитировать представляя, что -
Я ПРОГРАММО

[xRamzeSx]

http://rw-clan.do.am/error.jpg
Не могли бы Вы скачать этот архив - http://rw-clan.do.am/Projectttt.rar исправить и проверить его на работоспособность?