• Log in or sign up for an account here: https://www.sythe.org/login

Everything tree chopper and dropper v1.2

GMK

GMK

Forum Addict
Joined
Aug 2, 2007
Sythe Gold
0
Messages
395
Location
WORLD 41
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 :)
 
Town said:
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 :)
Click to expand...

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 :P lol

Thanks
Karlos
 
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)
 
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?
 
Town said:
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 :)
Click to expand...


how do you make the intervals longer? :D cheers
 
You must log in or register to reply here.
Runescape Gamblingrunescape gambling
Back
Top