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.
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.
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
http://www.srl-forums.com/forum/sear...earchid=397691
The Holly search![]()
it wouldnt be to hard to make if you used the "xyzzy shift" cheat.
EDIT:
SCAR Code:{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.
![]()
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?
There are currently 1 users browsing this thread. (0 members and 1 guests)