Results 1 to 3 of 3

Thread: DarkThrone MMORPG AutoRecruiter

  1. #1
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default DarkThrone MMORPG AutoRecruiter

    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:

    Simba Code:
    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('mbQAAAHicY2VgYDjMxMCwD4gPAfExIN4PxLWMDAyNUFwBxOVAbOYoxsAIpY1tRRhEREQYuID60TEjFgwGAKKpCF4=');

      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('mKgEAAHic42NgYJjByMAwB4hvArE8EwNDBBAnAfFLIH8PEHcDcQAQSwHxO6B6OyCdDsTqQCwL0gPESkCsBsT6QKwDxNpobA0gVoFiBjd9BnSwf38amH5/JgxM/z+TxjB/aRrDfjcGuDgXkCYHM5KJUQEAItQVXA==');
        EndDTM2 := DTMFromString('mFQEAAHic42VgYEhjYmB4CqQ5GBkYHIF4FRBzAMUagXgKEOcBsRYQ3weK+wMxPxBrArE6EAsDsQAQ8wAxNxALQeVcgNgJii2BWBuI97sBLSlyY2A2ksLA2MD/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.
    07Scripter
    I mostly write private scripts

  2. #2
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

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




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  3. #3
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    grats on the release

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •