SRL Archive - Senior News and General

I was wondering if the SSRL members could get a hold of SRL 4 like 3 days before regular members?

this makes it so we can further test it and check stuff for you guys :p.

I think they are just going to release it once its done, period. People have been waiting as long as you, as they may be working on a script, and want to test it.
Eitherway, i hope this gap got rid of some leechers.

ya i know they have been waiting :p

just hopping i can convince someone to release SRL 4 to use a little earlier :p

i know i might be able to get ram to help convince because without SRL 4 im not working on my new guild miner.

i dont see a reason not to release to us a little bit more earlier than regular members.:f: \\im just here to leech duh.

Well when it gets released it will be in svn mode. Releasing it here may be good. But there isnt enough people really to point out all the minor bugs. And it is no advantage to you to have it other then to brag omfg i have new srl.

Well considering we want to get it out next week, that doesn't leave much time for you to test it.

plus we have rescripted quite a bit, so scripts will have to have major over hauls anyways, and that will limit your testing time even more.

Well, I'm going to back up Dark for trying :D…and Pyro…this section was NOT formed on Braggers :(

From: Pyro
Well when it gets released it will be in svn mode. Releasing it here may be good. But there isnt enough people really to point out all the minor bugs. And it is no advantage to you to have it other then to brag omfg i have new srl.

NO there is another advantage!

we can auto 3 days before everyone else XD.

yay ram for backing me up.


plus i think it would be nice to see how well the devs can do when rewriting almost the whole include….


if you guys cant release SRL 4 to us…. can i atleast see what you guys did to object.scar cause i didnt even want to open it in the last version because it was all crappy lookin. with only one or two real findobjects in there with 20 others that lived off those with no point :p


no real adv or reason for you to release to us i know that but sometimes you dont need a reason for doing stuff right :p.

and you cant blame me for trying :p I mean ive only been around using scar as long as you have pyro… XD.
its just that i dont script in free time :p I play halo 2 in free time.


hell just release the manual for SRL 4 to use before SRL 4 itself… this way i know what you guys have done to the include… and the manual will sum that up for me so you dont have to explain…

Dark, have you seen the new infractions Star had added for begging :rolleyes:….I can only back you up so far :p

Try starting a petition, see how far that gets you :p

From: RAM_RUNE
Dark, have you seen the new infractions Star had added for begging :rolleyes:….I can only back you up so far :p

Try starting a petition, see how far that gets you :p

is there a difference between asking and begging?
XD


go ahead and give me infraction… only took me like 2 years to get one(begging for infraction? that means i get 2?????).
haha.

and i did not know someone changed the rules on me….

maybe like a mass PM should sent out so we know the rules have been changed for our own safety XD.



and RAM support me till the death XD..


and no worries i shall setup that petition!

ha im begging for SRL 4 manual… im sure everyone will agree that only a nub would do that XD…


and im sure star was not thinking that someone would ever beg for something like srl manual XD(when it has not been released)…

Begging for an infraction for Begging ….That made my night :D:D:D:D


….*Star starts to hear chanting outside his window* ……"Hell No, We Won't Go " !!!!…….."Hell No, We Won't Go " !!!!……"Hell No, We Won't Go " !!!!……"Hell No, We Won't Go " !!!!……"Hell No, We Won't Go " !!!!……"Hell No, We Won't Go " !!!!……"Hell No, We Won't Go " !!!!……

hehe that post must have takin a while… changing the sizes like 100 x lol..


star better hope they arent holding pitch forks and torches…

omg, what was that noise…? Probably just a bird…

Here is the new object.scar for you. This is all you are getting :p

NO LEAKING OTHERWISE WE SHALL NEVER TRUST YOU AGAIN

[php]
//—————————————————————–//
//– Scar Standard Resource Library –//
//– » ObjectFinding Routines –//
//—————————————————————–//

// » function FindObj(var cx, cy: Integer; Text: String; color, tolerance: Integer): Boolean; // * by Stupid3ooo
// » function FindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean; // * Stupid3ooo and Starblaster100
// » function FindObjEx(var x, y: Integer; ObjText: String; x1, y1, x2, y2, Color, Tol, MinXDist, MinYDist, WaitPerCheck: Integer; Spiral: Boolean): Boolean; // * by RsN
// » function FindObjectDeformed(var ObjX, ObjY :integer; UpText1, UpText2: String; BMP, a, b, c, d: integer): Boolean; // * By WT-Fakawi

{*******************************************************************************
function FindObj(var cx, cy: Integer; Text: String; color, tolerance: Integer): Boolean;
By: Stupid3ooo and modified by Ron.
Description: Finds Object.
*******************************************************************************}

function FindObj(var cx, cy: Integer; Text: string; color, tolerance: Integer): Boolean;
var
a, c, i, x1, y1, x2, y2: Integer;
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (Loggedin)) then
Break;
a := a + 1;
if (a = 1) or (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end else
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end else
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end else
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(cx, cy, color, x1, y1, x2, y2, tolerance)) then
begin
MMouse(cx, cy, 0, 0)
Wait(50+Random(50));
if (IsUpText(Text)) then
begin
Result := True;
Break;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;

{*******************************************************************************
function FindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray;
Tolerance: Integer): Boolean;
By: Stupid3ooo and Starblaster100
Description: Finds Object with custom amount of colors and custom amount of Uptext
Use: FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5)
*******************************************************************************}

