Results 1 to 3 of 3

Thread: Wont click on AutoColorThis

  1. #1
    Join Date
    Nov 2006
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Wont click on AutoColorThis

    It wont click. I am on GoToWillows. It does the first Walk but then it wont find the next one.

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}


    var
    Tele,Oak2,GroundColor,GroundBMP: integer;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;



      Players[0].Name := 'lureing owns';
      Players[0].Pass := '11085llkbb';
      Players[0].Nick := 'ure';
      Players[0].Active := True;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure DeclareBMPS;
    begin
      Tele := BitmapFromString(21, 21, 'z78DACD96510E83201044AF54' +
           '60557E6994FB1FA9A9FA413399CD20B5A9241B83C29B5D94C156B' +
           '39427B3929E679C6DB578C6A6FFF1BE821F3FC6C20C6DB49D6B2D' +
           '5DE0E62DAF3561A41A908E4FA147217628410AD1C6B8610A31563' +
           'F520D983BE851B84B594ACD18250D983B541BB98CE82B410DEC0B' +
           'C4AC59BE694A366F18FD3AB00AF472EBDEDA5147CF350D4AB58F9' +
           '95B16D28F7BA681AD824F6FB90A1D3550BA903BA363BB837E63E5' +
           'FFE0ABBBA661E48F3B9D05F69C1FED369D5EF6B59D96798DE06E4' +
           '32EC3DC0D9DCE759C5E8765ABAC9C40864E176C4E5F89500D7AB2' +
           '1A61296FEAA726617D5F65A640EE');

      Oak2 := BitmapFromString(2, 2, '202816FF4027304006405016');

      GroundBMP := BitmapFromString(5, 5, 'z78DA333535363774351D6424' +
           '007EB4203B');

    end;
    //////////////////////////////////////////////////////////////////////
    Procedure Setup;
    begin
      SetupSRL;
      DeclareBMPS;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      ClearDebug;
      MakeCompass('N');
      SetRun(true);
    end;
    ////////////////////////////////////////////////////////////////////
    Procedure GetToLumb;
    begin
     Gametab(7);
     if(FindBitmap(Tele, x, y))then
        begin
          MMouse(x, y, 1, 1);
          Mouse(x, y, 1, 1, True);
          Wait(19000+random(2000));
          GameTab(4);
        end;
        FreeBitmap(Tele);
    end;
    /////////////////////////////////////////////////////////////////////
    procedure GetToLog;
    begin
      RadialRoadWalk(FindRoadColor, 55, 75, 70, 0, 0);
      RadialRoadWalk(FindRoadColor, 60, 110, 70, 0, 0);
      RadialRoadWalk(FindRoadColor, 95, 64, 50, 0, 0);
      RadialRoadWalk(FindRoadColor, 336, 356, 64, 0, 0);
      RadialRoadWalk(FindRoadColor, 300, 343, 52, 0, 0);
      RadialRoadWalk(FindRoadColor, 320, 400, 64, 0, 0);
      RadialRoadWalk(FindRoadColor, 296, 341, 25, 0, 0);
    end;
    /////////////////////////////////////////////////////////////////////
    procedure GetToOak;
    begin
      RadialRoadWalk(FindRoadColor, 55, 75, 70, 0, 0);
      RadialRoadWalk(FindRoadColor, 60, 110, 70, 0, 0);
      RadialRoadWalk(FindRoadColor, 95, 64, 50, 0, 0);
    end;
    /////////////////////////////////////////////////////////////
    procedure GetToWillow;
    begin
      RadialRoadWalk(FindRoadColor, 55, 75, 70, 0, 0);
      GroundColor := AutoColorThis(GroundBMP,80,MMX1,MMY1,MMX2,MMY2);
      RadialWalk(GroundColor, 359, 304, 65, 0, 0);
    end;
    /////////////////////////////////////////////////////////////
    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 14 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindMod then
              Result := True;
          4: if FindMime then
              Result := True;
          5: if FindMaze then
              Result := True;
          6: if FindQuiz then
              Result := True;
          7: if FindDemon then
              Result := True;
          8: if FindScapeRune then
              Result := True;
          9: if FindTalk then // Call it twice
              Result := True;
          10: if FindLamp(LampSkill) then // Maybe we missed it?
              Result := True;
          11: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
          12: if FindTrade then
              Result := True;
          13:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].Rand := 'No GameTab';
                //Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          14: if RC then
              Result := True;
        end;
        if Result then
          Break;
        Wait(1);
      end;
      SaveToChatLog;
    end;
    //////////////////////////////////////////////////////////////////////
    procedure findrandoms;
    begin
    FindFastRandoms;
    FindNormalRandoms;
    end;
    //////////////////////////////////////////////////////////////
    procedure antiban;
    begin
     case Random(10) of
      2:begin
       MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
       end;

      4:begin
          HoverSkill('Woodcutting', False);
          wait(2000+random(1000));
          GameTab(4);
        end;

      5: PickUpMouse;

      6:begin
        MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
        end;

      8: BoredHuman;

      9: begin
             GameTab(1 + Random(12));
             wait(1000+random(1000));
             GameTab(4);
           end;
     end;
    end;


    /////////////////////////////////////////////////////////////
    procedure choppingOak;
    begin
     if(FindBitmap(Oak2, x, y))then
      begin
       MMouse(x,y,2,2);
        if(IsUpTextMulti('hop down Oa', 'down Oak', 'own O')) or (IsUpTextMulti('Oak', 'ak', 'Oa'))then
        Mouse(x,y,2,2,false);
        if (ChooseOption(x,y,'Chop down'))then
        begin
        Mouse(x,y,2,2,true);
        findrandoms;
        antiban;
      end;
      end;
    end;

    begin
    Setup;
    GetToLumb;
    GetToWillow;
    end.

    can someone help?

  2. #2
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    pm ur new pw too u, next time be careful.

    In terms of ur problem does it actually find the color?

  3. #3
    Join Date
    Apr 2007
    Posts
    220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe you set up the start and endradial not up right. Make it have a wider range so that it can find it.
    And BTW isn't it better to put
    SCAR Code:
    Flag
    or
    SCAR Code:
    FFlag(5)
    between your radialwalks?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help. Wont Click bitmap?
    By 0wn 4 skill in forum OSR Help
    Replies: 8
    Last Post: 07-05-2008, 12:51 PM
  2. Wont Right-Click???
    By Rora in forum OSR Help
    Replies: 3
    Last Post: 11-10-2007, 06:20 PM
  3. it wont walk(click)
    By sjlou in forum OSR Help
    Replies: 16
    Last Post: 09-14-2007, 11:51 PM

Posting Permissions

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