SRL Fixes Because Of RS Update [Jan 16th 2012]

Printable View

Show 40 post(s) from this thread on one page

GetChooseOptions:

Simba Code:

Function GetChooseOptions(TextType: string): Array of TOptions;
var
   B,BB: TBox;
   TPA, TPA1, TPA2: TPointArray;
   aTPA, tempatpa: T2DPointArray;
   I, L, target, bmp,w,h, cts: Integer;
   Colors: TIntegerArray;
begin
  target := GetImageTarget;
  GetClientDimensions(B.X2, B.Y2);
  B := IntToBox(0, 0, B.X2-1, B.Y2-1);
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(TPA1, 1842204, B.X1, B.Y1, B.X2, B.Y2, 0);
  FindColorsTolerance(TPA2, 2302755, B.X1, B.Y1, B.X2, B.Y2, 0);
  TPA := CombineTPA(TPA1, TPA2);
  If Length(TPA) < 10 Then
    Exit;

  B := IntToBox(0, 0, 0, 0);
  aTPA := SplitTPA(TPA, 10);
  SortATPASize(aTPA, True);
  B := GetTPABounds(aTPA[0]);
  //Object Blue, Player White, Item Orange, Action Tan, NPC Yellow, Level Green
  Colors := [14342147, 14079443, 3832268, 9677229, 840143{, 710915}];

  SetLength(aTPA, Length(Colors));
  for i := 0 to High(Colors) do
    FindColorsTolerance(aTPA[i], Colors[i], B.X1, B.Y1, B.X2, B.Y2, 70);
  TPA := MergeATPA(aTPA);
  FindColorsTolerance(TPA1, 986117, B.X1, B.Y1, B.X2, B.Y2, 24);//shadow

  bmp := CreateBitmap(B.X2-B.X1+2, B.Y2-B.Y1+2);
  OffsetTPA(TPA, Point(-B.X1, -B.Y1));
  OffsetTPA(TPA1, Point(-B.X1, -B.Y1));
  FastDrawClear(bmp, 0);
  DrawTPABitmap(bmp, TPA, clRed);
  DrawTPABitmap(bmp, TPA1, clPurple);
  ocr_FilterUpTextByCharacteristics(GetMufasaBitmap(bmp));
  GetbitmapSize(bmp,w,h);
  SetTargetBitmap(bmp);  // new target for findcolorstolerance.
  findcolorstolerance(TPA, clRed, 0, 0, w-1,h-1, 0);
  ATPA := SplitTPAEx(TPA, 15, 2);
  L := High(ATPA);
  SortATPAFromFirstPointY(ATPA, Point(w/2,0));

  SetArrayLength(Result, Length(ATPA));
  for i := 0 to high(ATPA) do
  begin
    TPA := ATPA[i];
    tempatpa := SplitTPAEx(TPA, 1, 10); // Split one into characters
    SortATPAFromFirstPointX(tempatpa, Point(0, 0));
    Result[i].Str := GetTextATPA(tempatpa, 4, 'UpCharsEx');
    BB := GetTPABounds(ATPA[i]);
    Result[i].Bounds := IntToBox(BB.X1+B.X1, BB.Y1+B.Y1, BB.X2+B.X1, BB.Y2+B.Y1);
    setlength(tempatpa,0);
    setlength(TPA,0);
  end;
  ColorToleranceSpeed(cts);
  SetImageTarget(target);
  FreeBitmap(bmp);
end;

GetSkillInfo:

Simba Code:

function GetSkillInfo(Skill: Variant; Amount : Boolean): Integer;
var
  TP: TPoint;
  Box : TBox;
  TPA : TPointArray;
  Cts : Integer;

