SRL Archive - First Scripts

Hey guys i made this script it works pretty well PLEASE POST PROGGIES!!!

Features
Logout if you get a box random!
It Rests
Anti-ban
And lvl counter!!!
You can Start Logged Out!

Please Post Bugs and Proggies

why not solve box random using srl?

EDIT: just seen the script. why dont u just get srl to tell u about randoms, and the frog one can be solved.

I've changed it so that it doesn't log out when it find randoms, and so that it solves them instead by adding

FindNormalRandoms;

program BrianbsAutoWCERandBurner;
{.include srl/srl.scar}
var
x, y, LogsCut, LogsBurnt, LvlWC, LvlFM :integer;
const
UserName=('');//username...
PassWord=('');//password...
LogsToCutBeforeRest=(45); //how many logs you want it to cut before it rests
TotalLogsToCut=(90);//how many TOTAL logs to cut
TreeColor=(1592642);//the color of the tree defualt is a regular tree
TinderboxInInv=(6120038);//just leave alone..
RestTime=(200000);//how long you want it to rest for
waitimeinbetweentrees=(10000);//set higher if lower wcing lvls lower if higher wcing lvls
//////////////////////////////////////////////////////////////////////////
//Don't Touch anything Below This Line (unless you know what your doing)//
//////////////////////////////////////////////////////////////////////////

Procedure Login;
begin
 If(findcolor(x, y, 13158, 356, 165, 406, 176)) then
  begin
   Mouse(x, y, 5, 5, true);
    Typesend(username);
    wait(250+random(150));
    TypeSend(password);
    wait(250+random(150));
      Wait(10000+random(5000));
       Mouse(369, 350, 5, 5, true);
        Wait(2500+random(1000));
   end;
end;
Procedure LvlUpInWC;
begin
 if (findcolor(x, y, 2904680, 39, 387, 77, 739)) then
  begin
   If (findcolor(x, y, 3570277, 38, 388, 79, 440)) then
   LvlWC:=LvlWC + 1;
   end;
end;
procedure LvlUpInFM;
begin
if (findcolor(x, y, 3113653, 38, 388, 79, 440)) then
 begin
  LvlFM:=LvlFM + 1;
  end;
end;

Procedure FindNChop;
begin
 if (findcolor(x, y, TreeColor, 0, 0, 515, 337)) then
  begin
   mmouse(x, y, 5, 5);
    if isuptext('hop') then
     begin
      mouse(x, y, 5, 5, true);
      LogsCut:=LogsCut + 1;
      wait(waitimeinbetweentrees);
     end;
  end;
end;
Procedure Burnlogs;
begin
 if (findcolor(x, y, 4358305, 556, 211, 732, 461)) then
  begin
  LogsBurnt:=LogsBurnt+1;
  Mouse(577, 228, 7, 7, True);
   wait(250+random(350));
    Mouse(x, y, 5, 5, true);
     Wait(6500+random(1500));
  end;
end;
Procedure Rest;
begin
 if (LogsToCutBeforeRest <= LogsCut) then
  begin
   Mouse(763, 10, 1, 1, true);
    wait(250+random(300));
     Mouse(638, 376, 5, 5, true);
      Wait(250+random(300));
       Wait(RestTime);
        login;
   end;
end;
Procedure TurnRunOn;
begin
 if (FindColor(x, y, 4681870, 715, 95, 731, 115)) then
  begin
   Mouse(x, y, 5, 5, true);
   Wait(300+random(250));
  end;
end;
Procedure Proggie;
begin
Wait(1000+random(500));
Writeln('#############################################')
Writeln('Total Time Running = ' + TimeRunning + '.')
Writeln('Total Amount of Logs Cut = ' + IntToStr(LogsCut) + '.')
Writeln('Total Amount Of Logs Burnt = ' + IntToStr(LogsBurnt) + '.')
Writeln('Total Amount Of WC Lvls Gained = ' + IntToStr(LvlWC) + '.')
Writeln('Total Amount Of FM Lvls Gained = ' + IntToStr(LvlFM) + '.')
Writeln('Brianbs Autoer Wcer/Fmer W00T')
Writeln('Thank you for using Brianbs Autoer!')
Writeln('###########################################')
end;

Procedure Randoms;
begin
  FindNormalRandoms;
end;

Procedure Antiban;
 begin
 Case Random(10) of
   0: Boredhuman;
   1: PickUpMouse;
   2: Hoverskill('random', false);
   3, 4, 5: begin
    Makecompass('n');
     wait(30+random(30));
    Makecompass('s');
      wait(30+random(30));
    Makecompass('random');
            end;
   6 ,7 ,8: Hoverskill('woodcutting', false);
   9: begin
      Gametab(1);
      wait(250+random(350));
      Gametab(2);
      Wait(250+random(350));
      Gametab(3);
      Wait(250+random(350));
      Gametab(4);
      Wait(150+random(200));
           end;
    10: Hoverskill('Firemaking', false);
   end;
   end;

