solarwind
2006-10-20 18:16:13
Update: I am now working on a better northlocking procedure that is more "humanlike". I promise it will be less detectable!
Forget the version below, that was version 0.1
Forget the version below, that was version 0.1
procedure northlock;
var
nlock:integer;
x,y:integer;
begin
MoveMouseSmooth(653+random(10),186+random(10));
getmousepos(x,y);
clickmouse(x,y,true);
nlock := BitmapFromString(10, 15, 'z78DAA5923B0EC4200C44AF0' +
'4C6FC4A6CC8FD8FB42843E1C81B69A56D5E2CFBCD2805853273A6' +
'4583F82F12C5B87E22FC4061CF8639B1263D94FD57A9709E2CE0C' +
'3BCAFDE39D4FD8D608AD4E3FCE2181EE7F66B2A2357107BCCB6D3' +
'F75BD367DF68B3C7974AF9B273A3DA0AFBD93BBEA7498B655ADA2' +
'C52D8DB2C36BDB659AB9FDF1CBB1F695F22AE6F8E76D191AD030E' +
'E9576B68F03DA72D851144D77E244978B41EC09375C4157EBF828' +
'685869955A4FB06BB410ABECF5AC204ED1EFE7EAA81E9D1A09395' +
'E17C00BD86C769');
repeat
SendArrowSilentWait(1,random(50))
until(FindBitmapTolerancein(nlock,x,y,550,0,582,20,10));
end;