PDA

View Full Version : Second Script oak cutter and banker



71runemaker
06-30-2007, 01:24 PM
Hello, I made an oak cutter and banker. Hope you like it and post errors or bugs
MSN - pyro_dudes@hotmail.com

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.

Harry
06-30-2007, 01:36 PM
You have to edit HowManyPlayers :=1; to how many players are true/false

Besides that, looks okay from me.

71runemaker
06-30-2007, 01:37 PM
Did you test it?

bobobopo2
06-30-2007, 05:13 PM
potential to become a great have u =)
and nice job for a first script altho im a leecher i give credit when credit is due

Ilikepie1995
07-01-2007, 01:57 AM
Looks pretty nice :).
Try adding a Report; Procedure.

Venom666
07-01-2007, 02:26 PM
yea, looks nice but maybe some ent finding and axe head attacher?

71runemaker
07-01-2007, 10:35 PM
Updated it :D version 1.1

71runemaker
07-01-2007, 11:10 PM
version 1.2 now :D

71runemaker
07-02-2007, 02:40 PM
Updated again 2.0 now try it runs alot better :D

Negaal
07-12-2007, 11:24 AM
Very simple!
Nice
btw, whats difference about radialminimapwalk...?

yanix
07-13-2007, 08:27 PM
nice and keep up the work

71runemaker
11-01-2007, 10:14 PM
Hello, I'm back in the scripting mood. :D But, I need some help on some things. If anyone has any advice on my problems please email me or add me to MSN at pyro_dudes@hotmail.com. Thank you! :)

runescapeautoer123
11-13-2007, 12:42 PM
the scripts using BOOLEAN don't work for some reason

U Got Jacked Up
11-13-2007, 05:14 PM
where do u suggest to run this at what oak trees?

rogeruk
11-13-2007, 07:51 PM
the scripts using BOOLEAN don't work for some reason

Its because the thread is sooooo old!. Please start reading the damn thread dates!!

migaeler1
12-19-2007, 11:58 AM
hello!

appolo13
09-23-2009, 02:48 AM
im going to try it out right now

Dynamite
09-23-2009, 03:02 AM
Outdated by 2 years.

T~M

appolo13
09-27-2009, 09:08 AM
yes u are right it dont works:(

Dynamite
09-27-2009, 05:14 PM
yes u are right it dont works:(

Stop spamming! OMG!

Tsige
10-06-2009, 09:14 PM
looks awesome gonna try