begin
setupSRL;
ActivateClient;
Login;
TurnRunOn;
GameTab(4);
repeat;
FindNChop;
LvlUpInWC;
BurnLogs;
LvlupInFM;
Proggie;
Randoms;
Antiban;
gametab(4);
finished;
 until(LogsToCutBeforeRest <= LogsCut)
 Rest;
  repeat
FindNChop;
LvlUpInWC;
BurnLogs;
LvlupInFM;
Proggie;
Randoms;
Antiban;
gametab(4);
Finished;
   until(TotalLogsToCut <= LogsCut)
end.

If you want to have this removed, please tell me.

i got a message saying Line 154: [Error] (16204:1): Unknown identifier 'finished' in script

any Idea how I can fix?

offtopic you can do mini quest to get a axe that burns 20% of the wood you cut!

This is awsome. You should really try and add anti random instead of just logging off. Or you could use multiplayer.

use
findnormalrandoms;
and dont use coords
and some procs can be replaced by srl's…
keep it up tho

Nice program but i get this error about 3-10seconds running and it stops

[Runtime Error] : Out Of Range in line 1087 in script C:\Program Files (x86)\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

dont use

Procedure Login;
begin
 If(findcolor(x, y, 13158, 356, 165, 406, 176)) then
  begin
   Mouse(x, y, 5, 5, true);
    Typesend(username);
    wait(250+random(150));
    TypeSend(password);
    wait(250+random(150));
      Wait(10000+random(5000));
       Mouse(369, 350, 5, 5, true);
        Wait(2500+random(1000));
   end;
end;

you can use SRL

program Guild_fisher_and_banker;

{.include SRL/SRL.Scar}

procedure DeclarePlayers;

begin
   HowManyPlayers:= 1; //Change to your liking :)
   NumberOfPlayers(HowManyPlayers);

   Players[0].Name:=''; //username
   Players[0].Pass:=''; //Password
   Players[0].Nick:=''; //Nickname here 3-4 letters no nums
   Players[0].Active:=  True  ; //Are you using this player?
   Players[0].Worked:= 10     ; //How many fishing trips do you want to do?

  { Players[1].User:='Username'; //username
   Players[1].Pass:='Password'; //Password
   Players[1].Nick:='Nickname'; //Nickname here 3-4 letters no nums!
   Players[1].Active:='True'  ; //Are you using this player?
   Players[1].Worked:= 100    ; //How many Loads you wanna do }

end;

or something like that. also dont use co-ords very bannable read some more tutorials and goodluck :) welcome to SRL :D

I can try my luck at editing it to make it work, but i will admit i am new but i have always enjoyed trying to learn new programming:D

why dont you just add antirandoms to it?
that would be better than logging out.

nice script dude good features for your first all u need is anti random and ban and it be awesome

Virus… its an trojan ,!,(-.-),!,

wow, i love your first script. :)


I am currently in the process in making my first script. I am trying to make an auto burner. It burns stuff from your bank. Hopefully it may come out in a couple of full workdays.

btw, how many tuts did you read before making this. I read a couple of big ones, and i think i could make a very simple script off of it. Lol, I see huge scripts with antirandom, and complex functions, and i have no idea how you master scripters make them. :o

From: wizidon
wow, i love your first script. :)


I am currently in the process in making my first script. I am trying to make an auto burner. It burns stuff from your bank. Hopefully it may come out in a couple of full workdays.

btw, how many tuts did you read before making this. I read a couple of big ones, and i think i could make a very simple script off of it. Lol, I see huge scripts with antirandom, and complex functions, and i have no idea how you master scripters make them. :o

The more you do it the better you will get, it all goes back to that old saying "Practice Makes Perfect". Keep at it and maybe someday you will get an 'SRL Master' Cup?!

Hey ur auto just sits there and wont run with the anti-random script

From: lowlskichi
Virus… its an trojan ,!,(-.-),!,

-.- your smart now aren't you? :\

and anyways..

in your antiban, it will never hover over firemaking because it's case of 10 and 0 counts as one of the cases.. so it only does 0-9

and also your progress report will be off cuz the counting is wrong.. you could change it to

until(InvFull);
LogsChopped := LogsChopped + 27;
end;

that would be more accurate.. cuz how you have it set up now, it will say you got a log every time it clicks.

And same thing with your burned proc.

and some other stuff that other people have said.. :)

looks great ill try it out

6/10

You do not have to logout if you find a box.

SRL has a function to solve it. Duuuhh

From: Lvl6
You do not have to logout if you find a box.

SRL has a function to solve it. Duuuhh

Even tho SRL has a function to solve the box random, it's not working 100% atm. So logging out is not a bad idea. I have been reading your posts and you seem to act like king scripter around here. Just take it a little more easy from now on, that's all ;)

~Camo

i want this… how i get it?

From: TonTsuma
i want this… how i get it?

Okay, get the next wire from the PC, if the keyboard aint working, then you're done.
See: "Attached files at the first post, first page? -.-"
~Eerik~