[Preview] Autocutter, codename "100 Million"

Blankothe3rd · Jan 11, 2008

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...

GMK · Jan 12, 2008

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.

Blankothe3rd · Jan 12, 2008

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.

GMK · Jan 12, 2008

Ya this script doesnt work atm.

DONT use this for an exchange over my original tree chopper until we get things sorted out.

Town · Jan 12, 2008

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.

GMK · Jan 12, 2008

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

Blankothe3rd · Jan 13, 2008

GMK said: ↑

NEVER say NEVER
Click to expand...

Oh snap lol.

punked up · Jan 14, 2008

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

Town · Jan 14, 2008

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.

Blankothe3rd · Jan 14, 2008

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.

wjboyz · Jan 17, 2008

{
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..

kellyjacksoncool · Jan 17, 2008

can you update the changes that summoning brought?

GMK · Jan 17, 2008

Plz DONT USE this script. It is just a preview it doesnt work.

UNTIL we finish this just use Basicut.

Blankothe3rd · Jan 17, 2008

I think I fixed it. Define the problem anyways...

Blankothe3rd · Jan 29, 2008

It's fixed, I am very close to releasing a final version soon.

shadowplayer9 · Feb 2, 2008

i dont work, i get this error:

line 1: Identifier expected in script

Blankothe3rd · Feb 3, 2008

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.

Ye Olde Macro · Feb 3, 2008

Line 57: [Error] (8896:24): Type mismatch in script C:\Users\Owner\Desktop\SCAR\SCAR 3.14\includes\SRL/SRL/Core/AntiRandoms/EvilBob.scar

Blankothe3rd · Feb 5, 2008

As I said before, DO NOT USE SCAR 3.14, IT CAUSES ERRORS!!!!!

cazax · Feb 15, 2008

well the script is so basic, you should add failsafes.

Log in or Sign up

[Preview] Autocutter, codename "100 Million"

Blankothe3rd Forum Addict

GMK Forum Addict

Blankothe3rd Forum Addict

GMK Forum Addict

Town Grand Master

GMK Forum Addict

Blankothe3rd Forum Addict

punked up Forum Addict

Town Grand Master

Blankothe3rd Forum Addict

wjboyz Guest

kellyjacksoncool Guest

GMK Forum Addict

Blankothe3rd Forum Addict

Blankothe3rd Forum Addict

shadowplayer9 Newcomer

Blankothe3rd Forum Addict

Ye Olde Macro Member

Blankothe3rd Forum Addict

cazax Forum Addict

Log in or Sign up

[Preview] Autocutter, codename "100 Million"

Thread Tools

Blankothe3rd Forum Addict

GMK Forum Addict

Blankothe3rd Forum Addict

GMK Forum Addict

Town Grand Master

GMK Forum Addict

Blankothe3rd Forum Addict

punked up Forum Addict

Town Grand Master

Blankothe3rd Forum Addict

wjboyz Guest

kellyjacksoncool Guest

GMK Forum Addict

Blankothe3rd Forum Addict

Blankothe3rd Forum Addict

shadowplayer9 Newcomer

Blankothe3rd Forum Addict

Ye Olde Macro Member

Blankothe3rd Forum Addict

cazax Forum Addict