• Log in or sign up for an account here: https://www.sythe.org/login

[Preview] Autocutter, codename "100 Million"

Blankothe3rd

Blankothe3rd

Forum Addict
Joined
May 27, 2007
Sythe Gold
0
Messages
259
Based on Basicut's engine (By GMK). This auto cutter is planning on being one of the most advanced auto cutters out there (for free!). Officially being GMK's partner and co-developer. I am giving out the BETA version.

This script is Copyleft GMK and Blankothe3rd. Copyleft means you are free to redistribute this, copy it and modify it at will. However this does not include you selling this project or product for a fee or a price. Backed by Creative Commons, some rights reserved.

Enjoy!​

Release date: To Be announced.

Beta Updates:
0.1 - Beta released.
0.2 - Fixed Typos.
0.3 - Lite version (Without the autodropper, this is for the ones who ARE there but want to watch TV or something else.\
0.4 - Release feature's announced (Including more waiting time for those who cut oaks, willows, yews and magics. More antiban. More includes for more features.)
0.5 - We now accept mini submissions! Show us your auto responders! (Note: We do not accept attachments due to security reasons.)
0.6 - For all you Skillz0rz out there, we

Accordingly, the project's status is: Working Things Out. May work.


{
Time usage recommendation: 1-2 Hours, depending on world.
Class of script: Auto-leveler
Complexity 1-10: 2
Bugs: None known
Notes: Enjoy!
-----------------------------------------------------------

{.Script Info:
# ScriptName = 100 Million.
# Author = GMK (Developed by Blankothe3rd)
# Description = Easy skills, gives ya thrills.
# Version = BETA
# Date = January 12th, 2008.
# Comments = Make sure you put it in your script folder.
/Script Info}

{.Script Instructions (Didn't think you'd have to go this far):
//Equip your axe.
//Go to an area with trees you can cut.
//Drag the crosshair over the screen.
//Click the play button and watch it cut for you.
/Script Info)

program 100 Million;
{.include SRL/SRL.scar}

const
Waitt= 10000;// The cutting time.

var
x,y:integer;
l,lo:integer;

procedure Start;
begin
l:=0
lo:=0
ActivateClient;
cleardebug;
wait(10)
perfectnorth;
writeln('100 Million is not made to work overnight. Use caution.')
writeln('Remember, the macro is free and not for sale.')
ActivateClient;
end;


procedure chop;
begin
if FindColorSpiralTolerance(x,y,994343,52,26,468,260,3) then
Mouse(x,y,2,2,true)
l:=l+1
wait(waitt + random(10))
end;

procedure drop;
begin
invfull;
if invfull then
begin
Droptoposition(2,28)
l:=0
end;
end;

procedure antiban;
begin
if lo=10 then
typesend('Woodcutting is so boring.')
if lo=40 then
typesend('*Yawn*.')
if lo=50 then
if lo=60 then
typesend('Runescape rocks!')
if lo=80 then
typesend('0.o')
if lo=100 then
typesend(':|')
if lo=120 then
typesend('I hate woodcutting.')
if lo=140 then
AlmostLogout;// To log or not to log?
end;


procedure antideath;
begin
if (FindFight) then
RunTo('W', false);
end;


procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColorSpiral(ax,ay,786423,10,350,150,433))or
(FindColorSpiral(ax,ay,10658466,10,350,150,433))then
begin
logout;
Writeln('A Moderator has been found, logging out.')
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
logout;
Writeln('Mime found, logging out.')
end;
if(GetColor(460,426)=0)and(GetColor(277,416)=0)and(GetColor(220,425)=0)or
(GetColor(502,305)=0)and(GetColor(379,43)=0)then
begin
logout;
end;
end;


Procedure DoTheRandoms;
Begin
wait(10)
Wait(13);
FindTalk;
UseCerterSolver := True
UseSandwichSolver :=True
FindMaze;
wait(10)
Solvepinball;
Wait(10)
begin
if (FindFight) then
begin
RunAwayDirection('N');
Wait(8500 + random(3500));
RunBack;
end;
end;
end;


procedure TalkToRandom;
var c:integer;
begin
repeat
c:=c+1;
if(FindColorSpiral(x,y,16711680,5,345,510,465))and(not(GetColor(20,434)=0))then
begin
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
if(FindColorSpiral(x,y,16777215,5,345,510,465))and(not(GetColor(20,434)=0))then
begin
GetMousePos(x,y);
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
until(GetColor(20,434)=0)or(c>=20)
end;




begin
SetupSRL;
chop;
repeat
lo:= lo+1
wait(1 + random(1))
chop;
wait(1 + random(1))
antideath;
wait(1 + random(1))
drop;
wait(1 + random(1))
antiban;
until(false)
end.
Click to expand...
 
Yo that looks leet man! ill see what i can add on?
and make sure you add a define player form. so it works with ALL srl functions.

BTW: he had permission to edit my script.
 
Sorry, I'm not really good at defining players part. We can however "barrow" from the Scar Library, if you didn't know you can find some extra anti randoms. They're really helpful in a mess.
 
Ya this script doesnt work atm.

DONT use this for an exchange over my original tree chopper until we get things sorted out.
 
Random(1) will always return 0. I should probably let you know this will never be one of the best powercutters. . . I encourage you to try to make it better but don't think that it is anything special.
 
Town said:
Random(1) will always return 0. I should probably let you know this will never be one of the best powercutters. . . I encourage you to try to make it better but don't think that it is anything special.
Click to expand...

Ya this preview was kind of poorly put together.
I think i might just edit my basicut.

NEVER say NEVER
 
lol as town said
it wont be the best one ever

altho
i for some reason cant remember the name now....autorune i think (that once that made rs hacking) was best ver
 
punked up said:
lol as town said
it wont be the best one ever

altho
i for some reason cant remember the name now....autorune i think (that once that made rs hacking) was best ver
Click to expand...

I was talking as far as Scar scripts. Autorune was completely different. I don't want to start a side conversation, should get back on topic.
 
Indeed, please stop complaining. I understand it will not be the best ever, because I never said it was. I said it could be one of the greatest scar woodcutter. If you noted the bold text it would not guarentee. Just trying to cool down the flame.
 
{
Time usage recommendation: 1-2 Hours, depending on world.
Class of script: Auto-leveler
Complexity 1-10: 2
Bugs: None known
Notes: Enjoy!
-----------------------------------------------------------

{.Script Info:
# ScriptName = 100 Million.
# Author = GMK (Developed by Blankothe3rd)
# Description = Easy skills, gives ya thrills.
# Version = BETA
# Date = January 12th, 2008.
# Comments = Make sure you put it in your script folder.
/Script Info}

{.Script Instructions (Didn't think you'd have to go this far):
//Equip your axe.
//Go to an area with trees you can cut.
//Drag the crosshair over the screen.
//Click the play button and watch it cut for you.
/Script Info)

program 100 Million;
{.include SRL/SRL.scar}

const
Waitt= 10000;// The cutting time.

var
x,y:integer;
l,lo:integer;

procedure Start;
begin
l:=0
lo:=0
ActivateClient;
cleardebug;
wait(10)
perfectnorth;
writeln('100 Million is not made to work overnight. Use caution.')
writeln('Remember, the macro is free and not for sale.')
ActivateClient;
end;


procedure chop;
begin
if FindColorSpiralTolerance(x,y,994343,52,26,468,260, 3) then
Mouse(x,y,2,2,true)
l:=l+1
wait(waitt + random(10))
end;

procedure drop;
begin
if l=27 then
begin
dropall;
l:=0
end;
end;

procedure antiban;
begin
if lo=10 then
typesend('Woodcutting is so boring.')
if lo=40 then
typesend('*Yawn*.')
if lo=50 then
if lo=60 then
typesend('Runescape rocks!')
if lo=80 then
typesend('0.o')
if lo=100 then
typesend(':|')
if lo=120 then
typesend('I hate woodcutting.')
if lo=140 then
AlmostLogout;// To log or not to log?
end;


procedure antideath;
begin
if (FindFight) then
RunTo('W', false);
end;


procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColorSpiral(ax,ay,786423,10,350,150,433))or
(FindColorSpiral(ax,ay,10658466,10,350,150,433))then
begin
logout;
Writeln('A Moderator has been found, logging out.')
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
logout;
Writeln('Mime found, logging out.')
end;
if(GetColor(460,426)=0)and(GetColor(277,416)=0)and (GetColor(220,425)=0)or
(GetColor(502,305)=0)and(GetColor(379,43)=0)then
begin
logout;
end;
end;


Procedure DoTheRandoms;
Begin
wait(10)
Wait(13);
FindTalk;
UseCerterSolver := True
UseSandwichSolver :=True
FindMaze;
wait(10)
Solvepinball;
Wait(10)
begin
if (FindFight) then
begin
RunAwayDirection('N');
Wait(8500 + random(3500));
RunBack;
end;
end;
end;


procedure TalkToRandom;
var c:integer;
begin
repeat
c:=c+1;
if(FindColorSpiral(x,y,16711680,5,345,510,465))and (not(GetColor(20,434)=0))then
begin
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
if(FindColorSpiral(x,y,16777215,5,345,510,465))and (not(GetColor(20,434)=0))then
begin
GetMousePos(x,y);
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
until(GetColor(20,434)=0)or(c>=20)
end;




begin
SetupSRL;
chop;
repeat
lo:= lo+1
wait(1 + random(1))
chop;
wait(1 + random(1))
antideath;
wait(1 + random(1))
drop;
wait(1 + random(1))
antiban;
until(false)
end.
Click to expand...

hi sir..:)
this is ur script taken from.. a thread called "Autocutter, codename "100 Million" " posted by Blankothe3rd ..

i used ur script and it was nice...after reaching 40 wc.. i keep an rune axe in my inventory.. but then after 5 min..the script drooped my axe with the logs..

can u correct it not to drop my rune axe because i dun hv 40 attack lvl to wield it lol ...so i hv to keep it in my inventory...
sry for my bad english

i'm very appreciate for you help..
and thx for reading this..;)
 
Plz DONT USE this script. It is just a preview it doesnt work.

UNTIL we finish this just use Basicut.
 
Well, I recently found out that it will not work in SCAR 3.4. So please keep scar 3.13 or it will not work. Due to the new restrictions, SCAR 3.4 will NOT compile with this script.
 
You must log in or register to reply here.
Runescape Gamblingrunescape gambling
Back
Top