I think you will like this. fun to use on level 3s!!!!!!
Enjoy!!!
Oh yea, please comment.
Enjoy!!!
Oh yea, please comment.
Code:
{
Time usage recomendation: Check on it about every 15-20 minutes (for randoms) but if you want to take a gamble with the randoms it works fine for as long as you want to run it.
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
-----------------------------------------------------------
WORKS BEST IN VARROCK BY THE 3 TREES NEAR THE GEN. STORE
{.Script Info:
# ScriptName = Basicut
# Author = GMK
# Description = A simple tree cutter.
# Version = 1.0
# Date = November 8th 2007
# 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
dropall;
l:=0
end;
end;
procedure talk;
begin
if lo=10 then
typesend('Wcing is borrrrrring')
if lo=40 then
typesend('BAM!!!!!!!!!!!!!!!!!')
if lo=60 then
typesend('Ruescape is fun')
if lo=80 then
typesend('YO mamma!')
if lo=100 then
begin
typesend('lol')
lo:=0
end;
end;
begin
SetupSRL;
comp;
repeat
lo:= lo+1
wait(1 + random(1))
chop;
wait(1 + random(1))
drop;
wait(1 + random(1))
talk;
until(false)
end.
