SCAR Code:
// ____
// / _ \
// / |_| \
// / __ \__ __
// | / \ |\ \ /\ / /____
// | | | | \ V V // -_)
// |__| |__| \_/\_/ \____|
// AND NOW A BANKER!
// ~Remastered~
//[------------------| Details |------------------]
//[ Title: Akarims PowerCutter ]
//[ Version: Version 3.5 ]
//[ Creator: Akarim ]
//[ Contact: [email]Jiwman88@hotmail.com[/email] ]
//[---------------| 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' +
'05D05FDA0A713D9AD1FF7F528485A33529B6822085FB50D2B9052' +
'9C03F2E0F6CCE87C544298E414BD601BDDCB6A836A91DF04D57F9' +
'1A5FD01517724AF39E18E2DCEBE2F1EE8D0E42E7A24C4D27A2387' +
'8E89B5566AB03EF69D7013B9A0E2975B9664DBF773F7FFEBA2E43' +
'C962ED570CBADAA15A5CE4C9DBD63E7E7F9CB4B434E9F6BDCE6BE' +
'7BFBBCFBF72E2D8CFB8053C63B21E');
BankSymbol := BitmapFromString(22, 24, 'z78DAED95D10A80200C' +
'457F494B141F53F3FF3FA960040B59AD74F69057B844A0F7C0E65' +
'46A68A8424EE97D51DE2537DA90C31A9C8FF3C9E1BF080FCA2DD3' +
'D79CB449373CC2E9A5BB688D9A16EBB33F4804187016FEC6DE80A' +
'148E730402E76BCF7715D5E318097BB2418A87EA06AD1968122A1' +
'EA22C7C0EF8D2A06C6DDE433544D89CBBBC9EF87B6930A1870169' +
'50E2E31B1C1E17C6A2EF57FBFBABE9B43DFE8A735DD006D2B7F13' +
'');
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' +
'05D05FDA0A713D9AD1FF7F528485A33529B6822085FB50D2B9052' +
'9C03F2E0F6CCE87C544298E414BD601BDDCB6A836A91DF04D57F9' +
'1A5FD01517724AF39E18E2DCEBE2F1EE8D0E42E7A24C4D27A2387' +
'8E89B5566AB03EF69D7013B9A0E2975B9664DBF773F7FFEBA2E43' +
'C962ED570CBADAA15A5CE4C9DBD63E7E7F9CB4B434E9F6BDCE6BE' +
'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' +
'457F494B141F53F3FF3FA960040B59AD74F69057B844A0F7C0E65' +
'46A68A8424EE97D51DE2537DA90C31A9C8FF3C9E1BF080FCA2DD3' +
'D79CB449373CC2E9A5BB688D9A16EBB33F4804187016FEC6DE80A' +
'148E730402E76BCF7715D5E318097BB2418A87EA06AD1968122A1' +
'EA22C7C0EF8D2A06C6DDE433544D89CBBBC9EF87B6930A1870169' +
'50E2E31B1C1E17C6A2EF57FBFBABE9B43DFE8A735DD006D2B7F13' +
'');
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 :)