begin
  Result := -1;
  GameTab(tab_Stats);
  TP := SkillToCoords(Skill);
  if (not(Amount)) then
    TP := Point(TP.x + 15,TP.y + 12);
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(0);
  if not FindColors(TPA, 36095, TP.x - 2, TP.y - 2, TP.x + 15, TP.y + 15) then
  begin
    ColorToleranceSpeed(CTS);
    exit;
  end;
  Box := GetTPABounds(TPA);
  Result := StrToIntDef(GetNumbers(GetTextAtEx(Box.x1 - 2, Box.y1 -1, 100,
    StatChars, False, True, 0, 3, 36095, 3, True, tr_Digits)), -1);
  ColorToleranceSpeed(CTS);
end;

Progress:
GetXP, GetChooseOptions, GetSkillInfo, and XPTillNextLevel = Fixed;

Combat Stuff and XP Bar = Under Developement.

~Home

01-16-2012, 06:31 PM
PatDuffy

I love you, will test it now
01-16-2012, 06:36 PM
Gimpy666

Works flawlessly!
01-16-2012, 06:38 PM
dudekid39

gimpy666 where do i must put this code in
01-16-2012, 06:40 PM
Gimpy666

Quote:

Originally Posted by dudekid39

gimpy666 where do i must put this code in

Open Simba

Under the Functionlist, type in 'GetChooseOption'

Copy and paste the code over what is there already.

Save it.

http://i.imgur.com/nXPn5.png
01-16-2012, 06:43 PM
Kyle Undefined

For all the people who don't know where to update, just replace your text.simba file with this one. Found in (/Simba/Includes/SRL/SRL/core/).
01-16-2012, 06:47 PM
poopy2177

Thanks works flawlessly for me again
01-16-2012, 06:50 PM
dudekid39

thanks dude my bot is working great now <3
01-16-2012, 06:52 PM
hamster31

To lazy to change it lol...dam it i don't wanna but ugh lol...fine! let me test it
01-16-2012, 06:52 PM
illuminatiswag

This isnt going to fix all the bots though correct ?
01-16-2012, 06:53 PM
eljb1234

Can always rely on a legend on villavu to fix any problems :D Thanks a lot guys

Is working 100% :D
01-16-2012, 06:56 PM
Home

Quote:

Originally Posted by illuminatiswag

This isnt going to fix all the bots though correct ?

Most bots, because Chooseoption is huge part of SRL and scripts.
Working on other updates as we speak.

~Home
01-16-2012, 06:58 PM
illuminatiswag

Quote:

Originally Posted by Home

Most bots, because Chooseoption is huge part of SRL and scripts.
Working on other updates as we speak.

~Home

cool and good luck and thanks :bart:
01-16-2012, 06:58 PM
lKris93

Yes im new to Simba, I dont know what im doing wrong. I reset my text file with the one that was attached above, but when I try to start a script with MSI only thing that happens is my character faces North, checks my skills and stuff, then logs out.
01-16-2012, 06:59 PM
Nebula

works nicely, thanks!
01-16-2012, 07:04 PM
Rezozo

Quote:

Originally Posted by Kyle Undefined

For all the people who don't know where to update, just replace your text.simba file with this one. Found in (/Simba/Includes/SRL/SRL/core/).

Ty it helped alot, though do you know why msi Miner is not recognising my rune pickaxe, even though it is equipped, just asking :)

ty for the fix anyway home!
01-16-2012, 07:07 PM
Kyle Undefined

The stat chars are messed up, that needs to be fixed, so MSI is currently broken until then.
01-16-2012, 07:16 PM
ryangraham22

on ZMI-extreme, it just hovers over the new XP tab, i think this has to do with the banker and icon looking the same color.
01-16-2012, 07:19 PM
PatDuffy

Quote:

Originally Posted by ryangraham22

on ZMI-extreme, it just hovers over the new XP tab, i think this has to do with the banker and icon looking the same color.

that has nothing at all to do with this topic.
01-16-2012, 07:31 PM
PhaseCode

Works great, and it was a fast fix. Thanks Home :P

Quote:

Originally Posted by Home

Simba Code:

Function GetChooseOptions(TextType: string): Array of TOptions;
var
   B,BB: TBox;
   TPA, TPA1, TPA2: TPointArray;
   aTPA, tempatpa: T2DPointArray;
   I, L, target, bmp,w,h, cts: Integer;
   Colors: TIntegerArray;
