Results 1 to 5 of 5

Thread: What is going wrong?

  1. #1
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default What is going wrong?

    Ok.
    So I have been trying to make a script that will level up my neighbor's account in AdventureQuest Worlds while he is away on vacation (I'm getting paid ), so I finished a script that I think is pretty decent. It uses Nielsies "Appa" plugin, so it can be minimized and such. Problem is, none of my procedures work. Can anyone help me out?

    SCAR Code:
    program AQWorldsOwner;
    {.include SRL/SRL.scar}
    {.plugin Plugins/Appa.dll}

    const
    //----------setup----------//
    Username = '';
    Password = '';
    //----------endof----------//

    var
      t: Integer;
      x, y: Integer;

    function appa_NavigateTo(URL: string; TimeOut: Integer): Boolean;
    var
      t: Integer;
    begin
      Result := False;
      if (not appa_Showing) then
        Exit;
      if (URL <> '') then
        appa_Navigate(URL);
      t := GetSystemTime + TimeOut;
      while (not appa_PageLoaded) and appa_Showing and (GetSystemTime < t) do
        Wait(250);
      Result := appa_PageState >= 3;
    end;

    procedure LoadAQ;
    begin
      appa_ShowForm; //Show the form
      appa_NavigateTo('', 10000); //Wait until it's fully loaded
      appa_NavigateTo('http://aqworlds.battleon.com/game/default.asp?size=tiny', 10000); //Navigate to aqworlds.com
    end;

    procedure LogMeInUser;
    var
      x, y: Integer;
    begin
      if (not(FindColor(x, y, 16777215, 295, 178, 451, 190))) then
       Exit;
      if FindColor(x, y, 16777215, 295, 178, 451, 190) then
      begin
        appa_MoveMouse(x, y);
        wait(100);
        appa_HoldMouse(x, y, true);
        wait(30);
        appa_ReleaseMouse(x - 150, y, true);
        wait(1000);
        TypeSend(Username);
        wait(1000);
      end;
    end;

    procedure LogMeInPass;
    var
      x, y: Integer;
    begin
      if (not(FindColor(x, y, 16777215, 295, 206, 451, 217))) then
       Exit;
      if FindColor(x, y, 16777215, 295, 206, 451, 217) then
      begin
        appa_MoveMouse(x, y);
        wait(100);
        appa_HoldMouse(x, y, true);
        wait(30);
        appa_ReleaseMouse(x - 150, y, true);
        wait(1000);
        TypeSend(Password);
        wait(1000);
      end;
    end;

    procedure LogMeInButton;
    var
      x, y: Integer;
    begin
      {if (not(FindColor(x, y, 2045101, 395, 252, 410, 260))) then
       Exit;
      if FindColor(x, y, 2045101, 395, 252, 410, 260) then
      begin
      if (not(FindBitmap(LoginDTM, x, y))) then
        Exit;
      if FindBitmap(LoginDTM, x, y) then
      begin
        appa_MoveMouse(x, y);
        wait(100);
        appa_HoldMouse(x, y, true);
        wait(30);
        appa_ReleaseMouse(x, y, true);
        wait(4000);
      end;}

      appa_MoveMouse(373, 258);
      wait(100);
      appa_HoldMouse(373, 258, true);
      wait(30);
      appa_ReleaseMouse(373, 258, true);
      wait(4000);
    end;

    procedure ChooseServer;
    begin
      appa_MoveMouse(255, 195);
      wait(100);
      appa_HoldMouse(255, 195, true);
      wait(30);
      appa_ReleaseMouse(255, 195, true);
      wait(10000);
    end;

    procedure AQWLogin;
    begin
      LogMeInUser;
      LogMeInPass;
      LogMeInButton;
      ChooseServer;
    end;

    procedure MapToLolosia;
    begin
      appa_MoveMouse(544, 383);
      wait(100);
      appa_HoldMouse(544, 383, true);
      wait(30);
      appa_ReleaseMouse(544, 383, true);
      wait(3000);
      appa_MoveMouse(504, 183);
      wait(100);
      appa_HoldMouse(504, 183, true);
      wait(30);
      appa_ReleaseMouse(504, 183, true);
      wait(2000);
      appa_MoveMouse(578, 296);
      wait(100);
      appa_HoldMouse(578, 296, true);
      wait(30);
      appa_ReleaseMouse(578, 296, true);
      wait(10000);
    end;

    procedure FightTheFish;
    var
      x, y: Integer;
    begin
      if (not(FindColor(x, y, 2045101, 395, 252, 410, 260))) then
      repeat
        FindColor(x, y, 2045101, 395, 252, 410, 260);
        wait(250);
      until(FindColor(x, y, 2045101, 395, 252, 410, 260));
      appa_MoveMouse(x, y);
      wait(100);
      appa_HoldMouse(x, y, true);
      wait(30);
      appa_ReleaseMouse(x, y, true);
      wait(20000);
      end;
    end;

    procedure RestUp;
    begin
      appa_MoveMouse(526, 382);
      wait(100);
      appa_HoldMouse(526, 382, true);
      wait(30);
      appa_ReleaseMouse(526, 382, true);
      wait(10000);
    end;

    begin
      LoadAQ;
      LoadBitmaps;
      AQWLogin;
      MapToLolosia;
      repeat
        FightTheFish;
        RestUp;
      until(IsFKeyDown(12));
    end.

  2. #2
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    probobly the plugin, iv never played adventure quest so i cant help out much.

    but what exactly is the problem?
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  3. #3
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    well, for some reason, the FindColor just isn't working.
    it should be targeting the Appa client since it has the internal functions. So I are confusssed...

  4. #4
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Runaway Cop View Post
    well, for some reason, the FindColor just isn't working.
    it should be targeting the Appa client since it has the internal functions. So I are confusssed...
    Try it without the Appa client. If it works without Appa, post on nielsie95's Appa thread.

    btw Adventure Quest Sucks..
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  5. #5
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by noidea View Post
    Try it without the Appa client. If it works without Appa, post on nielsie95's Appa thread.

    btw Adventure Quest Sucks..
    Will do

    Oh, and I know it sucks. That's why i'm making a script. I cant stand playing it any more

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
  •