Print Page - 10x10 Puzzle Game (Woody clone)

Active Forums => Programs => Topic started by: Dav on January 03, 2021, 12:47:50 pm

Title: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 03, 2021, 12:47:50 pm

This is a line puzzle game like the Woody puzzle. I worked it out in my mind while driving to the mountains yesterday, and when I got home last night the source code flowed out pretty well. Drag the blocks onto the board to form lines and rows. Completed lines will erase. You get higher scores for completing several lines at one time. See how high a score you can get until you get stuck and there's no more room to place a block (which can happen pretty quickly).

- Dav

Code: QB64: [Select]

'=========
'10x10.bas - v1.3
'=========
'A 10x10 lines puzzle (Woody clone)
'Coded by Dav, JAN/2021
 
'v1.3 changes: added: points given for putting piece on board.
'              fixed: score will reset now when new game starts.
'              added: hiscore kept now, shows in TITLE bar.
'              added: _SCREENEXIST to make sure TITLE bar shows.
 
'Clone of the Woody puzzle.  Drag pices onto the board
'to make completed rows or columns.  Completed lines erase.
'Bonus points are given for clearing more than one line at
'the same time. See how high a score you can get until you
'run out of space to make a move.
'
'Hit SPACE to quit and restart game.
 
 
RANDOMIZE TIMER
 
SCREEN _NEWIMAGE(800, 600, 32)
DO: LOOP UNTIL _SCREENEXISTS
 
CLS , _RGB(162, 104, 78)
 
_TITLE "10x10"
 
DIM SHARED rows, cols, size, piece1, piece2, piece3, score, hiscore
 
rows = 10: cols = 10: size = 60
 
DIM SHARED box(rows * cols)
DIM SHARED box.x1(rows * cols), box.x2(rows * cols)
DIM SHARED box.y1(rows * cols), box.y2(rows * cols)
DIM SHARED darksquare&, litesquare&
 
darksquare& = BASIMAGE1&
litesquare& = BASIMAGE2&
 
'============
Restart:
'============
 
score = 0
 
'Init the box values
bc = 1 'counter
FOR c = 1 TO cols
    FOR r = 1 TO rows
        x = (r * size): y = (c * size)
        box.x1(bc) = x - size: box.x2(bc) = x
        box.y1(bc) = y - size: box.y2(bc) = y
        box(bc) = 0 'set value to 0...means empty box
        bc = bc + 1
    NEXT
NEXT
 
DrawHoldingPens
UpdateBoard
 
DO
    t = _MOUSEINPUT
 
    IF _MOUSEBUTTON(1) THEN
        mx = _MOUSEX: my = _MOUSEY
 
        'if clicked holding pen 1
        IF mx >= 610 AND mx <= 790 AND my >= 10 AND my <= 190 THEN
            IF piece1 <> 0 THEN
 
                'grab background in case restore needed
                undo& = _COPYIMAGE(_DISPLAY)
 
                'clear holding pen 1
                LINE (610, 10)-(790, 190), _RGB(105, 14, 0), BF: _DISPLAY
 
                back& = _COPYIMAGE(_DISPLAY)
 
                'pickup piece, drag it around until mouse up
                DO
                    'show piece in hand, over backgraound
                    IF INT(RND * 3) = 0 THEN
                        _PUTIMAGE (0, 0), back&
                        '_PUTIMAGE (_MOUSEX, _MOUSEY), litesquare&: _DISPLAY
                        DrawPiece piece1, _MOUSEX, _MOUSEY
                    END IF
 
                    'If user unclicked the button (let go)
                    t2 = _MOUSEINPUT
                    IF _MOUSEBUTTON(1) = 0 THEN
                        mx2 = _MOUSEX: my2 = _MOUSEY
 
                        'see if unclicked over an empty box
                        FOR r = 1 TO rows * cols
                            IF mx2 >= box.x1(r) AND mx2 <= box.x2(r) AND my2 >= box.y1(r) AND my2 <= box.y2(r) THEN
 
                                'If the piece fits...
                                IF Validate(piece1, r, 0) = 1 THEN
                                    _PUTIMAGE (0, 0), back&: _DISPLAY
                                    AddToScore piece1
                                    piece1 = 0 'remove piece from pen
                                ELSE
                                    curpiece = piece1
                                    GOSUB PieceReturn
                                    _PUTIMAGE (0, 0), undo&: _DISPLAY
                                END IF
 
                                GOTO doneamove
 
                            END IF
                        NEXT
                        curpiece = piece1
                        GOSUB PieceReturn
 
                        _PUTIMAGE (0, 0), undo&: _DISPLAY
 
                        GOTO doneamove
 
                    END IF
 
                LOOP
                'please release me, let me go....
                _FREEIMAGE undo&
                _FREEIMAGE back&
            END IF
        END IF
 
        'if clicked holding pen 2
        IF mx >= 610 AND mx <= 790 AND my >= 210 AND my <= 390 THEN
            IF piece2 <> 0 THEN
 
                'grab background in case restore needed
                undo& = _COPYIMAGE(_DISPLAY)
 
                'clear holding pen 2
                LINE (610, 210)-(790, 390), _RGB(105, 14, 0), BF: _DISPLAY
 
                back& = _COPYIMAGE(_DISPLAY)
 
                'pickup piece, drag it around until mouse up
                DO
                    'show piece in hand, over backgraound
                    IF INT(RND * 3) = 0 THEN
                        _PUTIMAGE (0, 0), back&
                        '_PUTIMAGE (_MOUSEX, _MOUSEY), litesquare&: _DISPLAY
                        DrawPiece piece2, _MOUSEX, _MOUSEY
                    END IF
 
                    'If user unclicked the button (let go)
                    t2 = _MOUSEINPUT
                    IF _MOUSEBUTTON(1) = 0 THEN
                        mx2 = _MOUSEX: my2 = _MOUSEY
 
                        'see if unclicked over an empty box
                        FOR r = 1 TO rows * cols
                            IF mx2 >= box.x1(r) AND mx2 <= box.x2(r) AND my2 >= box.y1(r) AND my2 <= box.y2(r) THEN
 
                                'If the piece fits...
                                IF Validate(piece2, r, 0) = 1 THEN
                                    _PUTIMAGE (0, 0), back&: _DISPLAY
                                    AddToScore piece2
                                    piece2 = 0 'remove piece from pen
                                ELSE
                                    curpiece = piece2
                                    GOSUB PieceReturn
                                    _PUTIMAGE (0, 0), undo&: _DISPLAY
                                END IF
 
                                GOTO doneamove
 
                            END IF
                        NEXT
                        curpiece = piece2
                        GOSUB PieceReturn
 
                        _PUTIMAGE (0, 0), undo&: _DISPLAY
 
                        GOTO doneamove
 
                    END IF
 
                LOOP
                'please release me, let me go....
                _FREEIMAGE undo&
                _FREEIMAGE back&
            END IF
 
        END IF
 
        'if clicked holding pen 3
        IF mx >= 610 AND mx <= 790 AND my >= 410 AND my <= 590 THEN
            IF piece3 <> 0 THEN
 
                'grab background in case restore needed
                undo& = _COPYIMAGE(_DISPLAY)
 
                'clear holding pen 3
                LINE (610, 410)-(790, 590), _RGB(105, 14, 0), BF: _DISPLAY
 
                back& = _COPYIMAGE(_DISPLAY)
 
                'pickup piece, drag it around until mouse up
                DO
                    'show piece in hand, over backgraound
                    IF INT(RND * 3) = 0 THEN
                        _PUTIMAGE (0, 0), back&
                        '_PUTIMAGE (_MOUSEX, _MOUSEY), litesquare&: _DISPLAY
                        DrawPiece piece3, _MOUSEX, _MOUSEY
                    END IF
 
                    'If user unclicked the button (let go)
                    t2 = _MOUSEINPUT
                    IF _MOUSEBUTTON(1) = 0 THEN
                        mx2 = _MOUSEX: my2 = _MOUSEY
 
                        'see if unclicked over an empty box
                        FOR r = 1 TO rows * cols
                            IF mx2 >= box.x1(r) AND mx2 <= box.x2(r) AND my2 >= box.y1(r) AND my2 <= box.y2(r) THEN
 
                                'If the piece fits...
                                IF Validate(piece3, r, 0) = 1 THEN
                                    _PUTIMAGE (0, 0), back&: _DISPLAY
                                    AddToScore piece3
                                    piece3 = 0 'remove piece from pen
                                ELSE
                                    curpiece = piece3
                                    GOSUB PieceReturn
                                    _PUTIMAGE (0, 0), undo&: _DISPLAY
                                END IF
 
                                GOTO doneamove
 
                            END IF
                        NEXT
                        curpiece = piece3
                        GOSUB PieceReturn
 
                        _PUTIMAGE (0, 0), undo&: _DISPLAY
 
                        GOTO doneamove
 
                    END IF
 
                LOOP
                'please release me, let me go....
                _FREEIMAGE undo&
                _FREEIMAGE back&
            END IF
 
        END IF
 
        doneamove:
 
        'Get new pieces if all holding pens empty
        IF piece1 = 0 AND piece2 = 0 AND piece3 = 0 THEN DrawHoldingPens
 
        UpdateBoard
 
        IF MovesLeft = 0 THEN
            LINE (225, 175)-(525, 275), _RGB(162, 104, 78), BF
            LINE (225, 175)-(525, 275), _RGB(255, 255, 255), B
            _PRINTMODE _KEEPBACKGROUND
            COLOR _RGB(255, 255, 255)
            _PRINTSTRING (315, 200), "NO MOVES LEFT"
            _PRINTSTRING (315, 225), "SCORE: " + STR$(score)
            IF score = hiscore THEN
                COLOR _RGB(0, 255, 255)
                _PRINTSTRING (315, 250), "NEW HIGH SCORE!"
            END IF
            _DISPLAY: SLEEP
            GOTO Restart
        END IF
 
 
    END IF
 
    IF INKEY$ = CHR$(32) THEN GOTO Restart:
LOOP
 
END
 
 
 
'============================
'============
PieceReturn:
 
'animate sending piece back to original x/y
cx = mx2: cy = my2
xdone = 0: ydone = 0
DO
    IF mx2 > mx THEN
        cx = cx - 12
        IF cx < mx THEN
            cx = mx: xdone = 1
        END IF
    ELSE
        cx = cx + 12
        IF cx > mx THEN
            cx = mx: xdone = 1
        END IF
    END IF
 
    IF my2 > my THEN
        cy = cy - 12
        IF cy < my THEN
            cy = my: ydone = 1
        END IF
    ELSE
        cy = cy + 12
        IF cy > my THEN
            cy = my: ydone = 1
        END IF
 
    END IF
 
    _PUTIMAGE (0, 0), back&
    DrawPiece curpiece, cx - 20, cy - 20
 
    _DISPLAY
 
    _DELAY .0075
 
LOOP UNTIL xdone = 1 AND ydone = 1
 
RETURN
 
FUNCTION MovesLeft ()
 
    'Checks if moves are left
 
    MovesLeft = 0 'default none left until a move found
 
    'if there's a piece in holding pen 1
    IF piece1 <> 0 THEN
 
        'run piece check on all open boxes
        FOR r = 1 TO rows * cols
            'test piece on box if empty
            IF box(r) = 0 THEN
                IF Validate(piece1, r, 1) = 1 THEN
                    MovesLeft = 1: EXIT FOR
                END IF
            END IF
        NEXT
    END IF
 
    'if there's a piece in holding pen 2
    IF piece2 <> 0 THEN
        'run piece check on all open boxes
        FOR r = 1 TO rows * cols
            IF box(r) = 0 THEN
                IF Validate(piece2, r, 1) = 1 THEN
                    MovesLeft = 1: EXIT FOR
                END IF
            END IF
        NEXT
    END IF
 
    'if there's a piece in holding pen 3
    IF piece3 <> 0 THEN
        'run piece check on all open boxes
        FOR r = 1 TO rows * cols
            IF box(r) = 0 THEN
                IF Validate(piece3, r, 1) = 1 THEN
                    MovesLeft = 1: EXIT FOR
                END IF
            END IF
        NEXT
    END IF
 
