Neonknight77
2006-04-07 22:13:44
{.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;