Results 1 to 5 of 5

Thread: It wont find the furnace color plz help

  1. #1
    Join Date
    Jun 2007
    Location
    I live in a hobbit hole.
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default It wont find the furnace color plz help

    ok in line 101 i have the script search for the furnace colors so it can click on it, but nothing happens, the mouse just moves to the top left corner of the screen and doesnt find the color.

    plz post with edit or help


    Edit: Two posts down is newer script so ignore this 1



    SCAR Code:
    program New;
    {.Include SRL/SRL.Scar}

    Var

    BankBoothWords : Integer;
    TheCounter : Integer;
    furnacep : integer;


    Const

    Username = '';
    Password = '';
    Color = 4013377;

    procedure LoadBitmaps;
    begin

      furnacep := BitmapFromString(15, 5, 'z78DA3334353435B470' +
              '3101423308696A028466E6C6A6A626E66E6E1640062E12A206A2D' +
              'EC90408A1261882CD3424CA6427472320DBCDCDC810C61EFC2653' +
              '3F34882171990C0058F36390');

      BankBoothWords := BitmapFromString(158, 18, 'beNrtWVsSwjAI' +
       'zO28gL/e/xhxxjqVBpZXqtVKho88GkJ3CWC9Xm7XkpKSkpJvkf5oa' +
       'PgTNucsb71TSRtjbp/Un9a8ANJaE4ffzOxgZNTyJ6dLmwB/1ZN+IM' +
       '2jrrmYnQT/w8xSPT/HrBlXi9l5Zvu2DbtCqQ0pEdlcYiQ6azVSnNQ' +
       '1ozxLTxTzL8rLr+0gpCvZHC2ZBnhKBYXZtU/bMM8xVDzB5ALxIhpA' +
       'l0xt3LFRnjXmGYnIPUzqkwYQHJBJ0Tsrbhmeb6yJnuDnQgm8fYtkm' +
       'lke1vh1FgEX4JUCI39YN8DTRz5AV808a95N9EamJ8wz6/G3KLMGg6' +
       'iPq+sZBp3Mopy7QkTJ8rBDL6azKNqRWSW2i+73bsCNPHsEswgH5W6' +
       'ifOqpoBD+YsbUKyjkMzzaQGatCioBfvKgyHyovOf5EU2aS7Bul3AW' +
       'lYhDbtjQFy1Rfg1F3y7ajx4UmncefexHhpOd+M+fqd+NMw/Rxexpb' +
       'pC/dC/Z7R+KT0EdqgHOI3fOAcf9');

       TheCounter := BitmapFromString(1, 10, '6C583296897A948779948779736' +
            'C63A59E968C7F6F9686749B8A7685663E');
    end;



    procedure login;
    begin;
      Wait(10000);
      ClickMouseSpline(449, 288, 10, 3, True);  
      Wait(1000+Random(3000));
      WriteLn('Clicked Existing User Button');
      SendKeysWait(Username+Chr(13), 200, 100);
      Wait(1000+Random(1000));
      SendKeysWait(Password, 200, 100);
    end;

    procedure finishlogin;
    begin
      ClickMouseSpline(302, 320, 10, 5, True);
      Wait(5000+Random(2000));
      ClickMouseSpline(333, 337, 10 , 4, True);
      Wait(3000+Random(1000));
    end;

    procedure clearbug;
    begin
      ClearDebug
    end;










    procedure lastfurnacewalk;
    var x, y :integer;
      begin
      repeat
        Wait(50+random(100))
      until(FindSymbol(x, y, 'furnace'))  
          mouseFlag(x,y,1,1);
          end;




    procedure FreeBMPs;
    begin
      FreeBitmap(TheCounter);
      FreeBitmap(BankBoothWords);
    end;



    procedure makeholysymbols;
    var
    x, y : integer;
    begin;
      MouseItem(2, true);
      FindColorTolerance(x, y, color, 5, 5, 514, 336, 5000);  //line 101
      ClickMouseSpline(x, y, 0, 0, true);
      end;


    procedure Ritethescreen;
    begin;
      MakeCompass('n');
      SendArrowWait(0, 3000);
    end;


    begin
      SetUpSRL;
      SymbolAccuracy:= 0.1;
      clearbug;
      loadBitmaps;
      ActivateClient;
      login;
      finishlogin;
      Ritethescreen;
      OpenBankFast('fwb');
      Withdraw(1, 1, 0);
      CloseBank;
       RadialRoadWalk(FindFallyRoadColor, 300, 360, 41, 0, 0);
       RadialRoadWalk(FindFallyRoadColor, 295, 320, 57, 0, 0);
       RadialRoadWalk(FindFallyRoadColor, 295, 320, 73, 0, 0);
       RadialRoadWalk(FindFallyRoadColor, 270, 300, 33, 0, 0);
       lastfurnacewalk;
       makeholysymbols;
      FreeBMPs;
    end.
    http://img511.imageshack.us/img511/3...2bannerlx0.gifhttp://img367.imageshack.us/img367/5641/mybannerst2.gif
    انا عربي حتى لا تكون عنصرية!
    If you have a PSP and you are bored with it go here and look around.

  2. #2
    Join Date
    Dec 2006
    Location
    Boss central
    Posts
    811
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    {.Include SRL/SRL.Scar}

    Var

    BankBoothWords : Integer;
    TheCounter : Integer;
    furnacep : integer;


    Procedure DeclarePlayers;

    Begin
      NumberOfPlayers( 1);
      CurrentPlayer := 0;


      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;

    end;

    procedure LoadBitmaps;
    begin

      furnacep := BitmapFromString(15, 5, 'z78DA3334353435B470' +
              '3101423308696A028466E6C6A6A626E66E6E1640062E12A206A2D' +
              'EC90408A1261882CD3424CA6427472320DBCDCDC810C61EFC2653' +
              '3F34882171990C0058F36390');

      BankBoothWords := BitmapFromString(158, 18, 'beNrtWVsSwjAI' +
       'zO28gL/e/xhxxjqVBpZXqtVKho88GkJ3CWC9Xm7XkpKSkpJvkf5oa' +
       'PgTNucsb71TSRtjbp/Un9a8ANJaE4ffzOxgZNTyJ6dLmwB/1ZN+IM' +
       '2jrrmYnQT/w8xSPT/HrBlXi9l5Zvu2DbtCqQ0pEdlcYiQ6azVSnNQ' +
       '1ozxLTxTzL8rLr+0gpCvZHC2ZBnhKBYXZtU/bMM8xVDzB5ALxIhpA' +
       'l0xt3LFRnjXmGYnIPUzqkwYQHJBJ0Tsrbhmeb6yJnuDnQgm8fYtkm' +
       'lke1vh1FgEX4JUCI39YN8DTRz5AV808a95N9EamJ8wz6/G3KLMGg6' +
       'iPq+sZBp3Mopy7QkTJ8rBDL6azKNqRWSW2i+73bsCNPHsEswgH5W6' +
       'ifOqpoBD+YsbUKyjkMzzaQGatCioBfvKgyHyovOf5EU2aS7Bul3AW' +
       'lYhDbtjQFy1Rfg1F3y7ajx4UmncefexHhpOd+M+fqd+NMw/Rxexpb' +
       'pC/dC/Z7R+KT0EdqgHOI3fOAcf9');

       TheCounter := BitmapFromString(1, 10, '6C583296897A948779948779736' +
            'C63A59E968C7F6F9686749B8A7685663E');
    end;




    procedure clearbug;
    begin
      ClearDebug
    end;










    procedure lastfurnacewalk;
    var x, y :integer;
      begin
      repeat
        Wait(50+random(100))
      until(FindSymbol(x, y, 'furnace'))
          mouseFlag(x,y,1,1);
          end;




    procedure FreeBMPs;
    begin
      FreeBitmap(TheCounter);
      FreeBitmap(BankBoothWords);
    end;



    procedure makeholysymbols;
    var
    x, y : integer;
    begin;
      MouseItem(2, true);
     if FindColorTolerance(x, y, 4013377, 5, 5, 514, 336,20) then  //line 101
      Mouse(x, y, 0, 0, true);
      end;


    procedure Ritethescreen;
    begin;
      MakeCompass('n');
      SendArrowWait(0, 3000);
    end;


    begin
      SetUpSRL;
      SymbolAccuracy:= 0.1;
      clearbug;
      loadBitmaps;
      ActivateClient;
      Declareplayers;
      loginPLayer;
      Ritethescreen;
      OpenBankFast('fwb');
      Withdraw(1, 1, 0);
      CloseBank;
       RadialRoadWalk(FindFallyRoadColor, 300, 360, 41, 0, 0);
       RadialRoadWalk(FindFallyRoadColor, 295, 320, 57, 0, 0);
       RadialRoadWalk(FindFallyRoadColor, 295, 320, 73, 0, 0);
       RadialRoadWalk(FindFallyRoadColor, 270, 300, 33, 0, 0);
       lastfurnacewalk;
       makeholysymbols;
      FreeBMPs;
    end.

    Well i think i finished it but 1 thing i noticed u had a tolorence lvl of like 5000 so it would like find ever single color or something i changed your login stuff
    Being A Boss

  3. #3
    Join Date
    Jun 2007
    Location
    I live in a hobbit hole.
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I gave up on the find color so i found a function that i want to incorporate in place but i dont know how.


    Heres the script im making.

    SCAR Code:
    program New;
    {.Include SRL/SRL.Scar}

    Var

    BankBoothWords : Integer;
    TheCounter : Integer;
    furnacep : integer;


    Procedure DeclarePlayers;

    Begin
      NumberOfPlayers( 1);
      CurrentPlayer := 0;


      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;

    end;

    procedure LoadBitmaps;
    begin

      furnacep := BitmapFromString(15, 5, 'z78DA3334353435B470' +
              '3101423308696A028466E6C6A6A626E66E6E1640062E12A206A2D' +
              'EC90408A1261882CD3424CA6427472320DBCDCDC810C61EFC2653' +
              '3F34882171990C0058F36390');

      BankBoothWords := BitmapFromString(158, 18, 'beNrtWVsSwjAI' +
       'zO28gL/e/xhxxjqVBpZXqtVKho88GkJ3CWC9Xm7XkpKSkpJvkf5oa' +
       'PgTNucsb71TSRtjbp/Un9a8ANJaE4ffzOxgZNTyJ6dLmwB/1ZN+IM' +
       '2jrrmYnQT/w8xSPT/HrBlXi9l5Zvu2DbtCqQ0pEdlcYiQ6azVSnNQ' +
       '1ozxLTxTzL8rLr+0gpCvZHC2ZBnhKBYXZtU/bMM8xVDzB5ALxIhpA' +
       'l0xt3LFRnjXmGYnIPUzqkwYQHJBJ0Tsrbhmeb6yJnuDnQgm8fYtkm' +
       'lke1vh1FgEX4JUCI39YN8DTRz5AV808a95N9EamJ8wz6/G3KLMGg6' +
       'iPq+sZBp3Mopy7QkTJ8rBDL6azKNqRWSW2i+73bsCNPHsEswgH5W6' +
       'ifOqpoBD+YsbUKyjkMzzaQGatCioBfvKgyHyovOf5EU2aS7Bul3AW' +
       'lYhDbtjQFy1Rfg1F3y7ajx4UmncefexHhpOd+M+fqd+NMw/Rxexpb' +
       'pC/dC/Z7R+KT0EdqgHOI3fOAcf9');

       TheCounter := BitmapFromString(1, 10, '6C583296897A948779948779736' +
            'C63A59E968C7F6F9686749B8A7685663E');
    end;




    procedure clearbug;
    begin
      ClearDebug
    end;










    procedure lastfurnacewalk;
    var x, y :integer;
      begin
      repeat
        Wait(50+random(100))
      until(FindSymbol(x, y, 'furnace'))
          mouseFlag(x,y,1,1);
          end;




    procedure FreeBMPs;
    begin
      FreeBitmap(TheCounter);
      FreeBitmap(BankBoothWords);
    end;



    procedure makeholysymbols;
    var
    x, y : integer;
    begin;
      MouseItem(2, true);
     if FindColorTolerance(x, y, 4013377, 5, 5, 514, 336, 10) then  //want to put the function in place of this if possible
      Mouse(x, y, 0, 0, true);
      end;


    procedure Ritethescreen;
    begin;
      MakeCompass('n');
      SendArrowWait(0, 3000);
    end;


    begin
      SetUpSRL;
      SymbolAccuracy:= 0.1;
      clearbug;
      loadBitmaps;
      ActivateClient;
      Declareplayers;
      loginPLayer;
      Ritethescreen;
      OpenBankFast('fwb');
      Withdraw(1, 1, 0);
      CloseBank;
       RadialRoadWalk(FindFallyRoadColor, 300, 360, 41, 0, 0);
       RadialRoadWalk(FindFallyRoadColor, 295, 320, 57, 0, 0);
       RadialRoadWalk(FindFallyRoadColor, 295, 320, 73, 0, 0);
       RadialRoadWalk(FindFallyRoadColor, 270, 300, 33, 0, 0);
       lastfurnacewalk;
       makeholysymbols;
      FreeBMPs;
    end.

    And here is the function i want to incorporate inplace of: FindColorTolerance(x, y, 4013377, 5, 5, 514, 336, 10);


    SCAR Code:
    {Use by writing HandleFurnace(x, y)}

    Const

    FurnColor = 123123123;


    {-By Hermpie -- Small edits by Nava2-}
    Function HandleFurnace(var x1, y1:integer):Boolean;//This Finds The Furnace Using Tpa.
    Var
      FurnTpa: TpointArray;
      Furnace: T2DPointArray;
      H, Hx, Hy, CTS, I, x, y, Timer:Integer;
    Begin
      Timer:=GetSystemTime;
      if not LoggedIn Then Exit;
      CTS := GetColorToleranceSpeed;
      If not CTS = 2 Then ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(X, Y, FurnTPA, FurnColor, MSX1 + 50, MSY1 + 50, MSX2 - 50, MSY2 - 50, 5);
      Furnace:= TPAtoATPAEx(FurnTPA, 30, 30);
      H:=High(Furnace);
      For I := 0 To H Do
      Begin
        MiddleTPAEx(Furnace[i], X, Y);
        MMouse(X, Y, 0, 0);
        Result:=IsUpText('urna');
        If Result Then Break;
        If Not Result Then Wait(1000 + Random(500));
      End;
      If Result Then
      Begin
        GetMousePos(x, y)
        x := x1;
        y := y1;
        Result := True;
      End;
      ColorToleranceSpeed(CTS);
    End;

    If someone could please post a fix or figure out a way to not even need to incorporate the function but do something else instead i would greatly appreciate it.
    http://img511.imageshack.us/img511/3...2bannerlx0.gifhttp://img367.imageshack.us/img367/5641/mybannerst2.gif
    انا عربي حتى لا تكون عنصرية!
    If you have a PSP and you are bored with it go here and look around.

  4. #4
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    FurnColor = 123123123;
    Are you sure the color is '123123123'?
    I dont think so.


  5. #5
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Try this color Instead, Thanks ACA 2:

    SCAR Code:
    1317149

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. why wont this find the color?
    By tazzin44 in forum OSR Help
    Replies: 7
    Last Post: 01-18-2009, 09:55 PM
  2. Replies: 5
    Last Post: 07-31-2007, 07:23 PM
  3. FindColorTolerance Wont find color
    By x13om13e12x in forum OSR Help
    Replies: 2
    Last Post: 06-29-2007, 08:55 AM
  4. Furnace color has changed.
    By WT-Fakawi in forum RS has been updated.
    Replies: 9
    Last Post: 05-13-2006, 03:36 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
  •