END FUNCTION
 
 
SUB UpdateBoard
 
    bc = 1 'counter
    FOR c = 1 TO cols
        FOR r = 1 TO rows
            IF box(bc) = 0 THEN
                _PUTIMAGE (box.x1(bc), box.y1(bc))-(box.x2(bc), box.y2(bc)), darksquare&
            ELSE
                _PUTIMAGE (box.x1(bc), box.y1(bc))-(box.x2(bc), box.y2(bc)), litesquare&
            END IF
            bc = bc + 1
        NEXT
    NEXT
 
    _DISPLAY
 
    'Check for completed lines...add score
    '10 points for clearing 1 row or col,
    'bonus points for doing several at one time
    tallyup = 0: bonus = 0
    'scan for completed rows...
    REDIM rowdo(10) AS INTEGER: rc = 1: rowhere = 0
    FOR rw = 1 TO 100 STEP 10
        IF RowDone(rw) THEN
            'RowClear rw
            rowdo(rc) = rw: rc = rc + 1: rowhere = 1
            tallyup = tallyup + 10
            bonus = bonus + 1
        END IF
    NEXT
    'scan for completed columns...
    REDIM coldo(10) AS INTEGER: cc = 1: colhere = 0
    FOR c = 1 TO 10
        IF ColDone(c) THEN
            coldo(cc) = c: cc = cc + 1: colhere = 1
            tallyup = tallyup + 10
            bonus = bonus + 1
            'ColClear c
        END IF
    NEXT
    'Now do the erasing...
    IF rowhere = 1 THEN
        FOR e = 1 TO 10
            IF rowdo(e) <> 0 THEN RowClear rowdo(e)
        NEXT
    END IF: ERASE rowdo
    IF colhere = 1 THEN
        FOR e = 1 TO 10
            IF coldo(e) <> 0 THEN ColClear coldo(e)
        NEXT
    END IF: ERASE coldo
 
    score = score + (tallyup * bonus)
 
    IF score > hiscore THEN hiscore = score
 
    _TITLE "10x10 - Your Score:" + STR$(score) + "  -  High Score:" + STR$(hiscore)
 
    _ICON _DISPLAY 'update app icon on taskbar
 
END SUB
 
 
FUNCTION RowDone (row)
    RowDone = 1
    FOR r = row TO row + 9
        IF box(r) = 0 THEN RowDone = 0
    NEXT
END FUNCTION
 
SUB RowClear (row)
    FOR r = row TO row + 9
        _PUTIMAGE (box.x1(r), box.y1(r))-(box.x2(r), box.y2(r)), darksquare&
        _DISPLAY: _DELAY .02
        box(r) = 0
    NEXT
END SUB
 
FUNCTION ColDone (col)
    ColDone = 1
    FOR c = col TO (rows * cols) STEP 10
        IF box(c) = 0 THEN ColDone = 0
    NEXT
END FUNCTION
 
SUB ColClear (col)
    FOR r = col TO (rows * cols) STEP 10
        _PUTIMAGE (box.x1(r), box.y1(r))-(box.x2(r), box.y2(r)), darksquare&
        _DISPLAY: _DELAY .02
        box(r) = 0
    NEXT
END SUB
 
FUNCTION Validate (piece, num, checkonly)
 
    'This function validates if pieces fit
    'if checkonly flag is on, then it just checks to see
    'if checkonly flag = 0 then it checks and marks box() filled
 
    Validate = 0 'default not validated
 
    'one dot piece
    IF piece = 1 THEN
        IF box(num) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    '2 dot horizonal
    IF piece = 2 THEN
        'don't validate if on the last box on right side
        SELECT CASE num
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'validate if this box and next box over is free
        IF box(num) = 0 AND box(num + 1) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    '2 dot vertical
    IF piece = 3 THEN
        'don't validate if on bottom row
        SELECT CASE num
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'validate if this box and box below is free
        IF box(num) = 0 AND box(num + 10) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 4 THEN '3 dots left/up
        'dont validate if on top row
        SELECT CASE num
            CASE 1 TO 10: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num - 9) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num - 9) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 5 THEN '3 dots right/up
        'don't validate bottom row
        SELECT CASE num
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last box on right side
        SELECT CASE num
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 11) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1: box(num + 11) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 6 THEN
        'don't validate bottom row
        SELECT CASE num
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last box on right side
        SELECT CASE num
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 11) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 11) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 7 THEN
        'don't validate bottom row
        SELECT CASE num
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last box on right side
        SELECT CASE num
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 10) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 10) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 8 THEN '3 dots horz
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 9 THEN '3 dots vert
        'don't validate bottom 2 row
        SELECT CASE num
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1: box(num + 20) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 10 THEN '4 dots block
        'don't validate bottom row
        SELECT CASE num
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last box on right side
        SELECT CASE num
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 10) = 0 AND box(num + 11) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 10) = 1: box(num + 11) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 11 THEN '4 dots horz
        'don't validate if on the last 3 columns on right side
        SELECT CASE num
            CASE 8, 18, 28, 38, 48, 58, 68, 78, 88, 98: Validate = 0: EXIT FUNCTION
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 3) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 3) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 12 THEN '4 dots vert
        'don't validate bottom 3 rows
        SELECT CASE num
            CASE 71 TO 80: Validate = 0: EXIT FUNCTION
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 AND box(num + 30) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1: box(num + 20) = 1: box(num + 30) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 13 THEN '5 dots horz
        'don't validate if on the last 3 columns on right side
        SELECT CASE num
            CASE 7, 17, 27, 37, 47, 57, 67, 77, 87, 97: Validate = 0: EXIT FUNCTION
            CASE 8, 18, 28, 38, 48, 58, 68, 78, 88, 98: Validate = 0: EXIT FUNCTION
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 3) = 0 AND box(num + 4) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 3) = 1: box(num + 4) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 14 THEN '5 dots vert
        'don't validate bottom 4 rows
        SELECT CASE num
            CASE 61 TO 70: Validate = 0: EXIT FUNCTION
            CASE 71 TO 80: Validate = 0: EXIT FUNCTION
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 AND box(num + 30) = 0 AND box(num + 40) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1: box(num + 20) = 1: box(num + 30) = 1: box(num + 40) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 15 THEN '5 dots left/up
        'don't validate bottom 2 rows
        SELECT CASE num
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 12) = 0 AND box(num + 22) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 12) = 1: box(num + 22) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 16 THEN '5 dots right/up
        'don't validate bottom 2 rows
        SELECT CASE num
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 10) = 1: box(num + 20) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 17 THEN '5 dots right/down
        'don't validate bottom 2 rows
        SELECT CASE num
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 AND box(num + 21) = 0 AND box(num + 22) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1: box(num + 20) = 1: box(num + 21) = 1: box(num + 22) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 18 THEN '5 dots left/down
        'don't validate top 2 rows
        SELECT CASE num
            CASE 1 TO 10: Validate = 0: EXIT FUNCTION
            CASE 11 TO 20: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num - 8) = 0 AND box(num - 18) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num - 8) = 1: box(num - 18) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 19 THEN '9 dots big block
        'don't validate bottom 2 rows
        SELECT CASE num
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 10) = 0 AND box(num + 11) = 0 AND box(num + 12) = 0 AND box(num + 20) = 0 AND box(num + 21) = 0 AND box(num + 22) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 10) = 1: box(num + 11) = 1: box(num + 12) = 1: box(num + 20) = 1: box(num + 21) = 1: box(num + 22) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
END FUNCTION
 
SUB AddToScore (num)
 
    IF num = 1 THEN score = score + 1
    IF num = 2 THEN score = score + 2
    IF num = 3 THEN score = score + 2
    IF num = 4 THEN score = score + 3
    IF num = 5 THEN score = score + 3
    IF num = 6 THEN score = score + 3
    IF num = 7 THEN score = score + 3
    IF num = 8 THEN score = score + 3
    IF num = 9 THEN score = score + 3
    IF num = 10 THEN score = score + 4
    IF num = 11 THEN score = score + 4
    IF num = 12 THEN score = score + 4
    IF num = 13 THEN score = score + 5
    IF num = 14 THEN score = score + 5
    IF num = 15 THEN score = score + 5
    IF num = 16 THEN score = score + 5
    IF num = 17 THEN score = score + 5
    IF num = 18 THEN score = score + 5
    IF num = 19 THEN score = score + 9
 
END SUB
 
SUB DrawHoldingPens
 
    'Draws 3 holding pens, smaller version of pieces,
    'and assigns random piece to each holding pen...
 
    'holding pen 1
    LINE (610, 10)-(790, 190), _RGB(105, 14, 0), BF
    'holding pen 2
    LINE (610, 210)-(790, 390), _RGB(105, 14, 0), BF
    'holding pen 3
    LINE (610, 410)-(790, 590), _RGB(105, 14, 0), BF
 
    FOR pens = 1 TO 3
 
        'Get a random piece
        'There are 19 total pieces to choose from
        piece = INT(RND * 19) + 1
 
        'y offset vaule for the pens
        IF pens = 1 THEN yo = 0
        IF pens = 2 THEN yo = 200
        IF pens = 3 THEN yo = 400
 
        IF piece = 1 THEN '1 dot
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
        END IF
        IF piece = 2 THEN '2 dots horizonal
            _PUTIMAGE (670, 85 + yo)-(700, 115 + yo), litesquare& 'mid
            _PUTIMAGE (700, 85 + yo)-(730, 115 + yo), litesquare& 'right
        END IF
        IF piece = 3 THEN '2 dots vertical
            _PUTIMAGE (685, 100 + yo)-(715, 130 + yo), litesquare& 'mid
            _PUTIMAGE (685, 70 + yo)-(715, 100 + yo), litesquare& 'up
        END IF
        IF piece = 4 THEN '3 dots Left/Up
            _PUTIMAGE (700, 100 + yo)-(730, 130 + yo), litesquare& 'mid
            _PUTIMAGE (700, 70 + yo)-(730, 100 + yo), litesquare& 'up
            _PUTIMAGE (670, 100 + yo)-(700, 130 + yo), litesquare& 'left
        END IF
        IF piece = 5 THEN '3 dots right/Up
            _PUTIMAGE (670, 100 + yo)-(700, 130 + yo), litesquare& 'mid
            _PUTIMAGE (670, 70 + yo)-(700, 100 + yo), litesquare& 'up
            _PUTIMAGE (700, 100 + yo)-(730, 130 + yo), litesquare& 'right
        END IF
        IF piece = 6 THEN '3 dots Left/down
            _PUTIMAGE (700, 70 + yo)-(730, 100 + yo), litesquare& 'mid
            _PUTIMAGE (700, 100 + yo)-(730, 130 + yo), litesquare& 'down
            _PUTIMAGE (670, 70 + yo)-(700, 100 + yo), litesquare& 'left
        END IF
        IF piece = 7 THEN '3 dots right/down
            _PUTIMAGE (670, 70 + yo)-(700, 100 + yo), litesquare& 'mid
            _PUTIMAGE (670, 100 + yo)-(700, 130 + yo), litesquare& 'down
            _PUTIMAGE (700, 70 + yo)-(730, 100 + yo), litesquare& 'left
        END IF
        IF piece = 8 THEN '3 dots horizonal
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare& 'mid
            _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare& 'right
            _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare& 'left
        END IF
        IF piece = 9 THEN '3 dots vertical
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare& 'mid
            _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare& 'up
            _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare& 'down
        END IF
        IF piece = 10 THEN '4 dots block
            _PUTIMAGE (665, 75 + yo)-(695, 105 + yo), litesquare& 'top left
            _PUTIMAGE (695, 75 + yo)-(725, 105 + yo), litesquare& 'top right
            _PUTIMAGE (665, 105 + yo)-(695, 135 + yo), litesquare& 'bottom left
            _PUTIMAGE (695, 105 + yo)-(725, 135 + yo), litesquare& 'bottom right
        END IF
        IF piece = 11 THEN '4 dots horizonal
            _PUTIMAGE (640, 85 + yo)-(670, 115 + yo), litesquare&
            _PUTIMAGE (670, 85 + yo)-(700, 115 + yo), litesquare&
            _PUTIMAGE (700, 85 + yo)-(730, 115 + yo), litesquare&
            _PUTIMAGE (730, 85 + yo)-(760, 115 + yo), litesquare&
        END IF
        IF piece = 12 THEN '4 dots vertical
            _PUTIMAGE (685, 40 + yo)-(715, 70 + yo), litesquare&
            _PUTIMAGE (685, 70 + yo)-(715, 100 + yo), litesquare&
            _PUTIMAGE (685, 100 + yo)-(715, 130 + yo), litesquare&
            _PUTIMAGE (685, 130 + yo)-(715, 160 + yo), litesquare&
        END IF
        IF piece = 13 THEN '5 dots horizonal
            _PUTIMAGE (625, 85 + yo)-(655, 115 + yo), litesquare&
            _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
            _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
            _PUTIMAGE (745, 85 + yo)-(775, 115 + yo), litesquare&
        END IF
        IF piece = 14 THEN '5 dots vertical
            _PUTIMAGE (685, 20 + yo)-(715, 50 + yo), litesquare&
            _PUTIMAGE (685, 50 + yo)-(715, 85 + yo), litesquare&
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
            _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
            _PUTIMAGE (685, 145 + yo)-(715, 175 + yo), litesquare&
        END IF
        IF piece = 15 THEN '5 dots left/up
            _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
            _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare&
            _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
            _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
            _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
        END IF
        IF piece = 16 THEN '5 dots right/up
            _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
            _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare&
            _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
            _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
            _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
        END IF
        IF piece = 17 THEN '5 dots right/down
            _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
            _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
            _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
            _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
            _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
        END IF
        IF piece = 18 THEN '5 dots left/down
            _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
            _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
            _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
            _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
            _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
        END IF
        IF piece = 19 THEN '9 dots big block
            _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
            _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare&
            _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
            _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
            _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
            _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
            _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
            _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
        END IF
 
        'Assign the generated pieces values
        IF pens = 1 THEN piece1 = piece
        IF pens = 2 THEN piece2 = piece
        IF pens = 3 THEN piece3 = piece
 
    NEXT
 
    _DISPLAY
 
