[October 20, 2008] BASICUT [October 20, 2008]

BASICUT

These are the official Basicut scripts.

Requirements:
Newest scar
Newest SRL
Subversion

CHOOSE ONE SCRIPT
there are two scripts, only use one at a time.
The first one is more accurate but more detectable
The second one is less accurate but less detectable
I will merge them eventually.

The script:

Code:

{
//////////////////|~(*)+++++THE OFFICIAL SEAL OF GMK+++++(*)~|//////////////////
Program: Basicut
--------------------------------------------------------------------------------
Version: 5.25
--------------------------------------------------------------------------------
Description: Your reliable way to power-cut.
--------------------------------------------------------------------------------
Check on script every: 1-3 hours, maybe less often.
--------------------------------------------------------------------------------
Class of script: Auto-Chopper
--------------------------------------------------------------------------------
Complexity 1-10: 6
--------------------------------------------------------------------------------
Date of last update: October 27th 2008
--------------------------------------------------------------------------------
Bugs:
--------------------------------------------------------------------------------
Notes:
FILL OUT LINE 28,29,46,47, and 48
DONT FORGET TO DRAG THE CROSSHAIR TO THE RUNESCAPE WINDOW!
you can put your axes in first to inventory slots.
--------------------------------------------------------------------------------}
program Basicut;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
waitt = 3000;//the time to wait between chopping.
treee = 'Tree';// the type of tree to chop, please spell correctly and first letter uppercase.')
roam = 'F';// T for roam around the woods F for stay in one area

var
x,y:integer;
l,lo:integer;
anti:integer;
rep,tal,spl:integer;
notyet,gow:boolean;
posx,posxx:integer;
posy:integer;
flagg,toomuch:integer;

procedure DeclarePlayers;// YOU SHOULD REALLY FILL THIS OUT!!
begin
  HowManyPlayers := 1;//keep it at 1
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := 'Scars dead';//name of your guy
  Players[0].Pass := '';//pass of your guy
  Players[0].Nick := 'ars';//nickname of your guy.
  Players[0].Active := True;
end;

procedure comp; // compiles the script
begin
LoadNPCArray;
l:=0
lo:=0
cleardebug;
wait(10)
writeln('-----------------------------')
writeln('Basicut 5.1 made by GMK')
writeln('Your reliable way to powercut')
writeln('tree to chop is: '+ treee)
writeln('-----------------------------')
ActivateClient;
wait(2000)
end;

Procedure Report;// shows a progress report
begin
cleardebug;
writeln('-------------------------------------')
writeln('Basicut report')
writeln('Logs cut: '+inttostr(rep))
writeln('Times talked: '+inttostr(tal))
writeln('Random movements made: '+inttostr(spl))
writeln('Thanks for using Basicut')
writeln('-------------------------------------')
end;

procedure Load;
begin
flagg := BitmapFromString(17, 18, 'beNr7/3+AAQNDrLEgSepJ' +
       '0wJWT4IWmHpitSCpJ0oLqnrCWjDUkxxi//8fC2MZ1TIIteAEAPN7K' +
       'IQ=');
end;

procedure endit; // failsafe procedure, logs out if you dont have an axe.
begin
Logout;
wait(10)
writeln('Failsafe: problem found. Logging out to avoid further issues.')
wait(10)
Terminatescript;
end;

procedure failsafes;// checks to see if you still have an axe.
begin
if InChat('You do not have an axe which you have the woodcutting level to use.')=true then
endit;
end;

procedure cut;
begin
getmousepos(posx,posy)
FindEnt(posx,posy,true);
Mouse(posx,posy,2,2,false);
wait(100+ random(50))
ChooseOption('Chop down')
wait(250+ random(50))
repeat
wait(25+random(5))
until(FindBitmap(flagg,x,y)=false)
wait(waitt + random(20))
l:=l+l;
end;


procedure chop1; // an accurate scan
begin
posy:=25;
posx:=5;
gow:=false
toomuch:=0
repeat
posx:=posx+40random(5)
wait(25)
if posx>510 then
posy:=posy+40+random(5);
if posx>510 then
posx:=5;
if posy>310 then
posy:=25;
MMouse(posx,posy,1,1)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
gow:=true;
toomuch:=toomuch+1;
if toomuch>80 then
gow:=true;
until(gow=true)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
cut;
end;

procedure chop2; // an accurate reverse scan
begin
posy:=317;
posx:=500;
gow:=false
toomuch:=0
repeat
posx:=posx-40random(5)
wait(25)
if posx<20 then
posy:=posy-40+random(5);
if posx<20 then
posx:=500;
if posy>310 then
posy:=317;
MMouse(posx,posy,1,1)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
gow:=true;
toomuch:=toomuch+1;
if toomuch>80 then
gow:=true;
until(gow=true)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
cut;
end;


procedure chop3; // a quick scan
begin
posx:=50;
repeat
posx:=posx+40random(5)
if posx>450 then
gow:=true;
MMouse(posx,155,1,1)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
gow:=true;
until(gow=true)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
cut;
end;

