dude the new version it banks then logs out and try to change player
even i if i set to 1 player so idk next can u test out befor postin to make sure all problems are out ty![]()
![]()
dude the new version it banks then logs out and try to change player
even i if i set to 1 player so idk next can u test out befor postin to make sure all problems are out ty![]()
![]()
you need to change the time per person i saw on the scar menu thing it said tiem ran out
so in the mean time u need to do a lil re search before you come mouthing peoples scripts i was asking why it did it i wasnt telling him this or that his script works great u just need to change the player time i changed it and it did 2 bank runs then logged me otu which i can understand lol nice script man
i like ur script lol it helped me get from 60 wc 2 62 if it wasnt for the randoms like the camo one n the demon class n the mime one i know it woulda been highersrl needs to work them out lol
Ye thats why in version 0.10 i added more and diffrent antiban
Also dude dont Triple posts its really annoying, just edit![]()
It isn't just making an acount, activating a pin, waiting 3 days, and giving you acount. Cause won't it need 60 WC?
when will the member version be out
and will it be better then the one out now?![]()
![]()
Hmm, i dont know if ill release the mem's version. And yes mems version if i make LOL, will have everything better like:
- Faster tree finding and detection.
- More Antiban!
- Movements like a real human
- Better banking + failsafe for banking
- More options of walking.
- Maybe form.
But ill tell you i will be making another free version, will have a few stuff fixed.
sounds wiked looks like u got like to work to lol
but if i no u which i dont i think youll be fine
kk
and i heard u were makin a good varrock yew cuttere if that out yet?
![]()
![]()
ummm little problem
doesnt drop the items that u get from randoms
just wonderin if it is spose to do that
just informin u that it doesnt drop
![]()
![]()
.. Dude it banks them, why would i bother to make it drop, maybe people need uncuts and sandwiches and stuff for health who knows.
AND dont double post.
hey soz about the post n the creater of this awesome woodcutter please add me on msn
JamesPoision@hotmail.com
Or
JamesPoision@msn.com
excellent script, just needs to avoid lunch lady and it would be perfecto!
try and update that next time great script
It does talk to the sandwhich i cant help if it doesnt its all from SRL, unless you didnt set your nickname right.
sexy!
<============== Progress Report ===============>
Script Worked for 1 Hours, 6 Minutes and 50 Seconds
Banked 1 load[s].
Chopped 25 Log[s].
Ents Broke the Axe 0 Time[s].
Avioided Ents 0 Time[s].
Banked 0 Broken axes and got a new one.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Name : xx
Player : 1
Active : True
Location : At tree, cutting.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
0 : xx := False
1 : xx := True
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
at top
Found NickName
Found NickName
******** FOUND TALKING RANDOM TEXT********: Talk-to Sandwich lady
Answer = baguette
Close Match in Slot:2. Scanning Slots 2
Close Match in Slot:3. Scanning Slots 3
Close Match in Slot:4. Scanning Slots 4
Close Match in Slot:5. Scanning Slots 5
Close Match in Slot:7. Scanning Slots 7
got owned thoughi dont think those log count is write. maybe thats just for my number 2 guy
Edit: o0o i banked once and almost had a second full load
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 1 |
| Talks : 3 |
| Dwarfs : 1 |
| Sandwiches : 2 |
| Ents Found : 4 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
<============== Progress Report ===============>
Script Worked for 1 Hours, 31 Minutes and 2 Seconds
Banked 7 load[s].
Chopped 195 Log[s].
Ents Broke the Axe 0 Time[s].
Avioided Ents 0 Time[s].
Banked 0 Broken axes and got a new one.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fights : 3 |
| Talks : 1 |
| Capn Hand[s] : 1 |
| Ents Found : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
The only problem i had was, when i got a talking random, it would talk to the random, but after it left, it wouldnt click on the yew tree. but other than that, awesome script. also has some problems finding a bank, but i just turned the angle right a bit and it founded it with no problem.
http://i36.photobucket.com/albums/e4...mer/quake1.jpg
Possible Projects in the Future
Snape grass collector + banker
BobboHobbo - I edited some small spelling errors you made in the script. Here is the updated one with those fixed while I was watching the program run. Runs great, will keep using whenever I can....
<============== Progress Report ===============>
Script Worked for 18 Minutes and 8 Seconds
Banked 1 load[s].
Chopped 27 Log[s].
Ents Broke the Axe 0 Time[s].
Avioided Ents 0 Time[s].
Banked 0 Broken axes and got a new one.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
I forgot to reset the amount of loads, so it only did one, kept logging in and out since the loads were finished.
Here's the updated script with spelling changes fixed...
SCAR Code:{===================================================================]
[ BobboHobbo's Edgeville Yew Cutter + Banker ]
[ ]
[ NAME : BH - Edgeville Yew Cutter + Banker ]
[ WRITER : BobboHobbo ]
[ CATEGORY : WoodCutting ]
[ DESCRIPTION : Cuts and banks yews as Edgeville ]
[ AUTOCOLOR : Yes ]
[ SRL Used : 4.0 ]
[ SCAR VERSION: SCAR DIVI 3.12 ]
[ ]
[ More Scripts can be found at ]
[ [url]www.SRL-Forums.com[/url] ]
[===================================================================]
[ Instructions. ]
[===================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Setup lines below ]
[ 4. Have your axe in you INVENTORY and spare axes in bank ]
[ 5. Start in the Southest bank slot in Edgeville Bank ]
[ 6. Drag the Cross Hair into Runescape and press PLAY! ]
[===================================================================]
[ Credits to : ]
[ Sulimon - For the Layout thing above. ]
[ Starblaster100 - For the UpdateCord Procedure (Modded by me) ]
[ Rotflmfwao - For his CountItemDTM Procedure. ]
[===================================================================}
program BHEYC;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
const
///////////////////////
// -> SET THESE CONSTS
///////////////////////
NormalMouseSpeed = 9; // Mouse speed.
SRLStatsID = ''; // SRL Stats ID Number.
SRLStatsPW = ''; // SRL Stats Password.
Maxtime = 100000; // Max time per player? (In MILISECONDS)*DOESNT WORK GOOD*
WaitTime = 10000; // Time after logging out to log back in. (keep at 0 if you dont want this)
var
x, y: Integer;
brokenaxedtm, Chopped, Ents, Banked: integer;
Bank, AxeH, Axe, Yew, Yew1, Logmask, Bankedd: Integer;
TotalScriptTime,Timer: LongInt;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Integers[1] := 1; //Loads
Players[0].Active := True;
Players[0].Pin := ;
{ Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Integers[1] := 1; //Loads
Players[1].Active := True;
Players[1].Pin := 0000;
Players[2].Name := 'Username';
Players[2].Pass := 'Password';
Players[2].Nick := 'Nickname';
Players[2].Integers[1] := 3; //Loads
Players[2].Active := True;
Players[2].Pin := 0000;
Players[3].Name := 'Username';
Players[3].Pass := 'Password';
Players[3].Nick := 'Nickname';
Players[3].Integers[1] := 3; //Loads
Players[3].Active := True;
Players[3].Pin := 0000;
}
//ADD MORE PLAYERS IF YOU WANT.
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure LoadDtms;
begin
BrokenAxedtm := BitmapFromString(6, 12, 'z78DA3330200CDC700003' +
'A2F552A206972CF12EA1AE6B315562EAA2DCCDB80000FF8D5941');
Bank := DTMFromString('78DA63CC656260886640017FFE30816946289' +
'F11A42608BF1A00D5010584');
AxeH := DTMFromString('78DA63B463626078CA8002FAB20519FE03694' +
'620FE0F048CD640351F18D000231209A42D816A5E115003B2EB36' +
'0135CE4035D709A8F102AAB941408D0F50CD1D026ABC816A1E105' +
'0E304547317BF1A000F77106A');
Yew := DTMFromString('78DA63CC63626078C2800282EC3819FE03694' +
'620FE0F048CB140354F19D000231209A493816AEE105003B2EB36' +
'0135E540358F08A82901AA794B404D2E50CD7B026A52816A3E105' +
'0130754F306BF1A0097FF1192');
Yew1 := DTMFromString('78DA63CC63626078C2800282EC3819FE03694' +
'620FE0F048CB140354F19D000231209A493816AEE105003B2EB36' +
'0135E540358F08A82901AA794B404D2E50CD7B026A52816A3E105' +
'0130754F306BF1A0097FF1192');
LogMask := BitmapFromString(19, 14, 'z78DA3330A00E704302067407' +
'F4B777D4C6A16EE3F0F09D1B5E400B9369E7F2E114D7230100008' +
'F6836A8');
end;
function CountItemDTM(DTM: Integer): Integer; // From rotflmfwao
var
i, x, y: Integer;
TB: Tbox;
begin
GameTab(4);
for i := 1 to 28 do
begin
TB := InvBox(i);
if ExistsItem(i) then
if FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
Inc(Chopped); //EDITED This bit <----
end;
end;
function CountItemDTM1(DTM: Integer): Integer; // From rotflmfwao
var
i, x, y: Integer;
TB: Tbox;
begin
GameTab(4);
for i := 1 to 28 do
begin
TB := InvBox(i);
if ExistsItem(i) then
if FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
Inc(Result);
end;
end;
//////////////////////////////////////////////////////////
// >> Symbol Stuff - DONT TOUCH AT ALL!
//////////////////////////////////////////////////////////
//FInds symbol in top part of MM
function GetSymbolColorTopHalfMM(var rx, ry: Integer; Name: string): Integer;
begin
Result := GetSymbolColorIn(rx, ry, LowerCase(Name), 570, 5, 718, 69);
end;
//FInds symbol in bottom part of MM
function GetSymbolColorBottomHalfMM(var rx, ry: Integer; Name: string): Integer;
begin
Result := GetSymbolColorIn(rx, ry, LowerCase(Name), 570, 82, 718, 154);
end;
//FInds symbol in bottom part of MM
function FindSymbolB(var rx, ry: Integer; Name: string): Boolean;
begin
Result := (GetSymbolColorBottomHalfMM(rx, ry, LowerCase(Name)) > 0);
end;
//FInds symbol in top part of MM
function FindSymbolT(var rx, ry: Integer; Name: string): Boolean;
begin
Result := (GetSymbolColorTopHalfMM(rx, ry, LowerCase(Name)) > 0);
end;
procedure Chop1;
begin
repeat
if invfull or not (LoggedIn) then
begin
Break;
Exit;
end else
ftwait(1);
wait(50);
begin
case random(150) of
0: GameTab(4 + Random(12));
1: Wait2(1000,true);
2: PickupMouse;
3: GameTab(1 + Random(12));
4: GameTab(1 + Random(12));
5: RandomRClick;
end;
end;
until (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4));
if (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
begin
if FindObjCustom(x, y, ['Yew', 'ew Tree'], [4945777], 5) then
begin
Mouse(x, y, 0, 0, false);
wait(100);
ChooseOption('Chop');
end;
end;
end;
procedure EntFinder;
begin
if FindEnt(x, y, true) then
begin
Chop1;
end else
ftwait(1);
Exit;
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 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;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
end;
end;
///////////////////////////////////////////////////////////////////////////
procedure RunBackBH;
begin
if not (LoggedIn) then Exit;
if FindSymbol(x, y, 'tree') then
begin
mouse(x, y, 1, 1, true);
flag;
Chop1;
end;
end;
procedure FindRandoms;
var
WaitTree1: LongInt;
begin
if (not (LoggedIn)) then
begin
Exit;
end;
FindFastRandoms;
FindNormalRandoms;
EntFinder;
if (FindFight) then
begin
RunTo('S', True)
Flag;
MarkTime(WaitTree1)
repeat
FindRandoms;
until TimeFromMark(WaitTree1) > 2000 + Random(3000)
RunBackBH;
end;
end;
procedure FindRandoms1;
var
WaitTree1: LongInt;
begin
if (not (LoggedIn)) then
begin
Exit;
end;
FindFastRandoms;
//FindNormalRandoms;
EntFinder;
if (FindFight) then
begin
RunTo('S', True)
Flag;
MarkTime(WaitTree1)
repeat
FindRandoms;
until TimeFromMark(WaitTree1) > 2000 + Random(3000)
RunBackBH;
end;
end;
//////////////////////////////////////////////////////////
// >> Walking to Yew - Please Dont touch if not needed
//////////////////////////////////////////////////////////
procedure Think;
begin
if FindSymbol(x, y, 'tree') then
begin
Mouse(x, y - 15, 6, 6, true);
Flag;
end else
if not FindSymbol(x, y, 'tree') then
begin
Mouse(673, 43, 2, 2, true);
Flag;
if FindSymbolT(x, y, 'tree') then
begin
mouse(x, y + 9, 3, 3, true);
FindRandoms1;
Flag;
end;
end;
end;
procedure Think2;
begin
if RadialWalk(FindDirtRoadColor, 332, 375, 53, 0, 0) then
begin
if FindSymbolT(x, y, 'tree') then
begin
Mouse(x, y + 15, 1, 1, true);
Flag;
end else
Think;
end;
end;
procedure WalkToYew;
begin
case random(2) of
0: Think2;
1: Think;
end;
Chop1;
Disguise('Total Banks [' + IntToStr(Banked) + ']');
end;
procedure BankDTM;
begin
if not (LoggedIn) then Exit;
if DTMRotated(Bank, x, y, MMx1, MMy1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, true)
Flag;
Exit;
end else
if FindSymbol(x, y, 'bank') then
begin
Mouse(x, y, 1, 1, true)
Flag;
Exit;
end;
end;
function OpenBankQuietBH(WhichBank: string): Boolean;
var
TheCounter, dx, dy, tol, Mark2, Mark3: Integer;
acc, accthres: Extended;
begin
case WhichBank of
'feb', 'fwb': TheCounter := BitmapFromString(1, 10, '6C583296897A948779948779736' +
'C63A59E968C7F6F9686749B8A7685663E');
// varrock west
'vwb': TheCounter:= BitmapFromString(10, 1, 'A0997F504A49504A49504A495E4' +
'F215E4F215E4F215E4F212C250EA0997F');
// varrock east
'veb': TheCounter := BitmapFromString(1, 10, '5E4D1589826D88806D88806D867' +
'F6C9996907C7664847D648C836891876B');
// draynor and this works too for alkharid
'akb', 'db', 'eb': TheCounter:= BitmapFromString(12, 1, '584209735C29735C29735C29605' +
'85558504D60504D58504D58504D58504D58504D605855');
end;
MarkTime(Mark3);
tol := 1;
accthres := 0.6;
repeat
if IsUpTextMulti('ank', 'Bo', 'ot') then
begin
GetMousePos(dx, dy);
Mouse(dx, dy, 0, 0, False);
if ChooseOption('uickly') then
begin
MarkTime(Mark2);
repeat
Wait(10);
if TimeFromMark(Mark2) > 20000 then
begin
WriteLn('couldnt find the bank. Exiting');
FreeBitmap(TheCounter);
Exit;
end;
until BankScreen or (PinScreen);
Result := True;
FreeBitmap(TheCounter);
Exit;
end;
end;
FindDeformedBitmapToleranceIn(TheCounter, dx, dy, MSX1 + 50, MSY1 + 50, MSX2
- 50, MSY2 - 50, tol, 4, True, acc);
if (acc >= accthres) then
begin
MMouse(dx, dy, 0, 0);
if IsUpTextMulti('ank', 'Bo', 'ot') then
begin
GetMousePos(dx, dy);
Mouse(dx, dy, 0, 0, False);
if ChooseOption('uickly') then
begin
MarkTime(Mark2);
repeat
Wait(10);
if TimeFromMark(Mark2) > 20000 then
begin
WriteLn('couldnt find the bank. Exiting');
FreeBitmap(TheCounter);
Exit;
end;
until BankScreen or (PinScreen);
end;
Result := True;
FreeBitmap(TheCounter);
Exit;
end;
end;
Wait(100);
tol := tol + 4;
if tol >= 20 then
begin
tol := 1;
accthres := accthres - 0.1;
if accthres < 0.2 then
begin
WriteLn('couldnt find the bank. Exiting');
FreeBitmap(TheCounter);
Exit;
end;
end;
until TimeFromMark(Mark3) > 60000;
FreeBitmap(TheCounter);
end;
function OpenBank13: Boolean;
begin
if not (LoggedIn) then Exit;
Makecompass('S');
OpenBankQuietBH('eb');
If(PinScreen)Then
Begin
InPin(IntToStr(Players[CurrentPlayer].Pin));
Wait(500+Random(250));
End else
if BankScreen then
begin
wait(200);
LoadDTMs;
FixBank;
if (FindBitmapMaskTolerance(BrokenAxedtm, x, y, MIX1, MIY1, MIX2, MIY2, 5, 5)) then
begin
Mouse(x, y, 1, 1, true);
wait(1000 + random(100));
if FindDTM(AxeH, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(x, y, 1, 1, true);
CloseBank;
Axe := Axe + 1;
ReportVars[2] := 1;
Players[CurrentPlayer].Loc := 'Got new Axe!';
Exit;
end else
if not (FindDTM(AxeH, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
Players[CurrentPlayer].Loc := 'You have no spare axes!';
Nextplayer(false);
Writeln('No spare broken axes in bank CHANGING PLAYERS');
end else
if not BankScreen then
begin
Result := False;
writeln('Player couldnt find the bank');
Players[CurrentPlayer].Loc := 'Couldnt find the bank, Trying to get back from broken axe';
Players[CurrentPlayer].Active := False;
Logout;
Exit;
end;
end;
end;
end;
procedure WalkToBank;
begin
if not (LoggedIn) then Exit;
if FindSymbolB(x, y, 'tree') then
begin
mouse(x, y - 10, 3, 3, true);
setrun(true);
end;
if (FindColorTolerance(x, y, FindVarrockRoadColor, MmX1, MmY1, MmX2, MmY2, 2)) then
begin
Mouse(x, y, 1, 1, true);
wait(7500 + random(100));
flag;
BankDTM;
end;
end;
function AxeBroken: boolean;
begin
if not (LoggedIn) then Exit;
GameTab(4);
if (InChat('No you just did not')) or
(FindBitmapMaskTolerance(BrokenAxedtm, x, y, MIX1, MIY1, MIX2, MIY2, 5, 5)) then
begin
Writeln('Dang thing smashed my axe!');
Result := True;
end else
Result := False;
end;
procedure HandleBrokenAxe;
begin
WalkToBank;
ftwait(1);
OpenBank13;
WalkToYew;
end;
procedure changetree;
begin
Disguise('Total Banks [' + IntToStr(Banked) + ']');
if not (LoggedIn) then Exit;
writeln('at top');
if FindSymbolT(x, y, 'tree') then
begin
mouse(x, y + 9, 3, 3, true);
FindRandoms1;
Flag;
chop1;
Exit;
end else
writeln('at bottom tree');
if FindSymbolB(x, y, 'tree') then
begin
mouse(x, y - 9, 3, 3, true);
Flag;
Chop1;
end;
end;
function Check: boolean;
var
WaitTree: LongInt;
begin
if not (LoggedIn) then Exit;
if (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
begin
result := true;
EntFinder;
exit;
end else
result := false;
if Result = false then
begin
ChangeTree;
MarkTime(WaitTree)
repeat
if (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
begin
Break;
Exit;
FindRandoms;
end else
FindRandoms;
Wait(100);
until TimeFromMark(WaitTree) > 8000 + Random(3000);
end;
end;
procedure AntiBan1;
begin
case random(13) of
0: GameTab(4 + Random(12));
1: GameTab(2 + Random(12));
2: Wait2(1000,true);
3: GameTab(2 + Random(12));
4: GameTab(2 + Random(12));
5: GameTab(2 + Random(12));
end;
end;
procedure AntiBan;
var
B: Integer;
begin
if not (LoggedIn) then Exit;
if (AxeBroken = True) then
HandleBrokenAxe;
MouseSpeed := 6 + random(8);
repeat
MMouse(x - 312 + random(1100), y + random(400), 2, 2);
Wait(1500 + random(1000));
EntFinder;
FindRandoms;
b := B + 1;
Disguise('Done [' + IntToStr(Banked) + '/' + IntToStr(Players[CurrentPlayer].Integers[1]) + '] Loads');
until (b >= 3 + random(6))or Invfull or not (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 2));
if not (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 4)) then
MouseSpeed := NormalMouseSpeed;
if (b >= 3) then
begin
MouseSpeed := NormalMouseSpeed;
Antiban1;
EntFinder;
end else
MouseSpeed := NormalMouseSpeed;
Exit;
end;
function UpdateCoords(var cx, cy: Integer; ax, ay, TheColor, Tol: Integer): Boolean;
var
Counter: integer;
begin
if not (LoggedIn) then Exit;
//GetMousePos(ax, ay);
if (ax < 20) then ax := 20; if (ay < 20) then ay := 20;
while (FlagPresent) and (FindColorSpiralTolerance(cx, cy, TheColor, ax - 20, ay - 20, ax + 20, ay + 20, Tol)) do
begin
ax := cx; ay := cy;
Wait(10);
FindRandoms;
Check;
EntFinder;
if invfull then
Exit;
Check;
EntFinder;
if (AxeBroken = True) then
HandleBrokenAxe;
end;
if (ax < 10) then ax := 10; if (ay < 10) then ay := 10;
while (FindColorSpiralTolerance(cx, cy, TheColor, ax - 10, ay - 10, ax + 10, ay + 10, Tol)) and (Counter < 100) do
begin
ax := cx; ay := cy;
Counter := Counter + 1;
Wait(10);
FindRandoms;
EntFinder;
Antiban;
if invfull then
Exit;
Check;
if (AxeBroken = True) then
HandleBrokenAxe;
end;
Result := FindColorSpiralTolerance(cx, cy, TheColor, ax - 10, ay - 10, ax + 10, ay + 10, Tol);
if (not Result) then
else
EntFinder;
FindRandoms;
EntFinder;
if invfull then
Exit;
Check;
AntiBan;
EntFinder;
if (AxeBroken = True) then
HandleBrokenAxe;
end;
procedure Chopping;
begin
if invfull then
Exit;
Players[CurrentPlayer].Loc := 'At tree, cutting.';
repeat
if not (LoggedIn) then Exit;
if invfull then Exit;
EntFinder;
Check;
ftwait(1);
Entfinder;
AntiBan;
Check;
if (AxeBroken = True) then
begin
Break;
HandleBrokenAxe;
end;
until (Invfull) or not (FindColorTolerance(x, y, 4945777, MSX1, MSY1, MSX2, MSY2, 2));
end;
function OpenBank12: Boolean;
begin
if OpenBankQuietBH('eb') then
begin
If(PinScreen)Then
Begin
InPin(IntToStr(Players[CurrentPlayer].Pin));
Wait(500+Random(250));
End else
If(BankScreen)Then
Begin
wait(200);
FixBank;
CountItemDTM(Yew);
ReportVars[1] := CountItemDTM1(Yew);
Deposit(2, 28, 2);
CloseBank;
Players[CurrentPlayer].Loc := 'Bank, Just banked.';
Banked := Banked + 1;
Bankedd := Bankedd + 1;
Wait(1);
ReportVars[0] := 1;
SendSRLReport;
Disguise('Done [' + IntToStr(Banked) + '/' + IntToStr(Players[CurrentPlayer].Integers[1]) + '] Loads');
Exit;
end else
if not BankScreen then
begin
Result := False;
Writeln('Player couldnt find the bank');
Players[CurrentPlayer].Active := False;
Logout;
end;
end;
end;
procedure Setup;
begin
Players[CurrentPlayer].Loc := 'In setup';
Makecompass('S');
HighestAngle;
SetRun(false);
end;
procedure PlayerStats; // From Fawki!
var Active: string;
var i: Integer;
begin
if Players[CurrentPlayer].Active = True then
Active := 'True'
else
Active := 'False';
WriteLn('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
Writeln(' Name : ' + Players[CurrentPlayer].Name);
Writeln(' Player : ' + inttostr(CurrentPlayer));
Writeln(' Active : ' + Active);
Writeln(' Location : ' + Players[CurrentPlayer].loc);
WriteLn('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
for I := 0 to HowManyPlayers - 1 do
begin
if Players[i].Active = True then Active := 'True' else Active := 'False';
WriteLn(' ' + Inttostr(I) + ' : ' + Players[i].Name + ' := ' + Active);
end
WriteLn('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
end;
//----------------------------------------------------------------------------//
procedure ProgressReport;
begin
begin
ClearDebug;
SRLRandomsReport;
WriteLn('<============== Progress Report ===============>');
Writeln('Script Worked for ' + TimeRunning);
Writeln('Banked ' + IntToStr(Banked) + ' load[s].');
Writeln('Chopped ' + IntToStr(Chopped) + ' Log[s].');
Writeln('Ents Broke the Axe ' + IntToStr(Axe) + ' Time[s].');
writeln('Avoided Ents ' + IntToStr(Ents) + ' Time[s].');
writeln('Banked ' + IntToStr(Axe) + ' Broken axes and got a new one.');
Disguise('Done [' + IntToStr(Banked) + '/' + IntToStr(Players[CurrentPlayer].Integers[1]) + '] Loads');
PlayerStats;
end;
end;
begin
SetupSRL;
ScriptID := '382';
SRLID := SRLStatsID;
SRLPassword := SRLStatsPW;
activateclient;
wait(1000);
declareplayers;
if (not (loggedIn)) then
begin
LoginPlayer;
end;
LoadDTMs;
repeat
Repeat
MarkTime(TotalScriptTime);
repeat
Setup;
walktoyew;
repeat
chopping;
ProgressReport;
EntFinder;
check;
until (invfull) or (not (loggedIn));
if Invfull then
walktobank;
Openbank12;
ProgressReport;
if (not (loggedIn)) then
Nextplayer(false);
Until (TimeFromMark(TotalScriptTime) > Maxtime);
if(TimeFromMark(TotalScriptTime) > Maxtime) then
Disguise('Times up! Changing Players');
Players[CurrentPlayer].Loc := 'Bank? Times up.';
Logout;
MarkTime(Timer);
Repeat
Disguise('Waiting for timer.. ');
Until (TimeFromMark(Timer) > WaitTime);
if (TimeFromMark(Timer) > WaitTime)then
NextPlayer(true);
Bankedd :=0;
until (Banked >= Players[CurrentPlayer].Integers[1]) or (not (loggedIn));
if (Banked >= Players[CurrentPlayer].Integers[1]) then
begin
writeln('Loads done, changing player');
Disguise('Loads Done, Changing Player');
Players[CurrentPlayer].Loc := 'Bank? Loads done.';
Logout;
MarkTime(Timer);
Repeat
Disguise('Waiting for timer.. ');
Until (TimeFromMark(Timer) > WaitTime);
if (TimeFromMark(Timer) > WaitTime)then
NextPlayer(true);
Bankedd :=0;
end;
if (not (loggedIn)) then
begin
Nextplayer(false);
Bankedd := 0;
end;
ProgressReport;
until (false);
end.
Upon fixing spelling errors, I got this [Hint] in the script...
Line 113: [Hint] (15009:10): Variable 'Result' never used in script C:\Program Files\SCAR 3.12\Scripts\BH - Edgeville Yew Cutter + Banker V0.10.scar
Even though Result is no where to be found in Line 113 as I had checked, so must have been a glitch on my end somewhere. Not sure if you even used the Variable 'Result' anywhere in the script, but you might want to check anyway.
Happy Scripting....
SpAz ur a noob hint isnt anything just that he didnt call result = true or false in the item DTM funtion
You get the Hint because:
SCAR Code:function CountItemDTM(DTM: Integer): Integer; // From rotflmfwao
var
i, x, y: Integer;
TB: Tbox;
begin
GameTab(4);
for i := 1 to 28 do
begin
TB := InvBox(i);
if ExistsItem(i) then
if FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
Inc(Chopped); //<--------------------
end;
end;
You can that because the result is being counted as chopped not as a result. Their is nothing wrong with it. Also i appreicate that you edited but i got i complete new version. 1.1k lines +
Its a great script and all but, i just sumtimes logg in and im in a random place
it doesnt happen often so its ok
btw ur great at makin scripts, i would recomend u
There are currently 1 users browsing this thread. (0 members and 1 guests)