END SUB
 
 
SUB DrawPiece (piece, x, y)
 
    x = x - 30: y = y - 30 'center the mouse on a block
 
 
    IF piece = 1 THEN '1 dot
        _PUTIMAGE (x, y), litesquare&
    END IF
 
    IF piece = 2 THEN '2 dots horizonal
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
    END IF
 
    IF piece = 3 THEN '2 dot vertical
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
    END IF
 
    IF piece = 4 THEN '3 dots left/up
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60, y - 60), litesquare&
    END IF
 
    IF piece = 5 THEN '3 dots right/up
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x + 60, y + 60), litesquare&
    END IF
 
    IF piece = 6 THEN '3 dots left/down
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60, y + 60), litesquare&
    END IF
 
    IF piece = 7 THEN '3 dots right/down
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
    END IF
 
    IF piece = 8 THEN '3 dots horizonal
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
    END IF
 
    IF piece = 9 THEN '3 dots vert
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
    END IF
 
    IF piece = 10 THEN '4 dots block
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x + 60, y + 60), litesquare&
    END IF
 
    IF piece = 11 THEN '4 dots horz
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60 + 60, y), litesquare&
    END IF
 
    IF piece = 12 THEN '4 dots vert
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60 + 60), litesquare&
    END IF
 
    IF piece = 13 THEN '5 dots horz
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60 + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60 + 60 + 60, y), litesquare&
    END IF
 
    IF piece = 14 THEN '5 dots vert
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60 + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60 + 60 + 60), litesquare&
    END IF
 
    IF piece = 15 THEN '5 dots left/up
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y + 60), litesquare&
        _PUTIMAGE (x + 60 + 60, y + 60 + 60), litesquare&
    END IF
 
    IF piece = 16 THEN '5 dots right/up
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
    END IF
 
    IF piece = 17 THEN '5 dots right/down
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
        _PUTIMAGE (x + 60, y + 60 + 60), litesquare&
        _PUTIMAGE (x + 60 + 60, y + 60 + 60), litesquare&
    END IF
 
    IF piece = 18 THEN '5 dots left/down
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y - 60), litesquare&
        _PUTIMAGE (x + 60 + 60, y - 60 - 60), litesquare&
    END IF
 
    IF piece = 19 THEN '9 dots big block
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x + 60, y + 60), litesquare&
        _PUTIMAGE (x + 60 + 60, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
        _PUTIMAGE (x + 60, y + 60 + 60), litesquare&
        _PUTIMAGE (x + 60 + 60, y + 60 + 60), litesquare&
    END IF
 
    _DISPLAY
 
END SUB
 
'======================================================================
 
FUNCTION BASIMAGE1& 'darksquare.bmp
    v& = _NEWIMAGE(55, 55, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkJ^nDCL567NcEP4B2QT#4#;PSfFVNafZRRf?PG11B3B4bU=g31BT08PD]"
    A$ = A$ + "06d>MJWj<Mj<MJ]E7_Dak=VJaQa;m3mO]OmM?KB8:SCo#BWMjIj7NVChLf\k"
    A$ = A$ + "k3WcimLf\KXUN2R\lSAREbSdG:?ROnEah;n8TNYe#j5G7aGh?#jUON9Vh258"
    A$ = A$ + "k;HTLUGP4IO>R_lcH4KYeIUBeE>5Ko=Ai7[di\L6oR_TAaS;5mi9cn<LjUGW"
    A$ = A$ + ":G7Yb^6VnKO92_D>4NUL`kR?4AoZeQocU7RW;7R]hC#oAnAHIknPP^NPNkS2"
    A$ = A$ + "]f201;S0]>21e5#X927APPcXK0[^PbHGD^\Y#_:5Ko=Aack[O^9D]UH<4\7V"
    A$ = A$ + "e^6WaPN7AQ>K1YbP#S3oH77h;PWYN0igC9oN:2Tm9TKi`4Gj?aQ7mW8?l01Q"
    A$ = A$ + "N9j326l0mF31]F20=FR0EVY[SihdaTP8i6d`h#`jHK#S9IXff4<dH?5SRo]4"
    A$ = A$ + "5?V=mm\>13e=VjE#S]d\bR]YEZNc9Q:CaQJFl41jMBW3KR`CVe#HJlEPUYn["
    A$ = A$ + ";^>>Zh?COO_D\WnofHT6WI?66;kO1o;n08NnO3FfAHXgV?U?fZ6^IHDdiQ^4"
    A$ = A$ + "=Nl^Hh<g4Zgb`DK3[laFUB]DoS1JlgFl3_;\:j=6=?[Q1YjM[laFe`=CDnQF"
    A$ = A$ + "5Ad;TGf=;3`7^EWoB^5TF7khDNO1clWK1FhNb^IZO^b=M]82_c]:j;lEXl;m"
    A$ = A$ + "3Eeb9iB<j3jK>`6^Eg9h:gZeY8l?kM;iVVJh0gZiEM[O9gZ]?n`=mNI[_Ed]"
    A$ = A$ + "12OEZ>JoS23ZlaFEb=S]6QifPA^6ohV^AXaPSFb=GaTjgTfko0:O\mo^m?jV"
    A$ = A$ + "YFRP0Wi>`ElOQb_L<8Xj4:O\EY8=O[>:GBC1PoIFUKMcgDgN3gd`9^I`gVkg"
    A$ = A$ + "h<g4WNEh>1U;Y^S31]m[laFU2U;A=iV5:GB`I^S\K6jUkL;4]6`#SM=Igdc7"
    A$ = A$ + "[1XeH0VKAVkNTKGWLSjcdiBiS]Z\K^CN38D?eWYU3fcUVCabUDOcQIS9I^Ib"
    A$ = A$ + "5giVXdl]a_9gjVka8g<?4E?7<OkeLkcB#S9KHH^c=YiK34oj#UE?LYK3VhF#"
    A$ = A$ + "XaAYjiPO3?YkaY\aTmcLc;giVdm_eGRO52fl1=V4EnH[JhFIgofa;hV:Nb=W"
    A$ = A$ + "nQ_Y_5>fHgQm<Ii2g:N_Y5Lk8a_]lcK^n0:O\EUkg>D<J]K7R\O?F5?fZ2^9"
    A$ = A$ + "M?>egB#4IQkSNRN3na=Jm=9g<C^5[XK>iTaT_VK7^PKLaJ05L[hHbS#cgdj<"
    A$ = A$ + "4dJ>Xb7KE1g4<jMC^YcB8U?fZDdjIC^Y^YP#O3QEnHkO1gDAi9[aJ4U?fZR^"
    A$ = A$ + "9U;aeTg72f303>RZlaFUR^C1]ek3FJ=4c=gB^ISLe>OiFTi^[\Kdm_a;^YRL"
    A$ = A$ + "c4iF`cLK^d=SK=4kih<ld?2>NW9QN;nEnH[RMc3de##df^V79F:?lNf7SMnY"
    A$ = A$ + "W7eb3_SQeLBXcQOd][;SX;U31cV7m4jkAkOdT:O\EQXYYQ#7kkdHX<G39nbl"
    A$ = A$ + "8hGW7WL^KQNlMI\egK<H[IO`PIG\gIIQJ>Zlk`PNG\oWXbX7J\k`#_IgdnKX"
    A$ = A$ + "fdf;4Ze5DIN4X]AAXa6]n_ER6XmhHQf3WEYgaihde<1U;>>=_>f6H=Q<BeG6"
    A$ = A$ + "Z]WPQla#i0J<L12E2EdeA=EZfV8M\nXmN<2<nFna>j>3LWj:dl\[RdOgcAP;"
    A$ = A$ + "W3AoVO7nFhNX_Po0jnH[PgnSCQ>gcHXcmW4k\[CSfgC6dfWT1KOgCQg][Y#W"
    A$ = A$ + "MU2MlQAAk_O<df7T0KKGCPM^oiXcmlXSmOFdFgc9c1V5]M`ITAjc5H[kKJd:"
    A$ = A$ + "MNJI_I:A77l\UXm3<?JM_cPVgMVBdJI\=Z]fgk\HkM=_<kKFde9n:fc]9ib["
    A$ = A$ + "1oOn3APEbQo6YgZn%%%0"
    btemp$ = ""
    FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
        IF INSTR(1, B$, "%") THEN
            FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
                IF F$ <> "%" THEN C$ = C$ + F$
            NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
            IF MID$(B$, j, 1) = "#" THEN
        MID$(B$, j) = "@": END IF: NEXT
        FOR t% = LEN(B$) TO 1 STEP -1
            B& = B& * 64 + ASC(MID$(B$, t%)) - 48
            NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
            X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
    NEXT: btemp$ = btemp$ + X$: NEXT
    btemp$ = _INFLATE$(btemp$)
    _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
    BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
FUNCTION BASIMAGE2& 'litesquare.bmp
    v& = _NEWIMAGE(55, 55, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIgIVnEKML67noQn]FgL\M>==e]=YYafhe#0<K6_`Z4B2]_;3J1QHCB816`"
    A$ = A$ + "\H0361X5f4K2#Ff6K2>>>>hhm]dDkSKJBj99f>MkoROmm>b83=]O2M>j8mQW"
    A$ = A$ + "c<cM^gilnLWi>cL_G9>^0TilL#Uk8`#;APb6V2J]_0<hH9H`nb#I]G46LNUH"
    A$ = A$ + "X[YGQ[?VQ6gO<Dij:#YcEHX`ab\D^S]NF[noO\ncU[=G?JKnZ<FkldCi[de:"
    A$ = A$ + "h4>GVBG6jM]4<eeEQD7QQDgQAifW7bKSRSfG2bK94L=je#XklL4Le_5cL[WS"
    A$ = A$ + "8Oao6cL_O0cLo_7cA<kmn>6QN`?P5NhcIi?oCoGKPiOd?b^VIO`Jl2<mMoN4"
    A$ = A$ + "jQ_<ja_o;AXko?X[m_oCPkhQN`?RiOl;#X7mL6_^MN=QN5ANl;aLgi_Q;lWn"
    A$ = A$ + "Wden24hjO3L5l6#IWQQXfF4UebR#T[PX1o[P1^d3ahOfCYdKQ`O1M^[n<VCS"
    A$ = A$ + "Le_TLmKH<aWm<<iZO52nioE6cNk_Uen[Qo?i?c>NXknMHZKneaBi>FP[m4Fn"
    A$ = A$ + "ecJ]K<^mGcHZKnE<2nioUH`E>`enB6Li7kj?1SmY?=:GkIHhEN2jilg7=>:="
    A$ = A$ + ">XeYPRf>7ZJPU`YVoFXS5^>lM]7Rf3]26iCN4>cbg33]bSAWQ^>l\dma#Gj1"
    A$ = A$ + "X_`gTU>bUO8joLg2NGnAKPNFHE<h5_;lAG7ge\FjP;M7dKhEQW;Ok=`#;OgO"
    A$ = A$ + ":GnN`cU^;[n1GjFaPkHL]1[MXlmOaK7U;L76M5j6XciF5^6OIDCoQQ^FG4Ek"
    A$ = A$ + "iS`YVk6`^oc3oOjS#;1oXTJLhoR`BO;09=>9DgfL`VW;0;m?3JMfUChafV5c"
    A$ = A$ + "m=;=Wb`#k9G0iYH8XjTC05=?2L=aB9lHKcRYC742Kh<#NCAH^9]9o#RccVBh"
    A$ = A$ + "Vnf3Pb[[78VF7;GINXn#_#DSmWBhV2GNPPjk3RZMFVKEd``TKW5e>d29lH;N"
    A$ = A$ + "hVdV64UKM:T_dQA5e?<e7>8=Wbl9lH;NhV<RGkf8#R3?YD^9\jIBYM[PGiVD"
    A$ = A$ + "kN#MNF<Q7KKFdeVO`WVWTc]S8e74GWG8cn#XQQ>G2?ff\HhDSQb\e=c]S:c?"
    A$ = A$ + "TFW?VK>lNQ4N\5?LSg[LkH:8_Zg?TkPfGBP;U`S]=;WXSa1oJ?m[M[1o#UC_"
    A$ = A$ + "`]oTOgZZc9P#ji=AFV67CYGXXQ0#MCnPKOG<Q7KKF<fmT#4]_4QVWRiVBb=="
    A$ = A$ + "^lC^Ul_W;^m:;VfoX0S1I^YZaAQFg1#;1^L2?fR7^9an0ajghLC7iV[ABnWW"
    A$ = A$ + "dHGCB[E?0Z`dDX#EnPJb=mTK>mTl_nFUdL9bXgGC\iYI^Y95c=idk18QF3X8"
    A$ = A$ + "enIS9CULCQ[QP<[cB^=:KNBMdlT]T2\60gJg:M?<c]2e<F<gJKdTo_54WKZJ"
    A$ = A$ + "N4fHbekFkSUhS]hQKZKa;ZPki=]S7c]>VHU4N\5?M[#eSWBe_I^WYI?_aifa"
    A$ = A$ + "Ea=Vd?c]FC1fGBM3^#\e0>RBJNb6m3]^lQCV2l>>[g]SZJ2VKJLk5=78iO=P"
    A$ = A$ + "eLSK<I1[c=gnCng?iJ^amnKi[JBXd>=V\IO`U_cW`S]=;ek9<kKMamN0iB^Y"
    A$ = A$ + "`1]WbVmRVl59Q7Ka;g4HJ2TSjYI^a]VPCo9okWLm^M8U1I^Y]Eo`Y_`9lH;N"
    A$ = A$ + "jFV:6WiVAJoc=U2iV\JW3I8O<X:5d=5YP^EgP;6c]\Fc]>8glVlkF]WMnX_o"
    A$ = A$ + "6ifQXWghLc<iVkD0gZ^_IoOjFR>^R7`m=lHOCQD#ghnG7LOkeeLCC:TKJKe7"
    A$ = A$ + "4DK?\iB>FUcA^50ediD9lh:NPJJOaUJ^CVK5B^9ajP`#CST`S[h1jJMD`[jC"
    A$ = A$ + "3IFWQiFIjk2EHYk4NL5?#YcQ8WJ3R]4TiF1bJ65Ya=<fBbOOGiDODfbKTmOL"
    A$ = A$ + ":ad2hmbC?nPR=1QEe6TJ]CXYYQ#U]?>=fM4HUF_`LGCRj7H1XVFgP;OMdaZV"
    A$ = A$ + "B]NjXHSXV^67FkL<DM7S63Km>5Z\S04nYf98<gm4`lY73VjNd=Pa^la`jI67"
    A$ = A$ + "Efi8dj_C#cUkU:?:Z\[QQ]1h:kSEfL_nA]m?>\ecHXa1227m?=<MB_POU]2Q"
    A$ = A$ + "TGY;`:>0oZYinSPb]M>L#N=POGVB#>2\PS:[NFO8OSMPlTE7:Wl]4m=C_7KW"
    A$ = A$ + "8O9eBSOM1Q6KUUbcPK`k4^#i4l=h4ldi0UYe>AS<4Hd=:DK3X#Me3nVX[cB;"
    A$ = A$ + "<4Hae6P_57Aa\3DXNK#PEWX4SeaP;OQ6ZQZg>[L5ej25CU5Ia9Z`Jc#V]fIa"
    A$ = A$ + "#jl>1BW_AL#1ESg<MA#^S`#\[8XDC3Pd>>EGIEQd;f0fcAeRd;e8fCnbANl<"
    A$ = A$ + "Q\:F?:#X5\glTP\;A;><o:IYiDZ>TCIJITMYJ#>UX4IG\2TE9bHT_0=h3;F:"
    A$ = A$ + "SLYlIFV<6IDZT=#jU8VA^RDQ?\Da8OaJ#FlUa8OaZA6UaEWbHi?R<mDM:#^E"
    A$ = A$ + "X37CQ5:e4fiQUQg>C1hgV[<\?Qe0EW<24OZ8djMc3nFk5_C>B`kU[D\Kb]39"
    A$ = A$ + "b6NoLTR\:Ul]#=8gb=QMWM58SRDS\;C?;=cRe4UBDAUEBWW2l15:=67RWJL`"
    A$ = A$ + "S;1kW8C:OFU7U<i[J3T1?5<hbOPRXa?2Yk]dmVokbLWcQh^OEVLFk\c24P3F"
    A$ = A$ + "R2\gRDQg>3NhWm^iQME\ADZ]1PQN_24eMH8_ScC[g=;MOi\HOih6ojoXN\SM"
    A$ = A$ + "Y6kH_J`KUf9`ffEEH[_OEh=gYAlKBc8fAJjafOGiHKoN5H[_S:l6o1Mh]f[E"
    A$ = A$ + "l[fG=Hkke6fjn\6UmG=fj1<75^l_ROiN<Q]#]c_HgE5S]O0KaHKk_6\UMK6o"
    A$ = A$ + "lMFE<fbjh=Xjff^YaNYECDfCe8]3g6kofXaiB#HMc3A^3So3_L>L%%%0"
    btemp$ = ""
    FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
        IF INSTR(1, B$, "%") THEN
            FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
                IF F$ <> "%" THEN C$ = C$ + F$
            NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
            IF MID$(B$, j, 1) = "#" THEN
        MID$(B$, j) = "@": END IF: NEXT
        FOR t% = LEN(B$) TO 1 STEP -1
            B& = B& * 64 + ASC(MID$(B$, t%)) - 48
            NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
            X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
    NEXT: btemp$ = btemp$ + X$: NEXT
    btemp$ = _INFLATE$(btemp$)
    _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
    BASIMAGE2& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: bplus on January 03, 2021, 01:06:23 pm

Just whipped up a 1000+ LOC last night :-))

