Preferably one that uses either catherby bank or seers. Need a up to date one asap.'
PS: I only use scripts that use S.M.A.R.T.
Preferably one that uses either catherby bank or seers. Need a up to date one asap.'
PS: I only use scripts that use S.M.A.R.T.
Last edited by zionz; 10-24-2009 at 12:35 PM.
My Woodcutting Guide. 1-99 p2p. Click here
http://i38.tinypic.com/s3hu1d.png
Wooo siggy made by "Camo Developer" Thank you xD.
Rogeruk's Al-Kharid Tanner V1.1 [Released]
Rogeruk's Barbarian Crafter [Coming Soon]
Rogeruk's Guild Fisher [Coming Soon]
!! - Taking Requests - !!
Feel free to test this one out:
SCAR Code:{Credits to Cazax for the findtree and N1ke for the base of the script <3 y'all!}
program New;
{.Include SRL/SRL/Misc/Smart.Scar}
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/misc/Users.scar}
{.Include SRL/SRL/Skill/WoodCutting.scar}
Type
TTree = Record
Name : String;
UpTexts : TStringArray;
Colors : TIntegerArray;
Tolerance, R : Integer;
HueMod, SatMod : Extended;
End;
TLoc = Record
Name: String;
Tree: TTree;
SwitchSpot: function: Boolean;
WalkTo: Array [0..1] of Function: Boolean; {0 = Walk to trees | 1 = Walk back to bank}
Chop : Function : Boolean;
End;
Const DebugLevel = 0; {0 = None | 1 = Small | 2 = Medium | 3 = Big}
Var x, y, Banked : Integer;
Edgy_Yew : TTree;
Locations : Array [0..2] Of TLoc;
Click : Boolean;
Procedure WalkAntiBan;
Begin
Case Random(6) Of
0 : SleepAndMoveMouse(1000 + Random(1000));
1 : GameTab(RandomRange(tab_Combat, tab_LogOut));
2 : PickUpMouse;
End;
Wait(200 + Random(800));
GameTab(Tab_Inv);
End;
{ By Cazax :)}
Function FindTree(TreeRecord : TTree; Var X, Y : Integer): Boolean;
Var
TPA, TPA2: TPointArray;
ATPA: T2DPointArray;
H, I, iTime, TimeMark: Integer;
Begin
If Not LoggedIn Then
Exit;
iTime := GetSystemTime;
TimeMark := GetSystemTime + 12000; //times out after 10 - 12 secs
H := High(TreeRecord.Colors);
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(TreeRecord.HueMod, TreeRecord.SatMod);
For I := 0 To H Do
Begin
FindColorsSpiralTolerance(MSCX, MSCY, TPA, TreeRecord.Colors[I], MSX1, MSY1, MSX2, MSY2, TreeRecord.Tolerance);
TPA2 := CombineTPA(TPA, TPA2);
End;
SetColorSpeed2Modifiers(0.2, 0.2);
ColorToleranceSpeed(1);
If Length(TPA2) = 0 Then
Exit;
ATPA := SplitTPA(TPA2, TreeRecord.R);
H := High(ATPA);
For I := 0 To H Do
Begin
Result := (GetSystemTime > TimeMark);
If MiddleTPAEx(ATPA[I], X, Y) Then
Begin
MMouse(X, Y, 5, 5);
If WaitUpTextMulti(TreeRecord.UpTexts, 1500) Then
Begin
WriteLn('Found ' + TreeRecord.Name + ' in ' + IntToStr(GetSystemTime-iTime) + ' MS.');
Result := True;
GetMousePos(X, Y);
FindEnt(x, y, True);
Exit;
End;
End;
End;
End;
Function WalkTreeSymbol(Var x, y : Integer) : Boolean;
Var TPA : TPointArray;
Begin
FindColorsTolerance(TPA, 494860, MMX1, MMY1, MMX2, MMY2, 22);
FilterPointsPie(TPA, 180.233, 280.46456, 21.654767367848757, 76.5647456, MMCX, MMCY);
Result := (Length(TPA) > 0);
If Result Then
Begin
X := TPA[High(TPA)].x + Random(2);
Y := TPA[High(TPA)].y + Random(4);
End;
End;
Function WalkEdgeTPA(SP : TPoint; Rand : ShortInt) : Boolean;
Var
TPA : TPointArray;
ATPA : T2DPointArray;
P : TPoint;
Begin
FindColorsTolerance(TPA, 4346713, 574, 88, 670, 145, 19);
If Length(TPA) < 20 Then FindColorsTolerance(TPA, 3031623, MMX1, MMY1, MMX2, MMY2, 45);
Begin
ATPA := TPAToATPAEx(TPA, 40, 40);
SortATPAFromFirstPoint(ATPA, SP);
P := MiddleTPA(ATPA[0]);
MouseFlag(P.x, P.y, Rand, 5, 0);
End;
Result := True;
End;
Function WalkToEdgyTrees : Boolean;
Begin
Case Random(1) Of
0 : Begin
If Not WalkTreeSymbol(x, y) Then
Begin
If Not FindSymbol(x, y, 'tree') Then
If FindSymbol(x, y, 'bank') Then
MouseFlag(MMCX, MMCY + 30, 5, 5, 0)
Else
Wait(1); //Debug then Exit;
If FindSymbol(x, y, 'tree') Then
MouseFlag(x, y - 17, 0, 0, 0)
Else
Wait(1); //Debug then Exit;
End Else
Mouse(x, y, 0, 0, True);
While FlagPresent Do WalkAntiBan;
Begin
Result := FindTree(Edgy_Yew, X, Y);
If Result Then
Exit
Else
Wait(1); //Debug then Exit;
End;
Result := False;
End;
1 : If WalkEdgeTPA(Point(MMCX - 4, MMCY + 65), 21) Then
Begin
Result := FindSymbol(x, y, 'tree');
If Result Then
MouseFlag(x + 8, y, 0, 0, 0)
Else
Wait(1); //Debug then Exit;
End;
End;
End;
Function GetEdgyLoc : String;
Begin
Case FindSymbol(x, y, 'water source') Of
True : Result := 'Top';
False : Result := 'Bottom';
End;
End;
Function SwitchEdgyPosition : Boolean;
Var Box : Array Of TBox;
OffSet : ShortInt;
Begin
SetArrayLength(Box, 2);
Click := False;
Case GetEdgyLoc Of
'Top' : Begin
Box[0] := IntToBox(551, 91, 712, 151);
Offset := -3;
End;
'Bottom' : Begin
Box[0] := IntToBox(550, 10, 706, 97);
Offset := +3;
End;
End;
If FindSymbolIn(x, y, 'tree', Box[0].x1, Box[0].y1, Box[0].x2, Box[0].y2) Then
Box[1] := IntToBox(x - 25, y - 25, x + 25, y + 25) Else Exit;
If Length(GetMiniMapDotsIn('player', Box[1].x1, Box[1].y1, Box[1].x2, Box[1].y2)) > 0 Then
Begin
If FindSymbolIn(x, y, 'tree', Box[0].x1, Box[0].y1, Box[0].x2, Box[0].y2) Then
Begin
Mouse(x + 7, y + OffSet, 3, 3, True);
While FlagPresent Do
WalkAntiBan;
Result := True;
End Else
Result := False;
End;
End;
Procedure RandomClick;
Begin
If Click Then Exit;
Case Random(2) Of
0 : Mouse(x, y, 0, 0, True);
1 : Begin
Mouse(x, y, 0, 0, False);
If WaitOption('hop', 1200) Then
Exit;
End;
End;
Click := True;
End;
Procedure AntiBan;
Begin
If Random(2) = 1 Then //feel free to add more
SleepAndMoveMouse(1000 + Random(800));
End;
Procedure WaitWhileChop;
Begin
If Not LoggedIn Then Exit;
Wait(300 + Random(2000));
FindEnt(x, y, True);
AntiBan;
Wait(300 + Random(2000));
If InvFull Then Exit;
FindNormalRandoms;
End;
Function ChopEdgyTrees : Boolean;
Var T : LongInt;
Begin
Repeat
Result := FindTree(Edgy_Yew, X, Y);
If Result Then
Begin
RandomClick
WaitWhileChop
End Else
If Not Result Then
Begin
T := GetSystemTime + 4000 + Random(1000);
While (Not FindTree(Edgy_Yew, X, Y)) And (GetSystemTime < T) Do
AntiBan;
If GetSystemTime > T Then
SwitchEdgyPosition
Else
RandomClick;
End;
Until(InvFull) Or (Not LoggedIn);
If InvFull Then Result := True
Else Result := False;
End;
Function WalkToEdgyBank : Boolean;
Var
TPA : TPointArray;
Begin
If GetEdgyLoc <> 'Bottom' Then
Begin
If FindSymbolIn(x, y, 'tree', 551, 91, 712, 151) Then
Begin
Mouse(x + 10, y - 7, 4, 3, True);
While FlagPresent Do
WalkAntiBan;
End;
End;
Begin
Result := FindSymbol(x, y, 'Dungeon');
If Result Then
MouseFlag(x, y - 50, 10, 10, 0)
Else
If MFF(670, 50, 5, 5) Then
Result := True
Else
Wait(1); //Debug and Exit;
End;
If FindColorsTolerance(TPA, 791645, MMX1, MMY1, 682, 124, 15) Then
Begin
If Length(TPA) > 0 Then
If MiddleTPAEx(TPA, x, y) Then
MouseFlag(x, y, 0, 0, 0);
End Else
If FindSymbol(x, y, 'Bank') Then
MouseFlag(x, y, 3, 3, 0)
Else
Wait(1); //Debug then exit;
Begin
If OpenBankFast('eb') Then
If BankScreen Xor PinScreen Then
Begin
If PinScreen Then InPin(Players[CurrentPlayer].PIN);
Deposit(2, 28, True);
Wait(700 + Random(800));
CloseBank;
End;
End;
Result := True;
IncEx(Banked, Integer(Result));
End;
Procedure SetUpRecord;
Begin
With Edgy_Yew Do
Begin
Name := 'yew';
UpTexts := ['ew', 'Yew'];
Colors := [3564378, 2176305, 3174756];
Tolerance := 15;
R := 13;
HueMod := 0.21;
SatMod := 0.23;
End;
With Locations[0] Do
Begin
Name := 'edgeville'
Tree := Edgy_Yew;
SwitchSpot := @SwitchEdgyPosition;
WalkTo[0] := @WalkToEdgyTrees;
WalkTo[1] := @WalkToEdgyBank;
Chop := @ChopEdgyTrees;
End;
End;
Begin
SetupSRL;
SymbolAccuracy := 0.45;
SetUpRecord;
SRLPlayerForm(True, [], [], ['Loads'], []);
LoginPlayer;
Repeat
SetRun(True);
SetAngle(True);
Locations[0].WalkTo[0]();
Disguise('Banked - '+IntToStr(Banked));
Locations[0].Chop();
Disguise('Banked - '+IntToStr(Banked));
Locations[0].WalkTo[1]();
Until (Banked >= Players[CurrentPlayer].Integers[0]);
End.
If your really desperate..![]()
Spam. This is request, used for requesting and me being the requeste being given what he.she desires and pleads for in exchange for proggies/tips/bug reports. There are rules layed out for a reason, to keep everything flowing smoothly so people can browse information easily, not have to skip over unwanted non-needed posts, Please delete, thank you.
My Woodcutting Guide. 1-99 p2p. Click here
http://i38.tinypic.com/s3hu1d.png
Wooo siggy made by "Camo Developer" Thank you xD.
My Woodcutting Guide. 1-99 p2p. Click here
http://i38.tinypic.com/s3hu1d.png
Wooo siggy made by "Camo Developer" Thank you xD.
There are currently 1 users browsing this thread. (0 members and 1 guests)