SRL Archive - Research & Development Lounge

I made some fixes to go with the new rs update. This will temporarily fix srl. ;)

No fix for makecompass though :(

Minimap coords changes in globals.scar

{ const MMX1, MMY1, MMX2, MMY2;
  Description: MiniMap Edge Points. }
const
  MMX1 = 551;
  MMY1 = 9;
  MMX2 = 702;
  MMY2 = 160;
  
{ const MMCX, MMCY;
  Description: MiniMap Centre Point. }
const
  MMCX = 627; //643
  MMCY = 85; //84

Logout function in login.scar!!!!!

{*******************************************************************************
procedure Logout;
By: Starblaster100 modified by Timothegreat
Description: Logs you out.
*******************************************************************************}

function Logout: Boolean;
var
  c, i: Integer;
begin
  if(LoggedIn)then
  begin
    Mouse(752,13,8,8,true);
    Wait(200 + Random(100));
    while (LoggedIn) or (c < 10) do
    begin
      Inc(c);
      if(ClickText('here', UpChars, MIX1, MIY1, MIX2, MIY2, True))then
      begin
        for i := 0 to 10 do
        begin
          Wait(1000);
          if not(LoggedIn)then
          begin
            Result := True;
            Break;
          end;
        end;
      end;
    end;
  end else
    Result := True;
end;

New GetHp function using upper right hp info!!!!!! Tested and it worked :D !!!!!

in gametab.scar

{*******************************************************************************
function GetHp: Integer;
By: Timothegreat
Description: Returns Hp left as a level
*******************************************************************************}

function GetHp: Integer;
var
  T: TPoint;
  TmpResult: string;
  i,f: Integer;
begin
  tmpResult := GetTextAtEx(720 + 8, 29, 100, StatChars, False, True, 0,
    5, -1, 2, True, tr_Digits);
  if (Trim(tmpResult) = '') then
  begin
    for i := 1 to 5 do
    begin
      tmpResult := GetTextAtEx(720 + i + 8, 29, 100, StatChars, False,
        True, 0, 5, -1, 2, True, tr_Digits);
      if (Trim(tmpResult) <> '') then
        Exit;
    end;
  end else
    Result := StrToIntDef(Trim(GetTextAtEx(720 + 8, 29, 100, StatChars,
      False, True, 0, 5, -1, 2, True, tr_Digits)), 0);
end;

so i just change this with any scripts procedure?

no you change what is in srl with this new stuff

I'll try this. Hopefully it will fix my MakeCompass problem.

Umm dangit i havent made a fix for makecompass…

Well I'll see if your fixes so far fix the problem or not. It could just be the center point changing screwing it up.

nope i believe its a problem with rs_GetCompassAngleDegrees

just edit out all of makecompass is scripts you might use.

agh. Well Freddy released his Compass Math so… if you feel like trying… that could help you.

Or we could all just wait a little while for the Devs to do what they do best.

ok ill try this

I more simpler method would just to put these functions in your script and use them, just to not confuse the nubs ;) . But nice job.

I like the get hp without changing menu's, that way you can look then eat quicker.

From: osmm
I more simpler method would just to put these functions in your script and use them, just to not confuse the nubs ;) . But nice job.

But then you would need to edit every single script. It would be easier to change the include. Besides the devs will be releasing a new revision anyway.

I updated skill coords, I'll post it later when it works…though 1 problem there is scroll bar for bottom skills…

Compass is already fixed in the Dev version..

Function rs_OnMinimap(x, y: Integer): Boolean;
begin;
  Result := InCircle(x, y, MMCX, MMCY, 76);
end;

Function rs_GetCompassAngleDegrees: Extended;

Var
   Compass: TPointArray;
   MyPoint: TPoint;

