Results 1 to 4 of 4

Thread: got 2 probs

  1. #1
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default got 2 probs

    hello there got 2 probs
    1: i made a bitmap and use it with autocolorthis okay it finds the color if finds the bitmap , but the wrong color i took a smal green part of the cactus outside the alkahrid bank then i make a bitmap from it and then use picture to string in scar when i open it i see a green picture full of green thats good but when i zoom in i see orange and green pixels dont know why but i open it i zoom 3 times i only see the green when i zoom in again few times i see green and orange and because of that it will autocolor the furnace...

    2: i was trying to get the color of the kebab shop symbol but cant get this working
    SCAR Code:
    function ToHideTanner:boolean;
    begin
      If Not LoggedIn Then Exit;

      LoadSymbolBitmapColor('kebab shop');
      if (FindSymbol(rx, ry, 'kebab shop')) then
        begin
        (GetSymbolColor(rx, ry, 'kebab shop'))
          begin
            writeln('l');
            MMouse(x, y, 0, 0);
            Mouse(x, y, 2, 2, true);
            Flag;

        end else
        begin
        logout;
        end;
        end;
        begin
        LoadSymbolBitmapColor('tanner');
        if (FindSymbol(x, y, 'tanner')) then
          begin
            MMouse(x, y, 0, 0);
            Mouse(x + 2, y + 2, 0, 0, true);
            Flag;
          end else
            logout;
    end;

    end;
    ehm i dont know where the function safes the color the getsymbol color safes the color somewhere but where or is it not working because it compiles and a few secs later it says succesfully excuted and i dont see a color or were to take the color from..i dont know what to do...

    already thanks

    hermpie


    edit:still need help!!!
    ~Hermen

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    SCAR Code:
    {.include SRL\SRL.scar}
    var
    x,y,rx,ry,KeBobShopColor:integer;
    function ToHideTanner:boolean;
    begin
      If Not LoggedIn Then Exit
      if (FindSymbol(rx, ry, 'kebab shop')) then
      begin
        GetMousePos(x,y)
        KeBobShopColor:=(GetSymbolColorIn  (rx, ry, 'kebab shop',x-10,y-10,x+10,y+10))
        writeln('Kebob Shop Color is: '+IntToStr(KeBobShopColor));
        Mouse(x, y, 2, 2, true);
        Flag;
        end else
        Begin
        KeBobShopColor:=-1;
        writeln('Kebob Shop Color Not Found')
        Logout;
        end;
    end;

    Begin
      ToHideTanner
    End.
    Maybe

  3. #3
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    bit strange why the mouse in it?

    ehm need some help with..
    i wont find ellis the gide tanner pls test it pls

    SCAR Code:
    program HideTannerAndCrafter;
    {.include srl/srl.scar}
    const
    HowMuchHides= 0;

    var
     x, y :integer;
    Ground, Tan :integer;
    TanColor, GroundColor, H, texthard, k :integer;

    Procedure DeclarePlayers;
    begin

         HowManyPlayers  :=1;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;              // CurrentPlayer = Array Index

         Players[0].Name :='';          // runescape username
         Players[0].Pass :='';          // runescape password
         Players[0].Nick :='ran';          // nick, 3 - 4 letters of username
         Players[0].Loc  :='bank';      // you can use 'somewhere' or 'Aereck'
         Players[0].Active:=True;       // active player

         Players[1].Name :='';          // runescape username
         Players[1].Pass :='';          // runescape password
         Players[1].Nick :='';          // nick, 3 - 4 letters of username
         Players[1].Loc  :='bank';      // you can use 'somewhere' or 'Aereck'
         Players[1].Active:=false;       // active player

         Players[2].Name :='';          // runescape username
         Players[2].Pass :='';          // runescape password
         Players[2].Nick :='';          // nick, 3 - 4 letters of username
         Players[2].Loc  :='bank';      // you can use 'somewhere' or 'Aereck'
         Players[2].Active:=false;       // active player

         Players[3].Name :='';          // runescape username
         Players[3].Pass :='';          // runescape password
         Players[3].Nick :='';          // nick, 3 - 4 letters of username
         Players[3].Loc  :='bank';      // you can use 'somewhere' or 'Aereck'
         Players[3].Active:=false;       // active player

         Players[4].Name :='';          // runescape username
         Players[4].Pass :='';          // runescape password
         Players[4].Nick :='';          // nick, 3 - 4 letters of username
         Players[4].Loc  :='bank';      // you can use 'somewhere' or 'Aereck'
         Players[4].Active:=false;       // active player

         Players[5].Name :='';          // runescape username
         Players[5].Pass :='';          // runescape password
         Players[5].Nick :='';          // nick, 3 - 4 letters of username
         Players[5].Loc  :='bank';      // you can use 'somewhere' or 'Aereck'
         Players[5].Active:=false;       // active player

         writeln(inttostr(HowManyPlayers)+' Players');

    end;

    {=====================================================================================]
                DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
    [=====================================================================================}



    {===============================================]
        this function finds randoms by:wt-fawaki
    [===============================================}

    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 9 do
      begin
        case I of
         1:  If FindDead then
               Result := True;
         2:  If FindMod then
               Result := True;
         3:  If FindMime then
               Result := True;
         4:  If FindMaze then
               Result := True;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
               if NoGameTab then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'No GameTab';
                 Logout;
                 Exit;
               end;
             end;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'InBlack';
                 Logout;
                 Exit;
               end;
             end;
         9: begin
               if FindFight then
               begin
                 RunTo('N',False);
               end;
             end;
        end;

      end;
    end;


    function FindText1:boolean;
    begin
      texthard := BitmapFromString2(False, 'a83AB178DA758D410EC02' +
           '00804BF4415108FA5D1FF3FA92E1E34317A1837C32A4444FD1B20' +
           'B70115504C912B2DE3C8C20D26A32F053E19234B981EAF129AC5E' +
           '1D505B9DB322DB69407A6A2AA2F3C4787729BF78DF37065CA3CB9' +
           '4F77BF4FCF7CFBE1DCF203257');
      repeat
      if findbitmap(TextHard,X, y) then
      begin
        writeln('script status:running');
        result:=true
       end;
      until(result=true) or (k=10)
      end;

    procedure GetHides;
    begin
    If Not LoggedIn Then Exit;

    end;


    procedure GetGroundcolor;
    begin
      Ground := BitmapFromString2(False, 'a319B178DA3DCC4112C0200' +
           '803C02F5185408F4AF5FF4FAAE1E06527933088887CED20310E86' +
           '52D7CDB0A00055362D94AB25DDD5D703BC9DFA73B34F5E7A1A1D6' +
           'CA45BB9724D77FC543');
      GroundColor:=AutoColorThis(Ground, 10000, MMX1, MMY1, MMX2, MMY2);
      WriteLn('GroundColor: '+IntToStr(GroundColor));
      FreeBitmap(Ground);
    end;


    procedure GetTanColor;
    begin
      tan := BitmapFromString2(False, 'a51C4C78DA45CC410E80300' +
           '844D12B8DA543E9D26AB9FF91044C74F3F2432600C0DD02D81928' +
           '2D64DFD9E89F34CD962B6C561766D3EB5E0FC6AAFD38B2EBC3AB2' +
           'E66CF1A4D4F65DBA08ABAFF3E8FF');

      TanColor:=AutoColorThis(Tan, 100, MMX1, MMY1, MMX2, MMY2);
      WriteLn('TanColor: '+IntToStr(TanColor));
      FreeBitmap(Tan);
    end;




    function ToHideTanner:boolean;
    begin


      GetGroundColor;
      linearwalk(GroundColor,30,65,x,y);
      wait(3000);
      flag;
      gettancolor;
      radialroadwalk(Tancolor,180,360,60,0,0);


    end;






    function TalkToEllis:boolean;



    begin
      if not loggedin then exit;
      repeat
      X := X + 1

      if (FindObj(x, y, 'llis', 3300743, 50)) then
      begin
        Mouse(x, y, 1, 1, false);
        ChooseOption('ade');
        markTime(H);
        wait(1);
      end;
        until FindText1 or (X > 10)
        begin
        findtext1;
        chooseoption('ll')
        end;
    end;

    function ToBank:boolean;
    begin
    If Not LoggedIn Then Exit;

    end;

    procedure StoreTannedHides;
    begin
    If Not LoggedIn Then Exit;

    end;

    {====================]
          mainloop
    [====================}

    begin
    setupsrl;
    activateclient;
    //ToHideTanner;
    TalkToEllis;
    end.
    ~Hermen

  4. #4
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    my goodnes hermpie, be more carefull.
    i edited you password out of the script :P

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. findcolor probs...
    By macromacro123 in forum OSR Help
    Replies: 3
    Last Post: 11-21-2007, 01:00 AM
  2. probs with dtmrotated
    By cocodog13 in forum OSR Help
    Replies: 4
    Last Post: 10-25-2007, 05:12 PM
  3. Annoying Probs
    By cathering_ in forum OSR Help
    Replies: 5
    Last Post: 07-24-2007, 01:09 PM
  4. bitmap probs
    By macromacro123 in forum OSR Help
    Replies: 6
    Last Post: 03-03-2007, 10:16 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
  •