SRL Archive - First Scripts

My first wc!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Its taken me ages (even tho its rubbish) to make my first script it took 3 help threads and alot of people to help me with varios things and now its done =p.

Use these instructions
0.1. Put on your axe or will be dropped !¬i cant get blamed for this¬!
1. low detail runescape client
2. 32 True bit color (even tho im British i still use color lol)
3. set cross hands over client
4. Fill out username and password ect.
5. press play.

works best south of varrock by the oaks (change color if needed)

Next version will have banker and a good auto random and anti ban!

P.S can someone please tell me how to attach a scar file thank you

//=======South Varock OakOblivion========//
//                                       //
// 1. Position yourself south of varrock //
//   - by the oak trees facing north.    //
// 2. Enter you login details.           //
//           ##IMPORTANT##               //
//        AXE MUST BE EQUIPTED           //
// 3.Press play and watch the lvls go    //
//   up                                  //
//=======================================//
///////////////////////////////////////////
{=========================================

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

var
i,x,y:Integer;

const
  TreeColor = 926756;//the color of the tree

Procedure DeclarePlayers;
begin


  HowManyPlayers:= 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name        := '---------'; //UserName
  Players[0].Pass        := '---------'; //Password
  Players[0].Nick        := '----'; //Your Nickname - 3-4 leters
  Players[0].Active      := True; //Active

  Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

procedure Signiture;
begin
writeln('T');    // sig
writeln('O');
writeln('M');
writeln('D');
writeln('A');
writeln('V');
writeln('I');
writeln('E');
writeln('S');

end;

procedure Login;  //Login
begin
 if (not(LoggedIn)) then  //If not logged in then logs in player
 LoginPlayer;
end;

procedure CutTree; //Cuts the Trees
begin

i:= 0;
repeat //repeats
i:=i + 1;
if(FindColor(x,y,TreeColor,0,0,700,700)) then // Search's for TreeColor
begin
Wait(3000 +random(500))
Mouse(x, y, 3, 3, True); // Moves mouse
Wait(9000 +random(500));
end;
wait(200+random(250)); //Not to lag out RS (Increase if needed)
until(InvFull) or (i>700000); //change this to whatever u need
if(i>700000)then //change this aswell
begin
writeln('Logging out, cant find tree.');
Logout;
end;
end;

procedure Drop; //Drops logs
begin
 DropAll;  // Drops Everything
end;

begin
  SetupSRl;  // setup srl
  Signiture; // setup sig
  DeclarePlayers; // Declare Players
  if (not(LoggedIn)) then Login;
  repeat        // Repeat these functions
  CutTree;      // Cut
  Drop;         // Drop
  until(false)  // Until stoped
end.            // Finished

Nice work man!
U gave me an idea to make auto wcer with banking :(h):

Going to make one now…
Bye

ty mate if you need any help just pm

I really like this script

tyvm if you want any help scripting just ask me(only simple things tho =p)

Now, if im in the middle of the drynor willow cutter-banker i no longer dont think its a good script… :p so sry…
I dont like the chop part:

procedure CutTree; //Cuts the Trees
begin
 
i:= 0;
repeat //repeats
i:=i + 1;
if(FindColor(x,y,TreeColor,0,0,700,700)) then // Search's for TreeColor
begin
Wait(3000 +random(500))
Mouse(x, y, 3, 3, True); // Moves mouse
Wait(9000 +random(500));
end;
wait(200+random(250)); //Not to lag out RS (Increase if needed)
until(InvFull) or (i>700000); //change this to whatever u need
if(i>700000)then //change this aswell
begin
writeln('Logging out, cant find tree.');
Logout;
end;
end;

In the beginning i had almost same produce-find willow color, then clicks on willow and waits random time, then again finds willow color…. and so on until inv full.
Its not wery "human-like" what i wanna make is like this:finds willow color-clicks on willow-then cursor moves back where it clicked so it can see is up text "willow" and waits until 15 seconds or until text "willow" is gone-the finds new tree and starts to cut until invfull…
Its hard to make one of these… i did one of those but that part is kinda buggy sometimes if cursor tries to come back to the tree to see if theres a text "willow" need to figure this out-dont wanna publish my script until it has this funktsion
Everything else works fine-banking, walking to willows and walking willows to banking

hey not bad for 1st script u could tidy the script up a lil but rather than that +_+

rly nice first man… great job… how long did it take you?

gj, tested works great could go for a few anti randoms :P but also to attach when u are editing the post simply, look for "attach files" look for browse find the script in your comp and click it twice :)

Not extremely complicated but for a first script its pretty nice. Also seeing as its not an autotalker. Thats a good change.

Does it solve randoms?
If not then you should add them,because there are many randoms on woodcutting….if you will add randoms then it will be perfect!

wow nice script for begin,i think i can take some stuff out of this!