Results 1 to 3 of 3

Thread: Clay softener help

  1. #1
    Join Date
    Mar 2009
    Location
    About six feet off the ground.
    Posts
    95
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Unhappy Clay softener help

    Sorry, I keep making new threads...

    I just made a clay softener using only basic colors, clicking and bitmaps. It compiles and runs great, but when it runs it clicks in the top left of my browser instead of on the empty jug.

    Ironically, the color clicking works great... It clicks in the fountain fine, but then it terminates the script like my failsafe says (woot, go failsafe!).

    Here's the script. I won't be on again tonight as far as I know, but I'll check in the morning (currently 9:47 pm here), so if anyone could help me, that would be great. Thanks, all.

    SCAR Code:
    program RoflAgain;
    {.include SRL/SRL.scar}
    var
      x, y, Clay, Jug, Water, MakeAll, MakeAllText: Integer;
    const
      NumberOfClay = 4; //Number of clay you intend to make in one bout
    procedure DeclareBMPs;
    begin
      Clay := BitmapFromString(21, 14, 'beNp9kmtLAkEUhu2f+DEiIsk+' +
           '5EJtFiYbWVJklGQ3LCNCKoiQCJEKkW6IdL9BRBARIUhEP64HDxym3' +
           'UV4GWYP8z77njNjheJ2GDnDEdmIhqxQINBmiopX8f6w6VJx/nQveX' +
           '84WzuYZhOz2k1IzO5Rgu5d9udy+u1s4fF47qY0U92fAlLeSQjBtBP' +
           'A9EqRY/Xr1cbt2mdt5aUyD8TVi4YxXWiwr0sJprqDQVYCnBcmC7mR' +
           'bCqSiHZS0bQthFfstEMY2gEivYi3uOmU8qNHW2MUK7sTdEoln7HT4' +
           '73OQIcOzTcSh6ExH+Z8VUwBZ8MnRVBgtxej2qwkUVHkghgOo0ZkY6' +
           'UCBBQcIDJ2snkfgHT0frGEPqrLrNIgEJhwBGIO4d/LafYu14S+LrM' +
           'KeT3JCEeNLq9enMB/nza+73KgBCJSr7wQH3uzLnNAPw/rxACCfAO3' +
           'kEK8zfr8/Q+FZOMe');
      Jug := BitmapFromString(25, 28, 'beNqNlVtLW0EUhe2PsM95EPoiq' +
           'LQIKqiYiCEQGqxiJSgheEklhBCCTU1tCKm3aoiNtxhvtJSK/9IPNm' +
           'w2MyeHwEbmjHO+s/aaNZOpsfjsB1sDA29CylkcUiwu5nKlnZ2vhUK' +
           '1VKrt7jb29o5+7DcbjfbxcTIe75PGsvzGRmFrC1o5n/9WLO6Xy3Ba' +
           'Bz/hXP46gb+2stKPPBZsZzJCE2GgTut1IJ1mUwqRLEglEixOxCZDW' +
           'ttcX/uSzbJYhNUrFSTd/T4Hcn12SpsqbDQSoXqhMqur2XQaYdAQxl' +
           'sH36uoOj86hIM2kZSYnxdUeIP4w0dFGz3yiPMK5JFvhUuyNDqiu/T' +
           'SEkA0WCDzC3Nz/WeDBc/3d7hEj58XFwFCYAwWqe9HRybHx2MzMwRj' +
           'OfXR0pxd4F/YAoqiI4BwCBjC8BACasVP4HxFkwbHRwnn5fFBir2jN' +
           'XlXwia5PanVeMRY+H6nzPy9ubEoHuGgjYChjT2V3DLDPED4tEnLls' +
           'a422o5kpgRFEqEBop3R4aHWc9BYB4DSazMCAdn/ne7DorzYlFwEKb' +
           'RomgTPqZp0hg8tNsOhzFxkkYsCosIMxYxfrq8YA0DQfGXJAvHoljG' +
           'SaELRYldoNhWHsV5kSehtW5bGnunKOs8r5Nb6u3goEK0O8tRGkb5K' +
           'HoERbF374aGhOZnyda/246DokdBIQxJmE/yHVogil3AQM4jhvgovC' +
           'IDxB6ac7p9GolSlOYBFCXdkX/2cXpiwr9wHFogCru0O7LEqZGLIgT' +
           'FhnJzcq7JrY2WI4l741MyGXgNKu3P9VUgCqNUkl5Zva5BoQWipDv0' +
           'WIJUdGqs19VHg+wgEdU8oAcxDsS/7gJpKgkxmONDQgqR9hPO73s/k' +
           'Ogr4Qjddg==');
      Water := BitmapFromString(25, 28, 'beNqNld9Lk1EYx+2PsGsvhG4' +
           'ElUJQIcUfNAYjMcNkKmPotmSOscZ81XTMZWpzzZY/5sykiH5cRrfR' +
           'ZZfRRVDQP9MnHng4nPPuZfAg5z077+f9Pt/zPcfh/tDoLbM6Oq4Fl' +
           'LU4oFicTaVyKytrmcxmLlcsFMobG3vbW9Vyub6/HwmF2qSxLL20lE' +
           'kkoOXT6fVsdiufh1PbfQLn+NkB/IXZ2XbksSAZiwlNhIGqlEpAGtW' +
           'qFCJZMBUOszg8MRTQ2vLiwsN4nMUirOR5SLp4cQTk9LBCmyqsr6uL' +
           'aoWKzc3Fo1GEQUMYb+0+3izt/KpUfzfO/6JNJIUnJwUV3CD+8FHRl' +
           'kh+Tq9+zT36XvB+AHxe+8OvfCtYkkmjI7qLzsxE569i8Y/J1JfVzD' +
           'eAa+s/mb8zNtZ+Nljw4dUFLtHjg+lpFEJgTGtIvdnXOzQwMDEyQjD' +
           'uT901adYu8BP2gqKO9p4ChEPAaA0PIaBW/ATOVzRpcFyUcD69vpRi' +
           '7zBf3pWwSW4PikUeMRa+2ykzb8/OTBSP/zfR8wgY2thTyS0zzAOET' +
           '5u0bNIYN2s1SxIzgkKJ0EDxbm9PD+s5CMxjIImVGeHgzPtm00JxXk' +
           'wUHIRptCjahI9pmjQGl/W6xWHMqZFGTBQWEWYsYnx1/JI1DATFX5I' +
           'sHBPFMk4KXShK7ALFtvIozos8Ca3ptklj7xRlOs/rHHbqemenQrQ7' +
           'k6M0jHJR9AiKYu9udHcLzc2SWe/OGxaKHgWFMCRhPsm3aL4odgEDO' +
           'Y8Y4qLwigwQe2jW6XZpJEpRmgdQlHRH/tnH24OD7oVj0XxR2KXdkS' +
           'VOjVwUASg2lJuTc01uzWhZkrg37kUivteg0t6cnviiMEol6ZXV6ho' +
           'Umi9KukOPSZAaH+5vdfXRIDtIRDUP6EGMBXGvO1+aSkIM5riQgEKk' +
           '+Qnr/3s7kPF/48zhcw==');
      MakeAll := BitmapFromString(42, 31, 'beNq1lj1KBEEQhdP135OYG' +
           'BiIGCwIGyjCgqyggYmBgYGBgdfRRA+yLIsXWDHwKD6opSi6q7qrah' +
           'Qey2zP9Hzvven5mb9+L9+lLo43VU1Pt1TNxrrk3PHhiPW1eIMA4g2' +
           'L7iHenm2rksdPjjZYJwcjiNAFPRrQQkPyMJyhrgLo1Xzd/M/nR0FP' +
           'EBt0FhngKmT2EPFuoshvgMTBC7oVSoUOp+dwTicNOqlLvD/faSvRA' +
           '618DFoRulCL3jXA2XO4roc2HWueglunerj0Kkqn+w507MoRa7TfAN' +
           'FpPEEc4oSbx6Cc+zjdjaqBVumUnZ51+JsgWvTaQ5uOwYH0bglq+Ux' +
           '/utoLyV8CSdKLtz9NjBoI2eASiuAQT/k/Ohuw6HS25+uAujYKOpcv' +
           '3zJ18ARddWItQknHrgQ6VAKkovGYlcdYNl5u9qE/KUGiJV1FE7dQt' +
           'AS1dg9dNeAvoR081Hy3B7V/i47PafwWbxYn1IO2LjqjOXsidYOuXn' +
           'T5IVc3HzXg7NxJ9yx753pTXzHcOddO287UuRuN0Byc0MRd/QKT81k' +
           'N');
      MakeAllText := BitmapFromString(34, 8, 'beNr7/x8CGBgYYkPcSU' +
           'JwjRC9EC6aFJxNuS24TMZqC7Jj0GTx2IIG8NuC1fsQLi6LkNXAlRG' +
           '0BW4FHu9TGGJ4ggvNAVSMF7TQwJo2yLMFa2rEkwBIsAUAUKXLPg==' +
           '');
    end;
    procedure Idle;
    begin
      while not IsKeyDown(chr(13)) do
        Wait(10);
    end;
    procedure FillJug;
    var
      rx, ry: Integer;
    begin
      if FindColor(x, y, 9603172, 263, 286, 765, 612) then
        Begin
          FindBitmap(Jug, rx, ry);
          MouseSpeed := 6
          MoveMouseSmooth(rx, ry);
          Wait(500+random(500));
          Mouse(rx, ry, 10, 10, true);
          Wait(1000-random(500));
          MoveMouseSmooth(x, y);
          Wait(500+random(500));
          Mouse(x, y, 0, 0, true);
          Wait(1000+random(500));
        end else
          WriteLn('Error. Jug not filled. Terminating.');
          TerminateScript;
    end;
    procedure SelectClay;
    var
      rx, ry: Integer;
    begin
      if FindBitmap(Water, x, y) and FindBitmap(Clay, rx, ry) then
        Begin
          MouseSpeed := 7;
          MoveMouseSmooth(x, y);
          Wait(500+random(500));
          Mouse(x, y, 10, 10, true);
          Wait(1000-random(500));
          MoveMouseSmooth(rx, ry);
          Wait(500+random(500));
          Mouse(rx, ry, 10, 10, true);
          Wait(1000-random(200));
        end else
          Begin
            WriteLn('One or more bitmaps not found: Water, Jug. Terminating.');
            TerminateScript;
          end;
    end;
    procedure StartMakeAll;
    begin
      if FindBitmap(MakeAll, x, y) then
        Begin
          MouseSpeed := 5;
          Wait(500+random(500));
          MoveMouseSmooth(x, y);
          Wait(500+random(500));
          Mouse(x, y, 10, 10, false);
          Wait(500+random(750));
        end else
          Begin
            WriteLn('Error in finding Make All picture. Terminating script.');
            TerminateScript;
          end;
    end;
    procedure FinishMakeAll;
    begin
      if FindBitmap(MakeAllText, x, y) then
        Begin
          MouseSpeed := 8;
          Wait(1000+random(500));
          MoveMouseSmooth(x, y);
          Wait(2000-random(1000));
          Mouse(x, y, 5, 5, true);
          Wait(1000-random(500));
        end else
          Begin
            WriteLn('Error in finding Make All text. Terminating.');
            TerminateScript;
          end;
    end;
    procedure EntireMakeAll;
    begin
      StartMakeAll;
      FinishMakeAll;
    end;
    procedure Proggy;
    begin
      WriteLn('This script was brought to you by the number 69.');
      WriteLn(' ');
      Wait(500+random(500));
      WriteLn('------------------------------------------------');
      WriteLn(' ');
      WriteLn('Your clay has been successfully softened.');
      WriteLn('Softened '+IntToStr(NumberOfClay)+' clay.');
      Wait(500+random(500));
    end;
    begin
      Idle;
      DeclareBMPs;
      FillJug;
      SelectClay;
      StartMakeAll;
      FinishMakeAll;
      EntireMakeAll;
      Proggy;
    end.

    Once again, sorry to all for making so many threads. I don't want an infraction for that, so if there's any way around making new threads anytime something comes up, let me know.
    ~Zeek
    Last major script: November 2009
    Attempted to rejoin: January 2011
    Rejoining: [][][][][]
    Current task: writing basic alching script

  2. #2
    Join Date
    Mar 2009
    Location
    Ireland
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Are you sure you targeted runescape, instead of your browser?

    The Mouse shouldnt even look outside the specific client window.


    On a side note, use MMouse, instead of MoveMouseSmooth, to move the mouse, because the MMouse uses a random line, instead of a straight line, so its less detecable by Jadex

  3. #3
    Join Date
    Mar 2009
    Location
    About six feet off the ground.
    Posts
    95
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ha ha. Dang...
    That's what I did wrong. Thanks.
    ~Zeek
    Last major script: November 2009
    Attempted to rejoin: January 2011
    Rejoining: [][][][][]
    Current task: writing basic alching script

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
  •