SRL Archive - First Scripts

123sdghdfgkj

Coooolio! Nice job there bud. :) Have you done alot of testing with it?

From: uz3

Completes the BEGINNER gnome agility course (Works for the first few laps, haven't extensively tested.)

From: Flight
Coooolio! Nice job there bud. :) Have you done alot of testing with it?

…Just saying :)

Nice release man!

Congratz on the release of such a script bud! You're' moving up towards the next level! Advanced gnome course is next? :b
Good luck, happy to see an active member doing something for the community!
Sheers!

~onilika

From: onilika
Congratz on the release of such a script bud! You're' moving up towards the next level! Advanced gnome course is next? :b
Good luck, happy to see an active member doing something for the community!
Sheers!

~onilika

Thanks! Yea, advanced is on my "to-do" list; beginner just isn't cutting it because I have 98 agility haha.

From: uz3
Thanks! Yea, advanced is on my "to-do" list; beginner just isn't cutting it because I have 98 agility haha.

Upon trying to start the script, I'm given this error.

[Error] (9:1): Duplicate identifier 'Players' at line 8
Compiling failed.

From: uz3
Thanks! Yea, advanced is on my "to-do" list; beginner just isn't cutting it because I have 98 agility haha.

And I'm 99. So wouldn't need the advanced script to get levels! More to get those agility rocks, and get some XP! :D

Gunna test this on my pure ill reprt back :)

From: Scaper
Gunna test this on my pure ill reprt back :)

Don't even, you are just going to be frustrated with how unreliable it is right now. I've solved most problems except for one major problem. I probably won't upload the next version until I get it fixed.

Looking forward to test whenever you get it pretty stable!

Cannot wait to test, although it won't run at the moment. :)

Ha, I completely messed up my version history. I did not release anything today.

From: uz3
Ha, I completely messed up my version history. I did not release anything today.

Lol. :p

Oh the humanity! Turns out the main problem with my previous versions was my very own misclick failsafes, oh the irony…

Oh yea, if any of you vet simba scripters want to give me any tips on my script I'd be very grateful!
Mainly on camera rotation though. Like 1/6 of the time it rotates its camera, it doesn't rotate all of the way, or at all.
I'm using MakeCompass('');

dude i got the new on went to the corse and it dose nothing

Did you setup correctly? Do you have Simba installed correctly? Was anything written in the debug box? You must start at the specific spot shown in the picture and make sure you set camera north by clicking on the compass or it for sure won't work.

it went 1once then got stuck on the pipe

I'm currently rewriting major parts of the script. When I release it it should actually be stable. Probably be out thursday because I have to work.

Right now you'd probably be lucky to make it 10 laps.

Looking forward to testing your script! ;D

It run's for about 10minutes then it will get stuck on something :/

From: Im auz
It run's for about 10minutes then it will get stuck on something :/

From: uz3
I'm currently rewriting major parts of the script. When I release it it should actually be stable. Probably be out thursday because I have to work.

Right now you'd probably be lucky to make it 10 laps.

I'm actually changing it to next thursday because of exams.

where is download link ?

From: sigisx5
where is download link ?

First page, at the top explains it.

Current Status of script
Removed script until sometime next week. Refer to posts near the end of the page.

good job

grate job , please repleaze .and nice script

Just a suggestion, but 15 - 35 you can do monkey bars in edgeville dungeon (Wilderness) which is faster then gnome and also is quite easy to make. :) (I imagine, i don't do this language)

From: iCURiP
Just a suggestion, but 15 - 35 you can do monkey bars in edgeville dungeon (Wilderness) which is faster then gnome and also is quite easy to make. :) (I imagine, i don't do this language)

IF I can get this thing full functional, I'm sure I'd go through all of the major agility courses, not sure about those monkey bars, but I'll see how things play out. Thanks for the heads-up!

And if you were wanting to know the progress on the new version it is still at 0%. Dang exams…

Released version 1.2.2; snag it up!

Make sure to follow setup correctly or it for sure won't work!

I was running fine for a few minutes(did like 9 laps), but then after walking the log instead of clicking the *Center One* of the next obstacle "Climbing up obstacle net!".. it clicked the one on the right-side and the script got stuck there afterwards(it did not try to click: Climbing up tree branch!). No idea why it did that on the obstacle net, it seemed to be running perfectly.

I started with the camera angle exactly as the picture you provided

Giving this bot a shot, gonna give some feedback in a hour or so :)

Edit : doesn't even click on the pipe, mouse just gets stuck in the middle. fail.jpg

Seems pretty good, GJ

