Simba Code:
program VEWAlker;
//{$DEFINE SMART}
{$i srl/srl.simba}
{$IFDEF SMART}
{$i srl/srl/misc/paintsmart.simba}
{$i sps/sps.simba}
{$ENDIF}
Const
SERVER = 61; // Enter "0" to pick a random server.
MEMBERS = False; // Set to True if using a RS-Members account. False if F2P.
SRLStats_Username = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
NumbOfPlayers= 1; //How many players are you using
StartPlayer= 0; //Player to start auoting with! (0 means first char)
Version= '1.0'; //Change back to 1 if new script
Var
X, Y, I: Integer;
TooLong: Integer;
Procedure DeclarePlayers;
Var i:integer;
Begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
For i := 0 to NumbOfPlayers-1 Do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
With Players[0] Do
Begin
Name := ''; //Player username.
Pass := ''; //Player password.
Nick := ''; //Player nickname - 3-4 letters of Player username.
Active := True;
End;
End;
{Writes lines in the dbug box}
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Procedure Antiban;
Begin
Case Random(192) Of
0: HoverSkill('Mining', False);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: ExamineInv;
3: RandomAngle(1);
4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
5: HoverSkill('random', False);
End;
End;
Procedure FailSafe(Reason:String);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_commit;
Terminatescript;
End;
Procedure Bankit; //Credits to Trickyy and Marpis
Var
i : Integer;
Begin
If (Not(LoggedIn)) Then Exit;
For i:=1 To 4 Do
If OpenBank('veb', True, True) Then
Break;
End;
{Procedure WalkToYew;
Begin
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['11_7', '11_6', ]);//SPS Areas
ToYew := [Point(449, 161), Point(449, 152), Point(451, 141), Point(447, 135),
Point(439, 134), Point(430, 132), Point(425, 128), Point(422, 118), Point(422, 106),
Point(418, 98), Point(418, 86), Point(420, 76), Point(425, 68), Point(424, 54), Point(421, 47),
Point(424, 456), Point(423, 445), Point(419, 433), Point(417, 423), Point(418, 413),
Point(415, 406), Point(417, 395), Point(417, 388), Point(417, 381), Point(420, 370)];
SPS_WalkPath(ToYew); //Credits to Mat for his tut
End;
Procedure ToBank;
Begin
SPS_Setup(RUNESCAPE_SURFACE,['11_6']);
BankPath := [Point(420, 370), Point(419, 392), Point(416, 405), Point(421, 419),
Point(420, 439), Point(420, 450), Point(421, 463), Point(416, 476), Point(421, 487)];
SPS_WalkPath(BankPath); //Credits to Mat for his tut
End; }
Function RadialWalkYew: Integer; //Credit to BobboHobbo for Tut and failsafe idea
Var X, Y: Integer;
Begin
FindNormalRandoms;
If RadialRoadWalk(RoadColor, 340, 315, 55, 1, 1) Then
Begin
Writeln('Walking to yew!');
Result:=1;
Exit;
End Else
Writeln('Walking to yew failed'); //FailSafe for RadialWalking
If FindSymbol(X, Y, 'Tree') Then
Begin
Mouse(X, Y, 5, 5, True);
FFlag(0);
Writeln('At yew');
Result:= 1;
End Else
Writeln('Walikng failed');
End;
function VeYew: Integer; //AutoColor Not sure if this is needed
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.33, 0.77);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 4346972, MSX1, MSY1, MSX2, MSY2, 5);
if (Length(arP) = 0) then
begin
//Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
//Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
//Writeln('AutoColor failed in finding the color.');
end;
Function FindYew(Var X, Y :Integer): Boolean; //Credit to Kyle for the TUT
Var
a :Integer;
TPA: TPointArray;
ATPA : T2DPointArray;
MP :TPoint;
tmpCTS :Integer;
Box :TBox;
Begin
If(Not(LoggedIn))Then Exit;
tmpCTS :=GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.12, 0.12)
FindColorsSpiralTolerance(MSCX, MSCY, TPA, VeYew, MSX1, MSY1, MSX2, MSY2, 5);
SortTPAFrom(TPA, Point(MSCX, MSCY));
ATPA := TPAtoATPAEx(TPA, 15, 15);
For a := 0 To High(ATPA) Do
Begin
MP := MiddleTPA(ATPA[a]);
Box := IntToBox((MP.X - 20), (MP.Y - 20), (MP.X + 20), (MP.Y + 20));
{$IFDEF SMART}
SMART_DrawBoxEx(True, Box, clYellow);
{$ENDIF}
MMouse(MP.X, MP.Y, 4, 4);
If(WaitUptext('Tree', 750))Then
Begin
X := MP.X; Y := MP.Y;
Result := True;
{$IFDEF SMART}
SMART_ClearCanvas;
{$ENDIF}
Break;
End;
End;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
End;
Procedure ChopYew2(); //Took Kyle's Idea and changed it a little
Var
X, Y, LogCounter: Integer;
Box: TBox;
Begin
If(Not(loggedIn))Then Exit;
MarkTime(TooLong);
FindNormalRandoms;
MakeCompass('N');
Box:= IntToBox(MSCX -10, MSCY -25, MSCX +15, MSCY +15);
If(Not(FindNormalRandoms))Then
Begin
If(FindYew(X, Y))Then
Begin
StatsGuise('Found Tree, Chopping')
Wait(RandomRange(150, 250));
Case Random(2) of
0: Mouse(X, Y, 5, 5, True);
1: Begin
Mouse(X, Y, 5, 5, False);
WaitOption('Chop', 500);
Wait(RandomRange(100, 300));
While(Animating(Box, 750, 30))Do
Begin
Flag;
MarkTime(LogCounter);
If (TimeFromMark(Toolong) > 20000) Then
FailSafe('Could not find Tree');
AntiBan;
Wait(RandomRange(100, 300));
StatsGuise('AntiBan and Waiting');
Repeat
If (TimeFromMark(Toolong) > 25000) Then
FailSafe('Could not find Tree');
FindNormalRandoms;
StatsGuise('AntiBan and Waiting');
Antiban;
Wait(100);
Writeln('Log Cut');
Until (Not FindYew(X, Y)) or (InvFull)
End;
End;
End;
End;
End;
End;
{Function ChopYew: Boolean;
Var
X, Y, PlusOne, LogCounter: Integer;
Begin
If Not LoggedIn then
Exit;
MarkTime(TooLong);
FindNormalRandoms;
PlusOne:= InvCount +1;
X:=MSCX;
Y:=MSCY;
If (FindObjCustom(X, Y, ['Cho', 'ope'], [4454, 45487], 7))Then
Begin
StatsGuise('We found Tree');
GetMousePos(X, Y);
Case Random(2) of
0: Mouse(X, Y, 5, 5, True);
1: Begin
Mouse(X, Y, 5, 5, False);
WaitOption('Chop', 500);
End;
End;
Flag;
MarkTime(LogCounter);
If (TimeFromMark(Toolong) > 20000) Then
FailSafe('Could not find Tree');
Repeat;
If (TimeFromMark(Toolong) > 25000) Then
FailSafe('Could not find Tree');
FindNormalRandoms;
StatsGuise('AntiBan and Waiting');
Antiban;
Wait(100);
If InvCount=PlusOne Then
Writeln('Log Cut');
Until (InvCount=PlusOne) or (TimeFromMark(LogCounter) > 5000) or (InvFull)
End;
End; }
Procedure Mainloop;
Begin
Repeat
//WalkToYew; //Can't get SPS to work
RadialWalkYew; //Clicks once and then stops??
ChopYew2;
//If Invfull Then
//RadialWalkBank; //Haven't gotten it to walk to the tree yet
//Bankit; //No need yet can't get to tree
Until(False);
End;
Begin
Smart_Server := 30;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
SetupSRLStats(439, SRLStats_Username, SRLStats_Password);
DeclarePlayers;
LoginPlayer;
Mainloop;
end.
