Thread Rating:
  • 1 Vote(s) - 4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Bomb Sweeper - N5 to N7
#2
(11-25-2023, 08:14 AM)Marcus Wrote: I found the source code of a minsweeper game on a backup drive. I think it's for n5, but it might be even older than that. It's a short program, so translating it line by line to n7 only took me a couple of minutes. As with the Robowack translation, this code doesn't take advantage of the new stuff in n7. The original n5 source code is included.

The minesweeper game is an old memory for me. At that time, I was still a highschool student playing the minesweeper in Windows 3.1 ( ? ). After 35 years, finally I have known how to code the minesweeper  Big Grin Big Grin Big Grin ... It's time to study the logic of this game in 4-8 weeks to come and how to always win  Cool  ... The shortest way to always win is by detecting the bomb when I click the left mouse and directly put a flag  Tongue Tongue Tongue

Code:
' ================
'  MAIN PROGRAM
' ================
do
    ' Transform from mouse to field coordinates.
    xm = int(mousex()/16)
    ym = int(mousey()/16)

    ' Left Button Mouse
    if mousebutton(0, true)
        if HasBomb(xm, ym)
            PutFlag(xm,ym) 'You always win
        else
            Sweep(xm, ym)
        endif
        RedrawGrid()
    endif
               
    'ESC to quit
     if keydown(KEY_ESCAPE) then end
     wait 1
     redraw
loop
Reply


Messages In This Thread
Bomb Sweeper - N5 to N7 - by Marcus - 11-25-2023, 08:14 AM
RE: Bomb Sweeper - N5 to N7 - by 1micha.elok - 11-30-2023, 12:41 PM
RE: Bomb Sweeper - N5 to N7 - by Marcus - 11-30-2023, 02:32 PM
RE: Bomb Sweeper - N5 to N7 - by 1micha.elok - 12-13-2023, 02:04 AM

Forum Jump:


Users browsing this thread: 2 Guest(s)