SRL Archive - SRL Archives

Function setobjective(skill : string; level : integer) : boolean;
var
  TP : tpoint;
begin
  if not gametab(tab_stats) then exit;
  TP := SkillToCoords(True, Skill)
  mouse(TP.x + 7,TP.y + 13, 5, 5, false);
  waitoption('ject', 2500);
  wait(10 + random (2));
  chooseoption('ject');
  typesend(inttostr(level));
end;

ill add more when gametab is fixed

Not sure exactly what objectives can be used for in autoing, but itll make a great antiban feature, snappy work chap.

This would fit in AntiBan.scar in core folder. You need to set the result because or it'll always return false. You can also set a quest as objective.

WaitOption waits for an option and selects it. So for efficiency purposes, the second ChooseOption should be taken out:

Function setobjective(skill : string; level : integer) : boolean;
var
  TP : tpoint;
begin
  if not gametab(tab_stats) then exit;
  TP := SkillToCoords(True, Skill)
  mouse(TP.x + 7,TP.y + 13, 5, 5, false);
  Result := waitoption('ject', 2500);
  typesend(inttostr(level));
end;

Also made it result as Cazax mentioned.

Good job though :)

anything gonna happen to this?