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

Thread: JJ's Pie Shell Maker

  1. #26
    Join Date
    May 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hi all, For them who don't want to make pastry doughs here the code. I have edited some and Be in alkharid bank. Just keep pastry doughs, dishes as the order above. Please test it. I have not tested but i think it works. Don't forget to get your camera to lowest. Then it works well.

    Simba Code:
    program PieShellMaker;
    {$DEFINE SMART}
    {$i srl/srl.simba}

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := '';      //Enter username
      Players[0].Pass := '';      //Enter password
      Players[0].Pin := '';      //Enter pin (later in script aswell!!)
      Players[0].Active := True;
    end;

    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 1;
      Smart_Members := False;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
    end;

    procedure BankingII;
    var
    b, Dish, Dough, X, Y:Integer;

    begin
    b:=0

    repeat
      begin;
        OpenBank('akb', True, True);
          if(PinScreen) then
            InPin('');         //Enter your pin between the ''
          if(BankScreen) then
            Deposit(1, 28, True);

          case random(36) of
            0..9: begin;
                Withdraw(2, 0, 5);
                Withdraw(2, 0, 9);
              Withdraw(3, 0, 5);
                Withdraw(3, 0, 9);
               end;

            10..19: begin;
                Withdraw(2, 0, 9);
                Withdraw(2, 0, 5);
              Withdraw(3, 0, 9);
                Withdraw(3, 0, 5);
               end;

          20..23: begin;
                Withdraw(3, 0, 5);
                Withdraw(3, 0, 9);
              Withdraw(2, 0, 5);
                Withdraw(2, 0, 9);
               end;

          24..27: begin;
                Withdraw(3, 0, 9);
                Withdraw(3, 0, 5);
              Withdraw(2, 0, 9);
                Withdraw(2, 0, 5);
               end;

          28..29: begin;
                Withdraw(2, 0, 9);
                Withdraw(2, 0, 5);
              Withdraw(3, 0, 5);
                Withdraw(3, 0, 9);
               end;

          30..31: begin;
                Withdraw(3, 0, 9);
                Withdraw(3, 0, 5);
              Withdraw(2, 0, 5);
                Withdraw(2, 0, 9);
               end;

          32: begin;
                Withdraw(3, 0, 9);
                Withdraw(2, 0, 5);
              Withdraw(3, 0, 5);
                Withdraw(2, 0, 9);
               end;

          33: begin;
                Withdraw(3, 0, 5);
                Withdraw(2, 0, 9);
              Withdraw(3, 0, 9);
                Withdraw(2, 0, 5);
               end;

          34: begin;
                Withdraw(3, 0, 5);
                Withdraw(2, 0, 9);
              Withdraw(3, 0, 5);
                Withdraw(2, 0, 5);
               end;

          35: begin;
                Withdraw(3, 0, 9);
                Withdraw(2, 0, 9);
              Withdraw(3, 0, 5);
                Withdraw(2, 0, 5);
               end;

          36: begin;
                Withdraw(3, 0, 5);
                Withdraw(2, 0, 5);
              Withdraw(3, 0, 9);
                Withdraw(2, 0, 9);
               end;
        end;

          CloseBank;
          Wait(100 + Random(100));
      end;

      begin;
        if GetCurrentTab = (tab_Inv) then
          begin
            WriteLn('Current tab is the inventory tab, correct!')
          end else
            begin
              FTab(tab_Inv);
              WriteLn('Changed tab to the inventory tab')
            end;

          begin;
            Dish := BitmapFromString(4, 5, 'meJzT88/UQ0Z+6RDkG1cMZ/vEFAIR' +
            'UASIIGwIAgA6UhPB');
            Dough := BitmapFromString(6, 6, 'meJwzcfAwcfAwtHZmYmCAICDX2MED' +
            'yMirr89vaCxuaYFwa/r76yZOrOrtK+vogIi0zprVNG0aRBDI7V64s' +
            'Gv+fLggUKRvyZLeRYvhggDN4Cfg');
          end;

          if (FindBitmapSpiralTolerance(Dish, X, Y, 553, 204, 738, 467, 20)) and (FindBitmapSpiralTolerance(Dough, X, Y, 553, 204, 738, 467, 20)) then
              begin;
                Mouse(X, Y, 5, 5, True);
                FindBitmapSpiralTolerance(Dish, X, Y, 553, 204, 738, 467, 20);
                Mouse(X, Y, 5, 5, True);
                FreeBitMap(Dish);
                FreeBitMap(Dough);
                Wait(400 + Random(200));
                MouseBox(236, 401, 285, 456, 1);
                Wait(16500 + Random(2000));
                inc(b);
              end;
      end;

    until b=999999999999
    end;


    begin
      SetupLogin;
        begin
          SetUpSRL;
          ActivateClient;
          SetAngle(SRL_ANGLE_LOW)
            repeat
              BankingII;
            until(false);
       end;
    end.

    If this is not working, I will re release this pie shell maker. So Please give the result soon. Thanks.
    Last edited by bustingbuster; 06-28-2012 at 01:35 PM.

  2. #27
    Join Date
    May 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    bump bump....

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)

Tags for this Thread

Posting Permissions

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