[rs2][srl4]basicut Revived[rs2][srl4]

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.

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.

 

oh ya, btw thats not my real password, lol

 

Has anyone tested this yet?

 

yeah i ran it until it filled up my bag, it wouldnt drop any logs.
but it was fine st chopping them

 

error: help appreciated

Line 432: [Hint] (10394:1): Variable 'OLDMS' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar
Line 135: [Error] (12402:18): Unknown identifier 'talk' in script C:\Documents and Settings\Administrator\Desktop\basicut edited.scar




begin
HowManyPlayers := 1;//keep it at 1
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);

Players[0].Name := 'Str t0hell';//name of your guy
Players[0].Pass := 'a65dino';//pass of your guy
Players[0].Nick := 'Str';//nickname of your guy.
Players[0].Active := True;
end;




Changed these to my own:

0:typesend('Ownzorz')
1:typesend('leet at wc much?')
2:typesend('who wants a snickers?')
3:typesend('think what you want')
4:typesend('naa')
5:typesend('yes')
6:typesend('sup guyyz')
7:typesend('G.E. OWNS narbs')
8:typesend('WHASSUP')
9:typesend('Jagex owns ftw?')
10:typesend('I HATE yuo')
11:typesend('str8 up')
12:typesend('sup all')
13:typesend('wc is really boring')
14:typesend('LOL')
15;typesend('i <3 homeless people')
16:typesend('i would have to pk you')
17:typesend('is anybody out there????')
18:typesend('wc is so last week')
19:typesend('i should raise fish next')
20:typesend('membs is for nubs')
end;




please enlighten me on my error, how to fix it

 

Ok for the guy who said it didnt drop, was your inventory completely full???
Becuase it should work..

 

Aim getting this errors:

Line 432: [Hint] (10394:1): Variable 'OLDMS' never used in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar
Line 87: [Error] (12272:1): Unknown identifier 'SetMouseMode' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL.scar

 

Aim getting this errors:

Line 432: [Hint] (10394:1): Variable 'OLDMS' never used in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

Line 87: [Error] (12272:1): Unknown identifier 'SetMouseMode' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL.scar

 

bad, outdated script.

might havve been decent.. about a year ago.

 

umm excuse me???? u must be a newb to think this is outdated!!! this is the NEWEST VERSION of it! you must be using the NEWEST scar to do this

 

I got these errors...

Failed when compiling
Line 432: [Hint] (10394:1): Variable 'OLDMS' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar
Line 135: [Error] (12402:18): Unknown identifier 'talk' in script

 

leechers love your thread =p

 

You could not have said it any better leet.

FOR THE LAST TIME. THE OLDMS AND OTHER ERROR ISNT AN ERROR WITH MY SCRIPT ITS AN ERROR WITH YOUR SRL!!!!!!!!!!!!!!!!!!!!!!

dang leechers...

 

Question... im kinda never using scar sorry if my question is kinda noobish but
i get this:
Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL.scar does not exist.
Failed when compiling

Can you help me ?

 

im getting the line 135 thing even after pressing run and then clicking on the top of browser

 

does it work? well

 

can anyone answer me ..?

 

line 135 talk error

 

IM new to SCAR and i dont know what im doing wrong because is says failed when compiling??

 

Line 27: [Error] (53:1): Duplicate identifier 'UpChars' in script C:\Program Files\SCAR 3.15\includes\srl\srl\core\Globals.scar