Isn't this like Tetris?

Yeah without the time pressure, I bet.

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 03, 2021, 01:22:06 pm

It is like tetris in a way, in that you have a certain number of shaped blocks to form line, but they dont drop down and you cant rotate them, you just have to place them together as you want. I find it more relaxing tah tetris.

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 03, 2021, 01:28:17 pm

Quote from: bplus on January 03, 2021, 01:06:23 pm

Just whipped up a 1000+ LOC last night :-))

Yep, But I did have to stay up till after 2am.

Also, a lot of the code, like the playing board system and placement method is the same as in some other of my puzzle games, so I did kind of plug-n-play some code, made it go it quicker than usual.

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: FellippeHeitor on January 03, 2021, 01:45:45 pm

Pretty cool to play, Dav!

I did get this issue where the bottom line would never clear:

[ This attachment cannot be displayed inline in 'Print Page' view ]
[ This attachment cannot be displayed inline in 'Print Page' view ]

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 03, 2021, 01:55:03 pm

Quote from: FellippeHeitor on January 03, 2021, 01:45:45 pm

Pretty cool to play, Dav!

I did get this issue where the bottom line would never clear:

Ah...I see what I did wrong there. OK...I fixed the original code. Should work correctly now, hope. It was a too short FOR/NEXT bug in the UpdateBoard SUB.

Thanks for trying it, @FellippeHeitor!

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: STxAxTIC on January 03, 2021, 03:04:21 pm

I was doing well until... I wasn't... Nice game!

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Petr on January 03, 2021, 03:14:26 pm

Very nice game, Dav :)

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: OldMoses on January 03, 2021, 04:16:39 pm

Now that one is fun. I only got to 200 on the first try. It's a head scratcher.

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 03, 2021, 05:30:20 pm

Thanks, everyone.

I see there needs to be an improvement on how it examines the completed lines. As it is now, if you drop a piece that completes both a horizontal and vertical line, it will clear the horizontal lines first (rows). Then and after those are cleared, the vertical lines will no longer be complete, so those lines will end up not being cleared. I need to fix it so that all completed lines will be marked first, then do the clearing, so that none are missed.

I also think I will replace the color scheme to a more original one, maybe some SFX.

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: jack on January 03, 2021, 06:02:44 pm

Hi Day
nice game, I suggest that instead of terminating the program when there are no more moves that it will restart a new game, one can exit the game by clicking on the X

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 03, 2021, 06:48:28 pm

@jack: Sounds good. Ill do that. Thanks.

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: jack on January 03, 2021, 07:14:42 pm

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: STxAxTIC on January 03, 2021, 08:24:02 pm

I didn't want to admit what broke my concentration when playing my last game, but I completely blame @SpriggsySpriggs because in Discord he said the Matrix has plot holes!... right when I had to deal with a 3x3 woody block. Needless to say I spilled my Froot Loops all over the place and started yelling at him through my screen.

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 03, 2021, 09:58:21 pm

I have updated the original code to fix the row+column combo clearing problem. They all should clear correctly now. I also added game restart as suggested, and you can also press SPACE to quit the current game and start over. Thanks all for testing it for me!

Lol @STxAxTIC . Yeah, those big blocks get me often too.

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: jack on January 04, 2021, 06:33:05 am

@Dav
it works great :)

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: pforpond on January 04, 2021, 08:00:37 am

This is very addictive, though just like Tetris I'm awful it it! It seems very crash happy on Ubuntu but works smooth in Windows 10.

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 04, 2021, 09:43:11 am

Thanks for the report @pforpond. Not sure why it would crash...maybe it's the copyimage? I don't have a linux box anymore, so I can test that.

In the code, I'm doing like back&=_COPYIMAGE(_DISPLAY), but I never free that - I just call it over. Could that be the reason? Do calls like that need freed first?

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: FellippeHeitor on January 04, 2021, 09:56:28 am

Quote from: Dav on January 04, 2021, 09:43:11 am

Do calls like that need freed first?

Gotta watch for those copies in memory indeed.

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 04, 2021, 10:02:24 am

I was assuming since i reassign the variable, that the previous would be cancelled out, but that is not so? I wasnt sure...

So If I do ..

FOR g = 1 to 10: back& = _COPYIMAGE(_DISPLAY): NEXT

It would keep 10 back& in memory, and not 1?

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: FellippeHeitor on January 04, 2021, 10:05:03 am

Yeah, there are 10 copies in memory after that line - which is worse, they are now no longer accessible, since you didn't store their handles.

You can confirm new ones are being generated by adding a PRINT back& before NEXT.

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 04, 2021, 10:06:55 am

OK. Thanks for that info. I probably knew that at one time, but forgot. I better fix the code again.

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: SMcNeill on January 04, 2021, 10:07:30 am

Quote from: Dav on January 04, 2021, 10:02:24 am

I was assuming since i reassign the variable, that the previous would be cancelled out, but that is not so? I wasnt sure...

So If I do ..

FOR g = 1 to 10: back& = _COPYIMAGE(_DISPLAY): NEXT

It would keep 10 back& in memory, and not 1?

- Dav

It would, but you’d only keep the handle to access the last one.

PRINT back& and watch how the handle increments each time. Then add a _FREEIMAGE and see the difference.

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 04, 2021, 10:21:59 am

I fixed the code just now - added _FREEIMAGE the back& and undo& memory after using those.

Thanks ya'll....

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: jack on January 04, 2021, 02:30:23 pm

Hi Dav
you need to set score to 0 just before GOTO Restart, otherwise the score just keeps accumulating

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 04, 2021, 04:03:14 pm

Thanks, @jack! I fixed it. I took the fix opportunity to update scoring to more like the real puzzle game. Now points are given for each piece put on the board, according to its size. Also, a High Score is now kept and shown in TITLE bar (all forgotten when the program ends however, no external files created still).

New version 1.3 in first post.

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: STxAxTIC on January 04, 2021, 04:10:31 pm

I was sad to not get 1000...

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 04, 2021, 04:22:53 pm

Wow, you did pretty good tho! Ain't easy getting up that high. Looks like you're running the earlier version, I've fixed a couple of things since then. Just posted v1.3.

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: STxAxTIC on January 04, 2021, 05:46:00 pm

Oops, updated my local copy:

[ This attachment cannot be displayed inline in 'Print Page' view ]

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: jack on January 05, 2021, 06:18:49 am

thanks Dave
my new hi score 3333

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 05, 2021, 08:02:37 am

Well that beats me, @jack. I've only got in the 2000's so far.

I think there needs to be a more visual way to erase the lines, so I'll work on that next. Maybe flash them first. Also think scores should be showing on the screen instead of title bar, so I'll need to add little more real estate to the window. Got some sound effects in mind. Not sure when i can do that - my wife is on my case right now wasting time with this programming stuff, so I gotta slow down for a little while. That 2am coding marathon wasn't a good idea...

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: bplus on January 05, 2021, 12:10:56 pm

Quote

That 2am coding marathon wasn't a good idea...

Classic case of Muse Abuse!

Like you had a choice hahaha!

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 05, 2021, 01:07:41 pm

Hadn't heard of muse abuse before...had to look it up. This year I'll try to be better...

btw @bplus, I keep thinking of that Print7 LCD number thing you posted a while back. It was really cool.
Would you mind if I implemented that in this game for scoring?

- Dav

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: bplus on January 05, 2021, 01:19:49 pm

Quote from: Dav on January 05, 2021, 01:07:41 pm

Hadn't heard of muse abuse before...had to look it up. This year I'll try to be better...

btw @bplus, I keep thinking of that Print7 LCD number thing you posted a while back. It was really cool.
Would you mind if I implemented that in this game for scoring?

- Dav

I think you asked before and you have my OK for anything you want to do with my stuff, people are going to do it anyway with or without, but nice to source ideas if you can.

I just looked up Muse Abuse on Internet, just after I made up that term, someone already had stolen my idea hahaha! but it is not what I had in mind. Now days it's the artist abusing his family and friends by using his living experience as source of inspiration for his "creations". I was thinking of Classic Greek meaning of Muse's taking over an artist life, when inspired they don't eat or sleep right and can be ruined by generally a good thing but carried too far.

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 05, 2021, 08:48:59 pm

Here's a new version using the cyberbit.ttf font supplied with QB64 to show scores in the game. I decided not to use Print7, @bplus because I wanted to display letters too. I gave the game over window a little makeover too, and added some others fixes. There's an error somewhere in the validation function - once I didn't have a move left, but it didn't catch it, so the game was stuck.

I'll post the new version here in case some rather have the original looking version...

Btw, does anyone know if cyberbit.ttf will be included in the official QB64 v1.5 release? It wasn't in the dev build.

- Dav

Code: QB64: [Select]

'=========
'10x10.bas - v1.5
'=========
'A 10x10 lines puzzle (Woody clone)
'Coded by Dav, JAN/2021
 
'Follow this programs development here:
'https://www.qb64.org/forum/index.php?topic=3444.0
 
'v1.5 changes: fixed: Removed external font call. Uses PPRINT.
 
'=====
'ABOUT:
'=====
 
'Clone of the Woody puzzle.  Drag pices onto the board
'to make completed rows or columns.  Completed lines erase.
'Bonus points are given for clearing more than one line at
'the same time. See how high a score you can get until you
'run out of space to make a move.
'
'Hit SPACE to quit and restart game.
 
 
RANDOMIZE TIMER
 
SCREEN _NEWIMAGE(800, 650, 32)
DO: LOOP UNTIL _SCREENEXISTS
 
CLS , _RGB(162, 104, 78)
ShowScore
 
_TITLE "10x10"
 
DIM SHARED rows, cols, size, piece1, piece2, piece3, score, hiscore
 
rows = 10: cols = 10: size = 60
 
DIM SHARED box(rows * cols)
DIM SHARED box.x1(rows * cols), box.x2(rows * cols)
DIM SHARED box.y1(rows * cols), box.y2(rows * cols)
DIM SHARED darksquare&, litesquare&
 
darksquare& = BASIMAGE1&
litesquare& = BASIMAGE2&
 
'============
Restart:
'============
 
score = 0
 
'Init the box values
bc = 1 'counter
FOR c = 1 TO cols
    FOR r = 1 TO rows
        x = (r * size): y = 50 + (c * size)
        box.x1(bc) = x - size: box.x2(bc) = x
        box.y1(bc) = y - size: box.y2(bc) = y
        box(bc) = 0 'set value to 0...means empty box
        bc = bc + 1
    NEXT
NEXT
 
DrawHoldingPens
UpdateBoard
 
DO
    t = _MOUSEINPUT
 
    IF _MOUSEBUTTON(1) THEN
        mx = _MOUSEX: my = _MOUSEY
 
        'if clicked holding pen 1
        IF mx >= 610 AND mx <= 790 AND my >= 60 AND my <= 240 THEN
            IF piece1 <> 0 THEN
 
                'grab background in case restore needed
                undo& = _COPYIMAGE(_DISPLAY)
 
                'clear holding pen 1
                LINE (610, 60)-(790, 240), _RGB(105, 14, 0), BF: _DISPLAY
 
                back& = _COPYIMAGE(_DISPLAY)
 
                'pickup piece, drag it around until mouse up
                DO
                    'show piece in hand, over backgraound
                    IF INT(RND * 3) = 0 THEN
                        _PUTIMAGE (0, 0), back&
                        '_PUTIMAGE (_MOUSEX, _MOUSEY), litesquare&: _DISPLAY
                        DrawPiece piece1, _MOUSEX, _MOUSEY
                    END IF
 
                    'If user unclicked the button (let go)
                    t2 = _MOUSEINPUT
                    IF _MOUSEBUTTON(1) = 0 THEN
                        mx2 = _MOUSEX: my2 = _MOUSEY
 
                        'see if unclicked over an empty box
                        FOR r = 1 TO rows * cols
                            IF mx2 >= box.x1(r) AND mx2 <= box.x2(r) AND my2 >= box.y1(r) AND my2 <= box.y2(r) THEN
 
                                'If the piece fits...
                                IF Validate(piece1, r, 0) = 1 THEN
                                    _PUTIMAGE (0, 0), back&: _DISPLAY
                                    AddToScore piece1
                                    piece1 = 0 'remove piece from pen
                                ELSE
                                    curpiece = piece1
                                    GOSUB PieceReturn
                                    _PUTIMAGE (0, 0), undo&: _DISPLAY
                                END IF
 
                                GOTO doneamove
 
                            END IF
                        NEXT
                        curpiece = piece1
                        GOSUB PieceReturn
 
                        _PUTIMAGE (0, 0), undo&: _DISPLAY
 
                        GOTO doneamove
 
                    END IF
 
                LOOP
                'please release me, let me go....
                _FREEIMAGE undo&
                _FREEIMAGE back&
            END IF
        END IF
 
        'if clicked holding pen 2
        IF mx >= 610 AND mx <= 790 AND my >= 260 AND my <= 440 THEN
            IF piece2 <> 0 THEN
 
                'grab background in case restore needed
                undo& = _COPYIMAGE(_DISPLAY)
 
                'clear holding pen 2
                LINE (610, 260)-(790, 440), _RGB(105, 14, 0), BF: _DISPLAY
 
                back& = _COPYIMAGE(_DISPLAY)
 
                'pickup piece, drag it around until mouse up
                DO
                    'show piece in hand, over backgraound
                    IF INT(RND * 3) = 0 THEN
                        _PUTIMAGE (0, 0), back&
                        '_PUTIMAGE (_MOUSEX, _MOUSEY), litesquare&: _DISPLAY
                        DrawPiece piece2, _MOUSEX, _MOUSEY
                    END IF
 
                    'If user unclicked the button (let go)
                    t2 = _MOUSEINPUT
                    IF _MOUSEBUTTON(1) = 0 THEN
                        mx2 = _MOUSEX: my2 = _MOUSEY
 
                        'see if unclicked over an empty box
                        FOR r = 1 TO rows * cols
                            IF mx2 >= box.x1(r) AND mx2 <= box.x2(r) AND my2 >= box.y1(r) AND my2 <= box.y2(r) THEN
 
                                'If the piece fits...
                                IF Validate(piece2, r, 0) = 1 THEN
                                    _PUTIMAGE (0, 0), back&: _DISPLAY
                                    AddToScore piece2
                                    piece2 = 0 'remove piece from pen
                                ELSE
                                    curpiece = piece2
                                    GOSUB PieceReturn
                                    _PUTIMAGE (0, 0), undo&: _DISPLAY
                                END IF
 
                                GOTO doneamove
 
                            END IF
                        NEXT
                        curpiece = piece2
                        GOSUB PieceReturn
 
                        _PUTIMAGE (0, 0), undo&: _DISPLAY
 
                        GOTO doneamove
 
                    END IF
 
                LOOP
                'please release me, let me go....
                _FREEIMAGE undo&
                _FREEIMAGE back&
            END IF
 
        END IF
 
        'if clicked holding pen 3
        IF mx >= 610 AND mx <= 790 AND my >= 460 AND my <= 640 THEN
            IF piece3 <> 0 THEN
 
                'grab background in case restore needed
                undo& = _COPYIMAGE(_DISPLAY)
 
                'clear holding pen 3
                LINE (610, 460)-(790, 640), _RGB(105, 14, 0), BF: _DISPLAY
 
                back& = _COPYIMAGE(_DISPLAY)
 
                'pickup piece, drag it around until mouse up
                DO
                    'show piece in hand, over backgraound
                    IF INT(RND * 3) = 0 THEN
                        _PUTIMAGE (0, 0), back&
                        '_PUTIMAGE (_MOUSEX, _MOUSEY), litesquare&: _DISPLAY
                        DrawPiece piece3, _MOUSEX, _MOUSEY
                    END IF
 
                    'If user unclicked the button (let go)
                    t2 = _MOUSEINPUT
                    IF _MOUSEBUTTON(1) = 0 THEN
                        mx2 = _MOUSEX: my2 = _MOUSEY
 
                        'see if unclicked over an empty box
                        FOR r = 1 TO rows * cols
                            IF mx2 >= box.x1(r) AND mx2 <= box.x2(r) AND my2 >= box.y1(r) AND my2 <= box.y2(r) THEN
 
                                'If the piece fits...
                                IF Validate(piece3, r, 0) = 1 THEN
                                    _PUTIMAGE (0, 0), back&: _DISPLAY
                                    AddToScore piece3
                                    piece3 = 0 'remove piece from pen
                                ELSE
                                    curpiece = piece3
                                    GOSUB PieceReturn
                                    _PUTIMAGE (0, 0), undo&: _DISPLAY
                                END IF
 
                                GOTO doneamove
 
                            END IF
                        NEXT
                        curpiece = piece3
                        GOSUB PieceReturn
 
                        _PUTIMAGE (0, 0), undo&: _DISPLAY
 
                        GOTO doneamove
 
                    END IF
 
                LOOP
                'please release me, let me go....
                _FREEIMAGE undo&
                _FREEIMAGE back&
            END IF
 
        END IF
 
        doneamove:
 
        'Get new pieces if all holding pens empty
        IF piece1 = 0 AND piece2 = 0 AND piece3 = 0 THEN DrawHoldingPens
 
        UpdateBoard
 
        IF MovesLeft = 0 THEN
            LINE (200, 175)-(525, 325), _RGBA(0, 0, 0, 150), BF
            LINE (200, 175)-(525, 325), _RGB(255, 255, 255), B
            LINE (199, 174)-(526, 326), _RGB(255, 255, 255), B
            PPRINT 240, 200, 20, _RGB(255, 255, 255), 0, "NO MOVES LEFT!"
            PPRINT 275, 240, 20, _RGB(255, 255, 255), 0, "Score:" + STR$(score)
            IF score = hiscore THEN
                PPRINT 230, 280, 20, _RGB(255, 255, 0), 0, "NEW HIGH SCORE!"
            END IF
            _AUTODISPLAY
            'wait until mouse click
            DO: k = _MOUSEINPUT
                IF INKEY$ = CHR$(32) THEN EXIT DO
            LOOP UNTIL _MOUSEBUTTON(1)
            GOTO Restart
        END IF
 
 
    END IF
 
    IF INKEY$ = CHR$(32) THEN GOTO Restart:
 
    _AUTODISPLAY
 
LOOP
 
END
 
 
 
'============================
'============
PieceReturn:
 
'animate sending piece back to original x/y
cx = mx2: cy = my2
xdone = 0: ydone = 0
DO
    IF mx2 > mx THEN
        cx = cx - 12
        IF cx < mx THEN
            cx = mx: xdone = 1
        END IF
    ELSE
        cx = cx + 12
        IF cx > mx THEN
            cx = mx: xdone = 1
        END IF
    END IF
 
    IF my2 > my THEN
        cy = cy - 12
        IF cy < my THEN
            cy = my: ydone = 1
        END IF
    ELSE
        cy = cy + 12
        IF cy > my THEN
            cy = my: ydone = 1
        END IF
 
    END IF
 
    _PUTIMAGE (0, 0), back&
    DrawPiece curpiece, cx - 20, cy - 20
 
    _DISPLAY
 
    _DELAY .0075
 
