Everything tree chopper and dropper v1.2

UPDATE
Now it wont drop the item in your 1st invy slot.
Feel free to bring a rune axe = D

v2.0 of Basicut is out!!!!!!
more antirandoms have been added.
Enjoy!!!!
oh yea please dont leech. comment

Code:

{
Time usage recomendation: Check on it ocasionaly.
Class of script: Auto-leveler
Complexity 1-10: 2
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. Sorry theres no antirandoms, look for them in V 2.0
you may need to change the color of the tree in line 44. But try the defualt color
first.
-----------------------------------------------------------
WORKS BEST IN VARROCK BY THE 3 TREES NEAR THE GEN. STORE

{.Script Info:
# ScriptName  = Basicut
# Author      = GMK
# Description = A simple tree cutter.
# Version     = 2.0
# Date        = January 9th 2008
# Comments    = You will love the simplicity.
/Script Info}
program Basicut;
{.include SRL/SRL.scar}

const
Waitt= 4000;//the time between cutting

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

procedure comp;
begin
l:=0
lo:=0
ActivateClient;
cleardebug;
wait(10)
perfectnorth;
writeln('Basicut made by GMK')
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
   DropToPosition(2,28)
   l:=0
   end;
end;

procedure antiban;
begin
if lo=10 then
PickUpMouse; // An interesting litle addin
if lo=15 then
SayCurrentLevels('woodcutting') // just says your wc level
if lo=25 then
typesend('white:')// looks like your bored;
if lo=40 then
AlmostLogout;// hmmmm to logg or not to logg
if lo=50 then
movemousesplineex(x+20,y+20,1,1,10,35,65)// moves mouse over a bit
if lo=50 then
lo:=0
end;

Procedure Randomss;
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;




begin
SetupSRL;
comp;
repeat
lo:= lo+1
wait(10 + random(1))
chop;
wait(10 + random(1))
Randomss;
wait(10 + random(1))
drop;
wait(10 + random(1))
antiban;
until(false)
end.

 

Use some SRL functions. InvCount returns the number of objects in your inventory. Typing the same thing over and over again at the same interval each time isn't smart. Make the random time in your waits bigger.

Keep working

 

Thanks i will!

 

ok im new to this whole scar thing wat do i do copey n paste the code?

 

yer you copy and paste it

 

Its also not too smart to make it say yo momma! lol i edited mine, its just that this raises attention if you get reported lol

Thanks
Karlos

 

Where do i copy and paste this to?

 

lol nice script too

 

If it were any more basic youd be in the stone age lol, LOVE THE SCRIPT, got from 0-40 in like 5 hours (a random got me)

 

is it for scar 2.03 or 3.12??

 

Use correct indentation language...I'm sure someone will help you.

 

i got scar 3.06 will it work?

 

it says in line 43:[Runtime Error] : Math error in line 43 in script

How can this be fixed?

 

this script is for scar 3.12

 

do i fill out the collors of the tree and the x,y of it?

if FindColorSpiralTolerance(x,y,994343,52,26,468,260,3) then
Mouse(x,y,2,2,true)

what do i fill out for color?

 

nvm got it working

 

Awsome Scriph

 

is it safe??

 

hehhehe cools ill try it xD hope i dont get killed

 

how do you make the intervals longer? cheers