SRL Archive - First Scripts

ok dont dis me just cause i cant script for shat
as the title says its a VERY VERY simple woodcutter
if any1 has any probs with it plz tell me
im open to any tips anyone has for me

EDIT: ok i uploaded the updated script, when i hav more time ill add some other stuff to it like a progress report and some anti-ban stuff, ill probably hav to wait till the weekend to do that though:)
EDIT: ive updated it a fare bit this afternoon to v1.2
just tested v1.2, lol it needs major tweaking so im takin it off until i get it right

i was bored at skewl so i downloaded my script and went to work on it and added quite a bit, though im gonna add some more when i can, like anti-randoms, anti-bans, failsafes and such before i upload the file
oh yeh, if any1 finds a prob wid it plz tell me cause i cant see if it works at skewl since i need to be logged in as an adminastrator to install scar :)

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

var
i,x,y:Integer;
Loads = Integer;
Dropped = Integer;
Prog = Integer;

const
  TreeColor = put-color-here;//the first color of the tree
  TreeColor2 = put-2nd-color-here;//the 2nd color of the tree
  LoadMax = 10;//put the number of loads u wanna do in here

procedure CutTree; //Cuts the Trees, obviously
begin
  i:= 0;
  repeat
    i:=i + 1;
    if(FindColor(x,y,TreeColor,0,0,700,700)) or
    (FindColor(x,y,TreeColor2,0,0,700,700)) and
    IsTextUp('Cut') then
    begin
      Wait(1000 +random(500))
      Mouse(x, y, 3, 3, True);
      Wait(5000 +random(500));
    end;
    if not(FindColor(x,y,TreeColor,0,0,700,700)) or
    (FindColor(x,y,TreeColor,0,0,700,700)) then
    Wait(700);
  until(InvFull);
end;

procedure Drop; //Drops logs when inventory is full
begin
 DropAll;
 Loads:=Loads+1;
 Dropped:=Dropped+28;
end;

procedure Sig;
clearDebug;
Writeln('/-----\ |---\ ----- |\    /| \     / ');
Writeln('|     | |   |   |   | \  / |  \   /  ');
Writeln('|       |---/   |   |  \/  |   \ /   ');
Writeln('|    -\ | \     |   |      |    |    ');
Writeln('|     | |  \    |   |      |    |    ');
Writeln('\-----/ |   \ ----- |      |    |    ');
Writeln('Grimy89098s PowerCutter');
Writeln('Enjoy! and please post ur proggies on my thread! :]');

procedure Proggy;
Writeln('Proggy ' +IntToStr(prog));
Writeln('/------------');
Writeln('|Did ' +IntToStr(Loads) + 'Loads');
Writeln('|Dropped ' +IntToStr(Dropped) + 'Logs');
Writeln('\------------');

begin
  SetupSRl;
  Sig;
  repeat
  CutTree;
  Drop;
  prog:=prog+1;
  Proggy;
  until(Loads:=LoadsMax);
end.

Wonder if its too simple =/

Thx! =)

Nice 1 :)

Okey…(h).png" border="0" alt="" title="(h)" smilieid="35" class="inlineimg" />

Sticky: Attention Spammers and Leechers...
RAM

program FirstScript;
{.include SRL/SRL.scar}
 
var
i,x,y:Integer;
 
const
  TreeColor = 606775;//the color of the tree

procedure CutTree;
begin
  i:= 0;
  repeat
    i:=i + 1;
    if(FindColor(x,y,TreeColor,0,0,700,700)) then
    begin
      Wait(1000 +random(500))
      Mouse(x, y, 3, 3, True); //moves the mouse. and click left. the 3 = a little bit random. on the x and y vars.
      Wait(5000 +random(500));
    end;
  until(not(FindColor(x,y,TreeColor,0,0,700,700)));
end;

begin
  SetupSRl; //will setup srl.
  CutTree; //will cut etc.
end.
  

MoveMouseSmooth, most people prefer Mouse because thats less bannage. nice work. keep it up :)

cool thanks for that :)

nice try,try this tuts there very good you will learn from it:

http://www.villavu.com/forum/showthread.php?t=6366
and
http://www.villavu.com/forum/showthread.php?t=6470

thanks for the links hermpie :)

hehe, that's really something I would call simple. Try adding AntiRandoms and AntiBan and maybe a dropping procedure.

From: cheetahnub
hehe, that's really something I would call simple. Try adding AntiRandoms and AntiBan and maybe a dropping procedure.

every one needs to begin somewhere ;)

From: rikjess
every one needs to begin somewhere ;)

I know that ;)

I wasn't saying anything negative about the script ;)

This is much better as a first script than the billion autotalkers ppl have made.

Yeah, it's a sound first script. Nicee :D

you have all the basics, go fourth and learn more! I can see alot of potential in you.

too simple loool

i improved it by adding a droppin procedure into it but im on a different pc at the moment so when i get the chance ill upload it :)

<a href="http://www.AWSurveys.com/HomeMain.cfm?RefID=dupert92"><img src="http://www.AWSurveys.com/Pictures/AWS_ad3_150by150.jpg" width="150" height="150"></a>







<a href="http://www.AWSurveys.com/HomeMain.cfm?RefID=dupert92"> $6.00 Welcome Survey After Free Registration!</a>\