LOOP UNTIL xdone = 1 AND ydone = 1
 
RETURN
 
FUNCTION MovesLeft ()
 
    'Checks if moves are left
 
    MovesLeft = 0 'default none left until a move found
 
    'if there's a piece in holding pen 1
    IF piece1 <> 0 THEN
 
        'run piece check on all open boxes
        FOR r = 1 TO rows * cols
            'test piece on box if empty
            IF box(r) = 0 THEN
                IF Validate(piece1, r, 1) = 1 THEN
                    MovesLeft = 1: EXIT FOR
                END IF
            END IF
        NEXT
    END IF
 
    'if there's a piece in holding pen 2
    IF piece2 <> 0 THEN
        'run piece check on all open boxes
        FOR r = 1 TO rows * cols
            IF box(r) = 0 THEN
                IF Validate(piece2, r, 1) = 1 THEN
                    MovesLeft = 1: EXIT FOR
                END IF
            END IF
        NEXT
    END IF
 
    'if there's a piece in holding pen 3
    IF piece3 <> 0 THEN
        'run piece check on all open boxes
        FOR r = 1 TO rows * cols
            IF box(r) = 0 THEN
                IF Validate(piece3, r, 1) = 1 THEN
                    MovesLeft = 1: EXIT FOR
                END IF
            END IF
        NEXT
    END IF
 
END FUNCTION
 
 
SUB UpdateBoard
 
    bc = 1 'counter
    FOR c = 1 TO cols
        FOR r = 1 TO rows
            IF box(bc) = 0 THEN
                _PUTIMAGE (box.x1(bc), box.y1(bc))-(box.x2(bc), box.y2(bc)), darksquare&
            ELSE
                _PUTIMAGE (box.x1(bc), box.y1(bc))-(box.x2(bc), box.y2(bc)), litesquare&
            END IF
            bc = bc + 1
        NEXT
    NEXT
 
    _DISPLAY
 
    'Check for completed lines...add score
    '10 points for clearing 1 row or col,
    'bonus points for doing several at one time
    tallyup = 0: bonus = 0
    'scan for completed rows...
    REDIM rowdo(10) AS INTEGER: rc = 1: rowhere = 0
    FOR rw = 1 TO 100 STEP 10
        IF RowDone(rw) THEN
            'RowClear rw
            rowdo(rc) = rw: rc = rc + 1: rowhere = 1
            tallyup = tallyup + 10
            bonus = bonus + 1
        END IF
    NEXT
    'scan for completed columns...
    REDIM coldo(10) AS INTEGER: cc = 1: colhere = 0
    FOR c = 1 TO 10
        IF ColDone(c) THEN
            coldo(cc) = c: cc = cc + 1: colhere = 1
            tallyup = tallyup + 10
            bonus = bonus + 1
            'ColClear c
        END IF
    NEXT
    'Now do the erasing...
    IF rowhere = 1 THEN
        FOR e = 1 TO 10
            IF rowdo(e) <> 0 THEN RowClear rowdo(e)
        NEXT
    END IF: ERASE rowdo
    IF colhere = 1 THEN
        FOR e = 1 TO 10
            IF coldo(e) <> 0 THEN ColClear coldo(e)
        NEXT
    END IF: ERASE coldo
 
    score = score + (tallyup * bonus)
 
    IF score > hiscore THEN hiscore = score
 
    ShowScore
 
    _TITLE "10x10 - Your Score:" + STR$(score) + "  -  High Score:" + STR$(hiscore)
 
    _ICON _DISPLAY 'update app icon on taskbar
 
END SUB
 
 
FUNCTION RowDone (row)
    RowDone = 1
    FOR r = row TO row + 9
        IF box(r) = 0 THEN RowDone = 0
    NEXT
END FUNCTION
 
SUB RowClear (row)
    FOR r = row TO row + 9
        LINE (box.x1(r), box.y1(r))-(box.x2(r), box.y2(r)), _RGB(255, 255, 255), BF
        _DISPLAY: _DELAY .015
        _PUTIMAGE (box.x1(r), box.y1(r))-(box.x2(r), box.y2(r)), darksquare&
        _DISPLAY: _DELAY .005
        box(r) = 0
    NEXT
END SUB
 
FUNCTION ColDone (col)
    ColDone = 1
    FOR c = col TO (rows * cols) STEP 10
        IF box(c) = 0 THEN ColDone = 0
    NEXT
END FUNCTION
 
SUB ColClear (col)
    FOR r = col TO (rows * cols) STEP 10
        LINE (box.x1(r), box.y1(r))-(box.x2(r), box.y2(r)), _RGB(255, 255, 255), BF
        _DISPLAY: _DELAY .015
        _PUTIMAGE (box.x1(r), box.y1(r))-(box.x2(r), box.y2(r)), darksquare&
        _DISPLAY: _DELAY .005
        box(r) = 0
    NEXT
END SUB
 
FUNCTION Validate (piece, num, checkonly)
 
    'This function validates if pieces fit
    'if checkonly flag is on, then it just checks to see
    'if checkonly flag = 0 then it checks and marks box() filled
 
    Validate = 0 'default not validated
 
    'one dot piece
    IF piece = 1 THEN
        IF box(num) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    '2 dot horizonal
    IF piece = 2 THEN
        'don't validate if on the last box on right side
        SELECT CASE num
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'validate if this box and next box over is free
        IF box(num) = 0 AND box(num + 1) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    '2 dot vertical
    IF piece = 3 THEN
        'don't validate if on bottom row
        SELECT CASE num
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'validate if this box and box below is free
        IF box(num) = 0 AND box(num + 10) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 4 THEN '3 dots left/up
        'dont validate if on top row
        SELECT CASE num
            CASE 1 TO 10: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num - 9) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num - 9) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 5 THEN '3 dots right/up
        'don't validate bottom row
        SELECT CASE num
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last box on right side
        SELECT CASE num
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 11) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1: box(num + 11) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 6 THEN
        'don't validate bottom row
        SELECT CASE num
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last box on right side
        SELECT CASE num
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 11) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 11) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 7 THEN
        'don't validate bottom row
        SELECT CASE num
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last box on right side
        SELECT CASE num
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 10) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 10) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 8 THEN '3 dots horz
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 9 THEN '3 dots vert
        'don't validate bottom 2 row
        SELECT CASE num
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1: box(num + 20) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 10 THEN '4 dots block
        'don't validate bottom row
        SELECT CASE num
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last box on right side
        SELECT CASE num
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 10) = 0 AND box(num + 11) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 10) = 1: box(num + 11) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 11 THEN '4 dots horz
        'don't validate if on the last 3 columns on right side
        SELECT CASE num
            CASE 8, 18, 28, 38, 48, 58, 68, 78, 88, 98: Validate = 0: EXIT FUNCTION
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 3) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 3) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 12 THEN '4 dots vert
        'don't validate bottom 3 rows
        SELECT CASE num
            CASE 71 TO 80: Validate = 0: EXIT FUNCTION
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 AND box(num + 30) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1: box(num + 20) = 1: box(num + 30) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 13 THEN '5 dots horz
        'don't validate if on the last 3 columns on right side
        SELECT CASE num
            CASE 7, 17, 27, 37, 47, 57, 67, 77, 87, 97: Validate = 0: EXIT FUNCTION
            CASE 8, 18, 28, 38, 48, 58, 68, 78, 88, 98: Validate = 0: EXIT FUNCTION
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 3) = 0 AND box(num + 4) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 3) = 1: box(num + 4) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 14 THEN '5 dots vert
        'don't validate bottom 4 rows
        SELECT CASE num
            CASE 61 TO 70: Validate = 0: EXIT FUNCTION
            CASE 71 TO 80: Validate = 0: EXIT FUNCTION
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 AND box(num + 30) = 0 AND box(num + 40) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1: box(num + 20) = 1: box(num + 30) = 1: box(num + 40) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 15 THEN '5 dots left/up
        'don't validate bottom 2 rows
        SELECT CASE num
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 12) = 0 AND box(num + 22) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 12) = 1: box(num + 22) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 16 THEN '5 dots right/up
        'don't validate bottom 2 rows
        SELECT CASE num
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 10) = 1: box(num + 20) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 17 THEN '5 dots right/down
        'don't validate bottom 2 rows
        SELECT CASE num
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 10) = 0 AND box(num + 20) = 0 AND box(num + 21) = 0 AND box(num + 22) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 10) = 1: box(num + 20) = 1: box(num + 21) = 1: box(num + 22) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 18 THEN '5 dots left/down
        'don't validate top 2 rows
        SELECT CASE num
            CASE 1 TO 10: Validate = 0: EXIT FUNCTION
            CASE 11 TO 20: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num - 8) = 0 AND box(num - 18) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num - 8) = 1: box(num - 18) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
    IF piece = 19 THEN '9 dots big block
        'don't validate bottom 2 rows
        SELECT CASE num
            CASE 81 TO 90: Validate = 0: EXIT FUNCTION
            CASE 91 TO 100: Validate = 0: EXIT FUNCTION
        END SELECT
        'don't validate if on the last 2 columns on right side
        SELECT CASE num
            CASE 9, 19, 29, 39, 49, 59, 69, 79, 89, 99: Validate = 0: EXIT FUNCTION
            CASE 10, 20, 30, 40, 50, 60, 70, 80, 90, 100: Validate = 0: EXIT FUNCTION
        END SELECT
        IF box(num) = 0 AND box(num + 1) = 0 AND box(num + 2) = 0 AND box(num + 10) = 0 AND box(num + 11) = 0 AND box(num + 12) = 0 AND box(num + 20) = 0 AND box(num + 21) = 0 AND box(num + 22) = 0 THEN
            IF checkonly = 0 THEN
                box(num) = 1: box(num + 1) = 1: box(num + 2) = 1: box(num + 10) = 1: box(num + 11) = 1: box(num + 12) = 1: box(num + 20) = 1: box(num + 21) = 1: box(num + 22) = 1
            END IF
            Validate = 1
        END IF
    END IF
 
END FUNCTION
 
SUB AddToScore (num)
 
    IF num = 1 THEN score = score + 1
    IF num = 2 THEN score = score + 2
    IF num = 3 THEN score = score + 2
    IF num = 4 THEN score = score + 3
    IF num = 5 THEN score = score + 3
    IF num = 6 THEN score = score + 3
    IF num = 7 THEN score = score + 3
    IF num = 8 THEN score = score + 3
    IF num = 9 THEN score = score + 3
    IF num = 10 THEN score = score + 4
    IF num = 11 THEN score = score + 4
    IF num = 12 THEN score = score + 4
    IF num = 13 THEN score = score + 5
    IF num = 14 THEN score = score + 5
    IF num = 15 THEN score = score + 5
    IF num = 16 THEN score = score + 5
    IF num = 17 THEN score = score + 5
    IF num = 18 THEN score = score + 5
    IF num = 19 THEN score = score + 9
 
END SUB
 
