DarkThrone MMORPG AutoRecruiter

[okokokok]

Yo SRL,

Got bored and made myself an AutoRecruiter for the MMORPG DarkThrone.
To use the script go to the recruitment page, click "Start Recruiting" and turn on the script (Seems obvious, but you have to select the window). It will stop automatically when you've reached the maximum amount clicks for that day (375).

ATTENTION: You need the green background colors! (Go to Home > Settings > Scroll Down to Layout options > Select green from the dropdown menu "layouts".

Tomorrow I'll expand the script (maybe that it will start from the home page, but at least that it will also click "Start Recruiting").

I'd say enjoy:

program DarkThroneAutoClicker;

{$I SRL-OSR/SRL.Simba}
{$i SRL-OSR\SRL\misc\debug.simba}

var x,y,t: Integer;

procedure ClickRecruit;
var RecruitDTM: Integer;
begin
RecruitDTM := DTMFromString('mbQAAAHicY2VgYDjMxMCwD4gPAfExIN4PxL WMDAyNUFwBxOVAbOYoxsAIpY1tRRhEREQYuID60TEjFgwGAKKp CF4=');

if finddtm(RecruitDTM,x,y,msx1,msy1,msx2,msy2) then
begin
Writeln('Found Recruit');
begin
MMouse(x,y,5,5);
ClickMouse2(mouse_left);
Writeln('Clicked Oh Yeah!');
end;
end;
FreeDTM(RecruitDTM);
end;

function EndOfClicking: Boolean;
var EndDTM, EndDTM2: Integer;
begin
EndDTM := DTMFromString('mKgEAAHic42NgYJjByMAwB4hvArE8EwNDBB AnAfFLIH8PEHcDcQAQSwHxO6B6OyCdDsTqQCwL0gPESkCsBsT6 QKwDxNpobA0gVoFiBjd9BnSwf38amH5/JgxM/z+TxjB/aRrDfjcGuDgXkCYHM5KJUQEAItQVXA==');
EndDTM2 := DTMFromString('mFQEAAHic42VgYEhjYmB4CqQ5GBkYHIF4FR BzAMUagXgKEOcBsRYQ3weK+wMxPxBrArE6EAsDsQAQ8wAxNxAL QeVcgNgJii2BWBuI97sBLSlyY2A2ksLA2MD/M24M/ECaVMxIBkYBAACkDXc=');

if finddtm(EndDTM,x,y,msx1,msy1,msx2,msy2) then

begin
Writeln('Clicked Everything For Today');
Result := true;
end;
FreeDTM(EndDTM);
FreeDTM(EndDTM2);
end;

procedure OneRun;
begin
ClickRecruit;

if (EndOfClicking = true) then
TerminateScript;
end;

begin
SetupSRL;
ClearDebug;
begin
MarkTime(t);
repeat
OneRun;
until(TimeFromMark(t) >= 1500000);
end;
end.

[[XoL]]

Nice job, never heard of the game but cool script!

[rj]

grats on the release