Results 1 to 6 of 6

Thread: open and deposting all

  1. #1
    Join Date
    Oct 2006
    Posts
    585
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default open and deposting all

    ok here is what i have.. currently it only completes openthegodamnbank; and then finishes.. but here is what i have.. if anyone could help me i would be very happy...
    SCAR Code:
    procedure openthegoddamnbank;
    var
      c: Integer;
    begin
      if (FindObject(x, y, 'Use Bank', 3107204, 5, True)) 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;
    end;
    procedure Deposittheshit(slot, toslot, thetype: Integer);
    var
      slotnumber, col, row: Integer;
    begin
      if (BankScreen) then
      begin
        slotnumber := slot;
        while (slotnumber < toslot) do
        begin
          if ((slotnumber mod 4) = 0) then
            col := 3
          else
            col := (slotnumber mod 4) - 1;
          row := (slotnumber - 1) / 4;
          if (FindColor(x, y, 65536, (571 + 47 * col), (215 + 36 * row), (601 + 47 *
            col), (245 + 36 * row))) then
          begin
            if (thetype = 1) then
              Mouse(x, y, 5, 5, True);
            if (thetype = 2) then
            begin
              Mouse(x, y, 5, 5, False);
              if (ChooseOption(x, y, 'All')) then
                Wait(1000 + Random(100));
            end;
          end;
          slotnumber := slotnumber + 1;
        end;
      end;
    end;
    begin
     SetupSRL;
      repeat
       openthegoddamnbank;
      until(false);
             end.

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  2. #2
    Join Date
    Feb 2007
    Location
    USA
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    why do you have it repeat openthegoddambank until(false)?

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

    Default

    wow we can tell u have a maturity of a 10 year old,

    but in terms of your script, when finding the bank you should rely alot more on bitmaps than colors.

  4. #4
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    if u have to use colors...put tolerance...FindColorTolerance

  5. #5
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    i use:

    SCAR Code:
    begin
    repeat
    OpenBankGlass('veb',False,False);
    until(bankscreen);
    wait(500+random(500));
    DepositAll;
    end;

    then you can put:
    SCAR Code:
    closebank;

  6. #6
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    couldnt he do OpenBankQuiet then make a DTM or bitmap
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. what do i use to open this???
    By sk8terbitu in forum News and General
    Replies: 7
    Last Post: 02-02-2009, 01:35 AM

Posting Permissions

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