AWE Cutter

[Akriam]

AWE
A:Auto
W:Willow Chopper
E:Evolution

I Have Updated it out of beta. Hopefully it will work nicely now. I am working on AWE 2 which will be a pay script. Post your proggies :)

Vesrion History:
V0.1B -It compiles :)
V0.1 -It works, hopefully :)
V2 -Coming soon, it will be l337



// ____
// / _ \
// / |_| \
// / __ \__ __
// | / \ |\ \ /\ / /____
// | | | | \ V V // -_)
// |__| |__| \_/\_/ \____|

// AND NOW A BANKER!
// ~Remastered~
//[------------------| Details |------------------]
//[ Title: Akarims PowerCutter ]
//[ Version: Version 3.5 ]
//[ Creator: Akarim ]
//[ Contact: Jiwman88@hotmail.com ]
//[---------------| Description |-----------------]
//[ This script will automaticly cut the trees ]
//[ in draynor and (Willow) then once your pack is]
//[ full it will bank the logs, Thus gaining exp ]
//[ in the Woodcutting skill. This script has SRL ]
//[ with anti-randoms and anti-fights. Have Fun :)]
//[---------------| Instructions |----------------]
//[ 1) Start next to the tree you want to cut ]
//[ 2) Fill in the setup on lines ----- ]
//[ 3) Fill in lines ------------- ]
//[ 4) Set Ent color in line --- ]
//[ 5) Drag the crosshair onto Runescape ]
//[ 6) V-Bright, 32 bitcolor ]
//[ 7) Press play and watch it cut and drop 1 load]
//[ Have Fun, to post all bugs and reports please ]
//[-----------------------------------------------]
//[ Official Web-Thread-none yet ]
//[ ]
//[-----------------------------------------------}
program WillowExtreme;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

const
////////////////SET THESE UP/////////////
Username='Woo';
Nick='Woow';
Waittime=3000; //<--3 Seconds Default
WC1=1; //<--Set Willow Color
WC2=2; //<--Set Willow Color
WC3=3; //<--Set Willow Color=
BC1=9; //<--Set Color Of Banker
BC2=10; //<--Set Color Or Banker
BC3=11; //<--Set Color of Banker
Tri=12; //<--Set how many trips to do
LC1=13; //<--Set Log Color
LC2=14; //<--Set Log Color
LC3=15; //<--Set Log Color

var
L:integer;
T:integer;
E:integer;

Procedure DeclarePlayers;
begin
HowManyPlayers :=4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='';
Players[0].Skill:='';
Players[0].Active:=True;

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='';
Players[1].Skill:='';
Players[1].Active:=True;

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='';
Players[2].Skill:='';
Players[2].Active:=True;

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='';
Players[3].Skill:='';
Players[3].Active:=True;
end;


Procedure Printout;

begin
WriteLn(' _____ _____ _ _ ')
WriteLn('| __ \ / ____| | | | | ')
WriteLn('| |__) |____ _____ _ __| | _ _| |_| |_ ___ _ __ ')
WriteLn('| ___/ _ \ \ /\ / / _ \ ''__| | | | | | __| __/ _ \ ''__| ')
WriteLn('| | | (_) \ V V / __/ | | |___| |_| | |_| || __/ | ')
WriteLn('|_| \___/ \_/\_/ \___|_| \_____\__,_|\__|\__\___|_| ')
WriteLn(' ~Remastered~')
WriteLn(' NOW BANKS!')
end;

Procedure Updates;
begin
WriteLn('Hello, thank you for using A.W.E.')
WriteLn('Check for updates regularly!')
WriteLn('Thanks to Arr0w for autoresponder :)');
end;

Procedure LoadBTMPS;
var BankSymbol, FishSymbol :integer;
begin
FishSymbol := BitmapFromString(21, 17, 'z78DAEDD5D10A80200C' +
'05D05FDA0A713D9AD1FF7F528485A33529B6822085FB50D2B 9052' +
'9C03F2E0F6CCE87C544298E414BD601BDDCB6A836A91DF04D 57F9' +
'1A5FD01517724AF39E18E2DCEBE2F1EE8D0E42E7A24C4D27A 2387' +
'8E89B5566AB03EF69D7013B9A0E2975B9664DBF773F7FFEBA 2E43' +
'C962ED570CBADAA15A5CE4C9DBD63E7E7F9CB4B434E9F6BDC E6BE' +
'7BFBBCFBF72E2D8CFB8053C63B21E');