begin
  target := GetImageTarget;
  GetClientDimensions(B.X2, B.Y2);
  B := IntToBox(0, 0, B.X2-1, B.Y2-1);
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(TPA1, 1842204, B.X1, B.Y1, B.X2, B.Y2, 0);
  FindColorsTolerance(TPA2, 2302755, B.X1, B.Y1, B.X2, B.Y2, 0);
  TPA := CombineTPA(TPA1, TPA2);
  If Length(TPA) < 10 Then
    Exit;

  B := IntToBox(0, 0, 0, 0);
  aTPA := SplitTPA(TPA, 10);
  SortATPASize(aTPA, True);
  B := GetTPABounds(aTPA[0]);
  //Object Blue, Player White, Item Orange, Action Tan, NPC Yellow, Level Green
  Colors := [14342147, 14079443, 3832268, 9677229, 840143{, 710915}];

  SetLength(aTPA, Length(Colors));
  for i := 0 to High(Colors) do
    FindColorsTolerance(aTPA[i], Colors[i], B.X1, B.Y1, B.X2, B.Y2, 70);
  TPA := MergeATPA(aTPA);
  FindColorsTolerance(TPA1, 986117, B.X1, B.Y1, B.X2, B.Y2, 24);//shadow

  bmp := CreateBitmap(B.X2-B.X1+2, B.Y2-B.Y1+2);
  OffsetTPA(TPA, Point(-B.X1, -B.Y1));
  OffsetTPA(TPA1, Point(-B.X1, -B.Y1));
  FastDrawClear(bmp, 0);
  DrawTPABitmap(bmp, TPA, clRed);
  DrawTPABitmap(bmp, TPA1, clPurple);
  ocr_FilterUpTextByCharacteristics(GetMufasaBitmap(bmp));
  GetbitmapSize(bmp,w,h);
  SetTargetBitmap(bmp);  // new target for findcolorstolerance.
  findcolorstolerance(TPA, clRed, 0, 0, w-1,h-1, 0);
  ATPA := SplitTPAEx(TPA, 15, 2);
  L := High(ATPA);
  SortATPAFromFirstPointY(ATPA, Point(w/2,0));

  SetArrayLength(Result, Length(ATPA));
  for i := 0 to high(ATPA) do
  begin
    TPA := ATPA[i];
    tempatpa := SplitTPAEx(TPA, 1, 10); // Split one into characters
    SortATPAFromFirstPointX(tempatpa, Point(0, 0));
    Result[i].Str := GetTextATPA(tempatpa, 4, 'UpCharsEx');
    BB := GetTPABounds(ATPA[i]);
    Result[i].Bounds := IntToBox(BB.X1+B.X1, BB.Y1+B.Y1, BB.X2+B.X1, BB.Y2+B.Y1);
    setlength(tempatpa,0);
    setlength(TPA,0);
  end;
  ColorToleranceSpeed(cts);
  SetImageTarget(target);
  FreeBitmap(bmp);
end;

Tested.

But more testing is always welcome before commit.

~Home

I actually love you, lmao. Now I can get 99 mage! :D

XP Counter Fix.. Gets the Total XP In the XP Bar.

Simba Code:

Function GetXPBarTotal: Integer;
var
  TPA: TPointArray;
  B: TBox;
begin
  FindColorsTolerance(TPA, 14474460, 418, 6, 489, 25, 1);
  B := GetTPABounds(TPA);
  B := IntToBox(B.X1, B.Y1, B.X2, B.Y2);
  Result := StrToIntDef(ExtractFromStr(GetTextAtExWrap(B.X1, B.Y1, B.X2, B.Y2, 0, 5, 4, 14474460, 0, 'XPChars'), Numbers), 0);
end;

Quote:

Originally Posted by ggzz

XP Counter Fix.. Gets the Total XP In the XP Bar.

Simba Code:

Function GetXPBarTotal: Integer;
var
  TPA: TPointArray;
  B: TBox;
