Search the Community

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!