SRL Archive - First Scripts

Hey this is my first script ever
i have only read 1 totorial!
can any one tell me how to add a ent finder!:confused:
start at the bank booth shown in the pic attachment<- for V1.0 n V1.1
also post any problems or ideas!
————————————————————————–
V1.0
all cords
no anti randoms
no anti ban
no srl

V1.1
all cords
antirandoms
no antiban
Srl

V1.2
No cords
ridal walk
find object
Anti randoms
Anti ban
Srl
————————————————————————–
Please poast progges

OK, uh. I haven't run it but…
Remove all MoveMouse's
Switch ClickMouse's with Mouse's

It would..work but it would also be very detectable.
Use 'FindColorTolerance' and pick a color for the coordinates of the trees.
This is an anti-random function, just copy and paste.

Function FindFastRandoms: Boolean;    // By WT-Fakawi.
var
  i: Integer;
begin
  for i:=1 to 12 do
  begin
    case I of
       1:  If FindDead then
             Result := True;
       2:  If FindMod then
             Result := True;
       3:  If FindMime then
             Result := True;
       4:  If FindMaze then
             Result := True;
       5:  If FindQuiz then
             Result := True;
       6:  If FindDemon then
             Result := True;
       7: begin
             if NoGameTab then
             begin
               Result := True;
               LogoutPlayer('No gametab');
               Exit;
             end;
           end;
       8: begin
             If InBlack then
             begin
               Result := True;
               LogoutPlayer('In black');
               Exit;
             end;
           end;
       9 : If RC Then Result := True;

       10 : If FindFight Then
             Begin
                RunTo(RunDirec, True);
                RunBack;
                ActivateClient;
                Result := True;
             End;

       11: If FindTalk Then Result := True;

       12: Respond;
    End;
    Wait(1);
  end;
  if Result then SRLRandomsReport;
end;

This is another anti-random function, copy and paste it also.

FindNormalRandoms;

You need to add standards too, you can find them in the Tutorials for Beginners section.
I also recommend reading all the tutorials before making a script, because you often find many things that could be improved upon. It is a good first script, however. I complained about this when I made my first script, the tutorial that I read was outdated - we probably read the same one, lol.
Just below the 'program' you need to add {.include SRL/SRL.scar} and add SetupSRL; into the main loop, just before repeat.

wow nice first script poolikemax its just what i needed

For the find ent at the top of the script include srl wooducting e.g:

 Program New;
{.Include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}

Then when your cutting you can do:

 
If findcolor (treecolor) then
 Begin 
MMouse(x,y,1,1)
  FindEnt(x,y,true) // True := Run away if find ent true for yes or false for no
  Mouse(x,y,6,4,true)
end;
And blah blah blah...

Theres alot more errors in there but when you get to my stage you should be able to improve this alot :).

Good first script keep on learning and you'll make a scripter level in no time :p

hey lol i would update this script from the crappy cords to radail and colors but i think this script is pointless an no 1 would need it if you do pm and i will update

i have updated tack a look at V1.2 it well gd

don't know why it's not working for me :-/

probs new version of srl

wow liiked at it looks good shame srl has been updated and dosent work