[Scar 3.15b]Basicut 4.0[Scar 3.15b]

NEW VERSION 4.2!

new to version 4.2:
Still Leecher friendly! :laugh:
doesn't first inventory slot item (good for skillers)
1337 dropping procedure finally fixed!!!


Post Reports!

NOTE: if you have any errors the first run rerun it a couple times. it works itself out.
ALSO NOTE: wearing camo suit Makes chopping alot less accurate!

[CODE{
Time usage recomendation: Check on it ocasionaly.
Class of script: Auto-leveler
Complexity 1-10: 6
Bugs: Make sure after you run it you click on the top internet explorer bar so it turns blue.
Otherwise its typer wont work.
Notes: Works best with regular trees, but will find any tree.
-----------------------------------------------------------

Code:

{.Script Info:
# ScriptName  = Basicut
# Authors      = GMK
# Description = A simple, Yet powerfull Tree cutter.
# Version     = 4.2
# Date        = Auguest 8th 2008
# Comments    = you can put an axe in the first inventory space.
/Script Info}
program Basicut;
{.include SRL/SRL.scar}

const
colo= 2909016;// May need to reset this (color of tree)
Waitt= 4000;//the time between cutting

var
x,y,m1,m2:integer;
li,lo,ow:integer;
anti:integer;


procedure comp;
begin
LoadNPCArray;
lo:=0
ActivateClient;
cleardebug;
wait(10)
writeln('Basicut made by GMK')
writeln('color is set at: '+ inttostr(colo))
ActivateClient;
end;


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

procedure drop; //Original
begin
m2:=224;
m1:=621;
ow:=1;
li:=1;
if invfull then
   begin
   repeat
   li:=li+1;
   ow:=ow+1;
   mouse(m1,m2,0,0,false)
   mouse(m1-45,m2+45,0,0,true)
   if ow=4 then
   m2:=m2+34;
   if ow=4 then
   ow:=0;
   m1:=m1+43;
   if m1=750 then
   m1:=578;
   until(li=24)
m2:=445;
m1:=578;
repeat
li:=li+1;
Mouse(m1,m2,0,0,false)
Mouse(m1-52,m2+16,0,0,true)
m1:=43+m1;
until(li=28)
   end;
end;

Procedure mouseit;
begin
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
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)
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
SolveChatRandom;
if (FindFight) then
begin
RunTo('N',false)
Wait(8500 + random(3500));
RunTo('S',false)
end;
end;

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

 

I keep getting Unknown Identifier 'Almost Logout' in the script

procedure antiban;
begin
if lo=5 then
begin
wait(100)
lo:=0
Anti:= Random(23);
case Anti of
0,5,10,15,20:HoverSkill('woodcutting',false);
21,22,23ickupmouse;
1,19:typesend('white:');
2,18:AlmostLogout;
3,17,4,16:RandomMovement;
6:typesend('Lol');
7:typesend('Lol');
8:typesend('my level is 99');
9:typesend('i h8 this');
12:typesend('red:Woodcuting Stinks');
11:typesend('white:Woodcut Stinks');
13:movemousesplineex(51,57,1,1,10,35,65);
14:movemousesplineex(127,111,1,1,10,35,65);
end;
end;
end;

 

Progress reports:

Alfred2
-------basicut progress report-------
Logs chopped: 189
Time ran: 30 Minutes and 17 Seconds
Ents avoided: 0
-------basicut progress report-------

 

Thx for fixing that but now im getting another error. Unknown identifier 'use certersolver' in script. I have the latest scar and SRL.

Procedure Randoms;
Begin
if findbox then
solvebox;
wait(10)
Wait(13);
FindTalk;
UseCerterSolver := True
UseSandwichSolver :=True
wait(10)
Solvepinball;
Wait(10)
begin
if (FindFight) then
begin
RunTo('N',false)
Wait(8500 + random(3500));
RunTo('S',false)
end;
end;
end;

 

for me it chops 1 tree then i get this error
[Runtime Error] : Out Of Range in line 1211 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

 

hmm search up scar subversion on google and install that. sounds like an internal error.

 

same error:
[Runtime Error] : Out Of Range in line 1211 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar
Scar 3,15b and newest SRL

 

im getting Line 125: [Error] (15076:1): Unknown identifier 'UseCerterSolver' in script ill follow ure advice for the other guy that got it..

 

now when i reinstalled it says cant move plugins when i try to add SVN....

 

ok i am total noob to scar but this looks hopefull

 

[Error] (254:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar
wat do i do to fix this?

 

i updated the script try it now.

 

problem,

Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL.scar does not exist.

how to fix it?

 

very nice bean working on my other computer for about 20min so far

 

i've got the same problem as 'gamerv08'

Line 58: [Error] (254:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

is this me setting it up wrong, coz it seems to be working for everyone else fine :S

 

thanks finally someone that knows how to run scar.
cool tell me how much it raises you.

 

That is a problem with ur srl most likely. OR you havent tried the newest version of basicut. try retrying it.

 

I think it must be a problem with my SRL i will try downloading a different version of scar and i have definbately got the most recent version of basicut but it is happening with all programmes so it must be soemthing my end, but from what i've seen great program will try again when ive got my scar working
Lostsoulparty

(thnx for ur advice)

 

awesome, i just deleted and downloaded portable version and all is workin thnx, great script

 

your welcome!
thanks for appreciating the work i do.