procedure chop4; // a second quick scan
begin
posy:=50;
repeat
posy:=posy+40random(5)
if posy>300 then
gow:=true;
if posy>300 then
posy:=50;
MMouse(250,posy,1,1)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
gow:=true;
until(gow=true)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
cut;
end;

procedure chop; // Randomly chooses a chopping procedure to use.
begin
gow:=false;
Anti:= random(6);
case Anti of
1,2:Chop1;
3,4:Chop2;
5:Chop3;
6:Chop4;
end;
end;





procedure autorespond; // to be added to soon
begin
if InChat('hi')=true then
TypeSend(AddMistakes('Hello', 20));
if InChat('bot')=true then
TypeSend(AddMistakes('No im not you noob', 20));
if InChat('Newb')=true then
TypeSend(AddMistakes('Nah, your the noob', 20));
if InChat('Nub')=true then
TypeSend(AddMistakes('Yo momma', 20));
end;

procedure drop;  // drops the logs in the inventory.
begin
report;
if invfull=true then
begin
l:=3
repeat
DropItem(l)
l:=l+1
until(l=29)
end;
end;

Procedure Roamm; // if Roaming is activated then it will make your character move around the map.
begin
if roam='T' then
RunAway('N',false,1,4000)
end;

Procedure mouseit; // my personal mouse movement antiban procedure.
begin
spl:=spl+1
Anti:= random(5);
case Anti of
1:movemousesplineex(51,57,1,1,10,35,65);
2:movemousesplineex(80,80,1,1,10,35,65);
3:movemousesplineex(127,75,1,1,10,35,65);
4:movemousesplineex(100,59,1,1,10,35,65);
5:movemousesplineex(110,10,1,1,10,35,65);
end;
end;

Procedure Talkk; // talking antiban procedure.
begin
tal:=tal+1
Anti:= Random(5);
case Anti of
1:TypeSend(AddMistakes('Hai!', 20));
2:TypeSend(AddMistakes('Im really bored', 20));
3:TypeSend(AddMistakes('*yawn*', 20));
4:TypeSend(AddMistakes('Im tired of woodcutting!', 20));
5:TypeSend(AddMistakes('Sw33tn3ss!', 20));
end;
end;

procedure antiban; // calls antiban procedures
begin
if lo=5 then
begin
wait(100 + random(25))
lo:=0
Anti:= Random(6);
case Anti of
1:HoverSkill('woodcutting',false);
2:pickupmouse;
3:Talkk;
4:mouseit;
5:RandomMovement;
6:Roamm;
end;
end;
end;

Procedure Randoms;// checks for randoms
begin
Findnormalrandoms;
if FindFight=true then
RunAway('n',true,1,9000)
end;

begin // main loop!
tal:=0
rep:=0
spl:=0
SetupSRL;
comp;
DeclarePlayers;
repeat
rep:=rep+1
lo:=lo+1
wait(100 + random(50))
chop;
wait(10+random(5))
Pickupmouse;
autorespond;
Randoms;
drop;
wait(10+random(5))
antiban;
until(false)
end.

Do to popular demand i will release the older version using color finding routines.

Code:

{
//////////////////|~(*)+++++THE OFFICIAL SEAL OF GMK+++++(*)~|//////////////////
Program: Basicut
--------------------------------------------------------------------------------
Version: 5.1
--------------------------------------------------------------------------------
Description: Your reliable way to power-cut.
--------------------------------------------------------------------------------
Check on script every: 1-3 hours, maybe less often.
--------------------------------------------------------------------------------
Class of script: Auto-Chopper
--------------------------------------------------------------------------------
Complexity 1-10: 4.5
--------------------------------------------------------------------------------
Date of last update: August 10th 2008
--------------------------------------------------------------------------------
Bugs:
--------------------------------------------------------------------------------
Notes: doesnt drop in first two inventory slots so you can put your axes there.
--------------------------------------------------------------------------------
}
program Basicut;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
colo= 3167811;// May need to reset this (color of tree)
Waitt= 4000;//the time between cutting


var
x,y:integer;
l,lo:integer;
anti:integer;
rep,tal,spl:integer;

procedure DeclarePlayers;// YOU REALLY NEED TO FILL THIS OUT!!
begin
  HowManyPlayers := 1;//keep it at 1
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := 'Scars dead';//name of your guy
  Players[0].Pass := '';//pass of your guy
  Players[0].Nick := 'sca';//nickname of your guy.
  Players[0].Active := True;
end;

procedure comp;
begin
LoadNPCArray;
l:=0
lo:=0
ActivateClient;
cleardebug;
wait(10)
writeln('-----------------------------')
writeln('Basicut 5.1 made by GMK')
writeln('Your reliable way to powercut')
writeln('color is set at: '+ inttostr(colo))
writeln('-----------------------------')
ActivateClient;
end;


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

procedure drop;
begin
if invfull=true then
begin
l:=3
repeat
DropItem(l)
l:=l+1
until(l=29)
end;
end;

