SRL Archive - First Scripts

I would like it if some people could test it.

It is not complete
I am going to add:
forms
axe head finding and fixing
and a progress report

Thanks for your help.

Not working.

Could you expand on that? That really doesn't tell me anything.

From: markuska815
Could you expand on that? That really doesn't tell me anything.

I start at bank, it walks to wrong place, dousent even starting to find maple trees, then walking some other place, also wrong.
Not working.

Thanks for that. I will change the walking procedure to radialwalk and see if that makes it work better.

Edit:Change to radialwalk. I tested it and it worked for me. This is the script without any randoms just for testing purposes.
Try the attached

Not working, only clicks to inventory and stands just around.
Second time i started the script it didnt do nothing at all.
Messed up script.

ok try the new attachment

I'll test it for ya bro…keep up the good work.

i tested it and the mouse started freeking out in the right side of the page goin up and down. i was scared cuz i kept pushin Ctrl+Alt+S and nothing was working. but after a while it stoped?

Still not working.
It clicked to inventori then turned on the run and just standed there.

Second time i run same think like gr1m had.

procedure ChopTree;
  begin
    repeat
      if (findcolorspiraltolerance(xyx,yxy,TreeColor1,0,0,518,342,7))
      or (findcolorspiraltolerance(xyx,yxy,TreeColor2,0,0,518,342,7)) then
       begin //added
        mouse(xyx+10,yxy,1,1,true);
      wait(6000+random(2300));
      Leveled;
      wait(100+random(20));
      Randoms;
      wait(100+random(20));
     end; //added
    until (invfull = true)
    if (invfull = true) then
  end;
  end;

The above is assuming you want that block of code to be used if its true and not regardless.

Not too big a deal, but if it doesnt find the tree you dont want it clicking all over the screen for no reason.

Ok thank you. The thing where the mouse moves to the side and doesnt allow you to stop the script has happened to me several times. I cant figure out why it does that. Maybe ducels suggestion will fix it. If its not that, its either the leveling procedure or the randoms. I updated the attachment try it now.

Edit:
Ok I changed the movements from radialwalk to DTMs
the firstmove clicks the outline dtm of the tree symbol and the second find a rotated dtm of the yellow dots (the 19… number)
anyways Ive tested it and it works for me

Also the problem with the mouse moving to side is definately the randoms or leveling procedure.

Try the new att.

i have taken sky shadows edgevill yew choper and made it chop maples, it kinda works, ill post it. some times it dosnt bank right cuz its made for edgevill thats why i had to make the compus face west. it would be better if it always went north of the bank to chop more. so if u wana se if u can fix it up better than me, (cuz im a noob at scripting).

p.s. it still has skys writing on it, lol im 2 lazy to change it.

 {
 ~~~~~~~~~~Skys~~~~~~~~~~
 ~~~~~~~~~~~§§~~~~~~~~~~~
 ~~~~~~~~~Shadow~~~~~~~~~
 ~~~~~~~~~~~§§~~~~~~~~~~~
 ~~~~~~~~Presents~~~~~~~~
 ~~~~~~~~~~~~~~~~~~~~~~~~

~ The Skys Shadow Edgeville Yew Cutter!
~ Made by me, Skys Shadow.
~ Credits to all the SRL team for the wonderful SRL include.
~ Setup line 44,45 and 50-95


Instructions:
 Setup Account
 Stand in Edgeville bank in the southmost booth
 Watch it once to make sure that all is well
 Enjoy!

Update Info:
Alpha: Just cut and bank
Beta: Added Login
V 1.0: Added Antirandoms, Antiban, and fixed bugs
V 1.1: Took away WelcomeScreen include
V 1.2: Added Progress Report, changed some procedures
V 1.3: Fixed Login bug
V 1.4: Added Multiple players
}


program Skys_Shadow_Edgeville_Yew_Cutter;