SUB DrawHoldingPens
 
    'Draws 3 holding pens, smaller version of pieces,
    'and assigns random piece to each holding pen...
 
    'holding pen 1
    LINE (610, 60)-(790, 240), _RGB(105, 14, 0), BF
    'holding pen 2
    LINE (610, 260)-(790, 440), _RGB(105, 14, 0), BF
    'holding pen 3
    LINE (610, 460)-(790, 640), _RGB(105, 14, 0), BF
 
    FOR pens = 1 TO 3
 
        'Get a random piece
        'There are 19 total pieces to choose from
        piece = INT(RND * 19) + 1
 
        'y offset vaule for the pens
        IF pens = 1 THEN yo = 50
        IF pens = 2 THEN yo = 250
        IF pens = 3 THEN yo = 450
 
        IF piece = 1 THEN '1 dot
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
        END IF
        IF piece = 2 THEN '2 dots horizonal
            _PUTIMAGE (670, 85 + yo)-(700, 115 + yo), litesquare& 'mid
            _PUTIMAGE (700, 85 + yo)-(730, 115 + yo), litesquare& 'right
        END IF
        IF piece = 3 THEN '2 dots vertical
            _PUTIMAGE (685, 100 + yo)-(715, 130 + yo), litesquare& 'mid
            _PUTIMAGE (685, 70 + yo)-(715, 100 + yo), litesquare& 'up
        END IF
        IF piece = 4 THEN '3 dots Left/Up
            _PUTIMAGE (700, 100 + yo)-(730, 130 + yo), litesquare& 'mid
            _PUTIMAGE (700, 70 + yo)-(730, 100 + yo), litesquare& 'up
            _PUTIMAGE (670, 100 + yo)-(700, 130 + yo), litesquare& 'left
        END IF
        IF piece = 5 THEN '3 dots right/Up
            _PUTIMAGE (670, 100 + yo)-(700, 130 + yo), litesquare& 'mid
            _PUTIMAGE (670, 70 + yo)-(700, 100 + yo), litesquare& 'up
            _PUTIMAGE (700, 100 + yo)-(730, 130 + yo), litesquare& 'right
        END IF
        IF piece = 6 THEN '3 dots Left/down
            _PUTIMAGE (700, 70 + yo)-(730, 100 + yo), litesquare& 'mid
            _PUTIMAGE (700, 100 + yo)-(730, 130 + yo), litesquare& 'down
            _PUTIMAGE (670, 70 + yo)-(700, 100 + yo), litesquare& 'left
        END IF
        IF piece = 7 THEN '3 dots right/down
            _PUTIMAGE (670, 70 + yo)-(700, 100 + yo), litesquare& 'mid
            _PUTIMAGE (670, 100 + yo)-(700, 130 + yo), litesquare& 'down
            _PUTIMAGE (700, 70 + yo)-(730, 100 + yo), litesquare& 'left
        END IF
        IF piece = 8 THEN '3 dots horizonal
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare& 'mid
            _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare& 'right
            _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare& 'left
        END IF
        IF piece = 9 THEN '3 dots vertical
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare& 'mid
            _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare& 'up
            _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare& 'down
        END IF
        IF piece = 10 THEN '4 dots block
            _PUTIMAGE (665, 75 + yo)-(695, 105 + yo), litesquare& 'top left
            _PUTIMAGE (695, 75 + yo)-(725, 105 + yo), litesquare& 'top right
            _PUTIMAGE (665, 105 + yo)-(695, 135 + yo), litesquare& 'bottom left
            _PUTIMAGE (695, 105 + yo)-(725, 135 + yo), litesquare& 'bottom right
        END IF
        IF piece = 11 THEN '4 dots horizonal
            _PUTIMAGE (640, 85 + yo)-(670, 115 + yo), litesquare&
            _PUTIMAGE (670, 85 + yo)-(700, 115 + yo), litesquare&
            _PUTIMAGE (700, 85 + yo)-(730, 115 + yo), litesquare&
            _PUTIMAGE (730, 85 + yo)-(760, 115 + yo), litesquare&
        END IF
        IF piece = 12 THEN '4 dots vertical
            _PUTIMAGE (685, 40 + yo)-(715, 70 + yo), litesquare&
            _PUTIMAGE (685, 70 + yo)-(715, 100 + yo), litesquare&
            _PUTIMAGE (685, 100 + yo)-(715, 130 + yo), litesquare&
            _PUTIMAGE (685, 130 + yo)-(715, 160 + yo), litesquare&
        END IF
        IF piece = 13 THEN '5 dots horizonal
            _PUTIMAGE (625, 85 + yo)-(655, 115 + yo), litesquare&
            _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
            _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
            _PUTIMAGE (745, 85 + yo)-(775, 115 + yo), litesquare&
        END IF
        IF piece = 14 THEN '5 dots vertical
            _PUTIMAGE (685, 20 + yo)-(715, 50 + yo), litesquare&
            _PUTIMAGE (685, 50 + yo)-(715, 85 + yo), litesquare&
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
            _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
            _PUTIMAGE (685, 145 + yo)-(715, 175 + yo), litesquare&
        END IF
        IF piece = 15 THEN '5 dots left/up
            _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
            _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare&
            _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
            _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
            _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
        END IF
        IF piece = 16 THEN '5 dots right/up
            _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
            _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare&
            _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
            _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
            _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
        END IF
        IF piece = 17 THEN '5 dots right/down
            _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
            _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
            _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
            _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
            _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
        END IF
        IF piece = 18 THEN '5 dots left/down
            _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
            _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
            _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
            _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
            _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
        END IF
        IF piece = 19 THEN '9 dots big block
            _PUTIMAGE (655, 55 + yo)-(685, 85 + yo), litesquare&
            _PUTIMAGE (685, 55 + yo)-(715, 85 + yo), litesquare&
            _PUTIMAGE (655, 85 + yo)-(685, 115 + yo), litesquare&
            _PUTIMAGE (685, 85 + yo)-(715, 115 + yo), litesquare&
            _PUTIMAGE (715, 55 + yo)-(745, 85 + yo), litesquare&
            _PUTIMAGE (715, 85 + yo)-(745, 115 + yo), litesquare&
            _PUTIMAGE (685, 115 + yo)-(715, 145 + yo), litesquare&
            _PUTIMAGE (715, 115 + yo)-(745, 145 + yo), litesquare&
            _PUTIMAGE (655, 115 + yo)-(685, 145 + yo), litesquare&
        END IF
 
        'Assign the generated pieces values
        IF pens = 1 THEN piece1 = piece
        IF pens = 2 THEN piece2 = piece
        IF pens = 3 THEN piece3 = piece
 
    NEXT
 
    _DISPLAY
 
END SUB
 
 
SUB DrawPiece (piece, x, y)
 
    x = x - 30: y = y - 30 'center the mouse on a block
 
 
    IF piece = 1 THEN '1 dot
        _PUTIMAGE (x, y), litesquare&
    END IF
 
    IF piece = 2 THEN '2 dots horizonal
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
    END IF
 
    IF piece = 3 THEN '2 dot vertical
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
    END IF
 
    IF piece = 4 THEN '3 dots left/up
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60, y - 60), litesquare&
    END IF
 
    IF piece = 5 THEN '3 dots right/up
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x + 60, y + 60), litesquare&
    END IF
 
    IF piece = 6 THEN '3 dots left/down
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60, y + 60), litesquare&
    END IF
 
    IF piece = 7 THEN '3 dots right/down
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
    END IF
 
    IF piece = 8 THEN '3 dots horizonal
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
    END IF
 
    IF piece = 9 THEN '3 dots vert
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
    END IF
 
    IF piece = 10 THEN '4 dots block
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x + 60, y + 60), litesquare&
    END IF
 
    IF piece = 11 THEN '4 dots horz
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60 + 60, y), litesquare&
    END IF
 
    IF piece = 12 THEN '4 dots vert
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60 + 60), litesquare&
    END IF
 
    IF piece = 13 THEN '5 dots horz
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60 + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60 + 60 + 60, y), litesquare&
    END IF
 
    IF piece = 14 THEN '5 dots vert
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60 + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60 + 60 + 60), litesquare&
    END IF
 
    IF piece = 15 THEN '5 dots left/up
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y + 60), litesquare&
        _PUTIMAGE (x + 60 + 60, y + 60 + 60), litesquare&
    END IF
 
    IF piece = 16 THEN '5 dots right/up
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
    END IF
 
    IF piece = 17 THEN '5 dots right/down
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
        _PUTIMAGE (x + 60, y + 60 + 60), litesquare&
        _PUTIMAGE (x + 60 + 60, y + 60 + 60), litesquare&
    END IF
 
    IF piece = 18 THEN '5 dots left/down
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y - 60), litesquare&
        _PUTIMAGE (x + 60 + 60, y - 60 - 60), litesquare&
    END IF
 
    IF piece = 19 THEN '9 dots big block
        _PUTIMAGE (x, y), litesquare&
        _PUTIMAGE (x + 60, y), litesquare&
        _PUTIMAGE (x + 60 + 60, y), litesquare&
        _PUTIMAGE (x, y + 60), litesquare&
        _PUTIMAGE (x + 60, y + 60), litesquare&
        _PUTIMAGE (x + 60 + 60, y + 60), litesquare&
        _PUTIMAGE (x, y + 60 + 60), litesquare&
        _PUTIMAGE (x + 60, y + 60 + 60), litesquare&
        _PUTIMAGE (x + 60 + 60, y + 60 + 60), litesquare&
    END IF
 
    _DISPLAY
 
END SUB
 
'======================================================================
 
