Results 1 to 8 of 8

Thread: My Bank Pinner

  1. #1
    Join Date
    Apr 2006
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My Bank Pinner

    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;

  2. #2
    Join Date
    Feb 2006
    Location
    Wisconsin (like farm-town, USA) :P
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

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

  3. #3
    Join Date
    Apr 2006
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I changed the bitmaps to arrays, and for that I only really just learnt how the
    Code:
    For To Do
    loop works that day.

  4. #4
    Join Date
    Feb 2006
    Location
    Las Vegas, NV
    Posts
    939
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    looks more complicated than it needs to be.. good tho
    Busy with real life. I'll still be around occasionally.
    Current Mood:


  5. #5
    Join Date
    Feb 2006
    Location
    Wisconsin (like farm-town, USA) :P
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  6. #6
    Join Date
    Apr 2006
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  7. #7
    Join Date
    Feb 2006
    Location
    Wisconsin (like farm-town, USA) :P
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mine waits by checking for an asterisk to appear.

  8. #8
    Join Date
    May 2006
    Posts
    241
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Woah, Awesome!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. bank pin
    By ekamjit in forum OSR Help
    Replies: 3
    Last Post: 11-12-2008, 02:06 AM
  2. Bank Pin
    By traveler in forum OSR Help
    Replies: 2
    Last Post: 06-05-2008, 10:43 PM
  3. bank pin
    By whatsthat in forum News and General
    Replies: 6
    Last Post: 12-16-2007, 10:19 PM
  4. Bank Pin
    By awesom in forum OSR Help
    Replies: 13
    Last Post: 11-28-2007, 04:11 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •