SRL Archive - First Scripts

I know I still have another script in progress but depending on the ammount of school work I have depends on weither i fish or fight that night so Im currently working on a autofisher and a black demon fighter, which i hope to get running smoothly so I can get some d meds while away.

So this is what I have so far, please making any comments, letting me know any adjustments i need to make and such and I am currently discombobulated with how im going to make sure my guy moves safely back into the safe spot after attacking the monster. But i have yet to read up on any resources I have so hopefully we will see that addition soon.

program BlackDemonKiller;
{.Include SRL/SRL.Scar}
var
x, y, a, b: integer;
const
redbar = 255;  // may need to change to greenbar for if opening hit is 0.

procedure success;
 begin
 wait(1000 + random (500));
 writeln('cant find color');
end;

procedure AttackDemon;
    begin
     if findcolor(x, y, 2960689, 1, 1, 511, 332) then
      begin
      wait(2000 + random(500));
      Mouse(X, Y, 3, 3, False);
      wait(1000 + random(250));
      ChooseOption('Attack');
    end;
   end;

procedure AreYouFighting;
   begin
    if findcolor(a, b, redbar, 170, 234, 243, 293) then
    begin
    writeln('fighting monster');
    repeat
    mmouse(a, b, 3, 3);                // doesnt need to be in there used to c if it was working
    wait(5000 + random (50));       // doesnt need to be in there used to c if working
    until (not(findcolor(a, b, redbar, 6, 6, 494, 314)));
    AttackDemon;
    success;
   end;
  end;

begin
  SetupSRL;
  AreYouFighting;
  success;
end.

p.s the success program was in there so I could just kinda see if it was flowing right and i practiced using paint program and such so its just kinda there to let me see how things are going on.

Oh of course, but its far from finished right now, the only thing it can currently do is tell if your fighting and then attack a monster if your not only to stand there and die lol.