FUNCTION BASIMAGE1& 'darksquare.bmp
    v& = _NEWIMAGE(55, 55, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIkJ^nDCL567NcEP4B2QT#4#;PSfFVNafZRRf?PG11B3B4bU=g31BT08PD]"
    A$ = A$ + "06d>MJWj<Mj<MJ]E7_Dak=VJaQa;m3mO]OmM?KB8:SCo#BWMjIj7NVChLf\k"
    A$ = A$ + "k3WcimLf\KXUN2R\lSAREbSdG:?ROnEah;n8TNYe#j5G7aGh?#jUON9Vh258"
    A$ = A$ + "k;HTLUGP4IO>R_lcH4KYeIUBeE>5Ko=Ai7[di\L6oR_TAaS;5mi9cn<LjUGW"
    A$ = A$ + ":G7Yb^6VnKO92_D>4NUL`kR?4AoZeQocU7RW;7R]hC#oAnAHIknPP^NPNkS2"
    A$ = A$ + "]f201;S0]>21e5#X927APPcXK0[^PbHGD^\Y#_:5Ko=Aack[O^9D]UH<4\7V"
    A$ = A$ + "e^6WaPN7AQ>K1YbP#S3oH77h;PWYN0igC9oN:2Tm9TKi`4Gj?aQ7mW8?l01Q"
    A$ = A$ + "N9j326l0mF31]F20=FR0EVY[SihdaTP8i6d`h#`jHK#S9IXff4<dH?5SRo]4"
    A$ = A$ + "5?V=mm\>13e=VjE#S]d\bR]YEZNc9Q:CaQJFl41jMBW3KR`CVe#HJlEPUYn["
    A$ = A$ + ";^>>Zh?COO_D\WnofHT6WI?66;kO1o;n08NnO3FfAHXgV?U?fZ6^IHDdiQ^4"
    A$ = A$ + "=Nl^Hh<g4Zgb`DK3[laFUB]DoS1JlgFl3_;\:j=6=?[Q1YjM[laFe`=CDnQF"
    A$ = A$ + "5Ad;TGf=;3`7^EWoB^5TF7khDNO1clWK1FhNb^IZO^b=M]82_c]:j;lEXl;m"
    A$ = A$ + "3Eeb9iB<j3jK>`6^Eg9h:gZeY8l?kM;iVVJh0gZiEM[O9gZ]?n`=mNI[_Ed]"
    A$ = A$ + "12OEZ>JoS23ZlaFEb=S]6QifPA^6ohV^AXaPSFb=GaTjgTfko0:O\mo^m?jV"
    A$ = A$ + "YFRP0Wi>`ElOQb_L<8Xj4:O\EY8=O[>:GBC1PoIFUKMcgDgN3gd`9^I`gVkg"
    A$ = A$ + "h<g4WNEh>1U;Y^S31]m[laFU2U;A=iV5:GB`I^S\K6jUkL;4]6`#SM=Igdc7"
    A$ = A$ + "[1XeH0VKAVkNTKGWLSjcdiBiS]Z\K^CN38D?eWYU3fcUVCabUDOcQIS9I^Ib"
    A$ = A$ + "5giVXdl]a_9gjVka8g<?4E?7<OkeLkcB#S9KHH^c=YiK34oj#UE?LYK3VhF#"
    A$ = A$ + "XaAYjiPO3?YkaY\aTmcLc;giVdm_eGRO52fl1=V4EnH[JhFIgofa;hV:Nb=W"
    A$ = A$ + "nQ_Y_5>fHgQm<Ii2g:N_Y5Lk8a_]lcK^n0:O\EUkg>D<J]K7R\O?F5?fZ2^9"
    A$ = A$ + "M?>egB#4IQkSNRN3na=Jm=9g<C^5[XK>iTaT_VK7^PKLaJ05L[hHbS#cgdj<"
    A$ = A$ + "4dJ>Xb7KE1g4<jMC^YcB8U?fZDdjIC^Y^YP#O3QEnHkO1gDAi9[aJ4U?fZR^"
    A$ = A$ + "9U;aeTg72f303>RZlaFUR^C1]ek3FJ=4c=gB^ISLe>OiFTi^[\Kdm_a;^YRL"
    A$ = A$ + "c4iF`cLK^d=SK=4kih<ld?2>NW9QN;nEnH[RMc3de##df^V79F:?lNf7SMnY"
    A$ = A$ + "W7eb3_SQeLBXcQOd][;SX;U31cV7m4jkAkOdT:O\EQXYYQ#7kkdHX<G39nbl"
    A$ = A$ + "8hGW7WL^KQNlMI\egK<H[IO`PIG\gIIQJ>Zlk`PNG\oWXbX7J\k`#_IgdnKX"
    A$ = A$ + "fdf;4Ze5DIN4X]AAXa6]n_ER6XmhHQf3WEYgaihde<1U;>>=_>f6H=Q<BeG6"
    A$ = A$ + "Z]WPQla#i0J<L12E2EdeA=EZfV8M\nXmN<2<nFna>j>3LWj:dl\[RdOgcAP;"
    A$ = A$ + "W3AoVO7nFhNX_Po0jnH[PgnSCQ>gcHXcmW4k\[CSfgC6dfWT1KOgCQg][Y#W"
    A$ = A$ + "MU2MlQAAk_O<df7T0KKGCPM^oiXcmlXSmOFdFgc9c1V5]M`ITAjc5H[kKJd:"
    A$ = A$ + "MNJI_I:A77l\UXm3<?JM_cPVgMVBdJI\=Z]fgk\HkM=_<kKFde9n:fc]9ib["
    A$ = A$ + "1oOn3APEbQo6YgZn%%%0"
    btemp$ = ""
    FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
        IF INSTR(1, B$, "%") THEN
            FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
                IF F$ <> "%" THEN C$ = C$ + F$
            NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
            IF MID$(B$, j, 1) = "#" THEN
        MID$(B$, j) = "@": END IF: NEXT
        FOR t% = LEN(B$) TO 1 STEP -1
            B& = B& * 64 + ASC(MID$(B$, t%)) - 48
            NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
            X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
    NEXT: btemp$ = btemp$ + X$: NEXT
    btemp$ = _INFLATE$(btemp$)
    _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
    BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
FUNCTION BASIMAGE2& 'litesquare.bmp
    v& = _NEWIMAGE(55, 55, 32)
    DIM m AS _MEM: m = _MEMIMAGE(v&)
    A$ = ""
    A$ = A$ + "haIgIVnEKML67noQn]FgL\M>==e]=YYafhe#0<K6_`Z4B2]_;3J1QHCB816`"
    A$ = A$ + "\H0361X5f4K2#Ff6K2>>>>hhm]dDkSKJBj99f>MkoROmm>b83=]O2M>j8mQW"
    A$ = A$ + "c<cM^gilnLWi>cL_G9>^0TilL#Uk8`#;APb6V2J]_0<hH9H`nb#I]G46LNUH"
    A$ = A$ + "X[YGQ[?VQ6gO<Dij:#YcEHX`ab\D^S]NF[noO\ncU[=G?JKnZ<FkldCi[de:"
    A$ = A$ + "h4>GVBG6jM]4<eeEQD7QQDgQAifW7bKSRSfG2bK94L=je#XklL4Le_5cL[WS"
    A$ = A$ + "8Oao6cL_O0cLo_7cA<kmn>6QN`?P5NhcIi?oCoGKPiOd?b^VIO`Jl2<mMoN4"
    A$ = A$ + "jQ_<ja_o;AXko?X[m_oCPkhQN`?RiOl;#X7mL6_^MN=QN5ANl;aLgi_Q;lWn"
    A$ = A$ + "Wden24hjO3L5l6#IWQQXfF4UebR#T[PX1o[P1^d3ahOfCYdKQ`O1M^[n<VCS"
    A$ = A$ + "Le_TLmKH<aWm<<iZO52nioE6cNk_Uen[Qo?i?c>NXknMHZKneaBi>FP[m4Fn"
    A$ = A$ + "ecJ]K<^mGcHZKnE<2nioUH`E>`enB6Li7kj?1SmY?=:GkIHhEN2jilg7=>:="
    A$ = A$ + ">XeYPRf>7ZJPU`YVoFXS5^>lM]7Rf3]26iCN4>cbg33]bSAWQ^>l\dma#Gj1"
    A$ = A$ + "X_`gTU>bUO8joLg2NGnAKPNFHE<h5_;lAG7ge\FjP;M7dKhEQW;Ok=`#;OgO"
    A$ = A$ + ":GnN`cU^;[n1GjFaPkHL]1[MXlmOaK7U;L76M5j6XciF5^6OIDCoQQ^FG4Ek"
    A$ = A$ + "iS`YVk6`^oc3oOjS#;1oXTJLhoR`BO;09=>9DgfL`VW;0;m?3JMfUChafV5c"
    A$ = A$ + "m=;=Wb`#k9G0iYH8XjTC05=?2L=aB9lHKcRYC742Kh<#NCAH^9]9o#RccVBh"
    A$ = A$ + "Vnf3Pb[[78VF7;GINXn#_#DSmWBhV2GNPPjk3RZMFVKEd``TKW5e>d29lH;N"
    A$ = A$ + "hVdV64UKM:T_dQA5e?<e7>8=Wbl9lH;NhV<RGkf8#R3?YD^9\jIBYM[PGiVD"
    A$ = A$ + "kN#MNF<Q7KKFdeVO`WVWTc]S8e74GWG8cn#XQQ>G2?ff\HhDSQb\e=c]S:c?"
    A$ = A$ + "TFW?VK>lNQ4N\5?LSg[LkH:8_Zg?TkPfGBP;U`S]=;WXSa1oJ?m[M[1o#UC_"
    A$ = A$ + "`]oTOgZZc9P#ji=AFV67CYGXXQ0#MCnPKOG<Q7KKF<fmT#4]_4QVWRiVBb=="
    A$ = A$ + "^lC^Ul_W;^m:;VfoX0S1I^YZaAQFg1#;1^L2?fR7^9an0ajghLC7iV[ABnWW"
    A$ = A$ + "dHGCB[E?0Z`dDX#EnPJb=mTK>mTl_nFUdL9bXgGC\iYI^Y95c=idk18QF3X8"
    A$ = A$ + "enIS9CULCQ[QP<[cB^=:KNBMdlT]T2\60gJg:M?<c]2e<F<gJKdTo_54WKZJ"
    A$ = A$ + "N4fHbekFkSUhS]hQKZKa;ZPki=]S7c]>VHU4N\5?M[#eSWBe_I^WYI?_aifa"
    A$ = A$ + "Ea=Vd?c]FC1fGBM3^#\e0>RBJNb6m3]^lQCV2l>>[g]SZJ2VKJLk5=78iO=P"
    A$ = A$ + "eLSK<I1[c=gnCng?iJ^amnKi[JBXd>=V\IO`U_cW`S]=;ek9<kKMamN0iB^Y"
    A$ = A$ + "`1]WbVmRVl59Q7Ka;g4HJ2TSjYI^a]VPCo9okWLm^M8U1I^Y]Eo`Y_`9lH;N"
    A$ = A$ + "jFV:6WiVAJoc=U2iV\JW3I8O<X:5d=5YP^EgP;6c]\Fc]>8glVlkF]WMnX_o"
    A$ = A$ + "6ifQXWghLc<iVkD0gZ^_IoOjFR>^R7`m=lHOCQD#ghnG7LOkeeLCC:TKJKe7"
    A$ = A$ + "4DK?\iB>FUcA^50ediD9lh:NPJJOaUJ^CVK5B^9ajP`#CST`S[h1jJMD`[jC"
    A$ = A$ + "3IFWQiFIjk2EHYk4NL5?#YcQ8WJ3R]4TiF1bJ65Ya=<fBbOOGiDODfbKTmOL"
    A$ = A$ + ":ad2hmbC?nPR=1QEe6TJ]CXYYQ#U]?>=fM4HUF_`LGCRj7H1XVFgP;OMdaZV"
    A$ = A$ + "B]NjXHSXV^67FkL<DM7S63Km>5Z\S04nYf98<gm4`lY73VjNd=Pa^la`jI67"
    A$ = A$ + "Efi8dj_C#cUkU:?:Z\[QQ]1h:kSEfL_nA]m?>\ecHXa1227m?=<MB_POU]2Q"
    A$ = A$ + "TGY;`:>0oZYinSPb]M>L#N=POGVB#>2\PS:[NFO8OSMPlTE7:Wl]4m=C_7KW"
    A$ = A$ + "8O9eBSOM1Q6KUUbcPK`k4^#i4l=h4ldi0UYe>AS<4Hd=:DK3X#Me3nVX[cB;"
    A$ = A$ + "<4Hae6P_57Aa\3DXNK#PEWX4SeaP;OQ6ZQZg>[L5ej25CU5Ia9Z`Jc#V]fIa"
    A$ = A$ + "#jl>1BW_AL#1ESg<MA#^S`#\[8XDC3Pd>>EGIEQd;f0fcAeRd;e8fCnbANl<"
    A$ = A$ + "Q\:F?:#X5\glTP\;A;><o:IYiDZ>TCIJITMYJ#>UX4IG\2TE9bHT_0=h3;F:"
    A$ = A$ + "SLYlIFV<6IDZT=#jU8VA^RDQ?\Da8OaJ#FlUa8OaZA6UaEWbHi?R<mDM:#^E"
    A$ = A$ + "X37CQ5:e4fiQUQg>C1hgV[<\?Qe0EW<24OZ8djMc3nFk5_C>B`kU[D\Kb]39"
    A$ = A$ + "b6NoLTR\:Ul]#=8gb=QMWM58SRDS\;C?;=cRe4UBDAUEBWW2l15:=67RWJL`"
    A$ = A$ + "S;1kW8C:OFU7U<i[J3T1?5<hbOPRXa?2Yk]dmVokbLWcQh^OEVLFk\c24P3F"
    A$ = A$ + "R2\gRDQg>3NhWm^iQME\ADZ]1PQN_24eMH8_ScC[g=;MOi\HOih6ojoXN\SM"
    A$ = A$ + "Y6kH_J`KUf9`ffEEH[_OEh=gYAlKBc8fAJjafOGiHKoN5H[_S:l6o1Mh]f[E"
    A$ = A$ + "l[fG=Hkke6fjn\6UmG=fj1<75^l_ROiN<Q]#]c_HgE5S]O0KaHKk_6\UMK6o"
    A$ = A$ + "lMFE<fbjh=Xjff^YaNYECDfCe8]3g6kofXaiB#HMc3A^3So3_L>L%%%0"
    btemp$ = ""
    FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
        IF INSTR(1, B$, "%") THEN
            FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
                IF F$ <> "%" THEN C$ = C$ + F$
            NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
            IF MID$(B$, j, 1) = "#" THEN
        MID$(B$, j) = "@": END IF: NEXT
        FOR t% = LEN(B$) TO 1 STEP -1
            B& = B& * 64 + ASC(MID$(B$, t%)) - 48
            NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
            X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
    NEXT: btemp$ = btemp$ + X$: NEXT
    btemp$ = _INFLATE$(btemp$)
    _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
    BASIMAGE2& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
 
SUB ShowScore
    LINE (2, 2)-(_WIDTH - 2, 48), _RGB(64, 0, 0), BF
    PPRINT 313, 13, 20, _RGB(255, 255, 255), _RGB(64, 0, 0), ".::10x10::."
    PPRINT 625, 13, 20, _RGB(172, 114, 88), _RGB(64, 0, 0), "Hi:" + STR$(hiscore)
    PPRINT 35, 13, 20, _RGB(172, 114, 88), _RGB(64, 0, 0), "Score:" + STR$(score)
    _DISPLAY
END SUB
 
SUB PPRINT (x, y, size, clr&, trans&, text$)
    orig& = _DEST
    bit = 32: IF _PIXELSIZE(0) = 1 THEN bit = 256
    FOR t = 0 TO LEN(text$) - 1
        pprintimg& = _NEWIMAGE(16, 16, bit)
        _DEST pprintimg&
        CLS , trans&: COLOR clr&
        PRINT MID$(text$, t + 1, 1);
        _CLEARCOLOR _RGB(0, 0, 0), pprintimg&
        _DEST orig&
        x1 = x + (t * size): x2 = x1 + size
        y1 = y: y2 = y + size
        _PUTIMAGE (x1 - (size / 2), y1)-(x2, y2 + (size / 3)), pprintimg&
        _FREEIMAGE pprintimg&
    NEXT
END SUB
 
 

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: FellippeHeitor on January 05, 2021, 08:54:25 pm

Quote

Btw, does anyone know if cyberbit.ttf will be included in the official QB64 v1.5 release? It wasn't in the dev build.

It won't.

Title: Re: 10x10 Puzzle Game (Woody clone)
Post by: Dav on January 06, 2021, 01:36:46 pm

Ok. Thanks.

I removed the need for the external font file, and used the Pprint SUB I posted a while ago. I think this is the last of this program for a while. Getting burned out on it...

- Dav

Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Dav on January 03, 2021, 12:47:50 pm