What a crappy skill. Xp-rates seems to be extremely low. Super boring to train, like runespan. Even the rewards are not so good..![]()
What a crappy skill. Xp-rates seems to be extremely low. Super boring to train, like runespan. Even the rewards are not so good..![]()
But the key question - is it easy to bot?
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
It should be very easy to bot.
You have to remember, this is a gathering skill, its not meant to be a stand alone thing, Its to compliment the new skill that comes out early next year, that will use resources and items from dividation to make things
I already made a script for it... and for the most part I got it working past what I posted earlier. Its not too bad to bot.
Me too.. It's not great but it works okay.. Just needs a bit of fixing up. Mixing it with colour would definitely own..
Just started and it got me lvl 21 so far :l
Anyway.. gotta go..
EDIT.. Updated. Added Walking to the Energy converter..
Simba Code:{$DEFINE SMARTOLD}
{$include_once GLX/Setup.Simba}
const
MyID = 2997907707; //ID of my player.
Exchange = 3; //1 = To-Energy, 2 = To-XP, 3 = To-Higher-Xp.
UseStaticInv = False; //Use hard-coded Inventory coordinates.
MemoryID = 77010;
PaleEnergy = 52275;
ChronicleFragment = 79305;
MemoryConverter = 1891595728;
var
T: TSmart;
Me: TPlayer;
Inv: Tbox = [1035, 375, 1342, 596];
Procedure SetupPlayer; //Login Information.
Begin
Me.Name := 'Username';
Me.Pass := '********';
End;
Function InvBox: TBox;
Begin
If UseStaticInv Then
Result := Inv
Else
Result := GL_InvBounds;
End;
Function InvCount: Integer;
Begin
Result := GL_InvCount;
End;
Function InvFull: Boolean;
Begin
Result := InvCount >= 28;
End;
function WaitFindModel(ID: Cardinal; WaitPerLoop, MaxTime: Integer): Boolean;
var
T: Integer;
begin
T := GetSystemTime + MaxTime;
while (GetSystemTime < T) do
begin
if (Length(glGetModels(ID)) < 1) then
begin
Result := True;
Exit;
end;
Wait(WaitPerLoop);
end;
end;
function WaitFindTexture(ID: Integer; WaitPerLoop, MaxTime: Integer): Boolean;
var
T: Integer;
begin
T := GetSystemTime + MaxTime;
while (GetSystemTime < T) do
begin
if (Length(glGetTextures(ID)) < 1) then
begin
Result := True;
Exit;
end;
Wait(WaitPerLoop);
end;
end;
Function FindMemoryConverter: Boolean;
Begin
Result := Length(glGetTextures(2244000)) > 0;
End;
Function FindMemoriesToEnergy: TPoint;
var
T: glTextureArray;
Begin
T := glGetTextures(251797, 4794974, 10);
if (Length(T) > 0) then
Result := Point(T[0].X, T[0].Y)
else
Result := Point(-1, -1);
End;
Function FindMemoriesToXP: TPoint;
var
T: glTextureArray;
Begin
T := glGetTextures(339290, 2237487, 10);
if (Length(T) > 0) then
Result := Point(T[0].X, T[0].Y)
else
Result := Point(-1, -1);
End;
Function FindMemoriesToHigherXP: TPoint;
var
T: glTextureArray;
Begin
T := glGetTextures(339290, 2433571, 10);
if (Length(T) > 0) then
Result := Point(T[0].X, T[0].Y)
else
Result := Point(-1, -1);
End;
Function CountItem(ID: Integer): Integer;
Begin
Result := Length(glGetTextures(ID, InvBox));
End;
Function HasItem(ID: Integer): Boolean;
Begin
Result := CountItem(ID) <> 0;
End;
Function HasNoMemories: Boolean;
Begin
Result := Not HasItem(MemoryID);
End;
Function HasNoEnergy: Boolean;
Begin
Result := Not HasItem(PaleEnergy);
End;
function ModelsToTPA(var Models: glModelArray): TPointArray;
var
I: Integer;
TPA: TPointArray;
Begin
SetLength(Result, Length(Models));
For I := 0 To High(Models) Do
Begin
Result[I] := Point(Models[I].X, Models[I].Y);
End;
End;
function FindNearestWisp: TPoint;
var
TPA: TPointArray;
X1, Y1, X2, Y2: Integer;
IDs: Array Of Cardinal;
Models: glModelArray;
Begin
Result := Point(-1, -1);
IDs := [1001876126, 3736315319{, 3382154561}];
Models := glGetModels(IDs);
If (Length(Models) > 0) Then
Begin
TPA := ModelsToTPA(Models);
GLXViewPort(X1, Y1, X2, Y2);
SortTPAFrom(TPA, Point((X2 - X1) div 2, (Y2 - Y1) div 2));
Result := TPA[0];
End;
End;
function WalkToConverter: Boolean;
var
T: Timer;
MMC: TPoint;
MMIcon: glTextureArray;
Begin
If (Not GL_LoggedIn) Then Exit;
MMIcon := glGetTextures(6375, 3288885, 7);
MMC := MiddleBox(GL_GetMinimapBounds);
if (Distance(MMC.X, MMC.Y, MMIcon[0].X, MMIcon[0].Y) > 10) Then
Mouse(MMIcon[0].X, MMIcon[0].Y, 5, 5, MOUSE_LEFT);
T.Start;
while (Distance(MMC.X, MMC.Y, MMIcon[0].X, MMIcon[0].Y) > 10) do
begin
MMIcon := glGetTextures(6375, 3288885, 7);
Wait(100);
If (T.TimeElapsed > 10000) Then
Exit;
If (Distance(MMC.X, MMC.Y, MMIcon[0].X, MMIcon[0].Y) <= 10) Then
Begin
Result := True;
Exit;
End;
end;
Result := Distance(MMC.X, MMC.Y, MMIcon[0].X, MMIcon[0].Y) <= 10;
End;
function ExchangeWisps: Boolean;
var
P: TPoint;
Models: glModelArray;
Begin
Models := glGetModels(MemoryConverter);
If (Length(Models) > 0) Then
Begin
Mouse(Models[0].X, Models[0].Y, 5, 5);
If (GL_IsMouseUpText(['Convert', 'Convert memories', 'memories Energy'])) Then
Begin
ClickMouse(MOUSE_LEFT);
If WaitFunc(@FindMemoryConverter, 200, 5000) Then
Case Exchange Of
1: Begin
P := FindMemoriesToEnergy;
if ((P.X <> -1) and (P.Y <> -1)) then
begin
Mouse(P, 5, 5, MOUSE_LEFT);
WaitFunc(@HasNoMemories, 200, 35000);
end;
End;
2: Begin
P := FindMemoriesToXP;
if ((P.X <> -1) and (P.Y <> -1)) then
begin
Mouse(P, 5, 5, MOUSE_LEFT);
WaitFunc(@HasNoMemories, 200, 35000);
end;
End;
3: Begin
P := FindMemoriesToHigherXP;
if ((P.X <> -1) and (P.Y <> -1)) then
begin
Mouse(P, 5, 5, MOUSE_LEFT);
WaitFunc(@HasNoMemories, 200, 35000);
end;
End;
End Else
Begin
Writeln('Invalid Exchange Option');
TerminateScript;
End;
End;
End;
End;
Procedure MainLoop;
var
Prev, Next: TPoint;
T: Timer;
Begin
SetupPlayer;
Repeat
If (Not GL_LoggedIn) Then
GL_LoginPlayer(Me);
While(Not InvFull) Do
Begin
Wait(RandomRange(100, 200));
Next := FindNearestWisp;
while (Distance(Next.X, Next.Y, Prev.X, Prev.Y) < 10) Do
begin
Wait(100);
ClearDebug;
writeln('Harvesting Wisp');
Next := FindNearestWisp;
If (InvFull) Then
Break;
end;
Mouse(Next, 1, 1);
if (GL_WaitMouseUptext(['Harvest', 'Catch'], 700)) Then
Begin
Mouse(Next, 2, 2, MOUSE_RIGHT);
Wait(300);
GL_WaitOption(['Harvest', 'Catch'], MOUSE_LEFT, 500);
End;
Wait(2000);
Prev := Next;
End;
Wait(100);
ClearDebug;
WalkToConverter;
ExchangeWisps;
writeln('Exchanging Wisps');
Until(False);
End;
var
Smart: TSmart;
begin
ClearDebug;
SetupGLX(Smart, 1350, 670);
MainLoop;
TerminateScript;
end.
Last edited by Brandon; 08-21-2013 at 01:59 AM.
I am Ggzz..
Hackintosher
PB has 3 scripts up and running for it AFAIK Very easy to bot. I wonder if botwatch is watching it though.
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Epic release! I was wondering about the botwatch as well ... seems like some of those wisps move pretty fast ... especially the chronicle ones (which are useless div exp but good hunter exp). With all the bans recently (could be just my perception but it feels like they have gotten faster at banning) the anti-bans should be super important and human mouse movements as well.
It isn't you need to download the unofficial updates etc. Just wait for SRL-6
Anti-Leech Movement Prevent Leeching Spread the word
Insanity 60 Days (Killer workout)
XoL Blog (Workouts/RS/Misc)
Last I heard sometime in September (Hope I helped)
And about getting unofficial updates, I think it would be best if everyone interested in these do them by themselves as custom interfaces can be a problem with LoggedIn and other functions such as: Globals, Inventory, Chat, Players.
If you need any help please PM me
Looks like a good thing to bot for the GE but I think the prices will still be high at first and until a good money making product from it is made, it will go down.
Got on a friends account to play RS3 and see the new skill, I agree, it is useless at this point. However very easy to bot. I'd stay away as I've heard of many people being banned lately..
There are currently 1 users browsing this thread. (0 members and 1 guests)