nice script, i am also planing on updating my willow cutter banker which was very good a year ago![]()
nice script, i am also planing on updating my willow cutter banker which was very good a year ago![]()
Ent thing needs improv, but it's nice.
To slow finding tree and bank so fix that
yeah i had trouble banking also. wouldent go to bank at all.
Um it should make you go to the bank with no problems. Ive done it tons of times.
I do visit every 2-6 months
i logged in and then it logged me out lol
We made it to the willows. Trying to cut.
We have reached full capacity, heading for the bank.
We have reached full capacity, heading for the bank.
We made it to the bank. Trying to bank.
Deposited a full load of willows, now going to chop more
NextPlayer
lol that wasnt that great try to improve bank finding then getting back to willows
that happened to me also. weird. but it works sometimes
very nice, works perfectly except for the ents; other than that its a masterpeice
THIS IS TOATAL SWEET BBBBBBAAAAAAAANKEEEERRRR!!!
Who ever reads this trust me downlaod the script this is the first one I have come by thast banks, I realy recomend downlaoding this.>One question chicken(creater of the script) do you like C++.
not to bad of a script...i really like the autoresponder you have in there...did you make that yourself?...if you made it yourself do i have permission to use it my one of my scripts and credit you for it?
"Failure is the opportunity to begin again more intelligently" (Henry Ford)
I give Hypersecret credit for the autoresponce script.
I do visit every 2-6 months
are you serious?!?! you dont think i would notice a piece of my own work when i see it?? that is MY autoresponder you dipshit and you did NOT credit me for it and then you try and pass it off as your own, you are PATHETIC!!! lol
SCAR Code:function AutoResponce:Boolean;
var Responce, Lvl: String;
Reply: Integer;
begin
if AutoRespond then
if FindBlackChatMessage(Players[CurrentPlayer].Name) then Exit;
if (InChat(Players[CurrentPlayer].Name)) then
begin
Reply := Random(10);
case Reply of
0: Responce := ('yea');
1: Responce := ('wat');
2: Responce := ('what');
3: Responce := ('yeah');
4: Responce := ('ya');
5: Responce := ('??');
6: Responce := ('yep that''s me');
7: Responce := ('yes');
8: Responce := ('hhmmm?');
9: Responce := ('yep');
end;
TypeSend(Responce);
Result := True;
Responds := Responds + 1;
end;
if (InChatMulti('lol', 'lawl', 'haha')) or
(InChatMulti('haha', 'rofl', 'lmfao')) or
(InChatMulti('lmoa', 'funny', 'hehe')) then
begin
Reply := Random(10);
case Reply of
0: Responce := ('lol');
1: Responce := ('rofl');
2: Responce := ('lawl');
3: Responce := ('lmao');
4: Responce := ('lmfao');
5: Responce := ('haha');
6: Responce := ('haha');
7: Responce := ('hehe');
8: Responce := ('geez lol');
9: Responce := ('roflmfao');
end;
TypeSend(Responce);
Result := True;
Responds := Responds + 1;
end;
if (InChatMulti('str', 'strength', 'str')) then
begin
Lvl := IntToStr(GetSkillLevel('strength'));
Reply:= Random(5);
case Reply of
0, 2, 4: Responce := (Lvl);
1: Responce := ('My str lvl is '+ Lvl);
3: Responce := (Lvl +' is my str lvl');
end;
TypeSend(Responce);
Result := True;
Responds := Responds + 1;
end;
if (InChatMulti('att', 'attack', 'att')) then
begin
Lvl := IntToStr(GetSkillLevel('attack'));
Reply:= Random(5);
case Reply of
0, 2, 4: Responce := (Lvl);
1: Responce := ('My att lvl is '+ Lvl);
3: Responce := (Lvl +' is my att lvl');
end;
TypeSend(Responce);
Responds := Responds + 1;
Result := True;
end;
Result := False;
end;
that is the exact copy from my autofighter....looks pretty damn familiar doesnt it??...geez you edited out the att and just put woodcut in there geez...
"Failure is the opportunity to begin again more intelligently" (Henry Ford)
ROFL...Can I get an OWNED ?
http://www.villavu.com/forum/showthr...520#post262520
sorry didnt work for me do i think it was my problem with slr....im sure it works good!
pretty nice, thanks very much ^^
hypersecret sorry i kinda thought i saw it somewhere. Ill edit and give you credit in the 2.0 here.
I do visit every 2-6 months
you mean...."yea i thought i COPIED and PASTED it from somewhere" not "saw" it somewhere, you cant see something that long and copy it perfectly...
"Failure is the opportunity to begin again more intelligently" (Henry Ford)
Dude i just got a dictionary and looked up synonyms and stuff, but anyway dude i gave you credit like 3 times, 1 in script and twice here on the forums.
I do visit every 2-6 months
Use FindObj its better.
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!! O M G!!!
You copied like half of my script and no credits and i warned in my script to ask me before copieing anything!!!
I Got So Much Proof, IN a sec i will post my script and urs, and u ppl will compare it! I THINK THAT U SHOULD GET BANNED!
Woot woot.
My stuff, my procedures, my numbers, my texts??!?!?!??!?!?!?!
YOUR SCRIPT, YOU COPIER.
SCAR Code:program autowc;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/Woodcutting.Scar}
Var x, y, H, M, S, WillowLog, responces, Willow, TotalWillows, Banked,
EntsAvioded : Integer;
Const
willowtree= 2658424;
RockColor = 4406840;
Procedure DeclarePlayers;
begin
SRLID := '';
SRLPassword := '';
SRLPlayerForm(True, [], [], [], []);
Writeln(IntToStr(HowManyPlayers)+' Player(s);');
CheckUserNicks;
end;
procedure sig;
begin
writeln('The following is a... ');
wait(500);
writeln('ZaszMedia Production');
wait(500);
writeln('Its time to Zasz Up your Media!');
wait(500);
end;
procedure Login;
begin
if (not(LoggedIn)) then
LoginPlayer;
end;
procedure Report;
begin
ClearDebug;
Writeln('[=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-]');
Writeln('| ~ Welcome to the Willow cutter/banker ~ |');
Writeln('|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|');
ConvertTime(GetTimeRunning, H, M, S);
Writeln('|You are using V2.0');
Writeln('|Time Run: ' + IntToStr(H) + ':' + IntToStr(M) + ':' + IntToStr(S));
Writeln('|Chopped: ' + IntToStr(WILLOWLOG) + ' Logs');
Writeln('|Banked: ' + IntToStr(Banked) + ' Loads Of Willows');
Writeln('|Avioded: ' + IntToStr(ENTSAVIODED) + ' Number Of Ents');
Writeln('|Found: ' + IntToStr(Lamps) + ' Lamps');
writeln('|Auto-respnded: ' +IntToStr(responces) + ' times');
Writeln('--------------------------------------------')
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 10 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
10: Respond;
end;
wait(1);
end;
end;
procedure FindRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Woodcutting');
SolvePinball;
if (FindFight) then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(3000));
end;
end;
function AutoResponce:Boolean; //Credits go to Hypersecret
var Responce, Lvl: String;
Reply: Integer;
begin
if FindBlackChatMessage(Players[CurrentPlayer].Name) then Exit;
if (InChat(Players[CurrentPlayer].Name)) then
begin
Reply := Random(10);
case Reply of
0: Responce := ('yea');
1: Responce := ('wat');
2: Responce := ('what');
3: Responce := ('yeah');
4: Responce := ('ya');
5: Responce := ('??');
6: Responce := ('yep that''s me');
7: Responce := ('yes');
8: Responce := ('hhmmm?');
9: Responce := ('yep');
end;
TypeSend(Responce);
Result := True;
responces := responces + 1;
end;
if (InChatMulti('lol', 'lawl', 'haha')) or
(InChatMulti('haha', 'rofl', 'lmfao')) or
(InChatMulti('lmoa', 'funny', 'hehe')) then
begin
Reply := Random(10);
case Reply of
0: Responce := ('lol');
1: Responce := ('rofl');
2: Responce := ('lawl');
3: Responce := ('lmao');
4: Responce := ('lmfao');
5: Responce := ('haha');
6: Responce := ('haha');
7: Responce := ('hehe');
8: Responce := ('geez lol');
9: Responce := ('roflmfao');
end;
TypeSend(Responce);
Result := True;
responces := responces + 1;
end;
if (InChatMulti('str', 'strength', 'str')) then
begin
Lvl := IntToStr(GetSkillLevel('strength'));
Reply:= Random(5);
case Reply of
0, 2, 4: Responce := (Lvl);
1: Responce := ('My str lvl is '+ Lvl);
3: Responce := (Lvl +' is my str lvl');
end;
TypeSend(Responce);
Result := True;
responces := responces + 1;
end;
if (InChatMulti('wc', 'woodcuting', 'woodcut')) then
begin
Lvl := IntToStr(GetSkillLevel('woodcutting'));
Reply:= Random(5);
case Reply of
0, 2, 4: Responce := (Lvl);
1: Responce := ('My Woodcutting lvl is '+ Lvl);
3: Responce := (Lvl +' is my Wc lvl');
end;
TypeSend(Responce);
Result := True;
responces := responces + 1;
end;
Result := False;
end;
procedure AntiBan;
begin
if (not(LoggedIn)) then
Exit;
case Random(8) of
0: RandomRClick;
1: HoverSkill('Woodcutting', False);
2: RandomMovement;
3: BoredHuman;
4: PickUpMouse;
5: AlmostLogout;
6: DoEmote(1 +Random(20));
7: begin
GameTab(1 +Random(12));
wait(2000 +Random(1000));
GameTab(4);
end;
end;
end;
procedure EntFinder; // Thanks to YoHoJo. Modded by Bobbohobbo
var
EX, EY: integer;
FX, FY: integer;
SafeEntWait: LongInt;
begin
if (not (LoggedIn)) then
Exit;
begin
Status('Checking For Ent')
if
(FindObjCustom(EX, EY, ['Willow'], [4690821], 5)) then
begin
MMouse(EX, EY, 0, 0)
if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
begin
Status('Ent Found');
MouseFindFlag(645, 83, 2, 2);
MarkTime(SafeEntWait)
ENTSAVIODED := ENTSAVIODED + 1
repeat
FTWait(5)
FindNormalRandoms;
if not (LoggedIn) then
NextPlayer(False);
until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
end;
end;
end;
end;
Procedure Chop;
var CuttingTime : integer;
begin
MarkTime(CuttingTime);
repeat
if (not(LoggedIn)) then
Exit;
if(FindColorSpiralTolerance(x,y,willowtree,MSX1,MSY1,MSX2,MSY2,5)) then
begin
AutoResponce;
EntFinder;
MMouse(x,y,0,0);
GetMousePos(x, y);
Mouse(x,y,0,0,true);
Wait(9000 +Random(3000));
AutoResponce;
EntFinder;
//randomtalk; //this is optional if you want to add some random talk!
end;
until (InvFull) or (TimeFromMark(CuttingTime) > 600000+random(60000));
Writeln('We have reached full capacity, heading for the bank.');
end;
procedure gotowillows;
begin
if (not(LoggedIn)) then
Exit;
Begin
PerfectNorth;
HighestAngle;
Begin
ClickExactMMColorTol(RockColor, 5);
FFlag(0);
Begin
If(FindObj(x, y,'illo', willowtree, 10))Then
WriteLn('Found Willows, Begging To Cut Them.');
End;
End;
End;
End;
procedure BankWalk;
begin
if (not(LoggedIn)) then
Exit;
SymbolAccuracy:= 0.4;
Makecompass('N');
HighestAngle;
if (not(FindSymbol(x, y, 'bank'))) then
begin
NextPlayer(False);
end;
begin
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x, y, 2, 2, true);
Flag;
Writeln('We made it to the bank. Trying to bank.');
end;
end;
end;
procedure BankIt;
var Tries : Integer;
begin
if (not(LoggedIn)) then
Exit;
repeat
HighestAngle;
OpenBankQuiet('db');
Flag;
Wait(500 + random(500));
FixBank;
Tries := Tries + 1;
if (Tries = 25) then
begin
NextPlayer(False);
Exit;
end;
until (BankScreen)
begin
if (BankScreen) then
begin
if (Players[CurrentPlayer].Booleans[1] = True) then
begin
deposit(2,28,2);
CloseBank;
RunTo('S', True);
end;
begin
if (Players[CurrentPlayer].Booleans[1] = False) then
begin
Deposit(2, 28, 2);
CloseBank;
MakeCompass('N');
end;
end;
begin
TotalWillows:= TotalWillows + Willow;
Banked := Banked + 1
WILLOWLOG := WILLOWLOG + 28
Writeln('Deposited a full load of willows, now going to chop more');
end;
end;
end;
end;
begin
cleardebug;
SetupSRL;
Disguise('iTunes');
sig;
SetupWoodcutting;
ActivateClient;
DeclarePlayers;
if (not(LoggedIn)) then Login;
repeat
gotowillows;
repeat
FindRandoms;
Chop;
until (InvFull) or (not LoggedIn)
AntiBan;
BankWalk;
BankIt;
TotalWillows:= 0;
Report;
until Players[CurrentPlayer].Integers[1] = Banked
NextPlayer(True);
end.
My Script That YOU COPIED STUFF FROM!!!
SCAR Code:Program ULTRAWillowCutter;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Skill/Woodcutting.Scar}
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
{ C R E D I T S.
YOHOJO AND BOBBOHOBBO FOR THEIR ENT FINDER.
FREDDY1990 FOR SCAR :).
U L T R A FOR HIS NICE SCRIPT :D.
C R E D I T S.}
//////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
// I M P O R T A N T.
// DO NOT I REPEAT, DO NOT TAKE ANYTHING FROM THIS SCRIPT WITHOUT MY PERMISSION
// IF YOU PEOPLE SEE SOMONE COPY ANYTHING FROM MY SCRIPT WITHOUT MY PERMISSION
// PLEASE DO REPORT TO ME THIS INSTANT, SO I COULD TELL SOMONE LIKE A SRL MOD
// ABOUT WHAT AND HOW HAPPEND, AND THE PERSON WHO COPIED ME, WILL BE BANNED.
// I M P O R T A N T.
////////////////////////////////////////////////////////////////////////////////
{///////////////////////////////////////////////////////////////////////////////
{ CATEGORY: WOODCUTTING.
{ AUTHOR: U L T R A.
{ PURPOSE: LEVELS UP WOODCUTTING.
{ DESCRIPTION: CUTS WILLOWS THEN BANKS THEM.
{ PLACE: DRAYNOR VILLAGE.
{ ANTIBAN: TRUE.
{ ANTIRANDOMS: TRUE.
{ SPECIAL FEATURES: ONLY USES ONE PLAYER FOR NOW.
///////////////////////////////////////////////////////////////////////////////}
////////////////////////////////////////////////////////////////////////////////
//FeAtUrEs
//1.Anti - Randoms.
//2.Awsome Anti - Ban.
//3.Loop.
//4.Map Walking.
//5.Willow Finding And Cutting.
//6.Item Banking.
//7.Ent Finder - BY YOHOJO MODDED BY BOBBOHOBBO.
//8.My First Script.
//fEaTuReS.
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//AdDeD.
//1.Much, Much More Chances Of Finding And Solving A Random!
//2.Better Ent Finding!
//3.Bug Fixes!
//aDdEd.
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
{
{ I N S T R U C T I O N S. USE SCAR 3.12C AND THE LATEST SRL.
1. Low detail, not laggy computer, highest brightness in runescape.
2. Start in draynor bank with your player.
3. Set up const and the declare players.
4. Drag the crosshair into the runescape window.
5. Hit run and of course enjoy my script.
{ I N S T R U C T I O N S. USE SCAR 3.12C AND THE LATEST SRL.
}
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Const
ToDo = 50;//Loads To Do Before Logging Out.
TheWaitForCut = 3000;//Mili - Seconds To Wait Before Clicking Another Willow.
RockColor = 5921354;//Pick The Lightest Color Of The Rock South From Bank.
TreeColor = 1786422;//Pick The Color Of The Tree ONLY If Doesn't Find Willows.
Var
x, y: Integer;
TotalWillows: Integer;
ExpGained: Integer;
BankTrips: Integer;
Procedure DeclarePlayers;
Begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := ''; //UserName.
Players[0].Pass := ''; //Password.
Players[0].Nick := ''; //3-4 Letters Of UserName.
Players[0].Active := True; //True If You Are Using This Player, False If Not.
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
Procedure EntFinder; // Thanks to YoHoJo. Modded by Bobbohobbo
Var
EX, EY: integer;
FX, FY: integer;
SafeEntWait: LongInt;
begin
If (Not (LoggedIn)) Then
Exit;
Begin
Status('Checking For Ent')
If
(FindObjCustom(EX, EY, ['Willow'], [4690821], 5)) Then
Begin
MMouse(EX, EY, 0, 0)
If FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) Then
Begin
Status('Ent Found');
MouseFindFlag(645, 83, 2, 2);
MarkTime(SafeEntWait)
Repeat
FTWait(5)
FindNormalRandoms;
If Not (LoggedIn) Then
NextPlayer(False);
Until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
End;
End;
End;
End;
Procedure WaitWhileChopping;
Begin
EntFinder;
Wait(TheWaitForCut+random(1000));
EntFinder;
End;
Function FindFastRandoms: Boolean;
Var
I: Integer;
Begin
For I:=1 To 11 Do
Begin
Case I Of
1: If FindDead Then
Result := True;
2: If FindMod Then
Result := True;
3: If FindMime Then
Result := True;
4: If FindMaze Then
Result := True;
5: If FindQuiz Then
Result := True;
6: If FindDemon Then
Result := True;
7: Begin
If NoGameTab Then
Begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
End;
End;
8: Begin
If InBlack Then
Begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
End;
End;
9: RC;
10: Respond;
11: ClickToContinue;
End;
Wait(1);
End;
End;
Procedure FindRandoms;
Begin
EntFinder;
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Woodcutting');
SolvePinball;
FindEnt(x, y, true);
If(FindFight)Then
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunBack;
End;
End;
Procedure RandomlyChosenSkill;
Begin
Case Random(11) Of
0: HoverSkill('Attack', False);
1: HoverSkill('Strength', False);
2: HoverSkill('Defence', False);
3: HoverSkill('Range', False);
4: HoverSkill('Prayer', False);
5: HoverSkill('Magic', False);
6: HoverSkill('Runecraft', False);
7: HoverSkill('Hitpoints', False);
8: HoverSkill('Agility', False);
9: HoverSkill('Herblore', False);
10: HoverSkill('Fishing', False);
End;
End;
Procedure ReadQuestRandom;
Begin
Case Random(4) Of
0: Begin
GameTab(3);
Wait(1000+random(5000));
Mouse(582, 265, 2, 2, True);
Wait(2000+random(6000));
Mouse(458, 70, 4, 4, True);
Wait(1000+random(1000));
GameTab(4);
End;
1: Begin
GameTab(3);
Wait(1000+random(5000));
Mouse(590, 279, 2, 2, True);
Wait(2000+random(6000));
Mouse(458, 70, 4, 4, True);
Wait(1000+random(1000));
GameTab(4);
End;
2: Begin
GameTab(3);
Wait(1000+random(5000));
Mouse(588, 295, 2, 2, True);
Wait(2000+random(6000));
Mouse(458, 70, 4, 4, True);
Wait(1000+random(1000));
GameTab(4);
End;
3: Begin
GameTab(3);
Wait(1000+random(5000));
Mouse(614, 310, 2, 2, True);
Wait(2000+random(6000));
Mouse(458, 71, 4, 4, True);
Wait(1000+random(1000));
GameTab(4);
End;
End;
End;
Procedure AntiBan;
Begin
If(Not(LoggedIn))Then
Exit;
Case Random(8) Of
0: RandomMovement;
1: HoverSkill('Woodcutting', False);
1: RandomRClick;
2: BoredHuman;
3: PickUpMouse;
4: AlmostLogout;
5: Begin
GameTab(2 +Random(12));
Wait(2000 +Random(1000));
GameTab(4);
End;
6: RandomlyChosenSkill;
7: ReadQuestRandom;
End;
End;
Procedure Walk2Willows;
Begin
If(Not(LoggedIn))Then
Exit;
Begin
PerfectNorth;
HighestAngle;
Begin
ClickExactMMColorTol(RockColor, 5);
FFlag(0);
Begin
If(FindObj(x, y,'illo', TreeColor, 10))Then
WriteLn('Found Willows, Begging To Cut Them.');
End;
End;
End;
End;
Procedure FindAndChop;
Var CuttingTime : integer;
Begin
MarkTime(CuttingTime);
Repeat
If(Not(LoggedIn))Then
Exit;
MakeCompass('N');
HighestAngle;
If(FindObj(x, y, 'illo', TreeColor, 10))then
Begin
MMouse(x, y, 4, 4);
If(IsUpText('illo'))Then
Begin
GetMousePos(x, y);
Mouse(x, y, 2, 2, True);
EntFinder;
FindRandoms;
WaitWhileChopping;
AntiBan;
End;
End;
Until (InvFull)Or(TimeFromMark(CuttingTime) > 600000+random(60000));
TotalWillows := TotalWillows+27;
ExpGained:=ExpGained+1822;
WriteLn('Chopped A Full Load Of Willow Logs, Heading For The Bank');
End;
Function BankIt: Boolean;
Begin
If(InvFull)Then
Begin
Repeat
SymbolAccuracy := 0.6;
If(FindSymbol(x, y,'Bank'))Then
Mouse(x, y, 3, 3, True);
FFlag(0);
MakeCompass('E');
OpenBankQuiet('feb');
Flag;
wait(500 + random(500));
FixBank;
Deposit(2,28,2);
CloseBank;
MakeCompass('N');
Until(FindSymbol(x, y,'Bank'));
If(FindSymbol(x, y,'Bank'))Then
Begin
ClearDebug;
BankTrips:=BankTrips+1;
End;
End;
End;
Procedure Report;
Begin
ClearDebug;
WriteLn('U L T R A Willow Chopper Version 3');
WriteLn('Cut Approx: ' + IntToStr(TotalWillows) + ' Willows.');
WriteLn('Earned Approx: ' + IntToStr(ExpGained) + ' Expirience.');
WriteLn('Banked: ' + IntToStr(BankTrips) + ' Loads.');
WriteLn('Thanks For Using U L T R A Willow Chopper Version 3');
End;
Procedure TheLoop;
Begin
Walk2Willows;
Begin
Repeat
EntFinder;
FindAndChop;
EntFinder;
FindFastRandoms;
FindRandoms;
Until(InvFull);
If(InvFull)Then
Begin
AntiBan;
FindRandoms;
FindFastRandoms;
BankIt;
Report;
End;
End;
End;
Begin
SetUpSRL;
DeclarePlayers;
If(Not(LoggedIn))Then
Begin
LoginPlayer;
ActivateClient;
Begin
Repeat
TheLoop;
Until(BankTrips = ToDo)Or(Not(LoggedIn));
If(BankTrips = ToDo)Or(Not(LoggedIn))Then
Exit;
Report;
TerminateScript;
End;
End;
End.
And i hear its not the first time you copy stuff from other people!!!I will post more proof later, hope you get banned for copying and giving no credits!!!!!!
Woot woot.
Um ultra Practicly nothing is the same... The rock colors not the same, tree colors not the same, i gave my credits for the entfinder, and auto-responce. Dude, our script is nothing alike....
I do visit every 2-6 months
sasz you took procedure he made to and just copied them also...this is horrible changing colors doesnt make it yours!!!
"Failure is the opportunity to begin again more intelligently" (Henry Ford)
Nothing alike? really?Then wtf all of this below???
SCAR Code:procedure gotowillows;//This procedure is exactly like mine but you changed the name!!!
begin
if (not(LoggedIn)) then
Exit;
Begin
PerfectNorth;
HighestAngle;
Begin
ClickExactMMColorTol(RockColor, 5);
FFlag(0);
Begin
If(FindObj(x, y,'illo', willowtree, 10))Then//This is in my script but willowtree is TreeColor in my script!!!
WriteLn('Found Willows, Begging To Cut Them.');//This text is exactly like my in my script!!!
End;
End;
End;
End;
Procedure Chop;//This procedure is almost like mine ut you used other names of procedures!!!
var CuttingTime : integer;
begin
MarkTime(CuttingTime);// Just like in my script!!!!!!
repeat
if (not(LoggedIn)) then
Exit;
if(FindColorSpiralTolerance(x,y,willowtree,MSX1,MSY1,MSX2,MSY2,5)) then
begin
AutoResponce;
EntFinder;
MMouse(x,y,0,0);
GetMousePos(x, y);
Mouse(x,y,0,0,true);
Wait(9000 +Random(3000));
AutoResponce;
EntFinder;
//randomtalk; //this is optional if you want to add some random talk!
end;
until (InvFull) or (TimeFromMark(CuttingTime) > 600000+random(60000));//Hmm in my script i have it too?why is it same?600000?
Writeln('We have reached full capacity, heading for the bank.');
end;
until (InvFull) or (not LoggedIn)//I got it too in my script? hmm
TotalWillows: Integer;//Just like in my script!!!
Woot woot.
There are currently 1 users browsing this thread. (0 members and 1 guests)