Function FindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
var
a, b, c, i, x1, y1, x2, y2: Integer;
Start: Boolean;
begin
For b := 0 to (GetArrayLength(Color)-1) do
Begin
if (FindColorSpiralTolerance(cx, cy, color, MSX1, MSY1, MSX2, MSY2, Tolerance)) then
Begin
Start := True;
Break;
end;
end;
If(Start)then
Begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
If not(LoggedIn)then
break;
a := a + 1;
If (a = 1) then
c := c + 1
else If (a = 3) then
c := c + 1;
For i := 1 to c do
Begin
If (a = 1) then
Begin
x1 := x1 + 30;
x2 := x2 + 30;
end else
If (a = 2) then
Begin
y1 := y1 - 20;
y2 := y2 - 20;
end else
If (a = 3) then
Begin
x1 := x1 - 30;
x2 := x2 - 30;
end else
If (a = 4) then
Begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
If (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
If (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
If (x2 > 515) then
Break;
For b := 0 to (GetArrayLength(Color)-1) do
Begin
If (FindColorTolerance(cx, cy, Color, x1, y1, x2, y2, tolerance)) then
Begin
MMouse(cx, cy, 0, 0)
if (IsUpTextMultiCustom(Text)) then
Begin
Result := True;
Exit;
end;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;

{*******************************************************************************
function FindObjEx(var x, y: Integer; ObjText: String; x1, y1, x2, y2, Color, Tol, MinXDist, MinYDist, WaitPerCheck: Integer; Spiral: Boolean): Boolean;
By: RSN
Description: Tries to Find object with specified params.
*******************************************************************************}

function FindObjEx(var x, y: Integer; ObjText: string; x1, y1, x2, y2, Color,
tol, MinXDist, MinYDist, WaitPerCheck: Integer; Spiral: Boolean): Boolean;
var
Points: TPointArray;
I, Ci, n: Integer;
begin
if (Spiral) then
FindColorsSpiralTolerance(x, y, Points, Color, x1, y1, x2, y2, tol)
else
FindColorsTolerance(Points, Color, x1, y1, x2, y2, tol);
ci := 0;
n := GetArrayLength(Points);
for I := 1 to n - 1 do
begin
if (Distance(Points[ci].x, 0, Points.x, 0) >= MinXDist) and
(Distance(0, Points[ci].y, 0, Points.y) >= MinYDist) then
ci := I
else
begin
Points.x := 0;
Points.y := 0;
end;
end;
for i := 0 to n - 1 do
begin
if (Points.x <> 0) then
begin
MMouse(Points.x, Points.y, 0, 0);
Wait(WaitPerCheck); //adjust wait length for computer speed
if (IsUpText(ObjText)) then
begin
Result := True;
Break;
end;
end;
end;
if (Result) then
begin
x := Points.x;
y := Points.y;
end;
end;

{*******************************************************************************
function FindObjectDeformed(var ObjX, ObjY: Integer; UpText1, UpText2: String; BMP, a, b, c, d: Integer): Boolean;
By: WT-Fakawi
Description: Finds Object in Box a,b,c,d, specified by BitMap and Uptext1 or Uptext2
Returns coords in ObjX and ObjY.
Uses Deformed Bitmap. FindObjectDeformed will gradually lower Tol and reduce Accuracy.
Functon can cause severe Lag when using bitmaps bigger then 16 pixels. Works but Lags.
*******************************************************************************}

function FindObjectDeformed(var ObjX, ObjY: Integer; UpText1, UpText2: string;
BMP, a, b, c, d: Integer): Boolean;
var
acc, ref: Extended;
XT, YT, times, tol: Integer;
begin
ref := 0.9;
tol := 0;
for times := 1 to 50 do
begin
FindDeformedBitmapToleranceIn(BMP, XT, YT, a, b, c, d, tol, 2, True, acc);
if (acc >= ref) then
begin
MMouse(XT, YT, 0, 0);
Wait(400 + Random(400));
if (IsUpText(UpText1) or IsUpText(UpText2)) then
begin
ObjX := XT;
ObjY := YT;
Result := True;
Exit;
end;
end;
if times mod 5 = 0 then
begin
ref := ref - 0.1;
tol := tol + 10;
end;
Wait(1);
end;
end;
[/php]

FindObjCustom is so very sexy Star :p
I R <3ing how scar is now PHP coding!

SRL 4 is going to rule!

seeing as how cleaned up the object.scar is!:garfield:

Oooh that is the sh*t. Finally you guys cleaned up all the coding! ChooseOption(x, y, 'fish');….Hah.

From: Ejjman1
Oooh that is the sh*t. Finally you guys cleaned up all the coding! ChooseOption(x, y, 'fish');….Hah.

Haha, thanks, thats my doing ;)

Was a brave move since i didnt poll it first :p lol

Ya, when I started, and for a really really long time, I always chose chooseoption

I just recently switched to clickoption, which is still kinda wacked.

Rofl darky. I know, why do you think we are waiting to release srl :p so us devs are getting in some good autoing sessions while the worlds are empty :P ahahah. Star i freeken love you for leaving rsns in there. Soon i will fix it up a bit so it knocks out points better while spiraling.

exactly XD… so your hopping they change the interface often huh XD.

From: Dark_Sniper
exactly XD… so your hopping they change the interface often huh XD.

O for sure. Then we quickly fix then we are like mmm we will just wait :p And then we like mine and get tonnes of ores. THen release for you minions :p ahaha nah. Even when there is a change somebody generally posts the fixes within a few hours.

lol i had a fixed SRl but it was crappy so i decided to wait for you guys to fix it… damn big mistake i was expexting a few days at most not 2 weeks..

We did tell you guys we were restructuring this time…

ya i know :p

owell…. its my fault :p