Procedure BonusXPScreen;//: Boolean;
var
X, Y, Img: Integer;
Begin
Img := BitmapFromString(11, 11, 'meJxtkL1qAlEUhDdXERavafaq4F' +
'0L94cg68YfBNFEULTTSiHFdukSsLXMM6SysPEh8kJCHiTkWw9s5TI' +
'chjkzcw/rOM5gOE/Tabe7BnG8DIJZuz0yJnFu33P/Bb13uKSjLIi2' +
'wPc3zFb2bUxUe2yQzbc/f8n5Nxl+huFbK3qHo+DR2qeQrCjMzuRL+' +
'NPp6tZXpZK1dpF3xh+iC9jq5q5SGZfLIffgsXbf6B0LA1zrlevmBq' +
'71vJmxGam7DdVqzFuyZZItuGteuQFwbZGimSkedKU8foV48NMpgMt' +
'WqRoGpTQcGy8CqUV5UJrtP9MSXok=');
If FindBitmapToleranceIn(Img, X, Y, 478, 24, 500, 44, 10) Then
Begin
MMouse(X, Y, 5, 5);
ClickMouse2(MOUSE_LEFT);
//Result := Not FindBitmapToleranceIn(Img, X, Y, 478, 24, 500, 44, 10);
End;
FreeBitmap(Img);
End;
begin
SetupSRL;
SRL_Procs[srl_OnLogIn] := @BonusXPScreen;
end.