Procedure Report;
begin
cleardebug;
writeln('-------------------------------------')
writeln('Basicut report')
writeln('Logs cut: '+inttostr(rep))
writeln('Times talked: '+inttostr(tal))
writeln('Random movements made: '+inttostr(spl))
writeln('Thanks for using Basicut')
writeln('-------------------------------------')
end;


Procedure mouseit;
begin
spl:=spl+1
Anti:= random(5);
case Anti of
1:movemousesplineex(51,57,1,1,10,35,65);
2:movemousesplineex(80,80,1,1,10,35,65);
3:movemousesplineex(127,75,1,1,10,35,65);
4:movemousesplineex(100,59,1,1,10,35,65);
5:movemousesplineex(110,10,1,1,10,35,65);
end;
end;

Procedure Talkk;
begin
tal:=tal+1
Anti:= Random(5);
case Anti of
1:typesend('hi all');
2:typesend('im bored, im sooo bored ');
3:typesend('the cake is a lie');
4:typesend('quit staring at me');
5:typesend('i wanna be a mod one day');
end;
end;

procedure antiban;
begin
if lo=5 then
begin
wait(100 + random(25))
lo:=0
Anti:= Random(5);
case Anti of
1:HoverSkill('woodcutting',false);
2:pickupmouse;
3:Talkk;
4:mouseit;
5:RandomMovement;
end;
end;
end;

Procedure Randoms;
begin
Findnormalrandoms;
if FindFight=true then
RunAway('n',true,1,9000)
end;

begin
tal:=0
rep:=0
spl:=0
SetupSRL;
comp;
DeclarePlayers;
repeat
rep:=rep+1
lo:= lo+random(2)
wait(100 + random(50))
chop;
Randoms;
drop;
antiban;
until(false)
end.

 

Works pretty nicely, I like the anti-ban (talking).

 

Thanks, post the proggie if you want.

 

hey i have been gettong this error on every script i have tried. any help pls

i have gotten this error for your script, and verry similar on others.
Line 22: [Error] (22:1): Unable to register function function FindGapsTPA(TPA : TPointArray; MinPixels: Integer): T2DPointArray; in script

pls help

 

Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL.scar does not exist.
Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL\Skill\WoodCutting.scar does not exist.
Failed when compiling it says that, please help.

 

Thanks, I'll try it later after I have time.

 

Set up SRL correctly

 

I tried out the BASICUT and it worked amazingly. BUT... does basicut autodrop, I am having difficulties with this. my inventory gets full then it does nothing and logs out. is it possible to run an autodropper as well as basicut please help TY

 

Code:

procedure drop;
begin
invfull;
if invfull then
begin
l:=3
repeat
DropItem(l)
l:=l+1
until(l=29)
end;
end;

This procedure (which is included in the script) should drop everything.

 

thanks for answering questions while i was gone snappie. did you test. if so does the drop work because i still have to do more testing on it.

BTW guys LOW DETAIL. NOT HIGH!

 

Np mate. And no sorry, didn't test it yet but after I gone to school I will for you.

 

kk just tested its up and working fine provided you have the newest scar and srl.

Btw it DOESNT require SMART or reflection so dont worry.

 

-------------------------------------
Basicut report
Logs cut: 886
Times talked: 19
Random movements made: 15
Thanks for using Basicut
-------------------------------------
[Runtime Error] : Math error in line 128 in script

It stopped on that random, where you are in the class and the teacher is red dragon.

And if i started the script now, then i'll get an error:
Failed when compiling
Line 264: [Error] (264:1): Unknown identifier 'srl_Warn' in script E:\SCAR 3.15\includes\SRL\SRL\Core\Text.scar

 

xMBx i will check on that, But it seems that you dont have srl subversion installed. please install it at www.freddy1990.com/scar.php

 

Works fine for me. Maby you should include a bank procedure that will bank your logs if scar finds a bank icon on the minimap.

 

~Script Rating~
Content: 3/5
Productability: 4/5
Noob friendly: |||||||||||||||||||X| 1-10
Longest time used: 4.5 hours

Official rating: 3.5
Final Comments: This script is orgasmic. Could use a little more work though.

 

paint in the ass to read lol.

srl stats would be nice
explain your dropping procedure? I've never seen it like that (Maybe the reason for that is my script don't need to "Drop")

 

-------------------------------------
Basicut report
Logs cut: 2770
Times talked: 63
Random movements made: 53
Thanks for using Basicut
-------------------------------------
[Runtime Error] : Math error in line 128 in script E:\SCAR 3.15\Scripts\[WORKING]Powercutter.scar

Found myself in Lumby.

 

Hey can anyone find the possibility for this error that xMBx has? i cannot find the reason as it works fine for me.
XmbX i must admit the randoms dont work that well. perhaps try filling in the declare players form and you wont end in lumby =]

M A I N FTW, what this does is first checks if your inventory is full. then it begins the procedure.

the procedure operates like so:

sets the inventory spot to drop ahead by 3 so you can place axes in your inventory.

starts a loop

drops the item in inventory position l which was defined earlier to start at 3.

sets l to the next inventory slot.

this says to stop dropping when l is 29 which would mean that it dropped all the logs.

 

Love it thanks for the great script keep then coming!