SRL Archive - General

I remember seeing a script that plays minesweeper a while ago. I think it was made by Wallfire. Does anyone here have it? Ive been searching for it and I cannot find it. Anyway, if anyone here has it, please post it or upload it.

yeah i have heard of that too… i would also like it if found…

Why not just play minesweeper on your computer games… no need for a script to do it.

Im pretty good at minesweeper, I just want to find the script for it.

From: jcp
Im pretty good at minesweeper, I just want to find the script for it.

i agree… and isn't scripts what this is about..?

From: gothguydante
i agree… and isn't scripts what this is about..?

Yep, this script just solves minesweeper really quickly.

I had one that solved fairly quickly. On my old computer though. When i can be bothered ill go make a crossover cable and network em up and transfer it over. THen post it in other scripts. That is if you are talking about one that actually sovled it not just random shit.

Sumillion also have a script that sloves him.

edit: iam wrong :p

http://www.srl-forums.com/forum/search.php?searchid=397691
The Holly search :)

From: Pyro
I had one that solved fairly quickly. On my old computer though. When i can be bothered ill go make a crossover cable and network em up and transfer it over. THen post it in other scripts. That is if you are talking about one that actually sovled it not just random shit.

Yep, thats the one im looking for. Ive seen the one that guesses, it doesnt work very well.

it wouldnt be to hard to make if you used the "xyzzy shift" cheat.


EDIT:

{winMine solver by munk

can beat expert in 1 sec. :D

INSTRUCTIONS:

1) have minesweeper open and visible.
2) Drag crosshair over desktop.
3) click play.

It'll take 3-4 seconds to setup. Then itll cook through it. have fun.

}
program winMine;
var
  i,t,x,y,w,h,ix,iy,mx,my,bx,by,boxes,mineScreen:integer;
begin
 // movetotray;

  minescreen:=DTMFromString('78DA6374636060F8CA80021A1A1AC0342394C' +
       'FE802243E1350E34184391E44980372CF7722DCF30DBF1A003A24' +
       '106E');
  getclientdimensions(w,h);
  if findDTM(minescreen,x,y,0,0,w,h) then
  begin
    clickmouse(x,y,true);
    wait(100);
    SendKeys('xyzzy');
    KeyDown(VK_Shift);
    wait(3000);
    KeyUp(VK_Shift);
    t:=getSystemTime;
    for i:=x+1 to w do
      if findColor(mx,my,8421504,i,y,i,y) then inc(bx) else break;
    for i:=y+1 to h do
      if findColor(mx,my,8421504,x,i,x,i) then inc(by) else break;
    bx:=floor(bx/16);
    by:=floor(by/16);
    boxes:=floor(bx*by);
    writeln(inttostr(boxes)+' boxes, w'+inttostr(bx)+' h'+inttostr(by));
    for iy:=0 to by-1 do
      for ix:=0 to bx-1 do
      begin
        mx:=x+8+floor(ix*16);
        my:=y+8+floor(iy*16);
        MoveMouse(mx,my);
       // wait(1);
        if getColor(0,0)=16777215 then clickmouse(mx,my,true);
      end;
    writeln('solving took '+inttostr(getSystemTime-t)+'ms');
  end else writeln('no winMine Found!');
end.

:D

Eh.. the script doesn't work for me.

It just goes to the upper left box, and then drags the cursor to the lower right corner.. doesn't do anything

What's so good about minesweeper?