Begin
  FindColorsTolerance(Compass, 1911089, 520, 2, 560, 40, 0);
  If Length(Compass) < 1 Then
    Exit;
  MyPoint := MiddleTPA(Compass);
  Result := Degrees(ArcTan2(MyPoint.Y - 24, MyPoint.X - 543)) + 90;
  If (Result < 0) Then
    Result := Result + 360;
End;

Function rs_GetCompassAngleRadians: Extended;

Begin
  Result := Radians(rs_GetCompassAngleDegrees);
End;

From: mastaraymond
Compass is already fixed in the Dev version..

Function rs_OnMinimap(x, y: Integer): Boolean;
begin;
  Result := InCircle(x, y, MMCX, MMCY, 76);
end;

Function rs_GetCompassAngleDegrees: Extended;

Var
   Compass: TPointArray;
   MyPoint: TPoint;

Begin
  FindColorsTolerance(Compass, 1911089, 520, 2, 560, 40, 0);
  If Length(Compass) < 1 Then
    Exit;
  MyPoint := MiddleTPA(Compass);
  Result := Degrees(ArcTan2(MyPoint.Y - 24, MyPoint.X - 543)) + 90;
  If (Result < 0) Then
    Result := Result + 360;
End;

Function rs_GetCompassAngleRadians: Extended;

Begin
  Result := Radians(rs_GetCompassAngleDegrees);
End;

AGH TPAS!

Everybody uses them but I never bothered to learn them. Guess I should get on that.

Wouldn't it be more efficient to leave the first one in radians and then convert it to degrees in the second? (Switch the names of course.) Right now its converted from radians to degrees then back to radians for the rs_GetCompassAngleRadians…

Thx Ray <3

@mick TPA's fzw :p

Hy's cave runner works again thanks to this, thanks alot ;)

it works : )

Some one make all worked .scar files and i download it.
It good and i need it. im noob sorry.;)

lol -.- just edit them according to the instruction… u lazy bum..

From: mastaraymond
Compass is already fixed in the Dev version..

Function rs_OnMinimap(x, y: Integer): Boolean;
begin;
  Result := InCircle(x, y, MMCX, MMCY, 76);
end;

Function rs_GetCompassAngleDegrees: Extended;

Var
   Compass: TPointArray;
   MyPoint: TPoint;

Begin
  FindColorsTolerance(Compass, 1911089, 520, 2, 560, 40, 0);
  If Length(Compass) < 1 Then
    Exit;
  MyPoint := MiddleTPA(Compass);
  Result := Degrees(ArcTan2(MyPoint.Y - 24, MyPoint.X - 543)) + 90;
  If (Result < 0) Then
    Result := Result + 360;
End;

Function rs_GetCompassAngleRadians: Extended;

Begin
  Result := Radians(rs_GetCompassAngleDegrees);
End;

Which files do i edit to make the compass work, lol?

From: kensaurus
lol -.- just edit them according to the instruction… u lazy bum..

Lol i dont can. Sry
E:
where i put this:

From: mastaraymond
Compass is already fixed in the Dev version..

Function rs_OnMinimap(x, y: Integer): Boolean;
begin;
  Result := InCircle(x, y, MMCX, MMCY, 76);
end;

Function rs_GetCompassAngleDegrees: Extended;

Var
   Compass: TPointArray;
   MyPoint: TPoint;

Begin
  FindColorsTolerance(Compass, 1911089, 520, 2, 560, 40, 0);
  If Length(Compass) < 1 Then
    Exit;
  MyPoint := MiddleTPA(Compass);
  Result := Degrees(ArcTan2(MyPoint.Y - 24, MyPoint.X - 543)) + 90;
  If (Result < 0) Then
    Result := Result + 360;
End;

Function rs_GetCompassAngleRadians: Extended;

Begin
  Result := Radians(rs_GetCompassAngleDegrees);
End;

looks good but i need the makecompass more hehe

From: mastaraymond
Compass is already fixed in the Dev version..

Function rs_OnMinimap(x, y: Integer): Boolean;
begin;
  Result := InCircle(x, y, MMCX, MMCY, 76);
