The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

The "15" Puzzle

The "15" Puzzle is the classic sliding tile puzzle by Sam Loyd in which you have to rearrange fifteen scrambled tiles back into their original order. (Click on a tile to move it. Press the 'Esc' key to quit the program.)

Source Listing

// // Program: The "15" Puzzle // Author: Loretta Quiring // Ultra-SiMPLE Int x, y initialize @ Do scramble @ Do get move (x, y) @ move tile (x, y) @ If solved() Break Loop flash @ Loop Task initialize Common Int tilecolor=1, backcolor=8, offcolor=4 Common Int data[4][4], mtx=3, mty=3 hide mouse; randomize solid color (8) solid rectangle (256, 168, 383, 295) frame (256, 168, 383, 295) Do y=0,3 Do x=0,3 mtx=x; mty=y If (x+y=6) Break data[x][y]=x+4*y+1 move tile (x, y) @ Loop Loop hide mouse; delay (500) Task scramble Common Int mtx=3, mty=3 Do k=1,15 x=mtx+2*random(2)-1 If (x<0) x=1 If (x>3) x=2 move tile (x, mty) @ y=mty+2*random(2)-1 If (y<0) y=1 If (y>3) y=2 move tile (mtx, y) @ read quitkey (27) Loop Task get move (Int x, Int y) Common Int mtx, mty Int mx, my, mz Do read quitkey (27) read mouse (mx, my, mz) If (!mz) Continue x=mx/32-8; y=(my+24)/32-6 If (x!=mtx Or y!=mty) Return Loop Task move tile (Int x, Int y) Common Int tilecolor, backcolor, offcolor Common Int data[4][4], mtx=3, mty=3 If (x<0 Or x>3 Or y<0 Or y>3) Return If (iabs(mtx-x)>1 Or iabs(mty-y)>1) Return If (iabs(mtx-x)*iabs(mty-y)) Return xul=32*(x+8); yul=32*(y+6)-24 line color (backcolor) If (x=mtx And y=mty) fill color (tilecolor) Else fill color (offcolor) hide mouse Do i=1,32 delay (5) left=xul+i*(mtx-x); top=yul+i*(mty-y) filled rectangle (left, top, left+31, top+31) Loop If (data[x][y]=mtx+4*mty+1) fill color (tilecolor) filled rectangle (left, top, left+31, top+31) textback=tilecolor Endif Else textback=offcolor tabxy (4*(mtx+8)+2, 2*(mty+6)+1) cwrite (itot(data[x][y]), 15, textback) show mouse data[mtx][mty]=data[x][y] mtx=x; mty=y Int solved() Common Int data[4][4] Do y=0,3 Do x=0,3 If (x+y=6) Return 1 If (data[x][y]!=x+4*y+1) Return 0 Loop Loop Task flash honk; honk; honk; delay (1000)

How To Run The Program

If you're feeling ambitious and have nothing better to do, you could just copy
the source listing by hand! However, there is a much easier way to do it:

Copy the source listing into the Windows Clipboard

Paste the Clipboard into a new text document

Drop that text document onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)