begin
  FindColorsTolerance(TPA, 14474460, 418, 6, 489, 25, 1);
  B := GetTPABounds(TPA);
  B := IntToBox(B.X1, B.Y1, B.X2, B.Y2);
  Result := StrToIntDef(ExtractFromStr(GetTextAtExWrap(B.X1, B.Y1, B.X2, B.Y2, 0, 5, 4, 14474460, 0, 'XPChars'), Numbers), 0);
end;

Doesn't work. Yet those uses new fonts, compare "4" to XpChars and you will see.

~Home

01-16-2012, 07:54 PM
indian12

yup the narcle fighter dosent detect aything and just eats all of my food also the MSI pickaxe thing is broke it cant find wich is best pickaxe and also says im not high enough level to get any ores.
01-16-2012, 07:58 PM
lilcmp1

You are a beast! My rcer is working 100% :D
01-16-2012, 08:02 PM
Brandon

Quote:

Originally Posted by Home

Doesn't work. Yet those uses new fonts, compare "4" to XpChars and you will see.

~Home

:S But it's getting the XP for me :S It's just the last digit that it messes up on.
01-16-2012, 08:05 PM
Home

Quote:

Originally Posted by ggzz

:S But it's getting the XP for me :S It's just the last digit that it messes up on.

Odd.. For me it messes it up totally :S

~Home
01-16-2012, 08:06 PM
turboo

Wowww!! Nice Quick Fix!!! Thanks A Bunch!!!
01-16-2012, 08:10 PM
illuminatiswag

Quote:

Originally Posted by lilcmp1

You are a beast! My rcer is working 100% :D

what rcer you using
01-16-2012, 08:14 PM
Kasi

Doesnt work when other screens are open eg the xp setup screen

Edit:

Quote:

Originally Posted by illuminatiswag

what rcer you using

Stay on topic
01-16-2012, 08:16 PM
illuminatiswag

Quote:

Originally Posted by pur3b100d

Doesnt work when other screens are open eg the xp setup screen

exatcly what do we have to open so it works then
01-16-2012, 08:19 PM
pulse0

tested! works perfect thank-you! will post a proggy once i get a good one

Quote:

Originally Posted by Home

GetChooseOptions:

Simba Code:

Function GetChooseOptions(TextType: string): Array of TOptions;
var
   B,BB: TBox;
   TPA, TPA1, TPA2: TPointArray;
   aTPA, tempatpa: T2DPointArray;
   I, L, target, bmp,w,h, cts: Integer;
   Colors: TIntegerArray;