Nice script looks very good but i don't need agility trained atm.

From: Sexlord
Giving this bot a shot, gonna give some feedback in a hour or so :)

Edit : doesn't even click on the pipe, mouse just gets stuck in the middle. fail.jpg

Yea, I'm pretty sure I fixed that in the new version I'm working on, including other various fixes. Mainly trying to fix the pipe bug. :unsure:

Version 1.2.3. Fixed all bugs now I think (I hope). I'm done with coding for a while. Hahahaha. Also, script is a few seconds slower. I may tweak it in the future.

afta it works over the rope it wont click to go down the the tree

can't wait for advanced!

nm.

ill be sure to try this script out! Im wayy too lazy to click logs 10 times a minute for 10 hours

brilliant script..had to play with the camera angle a bit to get it to work flawlessly

From: sicksubz
brilliant script..had to play with the camera angle a bit to get it to work flawlessly

Ha thanks, but its back to the shop because I'm STILL finding more bugs… These damn things never end… :(

I dunno, I can't handle this anymore. I think I've bitten off more than I can chew; I am unsure if I will update this again. Doing this script makes me go insane.

If someone wants to edit, be my guest.

Great job, one problem I noted, it some times you end up talking to the gnome on the first tree branch climb, as he sometimes stand right at the beginning of the rope.

From: Dexx
Great job, one problem I noted, it some times you end up talking to the gnome on the first tree branch climb, as he sometimes stand right at the beginning of the rope.

Well, unfortunately I've put working on this script on hiatus. Good news is I'm going to be working on a rune mysteries quester. Scripting this agility has stopped being fun and is now just a pain in the ass and I don't want it to feel like this is a job.

good script … few bugs but iv been trying to iron these out myself … only problems i get now is the climbing up branch … could do with a resetting to north before this … gonna figure out how to do this and also the pipe if its being used doesnt work … but also gonna fix that :) will let you know how i get on



EDIT: oops didnt see your update …. haha still running the old script … will check it out and let you know :)

From: wardy1100
good script … few bugs but iv been trying to iron these out myself … only problems i get now is the climbing up branch … could do with a resetting to north before this … gonna figure out how to do this and also the pipe if its being used doesnt work … but also gonna fix that :) will let you know how i get on



EDIT: oops didnt see your update …. haha still running the old script … will check it out and let you know :)

I guess I could add in click the compass everytime it comes up to the branch if that fixes everything hahaha.

Very nice script! Though it gets stuck sometimes because of the camera/angle moving.
So I added this to fix that problem, you should add it as well:

MakeCompass('N');
SetAngle(false);

From: Gushers
Very nice script! Though it gets stuck sometimes because of the camera/angle moving.
So I added this to fix that problem, you should add it as well:

MakeCompass('N');
SetAngle(false);

Can some1 approve this?

Mine gets stuck right after the log balance, I even tried changing the colors, but it's like it's not even looking for the ObstacleNet1.. No idea why.

Just downloaded the script and will report back later with feedback. I can't wait to see how it works!

having problems finding log balance after lap.

I fix this u can see then work no wrong.


procedure ClimbBranchUp;
var
x, y: Integer;
begin
climbBranchUpSwitch:= false
repeat
if FindObjCustom(X, Y, ['ree','e b','ranch''Tree branch'], [3432310,2051428,2117736], 3) then
GetMousePos(X, Y);
Mouse(x, y, 10, 10, false);
until ChooseOption('Climb');
if ChooseOption('Climb')
then
wait(1000 + random (255));
AntiRandoms;
AntiBan;
wait(1500+random(500));
end; // climb branch up

Yea I knew about that but I wanted to do my script with color while grim did his with object finding.
FYI I'm probably not going to be updating this script again.

Good luck with this cant wait till its stable to run for hours i want 99 agility hope advanced course comes soon :D

Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

How do I fix this error?

From: Deophobic
Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

How do I fix this error?

Hell, I don't know. I didn't read how to switch over to SRL 5.

From: uz3
Hell, I don't know. I didn't read how to switch over to SRL 5.

http://villavu.com/forum/showthread.php?t=71118&highlight=SRL5
Go here to help you learn how to convert that is of course if you want to :)

Does the log balance and they just sits there. tried many camara angles and none worked.

Update your script to SRL5:

Change '.SCAR' to '.simba' so it appears as

{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}

You also have to change change the setNorth and setAngle methods. Read the SRL FAQ for "unable to find srl.

Stop after log.

program Uz3sGnomeAgility;
{$include srl/srl/misc/smart.scar}
{$include srl/srl.scar}

