mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-26 19:12:18 -05:00
8d9a439d49
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@434 3f818213-9676-44b0-a9b4-5e4c4e03d09d
23 lines
731 B
Plaintext
23 lines
731 B
Plaintext
program new;
|
|
//http://nl.wikipedia.org/wiki/Lily_Allen
|
|
|
|
var
|
|
Bmp : integer;
|
|
Mask : TMask;
|
|
x,y : integer;
|
|
i, ii : integer;
|
|
w,h : integer;
|
|
begin
|
|
Bmp := BitmapFromString(107, 19, 'beNrtVkEOgCAM8/+fxoOJUYG' +
|
|
'uWwZKbE9KtmYrHbBtgiAIgpCOckFiopdtZr/j2HhynBjYjmntJxaW' +
|
|
'6BwJWC8eH6QU15gz0Zx9vFgX0Iwhs0CASRUW8CFmioB1JFisA5qRI' +
|
|
'KvJQNKa5mEcyAhoauI6N8ymAlkxWpdtwgL2bhPXCJc7+E7JLNJsgG' +
|
|
'qQgL1jhHwX4VJdBsNZMbN5D//m/ob5XzwDp40wfg/jW9g024hbuPd' +
|
|
'ritabVqaAj7zYVyxg9fol4M8FFG7YAfIG00k=');
|
|
Mask := CreateBitmapMask(Bmp);
|
|
GetClientDimensions(w,h);
|
|
// if FindBitmapMaskTolerance(Bmp,x,y,0, 0,w-1, h-1,1,5) then
|
|
if FindMaskTolerance(Mask,x,y,0, 0,w-1, h-1,1,5) then
|
|
MoveMouse(x,y);
|
|
end.
|