SRL Archive - First Scripts

Description:

• Trains your agility at the Gnome Agility Trainer.

Instructions:

• Start at the Gnome Agility Trainer
• At the beginning of the Log Balancing
• Logout at that position
• Start the script
• And let the script do its magic :P

Proggies:

+++++++++++++++++++++++++++++++++
+ Agility Trainer v1.0 +
+++++++++++++++++++++++++++++++++
+ Total Time Done: 0h:26m:53s
+ Total Laps Done: 9
+ Total Laps Left: 91
+ Total XP Gained: 778.5
+++++++++++++++++++++++++++++++++

Advice:

• Take off your weapon and shield if applicaple, before starting the script!

Credits:

• SCAR
• SRL
• Azzon! For CheckIfLeveled; & WaitOnFlag;
• ME! For scripting the trainer xP :f:

Notes:

• Please if you see problems/improvements do not hesitate to let me know!
• Im still learning to script like many others so my script may not be the best but damn it, it gets the job done :P
• Yea I know its a bit slow! but hopefully i'll do more research and by then i'll be able to make it faster :D

Updates:

[*]Many more fail safes added!
[*]More random camera rotation
[*]Random points to click while moving back to log
[*]Added new anti-ban feature

Old Files:

• Agility Trainer v1.0 [Nadeem].scar (19.2 KB, 10 views)

"ColorTol = 16; // Recommended to leave it to 13" :p lol

looks nice ;D you should learn how to use FindObjTPA ^^

From: 99_
"ColorTol = 16; // Recommended to leave it to 13" :p lol

looks nice ;D you should learn how to use FindObjTPA ^^

oh lol! oops :P i had it to 13 when i started out the script and then learned 16 was better ahaha! my bad :P

ty! Yea maybe i should :) i'll probably use that on the second revision for the script, and hopefully trying to make it a bit faster too!

I would add some more options in your case of antiban.

Also add If not (LoggedIn) then exit's onto the beginning of your procedures.

Looks pretty good, but standards say that you don't have the blank lines in it. Close them up.

From: Aser
I would add some more options in your case of antiban.

Also add If not (LoggedIn) then exit's onto the beginning of your procedures.

Looks pretty good, but standards say that you don't have the blank lines in it. Close them up.

Hi thank you!! You can see the new update i uploaded on the script!

Advice:

* Take off your weapon and shield if applicaple, before starting the script!

It would be cool if you made a procedure that checked if you had a weapon and shield equipped and if you did it would be unequipped.

Sorry I can't test this, but I don't have a p2p account…

From: Aser
It would be cool if you made a procedure that checked if you had a weapon and shield equipped and if you did it would be unequipped.

Sorry I can't test this, but I don't have a p2p account…

hmmm… i like the idea :P i'll probably do some research on the forums and try to have that up on the net version! :p

Some help (I hope…) create a DTM of the blank weapon and shield spot. Then have it open the equipped tab and search for the blank DTM. If it doesn't find it have it click the two spots.

If not (FindDTM({blankweapon})) then
  Mouse(x,y,1,1,True);

If not (FindDTM({blankshield})) then
  Mouse(x,y,1,1,True);

From: Aser
Some help (I hope…) create a DTM of the blank weapon and shield spot. Then have it open the equipped tab and search for the blank DTM. If it doesn't find it have it click the two spots.

If not (FindDTM({blankweapon})) then
  Mouse(x,y,1,1,True);

If not (FindDTM({blankshield})) then
  Mouse(x,y,1,1,True);

ooooh! wowo thank you!! :D so well first i'll have to get the blank dtms of those two spots right?

From: Nadeem
ooooh! wowo thank you!! :D so well first i'll have to get the blank dtms of those two spots right?

Yes, just take a DTM of what it looks like in the weapon area when you don't have one equipped. There may also be a simpler way in inventory.scar, I would look into that first.

Also, feel free to PM me anytime you need anything.

i just tried to use this script it logged me on etc but didn't do anything after it clicked *run* didn't start the course any ideas?

From: ridnlow
i just tried to use this script it logged me on etc but didn't do anything after it clicked *run* didn't start the course any ideas?

Hey,

Did you start the script when you were in front of the Log Balancing course? Just start there log out, and then start the script! should work then! :)

hmm… let me see. :)
i hope it works fine

From: MtW
hmm… let me see. :)
i hope it works fine

lol well it doesn't work so fine no more :P the MAX i've had as of yet is it lasting about 15 mins, though i have no idea how it lasted 26 minutes for my friend lol… Im going to making some new revisions soon and adding in DTMs and ObjectTPA features! Will work with alot more efficiency :f: :spot:

I think this is a good idea and since im rank chicken i cant see any other agility trainers, it goes as far as clicking my run on and stops after that. Is there a solution to this?

P.S I think its easier to use smart but because its your first script i cant really fully help you

From: jameo 30what
I think this is a good idea and since im rank chicken i cant see any other agility trainers, it goes as far as clicking my run on and stops after that. Is there a solution to this?

P.S I think its easier to use smart but because its your first script i cant really fully help you

lol yea will be working on that soon!

PS. Did you start the script when you were in front of the Log Balancing course? Just start there log out, and then start the script! should work then!

I would add a line

if not ({Find the log balance}) then
WriteLn('Couldn`t find the Log Balance please try manually moving your player closer');

That way, they know what the problem is and don't have to post it here. It would also help to fully define the problem. That might not be the issue they are having.

also terminate script if it can't find it..

OR use a failsafe ;D

if(not({find log}))then
  Writeln('Can''t find log D: trying failsafe');
  if(FindSymbol(x, y, 'agility'))then
    Mouse(x, y, 2, 2, True);
    if({find log})then
      {Do Log Stuff}
    else
      Writeln('Can''t find the log still :(');
      Writeln('Post pl0x? ;)');
      TerminateScript;

Super nadeem :) please now barbarian one! begyou(Y)!

^, barbarian is kinda hard since the colors are really close….

Nadeem, this is a good first script:). But, you really should replace all your FindObjCustoms, and use FindObjTPA>>which is really noob//:p

Procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(9) of
    0: wait(250+random(3000));
    1: begin
         MakeCompass('n');
         MakeCompass('e');
         MakeCompass('s');
         MakeCompass('w');
         SetAngle(false);
         SetAngle(true);
       end;
    2: HoverSkill('agility',false);
    3: PickUpMouse;
    4: BoredHuman;
  end;
end;Procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(9) of
    0: wait(250+random(3000));
    1: begin
         MakeCompass('n');
         MakeCompass('e');
         MakeCompass('s');
         MakeCompass('w');
         SetAngle(false);
         SetAngle(true);
       end;
    2: HoverSkill('agility',false);
    3: PickUpMouse;
    4: BoredHuman;
  end;
end;

I'm pretty sure you can do better than that on AntiBan..

:(

lol and this script isnt working it goes over the log and then clicks somewhere bench:D not climbiing up from net:P