program FightTest;
  {$DEFINE SMART}
  {$i reflection/Reflection.simba}

var
  MyPlayer: TReflectLocalPlayer;

procedure FightGuard;
var
  Guard: TReflectNpc;
  Point: TPoint;
begin
  while not MyPlayer.IsUnderAttack do
  begin
    if Guard.Find('Guard') then
    begin
      Point := Guard.GetMsPoint;
      Reflect.Mouse.Move(Point, 2, 2);
      Reflect.Mouse.Click(MOUSE_LEFT);
      While MyPlayer.IsMoving do
        Wait(50);
    end;
  end;
end;

begin
  Reflect.Setup;
  MyPlayer.UserName := 'UN';
  MyPlayer.Password := 'Pass';
  MyPlayer.Login;
  repeat
  if MyPlayer.GetHealth < 20 then
    //Eat
  else
    FightGuard;
  until(False);
end;