PDA

View Full Version : Runescape Update Fixes!!!!!



Timothegreat
01-16-2008, 02:48 AM
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;

david2031
01-16-2008, 02:50 AM
so i just change this with any scripts procedure?

Timothegreat
01-16-2008, 02:51 AM
no you change what is in srl with this new stuff

mickaliscious
01-16-2008, 02:55 AM
I'll try this. Hopefully it will fix my MakeCompass problem.

Timothegreat
01-16-2008, 02:55 AM
Umm dangit i havent made a fix for makecompass...

mickaliscious
01-16-2008, 02:59 AM
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.

Timothegreat
01-16-2008, 03:00 AM
nope i believe its a problem with rs_GetCompassAngleDegrees

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

mickaliscious
01-16-2008, 03:02 AM
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.

kensaurus
01-16-2008, 04:08 AM
ok ill try this

osmm
01-16-2008, 05:11 AM
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.

ZaSz
01-16-2008, 05:17 AM
I like the get hp without changing menu's, that way you can look then eat quicker.

ZephyrsFury
01-16-2008, 07:50 AM
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.

Negaal
01-16-2008, 07:54 AM
I updated skill coords, I'll post it later when it works...though 1 problem there is scroll bar for bottom skills...

mastaraymond
01-16-2008, 07:56 AM
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;

mickaliscious
01-16-2008, 12:58 PM
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...

Rikje
01-16-2008, 01:11 PM
Thx Ray <3

@mick TPA's fzw :p

FNM
01-16-2008, 02:39 PM
Hy's cave runner works again thanks to this, thanks alot ;)

kensaurus
01-16-2008, 04:57 PM
it works : )

ConneX
01-16-2008, 05:02 PM
Some one make all worked .scar files and i download it.
It good and i need it. im noob sorry.;)

kensaurus
01-16-2008, 05:05 PM
lol -.- just edit them according to the instruction... u lazy bum..

jas0npc
01-16-2008, 05:53 PM
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?

ConneX
01-16-2008, 07:07 PM
lol -.- just edit them according to the instruction... u lazy bum..
Lol i dont can. Sry
E:
where i put this:

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;

P1nky
01-16-2008, 09:00 PM
looks good but i need the makecompass more hehe

Wizzup?
01-16-2008, 10:14 PM
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.

mickaliscious
01-16-2008, 10:30 PM
Looking forward to it.

osmm
01-16-2008, 10:33 PM
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.

mastaraymond
01-16-2008, 11:00 PM
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.

FrÕzÑ_§ÕµL
01-16-2008, 11:06 PM
Nice work guys, good luck getting it working and dealing with all the noobs complaining :p

P1nky
01-16-2008, 11:50 PM
hmm i wonder when srl update comming out

*trying to ask Wizzup?* l0l

footballjds
01-16-2008, 11:54 PM
conneX you are a noob and i think you deserve noob points *Cough* noobinator please come*cough*
THANKS FOR THE UPDATES!

mastaraymond
01-17-2008, 12:03 AM
Yea. You people should stop asking when it comes out.. No one knows :p. We can't look into the future :rolleyes:

mickaliscious
01-17-2008, 01:04 AM
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.

kensaurus
01-17-2008, 02:22 AM
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

Timothegreat
01-17-2008, 03:00 AM
well i tried to put in the fixes i came up with... still doesnt work for some scripts

gamer 5
01-17-2008, 03:04 AM
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!

Infidel00
01-17-2008, 04:13 AM
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!

hellian46
01-17-2008, 06:27 AM
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?

kensaurus
01-17-2008, 11:30 AM
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

I Rambozo I
01-17-2008, 05:56 PM
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.

HyperSecret
01-17-2008, 06:13 PM
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

Timothegreat
01-17-2008, 08:20 PM
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

I Rambozo I
01-17-2008, 10:22 PM
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 (http://http://www.speedyshare.com/237561652.html)

Rambozo.

Wizzup?
01-17-2008, 10:43 PM
To be honest I do not really support this. SRL will be released tomorrow.

Swift
01-17-2008, 11:01 PM
Tomorrow, alright I'll take your word on that :).

noob-2
01-17-2008, 11:15 PM
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

Timothegreat
01-17-2008, 11:30 PM
rev 10 released but it should have my gethp function!!!!! :D

kensaurus
01-18-2008, 02:26 AM
anyway thanks for the effort timo XD
and great praise for the scripters

Malevolent33
01-19-2008, 03:26 AM
Can some1 please explain to me how i edit/update my SRL with the codes taht
Timothegreat posted.

I Rambozo I
01-19-2008, 08:05 AM
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.