SRL Archive - OSR Help

Alright this is what I have so far but I need some help because my player will right click attack the Goblin non stop even when they are already attacking it. If you know of a better way of attacking please EXPLAIN to me what the code I should use does instead of just giving it to me and telling me that it works. I really would like to learn what certain things do instead of just copying and pasting things that people give me.

Also, I need help on the progress report. Thanks!

//This beginner script will kill goblins in Lumbridge. Designed by BaYBeeZ.
program BZGoblinGrinder;

{$DEFINE SMART}
{$DEFINE SRL5}
{$i SRL/srl.simba}
{$i SRL/SRL/skill/fighting.simba}

var
  Kills, Exp, x, y: integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name   := '';   //Insert player username here.
  Players[0].Pass   := '';   //Insert player password here.
  Players[0].Nick   := '';
  Players[0].Active := True;
  Players[0].Pin    := '';
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;

procedure GettingStarted;
begin
  Smart_Server := 0;
  Smart_Members := false;
  Smart_Signed := false;
  Smart_SuperDetail := false;

  ClearDebug;
  SetupSRL;
  DeclarePlayers;
  LogInPlayer;
end;

procedure ThankYou;
begin
  Writeln('Thank you for using BaYBeeZ Goblin Grinder!');
end;

procedure BZAntiban;
begin
  case Random(90) of
  10: HoverSkill('Attack', False);
  20: HoverSkill('Strength', False);
  30: HoverSkill('Defense', False);
  40: HoverSkill('Constitution', False);
  50: RandomMovement;
  60: RandomRClick;
  70: ExamineInv;
  80: PickUpMouse;
  89: BoredHuman;
  end;
end;

procedure BZAntiRandoms;
begin
  FindNormalRandoms;
  LampSkill := 'strength';
  LevelUp;
end;

//Thank you for helping me with this laakerules!
procedure FightGoblin;
begin
repeat
  BZAntiban;
  BZAntiRandoms;
  if FindObjCustom(x, y, ['att', 'ack'], [3901051, 8365713, 4958626], 4) then
    Writeln('We found a goblin.');MMouse(x, y, 8, 8);
      Wait(randomrange(4000,8000));
      If IsUpText('ttack') then
      begin
        ClickMouse2(False);
        WaitOption('oblin', 2000);
      end;
until(false);
end;

procedure BZProgress;
begin
  ClearDebug;
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Writeln('BZ Goblin Grinder Progress Report');
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Writeln('You have killed ' + IntToStr(Kills) + 'goblins.');
  Writeln('You have gained ' + IntToStr(Exp) + 'experience.');
  Writeln('You have trained for ' + TimeRunning + '.');
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;

begin
  GettingStarted;
  ThankYou;
  repeat
    FightGoblin;
  until(false);
  BZProgress;
end.

Check for inFight functions in SRL.
Also check for HPBar finding.

Add waits if either is happening.