Search the Community

https://github.com/OSI1/OfficialSCARInclude/commit/17a19959d01f333d25f98c2663327bbc3e268faf Ported OSI with Slacky's SCARExt so rs_GetUpText is available in the the newer SCAR versions ChooseOption/Uptext now work If you're more interested in SCARExt etc. visit http://forums.scar-divi.com/showthread.php?t=2464 discussion @ http://forums.scar-divi.com/showthread.php?t=2464&page=2 I think OSI for RS07 is in pretty good shape. Everything that I know of works. Granted I have not tested Login functions and some other stuff I will soon! Update: https://github.com/OSI1/OfficialSCARInclude/commit/786bb52f3a0692504be98a8da5f1d886f55fa508 Login works.. just needed a minor addition (crazy how simple that was... surprised it worked in the pass without that tbh.)

https://github.com/OfficialSCARInclude/OSI2/commit/4c2c430ab3c1b0d8243d65ef0710fa5b13da262b [sCAR] * function PinScreen: Boolean; By: Wanted * function EnterBankPin(Pin: string; CheckPS: Boolean): Boolean; By: Wanted[/sCAR] Recommended that you use Players[CurrentPlayer].Pin := '0000'; Pin is pretty solid.. I will add 2 retries once I finish OCR e.g. ClickContinue.

Jagex made a small adjustment to the RS07 login it has been corrected and updated https://github.com/OfficialSCARInclude/OSI2/commit/5cea652315ea59ec9c3deb7aa62fe97151615ee9 Learn to diagnose OSI http://forums.scar-divi.com/osi-bugs/2311-rs07-login-function-broke#post13203