var
x,y,lap,laps,exp,Tempx,Tempy,misClickCounter: integer;
climbBranchUpSwitch:boolean;

procedure TotalExp;
begin
laps:= lap + 1;
laps:= lap - 1;
exp:= lap * 86;
end;

procedure ProgressReport;
begin
ClearDebug;
WriteLn('————————————–');
WriteLn(' Uz3s Gnome Agility v1.2.3');
WriteLn('————————————–');
WriteLn('Script Ran For: ' + TimeRunning);
WriteLn('Laps: ' + IntToStr(laps));
WriteLn('Experience gained…'+ IntToStr(exp));
WriteLn('Multiply laps by .5 and add it to experience gained for real exp');
WriteLn('————————————–');
end;

procedure AntiBan;
begin
case random(500) of //do a random number so it won't always perform the antiban
0: RandomRClick;
1: PickUpMouse;
2: RandomRClick;
3: HoverSkill('agility', False);
4: ExamineInv;
end;
end; //Antiban

procedure AntiRandoms;
begin
FindNormalRandoms; // Whenever this is called, the script will check to see if your character is in a random event
LampSkill := 'agility'; // If you set the script to choose an experience lamp from a random event box, it will use the exp on the woddcutting skill
LevelUp; // This is an Antiban procedure, but I find it more useful when called here because AntiRandoms is usually called more often than Antiban
end; //antirandoms

procedure LogBalance;
begin
repeat
wait(500 + random(100));
if (FindColorSpiralTolerance(x,y,666701, 182, 212, 360, 271, 5))
then
MMouse(x,y,3,5);
until (IsUpText('Log'));
begin
WriteLn('Walking across log balance!');
if (IsUpText('Log'))
then
repeat
wait(1500 + random(100));
if (IsUpText('Log')) then
Mouse(x,y,3,5, true);
until(FindBlackChatMessage('slippery'));
AntiRandoms;
AntiBan;
wait(3000+random(50));
end;
end;//Logbalance

procedure ObstacleNet1;
begin
SetAngle(False);
repeat
wait(100 + random(50));
if (FindColorSpiralTolerance(x,y,999019, 210, 227, 245, 239, 10))
then
MMouse(x,y,5,5);
until (IsUpText('net'));
begin
WriteLn('Climbing up obstacle net!');
if (IsUpText('net'))
then
Mouse(x,y,5,5, true);
wait(1000 + random (255));
AntiRandoms;
AntiBan;
wait(1500+random(100));
end;
end; //Obstacle Net

function branchcolor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.09, 0.47);

FindColorsSpiralTolerance(MSCX, MSCY, arP, 2117223, MSX1, MSY1, MSX2, MSY2, 2);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;

arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);

for i := 0 to arL do
begin
ColorToXYZ(arC, X, Y, Z);

if (X >= 7.59) and (X <= 9.69) and (Y >= 7.51) and (Y <= 9.57) and (Z >= 2.26) and (Z <= 2.79) then
begin
Result := arC;
Writeln('AutoColor = ' + IntToStr(arC));
Break;
end;
end;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;


procedure climbbranch;

begin
SetAngle(true);
if FindObj( x, y, 'ranch', branchcolor ,3) then
writeln ('found branch');
begin
if IsUpText('ranch') then
begin
mouse( x, y, 1, 1, true);
wait(2000)
end;
end;
end;

procedure BalancingRope;
begin
SetAngle(False);
wait(100 + random(10));
MMouse(654,75,5,3);
Mouse(654,75,2,0, true);
repeat
wait(100 +random(10));
if (FindColorSpiralTolerance(x,y,5733788, 299, 189, 319, 203, 10))
then
MMouse(x,y,10,1);
until (IsUpText('rope'));
if (IsUpText('rope'))
then
repeat
wait(500 + random(100));
Mouse(x,y,3,0, true);
until(FindColorSpiralTolerance(x,y,254, msx1, msy1, msx2, msy2, 1));
WriteLn('Walking across rope!');
wait(500 + random (255));
AntiRandoms;
AntiBan;

end; //obstacle rope

procedure ClimbBranchDown;
begin
repeat
wait(500 + random(100));
if (FindColorSpiralTolerance(x,y,2050914, 472, 192, 504, 208, 3))
then
MMouse(x,y,5,5);
until (IsUpText('branch'));
begin
WriteLn('Climbing down branch!');
if (IsUpText('branch'))
then
Mouse(x,y,5,5, true);
AntiRandoms;
AntiBan;
wait(2000+random(100));
end;
end;

