I got antsy and decided to release this early.
This is the newest WORKING verison of Basicut!
Its got a little more complex but still MUCH simpler than other powerchoppers, and whats good is it works very well.
Features:
- sweet autotalk and anitban funtions.
- Basic antirandoms.
- BASIC Antideath procedure.
- doesnt drop first 2 items in inventory.
- ALL THE 1337NESS of the older versions!
NOTE: WORKS BEST IN A VERY WOODED AREA OF RUNESCAPE.
Please respond on PROBLEMS/QUESTIONS/COMMENTS
Enjoy.
This is the newest WORKING verison of Basicut!
Its got a little more complex but still MUCH simpler than other powerchoppers, and whats good is it works very well.
Features:
- sweet autotalk and anitban funtions.
- Basic antirandoms.
- BASIC Antideath procedure.
- doesnt drop first 2 items in inventory.
- ALL THE 1337NESS of the older versions!
NOTE: WORKS BEST IN A VERY WOODED AREA OF RUNESCAPE.
Please respond on PROBLEMS/QUESTIONS/COMMENTS
Enjoy.
Code:
{
Time usage recomendation: Check on it every 2 hours.
Class of script: Powercutter
Complexity 1-10: 3
Notes: Make sure after you run it you click on the top of your web browser bar
so its activated (it turns blue)
Otherwise its typer wont work.
--------------------------------------------------------------------------------
{.Script Info:
# ScriptName = Basicut REV.
# Authors = GMK
# Description = Basicut a tree chopper with a simple build, yet amazing results.
# Version = 1.0
# Date = March 23rd 2008
# Comments = Simplicity is key.
/Script Info}
program Basicut;
{.include SRL/SRL.scar}
const
colo= 994343;// this should be fine. Its the color of the tree.
Waitt= 4000;//the time between cutting
var
x,y,l,lo,anti,tal:integer;
procedure DeclarePlayers;// 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 := 'black';//pass of your guy
Players[0].Nick := 'sca';//nickname of your guy.
Players[0].Active := True;
end;
////////////////////////////////DO NOT ENTER////////////////////////////////////
procedure comp;
begin
l:=0
lo:=0
ActivateClient;
cleardebug;
wait(10)
MakeCompass('N')
writeln('Basicut Rev. Made by GMK.')
ActivateClient;
end;
procedure chop;
begin
if FindColorSpiralTolerance(x,y,colo,52,26,468,260,3) then
Mouse(x,y,2,2,true);
l:=l+1
wait(waitt + random(200))
end;
procedure drop;
begin
invfull;
if invfull then
begin
DropItem(3)
wait(200)
DropItem(4)
wait(200)
DropItem(5)
wait(200)
DropItem(6)
wait(200)
DropItem(7)
wait(200)
DropItem(8)
wait(200)
DropItem(9)
wait(200)
DropItem(10)
wait(200)
DropItem(11)
wait(200)
DropItem(12)
wait(200)
DropItem(13)
wait(200)
DropItem(14)
wait(200)
DropItem(15)
wait(200)
DropItem(16)
wait(200)
DropItem(17)
wait(200)
DropItem(18)
wait(200)
DropItem(19)
wait(200)
DropItem(20)
wait(200)
DropItem(21)
wait(200)
DropItem(22)
wait(200)
DropItem(23)
wait(200)
DropItem(24)
wait(200)
DropItem(25)
wait(200)
DropItem(26)
wait(200)
DropItem(27)
wait(200)
DropItem(28)
l:=0
end;
end;
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,23:pickupmouse;
2,18:HoverSkill('magic',false);
3,17,4,16:RandomMovement;
6:AlmostLogout;
11,12,7,8,9,1,19:talk;
13:movemousesplineex(51,57,1,1,10,35,65);
14:movemousesplineex(127,111,1,1,10,35,65);
end;
end;
end;
Procedure talk;
begin
tal:=random(20);
case tal of
0:typesend('Owned')
1:typesend('1337 omg')
2:typesend('who wants pie?')
3:typesend('think what you want')
4:typesend('no')
5:typesend('yes')
6:typesend('sup guyyyyyz')
7:typesend('G.E. OWNS')
8:typesend('WHASSSSSUP')
9:typesend('Jagex owns')
10:typesend('I HATE yuo')
11:typesend('Duhhr')
12:typesend('sup all')
13:typesend('wc is boring')
14:typesend('LOL OMG')
15;typesend('cookie Kills')
16:typesend('if i told you i would have to kill you')
17:typesend('is anybody out thereE??????')
18:typesend('wc is sooooo last week')
19:typesend('i should raise slayer next')
20:typesend('yes i am a member')
end;
Procedure Randoms;
Begin
FindInventoryRandoms;
FindNonInventoryRandoms;
FindNormalRandoms;
begin
if (FindFight) then
clickmouse(584,49,true)
end;
end;
begin
SetupSRL;
DeclarePlayers;
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.