end;

Function rs_GetCompassAngleDegrees: Extended;

Var
   Compass: TPointArray;
   MyPoint: TPoint;

Begin
  FindColorsTolerance(Compass, 1911089, 520, 2, 560, 40, 0);
  If Length(Compass) < 1 Then
    Exit;
  MyPoint := MiddleTPA(Compass);
  Result := Degrees(ArcTan2(MyPoint.Y - 24, MyPoint.X - 543)) + 90;
  If (Result < 0) Then
    Result := Result + 360;
End;

Function rs_GetCompassAngleRadians: Extended;

Begin
  Result := Radians(rs_GetCompassAngleDegrees);
End;

Not just compass…. Everything is. This topic is a waste of time. SRL will be released soon.

Looking forward to it.

WOW, this is incredable. Wizzup and all others, you guys are great. I donated the 1m and I would donate more if I could. You guys are amazzing scripters. I'm sure all of us are excited for a new SRL.

From: Wizzup?
Not just compass…. Everything is. This topic is a waste of time. SRL will be released soon.

I know… I posted this so they shouldn't waste their time on it, lol.

Nice work guys, good luck getting it working and dealing with all the noobs complaining :p

hmm i wonder when srl update comming out

*trying to ask Wizzup?* l0l

conneX you are a noob and i think you deserve noob points *Cough* noobinator please come*cough*
THANKS FOR THE UPDATES!

Yea. You people should stop asking when it comes out.. No one knows :p. We can't look into the future :rolleyes:

From: mastaraymond
Yea. You people should stop asking when it comes out.. No one knows :p. We can't look into the future :rolleyes:

Are you sure? I'm almost positive BenLand and Wizzup? made a plugin for that.

noobs will still complain lol they will start asking qns like "where is globals.scar?" , "can u help me package everything nicely for me to download?" lol

well i tried to put in the fixes i came up with… still doesnt work for some scripts

Thanks for the updates but i think they need like to redo srl becasue alot of things are not working! MakeCompass is a major one!

Nice work on these! Better than I could have ever done! Not saying much though since I am not as gifted.

I messed around with these and added them into my files, though I am hesitant on using a script at the moment until the real deal is released.

Wonderful work though!

Anyone know why on every script I use now, say on Wizzup ess miner, I can only mine 1 ess then it logs me out?

well.. since the interface changed there will sure be bugs… try using scripts that dont utilize the compass and stats reading..
some scripts do work, except they wont logout : O

Hey Timo,

Is it ok for you that I pack all the fixed files for the noobies and upload them into a new thread? - since I see there's quite some request for it.

Rambozo.

if you want SRL to work that badly then just wait…if your that worried about your character then play legit for the week or so it will take for them to update…its not the end of the world since we do auto

From: I Rambozo I
Hey Timo,

Is it ok for you that I pack all the fixed files for the noobies and upload them into a new thread? - since I see there's quite some request for it.

Rambozo.

hey rambozo just upload them here please

For all the noobs (or just the lazy ones @ SRL), here are all the updated files. Just copy them into your SRL core folder; C:\Program Files\SCAR 3.**\includes\SRL\SRL\core

www.speedyshare.com/237561652.html

Rambozo.

To be honest I do not really support this. SRL will be released tomorrow.

Tomorrow, alright I'll take your word on that :).

im excited for the new update, you're semi new updates could work? but since there not being taken into the new srl im not gonna bother to try and use. Thanks anyways

rev 10 released but it should have my gethp function!!!!! :D

anyway thanks for the effort timo XD
and great praise for the scripters

Can some1 please explain to me how i edit/update my SRL with the codes taht
Timothegreat posted.

From: Malevolent33
Can some1 please explain to me how i edit/update my SRL with the codes taht
Timothegreat posted.

No need for that anymore, just update your RSL to Rev 10 in Scar.

This thread can be closed-removed.

Rambozo.