begin
  target := GetImageTarget;
  GetClientDimensions(B.X2, B.Y2);
  B := IntToBox(0, 0, B.X2-1, B.Y2-1);
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsTolerance(TPA1, 1842204, B.X1, B.Y1, B.X2, B.Y2, 0);
  FindColorsTolerance(TPA2, 2302755, B.X1, B.Y1, B.X2, B.Y2, 0);
  TPA := CombineTPA(TPA1, TPA2);
  If Length(TPA) < 10 Then
    Exit;

  B := IntToBox(0, 0, 0, 0);
  aTPA := SplitTPA(TPA, 10);
  SortATPASize(aTPA, True);
  B := GetTPABounds(aTPA[0]);
  //Object Blue, Player White, Item Orange, Action Tan, NPC Yellow, Level Green
  Colors := [14342147, 14079443, 3832268, 9677229, 840143{, 710915}];

  SetLength(aTPA, Length(Colors));
  for i := 0 to High(Colors) do
    FindColorsTolerance(aTPA[i], Colors[i], B.X1, B.Y1, B.X2, B.Y2, 70);
  TPA := MergeATPA(aTPA);
  FindColorsTolerance(TPA1, 986117, B.X1, B.Y1, B.X2, B.Y2, 24);//shadow

  bmp := CreateBitmap(B.X2-B.X1+2, B.Y2-B.Y1+2);
  OffsetTPA(TPA, Point(-B.X1, -B.Y1));
  OffsetTPA(TPA1, Point(-B.X1, -B.Y1));
  FastDrawClear(bmp, 0);
  DrawTPABitmap(bmp, TPA, clRed);
  DrawTPABitmap(bmp, TPA1, clPurple);
  ocr_FilterUpTextByCharacteristics(GetMufasaBitmap(bmp));
  GetbitmapSize(bmp,w,h);
  SetTargetBitmap(bmp);  // new target for findcolorstolerance.
  findcolorstolerance(TPA, clRed, 0, 0, w-1,h-1, 0);
  ATPA := SplitTPAEx(TPA, 15, 2);
  L := High(ATPA);
  SortATPAFromFirstPointY(ATPA, Point(w/2,0));

  SetArrayLength(Result, Length(ATPA));
  for i := 0 to high(ATPA) do
  begin
    TPA := ATPA[i];
    tempatpa := SplitTPAEx(TPA, 1, 10); // Split one into characters
    SortATPAFromFirstPointX(tempatpa, Point(0, 0));
    Result[i].Str := GetTextATPA(tempatpa, 4, 'UpCharsEx');
    BB := GetTPABounds(ATPA[i]);
    Result[i].Bounds := IntToBox(BB.X1+B.X1, BB.Y1+B.Y1, BB.X2+B.X1, BB.Y2+B.Y1);
    setlength(tempatpa,0);
    setlength(TPA,0);
  end;
  ColorToleranceSpeed(cts);
  SetImageTarget(target);
  FreeBitmap(bmp);
end;

GetSkillInfo:

Simba Code:

function GetSkillInfo(Skill: Variant; Amount : Boolean): Integer;
var
  TP: TPoint;
  Box : TBox;
  TPA : TPointArray;
  Cts : Integer;

begin
  Result := -1;
  GameTab(tab_Stats);
  TP := SkillToCoords(Skill);
  if (not(Amount)) then
    TP := Point(TP.x + 15,TP.y + 12);
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(0);
  if not FindColors(TPA, 36095, TP.x - 2, TP.y - 2, TP.x + 15, TP.y + 15) then
  begin
    ColorToleranceSpeed(CTS);
    exit;
  end;
  Box := GetTPABounds(TPA);
  Result := StrToIntDef(GetNumbers(GetTextAtEx(Box.x1 - 2, Box.y1 -1, 100,
    StatChars, False, True, 0, 3, 36095, 3, True, tr_Digits)), -1);
  ColorToleranceSpeed(CTS);
end;

Tested.

But more testing is always welcome before commit.

~Home

i got the first one were it supposed to go but where does second one go it isnt in srl/srl/core

01-16-2012, 08:21 PM
Home

Quote:

Originally Posted by illuminatiswag

i got the first one were it supposed to go but where does second one go it isnt in srl/srl/core

To GameTab.simba.

That will make your GetLevel functions work. GetXp is still outdated and few other functions.

~Home
01-16-2012, 08:26 PM
shanghai88

You work fast, you are a SRL god !!

This works awesome!!

Thanks

p.s. ***A MUST***

Just toggle off the pop-up by right clicking on the exp counter (top right same place it has always been) than it won't interfere with all the set colors in most script. Especially when they have the whole color spectrum on that popup:sasmokin:.
01-16-2012, 08:27 PM
illuminatiswag

Quote:

Originally Posted by Home

To GameTab.simba.

That will make your GetLevel functions work. GetXp is still outdated and few other functions.

~Home

Thanks you should add in OP were each thing goes like not where its located and junk just name of file
01-16-2012, 08:28 PM
dudekid39

home can you make a fix that i can back again plz :)
01-16-2012, 08:36 PM
Rs Baws

Font code works but when I do the 2nd one I get errors in the script
01-16-2012, 08:40 PM
Jamestt

Some Scripts arent working good though, the banking system is but not 100% Thanks to Home and Kyle Undefined as always for support
01-16-2012, 08:51 PM
Zyt3x

Home: Use github's pull request thing :)

Show 40 post(s) from this thread on one page