<a href="http://www.AWSurveys.com/HomeMain.cfm?RefID=dupert92"><img src="http://www.AWSurveys.com/Pictures/AWS2_ad2_600by100.jpg" width="600" height="100"></a>





http://www.AWSurveys.com/HomeMain.cfm?RefID=dupert92








JOIN SCAR GETS 1.25 $ EVERY TIME YOU CLICK THIS LINK AND MAKE A ACCOUNT U DONT EVEN USE SO YEA HELP THEM OUT EVEN IF U AINT GONNA USE THE ACCOUNT!

um yea ok then…

Your script isn't working out for me.
Every time I run it it freezes my game and when I stop it my account is logged out.
Is there a specific area my account should go to?
Should my axe be equipped?
This would make a nice script for me judging by these comments but I need help to work it out.

It's good, actually I think you could use it as a powerminer as well :)

However I see no reason to put "DropAll" in its own procedure, just put it after "Until(InvFull);".

Nice for your first dude :)

thanks, and yeh u can make it into a powerminer by changin the color to the rock u wanna mine :)

From: SuperRitsu
Your script isn't working out for me.
Every time I run it it freezes my game and when I stop it my account is logged out.
Is there a specific area my account should go to?
Should my axe be equipped?
This would make a nice script for me judging by these comments but I need help to work it out.

Just go to an area with trees and make scar as small as u can
and yes ur axe does hav to be equipped or it'll get dropped with the logs
make sure u can see some trees on ur screen and click play

PS: sorry for double posting :(

Iv got a simple wc-er to with drop procedure here it is.

{ ... WoodCutter By Craig- ... My First Script ... }

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

const
  LoadsPerPlayer =10; // Ammounts of loads before player switches.
  TreeColor =4287628; // Fill in the tree color here.
  WaitPerTree =5000; // Wait till clicking next tree (1000 = 1 sec)
  
Var
globalogs: integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 4;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := 'Username'; // Your Username...
  Players[0].Pass := 'Password'; // Your Password...
  Players[0].Nick := 'erna'; // 3 or 4 letters of your username eg. user.
  Players[0].Active:= True;

  Players[1].Name := 'Username'; // Your Username...
  Players[1].Pass := 'Password'; // Your Password...
  Players[1].Nick := 'Nick'; // 3 or 4 letters of your username eg. user.
  Players[1].Active:= True;

  Players[2].Name := 'Username'; // Your Username...
  Players[2].Pass := 'Password'; // Your Password...
  Players[2].Nick := 'Nick'; // 3 or 4 letters of your username eg. user.
  Players[2].Active:= True;

  Players[3].Name := 'Username'; // Your Username...
  Players[3].Pass := 'Password'; // Your Password...
  Players[3].Nick := 'Nick'; // 3 or 4 letters of your username eg. user.
  Players[3].Active:= True;

end;

procedure ChopTree;
var
  x, y, MyMark : integer;
begin
  if not Loggedin then Exit;
  MarkTime(MyMark);
  repeat
    if FindObj(x, y, 'hop', TreeColor, 30) then
    begin
      Mouse(x, y, 0, 0, False);
      Writeln('Chopping Tree');
      if ChooseOption('hop') then
      begin
        Wait(WaitPerTree);
        Exit;
      end;
    end;
    if TimeFromMark(MyMark) > (2 * 60 * 1000) then
    begin
      Logout;
      Exit;
    end;
  until false
end;

begin
  SetupSRL;
  DeclarePlayers;
  if Loggedin then Logout;
  LoginPlayer;
  repeat
    ChopTree;
    if InvFull then
    begin
      DropToPosition(2,28); // If Axe equiped change to (1,28),if not leave.
      Inc(Players[CurrentPlayer].Banked);
      if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
      begin
        NextPlayer(True);
      end;
    end;
    if not Loggedin then NextPlayer(False);
  until false
  end.

  Writeln( '***************************' );
  Writeln('');
  Writeln( 'Username   : '+ Players[CurrentPlayer].Name);
  Writeln( 'Worked For : '+ IntToStr (Players[CurrentPlayer].Worked)+' minutes.');
  Writeln( 'Wc Lvl     : '+ IntToStr(Players[CurrentPlayer].Integer1));
  Writeln( 'Logs Cut   : '+ inttostr(globallogs) + ' logs');
  Writeln( '');
  Writeln( '***************************' );

I will try it out,but i think it will work…I didnt saw any bugs.
Very simple script:)
Keep going!;)

ok, i got busted shuting down other ppls computers at skewl with that tut that told me how, had lots of fun doin it though! :p
now this site is blocked at skewl, and its against the rules to proxy into here
so i dont think im gonna be able to learn much and script much anymore since its easier to go on SRL at skewl than on weekends at home
anyways i dunno if the skewl told ma mum the name of the site, but if they did and im caught on it, ill probably get grounded some more, but oh well
would it be ok to use a proxy to get onto SRL from skewl for the reason to read some tuts and script some more? i dunno if it is, but i hope so :(

Now thats what you call Simple! cool (but to simple for me maybe add some stuff to it like anti randoms..keep it up.:)

its not realy working for me aight?:O