i dont get whats wrong here.. :S
SCAR Code:
program New;
var
CurrentHp: Integer;
{.Include SRL/SRL.SCAR}
{.include SRL\SRL\Skill\Fighting.scar}
var
x, y: Integer;
ColorString: String;
Const
monstercolor1 = 7181246;
monstercolor2 = 1048;
tolerance = 4;
monster = 'onk';
minHP = 10;
procedure Fight;
begin
if(InFight) then
begin
wait(Random(1000)+500);
end else if(not InFight) then
begin
FindObjCustom(x, y, ['ttac', monster], [monstercolor1, monstercolor2], tolerance);
If(IsUpText(monster)) then Mouse(x, y, 2, 2, True)
else
begin
Mouse(x, y, 2, 2, False);
ChooseOption('ttac');
end;
Wait(1000);
Status('Waiting for fight...');
Flag;
Wait(1000)
Status('Fighting...');
repeat
Wait(500);
CurrentHP := GetMMLevels('hp', ColorString);
until((not InFight) or (CurrentHp < minHP));
end;
end;
begin
repeat
Fight;
until(false);
end.