https://github.com/OSI1/OfficialSCARInclude/commit/4c148aa8658f9cf072d02a34746c265393f57f24 As you can see there are a lot of new functions and restores. Apparently when I transferred the OSI repo back in November 2013 I either accidentally removed a lot of stuff or butchered it out on purpose. I had to dig through the old SVN log (since the github one has a gap in history for some reason) and find these. I went through and re added most of everything and updated it plus added some new stuff. I haven't gotten around to restoring/updating Bank/Combat/Options but that will be next! For now: Chat.scar New stuff, updates, and restores! * function GetChatTabBounds(ChatTab: Integer): TBox; By: Wanted * function GetCurrentChat: Integer; By: Wanted * function GetChatStatus(Chat: Integer): Integer; By: Wanted * function SetChatStatuses(Chats, States: TIntArray): TBoolArray; By: Wanted * function SetupAutoChat(S: string): Boolean; By: Wanted * function ToggleAutoChat(Resume: Boolean): Boolean; By: Wanted * function SetupPublicChatFilter(S: string): Boolean; By: Wanted * function ClickContinueEx(Click, UntilGone: Boolean): Boolean; By: Wanted * function ClickContinue: Boolean; By: Wanted * function FixChat: Boolean; By: Wanted * function GetChatLineBounds(Line: Integer): TBox; By: Wanted * function GetChatTextEx(Line, TextColor: Integer): string; By: Wanted * function LeveledUpEx(Click, UntilGone: Boolean): Boolean; By: Wanted * function LeveledUp: Boolean; By: Wanted Tab1-Stats.scar // Stat bounds * function GetSkillBounds(Skill: Integer): TBox; By: Wanted * function GetSkillLevelEx(Skill: Integer; BottomNumber, CheckST: Boolean): Integer; By: Wanted * function GetSkillLevel(Skill: Integer; CheckST: Boolean): Integer; By: Wanted * function HoverSkill(Skill: Integer; CheckST: Boolean): Boolean; By: Wanted * function GetSkillInfo(Skill: Integer; CurrentCheck, NextCheck, RemainderCheck, CheckST: Boolean): TIntegerArray; By: Wanted * function GetXP(Skill: Integer; CheckST: Boolean): Integer; By: Wanted * function GetAllLevels(CheckST: Boolean): Boolean; By: Wanted Map.scar Running routines! +{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= +function IsRunning: Boolean; +Contributors: Wanted +Description: Returns true if running. +Date Created: September 5th, 2011. By Wanted. RS2 Build 663. +Last Modified: October 27th, 2014. By Wanted. RS07 Build ???. +=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} + +function IsRunning: Boolean; +begin + Result := SimilarColors(6806252, GetColor(581, 141), 10); +end; + +{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= +function ToggleRunEx(Run: Boolean; MinEnergy: Integer): Boolean; +Contributors: Wanted +Description: Sets run to desired state. True if state was changed. +Date Created: October 27th, 2014. By Wanted. RS07 Build ???. +Last Modified: October 27th, 2014. By Wanted. RS07 Build ???. +=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} + +function ToggleRunEx(Run: Boolean; MinEnergy: Integer): Boolean; +begin + Result := False; + if (GetMMLevel(Skill_Run) < MinEnergy) then + Exit; + Result := ((IsRunning) xor (Run)); + if (Result) then + if (Random(2) = 1) then + MouseCircle(9, 581, 139, ClickLeft) + else + MouseBox(547, 135, 573, 148, ClickLeft); + WaitFunc(@IsRunning, False, 50, 150, 1500, 2500); +end; + +{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= +function ToggleRun(Run: Boolean): Boolean; +Contributors: Wanted +Description: Sets run to desired state. True if state was changed. +Date Created: October 27th, 2014. By Wanted. RS07 Build ???. +Last Modified: October 27th, 2014. By Wanted. RS07 Build ???. +=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} + +function ToggleRun(Run: Boolean): Boolean; +begin + Result := ToggleRunEx(Run, 1); Equip Tab.scar // Equip Slots * function GetEquipmentBounds(Slot: Integer): TBox; By: Wanted * function IsSlotEquipped(Slot: Integer; CheckET: Boolean): Boolean; By: Home & Wanted. * function MouseEquipedItem(Slot: Integer; TypeC: ClickActions; CheckET: Boolean): Boolean; By: Wanted & Home. Globals.scar Bunch of new indexes/changes By: Wanted * const Game Tab Indexes By: Wanted & Dynamite. + * const Equip Tab Indexes + By: Wanted + * const Chat Tab Indexes + By: Wanted * const RS07 direction/angle Indexes By: Wanted + * const Withdraw function indexes + By: Wanted +* const Area_ indexes + By: Wanted * const Useful in game colors By: Wanted * type TRS07Player = record @@ -493,7 +501,7 @@ Last Modified: October 7th, 2014. By Wanted. RS07 Build ???. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} const - Skill_Count = 23; + Skill_Count = 25; Skill_Attack = 0; Skill_Hitpoints = 1; Skill_Mining = 2; @@ -518,6 +526,8 @@ const Skill_Farming = 20; Skill_Construction = 21; Skill_Hunter = 22; + Skill_Total = 23; + Skill_Combat = 24; {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= const Game Tab Indexes @@ -566,6 +576,31 @@ Last Modified: March 6th, 2013. By Wanted. RS07 Build ???. Tab_Equip_Ring = 10; {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= +const Chat function indexes +Contributors: Wanted +Description: Index handles for various chat routines. +Date Created: October 28th, 2011. By Wanted. RS2 Build 671. +Last Modified: October 28th, 2014. By Wanted. RS07 Build ???. +=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} + +const + Chat_State_Count = 6; + Chat_On = 0; + Chat_Friends = 1; + Chat_Filter = 1; + Chat_Off = 2; + Chat_Hide = 3; + Chat_Autochat = 4; + Chat_SwitchTab = 5; + Tab_Chat_Count = 6; + Tab_Chat_All = 0; + Tab_Chat_Game = 1; + Tab_Chat_Public = 2; + Tab_Chat_Private = 3; + Tab_Chat_Clan = 4; + Tab_Chat_Trade = 5; + +{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= const RS07 direction/angle Indexes Contributors: Wanted Description: Index handles for SetCompassAngle and all runescape directions. @@ -584,6 +619,36 @@ const Dir_NorthWest = 315; {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= +const Withdraw function indexes +Contributors: Wanted +Description: Index handles for withdrawing routines. +Date Created: December 11th, 2011. By Wanted. RS2 Build 688. +Last Modified: March 20th, 2013. By Wanted. RS07 Build ???. +=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} + +const + Withdraw_1 = 1; + Withdraw_5 = 5; + Withdraw_10 = 10; + Withdraw_All = -1337; + +{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= +const Area_ indexes +Contributors: Wanted +Description: Index handles for the different screen ares within RS that contain items. +Date Created: November 6th, 2011. By Wanted. RS2 Build 675. +Last Modified: February 8th, 2012. By Wanted. RS2 Build 700. +=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} + +const + Area_Inv = 0; + Area_Bank = 1; + Area_Deposit = 2; + Area_Trade_You = 3; + Area_Trade_Them = 4; + Area_Shop = 5; Mouse.scar MouseCurrentSpot changed to MouseCurrentPos for better stan Color.scar Restored 2 functions and changed CountColor(Tol)P both to CountColor(Tol)B {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= function FindColorsExP(var TPA: TPointArray; Colors: TIntArray; B: TBox): Boolean; Contributors: Wanted Description: Wrapper for FindColorsEx with points and boxes. Date Created: March 19th, 2013. By Wanted Last Modified: March 19th, 2013. By Wanted =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= function FindColorsTolP(var P: TPoint; Colors: TIntArray; B: TBox; Tol: LongInt): Boolean; Contributors: Wanted Description: Wrapper for FindColorsTol with points and boxes. Date Created: March 22nd, 2013. By Wanted Last Modified: March 22nd, 2013. By Wanted =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} Box.scar/TBA.scar ConstrainBox improvment. Removed useless 'rows' input from BoxFromGrid Replaced useless rows input in TBAFromGrid to number of Boxes Point.scar DistanceP restored {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= function DistanceP(P1, P2: TPoint): Extended; Contributors: Wanted, Janilabo. Description: Wrapper for Distance with points. Date Created: October 28th, 2011. By Wanted Last Modified: February 26th, 2013. By Wanted =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} TEA.scar Removed CopyTEA as it's now in SCAR TSA.scar Restored 1 function {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= function TSAContainsMulti(SubStrs: TStringArray; TSA: TStringArray): TBooleanArray; Contributors: Wanted Description: Results true if any strings are inside each string of TSA. Date Created: March 20th, 2013. By Wanted Last Modified: March 20th, 2013. By Wanted =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} Login.scar {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -function PressLogin(CheckLS: Boolean): Boolean; +function PressLogin(UseEnterKey, CheckLS: Boolean): Boolean; Contributors: Wanted Description: Returns true if made it to MessageScreen. Date Created: March 10th, 2013. By Wanted. RS07 Build ???. -Last Modified: November 26th, 2014. By Wanted. RS07 Build ???. +Last Modified: October 27th, 2014. By Wanted. RS07 Build ???. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} -function PressLogin(CheckLS: Boolean): Boolean; +function PressLogin(UseEnterKey, CheckLS: Boolean): Boolean; var T, TT, C: LongInt; begin @@ -230,7 +230,10 @@ begin if (not (PressExistingUser(True))) then Exit; C := CountColor(clYellow, 247, 214, 519, 231); - MouseBox(234, 304, 370, 340, ClickLeft); + if (UseEnterKey) then + TypeSend('') + else + MouseBox(234, 304, 370, 340, ClickLeft); SetTimer(T, 2000, 3000); repeat if (CountColor(clYellow, 247, 214, 519, 231) <> C) then @@ -239,8 +242,8 @@ begin until (CheckTimer(T)); SetTimer(T, 50000, 70000); repeat - SetTimer(TT, 35000, 40000); - if (not (TIAContains([0, 799, 407, 301], CountColor(clYellow, 247, 214, 519, 231)))) then + SetTimer(TT, 35000, 40000); + if (not (TIAContains([0, 799, 407, 301, 302, 199], CountColor(clYellow, 247, 214, 519, 231)))) then if (not (MessageScreen)) then if (not (FindLoginMessageText('Your profile will be transferred'))) then Exit OCR.scar Restored GetItemAmount will be adding more areas soon Object/Extended.scar Restored some Object routines ------ More updates to come soon. Specifically Combat tab, Option Tab, and Banking Still looking into porting the newest SMART Cheers

