Code:
program xtraivy;
//{$DEFINE SMART}
{$i SRL\SRL.simba}
{include SPS/SPS.simba}
{♠===================================================================♠
♠XtraIVY♠
♠Release Date♠: 17/02/2012
♠Author♠: xtrapsp
♠Support♠: http://villavu.com/forum/showthread.php?t=75528
Changelog:
17/02/2012 - Chopping done.
18/02/2012 - Added Various antiban.
19/02/2012 - Added elements which aren't in use yet.
♠===================================================================♠}
Const
SRLStats_Username = '';
SRLStats_Password = '';
BreakEvery = 120;
BreakFor = 5;
NumbOfPlayers= 1;
StartPlayer= 0;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Runescape Username
Players[0].Pass := ''; //Runescape Password
Players[0].Nick := 'xtr'; //3-4 letters that you will recognise
Players[0].Member := True; //Are you a member?
Players[0].Active := True; //Not sure what this means... I saw it on other scripts
Players[0].Pin := ''; //Bank Pin
Players[0].BoxRewards := ['Xp', 'mote', 'ostume','ssence'];
end;
Var
x, y: Integer;
Nest: Integer;
////////////////////////////////////////////////////////////////////////////////
////////////AutoColour Feature (I'm British I spell it like Colour)/////////////
function IVYColour: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.08);
if not (FindColorsTolerance(arP, 4619873, MSX1, MSY1, MSX2, MSY2, 10)) 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;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure Chop_Old;
Begin
If FindObjCustom(x, y, ['ch', 'p'], [4553824, 4355931, 5279598], 5) Then
Begin
mouse( x, y, 2, 2, true);
MakeCompass(0 + random(20));
wait(16675 + random(1654))
End;
End;
procedure Chop;
var
X, Y, Col: Integer;
begin
Col := IVYColour;
if (FindObjTPA(X, Y, Col, 20, 1, 10, 10, 10, ['', ''])) then
begin
mouse( x, y, 2, 2, True);
end;
end;
Procedure StatsGuise(wat:String); // Thanks YoHoJo
Begin
Status(wat);
Disguise(wat);
End;
Procedure Antiban;
Begin
Case Random(250) Of
0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcutting', False) GameTab(28) End;
1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
End;
End;
Procedure FindNest_old;
Begin
If FindObjCustom(x, y, ['Ne', 'st'], [3290938,3883332], 5) Then
mouse( x, y, 2, 2, true);
Writeln('Found a nest... Attempting to pickup');
MakeCompass(10 + random(50));
End;
Procedure FindNest;
Begin
//Nest := DTMFromString('asd')
If FindDTM(Nest, X, Y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Writeln('Found a nest... Attempting to pickup');
MMouse (x, y, 5, 5);
MakeCompass(0 + random(50));
If IsUpText('nes') Then
Mouse(x, y, 0, 0, True);
FreeDTM(Nest);
End;
End;
Procedure CrushNest;
Begin
//Nest := DTMFromString('asd')
If FindDTM(Nest, X, Y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Writeln('Found a nest inside Inventory, Attempting to crush');
MMouse (x, y, 5, 5);
MakeCompass(0 + random(50));
If IsUpText('cru') Then
Mouse(x, y, 0, 0, True);
End;
End;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
Writeln('Your using XtraIvy V0.01');
Repeat
Chop
Until(false)
End.