Code:{ Made by Choppa, to include into your script... //program New; //{.include choppasbankpinner.scar} //begin //Pinner; //end. { You have to have your bank open then run this script.} var Exitt, Incorrect, Dont_Know_It : integer; //Text NumberWords : array[1..4] of integer; //array of the number words Numerics : array[0..9] of integer; //array of the numbers const Pin = '1234'; Procedure LoadText; begin incorrect := BitmapFromString(64, 11, 'z78DAED97B112C020084' + '37F2963FEFFCBBA76A9074D4AED35191C38457C07A240B48B781A' + 'A3B7F847D1DF32F9EAE6E172ACFB5CAFEACEA9C70CD3EE951329A' + 'C508850B17B3D53C82857FC3465FE0C7F6CE3F969AAE17F8F3F4D' + '542954E5BC5DF140992D854AE99EA8DB8914BBDED7602236FF4EC' + '84FEA5B3A00171E1C06'); dont_know_it := BitmapFromString(88, 13, 'z78DAED98C10D0021' + '08045BF239FD57761D5CC0154274795CCC3DD0C561A3AEE570E48' + '2EB66C49BBA55312EE20193607F78DE192ABA00B36DBD236B8879' + '68AC24BFDFBD33463667458648B6B3F3C6F347F648579A554492A' + '5ECCA75A514F7C59CFF1CD58EE00C6FF2C0307ECC433F0FC89539' + 'AB94C0B893079D61FB83CE0303F42AE7A878AF4532F4DCA6D9223' + 'CBB72DD852AFCB0FA5DC2715F7C40900C6C'); exitt := BitmapFromString(30, 14, 'z78DA333018DAC0CD8D347230' + 'B816BF08F1B283D3CDB488595AF8823E6135F8DD4C2DDB29C97D9' + '86A70E9C2AF92D4FC4ECFD445AD7C345CDD4C7C3A196CE18C4B25' + '662A25DE85B4C87DF843983C716272E860AEDD862B00004E6FE4F' + '0'); end; Procedure LoadNumberWords; begin NumberWords[1] := BitmapFromString(36, 12, 'z78DA333018CEC08D08805F2' + '5F1A691EA12F2DC89A99EBC1020C634FCB6E00F4362D493A78612' + '1752E25F4ADC3CB0FEA2851B884F5DB44B5194E708FAC7D7C0A6B' + '1C1E6AFA1526ED022D6A8EB2F5A94F3E485C3E0F717313532E569' + '6C7800009FAA30E3'); NumberWords[2] := BitmapFromString(50, 13, 'z78DAED96C911002008035B' + 'A20AFB2FC902F88404F018F215397650301BF15A4E880D774BCFC' + '45BE2A778E6884F244AAE67DD1ECF361A25ABF61ECF5C87E80C7B' + '08FCCA8AA3CA5557C70ACFB0EE8779A5AFFA597576E9B03ACB2A7' + '73EE6CEF47B76866A56CAEEF7DF2E1A7D7DA391A20D354749C6'); NumberWords[3] := BitmapFromString(38, 13, 'z78DA33301829C08D0880A91' + '29709C4984CBCEDC4BB963CFF122F4B2D3F92274EAA4FA9EB475A' + '871BF1B68CFA91BC9C4B891F6911CE83271E8971E7A81F874A7E1' + 'C5A69953E75C7F0F623252D815130B400000F6B869F'); NumberWords[4] := BitmapFromString(48, 13, 'z78DAED96DB0D0020080357' + '620AF71FC911BC4A8260DA5F054A7DD008E38C0540A2487EBECAF' + '970FE2483CA9FECCFE4573957D652F5A9AC6E7D26EAD3E774D457' + '9CE974FAFDE9C9D0FACCFA7F6ABC44FD7C27517FCCAF3B7F98777' + 'D6FF5318C3B6C048A2C02'); end; Procedure LoadNumerics; Begin numerics[0] := BitmapFromString(9, 12, 'z78DA3330A00E7073337743258' + '9578F4B04BF7A62644775511EF294C432F10000D7478457'); numerics[1] := BitmapFromString(8, 12, 'z78DA3330A014B8B999BBC148E2' + '55E2578FA99218F34975CFC8518F2B3C49B50B130000FCE773B4'); numerics[2] := BitmapFromString(9, 12, 'z78DA3330A014B8B999BB612389' + '514F8C38A96EA09DAE91A61E7FFC121FE3C400002DAC81C6'); numerics[3] := BitmapFromString(8, 12, 'z78DA3330201FB8B999BB6123' + 'F1AB24469C181B29574FBCFBE9E31ECAC38DD6FEC5040058DB748' + 'F'); numerics[4] := BitmapFromString(9, 12, 'z78DA3330201FB8B999BBC1C8E' + '1AD8B1873064A177E72F0842A7E000091D28258'); numerics[5] := BitmapFromString(8, 12, 'z78DA33302007B8B999BB11227' + '1A927D57C4ADC439E8F68A78B5AEAC90B67CA4309130000AE6774' + '8F'); numerics[6] := BitmapFromString(9, 12, 'z78DA3330A00E70733377432589' + '578F4B04BF7A525D45895F883107974A4AFC854B96BA6692176BA' + '4862A7E0000C12283C5'); numerics[7] := BitmapFromString(8, 12, 'z78DA33302007B8B999BB1122' + '4935875A2A474DA65C3DF100007B0E72D9'); numerics[8] := BitmapFromString(9, 12, 'z78DA3330A00E707333774325' + '89578F4B04BF7A4A64C973E7E0F1D750090DE2010072BB840E'); numerics[9] := BitmapFromString(9, 12, 'z78DA3330A014B8B999BBE126F' + '1AB275E969EBA283193BC3021C69CE1A40B130000E4D98333'); end; procedure FindNumbers; var number, loop, x, y : integer; current : string; BEGIN Sleep(1000); If(FindBitmap(NumberWords[1], x , y))Then Begin For loop := 1 to 4 do begin Case loop of 2 : Repeat Wait(1000+Random(500)) Until(FindBitmap(NumberWords[2], x ,y)); 3 : Repeat Wait(1000+Random(500)) Until(FindBitmap(NumberWords[3], x, y)); 4 : Repeat Wait(1000+Random(500)) Until(FindBitmap(NumberWords[4], x, y)); End //loop Case Current := copy(Pin, loop, 1); Case current Of '0' : number := numerics[0]; // zero; '1' : number := numerics[1]; '2' : number := numerics[2]; '3' : number := numerics[3]; '4' : number := numerics[4]; '5' : number := numerics[5]; '6' : number := numerics[6]; '7' : number := numerics[7]; '8' : number := numerics[8]; '9' : number := numerics[9]; End //current Case WriteLn(IntToStr(Number - 4)); If(FindBitmap(number, x, y))Then Begin MoveMouseSmoothEx(x, y, 5, 5, 10, 10, 10); Wait(500 +Random(100)); ClickMouse(x, y, true); End Else //If Wait(1000 +Random(1000)); GetMousePos(x, y); ClickMouse(x, y, true); end; End; END; Procedure Pinner; begin LoadNumberWords; LoadNumerics; FindNumbers; LoadText; End;



Reply With Quote


I remember making that the first day it came out (had most of it done before that actually). Anyway, good job on the script. I haven't seen a lot of SCAR-related things from you, so it's nice to see it 



