Buying arrow buyer with world switcher.

Discussion in 'Script Requests' started by Buciukaz, May 30, 2007.

Buying arrow buyer with world switcher.
  1. Unread #1 - May 30, 2007 at 12:49 PM
  2. Buciukaz
    Joined:
    Jan 21, 2007
    Posts:
    1,256
    Referrals:
    1
    Sythe Gold:
    0

    Buciukaz Guru
    Banned

    Buying arrow buyer with world switcher.

    Buying arrow buyer with world switcher.
    Paying around 200-400k
    At this shop
    [​IMG]
     
  3. Unread #2 - May 30, 2007 at 2:01 PM
  4. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Buying arrow buyer with world switcher.

    Might work, might not. I'll get back on it later, just thought I would post what I had so far and see if it's what you wanted.

    Code:
    program ArrowBuyer;
    
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/BuySell.scar}
    {.include SRL/SRL/Misc/Amount.scar}
    {.include SRL/SRL/Misc/WorldSwitcher.scar}
    
    const
      BuySlot = 1; // Slot To Buy
      AmountToStop = 1; // When there are this many left, stop
      BuySlotAgain = 1; // Another slot to buy     Put the same slot to if you want it the same
      AmountToStopAgain = 1; // Same
      WorldSwitch = 1; // First world to switch to
      WorldSwitchh = 1; // Second        Put 0 if you don't want to switch
      WorldSwitchhh = 1; // Third
      WorldSwitchhhh = 1; // Fourth
      WorldSwitchhhhh = 1; // Fifth
      ShopOwnerColor = 1; // Color of the shop owner
    
    var
      WorldsToSwitch: Array[1..5] Of Integer;
      i, Worldss: Integer;
    
    procedure MakeWorldArray;
    var
      f: Integer;
    begin
      for f := 1 to 5 do
      begin
        case f of
          1: WorldsToSwitch[1] := WorldSwitch;
          2: WorldsToSwitch[2] := WorldSwitchh;
          3: WorldsToSwitch[3] := WorldSwitchhh;
          4: WorldsToSwitch[4] := WorldSwitchhhh;
          5: WorldsToSwitch[5] := WorldSwitchhhhh;
        end;
      end;
    end;
    
    
    begin
      MakeWorldArray;
      for Worldss := 1 to 5 do
      begin
        repeat
          BuyAmount(BuySlot, 10);
          Wait(100 + Random(1400));
          if (Amount('inv', 1) < 1000) then Exit;
        until (Amount('shop', 2) < AmountToStop);
        Wait(1000 + Random(1000));
        repeat
          if (BuySlot = BuySlotAgain) then Break;
          BuyAmount(BuySlotAgain, 10);
          Wait(100 + Random(1400));
          if (Amount('inv', 1) < 1000) then Exit;
        until (Amount('shop', 2) < AmountToStopAgain);
        Wait(1000 + Random(1000));
        if (not (WorldsToSwitch[Worldss] = 0)) then
        begin
          CloseWindow;
          Logout;
          i := WorldsToSwitch[Worldss];
          SelectWorld(i);
          if (not (LoggedIn)) then LoginPlayer;
          if (FindObj3(x, y, 'ick', ShopOwnerColor, 25)) then
          begin
            Mouse(x, y, 2, 2, false);
            ClickOption('rade', 1)
            repeat
              Wait(100)
            until (ShopScreen) or (not (LoggedIn));
          end;
        end;
      end;
    end.
     
< Buying good fisher and banker !!! 1m in cash !! | auto theiver >

Users viewing this thread
1 guest


 
 
Adblock breaks this site