https://github.com/OfficialSCARInclude/OSI2/commit/c1155537ff09ff1fd0ae6bb4c73531b464935dfd [sCAR] * function AllUpTextColors: TIntegerArray; By: Wanted & Janilabo. * function FindUpTextMultiColors(Text: TStringArray; Colors: TIntegerArray): Boolean; By: Wanted & Janilabo. * function FindUpTextMultiColor(Text: TStringArray; Color: LongInt): Boolean; By: Wanted & Janilabo. * function FindUpTextColors(Text: string; Colors: TIntegerArray): Boolean; By: Wanted & Janilabo. * function FindUpTextColor(Text: string; Color: LongInt): Boolean; By: Wanted & Janilabo. * function FindUpTextMulti(Text: TStringArray): Boolean; By: Wanted & Janilabo. * function FindUpText(Text: string): Boolean; By: Wanted & Janilabo.[/sCAR] Works the same as UpTextContains but uses a different core method (Pos with rs_GetTextAt verses IsTextInArea with Janilabo's special UpChars2 with unique spacing) Different from MSSL's IsUpText in the sense that all colors are fused and the text doesn't have to start with your attempted match. IsTextAt with no fusing vs IsTextInArea w/ fusing.(So basically it's no different than UpTextContains except it uses a different method which is considered to be more durable) According to Janilabo it's more reliable. A huge thanks to him for the innovation and char set. If you want to use custom colors I'm pretty sure you have to use one of these [sCAR] Result := [4231423, 16776960, 16777215, 255, 12543, 28927, 45311, 65535, 65472, 65408, 65344, 65280];[/sCAR] I'm busy and don't have the time to catalog them right now and add them to globals but all these colors need to be classified. I'm also pretty sure you have to use one of these and not just some random stuff from the color picker since I'm assuming these are all generated from ACA in CTS0 (max speed) with (80?) tolerance. I've been busy with real life. I have Thursday mornings off from work and saturdays/sundays mostly off with other bits of free time so I still do have time to work on OSI just not as much I need to manage my time better and think ahead and plan what I'm going to do with OSI before I come on here. Getting better at it, slowly. Don't forget to suggest/request things in the new OSI boards Cheers

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!