SRL Archive - RS Scripts

Yes Its at its first working stage!
Here all, run it for a bit, but dont walk away its just bare bones right now, ill beef it up as i get time. Feel free to edit it, but leave credit where its deserved

at quick glance looks ok. I cant stand reading others code though. But in the mouse in the cutter the second zero also needs to be around 5. And have a look into uptext. or findobj+;)

when i try it it says that the file is no tfound how do i fix this

From: YennGyo
when i try it it says that the file is no tfound how do i fix this

Your definitely a leecher , Good job with the script,lil ruff but good for a first version

lol its my first script at all for runescape, but im loaded down for the next two weeks with finals, so i will work on it every now and then, but i hope to get things clean and well coded. Also to get add ins such as find axe, randoms, antiban, etc…

Kinda impoved. You only need 1 const, and I added to check when it moves mouse to tree if it says Chop down.

//////////////////////////////////////////////////////////////////////////////////////
//------------------------Power cutter/burner By Phlame-----------------------------//
//--------Credits to SRL for all the includes etc, i just "glued" together----------//
//---------------Start with axe weilded and tenderbox in first slot.----------------//
//Version Beta1, it works, but extremely rough...  Comments please! Updates to come!//
//////////////////////////////////////////////////////////////////////////////////////

program SRLGrillmaster;
{.include SRL\SRL.scar}

Const
//--------Fill-This-Out---------------//
TreeColor1	=0;
TreeColor2	=0;
TreeColor3	=0;
LoadsWanted =25;

//--------Leave-This-Alone----------//

Const StartPlayer	=0;
Var Lognumber,Loadsdone,Tinderbox:Integer;


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


Procedure DeclarePlayers;
begin
     NumberOfPlayers(1);
     Players[0].Name :='Name';
     Players[0].Pass :='Pass';
     Players[0].Nick :='Nick';
end;

Procedure LoginRoutine;
 Begin
  DeclarePlayers;
   If (LoggedIn=False) then
    Begin
     LoginPlayer;
    End else
 End;

Procedure FindChopTree;
 Begin
  wait(100+random(1000));
   If (FindMSColorTol(x,y,TreeColor1,11)) or
      (FindMSColorTol(x,y,TreeColor2,11)) or
      (FindMSColorTol(x,y,TreeColor3,11)) then
    Begin
     wait(100+random(1000));
      MMouse(x,y,5,0);
      Sleep(100+Random(700));
      If(IsUpText('Chop down'))Then
      Mouse(X,Y,5,0,true);
     wait(7500+Random(5000));
    end else
     Begin
      Writeln('Chosen tree not found')
      Logout;
      Exit;
     End;
 end;

Procedure BurnInv;
 Begin
  If (Not(Lognumber=28))then
   Begin
    UseItem(Lognumber);
    Lognumber:=Lognumber+1
     wait(100);
      UseItem(Tinderbox)
       Begin
        IdleTime(2000,random(56),10);
       end;
    end else
   If (Lognumber=28) then
    Lognumber:=2
  end;

Procedure ChopFull;
 Begin
  Repeat
   If LoggedIn=False then
    Begin
     Break;
    End else
    FindChopTree;
  Until (InventoryFull=True);
    Repeat
     If LoggedIn=False then
    Begin
     Break;
    End else
     BurnInv;
    Until (InventoryCount=1);
  Loadsdone:=Loadsdone+1
 End;
 
Procedure SetupScript;
 Begin
  SetupSRL;
   Writeln('=====================================================')
   Writeln('=-Successfully Started Phlames Power Chopper/Burner-=')
   Writeln('=====================================================')
  LoginRoutine;
  Loadsdone:=0
  Tinderbox:=1
  Lognumber:=2
 end;

Begin
 SetupScript;
  repeat
   If LoggedIn=False then
    Begin
     Break;
    End else
   Chopfull
  Until (Loadsdone=Loadswanted)
 LogOut;
 Exit;
End.