Results 1 to 4 of 4

Thread: i got problems with some banking stuff

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

    Default i got problems with some banking stuff

    the includes ins rl with banking are a bit wurse because no mmouse used(most of the time) and that such thinks so i want to make my own i made already openbank but i need help with a withdraw one because thats a bit hard

    :P look at this

    SCAR Code:
    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/xbank.scar}

    procedure withdraw;
    begin


    end.
    ~Hermen

  2. #2
    Join Date
    Jun 2006
    Location
    Canada
    Posts
    1,610
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    um...there is nothing there.

    Accept that the waters around you have grown.

  3. #3
    Join Date
    Aug 2007
    Posts
    282
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont understand... why dont the srl ones work?
    they do use Mouse...

    SCAR Code:
    function OpenBank: Boolean;
    var
      c: Integer;
    begin
      if (FindObj(x, y, 'Use Bank', 539728, 10)) then
      begin
        Mouse(x, y, 1, 1, False);
        if (ChooseOption(x, y, 'quickly')) then
        begin
          Flag;
          repeat
            Wait(100);
            c := c + 1
          until (BankScreen) or (c >= 50);
        end;
      end;
      if BankScreen then Result := True;
    end;

    SCAR Code:
    procedure Withdraw(col, row, Amount: Integer);
    var
      rx, ry: Integer;
    begin
      rx := 35 + (col * 47);
      ry := 27 + (row * 38);
      if (BankScreen) then
      begin
        if (Amount = 1) then
        begin
          Mouse(rx, ry, 0, 0, True);
        end
        else
        begin
          Mouse(rx, ry, 0, 0, False);
          if (Amount = 1) or (Amount = 5) or (Amount = 10) or (Amount = 0) then
          begin
            if (Amount = 5) then
              ChooseOption(rx, ry, 'Withdraw 5');
            if (Amount = 10) then
              ChooseOption(rx, ry, 'Withdraw 10');
            if (Amount = 0) then
              ChooseOption(rx, ry, 'Withdraw All');
          end
          else
          begin
            ChooseOption(rx, ry, 'Withdraw X');
            Wait(1000 + Random(100));
            TypeSend(IntToStr(Amount) + Chr(13));
          end;
        end;
      end;
    end;

    SCAR Code:
    function CloseBank: Boolean;
    var
      CBBM, CBx, CBy: Integer;
    begin
      if not BankScreen then Exit;
      CBBM := BitmapFromString(4, 3, 'z78DA3330000243030CD2C' +
        'CC4D4DC848008320900F6350DC1');
      if FindBitmapToleranceIn(CBBM, CBx, CBy, 450, 30, 500, 50, 50) then
      begin
        MMouse(CBx, CBy, 4, 4);
        GetMousePos(CBx, CBy);
        Mouse(CBx, CBy, 0, 0, True);
        Result := True;
      end;
      FreeBitmap(CBBM);
    end;


    they all use MMouse or Mouse

  4. #4
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Mouse = mmouse + click.. I didn't really understand your post, but I think you meant that the SRL banking stuff is detectable because they don't use MMouse..

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Banking Problems
    By Lance in forum OSR Help
    Replies: 5
    Last Post: 02-20-2009, 12:04 AM
  2. Banking Problems
    By Lance in forum OSR Help
    Replies: 1
    Last Post: 02-18-2009, 02:56 PM
  3. Hermpie's banking proc's and Func's makes banking a piece of a cake!
    By ShowerThoughts in forum Research & Development Lounge
    Replies: 13
    Last Post: 06-11-2008, 03:16 PM
  4. Banking Problems
    By CamHart in forum OSR Help
    Replies: 8
    Last Post: 10-21-2006, 11:13 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
  •