Page 2 of 2 FirstFirst 12
Results 26 to 29 of 29

Thread: lets get an other update :)

  1. #26
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    hmm, why dont you just find the dtm of the tuna itsself, instead of finding its color and checking the uptext?
    i dont know how that would fix the problem, but give it a shot

    also, you didnt post the actual opening bank procedure
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  2. #27
    Join Date
    Nov 2009
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Awkwardsaw View Post
    hmm, why dont you just find the dtm of the tuna itsself, instead of finding its color and checking the uptext?
    i dont know how that would fix the problem, but give it a shot

    also, you didnt post the actual opening bank procedure
    I tried with tuna DTM 2... wast as good as this.
    Posted bank opening before... and it works... kinda good actually.
    I havent been able to open bank and then bank shit... i think you could help me there... i think i mess up some loops or something... and i dont know alot of commands.
    Did u add me to msn yet?

    Code:
    program New;
    {.Include SRL-rsc/SRL_rsc.scar}
    {.include srl/srl/misc/Reports.scar}
    
    const
      banker_col = 65536; //color of the banker
      fish_col =   7368816;
    
    function Guptext(uptext : string; var x, y : integer): boolean;
    var dtm : integer;
    begin
      case lowercase(uptext) of
        'banker' : DTM := DTMFromString('78DA639CC9C0C0C0C98001F8819811CA66EC0' +
           '612EC0C58015CCD2A20C14B40CD444C35FFFFA3A959896917BA1A' +
           '00E57C074F');
        'talk' : DTM := DTMFromString('78DA63CC6664603060C000FC40CC086533466' +
           '257C380ACA60AC8D225A0A602C832C1AF0600DE010293');
        'answer' : DTM := DTMFromString('78DA635CCBC0C0C0C98001F881981188FF030' +
           '1E37220839D012B6084D10F885033014870E3570300C57A06FA');
    'tuna' : DTM := DTMFromString('78DA634C626460B8CE8002162F5ECCC00FA41' +
           '9A17CC63820EB0EAA9A90504B881C4C4D25907501554D414101AA' +
           '9A1020EB2A7E350042900A6C');
        'deposit' : DTM := DTMFromString('78DA637CC3C0C0C0C7C8800EF8811824FA1F0' +
           '818B7810430D53040D580692146C26A8E020951026A98812C1EFC' +
           '6A00BFE406E6');
      end;
      result := finddtm(dtm, x, y, rssx1, rssy1, rssx2, rssy2);
      freedtm(dtm);
    end;
    
    procedure DepositAll1;
    var
      cts, a, x, y : integer;
      tpa : TPointArray;
    begin
      cts := getcolortolerancespeed;
      colortolerancespeed(3);
      findcolorsspiraltolerance(rsscx, rsscy, tpa, fish_col, rssx1, rssy1, rssx2, rssy2, 2);
      if length(tpa) < 50 then exit;
      for a := 0 to 50 do
      begin
        mmouse(tpa[a].x, tpa[a].y, 0, 0);
        if Guptext('tuna', x, y) then
        begin
          mouse(tpa[a].x, tpa[a].y, 0, 0, false);
          wait(100 + random(200));
          if Guptext('deposit', x, y) then
          begin
          MoveMouse (427, 295)
          wait(300 + random(200));
            ClickMouse (427, 294, True);
          end else
           wait(10 + random(100));
               end;
        wait(10 + random(100));
      end;
      wait(2000 + random(500));
    end;
    
    procedure IFintalk;
    var
      x, y : integer;
    begin
    if not Guptext('answer', x, y) then
    exit;
      while Guptext('answer', x, y) do
      begin
           wait(1000 + random(1000));
        mouse(x, y, 0, 0, true);
        wait(10000 + random(500));
      end;
      wait(700 + random(453));
      DepositAll1;
    end;
    
    procedure TalkBanker;
    var
      cts, a, x, y : integer;
      tpa : TPointArray;
    begin
      cts := getcolortolerancespeed;
      colortolerancespeed(3);
      findcolorsspiraltolerance(rsscx, rsscy, tpa, banker_col, rssx1, rssy1, rssx2, rssy2, 2);
      if length(tpa) < 50 then exit;
      for a := 0 to 50 do
      begin
        mmouse(tpa[a].x, tpa[a].y, 0, 0);
        if Guptext('banker', x, y) then
        begin
          mouse(tpa[a].x, tpa[a].y, 0, 0, false);
          wait(100 + random(200));
          if Guptext('talk', x, y) then
          begin
          wait(100 + random(200));
            mouse(x, y, 20, 5, true);
            break;
                 end;
        wait(100 + random(100));
        end;
        wait(100 + random(100));
      end;
      wait(3000 + random(500));
      IFintalk;
    end;
    
    begin
      setuprsc;
      repeat
        TalkBanker;
        wait(10 + random(20));
        until(false);
    end.
    I think that peace of code was the one i was testing yesterday... dont remember cause i was tierd and high and got frustrated lol.

    Im not at failsafes yet... all these ifs and thens are confusing me lol.
    Copy paste coding sucks... but atleast im trying ^^
    Last edited by r4it; 11-29-2009 at 04:35 PM.

  3. #28
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    add in some writeln's so you know exactly where it messes up, also make a "while (not bankscreenopen) do wait(100 + random(10));" function right after you finish talking, and before you deposit. also add in the fail safe before you deposit
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  4. #29
    Join Date
    Nov 2009
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Awkwardsaw View Post
    add in some writeln's so you know exactly where it messes up, also make a "while (not bankscreenopen) do wait(100 + random(10));" function right after you finish talking, and before you deposit. also add in the fail safe before you deposit
    Will start with it toworrow i think... training combat atm
    Tyvm for suggestions.

    Edit:

    I still dont have no idea how to do walking without it being detected.
    Walking is done with mmouse and cordinates?

Page 2 of 2 FirstFirst 12

Thread Information

Users Browsing this Thread

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

Posting Permissions

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