{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
{.include SRL\SRL\extended\xAntiBan.scar}

var
Trips:integer;


///////Set Wieldaxe! Don't Touch Version #//////
const                                         //
WieldAxe = 1; //1 for wielding, 2 for no      //
Tripstodo = 0; // # of trips for each player  //
VersionNumber = ' 1.3'; //Don't Touch!        //
                                              /////////////////////////////
Procedure DeclarePlayers;                                                //
begin                                                                    //
     HowManyPlayers  :=6             // Set Number of Players here.   //
     NumberOfPlayers(HowManyPlayers);   // Leave alone                   //
     CurrentPlayer:=0;        // The blue # of the player wanted         //
                                                                         //
     Players[0].Name :=''; // Your RS Name                       //
     Players[0].Pass :=''; // Your RS Password                     //
     Players[0].Nick :=''; // The first 3 lowercase letters of your name //
                           // eg. If your name is Zezima, put in ezi.    //
     Players[0].Loc  :='Loc1'; //Not needed                              //
     Players[0].Skill:=''; //Not needed                                  //
     Players[0].Active:=True; //Leave at true                            //
                                                                         //
     Players[1].Name :='';                                               //
     Players[1].Pass :='';                                               //
     Players[1].Nick :='';                                               //
     Players[1].Loc  :='Loc1';                                           //
     Players[1].Skill:='';                                               //
     Players[1].Active:=True;                                            //
                                                                         //
     Players[2].Name :='';                                               //
     Players[2].Pass :='';                                               //
     Players[2].Nick :='';                                               //
     Players[2].Loc  :='Loc1';                                           //
     Players[2].Skill:='';                                               //
     Players[2].Active:=True;                                            //
                                                                         //
     Players[3].Name :='';                                               //
     Players[3].Pass :='';                                               //
     Players[3].Nick :='';                                               //
     Players[3].Loc  :='Loc1';                                           //
     Players[3].Skill:='';                                               //
     Players[3].Active:=True;                                            //
                                                                         //
     Players[4].Name :='';                                               //
     Players[4].Pass :='';                                               //
     Players[4].Nick :='';                                               //
     Players[4].Loc  :='Loc1';                                           //
     Players[4].Skill:='';                                               //
     Players[4].Active:=True;                                            //
                                                                         //
     Players[5].Name :='';                                               //
     Players[5].Pass :='';                                               //
     Players[5].Nick :='';                                               //
     Players[5].Loc  :='Loc1';                                           //
     Players[5].Skill:='';                                               //
     Players[5].Active:=True;                                            //
                                                                         //
                                                                         //
                                                                         //
     writeln(inttostr(HowManyPlayers)+' Players');                       //
///////////////////////////////////////////////////////////////////////////
end;

function IsWelcomeScreen: Boolean;
begin
  if(GetColor(271, 292) = 8356779)and
    (GetColor(499, 292) = 8356779)and
    (GetColor(271, 381) = 8356779)then
    Result := True;
end;

procedure WelcomeScreen;
begin
  if(not(IsWelcomeScreen))then Exit;
  MouseBox(275, 296, 495, 377, 1);
end;
//-----------------------------------------------//

Procedure Setup;
begin
  SetupSRL;
  ActivateClient;
  ChatsOff;
  If (LoggedIn) then
  begin
  HighestAngle;
  MakeCompass('n');
  end;
  If (not(LoggedIn)) then
  LoginPlayer;
  WelcomeScreen;
  HighestAngle;
  MakeCompass('n');
end;
//-----------------------------------------------//

Procedure ProgReport;
begin
  ClearReport;
  Writeln('===============================')
  Writeln('=        You Are Using        =');
  Writeln('=                             =');
  Writeln('=  The Skys Shadow Edgeville  =');
  Writeln('=                             =');
  Writeln('=         YEW CUTTER!         =');
  Writeln('=                             =');
  WriteLn('=        Version ' + VersionNumber + '         =');
  Writeln('=                             =');
  Writeln('=        ' + inttostr(Trips) + ' Trips done         =');
  Writeln('=                             =');
  Writeln('=        Happy Cutting        =');
  Writeln('===============================');
end;
//-----------------------------------------------//

Procedure WalktoTrees;
begin
  If (FindSymbol(x,y, 'rare trees')) then
  begin
   SetRun(true)
   Mouse(x,y,1,1,true)
   wait(10000)
  end
  If (not(FindSymbol(x,y, 'rare trees')))then
  begin
   SetRun(true)
   Mouse(747,280,1,1,true)
   wait(5000)
    If (FindSymbol(x,y, 'rare trees')) then
     begin
      Mouse(x,y,1,1,true)
      wait(10000)
     end;
  end;
end;

//-----------------------------------------------//

Procedure ChoptheTrees;
begin
  repeat
    if (FindMSColor(x,y,16504))or
    (FindMSColor(x,y,10336))or
    (FindMSColor(x,y,32936))then
     MMouse(x,y,1,1)
      If IsUpText('Chop') then
       Mouse(x,y,1,1,true)
       wait(5000+Random(5000)+Random(5000)+Random(5000))
  until (invfull = true)
    if (invfull = true) then
     Trips := Trips + 1;
end;
//-----------------------------------------------//

Procedure WalktoBank;
begin
  If (FindSymbol(x,y,'bank'))then
   begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
   end
  If (not(FindSymbol(x,y,'bank')))then
   begin
   Mouse(789,173,1,1,true)
   wait(10000);
    If (FindSymbol(x,y,'bank'))then
     begin
      MMouse(x,y,1,1)
      Mouse(x,y,1,1,true)
     end
   end
end;
//-----------------------------------------------//

Procedure BanktheLogs;
begin
  OpenBank;
  If WieldAxe = 1 then
    begin
      DepositAll;
    end
  If WieldAxe = 2 then
    begin
      Deposit(2,28,2);
    end
end;
//-----------------------------------------------//

Procedure AntiRandomsandAntiBan;
begin
  SRLRandomsReport;
  FindNormalRandoms;
  FindAxeHeadColor;
  AttachHead;
  DontBanMe(2);
  If (FindEnt (3438704)) then
   begin
    Logout;
    Wait(30000)
    LoginPlayer;
   end
end;
//-----------------------------------------------//

begin
 DeclarePlayers;
 Setup;
 repeat
  repeat
   ProgReport;
   WalktoTrees;
   ChoptheTrees;
   WalktoBank;
   BanktheLogs;
   AntiRandomsandAntiBan;
  until (trips = Tripstodo);
   If (trips = Tripstodo) then
    Logout;
    Nextplayer(true);
  until (false);
end.
  

K Ill try it.
Can you try the new att? I changed the walking procedure and it works for me.

idk what happend but my accounts not workin, i accidently put my name on here but then i noticed it right away and i took it off. it says too many logins and then it says (You have been blocked from logging in because too many requests have been made from your ip in a short space of time.
Please try again in a few minutes.) i think some one chnaged my pass cuz its not working!!!!!!!!!!!!!!!>=(

Wow yeah I did that and changed it really quick too. That sucks. Im sorry but it wasn't me.

haha the noob didnt take any thing, cuz they iddnt know how to go on 2 accounts at once. and u can tell it was a noob cuz it took blue wizard clothes. when i went on it had alot of my good stuff bank noted. im makin a bank pin and good account recovery questions. Fuckin noob. ahhaha

lol.. alot of ppl post scripts with their names/pass still in it..

lucky u got ur acc and items back

ok i tested it and its not working at all. this is what it dose for me. i turn it on the cursor gose right next to the left side of the mini map. then it makes the cumpus spin twice around. then stops freezes the screen for about 5 seconds. then affter that gose all the way down to the left clicks my start button and the gose back to the left of the mini map…

other times it gose to the top left corner of the rs screan and stays there, some other scripts do that for me 2 tho… sometimes

did you start logged out?

i tryed that 2 and it still didnt work, and i have a problem now cuz i just set a bank pin and its not gana go away intill like 5 days

gr1m it goes to the top corner and stays sometimes because it is an error with bitmap finding.

yeh dosnt work

k can you read the script and see if its is a problem with my dtms or my scripting or whatever? Your help is really aprreciated. Thanks

i havent retested it yet, ill try tomarrow.