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.