SRL Archive - RS Scripts

{
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;

You could let people put the pin number in the procedure's input. That's how mine works because it's more friendly ;) 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 :D

Edit: I can show you an example on MSN if you'd like.

I changed the bitmaps to arrays, and for that I only really just learnt how the

For To Do

loop works that day.

looks more complicated than it needs to be.. good tho

Mine's 58 lines. Yours is 136 starting from var. I think you're thinking too much, buddy :p

With yours, did you use wait(#) after it clicks a number?
Because mine will wait until the numbers have randomized.

Mine waits by checking for an asterisk to appear.

Woah, Awesome!