Score Up

Score Up is a puzzle that originally appeared in Games magazine. This is a modified version of that puzzle. There are sixteen colored pieces labels A-P. The object is to move them to the top four rows, ending in the same order, i.e. A-D in the top row, E-H is the second row, etc. There are two levels, which basically have the same difficultly level. Pieces move as follows: Pieces move only upwards, and always remain the same column. The number of spaces a piece moves is determined by how many pieces are in its row. If there are four pieces in a row, any of those four pieces moves four spaces. If there are three pieces in a row, any of those pieces moves three spaces forward, and so on. Two pieces of the same color cannot be in the same row. Pieces can jump over other pieces but must land on an empty space. The topmost piece of a column may not make a one space move. For example, suppose the first piece you move is piece P. P then becomes the only piece in its new row (the seventh row), so its next move would be a one space move. However, P will also be the topmost piece of its column (the rightmost column), so it would not be allowed to make that (subsequent) one space move.

Source Listing

// // Program: Score Up // Author: Brucifer // Ultra [Score Up] * Int x, y Do Do level = 0, 1 tab xy (25, 2); Display "Level: ", level + 1,,,,,,,,, setup board (level) @ Do show board @ If (game over ()) Break get move (x, y) @ If (valid move (x, y)) move piece (x, y) @ Loop If (loss ()) Break Loop tab xy (25, 2) If (loss ()) Display "Sorry!",,, Else Display "Congratulations!" wait for event @ Loop Int my quit () goodbye Task setup board (Int n) Common Int board[4][11] Common Int boards[32] = { \ 0, 1, 2, 3, 1, 2, 3, 0, 2, 3, 0, 1, 3, 0, 1, 2, \ 0, 1, 2, 3, 1, 0, 3, 2, 2, 3, 0, 1, 3, 2, 1, 0 } Do y = 0, 10 Do x = 0, 3 If (y < 7) board[x][y] = 0 Else board[x][y] = 16 + (y - 7) * 4 + boards[n * 16 + (y - 7) * 4 + x] Loop Loop Task show board Common Int board[4][11] Common Int2 color[4] color[0] = rgb (0, 255, 0) color[1] = rgb (255, 0, 0) color[2] = rgb (0, 191, 255) color[3] = rgb (255, 255, 0) Int2 b, f b = get back color () f = get fore color () fore color (rgb (0, 0, 0)) back color (-1) line color (rgb (0, 0, 0)) Do y = 0, 10 Do x = 0, 3 x1 = x * 40 + 10; x2 = x1 + 35 y1 = y * 40 + 10; y2 = y1 + 35 If (board[x][y] != 0) solid color (color[bit and (board[x][y], 3)]) filled rectangle (x1, y1, x2, y2) out text xy (x1 + 14, y1 + 10, \ char (ascii ("A") + bit and (board[x][y], 12) + x)) Endif Else solid color (rgb (128, 128, 128)) filled rectangle (x1, y1, x2, y2) Endelse Loop Loop fore color (f) back color (b) Task get move (Int x, Int y) Int k Do wait for event (x, y, k) @ k = k - ascii ("A"); If ((k >= 0) And (k <= 15)) Break If ((x < 10) Or (y < 10)) Continue x = x - 10; y = y - 10 If (((x % 40) > 35) Or ((y % 40) > 35)) Continue x = x / 40; y = y / 40 If ((x < 4) And (y < 11)) Return Loop find piece (k, x, y) @ Task find piece (Int n, Int x, Int y) Common Int board[4][11] x = bit and (n, 3) Do y = 0, 10 If (bit and (bit xor (n, board[x][y]), 28) = 16) Return Loop Int valid move (Int x, Int y) Common Int board[4][11] d = distance (y) If (y < d) Return 0 If (board[x][y-d] != 0) Return 0 Do i = 0, 3 If (bit and (bit xor (board[i][y-d], board[x][y]), 19) = 0) Return 0 Loop If (d != 1) Return 1 Do j = y - 1, 0, -1 If (board[x][j] != 0) Return 1 Loop Return 0 Task move piece (Int x, Int y) Common Int board[4][11] board[x][y - distance(y)] = board[x][y] board[x][y] = 0 Int distance (Int y) Common Int board[4][11] d = 0 Do x = 0, 3 If (board [x][y] != 0) d = d + 1 Loop Return d Int game over () Do y = 0, 10 Do x = 0, 3 If (board[x][y] != 0) If (valid move (x, y)) Return 0 Endif Loop Loop Return 1 Int loss () Common Int board[4][11] Do y = 0, 3 Do x = 0, 3 If (bit and (board[x][y], 28) != 16 + y * 4) Return 1 Loop Loop Return 0 Task wait for event (Int x, Int y, Int key, Int button) Common Int event mode = 13 Int z lm = bit and (event mode, 1) rm = bit and (event mode, 2) e = bit and (event mode, 4) u = bit and (event mode, 8) ls = 4 rs = 4 button = 0 Do delay (0) x = -32768; y = -32768 key = read key () If (key != 0) Break read mouse (x, y, z) If (bit and (z, 1) = 0) ls = 1 If (bit and (z, 2) = 0) rs = 2 If (bit and (z, lm) = ls) button = 1 If (bit and (z, rm) = rs) button = button + 2 If (button != 0) Return Loop If (e And key = 27) quit If (u And key >= ascii ("a") And key <= ascii ("z")) key = key - ascii ("a") + ascii("A") Endif Task wait for event (Int x, Int y, Int key) Int b wait for event (x, y, key, b) @ Task wait for event Int x, y, k, b wait for event (x, y, k, b) @

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 Or, if you don't have SiMPLE installed on your computer, click here to run the precompiled version of the program.

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

  [ Webmaster | FAQ's | Home Page | Contact Us ]

© Copyright 2008 SiMPLE CodeWorks, Inc. All rights reserved.