BankSymbol := BitmapFromString(22, 24, 'z78DAED95D10A80200C' +
'457F494B141F53F3FF3FA960040B59AD74F69057B844A0F7C 0E65' +
'46A68A8424EE97D51DE2537DA90C31A9C8FF3C9E1BF080FCA 2DD3' +
'D79CB449373CC2E9A5BB688D9A16EBB33F4804187016FEC6D E80A' +
'148E730402E76BCF7715D5E318097BB2418A87EA06AD19681 22A1' +
'EA22C7C0EF8D2A06C6DDE433544D89CBBBC9EF87B6930A187 0169' +
'50E2E31B1C1E17C6A2EF57FBFBABE9B43DFE8A735DD006D2B 7F13' +
'');

end;


Procedure Setup2;
begin
setupsrl;
highestangle;
MakeCompass('N');
FindEnt(WC1);
FindEnt(WC2);
FindEnt(WC3);
findnormalrandoms;
Findmaze;
findmime;
findlamp('Woodcutting');
FindHead;
AttachHead;
TalkToRand;
DwarfItem;
SolvePinBall;
FindScapeRune;
SolveFrog;
If (FindFight) Then
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;
If (Finddead) then
RandomNextPlayer(True);
end;

Procedure Responder;
begin
if (InChat('Mining lvls') or
InChat('Mining lvls?') or
InChat('Mine lvls') or
Inchat('Mine lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Mining')))
end;

if (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
end;
if (InChat('Fish lvls') or
InChat('Fish lvls?') or
InChat('Fishin lvls') or
InChat('Fishin lvls?') or
InChat('Fishing lvls') or
InChat('Fishing lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fishing')))
end;
if (InChat('Attack lvls') or
InChat('Attack lvls?') or
InChat('Atack lvls') or
InChat('Atack lvls?') or
InChat('Attac lvls') or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
end;

if (InChat('Strengh lvls') or
InChat('Strengh lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Strengh')))
end;

if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
end;

if (InChat('Hp lvls') or
InChat('Hp lvls?') or
InChat('Hitpoint lvls') or
InChat('Hitpoint lvls?') or
InChat('Hitpoints lvls') or
InChat('Hitpoints lvls?') or
InChat('Hitp lvls') or
InChat('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
end;

if (InChat('Range lvls') or
InChat('Range lvls?') or
InChat('Rangin lvls') or
InChat('Rangin lvls?') or
InChat('Ranged lvls') or
InChat('Ranged lvls?') or
InChat('Ranging lvls') or
InChat('Ranging lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Ranged')))
end;

if (InChat('Pray lvls') or
InChat('Pray lvls?') or
InChat('Prayer lvls') or
InChat('Prayer lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Prayer')))
end;