procedure ObstacleNet2;
begin
repeat
wait(100 + random(50));
if (FindColorSpiralTolerance(x,y,2636103, 193, 26, 210, 40, 5))
then
MMouse(x,y,5,5);
until (IsUpText('net'));
begin
WriteLn('Climbing up obstacle net!');
if (IsUpText('net'))
then
Mouse(x,y,15,5, true);
wait(1000 + random (255));
AntiRandoms;
AntiBan;
wait(4000+random(100));
end;
end; //Obstacle Net 2

procedure ObstaclePipe;
begin
misClickCounter:= 0;
repeat
wait(50);
if (FindColorSpiralTolerance(x,y,789517, 126, 72, 208, 112, 5))
then
MMouse(x,y,5,5);
until (IsUpText('pipe'));
WriteLn('Climbing in obstacle pipe!');
begin
misClickCounter:= 0;
repeat
misClickCounter:= misClickCounter + 1;
wait(1500 + random(100));
if(IsUpText('pipe')) then
Mouse(x,y,5,5, true);
wait(500 + random(50));
if(misClickCounter > 3) then
begin
MMouse(260,125,5,5)
repeat
wait(900 + random(50));
if(IsUpText('pipe')) then
Mouse(260,125,5,5,true);
until(FindBlackChatMessage('squeeze') or FindBlackChatMessage('enter the pipe'));
end;
until(FindBlackChatMessage('squeeze'));
misClickCounter:= 0;
end;
wait(1500 + random (255));
lap:= lap + 1;
AntiRandoms;
AntiBan;
wait(3000+random(1000));
begin
MMouse(592,86,5,5);
Mouse(592,86,5,1, true);
end;
end;

procedure DeclarePlayers;
begin
HowManyPlayers := 1; // This is set to the total amount of players, for now, just keep it set as 1
NumberOfPlayers(HowManyPlayers); // Don't touch
CurrentPlayer := 0; // This is the player to start with; the first player will always be 0

Players[0].Name := 'x0r9@hotmail.com'; // Username
Players[0].Pass := 'ohmygoditsjanababy'; // Password
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players

procedure SetupLogin;
begin
ClearDebug;
// Setting up SMART;
Smart_Server := 123;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer; // Logging in…
end; // setup login

begin //main function
SetupLogin;
SetupSRL;
DeclarePlayers;
ActivateClient;
repeat
LogBalance;
ObstacleNet1;
climbbranch;
BalancingRope;
ClimbBranchDown;
ObstacleNet2;
ObstaclePipe;
TotalExp
ProgressReport;
until(false)
end.//main function

this the new one work now most good.

crosses the log, and just stands there.

From: qingqinghd
this the new one work now most good.

hey man you might want too edit you're username/password out before anyone changes it and screwes you over. just tryina help u out.

From: qingqinghd
this the new one work now most good.

did 1 round then messed up

Unable to find file 'srl/srl/misc/smart.scar' used from ''

lmao it crosses the rope and stand there any help?

How do you make this work? I've never worked with RS scripts before, and I don't know how to even begin. :(

how am i supposed to use this "script" its just file wrote on notepad how do i activate it?

this doesnt work

From: nubwes
this doesnt work

because you just gravedig'd this thread along with the person above you

Can anyone help me… I can't find where on site how to install the scripts. Downloaded it and ran, went into simba but got this error message. I am fairly sure I installed simba correctly, with 07 include & smart 8 capable as well. Any help or point me to where to ask this would be appreciated.

Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from 'C:\Users\User\Downloads\Uz3sGnomeAgility v1.2.3(1).simba'

From: maybon
Can anyone help me… I can't find where on site how to install the scripts. Downloaded it and ran, went into simba but got this error message. I am fairly sure I installed simba correctly, with 07 include & smart 8 capable as well. Any help or point me to where to ask this would be appreciated.

Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from 'C:\Users\User\Downloads\Uz3sGnomeAgility v1.2.3(1).simba'

P.S changed to smart.simba and srl.simba, then got a compiling error in a new tab
[Error] C:\Simba\Includes\srl/srl/misc/smart.simba(46:19): Invalid number of parameters at line 45
Compiling failed.

any one know what I have done or where to look to fix this?

From: maybon
P.S changed to smart.simba and srl.simba, then got a compiling error in a new tab
[Error] C:\Simba\Includes\srl/srl/misc/smart.simba(46:19): Invalid number of parameters at line 45
Compiling failed.

any one know what I have done or where to look to fix this?

Follow this instruction guide, and make sure you've setup Simba correctly.

How to install/setup Simba

This script is way outdated and was made for Scar. It'd probably be easier to remake it rather than repair it.