SCAR Code:
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~MineSweeper Hack~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Made By: Mal1t1a~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Version Number: 1.1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~Name for Highscore: Line 72~~~~~~~~~~~~~~~~~~~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~READ ME!!!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{You don't have to do anything but open minesweeper and press "RUN" you don't }
{have to set the window either. :D }
program MinesweeperHack;
var
c,b,a,x,y,xx,yy,xxx,yyy:integer;
procedure bitmaps;
begin
c := BitmapFromString2(False, 'a80D8378DA3330303030B3041206' +
'86E640C2D4CC11481A599880D8A6CE20D2CD0CA4C4C800ACD0182' +
'4EB0A123136337136A00EB44082A3668E9A396AE6E03473A84000' +
'2C5');
a := BitmapFromString2(False, 'a2BC7A78DAAD514912C33008FB12' +
'8ED71E31D8FF7F52443DB924939476EA8386118B4026222A2F008' +
'5FA0E07706B0998B318CE62FC66258DAC52D418AA32107229B144' +
'2E32748E3868A187FFB6D73F596797D6B074E624FADCAB8113385' +
'4763E67573DCEE6CED74DEEF0AAE277C3A375EFCFBA05335AE783' +
'97C1B80E5CED62CC72E6ACD2B931FCFA83E7BEC9C756F6908B1A9' +
'EAFF8F417BF79EED5DA01115');
b := BitmapFromString2(False, 'a47C8B78DA3330303030B3041206' +
'86E640C2D4D419481A5998C0D9A66E662025462025661620CAD0C' +
'505A4C6C8D5000CDC80C0C000998D4CE252834B3D257A49357FB0' +
'91F8017EFF921A86C4BB0700085');
end;
procedure play;
begin
if(findbitmap(c,x,y))then
movemouse(x,y);
wait(5);
if(findcolor(xx,yy,16777215,0,0,1,1))then
clickmouse(x,y,true)
else
clickmouse(x,y,false);
end;
begin
bitmaps;
keydown(getkeycode('x'));
keyup(getkeycode('x'));
sleep(10);
keydown(getkeycode('y'));
keyup(getkeycode('y'));
sleep(10);
keydown(getkeycode('z'));
keyup(getkeycode('z'));
sleep(10);
keydown(getkeycode('z'));
keyup(getkeycode('z'));
sleep(10);
keydown(getkeycode('y'));
keyup(getkeycode('y'));
sleep(10);
keydown(vk_shift);
keyup(vk_shift);
repeat
play;
if(findbitmap(b,xxx,yyy))then
begin
movemouse(xxx,yyy);
clickmouse(xxx,yyy,true);
end
if(findbitmap(a,x,y))then
begin
sendkeys(readln('Highscores Name?'));
wait(750);
sendkeysvb('{enter}',true);
end;
until(isfkeydown(12));
FreeBitmap(a);
FreeBitmap(b);
FreeBitmap(c);
end.