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;


Reply With Quote





