71runemaker
2007-06-30 09:24:24
Hello, I made an oak cutter and banker. Hope you like it and post errors or bugs
MSN - [email]pyro_dudes@hotmail.com[/email]
EDIT: New version 2.0
MSN - [email]pyro_dudes@hotmail.com[/email]
EDIT: New version 2.0
/////////////////////////////////////////////////////////////////////////
// //
// Script Info //
// Name: Oak Cutter and Banker 1000 //
// Author: 71runemaker //
// Version: 2.0 //
// SCAR Version: 2.03+ //
// SRL Version: Tested with 3.7 //
// Description: Cuts and banks a full load of Oak //
// In Varrock and banks its //
// //
// *UPDATE HISTORY* //
// Version 1.0 //
// First Release //
// //
// Version 1.1 //
// Improved walking to oaks //
// Added Ent finder //
// Added axe head finder //
// More anti-ban //
// //
// Version 1.2 //
// Multiplayer working //
// Added failsafe (sorta) //
// Fixed open bank procedure //
// //
// Version 2.0 //
// Fixed walking to oaks //
// Won't quit after you cut oaks //
// //
// //
// //
/////////////////////////////////////////////////////////////////////////
program OakCutterAndBanker;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
var
i: Integer;
////////////////////////////////Setup////////////////////////////////////
//
const TreeColor1 = 3168336; //Color of Oak Tree //
const TreeColor2 = 2900024; //Another color of Oak Tree //
const TreeColor3 = 2504752; //Another color of Oak Tree //
const MMTree = 1068840; //Color of trees on minimap //
const RoadMM = 6186343; //Color of road on minimap //
const GrassC = 2907485; //Color of grass on MainScreen //
const GrassCMM = 2119764; //Color of grass near trees MiniMap //
const BankMini = 2245193; //Color of bank floor on MiniMap //
const BankColor1 = 3560029; //Color of bank floor on MainScreen //
const Wait1 = 3000; //Time to wait before clicking tree again //
const Loads = 2; //Load want to do before switching characters //
//
//////////////////////////////////End////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers :=6; // How many players are you using?
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0; // Starting Player
Players[0].Name :='Username';
Players[0].Pass :='Password';
Players[0].Nick :='Nickname';
Players[0].Active:=True;
Players[0].Boolean1:=True; //True if you can weild axe, false if cannot
Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='Nickname';
Players[1].Active:=False;
Players[1].Boolean1:=True; //True if you can weild axe, false if cannot
Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='Nickname';
Players[2].Active:=False;
Players[2].Boolean1:=True; //True if you can weild axe, false if cannot
Players[3].Name :='Username';
Players[3].Pass :='Password';
Players[3].Nick :='Nickname';
Players[3].Active:=False;
Players[3].Boolean1:=True; //True if you can weild axe, false if cannot
Players[4].Name :='Username';
Players[4].Pass :='Password';
Players[4].Nick :='Nickname';
Players[4].Active:=False;
Players[4].Boolean1:=True; //True if you can weild axe, false if cannot
Players[5].Name :='Username';
Players[5].Pass :='Password';
Players[5].Nick :='Nickname';
Players[5].Active:=False;
Players[5].Boolean1:=True; //True if you can weild axe, false if cannot
end;
procedure NoBan;
begin
RandomRClick;
PickUpMouse;
end;
procedure WalkToOaks;
begin
FindAxeHeadColor;
RadialWalk( BankMini , 217, 577, 16, 0, 0);
Flag;
RadialRoadWalk( BankColor1, 217, 577, 16, 0, 0);
Flag;
RadialWalk( RoadMM , 231, 591, 60, 0, 0);
Flag;
RadialRoadWalk( RoadColor, 231, 591, 60, 0, 0);
Flag;
RadialWalk( GrassCMM , 208, 568, 31, 0, 0);
Flag
RadialRoadWalk( GrassC, 208, 568, 31, 0, 0);
end;
procedure CutOaks;
begin
MakeCompass ('N');
repeat
if (FindColor (x,y,TreeColor1,0,0,600,600)) and
(FindColor (x,y,TreeColor2,0,0,600,600)) and
(FindColor (x,y,TreeColor3,0,0,600,600)) and
(IsUpText('Oak')) then
Mouse(x,y,1,1,true);
Wait(Wait1+random(1000));
FindHead;
FindEnt(TreeColor1);
FindNormalRandoms;
until (InvFull);
end;
procedure WalkToBank;
begin
RadialWalk( RoadMM , 58, 418, 62 ,0, 0);
Flag;
RadialRoadWalk(RoadColor, 58, 418, 62, 0, 0);
Flag;
RadialWalk( BankMini , 349, 709, 22, 0, 0);
Flag;
RadialRoadWalk(BankColor1, 349, 709, 22, 0, 0);
end;
procedure BankOaks;
begin
OpenBank3;
DepositAll;
CloseBank;
end;
begin
SetupSRL;
repeat
WalkToOaks;
CutOaks;
WalkToBank;
BankOaks;
until(i>= Loads);
repeat
NextPlayer(false);
until (false)
end.