SRL Archive - First Scripts

Hello, Its me Mal1t1a again. I have another script that i made and fixed it up so that it is user friendly and that you understand what you need to do to make it work :)

SORRY, YOU GOTTA TARGET YOUR DESKTOP FOR THIS HACK TO WORK!! :) xD

If i don't get results then i'm taking it off

it doesn't go to the next level. and it doesn't win. if i knew how to help i would reply a better response.

This is extremly…… weird :p Just makes flags on my mine sweeper..

KeKeKe I made one also except i hid my 'hack procedure'
Im not sure if this works, but for mine i made it so you target your desktop so it looks from the top left pixel and it just finds the blocks by a bitmap or something.
Hers a link of mine if your interested:
http://www.villavu.com/forum/showthread.php?t=3144?t=3825&highlight=minesweeper

Hey, it works pretty well. I am pretty new at scripting but I believe there is a slight error in the "if thens" because sometimes it will start out and play the game, yet sometimes it will start out by making flags all the way down until it gets into the negatives. Then it will finish off by playing the game.

ITS AWESOME THO,
anonymity

ps: keep up the script making

Yeah sorry, you gotta target your desktop and yeah, it does look for that little pixle change

It just flags all the MineSweeper squares.

I cant get it to work it just freezes my minesweeper lol…

didnt really work for me, maybe cause of vista? idk

Looks nice. Interesting idea for a first script too!

Doesnt work for me, nice idea tho :D

yea dont work for me either, sweet tho =]

work for me lol
funny, but ehm.. useless?

but yes, nice for first script I guess

that was horrible, it just kept opening files and shit on my desktop

Learn standards.

Bitmaps only need to be set once.

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~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.

lol! that post above. that doesn't compile.

Failed when compiling
Line 15: [Error] (15:6): Unknown identifier 'BitmapFromString2' in script

the first one compiled…

maybe you need to load the bitmaps. i have no idea. im lazy.

anyway, if you ever get it to work, then it will be an awesome script.

How to use this sript? pls….somebody write me [email]nemtudom5@azet.sk[/email]

From: and1parki
How to use this sript? pls….somebody write me [email]nemtudom5@azet.sk[/email]

massive gravedig…out of date and no longer works…read forum rules before you post

this didn't work at all
maybe it wasn't designed for vista?
nice try, but it wouldn't even click on the minesweeper window

meh good idea, but it doesnt work for me.. Try reading a few more tuts, and then starting a new thread saying updated or something, once its tested

ROFLMAO! you guys… this is a MAJOR **BUMP**!!!! lololol, didn't you see the date? 09-19-2007 (September 19th, 2007(TWO THOUSAND AND SEVEN!)) :) now im much better at scar scripting :D