program MSNClicker;
{.include srl/srl.scar}
var
MSNChat: Integer;
procedure DeclareBMP;
begin
MSNChat := BitmapFromString(20, 15, 'z78DAC555610EF53608BB121012E0' +
'6702E4FE479AD36F93F67681F549555F94C6D8D8F4DEFFF3E ABD5' +
'9470F27A5AED8A3AFC51DDD143CA86EB4EE5E7B6862AB8CD1 E5C4' +
'DA2786DC6677D1D6D041CD71C6A9BB45AD369E772D5F4C57F 13CC' +
'B83957F80870B519313F125DAE457DE9F6F8532718FD01091 FD56' +
'DE22317BC5127175154E72ACE21E430FBB488487F2D86FABB 7581' +
'0A15813F9C115BCB41E0AEB15BBB4BFBBD474253AF5CAC879 7271' +
'F3B57D958046C7AAB2FBDCEA7BFD8972E75DEDA5357324EFE BA89' +
'648A8DD8758819DD20F2E395335B0493A5C38709FA8160004 8D50' +
'70E7AD137CC78D8CAD47C32FDFFADECEA758AF6B973BAE628 FA20' +
'EE991590444CE6DC2940BF0BF0D9E286AE5534F9A3F095127 E927' +
'28CDF70C19035A6DEFEDD8BCA1D0F4AD31420E6F9CDF54E70 A7E3' +
'B4F9DB2439BE3EB1C499229A1173421E3BF2F4806A66C09DC 72E6' +
'2EB5413B1E32CFB50ED3ACF091663927FA94493A25CE5A737 BCCB' +
'BF9ACE83670DC2ED894FBF8999E6C8EFEA63159931D393F7E 9E86' +
'73F263D76E0E02F019EF3FD53A3C29703A33E902639058AF5 36BF' +
'A8214F0F31CACD80043AE81FF8060CD278BA67E676EF0AD0A 73C9' +
'1FDC85FE42297B7B4089B3D45940EC7369212B94D237E89CB BC2F' +
'7EBD5CAECBB2B6775143CAD32B3BC95F3C2215E0719496838 89C1' +
'E590D673FEFCC1651FFFE0D6B5C60B822CF876ECA45420CE9 40B7' +
'B248CB10FEE7B6BF1F563A8AA77C07E8F1D9C37AA189E9CC0 1D50' +
'986C9142CFC2C94899FCE4B7FCE5A5BFACC1032D0B5A858C2 7A98' +
'A2348B8083340E2CD06AC22A9C8122601B914FDD10521A705 5E39' +
'9EE6F5744636ED9DACE823E573E42F2E54A303C4CD9C068ED 06D0' +
'5E33D10E195C7D65CFBB431B00C60F1CEC03374B209E9D70C 585C' +
'968C83BC1F688BE964AFD1FD1284FE1AC6CF6BB9FFE06EF0A DE46' +
'72374E10812BF5E9AC14650CD9169E8A70377E4C468A0E7C1 E062' +
'C38980596F9C62B438061A9D0D9A54CF4BEBA277BC81AE607 42DF' +
'FE32BB1FDA6DC4B19CE82A56059A1BF2F47B08860D9F122FD 2C8C' +
'EC627D84BE31089EA47FEFFC9E0A39A7036D61FE8BE2C157D 784F' +
'E202DFA831B401C5F7FA3CAE4F3C384F28B103CD0C067E340 7FD4' +
'0C3363FE20D7B2CE3463414819A9B93EC56BDA64C60986139 E933' +
'13BC13790117C340A6C64FF41FC0B3CF39AEC');
end;
procedure FindChat;
begin
if(FindBitmapin(MSNChat,x,y,MIX1,MIY1,MIX2,MIY2))t hen
MMouse(x,y,2,2)
Mouse(x,y,2,2,True);
wait(2000);
end;
procedure SayYourText;
begin
SendKeys('Sorry i am not here');
SendKeys('I am not active');
end;
begin
SetUpSRL;
DeclareBMP;
repeat
FindChat;
SayYourText;
until(false)
end.