By using one variable all your doing is writing over the bitmap set before so instead name them all differently, your prolly getting an error because you forget to declare them all differently as well.
So, ya... I own so I fixed it... To my logicality and added standards:
SCAR Code:
program MSNautoTalk;
var
x, y, Bitmap1, Bitmap2, Bitmap3 : Integer;
procedure DeclareBMPS;
begin
Bitmap1 := BitmapFromString(5, 6, 'z78DA458E4112C0200803BF94' +
'4B6B3C16B0FF7F5203E874322AB291687438078889E0921E1A9DE' +
'4DC55A0E9C22B6D0F446A396F2635F902ED37FC33AF3ABBEE3DE9' +
'71AAA31CCDC4CABBD46F039952898756B77FF5015E0028B7');
Bitmap2 := BitmapFromString(7, 7, 'z78DA4D8E490E04210C03BF1' +
'4CD34B139129AFCFF496D9659408910291764FED6C0DC159144B7' +
'C160E7EAF36C7F603631359BEEA9795A5B3D6CF39BB9E5BB13083' +
'8AA0D034FE730DACCD6E36C192A57BE68DEE9A44C30F23E291E12' +
'A8E959D87899EB55F116F44F6AF2872CC92C98CCC537C197E6C1A' +
'2535772FBBFAFA3C94C559985ED948DEBB7F23EA3F1451B');
Bitmap3 := BitmapFromString(6, 6, 'z78DA558E510E80200C43AFD' +
'4A860F9840DEE7F240B231AF7C2026F0DE0C8C2710B4766A63109' +
'C3218C64C1E00F8C6D4CE9ACCCC584AE93B1B3A1B26BA92F63387' +
'9D29190E4A06A8488FE1A95A3A028FF99B6F661FAFC21AB6E6E91' +
'84CFD7B9FB32310D1E491A2F5F');
end;
procedure ClickBMPS;
begin
wait(300+random(32))
movemousesmooth(x,y)
wait(32+random(16))
clickmouse(x,y,true)
end;
Procedure FindBMPS;
begin
if(FindBitmap(Bitmap1, x, y))then
begin
ClickBMPS;
ClickBMPS;
end;
end;
begin
repeat
wait(1300)
declareBMPS;
findbmps;
until(false)
end.
Ps: Ya as Mutant says use SendKeys('Text Here'); or something
.