SRL Archive - First Scripts

Ok, welcome guys.. this is more like my 5th 1st script. Lol. Anyways, my script is very bad, and I was looking for some feedback, and help on it =D. I won't even make you download cause it's so bad. Here it is… I don't understand how to implement the function that checks if the inventory is full(InvFull: boolean). Any way, here it is. I will add on to it as I learn more.

###########DON'T USE ON MAINS OR ANY ACCS OF IMPORTANCE##############
###########WILL GET BANNED################

program New;
{.include SRL/SRL.scar}
//I will soon be adding a dtm of a regular, oak, and willow log =D. Antiban also coming after that.
//I have been reading some good tuts =D
//Credits: skilld u,
var
x,y: Integer;

const
TreeColor = 3760253;//Array coming soon

procedure LookForTree;
begin
  if(FindColor(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2))then
    begin
      MMouse(x,y,3,3);
      Wait(565+random(521));
      if IsUpText('hop') then
      begin
        Mouse(x,y,3,3,true);
        Writeln('Did find tree');
      end;
    end else
    Writeln('Did not find tree');
end;

procedure EmptyLoad;
begin
  if(InvFull)then//Thats all you need
    begin
      DropAll; // you could make a dtm of the log
    end else  // if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
end;                //Mouse(x,y,3,3,false
                      //ChooseOption('rop');

procedure MainLoop;
begin
  SetupSRL;
  LookForTree;
  EmptyLoad;
end;

begin
  repeat
    MainLoop;
  until(false);
end.

******Updated thanks to :skilld u . I will be adding dtms for the willow logs, and make the woodcutting more accurate =D*******

Remember, I would like a lot of feedback. I'm going to bed, and I will read up some tuts on how to add fail safes, antiban procedures, player arrays, and WALKING!! Maybe some day this script will be able to get me to become a SRL Member… =D You never know… Remember, please no flamin, I'm a scripting noob, but I'm gonna change that real quick, all negative feedback is feedback so yea, also, when you recommend the changes, explain why.

How don't you understand the InvFull method? It takes no arguments, and returns true if the inventory is, indeed, full. Just do something like the following:

if(InvFull) then
...
end;

ive been looking for a good woodcutting script… try to fix the the problem and ill test it out.. ill post any other problems

Lol, this is far from a good script…

program New;
{.include SRL/SRL.scar}

var
x,y: Integer;

const
TreeColor = 3760253;//Maybe make an array?

procedure LookForTree;
begin
  if(FindColor(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2))then//MSX and MSY are coords of Mainscreen
    begin
      MMouse(x,y,3,3);//same as movemouse except less detectable, 3 is tolerance
      Wait(565+random(521));
      if IsUpText('hop') then
      begin
        Mouse(x,y,3,3,true); // see above
        Writeln('Did find tree');
      end;
    end else
    Writeln('Did not find tree');
end;

procedure EmptyLoad;
begin
  if(InvFull)then//Thats all you need
    begin
      DropAll; // you could make a dtm of the log
    end else  // if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
end;                //Mouse(x,y,3,3,false
                      //ChooseOption('rop');

procedure MainLoop;
begin
  SetupSRL;  // you need this if you are using SRL in your script
  LookForTree;
  EmptyLoad;
end;

begin
  repeat
    MainLoop;
  until(false);
end.
{  Add banking, antiban, antirandoms and entFinding
 and it will be a pretty good script.
 if you need any more help you can pm me.
 }

I love walking so if you ever need any walking help I can help you. :p

here i made you a simple anti-ban just CREDIT ME :

procedure P1nkyAntiBan;
var                 
  DBanMe: Integer;  
begin
  DBanMe := Random(18);
0: PickUpMouse;
    1: GameTab(1 + Random(33)); 
    2: DoEmote(1 + Random(75));  
    3: RandomRclick;    
    4: HoverSkill('random', false);   
    5: gametab(4);      
    6: AlmostLogout;    
    7: ChooseOption('cancel'); 
    8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    9: HoverSkill('woodcutting' ,false); 

ENJOY
btw guys stfu its his 1st script , keep trying i like it(simple and nice):spot:

not bad for a first script but definitely can use some work

Thanks guys =D
@p1nky: I will use your anti ban when I learn how to put it in the script… And I will credit you. Don't worry, Lol

Reading some dtms tuts, and player arrays, and making it more accurate =D keep the feedback coming

this could turn out to be a good script in the future :D, if you need any help testing it, just pm me and i might be able to help :cool: