RS07 Fight Caves Script need Help! Probably simple fix...

[exatox]

Hey guys, I know there's already a fight caves script, but it has broke due to a runescape update! Im trying to write a new one but it wont compile!

 

I'm trying to get it to do the following:

 

works>log in if not already

works>set screen pointing south

works>turn auto retaliate on

 

<Repeat>

works >enter cave

Broken>check to see if in cave, if not try entering again

Broken>start waves by selecting defence mode (If you know how to press the "click here to continue" that pops up please add it. Ive no idea how to so I improvised)

works >once dead, the cave color appears again so it repeats

 

 

program RS07_FightCaveFighter;
{$DEFINE RS07}
{$I MSSL\MSSL.scar}
var
 X, Y: Integer;


const
 USERNAME = '';
 PASSWORD = ''; 



   Function CheckIfIn(num: byte): Boolean;
   begin  
      Result := False;
      case num of
        0: result := (FindColorTol(X, Y, 10921906, RS07_GameActionBx.X1, RS07_GameActionBx.Y1, RS07_GameActionBx.X2, RS07_GameActionBx.Y2, 5));
      end;

    end;



  //  procedure Boss;  //testttingngingingign
// begin
//   if checkifin = true then
// repeat
//        Wait(455 + Random(50));
//       if checkifin = false then
//          MSSL_Wait(2500 + Random(1500));
//    RS07_SetAttackStyle(2)
// until checkifin = false;

//end;


       procedure StartCave;  //test 2
begin        

           if CheckIfIn := false then
           MSSL_Wait(2500 + Random(1500));
    RS07_SetAttackStyle(2)

end;





// procedure StartCave;
//begin
//Wait(455 + Random(50));
//if checkifin = false then
// begin
//   MSSL_Wait(2500 + Random(1500));
//    RS07_SetAttackStyle(2)
// end;
//end;


procedure EnterCave;
begin
Wait(455 + Random(50));
if (FindColorTol(X, Y, 10921906, RS07_GameActionBx.X1, RS07_GameActionBx.Y1, RS07_GameActionBx.X2, RS07_GameActionBx.Y2, 5)) then
 begin
   RS07_ClickMouse(X, Y, mbLeft);
   MSSL_Wait(300 + Random(50)); 
   RS07_ClickMouse(X, Y, mbLeft);
       MSSL_Wait(10000 + Random(2000));
   boss;
 end;
end;




begin
 MSSL_Setup;
 ClearDebug;
 RS07_SetScreenBrightness(RS07_SCREEN_BRIGHTNESS_VERY_BRIGHT);
 ColorToleranceSpeed(2);
 RS07_SetCompassDir('S');
 RS07_SetCameraAngleH;
 SetColorSpeed2Modifiers(0.28, 0.17);

repeat
 RS07_AutoRetaliate;
 MSSL_Wait(500);
 if not RS07_LoggedIn then
   begin
     RS07_LogIn(username, password);
     MSSL_Wait(3000 + Random(43));
     RS07_SetCompassDir('S'); 
   end;
 if RS07_LoggedIn then
   begin  
     EnterCave; 
     stuck;



     MSSL_Wait(13200 + Random(3000)); 
            if RS07_InFightHA = False and checkifin = false then 
            repeat
               begin

   MSSL_Wait(10000 + Random(1500));
    RS07_SetAttackStyle(2)

               end;
              until RS07_InFightHA = True
   end;
 until False;
end.

 

This is my first time programming with scar (Only experience is visual basic) so please go easy on me!

 

Thank you in advance for those who take the time to help find a solution!