Page 1 of 2 12 LastLast
Results 1 to 25 of 32

Thread: Read Flash Image

  1. #1
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Read Flash Image

    Hello,

    I'm trying to write an auto-script for a game called Omerta (find it at www.barafranca.com) It's a text-based mmorpg, and I want to write a script that does auto-crimes etc. But the captcha's you have to type before doing a crime are very hard to hack (for me). It are flash codes, and I don't know how to hack that captcha. Could someone explain how to let my script read flash catcha's? Or is this impossible when using SCAR?

    As already told, the codes are flash so I don't know how to show them to you guys. Except that you make an account, log in, and watch the captcha. Anyone an idea?

    Thank you very much already for reading my question.. I really hope someone can help me

    Bye,
    Wouter

    P.S. I'm Dutch, so sorry for my mistakes while writing Englisch..

  2. #2
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by W0uter View Post
    Hello,

    I'm trying to write an auto-script for a game called Omerta (find it at www.barafranca.com) It's a text-based mmorpg, and I want to write a script that does auto-crimes etc. But the captcha's you have to type before doing a crime are very hard to hack (for me). It are flash codes, and I don't know how to hack that captcha. Could someone explain how to let my script read flash catcha's? Or is this impossible when using SCAR?

    As already told, the codes are flash so I don't know how to show them to you guys. Except that you make an account, log in, and watch the captcha. Anyone an idea?

    Thank you very much already for reading my question.. I really hope someone can help me

    Bye,
    Wouter

    P.S. I'm Dutch, so sorry for my mistakes while writing Englisch..

    if it's those random images with weird letters + numbers forget it.

  3. #3
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    Those flash ones are one of the hardest ever made I think...
    I made a new script, check it out!.

  4. #4
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Allright, so you people think it's impossible to hack a captcha like that? It is a black background with letters that are falling down one by one, so first a yellow one, then a one that changes his color while falling down, and then a bleu one.

  5. #5
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    geme pic of em

  6. #6
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hugolord View Post
    geme pic of em
    Well, that's my problem, it's flash so I can't give you a link...

    At HugoLord: Click "Do Crime" and you'll see the captcha

    Bye,
    W0uter

  7. #7
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    erm.. interesting..

    actually maybe if you make a DTM of each letter and number and get scar to scan every position with each color you might be able to do it..


    btw take out your password please

  8. #8
    Join Date
    May 2006
    Location
    Amsterdam
    Posts
    3,620
    Mentioned
    5 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, the flash one's aren't that hard.. Anyway, to get a script to do this offscreen, (PostPageHHTPex it will be hard) I guess, you need to make a OCR.. Which is kinda hard, if you donno howto start ;P
    Verrekte Koekwous

  9. #9
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Just make a neural network, plug in a few FPU's (make sure you don't reset them), learn your brain some code, then hope the java god doesn't smite you from the earth, and you should be good.

    Seriously though, OCR'ing captchas isn't easy at all. Can't really give you any advice without seeing one. Imageshack one please?
    Interested in C# and Electrical Engineering? This might interest you.

  10. #10
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Smartzkid View Post
    Just make a neural network, plug in a few FPU's (make sure you don't reset them), learn your brain some code, then hope the java god doesn't smite you from the earth, and you should be good.

    Seriously though, OCR'ing captchas isn't easy at all. Can't really give you any advice without seeing one. Imageshack one please?
    Can't give you an Imageshack one, cause it's flash and I can't save it on my PC

  11. #11
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    registration page at barafranca.com has it.
    I made a new script, check it out!.

  12. #12
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Markus View Post
    registration page at barafranca.com has it.
    Ah, thank you very much!
    For everyone who wants to see the captcha: http://www.barafranca.com/game-register.php

    I'm just back from school, I'm gonna try the ideas you guys allready posted. Hope one of them will work

    EDIT: I'm afraid that I'm not good enough now to hack that captcha Could someone help me please?

  13. #13
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hello Guys,

    I'm now trying it with DTM's as Hugo's advice, thinks it's gonna work although it wouldn't be really fast I think . Well, I'll post any other questions here, and ofcourse I'll tell you when it works

  14. #14
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I took a quick shot at it, but I realized it was gonna take longer than I thought, so I left it alone. Might try again later, though. If I knew all colors that the numbers could possible appear in, it would be rather easy.

    -Knives

  15. #15
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    First one is always yellow
    Second one is allways grey/purple
    Third one is always bleu

    P.S.
    I think the DTM's are gonna work

  16. #16
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by W0uter View Post
    First one is always yellow
    Second one is allways grey/purple
    Third one is always bleu

    P.S.
    I think the DTM's are gonna work
    The colors do dim tho so it's not always three exact colors, altho I think DTMs will do the job fine as well

  17. #17
    Join Date
    May 2006
    Location
    Amsterdam
    Posts
    3,620
    Mentioned
    5 Post(s)
    Quoted
    0 Post(s)

    Default

    I would make it find the first letter, find all the pixels. Then compare the count, width and height with a database of letters\numbers.. And then as last a DTM check to be sure..
    Verrekte Koekwous

  18. #18
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Allright, I've got a script now that is able to read the first letter of every code. But it isn't fast at all, it uses DTM's and goes from A till Z each time till it founds the code. Now I want scar to look for every letter just one millisecond, so 1 millisecond A, 1 millisecond B, 1 millisecond C etc. How to start making a script like that? So I need a timer or something like that. Could someone help me please?

    Bye

  19. #19
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    I don't think scar is able to check dtms within 1 millisecond.
    Try doing a getcolor at some low point, until there is a color of the letter. Then copy a bitmap (copyclienttobitmap) and use SetTargetBitmap so scar will search for the dtm's on that bitmap, giving you some time.
    I made a new script, check it out!.

  20. #20
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, I now made scar searching in the the exactly right coördinates and it finds the letter in 1 second! So I think I'm gonna finish my script tomorrow or something

    I'm back from my vacation now, and I went further with my script.
    It works almost fine now, but when it doesn't find the letter it just keeps searching. So I have to make something like a timer so it doesn't search any longer then 30 seconds.

    Someone's got an idea?
    I was thinking about something like this:
    Code:
    begin
      SetupSRL;
      MarkTime(LoadTime);
      if (MarkTime(LoadTime) > 30000) then
    But I don't know how to make scar return to the beginning of the script.
    Could anyone help me please?

    Bye,
    W0uter

  21. #21
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure loop;
    begin
      whatever;
    end;

    begin
      SetupSRL;
      MarkTime(LoadTime);
      if (MarkTime(LoadTime) > 30000) then
      loop;
    end.

    if that is what you want

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  22. #22
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well...
    It doesn't have to return to the begin, it has to return to a specific point in the script, how do I have to do that ?..

    Another problem

    This is my script:
    Code:
    begin
       MoveMouseSmooth(145, 587);
       ClickMouse(145, 587,true);
       Wait (3000)
    
    begin
    repeat
    begin //Click Do Crime
    Misdaden := DTMFromString('78DA639465606038C4C8800CFEFFFF0FA661A' +
           '28C1640623F01359640E2280135AC44AAD94B400D2F916A08D925' +
           '06248E1050030A9F3D04D4A8106197366173000B532A80');
      if  (FindDTM(Misdaden,x,y,0, 377, 62, 504)) then
       begin
       MoveMouseSmooth(x,y);
       ClickMouse(x,y,true);
       Wait (3000);
    end;
    
    begin //Find Captcha Place
    Corner1 := DTMFromString('78DA6354656460980AC458004C94519308352' +
           '073A613502307644D23A0461153CD8A152B30D54C26A00664D724' +
           '0276A963AAC1304703C89A49C01C254C3518E680D44C24A0468B0' +
           '87F81D4CCC0EF1E002D51156F');
           if  (FindDTM(Corner1,x4,y4,265, 330, 469, 525)) then
    
    Corner2 := DTMFromString('78DA63DCC5C8C0700188B1009828E35E20EB0' +
           'CAA9A152B56A0AAD981A906C31C909A4B04CCD90D645D26A0661B' +
           '90758E805D3B8970CF1E20EB3C01BB7612E99E8B04D4EC21D2EFD' +
           '7F0BB19004810206E');
           if  (FindDTM(Corner2,x5,y5,265, 330, 469, 525)) then
           Wait (3000)
    
    begin //Click Rob a bank
    Juwelier := DTMFromString('78DA63D463646028066224F0F1E37B300D136' +
           '504A9A94455A318D288AA4603D31C0C3520737250D5AC58B10255' +
           '4D0D909587AA0606E06AAA80AC0AFC6A00D4FB0B27');
      if  (FindDTM(Juwelier,x2,y2,286, 327, 449, 465)) then
       begin
       MoveMouseSmooth(x2,y2);
       ClickMouse(x2,y2,true);
       Wait (3000)
    end;
    end;
    end;
    
    begin //Click TypingPlace
    TypingPlace := DTMFromString('78DA637CCAC8C0B01E8891C0F9F3E7C1344C9' +
           '4F10590B51C55CD8E1D3B50D53CC554A3A1A181A9662B11766D23' +
           '601748CD06FC6A00644E1562');
      if  (FindDTM(TypingPlace,x3,y3,443, 362, 512, 498)) then
       begin
       MoveMouseSmooth(x3,y3);
       ClickMouse(x3,y3,true);
       Wait (3000)
    end;
    end;
    end;
    
    begin
    repeat
    // YELLOW LETTERS !!
    begin //Search Yellow1
    
    //Here scar searches for al yellow letters.
    
    until (FindYellowLetter)
    
    begin
    // GREY LETTERS !!
    repeat
    begin //Search Grey1
    
    //Here scar searches for al grey letters.
    
    until (FindGreyLetter)
    
    begin
    // Bleu LETTERS !!
    repeat
    begin //Search Bleu1
    
    //Here scar searches for al bleu letters.
    
    until (FindBleuLetter)
    end;
    end;
    begin //Wachten
        Wait (100000)
    end;
    end;
    until (False)
    end;
    end.
    I know it's a bit difficult written.
    Well, the first time scar reads the captcha, but when it is going to search the second time it just doesn't seems to find anything. Does someone know what's wrong?

    I'm almost the whole day trying now, and it still doesnt work
    Scar works fine the first time.

    Then scar repeats and starts at the beginning.
    But then it just skips all the other repeats between the first repeat and until (false). I hope somebody of you guys understand what I'm talking about cause it's very hard to explain..

    P.S. I'm working without procedures now, could that be the problem?

    Bye,
    Wouter

  23. #23
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Don't triple post
    Maybe you should post your whole script?

    P.S. I'm working without procedures now, could that be the problem?
    It could be, I stronly suggest using procedures to keep it easier to read / edit.
    Also, you should free your dtms after you've used them using FreeDTM. You keep on loading them now which can cause your SCAR to crash.
    Hup Holland Hup!

  24. #24
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, the whole script is a bit long and I don't think you guys are able to read it cause I didn't write it very synoptic.

    About the FreeDTM:
    So then scar loads the DTM's ones and then just saves them or something?

    About the procedures:
    I'm gonna try to make some procedures now, I'll post it if I need some help.

    For the people who wanted to see the whole script:
    SCAR Code:
    program Script;
    {.include SRL/SRL.scar}
    var x,y,x2,y2,x3,y3,x4,y4,x5,y5: Integer;
    var Misdaden: Integer;
    var Juwelier: Integer;
    var TypingPlace: Integer;
    var Corner1: Integer;
    var Corner2: Integer;
      // FindLetters
    var FindYellowLetter: Boolean;
    var FindGreyLetter: Boolean;
    var FindBleuLetter: Boolean;
      // Yellow Letters
    var Yellow1: Integer;
    var Yellow2: Integer;
    var Yellow3: Integer;
    var Yellow4: Integer;
    var Yellow5: Integer;
    var Yellow6: Integer;
    var Yellow7: Integer;
    var Yellow8: Integer;
    var Yellow9: Integer;
    var YellowA: Integer;
    var YellowB: Integer;
    var YellowC: Integer;
    var YellowE: Integer;
    var YellowF: Integer;
    var YellowG: Integer;
    var YellowH: Integer;
    var YellowJ: Integer;
    var YellowK: Integer;
    var YellowL: Integer;
    var YellowN: Integer;
    var YellowP: Integer;
    var YellowR: Integer;
    var YellowS: Integer;
    var YellowT: Integer;
    var YellowV: Integer;
    var YellowX: Integer;
    var YellowY: Integer;
    var YellowZ: Integer;
      // Grey Letters
    var Grey1: Integer;
    var Grey2: Integer;
    var Grey3: Integer;
    var Grey4: Integer;
    var Grey5: Integer;
    var Grey6: Integer;
    var Grey7: Integer;
    var Grey8: Integer;
    var Grey9: Integer;
    var GreyA: Integer;
    var GreyB: Integer;
    var GreyC: Integer;
    var GreyE: Integer;
    var GreyF: Integer;
    var GreyG: Integer;
    var GreyH: Integer;
    var GreyJ: Integer;
    var GreyK: Integer;
    var GreyL: Integer;
    var GreyN: Integer;
    var GreyP: Integer;
    var GreyR: Integer;
    var GreyS: Integer;
    var GreyT: Integer;
    var GreyV: Integer;
    var GreyX: Integer;
    var GreyY: Integer;
    var GreyZ: Integer;
      // Bleu Letters
    var Bleu1: Integer;
    var Bleu2: Integer;
    var Bleu3: Integer;
    var Bleu4: Integer;
    var Bleu5: Integer;
    var Bleu6: Integer;
    var Bleu7: Integer;
    var Bleu8: Integer;
    var Bleu9: Integer;
    var BleuA: Integer;
    var BleuB: Integer;
    var BleuC: Integer;
    var BleuE: Integer;
    var BleuF: Integer;
    var BleuG: Integer;
    var BleuH: Integer;
    var BleuJ: Integer;
    var BleuK: Integer;
    var BleuL: Integer;
    var BleuN: Integer;
    var BleuP: Integer;
    var BleuR: Integer;
    var BleuS: Integer;
    var BleuT: Integer;
    var BleuV: Integer;
    var BleuX: Integer;
    var BleuY: Integer;
    var BleuZ: Integer;

    begin
       MoveMouseSmooth(145, 587);
       ClickMouse(145, 587,true);
       Wait (3000)

    begin
    repeat
    begin //Click Misdaden
    Misdaden := DTMFromString('78DA639465606038C4C8800CFEFFFF0FA661A' +
           '28C1640623F01359640E2280135AC44AAD94B400D2F916A08D925' +
           '06248E1050030A9F3D04D4A8106197366173000B532A80');
      if  (FindDTM(Misdaden,x,y,0, 377, 62, 504)) then
       begin
       MoveMouseSmooth(x,y);
       ClickMouse(x,y,true);
       Wait (3000);
    end;

    begin //Find Captcha
    Corner1 := DTMFromString('78DA6354656460980AC458004C94519308352' +
           '073A613502307644D23A0461153CD8A152B30D54C26A00664D724' +
           '0276A963AAC1304703C89A49C01C254C3518E680D44C24A0468B0' +
           '87F81D4CCC0EF1E002D51156F');
           if  (FindDTM(Corner1,x4,y4,265, 330, 469, 525)) then

    Corner2 := DTMFromString('78DA63DCC5C8C0700188B1009828E35E20EB0' +
           'CAA9A152B56A0AAD981A906C31C909A4B04CCD90D645D26A0661B' +
           '90758E805D3B8970CF1E20EB3C01BB7612E99E8B04D4EC21D2EFD' +
           '7F0BB19004810206E');
           if  (FindDTM(Corner2,x5,y5,265, 330, 469, 525)) then
           Wait (3000)
    end;

    begin //Click Beroof een Juwelier
    Juwelier := DTMFromString('78DA63D463646028066224F0F1E37B300D136' +
           '504A9A94455A318D288AA4603D31C0C3520737250D5AC58B10255' +
           '4D0D909587AA0606E06AAA80AC0AFC6A00D4FB0B27');
      if  (FindDTM(Juwelier,x2,y2,286, 327, 449, 465)) then
       begin
       MoveMouseSmooth(x2,y2);
       ClickMouse(x2,y2,true);
       Wait (3000)
    end;
    end;

    begin //Click TypingPlace
    TypingPlace := DTMFromString('78DA637CCAC8C0B01E8891C0F9F3E7C1344C9' +
           '4F10590B51C55CD8E1D3B50D53CC554A3A1A181A9662B11766D23' +
           '601748CD06FC6A00644E1562');
      if  (FindDTM(TypingPlace,x3,y3,443, 362, 512, 498)) then
       begin
       MoveMouseSmooth(x3,y3);
       ClickMouse(x3,y3,true);
       Wait (3000)
    end;
    end;

    begin
    repeat
    // YELLOW LETTERS !!
    begin //Search Yellow1
    Yellow1 := DTMFromString('78DA63F464606070654001FFFF8732A400694' +
           '630FBFF7F465F20C31EB71A10600499E340408D2B7EBBC06A4076' +
           'F911614E1001358144A8F1C2AF06EC772F22CCF125C25F207927F' +
           'C7601006BBD303B');
      if  (FindDTM(Yellow1,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('1');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow2
    Yellow2 := DTMFromString('78DA634C606060F0604001FFFF8732A400694' +
           '630FBFF7FC64820C319B71A10604C07124104D44403095F026A40' +
           '1C7B026A2288B02B8108353140C28E809A3420E146207C406A5C2' +
           '857030046033522');
      if  (FindDTM(Yellow2,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('2');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow3
    Yellow3 := DTMFromString('78DA632C63606070634001FFFF8732A400694' +
           '630FBFF7FC63A20C31FB71A1060CC07128104D4D400093B026A40' +
           'EE0922A0A61648B81250530C246C09A829C0EF1EB0DF41760510E' +
           '1660AED82AB71C2EF1E00C8DC356C');
      if  (FindDTM(Yellow3,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('3');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow4
    Yellow4 := DTMFromString('78DA63EC616060F0624001FFFF8732A400694' +
           '630FBFF7FC62940862D6E3520C0D80D241C09A8690512BE04D44C' +
           'C7EF1EB09A7E20114440CD1422D538E15703001E8B2088');
      if  (FindDTM(Yellow4,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('4');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow5
    Yellow5 := DTMFromString('78DA635CC6C0C0E0CA8002FEFF0F654801D28' +
           'C60F6FFFF8C6B800C5BDC6A4080711E116A56030937026A4076F9' +
           '1350331748F81250B314480411614E207E35008A30212F');
      if  (FindDTM(Yellow5,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('5');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow6
    Yellow6 := DTMFromString('78DA63DCCEC0C0E0C18002FEFF0F654801D28' +
           'C60F6FFFF8CFB810C7BDC6A4080712B907024424D200135FB8850' +
           'B31348041150731048781350B309487811611721BF6F0612FEF8C' +
           '31000A54A2D48');
      if  (FindDTM(Yellow6,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('6');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow7
    Yellow7 := DTMFromString('78DA633CCDC0C0E0CE8002FEFF0F654801D28' +
           'C60F6FFFF8C47800C7BDC6A4080F112116A8E03093F026A4E0189' +
           '20026A8E12A1E63411EE390724BC09A8B908245C09A8390324FC0' +
           '9A80185A113FE700600500731B4');
      if  (FindDTM(Yellow7,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('7');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow8
    Yellow8 := DTMFromString('78DA63BCCFC0C0E0CA8002FEFF0F654801D28' +
           'C60F6FFFF8C4F810C7BDC6A4080F13A116A6E008940026A407605' +
           '1050730F480411618E0701355781840F0135D780840B11EEB1C51' +
           'F8600B8372EA2');
      if  (FindDTM(Yellow8,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('8');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow9
    Yellow9 := DTMFromString('78DA63FCCCC0C0E0C98002FEFF0F654801D28' +
           'C503EE35B20E14440CD0720614740CD1720614B40CD5F20E14E40' +
           'CD6F20614F40CD2F20E14F40CD7B201144841A3FDC6AFE0301232' +
           '80C0389084337CAED02003F433768');
      if  (FindDTM(Yellow9,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('9');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowA
    YellowA := DTMFromString('78DA63F4656060C8604001FFFF8732A400694' +
           '630FBFF7FC640202312B71A1060F426428D1B904823A0C61948E4' +
           '11501349849A10209148404D387EBF8300005D2C1F60');
      if  (FindDTM(YellowA,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('a');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowB
    YellowB := DTMFromString('78DA634C61606048664001FFFF8732808419C' +
           '1ECFFFF1973808C68DC6A40803116484412509346849A54209147' +
           '845D84D480E4B388302715BF1A00C9202000');
      if  (FindDTM(YellowB,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('b');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowC
    YellowC := DTMFromString('78DA632C67606048614001FFFF87828518C1E' +
           'CFFFF198B808C24DC6A4080B11948441350534A841A907B7289B0' +
           '2B8708351904D4D4028948FC6A003A7520B6');
      if  (FindDTM(YellowC,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('c');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowE
    YellowE := DTMFromString('78DA635CC5C0C090CC8002FEFF0F654801D28' +
           'C60F6FFFF8CAB818C28DC6A4000AC268F809A7944AA8922424D0A' +
           '01354B89B06B097EBBC07E5F4E580D00D8682DB9');
      if  (FindDTM(YellowE,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('e');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowF
    YellowF := DTMFromString('78DA63DCC1C0C090C48002FEFF0F654801D28' +
           'C60F6FFFF8C07808C48DC6A4080713F904821A066237EBBE06A08' +
           'D9B50948E41150B38D08353B08DB05006F49228D');
      if  (FindDTM(YellowF,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('f');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowG
    YellowG := DTMFromString('78DA633CC7C0C090C28002FEFF0F050B3182D' +
           '9FFFF335E0332D271AB0101B09A78026A8E038968026A8E02892C' +
           '026A406ECE23A0E62C908824A0E6309048C6AF0600EABC2342');
      if  (FindDTM(YellowG,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('g');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowH
    YellowH := DTMFromString('78DA637CC2C0C090C48002FEFF0F654801D28' +
           'C60F6FFFF8C6F808C3CDC6A4000AC2692809A5B44AA21C6AE6422' +
           'CCC920A0E63E11763D001229B8D5B0033100BDAC2807');
      if  (FindDTM(YellowH,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('h');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowJ
    YellowJ := DTMFromString('78DA630C646060A8674001FFFF8732A400694' +
           '630FBFF7F462F20A314B71A10600C21524D1B0135FE40A28B801A' +
           '7722D5B411F0973F116E7627C2CD5E44B807A4A602BF7B0019B53' +
           '2B8');
      if  (FindDTM(YellowJ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('j');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowK
    YellowK := DTMFromString('78DA634C666060A8674001FFFF8732A400694' +
           '630FBFF7FC60220A314B71A1000ABE922A026964835A544A86926' +
           'A0261D48B411509301242AF0AB0100688B20EC');
      if  (FindDTM(YellowK,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('k');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowL
    YellowL := DTMFromString('78DA632C676060A8634001FFFF8732A400694' +
           '630FBFF7FC65220A314B71A1060AC22420D48BE8B809A1A22D434' +
           '13A9A69D08F7D4E3570300C4B421A3');
      if  (FindDTM(YellowL,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('l');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowN
    YellowN := DTMFromString('78DA635CC5C0C0D0C48002FEFF0F654801D28' +
           'C503EE30620D145849A52026AE611A986905DCB80442501358B88' +
           '3007E4F70E026A1610113EEB80442301350B81443501358B81441' +
           '90135EB81441D01356B8808E72544B88740DAF80F040063A641EF');
      if  (FindDTM(YellowN,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('n');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowP
    YellowP := DTMFromString('78DA633CCDC0C0D0C88002FEFF0F654801D28' +
           'C60F6FFFF8C57818C0ADC6A4080F10A7E73C06A8E02892E22D4D4' +
           '12A1A694809A6B40A286809AB384CD0100688F2412');
      if  (FindDTM(YellowP,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('p');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowR
    YellowR := DTMFromString('78DA6334616460D80FC448E0FFFF508614200' +
           'D13657400B24E12506303646D23A04617C8DA42841A42761911A1' +
           'C68C08BB6C81AC3D04D45813113E20BF1F21A0C69248371F25227' +
           'CF612A1E6106E35FF81000031F637AA');
      if  (FindDTM(YellowR,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('r');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowS
    YellowS := DTMFromString('78DA63F465606098CD8002FEFF0F654801D28' +
           'C60F6FFFF8CA140C624DC6A4080D1830835AE4062290135614062' +
           '0111E64C27A02600482C23C21C027601006A862105');
      if  (FindDTM(YellowS,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('s');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowT
    YellowT := DTMFromString('78DA634C61606098C38002FEFF0F650009338' +
           '2D9FFFF33E602191371AB0101C62822D4A410A12619482C23A026' +
           '8D083520374F21A02611BFDFD9801800D76521BC');
      if  (FindDTM(YellowT,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('t');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowV
    YellowV := DTMFromString('78DA639CC8C0C0B0800105FCFF1FCA9002A41' +
           '9C1ECFFFF196703191371AB0101C62940623A0135AD4498D30B24' +
           '961150339908355D40623E7E35000F9F1F3F');
      if  (FindDTM(YellowV,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('v');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowX
    YellowX := DTMFromString('78DA633CC1C0C0308B0105FCFF1FCA9002A41' +
           '9C1ECFFFF19AF00191371AB0101B09A6504D4EC23520D21BB4E03' +
           '898504D41C2742CD59203119BF1A00E90824ED');
      if  (FindDTM(YellowX,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('x');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowY
    YellowY := DTMFromString('78DA637CC4C0C030930105FCFF1FCA9002A41' +
           '9C1ECFFFF19DF00191371AB0101C6EB44A8790224961150739F08' +
           '3577F0BB19ACE60590984140CD5DC26E060052E92597');
      if  (FindDTM(YellowY,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('y');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowZ
    YellowZ := DTMFromString('78DA63FCC6C0C030870105FCFF1FCA9002A41' +
           '9A17CC67F40621201355F81C442026A3E02890504D4BC27C2AEFF' +
           '40621911E610A3662A0135BF80C46C026ABE11E1E6EFF8DDF31F0' +
           '8003A6C3332');
      if  (FindDTM(YellowZ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('z');
        Wait (2500)
         begin
         FindYellowLetter:=True

    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    until (FindYellowLetter)
    end;


    begin
    // GREY LETTERS !!
    repeat
    begin //Search Grey1
    Grey1 := DTMFromString('78DA63F4646060706540010D0D0D0CDE409A1' +
           '188FF0301A32F90618F5B0D083082CC7120A0C615BF5D603520BB' +
           'FC88302788809A4022D478E15703F6BB1711E6F812E12F90BC137' +
           'E3500A3CE221B');
      if  (FindDTM(Grey1,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('1');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey2
    Grey2 := DTMFromString('78DA634C606060F06040010D0D0D0CDE409A1' +
           '188FF0301632490E18C5B0D0830A6038920026AA281842F013529' +
           '40C29E809A0822EC4A20424D0C90B023A0260D48B811081F901A1' +
           '7CAD4C0DD4CC83D9144844F2AFE3805AB4922227C528950130B24' +
           '028908432722E2D49F08BBBCF187330008AF4126');
      if  (FindDTM(Grey2,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('2');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey3
    Grey3 := DTMFromString('78DA632C636060706340010D0D0D0CDE409A1' +
           '188FF0301631D90E18F5B0D0830E6038940026A6A80841D013520' +
           'F7041150530B245C09A8290612B604D414E0770FD8EF20BB02887' +
           '0338576C1D538E1770F008F912A5C');
      if  (FindDTM(Grey3,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('3');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey4
    Grey4 := DTMFromString('78DA63EC616060F06240010D0D0D0CDE409A1' +
           '188FF0301E31420C316B71A1060EC06128E04D4B402095F026AA6' +
           'E3770F584D3F900822A0660A916A9CF0FB1D00156D1D24');
      if  (FindDTM(Grey4,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('4');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey5
    Grey5 := DTMFromString('78DA635CC6C0C0E0CA80021A1A1A18BC81342' +
           '310FF0702C63540862D6E3520C0388F0835AB81841B013520BBFC' +
           '09A8990B247C09A8590A248288302790809A65F8FD050A1F005AA' +
           'F207B');
      if  (FindDTM(Grey5,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('5');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey6
    Grey6 := DTMFromString('78DA63DCCEC0C0E0C180021A1A1A18BC81342' +
           '310FF0702C6FD40863D6E3520C0B815483812A12690809A7D44A8' +
           'D909248208A8390824BC09A8D90424BC88B08B90DF3703097FFC6' +
           '1080041822410');
      if  (FindDTM(Grey6,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('6');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey7
    Grey7 := DTMFromString('78DA633CCDC0C0E0CE80021A1A1A18BC81342' +
           '310FF0702C62340863D6E3520C078890835C781841F0135A78044' +
           '100135478950739A08F79C0312DE04D45C0412AE04D49C0112FE0' +
           '4D480C2D0097F380300920E2790');
      if  (FindDTM(Grey7,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('7');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey8
    Grey8 := DTMFromString('78DA63BCCFC0C0E0CA80021A1A1A18BC81342' +
           '310FF0702C6A740863D6E3520C0789D083537804420013520BB02' +
           '08A8B90724828830C783809AAB40C287809A6B40C28508F7D8E20' +
           'F4300546F256A');
      if  (FindDTM(Grey8,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('8');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey9
    Grey9 := DTMFromString('78DA63FCCCC0C0E0C980021A1A1A18BC81342' +
           '394CFF81648381150F30148D81150F30548D81250F31748B81350' +
           'F31B48D81350F30B48F81350F31E480411A1C60FB79AFF40C0080' +
           'AC34022C2D08D72BB0005F82C58');
      if  (FindDTM(Grey9,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('9');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyA
    GreyA := DTMFromString('78DA63F4656060C86040010D0D0D0CDE409A1' +
           '188FF030163209011895B0D08307A13A1C60D48A41150E30C24F2' +
           '08A88924424D08904824A0261CBFDF4100004A181800');
      if  (FindDTM(GreyA,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('a');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyB
    GreyB := DTMFromString('78DA634C616060486640010D0D0D0CDE409A1' +
           '188FF0301630E90118D5B0D0830C6028948026AD28850930A24F2' +
           '88B08B901A907C1611E6A4E2F73B00C0021C9C');
      if  (FindDTM(GreyB,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('b');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyC
    GreyC := DTMFromString('78DA632C676060486140010D0D0D0CDE409A1' +
           '188FF030163119091845B0D083036038968026A4A895003724F2E' +
           '1176E510A12683809A5A2011895F0D0027611956');
      if  (FindDTM(GreyC,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('c');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyE
    GreyE := DTMFromString('78DA635CC5C0C090CC80021A1A1A183C80342' +
           '310FF0702C6D5404614A61A6FA81A1000ABC923A0661E916AA288' +
           '50934240CD5222EC5A82DF2EB0DF9713760F00A018216E');
      if  (FindDTM(GreyE,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('e');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyF
    GreyF := DTMFromString('78DA63DCC1C0C090C480021A1A1A18BC81342' +
           '310FF0702C6034046246E3520C0B81F48A41050B311BF5D703584' +
           'ECDA0424F208A8D946849A1D84ED02005C351B2D');
      if  (FindDTM(GreyF,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('f');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyG
    GreyG := DTMFromString('78DA633CC7C0C090C280021A1A1A18BC81342' +
           '310FF0702C66B40463A6E35200056134F40CD7120114D40CD5120' +
           '9145400DC8CD7904D49C05129104D41C0612C9F8FD0E00E19E1FD' +
           'E');
      if  (FindDTM(GreyG,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('g');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyH
    GreyH := DTMFromString('78DA637CC2C0C090C480021A1A1A18BC81342' +
           '310FF0702C63740461E6E35200056134940CD2D22D51063573211' +
           'E6641050739F08BB1E008914FCE103009CB023B0');
      if  (FindDTM(GreyH,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('h');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyJ
    GreyJ := DTMFromString('78DA630C646060A86740010D0D0D0CDE409A1' +
           '188FF0301A31790518A5B0D08308610A9A68D801A7F20D145408D' +
           '3B916ADA08F8CB9F0837BB13E1662F22DC03525381DF3D005BBC2' +
           '894');
      if  (FindDTM(GreyJ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('j');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyK
    GreyK := DTMFromString('78DA634C666060A86740010D0D0D0CDE409A1' +
           '188FF0301630190518A5B0D0880D5741150134BA49A5222D43413' +
           '50930E24DA08A8C9001215F8FD0E005F6D1D88');
      if  (FindDTM(GreyK,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('k');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyL
    GreyL := DTMFromString('78DA632C676060A86340010D0D0D0CDE409A1' +
           '188FF0301632990518A5B0D08305611A10624DF45404D0D116A9A' +
           '8954D34E847BEA09F8BD8208BBAA885053875F0DC82E006B9F2AB' +
           '0');
      if  (FindDTM(GreyL,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('l');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyN
    GreyN := DTMFromString('78DA635CC1C0C0D0C080021A1A1A18BC81342' +
           '394CFB801489412A1A693809A7940A28B0835A544A8A927C23D84' +
           'D42C0512E504D4AC04126DB8D5FC07020043991E8A');
      if  (FindDTM(GreyN,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('n');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyP
    GreyP := DTMFromString('78DA633CCDC0C0D0C880021A1A1A18BC81342' +
           '310FF0702C6AB4046056E3520C07805BF39603547814417116A6A' +
           '8950534A40CD3520514340CD59FCE680FC0E005F7120AE');
      if  (FindDTM(GreyP,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('p');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyR
    GreyR := DTMFromString('78DA63FCC8C0C0D0C080021A1A1A18BC81342' +
           '310FF0702C64F4046296E3520C0F81A48D412A1869039BF814415' +
           '11E6741150F38F08355F80441B7EBF030009C921ED');
      if  (FindDTM(GreyR,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('r');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyS
    GreyS := DTMFromString('78DA63F465606098CD80021A1A1A18BC81342' +
           '310FF0702C6502063126E3520C0E841841A5720B194809A3020B1' +
           '800873A61350130024961161CE02FC7E070061681DA1');
      if  (FindDTM(GreyS,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('s');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyT
    GreyT := DTMFromString('78DA634C61606098C380021A1A1A18BC81342' +
           '310FF0702C65C2063226E3520C01845849A1422D42403896504D4' +
           'A411A106E4E62904D42412F63B00CE2F1E52');
      if  (FindDTM(GreyT,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('t');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyV
    GreyV := DTMFromString('78DA639CC8C0C0B0800105343434307803694' +
           '620FE0F048CB3818C89B8D58000E31420319D809A5622CCE90512' +
           'CB08A8994C849A2E20311FBFBF00FD041CC7');
      if  (FindDTM(GreyV,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('v');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyX
    GreyX := DTMFromString('78DA633CC1C0C0308B0105343434307803694' +
           '620FE0F048C57808C89B8D5800058CD32026AF611A986905DA781' +
           'C442026A8E13A1E62C90988CDFEF00DFEA2189');
      if  (FindDTM(GreyX,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('x');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyY
    GreyY := DTMFromString('78DA637CC4C0C030930105343434307803694' +
           '620FE0F048C6F808C89B8D58000E37522D43C0112CB08A8B94F84' +
           '9A3BF8DD0C56F30248CC20A0E62E7E3783FC0E0049CB2233');
      if  (FindDTM(GreyY,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('y');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyZ
    GreyZ := DTMFromString('78DA63FCC6C0C030870105343434307803694' +
           '6289FF11F90984440CD5720B190809A8F4062010135EF89B0EB3F' +
           '9058468439C4A8994A40CD2F20319B809A6F44B8F93B7EF7FC070' +
           '2007C73290E');
      if  (FindDTM(GreyZ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('z');
        Wait (2500)
         begin
         FindGreyLetter:=True

    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    until (FindGreyLetter)

    begin
    // Bleu LETTERS !!
    repeat
    begin //Search Bleu1
    Bleu1 := DTMFromString('78DA63F4646060706540018BFEFF674801D28' +
           'C40FC1F08187D810C7BDC6A408011648E030135AEF8ED02AB01D9' +
           'E54784394104D40412A1C60BBF1AB0DFBD8830C797087F81E49DF' +
           '0DB0500E5BB338A');
      if  (FindDTM(Bleu1,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('1'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu2
    Bleu2 := DTMFromString('78DA634C606060F06040018BFEFF674801D28' +
           'C40FC1F081823810C67DC6A4080311D48041150130D247C09A801' +
           '71EC09A88920C2AE0422D4C400093B026AD280841B81F001A971A' +
           '15C0D00C0013871');
      if  (FindDTM(Bleu2,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('2'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu3
    Bleu3 := DTMFromString('78DA632C636060706340018BFEFF674801D28' +
           'C40FC1F0818EB800C7FDC6A4080311F48041250530324EC08A801' +
           'B92788809A5A20E14A404D3190B025A0A600BF7BC07E07D915408' +
           '49B29B40BAEC609BF7B00BD813908');
      if  (FindDTM(Bleu3,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('3'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu4
    Bleu4 := DTMFromString('78DA63EC616060F06240018BFEFF674801D28' +
           'C40FC1F0818A70019B6B8D580006337907024A0A61548F8125033' +
           '1DBF7BC06AFA8144100135538854E384DFEF0073A026EC');
      if  (FindDTM(Bleu4,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('4'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu5
    Bleu5 := DTMFromString('78DA635CC6C0C0E0CA800216FDFFCF9002A41' +
           '981F83F1030AE01326C71AB0101C67944A8590D24DC08A801D9E5' +
           '4F40CD5C20E14B40CD5220114484398104D42CC3EF2F50F800002' +
           'ACF2B7C');
      if  (FindDTM(Bleu5,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('5'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu6
    Bleu6 := DTMFromString('78DA63DCCEC0C0E0C1800216FDFFCF9002A41' +
           '981F83F1030EE0732EC71AB0101C6AD40C29108358104D4EC2342' +
           'CD4E20114440CD4120E14D40CD2620E145845D84FCBE1948F8E30' +
           'F4300AF84304A');
      if  (FindDTM(Bleu6,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('6'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu7
    Bleu7 := DTMFromString('78DA633CCDC0C0E0CE800216FDFFCF9002A41' +
           '981F83F10301E0132EC71AB0101C64B44A8390E24FC08A8390524' +
           '8208A8394A849AD344B8E71C90F026A0E622907025A0E60C90F02' +
           '7A00614864EF8C31900CA053503');
      if  (FindDTM(Bleu7,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('7'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu8
    Bleu8 := DTMFromString('78DA63BCCFC0C0E0CA800216FDFFCF9002A41' +
           '981F83F10303E0532EC71AB0101C6EB44A8B901240209A801D915' +
           '4040CD3D20114484391E04D45C05123E04D45C03122E44B8C7167' +
           'F180200C27131A4');
      if  (FindDTM(Bleu8,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('8'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu9
    Bleu9 := DTMFromString('78DA63FCCCC0C0E0C9800216FDFFCF9002A41' +
           '9A17CC6B740C289809A0F40C28E809A2F40C296809ABF40C29D80' +
           '9ADF40C29E809A5F40C29F809AF740228808357EB8D5FC0702465' +
           '018061211866E94DB050033E83B04');
      if  (FindDTM(Bleu9,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('9'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuA
    BleuA := DTMFromString('78DA63F4656060C86040018BFEFF674801D28' +
           'C40FC1F081803818C48DC6A4080D19B08356E40228D801A672091' +
           '47404D24116A428044220135E184FD0E00B24125C4');
      if  (FindDTM(BleuA,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('a'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuB
    BleuB := DTMFromString('78DA634C616060486640018BFEFF670009330' +
           '2F17F2060CC0132A271AB0101C658201149404D1A116A5281441E' +
           '117611520392CF22C29C54FC7E07001E442664');
      if  (FindDTM(BleuB,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('b'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuC
    BleuC := DTMFromString('78DA632C676060486140018BFEFF070B3102F' +
           '17F20602C02329270AB0101C66620114D404D29116A40EEC925C2' +
           'AE1C22D4641050530B2422F1FB1D008F8A271A');
      if  (FindDTM(BleuC,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('c'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuE
    BleuE := DTMFromString('78DA635CC5C0C090CC800216FDFFCF9002A41' +
           '981F83F1030AE0632A270AB0101B09A3C026AE611A9268A083529' +
           '04D42C25C2AE25F8ED02FB7D396135007DB2306E');
      if  (FindDTM(BleuE,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('e'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuF
    BleuF := DTMFromString('78DA63DCC1C0C090C4800216FDFFCF9002A41' +
           '981F83F10301E00322271AB0101C6FD402285809A8DF8ED82AB21' +
           '64D72620914740CD3622D4ECC06F17C8EF00C45E28F1');
      if  (FindDTM(BleuF,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('f'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuG
    BleuG := DTMFromString('78DA633CC7C0C090C2800216FDFF0F166204E' +
           '2FF40C0780DC848C7AD0604C06AE209A8390E24A209A8390A24B2' +
           '08A801B9398F809AB3402292809AC3402219BFDF013FE029A6');
      if  (FindDTM(BleuG,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('g'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuH
    BleuH := DTMFromString('78DA637CC2C0C090C4800216FDFFCF9002A41' +
           '981F83F1030BE0132F270AB0101B09A48026A6E11A98618BB9289' +
           '302783809AFB44D8F50048A4E00F1F006CD02EB1');
      if  (FindDTM(BleuH,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('h'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuJ
    BleuJ := DTMFromString('78DA630C646060A86740018BFEFF674801D28' +
           'C40FC1F0818BD808C52DC6A4080318448356D04D4F803892E026A' +
           'DC8954D346C05FFE44B8D99D08377B11E11E909A0AFCEE010093B' +
           '33607');
      if  (FindDTM(BleuJ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('j'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuK
    BleuK := DTMFromString('78DA634C666060A86740018BFEFF674801D28' +
           'C40FC1F08180B808C52DC6A4000ACA68B809A5822D59412A1A699' +
           '809A7420D146404D0690A8C0EF7700BDA02750');
      if  (FindDTM(BleuK,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('k'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuL
    BleuL := DTMFromString('78DA632C676060A86340018BFEFF674801D28' +
           'C40FC1F08184B818C52DC6A4080B18A083520F92E026A6A8850D3' +
           '4CA49A7622DC534FC0EF1544D85545849A3AFC6A40760100A3963' +
           '823');
      if  (FindDTM(BleuL,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('l'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuN
    BleuN := DTMFromString('78DA635CC1C0C0D0C0800216FDFFCF9002A41' +
           '9A17CC60D40A29408359D04D4CC03125D44A82925424D3D11EE21' +
           'A46629902827A066259068C3ADE63F10000013B9298B');
      if  (FindDTM(BleuN,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('n'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuP
    BleuP := DTMFromString('78DA633CCDC0C0D0C8800216FDFFCF9002A41' +
           '981F83F10305E05322A70AB0101C62BF8CD01AB390A24BA885053' +
           '4B849A52026AAE01891A026ACEE23707E47700BDA42A76');
      if  (FindDTM(BleuP,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('p'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuR
    BleuR := DTMFromString('78DA63FCC8C0C0D0C0800216FDFFCF9002A41' +
           '981F83F10307E02324A71AB0101C6D740A296083584CCF90D24AA' +
           '8830A78B809A7F44A8F90224DAF0FB1D0067FC2BB5');
      if  (FindDTM(BleuR,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('r'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuS
    BleuS := DTMFromString('78DA63F465606098CD800216FDFFCF9002A41' +
           '981F83F10308602199370AB0101460F22D4B80289A504D4840189' +
           '054498339D809A0020B18C087316E0F73B00BF9B2769');
      if  (FindDTM(BleuS,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('s'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuT
    BleuT := DTMFromString('78DA634C61606098C3800216FDFFCF0012660' +
           '4E2FF40C0980B644CC4AD060418A388509342849A6420B18C809A' +
           '3422D480DC3C85809A44C27E07002C71281A');
      if  (FindDTM(BleuT,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('t'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuV
    BleuV := DTMFromString('78DA639CC8C0C0B08001052CFAFF9F2105483' +
           '302F17F20609C0D644CC4AD060418A70089E904D4B412614E2F90' +
           '584640CD6422D4740189F9F8FD0500156C2556');
      if  (FindDTM(BleuV,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('v'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuX
    BleuX := DTMFromString('78DA633CC1C0C0308B01052CFAFF9F2105483' +
           '302F17F2060BC02644CC4AD0604C06A961150B38F483584EC3A0D' +
           '24161250739C08356781C464FC7E07003E2C2B51');
      if  (FindDTM(BleuX,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('x'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuY
    BleuY := DTMFromString('78DA637CC4C0C0309301052CFAFF9F2105483' +
           '302F17F20607C03644CC4AD060418AF13A1E60990584640CD7D22' +
           'D4DCC1EF66B09A17406206013577F1BB19E47700A7FE2BFB');
      if  (FindDTM(BleuY,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('y'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuZ
    BleuZ := DTMFromString('78DA63FCC6C0C0308701052CFAFF9F2105483' +
           '342F98CFF80C424026ABE02898504D47C04120B08A8794F845DFF' +
           '81C43222CC2146CD54026A7E0189D904D47C23C2CDDFF1BBE73F1' +
           '00000B46A3681');
      if  (FindDTM(BleuZ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('z'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
         
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    until (FindBleuLetter)
    begin //Wachten
        Wait (100000)
    end;
    end;
    end;
    end;
    until (False)
    end;
    end.

    So, scar is able to find the captcha and read ones, but after the first repeat it doesn't find the captcha anymore..
    Could anyone help me please?

    Bye,
    W0uter

  25. #25
    Join Date
    May 2006
    Location
    Amsterdam
    Posts
    3,620
    Mentioned
    5 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by W0uter View Post
    Well, the whole script is a bit long and I don't think you guys are able to read it cause I didn't write it very synoptic.

    About the FreeDTM:
    So then scar loads the DTM's ones and then just saves them or something?

    About the procedures:
    I'm gonna try to make some procedures now, I'll post it if I need some help.

    For the people who wanted to see the whole script:
    SCAR Code:
    program Script;
    {.include SRL/SRL.scar}
    var x,y,x2,y2,x3,y3,x4,y4,x5,y5: Integer;
    var Misdaden: Integer;
    var Juwelier: Integer;
    var TypingPlace: Integer;
    var Corner1: Integer;
    var Corner2: Integer;
      // FindLetters
    var FindYellowLetter: Boolean;
    var FindGreyLetter: Boolean;
    var FindBleuLetter: Boolean;
      // Yellow Letters
    var Yellow1: Integer;
    var Yellow2: Integer;
    var Yellow3: Integer;
    var Yellow4: Integer;
    var Yellow5: Integer;
    var Yellow6: Integer;
    var Yellow7: Integer;
    var Yellow8: Integer;
    var Yellow9: Integer;
    var YellowA: Integer;
    var YellowB: Integer;
    var YellowC: Integer;
    var YellowE: Integer;
    var YellowF: Integer;
    var YellowG: Integer;
    var YellowH: Integer;
    var YellowJ: Integer;
    var YellowK: Integer;
    var YellowL: Integer;
    var YellowN: Integer;
    var YellowP: Integer;
    var YellowR: Integer;
    var YellowS: Integer;
    var YellowT: Integer;
    var YellowV: Integer;
    var YellowX: Integer;
    var YellowY: Integer;
    var YellowZ: Integer;
      // Grey Letters
    var Grey1: Integer;
    var Grey2: Integer;
    var Grey3: Integer;
    var Grey4: Integer;
    var Grey5: Integer;
    var Grey6: Integer;
    var Grey7: Integer;
    var Grey8: Integer;
    var Grey9: Integer;
    var GreyA: Integer;
    var GreyB: Integer;
    var GreyC: Integer;
    var GreyE: Integer;
    var GreyF: Integer;
    var GreyG: Integer;
    var GreyH: Integer;
    var GreyJ: Integer;
    var GreyK: Integer;
    var GreyL: Integer;
    var GreyN: Integer;
    var GreyP: Integer;
    var GreyR: Integer;
    var GreyS: Integer;
    var GreyT: Integer;
    var GreyV: Integer;
    var GreyX: Integer;
    var GreyY: Integer;
    var GreyZ: Integer;
      // Bleu Letters
    var Bleu1: Integer;
    var Bleu2: Integer;
    var Bleu3: Integer;
    var Bleu4: Integer;
    var Bleu5: Integer;
    var Bleu6: Integer;
    var Bleu7: Integer;
    var Bleu8: Integer;
    var Bleu9: Integer;
    var BleuA: Integer;
    var BleuB: Integer;
    var BleuC: Integer;
    var BleuE: Integer;
    var BleuF: Integer;
    var BleuG: Integer;
    var BleuH: Integer;
    var BleuJ: Integer;
    var BleuK: Integer;
    var BleuL: Integer;
    var BleuN: Integer;
    var BleuP: Integer;
    var BleuR: Integer;
    var BleuS: Integer;
    var BleuT: Integer;
    var BleuV: Integer;
    var BleuX: Integer;
    var BleuY: Integer;
    var BleuZ: Integer;

    begin
       MoveMouseSmooth(145, 587);
       ClickMouse(145, 587,true);
       Wait (3000)

    begin
    repeat
    begin //Click Misdaden
    Misdaden := DTMFromString('78DA639465606038C4C8800CFEFFFF0FA661A' +
           '28C1640623F01359640E2280135AC44AAD94B400D2F916A08D925' +
           '06248E1050030A9F3D04D4A8106197366173000B532A80');
      if  (FindDTM(Misdaden,x,y,0, 377, 62, 504)) then
       begin
       MoveMouseSmooth(x,y);
       ClickMouse(x,y,true);
       Wait (3000);
    end;

    begin //Find Captcha
    Corner1 := DTMFromString('78DA6354656460980AC458004C94519308352' +
           '073A613502307644D23A0461153CD8A152B30D54C26A00664D724' +
           '0276A963AAC1304703C89A49C01C254C3518E680D44C24A0468B0' +
           '87F81D4CCC0EF1E002D51156F');
           if  (FindDTM(Corner1,x4,y4,265, 330, 469, 525)) then

    Corner2 := DTMFromString('78DA63DCC5C8C0700188B1009828E35E20EB0' +
           'CAA9A152B56A0AAD981A906C31C909A4B04CCD90D645D26A0661B' +
           '90758E805D3B8970CF1E20EB3C01BB7612E99E8B04D4EC21D2EFD' +
           '7F0BB19004810206E');
           if  (FindDTM(Corner2,x5,y5,265, 330, 469, 525)) then
           Wait (3000)
    end;

    begin //Click Beroof een Juwelier
    Juwelier := DTMFromString('78DA63D463646028066224F0F1E37B300D136' +
           '504A9A94455A318D288AA4603D31C0C3520737250D5AC58B10255' +
           '4D0D909587AA0606E06AAA80AC0AFC6A00D4FB0B27');
      if  (FindDTM(Juwelier,x2,y2,286, 327, 449, 465)) then
       begin
       MoveMouseSmooth(x2,y2);
       ClickMouse(x2,y2,true);
       Wait (3000)
    end;
    end;

    begin //Click TypingPlace
    TypingPlace := DTMFromString('78DA637CCAC8C0B01E8891C0F9F3E7C1344C9' +
           '4F10590B51C55CD8E1D3B50D53CC554A3A1A181A9662B11766D23' +
           '601748CD06FC6A00644E1562');
      if  (FindDTM(TypingPlace,x3,y3,443, 362, 512, 498)) then
       begin
       MoveMouseSmooth(x3,y3);
       ClickMouse(x3,y3,true);
       Wait (3000)
    end;
    end;

    begin
    repeat
    // YELLOW LETTERS !!
    begin //Search Yellow1
    Yellow1 := DTMFromString('78DA63F464606070654001FFFF8732A400694' +
           '630FBFF7F465F20C31EB71A10600499E340408D2B7EBBC06A4076' +
           'F911614E1001358144A8F1C2AF06EC772F22CCF125C25F207927F' +
           'C7601006BBD303B');
      if  (FindDTM(Yellow1,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('1');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow2
    Yellow2 := DTMFromString('78DA634C606060F0604001FFFF8732A400694' +
           '630FBFF7FC64820C319B71A10604C07124104D44403095F026A40' +
           '1C7B026A2288B02B8108353140C28E809A3420E146207C406A5C2' +
           '857030046033522');
      if  (FindDTM(Yellow2,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('2');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow3
    Yellow3 := DTMFromString('78DA632C63606070634001FFFF8732A400694' +
           '630FBFF7FC63A20C31FB71A1060CC07128104D4D400093B026A40' +
           'EE0922A0A61648B81250530C246C09A829C0EF1EB0DF41760510E' +
           '1660AED82AB71C2EF1E00C8DC356C');
      if  (FindDTM(Yellow3,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('3');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow4
    Yellow4 := DTMFromString('78DA63EC616060F0624001FFFF8732A400694' +
           '630FBFF7FC62940862D6E3520C0D80D241C09A8690512BE04D44C' +
           'C7EF1EB09A7E20114440CD1422D538E15703001E8B2088');
      if  (FindDTM(Yellow4,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('4');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow5
    Yellow5 := DTMFromString('78DA635CC6C0C0E0CA8002FEFF0F654801D28' +
           'C60F6FFFF8C6B800C5BDC6A4080711E116A56030937026A4076F9' +
           '1350331748F81250B314480411614E207E35008A30212F');
      if  (FindDTM(Yellow5,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('5');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow6
    Yellow6 := DTMFromString('78DA63DCCEC0C0E0C18002FEFF0F654801D28' +
           'C60F6FFFF8CFB810C7BDC6A4080712B907024424D200135FB8850' +
           'B31348041150731048781350B309487811611721BF6F0612FEF8C' +
           '31000A54A2D48');
      if  (FindDTM(Yellow6,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('6');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow7
    Yellow7 := DTMFromString('78DA633CCDC0C0E0CE8002FEFF0F654801D28' +
           'C60F6FFFF8C47800C7BDC6A4080F112116A8E03093F026A4E0189' +
           '20026A8E12A1E63411EE390724BC09A8B908245C09A8390324FC0' +
           '9A80185A113FE700600500731B4');
      if  (FindDTM(Yellow7,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('7');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow8
    Yellow8 := DTMFromString('78DA63BCCFC0C0E0CA8002FEFF0F654801D28' +
           'C60F6FFFF8C4F810C7BDC6A4080F13A116A6E008940026A407605' +
           '1050730F480411618E0701355781840F0135D780840B11EEB1C51' +
           'F8600B8372EA2');
      if  (FindDTM(Yellow8,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('8');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search Yellow9
    Yellow9 := DTMFromString('78DA63FCCCC0C0E0C98002FEFF0F654801D28' +
           'C503EE35B20E14440CD0720614740CD1720614B40CD5F20E14E40' +
           'CD6F20614F40CD2F20E14F40CD7B201144841A3FDC6AFE0301232' +
           '80C0389084337CAED02003F433768');
      if  (FindDTM(Yellow9,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('9');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowA
    YellowA := DTMFromString('78DA63F4656060C8604001FFFF8732A400694' +
           '630FBFF7FC640202312B71A1060F426428D1B904823A0C61948E4' +
           '11501349849A10209148404D387EBF8300005D2C1F60');
      if  (FindDTM(YellowA,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('a');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowB
    YellowB := DTMFromString('78DA634C61606048664001FFFF8732808419C' +
           '1ECFFFF1973808C68DC6A40803116484412509346849A54209147' +
           '845D84D480E4B388302715BF1A00C9202000');
      if  (FindDTM(YellowB,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('b');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowC
    YellowC := DTMFromString('78DA632C67606048614001FFFF87828518C1E' +
           'CFFFF198B808C24DC6A4080B11948441350534A841A907B7289B0' +
           '2B8708351904D4D4028948FC6A003A7520B6');
      if  (FindDTM(YellowC,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('c');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowE
    YellowE := DTMFromString('78DA635CC5C0C090CC8002FEFF0F654801D28' +
           'C60F6FFFF8CAB818C28DC6A4000AC268F809A7944AA8922424D0A' +
           '01354B89B06B097EBBC07E5F4E580D00D8682DB9');
      if  (FindDTM(YellowE,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('e');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowF
    YellowF := DTMFromString('78DA63DCC1C0C090C48002FEFF0F654801D28' +
           'C60F6FFFF8C07808C48DC6A4080713F904821A066237EBBE06A08' +
           'D9B50948E41150B38D08353B08DB05006F49228D');
      if  (FindDTM(YellowF,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('f');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowG
    YellowG := DTMFromString('78DA633CC7C0C090C28002FEFF0F050B3182D' +
           '9FFFF335E0332D271AB0101B09A78026A8E038968026A8E02892C' +
           '026A406ECE23A0E62C908824A0E6309048C6AF0600EABC2342');
      if  (FindDTM(YellowG,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('g');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowH
    YellowH := DTMFromString('78DA637CC2C0C090C48002FEFF0F654801D28' +
           'C60F6FFFF8C6F808C3CDC6A4000AC2692809A5B44AA21C6AE6422' +
           'CCC920A0E63E11763D001229B8D5B0033100BDAC2807');
      if  (FindDTM(YellowH,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('h');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowJ
    YellowJ := DTMFromString('78DA630C646060A8674001FFFF8732A400694' +
           '630FBFF7F462F20A314B71A10600C21524D1B0135FE40A28B801A' +
           '7722D5B411F0973F116E7627C2CD5E44B807A4A602BF7B0019B53' +
           '2B8');
      if  (FindDTM(YellowJ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('j');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowK
    YellowK := DTMFromString('78DA634C666060A8674001FFFF8732A400694' +
           '630FBFF7FC60220A314B71A1000ABE922A026964835A544A86926' +
           'A0261D48B411509301242AF0AB0100688B20EC');
      if  (FindDTM(YellowK,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('k');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowL
    YellowL := DTMFromString('78DA632C676060A8634001FFFF8732A400694' +
           '630FBFF7FC65220A314B71A1060AC22420D48BE8B809A1A22D434' +
           '13A9A69D08F7D4E3570300C4B421A3');
      if  (FindDTM(YellowL,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('l');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowN
    YellowN := DTMFromString('78DA635CC5C0C0D0C48002FEFF0F654801D28' +
           'C503EE30620D145849A52026AE611A986905DCB80442501358B88' +
           '3007E4F70E026A1610113EEB80442301350B81443501358B81441' +
           '90135EB81441D01356B8808E72544B88740DAF80F040063A641EF');
      if  (FindDTM(YellowN,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('n');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowP
    YellowP := DTMFromString('78DA633CCDC0C0D0C88002FEFF0F654801D28' +
           'C60F6FFFF8C57818C0ADC6A4080F10A7E73C06A8E02892E22D4D4' +
           '12A1A694809A6B40A286809AB384CD0100688F2412');
      if  (FindDTM(YellowP,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('p');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowR
    YellowR := DTMFromString('78DA6334616460D80FC448E0FFFF508614200' +
           'D13657400B24E12506303646D23A04617C8DA42841A42761911A1' +
           'C68C08BB6C81AC3D04D45813113E20BF1F21A0C69248371F25227' +
           'CF612A1E6106E35FF81000031F637AA');
      if  (FindDTM(YellowR,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('r');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowS
    YellowS := DTMFromString('78DA63F465606098CD8002FEFF0F654801D28' +
           'C60F6FFFF8CA140C624DC6A4080D1830835AE4062290135614062' +
           '0111E64C27A02600482C23C21C027601006A862105');
      if  (FindDTM(YellowS,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('s');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowT
    YellowT := DTMFromString('78DA634C61606098C38002FEFF0F650009338' +
           '2D9FFFF33E602191371AB0101C62822D4A410A12619482C23A026' +
           '8D083520374F21A02611BFDFD9801800D76521BC');
      if  (FindDTM(YellowT,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('t');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowV
    YellowV := DTMFromString('78DA639CC8C0C0B0800105FCFF1FCA9002A41' +
           '9C1ECFFFF196703191371AB0101C62940623A0135AD4498D30B24' +
           '961150339908355D40623E7E35000F9F1F3F');
      if  (FindDTM(YellowV,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('v');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowX
    YellowX := DTMFromString('78DA633CC1C0C0308B0105FCFF1FCA9002A41' +
           '9C1ECFFFF19AF00191371AB0101B09A6504D4EC23520D21BB4E03' +
           '898504D41C2742CD59203119BF1A00E90824ED');
      if  (FindDTM(YellowX,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('x');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowY
    YellowY := DTMFromString('78DA637CC4C0C030930105FCFF1FCA9002A41' +
           '9C1ECFFFF19DF00191371AB0101C6EB44A8790224961150739F08' +
           '3577F0BB19ACE60590984140CD5DC26E060052E92597');
      if  (FindDTM(YellowY,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('y');
        Wait (2500)
         begin
         FindYellowLetter:=True
    end;

    end else
    begin //Search YellowZ
    YellowZ := DTMFromString('78DA63FCC6C0C030870105FCFF1FCA9002A41' +
           '9A17CC67F40621201355F81C442026A3E02890504D4BC27C2AEFF' +
           '40621911E610A3662A0135BF80C46C026ABE11E1E6EFF8DDF31F0' +
           '8003A6C3332');
      if  (FindDTM(YellowZ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('z');
        Wait (2500)
         begin
         FindYellowLetter:=True

    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    until (FindYellowLetter)
    end;


    begin
    // GREY LETTERS !!
    repeat
    begin //Search Grey1
    Grey1 := DTMFromString('78DA63F4646060706540010D0D0D0CDE409A1' +
           '188FF0301A32F90618F5B0D083082CC7120A0C615BF5D603520BB' +
           'FC88302788809A4022D478E15703F6BB1711E6F812E12F90BC137' +
           'E3500A3CE221B');
      if  (FindDTM(Grey1,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('1');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey2
    Grey2 := DTMFromString('78DA634C606060F06040010D0D0D0CDE409A1' +
           '188FF0301632490E18C5B0D0830A6038920026AA281842F013529' +
           '40C29E809A0822EC4A20424D0C90B023A0260D48B811081F901A1' +
           '7CAD4C0DD4CC83D9144844F2AFE3805AB4922227C528950130B24' +
           '028908432722E2D49F08BBBCF187330008AF4126');
      if  (FindDTM(Grey2,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('2');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey3
    Grey3 := DTMFromString('78DA632C636060706340010D0D0D0CDE409A1' +
           '188FF0301631D90E18F5B0D0830E6038940026A6A80841D013520' +
           'F7041150530B245C09A8290612B604D414E0770FD8EF20BB02887' +
           '0338576C1D538E1770F008F912A5C');
      if  (FindDTM(Grey3,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('3');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey4
    Grey4 := DTMFromString('78DA63EC616060F06240010D0D0D0CDE409A1' +
           '188FF0301E31420C316B71A1060EC06128E04D4B402095F026AA6' +
           'E3770F584D3F900822A0660A916A9CF0FB1D00156D1D24');
      if  (FindDTM(Grey4,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('4');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey5
    Grey5 := DTMFromString('78DA635CC6C0C0E0CA80021A1A1A18BC81342' +
           '310FF0702C63540862D6E3520C0388F0835AB81841B013520BBFC' +
           '09A8990B247C09A8590A248288302790809A65F8FD050A1F005AA' +
           'F207B');
      if  (FindDTM(Grey5,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('5');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey6
    Grey6 := DTMFromString('78DA63DCCEC0C0E0C180021A1A1A18BC81342' +
           '310FF0702C6FD40863D6E3520C0B815483812A12690809A7D44A8' +
           'D909248208A8390824BC09A8D90424BC88B08B90DF3703097FFC6' +
           '1080041822410');
      if  (FindDTM(Grey6,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('6');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey7
    Grey7 := DTMFromString('78DA633CCDC0C0E0CE80021A1A1A18BC81342' +
           '310FF0702C62340863D6E3520C078890835C781841F0135A78044' +
           '100135478950739A08F79C0312DE04D45C0412AE04D49C0112FE0' +
           '4D480C2D0097F380300920E2790');
      if  (FindDTM(Grey7,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('7');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey8
    Grey8 := DTMFromString('78DA63BCCFC0C0E0CA80021A1A1A18BC81342' +
           '310FF0702C6A740863D6E3520C0789D083537804420013520BB02' +
           '08A8B90724828830C783809AAB40C287809A6B40C28508F7D8E20' +
           'F4300546F256A');
      if  (FindDTM(Grey8,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('8');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search Grey9
    Grey9 := DTMFromString('78DA63FCCCC0C0E0C980021A1A1A18BC81342' +
           '394CFF81648381150F30148D81150F30548D81250F31748B81350' +
           'F31B48D81350F30B48F81350F31E480411A1C60FB79AFF40C0080' +
           'AC34022C2D08D72BB0005F82C58');
      if  (FindDTM(Grey9,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('9');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyA
    GreyA := DTMFromString('78DA63F4656060C86040010D0D0D0CDE409A1' +
           '188FF030163209011895B0D08307A13A1C60D48A41150E30C24F2' +
           '08A88924424D08904824A0261CBFDF4100004A181800');
      if  (FindDTM(GreyA,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('a');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyB
    GreyB := DTMFromString('78DA634C616060486640010D0D0D0CDE409A1' +
           '188FF0301630E90118D5B0D0830C6028948026AD28850930A24F2' +
           '88B08B901A907C1611E6A4E2F73B00C0021C9C');
      if  (FindDTM(GreyB,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('b');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyC
    GreyC := DTMFromString('78DA632C676060486140010D0D0D0CDE409A1' +
           '188FF030163119091845B0D083036038968026A4A895003724F2E' +
           '1176E510A12683809A5A2011895F0D0027611956');
      if  (FindDTM(GreyC,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('c');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyE
    GreyE := DTMFromString('78DA635CC5C0C090CC80021A1A1A183C80342' +
           '310FF0702C6D5404614A61A6FA81A1000ABC923A0661E916AA288' +
           '50934240CD5222EC5A82DF2EB0DF9713760F00A018216E');
      if  (FindDTM(GreyE,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('e');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyF
    GreyF := DTMFromString('78DA63DCC1C0C090C480021A1A1A18BC81342' +
           '310FF0702C6034046246E3520C0B81F48A41050B311BF5D703584' +
           'ECDA0424F208A8D946849A1D84ED02005C351B2D');
      if  (FindDTM(GreyF,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('f');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyG
    GreyG := DTMFromString('78DA633CC7C0C090C280021A1A1A18BC81342' +
           '310FF0702C66B40463A6E35200056134F40CD7120114D40CD5120' +
           '9145400DC8CD7904D49C05129104D41C0612C9F8FD0E00E19E1FD' +
           'E');
      if  (FindDTM(GreyG,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('g');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyH
    GreyH := DTMFromString('78DA637CC2C0C090C480021A1A1A18BC81342' +
           '310FF0702C63740461E6E35200056134940CD2D22D51063573211' +
           'E6641050739F08BB1E008914FCE103009CB023B0');
      if  (FindDTM(GreyH,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('h');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyJ
    GreyJ := DTMFromString('78DA630C646060A86740010D0D0D0CDE409A1' +
           '188FF0301A31790518A5B0D08308610A9A68D801A7F20D145408D' +
           '3B916ADA08F8CB9F0837BB13E1662F22DC03525381DF3D005BBC2' +
           '894');
      if  (FindDTM(GreyJ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('j');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyK
    GreyK := DTMFromString('78DA634C666060A86740010D0D0D0CDE409A1' +
           '188FF0301630190518A5B0D0880D5741150134BA49A5222D43413' +
           '50930E24DA08A8C9001215F8FD0E005F6D1D88');
      if  (FindDTM(GreyK,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('k');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyL
    GreyL := DTMFromString('78DA632C676060A86340010D0D0D0CDE409A1' +
           '188FF0301632990518A5B0D08305611A10624DF45404D0D116A9A' +
           '8954D34E847BEA09F8BD8208BBAA885053875F0DC82E006B9F2AB' +
           '0');
      if  (FindDTM(GreyL,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('l');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyN
    GreyN := DTMFromString('78DA635CC1C0C0D0C080021A1A1A18BC81342' +
           '394CFB801489412A1A693809A7940A28B0835A544A8A927C23D84' +
           'D42C0512E504D4AC04126DB8D5FC07020043991E8A');
      if  (FindDTM(GreyN,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('n');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyP
    GreyP := DTMFromString('78DA633CCDC0C0D0C880021A1A1A18BC81342' +
           '310FF0702C6AB4046056E3520C07805BF39603547814417116A6A' +
           '8950534A40CD3520514340CD59FCE680FC0E005F7120AE');
      if  (FindDTM(GreyP,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('p');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyR
    GreyR := DTMFromString('78DA63FCC8C0C0D0C080021A1A1A18BC81342' +
           '310FF0702C64F4046296E3520C0F81A48D412A1869039BF814415' +
           '11E6741150F38F08355F80441B7EBF030009C921ED');
      if  (FindDTM(GreyR,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('r');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyS
    GreyS := DTMFromString('78DA63F465606098CD80021A1A1A18BC81342' +
           '310FF0702C6502063126E3520C0E841841A5720B194809A3020B1' +
           '800873A61350130024961161CE02FC7E070061681DA1');
      if  (FindDTM(GreyS,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('s');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyT
    GreyT := DTMFromString('78DA634C61606098C380021A1A1A18BC81342' +
           '310FF0702C65C2063226E3520C01845849A1422D42403896504D4' +
           'A411A106E4E62904D42412F63B00CE2F1E52');
      if  (FindDTM(GreyT,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('t');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyV
    GreyV := DTMFromString('78DA639CC8C0C0B0800105343434307803694' +
           '620FE0F048CB3818C89B8D58000E31420319D809A5622CCE90512' +
           'CB08A8994C849A2E20311FBFBF00FD041CC7');
      if  (FindDTM(GreyV,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('v');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyX
    GreyX := DTMFromString('78DA633CC1C0C0308B0105343434307803694' +
           '620FE0F048C57808C89B8D5800058CD32026AF611A986905DA781' +
           'C442026A8E13A1E62C90988CDFEF00DFEA2189');
      if  (FindDTM(GreyX,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('x');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyY
    GreyY := DTMFromString('78DA637CC4C0C030930105343434307803694' +
           '620FE0F048C6F808C89B8D58000E37522D43C0112CB08A8B94F84' +
           '9A3BF8DD0C56F30248CC20A0E62E7E3783FC0E0049CB2233');
      if  (FindDTM(GreyY,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('y');
        Wait (2500)
         begin
         FindGreyLetter:=True
    end;

    end else
    begin //Search GreyZ
    GreyZ := DTMFromString('78DA63FCC6C0C030870105343434307803694' +
           '6289FF11F90984440CD5720B190809A8F4062010135EF89B0EB3F' +
           '9058468439C4A8994A40CD2F20319B809A6F44B8F93B7EF7FC070' +
           '2007C73290E');
      if  (FindDTM(GreyZ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('z');
        Wait (2500)
         begin
         FindGreyLetter:=True

    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    until (FindGreyLetter)

    begin
    // Bleu LETTERS !!
    repeat
    begin //Search Bleu1
    Bleu1 := DTMFromString('78DA63F4646060706540018BFEFF674801D28' +
           'C40FC1F08187D810C7BDC6A408011648E030135AEF8ED02AB01D9' +
           'E54784394104D40412A1C60BBF1AB0DFBD8830C797087F81E49DF' +
           '0DB0500E5BB338A');
      if  (FindDTM(Bleu1,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('1'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu2
    Bleu2 := DTMFromString('78DA634C606060F06040018BFEFF674801D28' +
           'C40FC1F081823810C67DC6A4080311D48041150130D247C09A801' +
           '71EC09A88920C2AE0422D4C400093B026AD280841B81F001A971A' +
           '15C0D00C0013871');
      if  (FindDTM(Bleu2,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('2'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu3
    Bleu3 := DTMFromString('78DA632C636060706340018BFEFF674801D28' +
           'C40FC1F0818EB800C7FDC6A4080311F48041250530324EC08A801' +
           'B92788809A5A20E14A404D3190B025A0A600BF7BC07E07D915408' +
           '49B29B40BAEC609BF7B00BD813908');
      if  (FindDTM(Bleu3,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('3'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu4
    Bleu4 := DTMFromString('78DA63EC616060F06240018BFEFF674801D28' +
           'C40FC1F0818A70019B6B8D580006337907024A0A61548F8125033' +
           '1DBF7BC06AFA8144100135538854E384DFEF0073A026EC');
      if  (FindDTM(Bleu4,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('4'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu5
    Bleu5 := DTMFromString('78DA635CC6C0C0E0CA800216FDFFCF9002A41' +
           '981F83F1030AE01326C71AB0101C67944A8590D24DC08A801D9E5' +
           '4F40CD5C20E14B40CD5220114484398104D42CC3EF2F50F800002' +
           'ACF2B7C');
      if  (FindDTM(Bleu5,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('5'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu6
    Bleu6 := DTMFromString('78DA63DCCEC0C0E0C1800216FDFFCF9002A41' +
           '981F83F1030EE0732EC71AB0101C6AD40C29108358104D4EC2342' +
           'CD4E20114440CD4120E14D40CD2620E145845D84FCBE1948F8E30' +
           'F4300AF84304A');
      if  (FindDTM(Bleu6,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('6'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu7
    Bleu7 := DTMFromString('78DA633CCDC0C0E0CE800216FDFFCF9002A41' +
           '981F83F10301E0132EC71AB0101C64B44A8390E24FC08A8390524' +
           '8208A8394A849AD344B8E71C90F026A0E622907025A0E60C90F02' +
           '7A00614864EF8C31900CA053503');
      if  (FindDTM(Bleu7,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('7'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu8
    Bleu8 := DTMFromString('78DA63BCCFC0C0E0CA800216FDFFCF9002A41' +
           '981F83F10303E0532EC71AB0101C6EB44A8B901240209A801D915' +
           '4040CD3D20114484391E04D45C05123E04D45C03122E44B8C7167' +
           'F180200C27131A4');
      if  (FindDTM(Bleu8,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('8'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search Bleu9
    Bleu9 := DTMFromString('78DA63FCCCC0C0E0C9800216FDFFCF9002A41' +
           '9A17CC6B740C289809A0F40C28E809A2F40C296809ABF40C29D80' +
           '9ADF40C29E809A5F40C29F809AF740228808357EB8D5FC0702465' +
           '018061211866E94DB050033E83B04');
      if  (FindDTM(Bleu9,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('9'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuA
    BleuA := DTMFromString('78DA63F4656060C86040018BFEFF674801D28' +
           'C40FC1F081803818C48DC6A4080D19B08356E40228D801A672091' +
           '47404D24116A428044220135E184FD0E00B24125C4');
      if  (FindDTM(BleuA,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('a'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuB
    BleuB := DTMFromString('78DA634C616060486640018BFEFF670009330' +
           '2F17F2060CC0132A271AB0101C658201149404D1A116A5281441E' +
           '117611520392CF22C29C54FC7E07001E442664');
      if  (FindDTM(BleuB,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('b'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuC
    BleuC := DTMFromString('78DA632C676060486140018BFEFF070B3102F' +
           '17F20602C02329270AB0101C66620114D404D29116A40EEC925C2' +
           'AE1C22D4641050530B2422F1FB1D008F8A271A');
      if  (FindDTM(BleuC,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('c'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuE
    BleuE := DTMFromString('78DA635CC5C0C090CC800216FDFFCF9002A41' +
           '981F83F1030AE0632A270AB0101B09A3C026AE611A9268A083529' +
           '04D42C25C2AE25F8ED02FB7D396135007DB2306E');
      if  (FindDTM(BleuE,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('e'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuF
    BleuF := DTMFromString('78DA63DCC1C0C090C4800216FDFFCF9002A41' +
           '981F83F10301E00322271AB0101C6FD402285809A8DF8ED82AB21' +
           '64D72620914740CD3622D4ECC06F17C8EF00C45E28F1');
      if  (FindDTM(BleuF,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('f'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuG
    BleuG := DTMFromString('78DA633CC7C0C090C2800216FDFF0F166204E' +
           '2FF40C0780DC848C7AD0604C06AE209A8390E24A209A8390A24B2' +
           '08A801B9398F809AB3402292809AC3402219BFDF013FE029A6');
      if  (FindDTM(BleuG,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('g'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuH
    BleuH := DTMFromString('78DA637CC2C0C090C4800216FDFFCF9002A41' +
           '981F83F1030BE0132F270AB0101B09A48026A6E11A98618BB9289' +
           '302783809AFB44D8F50048A4E00F1F006CD02EB1');
      if  (FindDTM(BleuH,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('h'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuJ
    BleuJ := DTMFromString('78DA630C646060A86740018BFEFF674801D28' +
           'C40FC1F0818BD808C52DC6A4080318448356D04D4F803892E026A' +
           'DC8954D346C05FFE44B8D99D08377B11E11E909A0AFCEE010093B' +
           '33607');
      if  (FindDTM(BleuJ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('j'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuK
    BleuK := DTMFromString('78DA634C666060A86740018BFEFF674801D28' +
           'C40FC1F08180B808C52DC6A4000ACA68B809A5822D59412A1A699' +
           '809A7420D146404D0690A8C0EF7700BDA02750');
      if  (FindDTM(BleuK,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('k'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuL
    BleuL := DTMFromString('78DA632C676060A86340018BFEFF674801D28' +
           'C40FC1F08184B818C52DC6A4080B18A083520F92E026A6A8850D3' +
           '4CA49A7622DC534FC0EF1544D85545849A3AFC6A40760100A3963' +
           '823');
      if  (FindDTM(BleuL,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('l'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuN
    BleuN := DTMFromString('78DA635CC1C0C0D0C0800216FDFFCF9002A41' +
           '9A17CC60D40A29408359D04D4CC03125D44A82925424D3D11EE21' +
           'A46629902827A066259068C3ADE63F10000013B9298B');
      if  (FindDTM(BleuN,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('n'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuP
    BleuP := DTMFromString('78DA633CCDC0C0D0C8800216FDFFCF9002A41' +
           '981F83F10305E05322A70AB0101C62BF8CD01AB390A24BA885053' +
           '4B849A52026AAE01891A026ACEE23707E47700BDA42A76');
      if  (FindDTM(BleuP,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('p'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuR
    BleuR := DTMFromString('78DA63FCC8C0C0D0C0800216FDFFCF9002A41' +
           '981F83F10307E02324A71AB0101C6D740A296083584CCF90D24AA' +
           '8830A78B809A7F44A8F90224DAF0FB1D0067FC2BB5');
      if  (FindDTM(BleuR,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('r'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuS
    BleuS := DTMFromString('78DA63F465606098CD800216FDFFCF9002A41' +
           '981F83F10308602199370AB0101460F22D4B80289A504D4840189' +
           '054498339D809A0020B18C087316E0F73B00BF9B2769');
      if  (FindDTM(BleuS,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('s'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuT
    BleuT := DTMFromString('78DA634C61606098C3800216FDFFCF0012660' +
           '4E2FF40C0980B644CC4AD060418A388509342849A6420B18C809A' +
           '3422D480DC3C85809A44C27E07002C71281A');
      if  (FindDTM(BleuT,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('t'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuV
    BleuV := DTMFromString('78DA639CC8C0C0B08001052CFAFF9F2105483' +
           '302F17F20609C0D644CC4AD060418A70089E904D4B412614E2F90' +
           '584640CD6422D4740189F9F8FD0500156C2556');
      if  (FindDTM(BleuV,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('v'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuX
    BleuX := DTMFromString('78DA633CC1C0C0308B01052CFAFF9F2105483' +
           '302F17F2060BC02644CC4AD0604C06A961150B38F483584EC3A0D' +
           '24161250739C08356781C464FC7E07003E2C2B51');
      if  (FindDTM(BleuX,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('x'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuY
    BleuY := DTMFromString('78DA637CC4C0C0309301052CFAFF9F2105483' +
           '302F17F20607C03644CC4AD060418AF13A1E60990584640CD7D22' +
           'D4DCC1EF66B09A17406206013577F1BB19E47700A7FE2BFB');
      if  (FindDTM(BleuY,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('y'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
    end;

    end else
    begin //Search BleuZ
    BleuZ := DTMFromString('78DA63FCC6C0C0308701052CFAFF9F2105483' +
           '342F98CFF80C424026ABE02898504D47C04120B08A8794F845DFF' +
           '81C43222CC2146CD54026A7E0189D904D47C23C2CDDFF1BBE73F1' +
           '00000B46A3681');
      if  (FindDTM(BleuZ,x, y,x4, y4, x5, y5)) then
        begin //Type Letter
        SendKeys('z'+chr(13));
        Wait (2500)
         begin
         FindBleuLetter:=True
         Writeln ('Did Crime!')
         
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    until (FindBleuLetter)
    begin //Wachten
        Wait (100000)
    end;
    end;
    end;
    end;
    until (False)
    end;
    end.

    So, scar is able to find the captcha and read ones, but after the first repeat it doesn't find the captcha anymore..
    Could anyone help me please?

    Bye,
    W0uter
    You really should try to read some tut's .
    Verrekte Koekwous

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 14
    Last Post: 06-07-2013, 02:46 AM
  2. Do i have to free an image thats set to another image?
    By NewToAutoing in forum OSR Help
    Replies: 14
    Last Post: 06-06-2007, 05:36 AM
  3. Enable flash?
    By Sp0rky in forum SRL Site Discussion
    Replies: 0
    Last Post: 03-06-2007, 04:08 PM

Posting Permissions

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