if (InChat('Mage lvls') or
InChat('Mage lvls?') or
InChat('Mag lvls') or
InChat('Mag lvls?') or
InChat('Magic lvls') or
InChat('Magic lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
end;

if (InChat('Cook lvls') or
InChat('Cook lvls?') or
InChat('Cookin lvls') or
Inchat('Cookin lvls?') or
InChat('Cooking lvls') or
InChat('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
end;

if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
end;

if (InChat('Firemaking lvls') or
InChat('FireMaking lvls?') or
Inchat('Fire making lvls') or
InChat('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
end;

if (InChat('Craft lvls') or
InChat('Craftt lvls?') or
InChat('Craftin lvls') or
InChat('Crafting lvls?') or
InChat('Crafting lvls') or
InChat('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
end;

if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
end;

if (InChat('Rc lvls') or
InChat('Rc lvls?') or
InChat('Runecraft lvls') or
InChat('Runecraft lvls?') or
InChat('Runecrafting lvls') or
InChat('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
end;

if (InChat(UserName + '?')) then
begin
TypeSend('Yeah?')
end;

if (InChat('Wna b freinds?') or
InChat('Wna be freinds?') or
InChat('Wana b freinds?') or
InChat('Wana be freinds?') or
InChat('Want 2 b freinds?') or
InChat('Want 2 be freinds?') or
InChat('Want to b freinds?') or
InChat('Want to be freinds?')) then
begin
TypeSend('No ty')
end;

if (InChat('Hi' + UserName) or
InChat('Hey' + UserName) or
InChat('Hello' + UserName)) Then
begin
TypeSend('Hi')
end;

if (InChat('You are a noob' + UserName) or
InChat( UserName + 'you are a noob')) then
begin
TypeSend('Okay')
end;

if (InChat('What music do you people like?') or
InChat('Wat music do you guys like?') or
InChat('What music you ppl like?') or
InChat('Wat music do yoo peeps like')) then
begin
TypeSend('Rock FTW!!')
end;
end;

Procedure Notban;
var
NoBan : Integer;
begin
if ( not ( LoggedIn )) then Exit;
NoBan:=Random(50)
case NoBan of
1: RandomRClickEvery(2 + Random(15));
2: hoverskill('woodcutting', false);
3: hoverskill('random', false);
4: DoEmote(1 + Random(20));
5: BoredEvery(9 + Random (21));
6: PickUpMouse;
7: LeaveScreenEvery(10 + Random(5));
8: RotateEvery(20 + Random(5));
end;
end;


Procedure NexttotreeCheck;
var FishSymbol, x, y: Integer;
begin
FishSymbol := BitmapFromString(21, 17, 'z78DAEDD5D10A80200C' +
'05D05FDA0A713D9AD1FF7F528485A33529B6822085FB50D2B 9052' +
'9C03F2E0F6CCE87C544298E414BD601BDDCB6A836A91DF04D 57F9' +
'1A5FD01517724AF39E18E2DCEBE2F1EE8D0E42E7A24C4D27A 2387' +
'8E89B5566AB03EF69D7013B9A0E2975B9664DBF773F7FFEBA 2E43' +
'C962ED570CBADAA15A5CE4C9DBD63E7E7F9CB4B434E9F6BDC E6BE' +
'7BFBBCFBF72E2D8CFB8053C63B21E');
if(findbitmap(FishSymbol, x, y))then
MakeCompass('N');
WriteLn('Found the tree spot.');
Setup2;
end;

Procedure Findandchop;
var x,y :integer;
begin
Notban;
setup2;
Responder;
If (FindFight) Then
begin
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;
end;
if findcolorspiral(x,y,WC1,3,3,515,336)or
findcolorspiral(x,y,WC2,3,3,515,336)or
findcolorspiral(x,y,WC3,3,3,515,336) then
begin
Notban;
Responder;
Case Random(20) of
0:TypeSend('lalala');
1:TypeSend('Yes WC lvl!');
2:TypeSend('Hey Hey everyone');
3:TypeSend('700 more to go....');
4:TypeSend('Bored....');
5:TypeSend('Almost there!');
6:TypeSend('he he he');
7:TypeSend('I whish i was a higher lvl');
end;
mmouse(x,y,2,2)
if(IsUpTextMulti('Chop','op','Ch')) then
getmousepos(x,y);
Mouse(x,y,0,0,true)
Begin
Case random(3) of
1: hoverskill('woodcutting', false);
2: PickUpMouse;
3: LeaveScreenEvery(10 + Random(5));
end;
end;
wait((WAITTIME*1000)+Random(500))
if not loggedin then
RandomNextPlayer(True);
L := L*28;
T := T+1;
end;
end;

Procedure Bank;
var BankSymbol, x, y: Integer;
begin
Setup2;
Notban;
Responder;
BankSymbol := BitmapFromString(22, 24, 'z78DAED95D10A80200C' +
'457F494B141F53F3FF3FA960040B59AD74F69057B844A0F7C 0E65' +
'46A68A8424EE97D51DE2537DA90C31A9C8FF3C9E1BF080FCA 2DD3' +
'D79CB449373CC2E9A5BB688D9A16EBB33F4804187016FEC6D E80A' +
'148E730402E76BCF7715D5E318097BB2418A87EA06AD19681 22A1' +
'EA22C7C0EF8D2A06C6DDE433544D89CBBBC9EF87B6930A187 0169' +
'50E2E31B1C1E17C6A2EF57FBFBABE9B43DFE8A735DD006D2B 7F13' +
'');
if(findbitmap(BankSymbol, x, y))then
wait(3000)
Begin
Case random(4) of
1: MMouse(x,y,3,3)
2: MMouse(X,y,4,4)
3: MMouse(x,y,5,5)
4: MMouse(x,y,6,6)
end;
getmousepos(x,y);
Mouse(X,y,3,3,true)
wait(7000)
if findcolorspiral(x,y,BC1,3,3,515,336)or
findcolorspiral(x,y,BC2,3,3,515,336)or
findcolorspiral(x,y,BC3,3,3,515,336) then
MMouse(X,y,3,3)
getmousepos(x,y);
Mouse(X,y,3,3,true)
if(IsUpTextMulti('Bank','Ba','nk')) then
Getmousepos(x,y);
Mouse(x,y,0,0,true)
if findcolorspiral(x,y,LC1,3,3,515,336)or
findcolorspiral(x,y,LC2,3,3,515,336)or
findcolorspiral(x,y,LC3,3,3,515,336) then
getmousepos(x,y);
Mouse(X,Y,3,3,true)
getmousepos(x,y);
Mouse(X,y,3,3,true)
if(IsUpTextMulti('Deposit All', 'All', 'Al')) then
getmousepos(x,y);
Mouse(X,y,0,0,false)
Begin
Case random(50) of
1: hoverskill('woodcutting', false);
2: PickUpMouse;
3: LeaveScreenEvery(10 + Random(5));
4:TypeSend('lalala')
5:TypeSend('Yes WC lvl!')
6:TypeSend('Hey Hey everyone')
7:TypeSend('700 more to go....')
8:TypeSend('Bored....')
9:TypeSend('Almost there!')
10:TypeSend('he he he')
11:TypeSend('I whish i was a higher lvl')
end;
begin
if not loggedin then
RandomNextPlayer(True);
end;
end;
end;
end;

Procedure ProgressReport;
begin
WriteLn('==================================');
WriteLn('Thanks for using my WillowChopper.');
WriteLn('It has cut' + inttostr(l) + 'Loads.');
WriteLn('It has done' + inttostr(t) + 'Trips.');
WriteLn('==================================');
end;
begin
repeat
DeclarePlayers;
Printout;
Updates;
LoadBTMPS;
Setup2;
Nexttotreecheck;
FindandChop;
until (InvFull) then
Bank;
ProgressReport;
until(L>Tri*27);
end.

//(C) Akriam/G.A.S.P. Inc. 2006
//Thanks to everyone who helped :)




Progress Reports (post yours):

Bugs:

AWE 2 Info:
Me and G.A.S.P. (C) Staff are workin on AWE2, the next generation of log cutters. It will most likely be a pay script for anywhere from 500k-1M. It will also have 'extensions' you can purchase such as log burners and maybe a powerminer.

It will have:
-Auto Color
-DTMS
-Another Mouse Procedure option (Auose)
-VERY random walking
-VERY random Banking
-An overall great script!

[Akriam]

Everyone, it is out of BETA! (I would appreciate some feedback, since no one even posted about the beta ;))

[durkaman13]

whats a mm color??
for bank and tree

[Akriam]

MM is bank, 1 second Im updating it, just realized an error.

EDIT: Try it now ;)

[durkaman13]

Line 498: [Error] (16364:17): Identifier expected in script

i always get this error

[durkaman13]

when i run it it does not bank them it gets stuck in bank

[lefamaster]

getting the same error on compiling:

Line 523: Identifier expected in script.

[Akriam]

when i run it it does not bank them it gets stuck in bank

So you got it to run ;) Also what was the error, i tried alot of different ways. And about the bank, I will update that next time, does it cut okay though?