Results 1 to 3 of 3

Thread: Withdraw(ItemName: String;ItemColor,Howmuch:Integer);

  1. #1
    Neonknight77 Guest

    Default Withdraw(ItemName: String;ItemColor,Howmuch:Integer);

    Code:
    {.include SRL/SRL.scar}
    Procedure Withdraw3(ItemName: String;ItemColor,HowMuch: Integer);//Made by Neonknight77
    Var
         chrUpChars,ChrCharsNormal,X,Y: Integer;
    Begin
         ChrCharsNormal:= LoadChars2(AppPath  +  'Charsrs22\');
         If(Not(IsTextAtEx(185, 34, 'The Bank of', 30, chrUpChars, True, False, 0, 0, -1)))Then
    Exit;
    If(FindColorSpiralTolerance(X,Y,ItemColor,19,53,500,321,5))Then
    Begin
         MMouse(X,Y,1,6,15,20,20);
         Sleep(500+Random(500));
    If(IsTextAtEx(7, 7, 'Withdraw 1 '+ItemName, 100, chrUpChars, True, False, 0, 1, -1))Then
         Mouse(X,Y,0,0,False);
         Sleep(1000+Random(500));
    If((Howmuch= 0)or(Howmuch>28))Then
           ClickText('All', 19,53,500,321)
          Else If(Howmuch= 1)Then
            ClickText('1', 19,53,500,321)
          Else If(Howmuch= 5)Then
            ClickText('5', 19,53,500,321)
          Else If(Howmuch= 10)Then
            ClickText('10', 19,53,500,321)
          Else
            Begin
              ClickText('X', 19,53,500,321);
              Repeat
              Sleep(300+random(270));
              Until (Getcolor(256, 410)=8388608);
              Sleep(200+Random(500));
              Sendkeys(+IntToStr(Howmuch));
              Sleep(200+Random(200));
              SendKeys(Chr(13));
              End;
              End;
              End;

  2. #2
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Standards please. And use MMouse, not MoveMouseSmoothEx. ;p

    Thanx for sharing.

  3. #3
    Join Date
    Feb 2006
    Location
    California-Foster City
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I fixed it for him ,he just hasnt posted it yet
    The Welcoming Party
    Don't be a Fakawi! Get 25 hours of sleep a day!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 5
    Last Post: 03-30-2008, 01:40 PM
  2. function SendKeyboard(FKey:Integer; Text:String): Integer;
    By Daniel in forum Research & Development Lounge
    Replies: 4
    Last Post: 07-18-2007, 04:28 PM
  3. Function CountItemsInInv(ItemColor:Integer):Integer;
    By mage of begu in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 03-26-2007, 07:52 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
  •