Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Messages - Donald Foster

Pages: [1] 2 3 ... 5

Programs / Re: Laser Chess Computer Board Game in QB64

« on: February 25, 2022, 01:54:31 am »

Hello,

I originally wrote this on the Tandy 2000 computer in GW-BASIC in the late 80's. I didn't know this game was posted in Compute! and never saw the original source code since I was using TRS-80 computers and I bought 80 Micro magazine. I had a friend who had a Tandy 1000SX and he had a copy of the game on disk. So' I wrote my own version for my computer.

If you have any question on game play or controls let me know.

Donald

Programs / Hex Board Game

« on: December 15, 2021, 10:16:48 pm »

Hello All,

Hex is a 2 player abstract strategy board game. The goal is to be the first player to make a continuous connection of pieces that connect the ends of the board. Player 1, the blue pieces, is trying to connect the left side of the board while player 2, the red pieces, is trying to connect the top of the board to the bottom. you can use ESC to alternate between window and full screen.

Hope you enjoy playing

Donald

Code: QB64: [Select]

_Title "Connection Board Game - Programmed by Donald L. Foster Jr. 2020-2021"
 
Screen _NewImage(1095, 735, 256)
 
_PaletteColor 1, _RGB32(0, 142, 223) '   Medium Blue
_PaletteColor 2, _RGB32(235, 30, 54) '   Medium Red
_PaletteColor 3, _RGB32(215, 215, 215) ' Grey
_PaletteColor 4, _RGB32(0, 167, 248) '   Light Blue
_PaletteColor 5, _RGB32(0, 117, 198) '   Dark Blue
_PaletteColor 6, _RGB32(255, 55, 74) '   Light Red
_PaletteColor 7, _RGB32(205, 5, 24) '    Dark Red
_PaletteColor 9, _RGB32(1, 1, 1)
 
Dim As Integer Player, Opponent, Row, Column, Progress, Counter
Dim As Integer Z, Y, X, W, V, X1, X2, X3
Dim As Integer BoardX(13, 13), BoardY(13, 13), BoardPlayer(13, 13), Checked(13, 13)
Dim As Integer PlayerColor(3), StepRow(30), StepColumn(30)
 
Player = 1: Opponent = 2: Counter = 1: StartingX = 456: StartingY = 67
PlayerColor(1) = 1: PlayerColor(2) = 2
 
BoardHex$ = "C0TA0BL33D19TA60D38TA120D38TA180D38TA240D38TA300D38TA0D19"
 
Cls , 15
 
' Draw Game Board
PSet (43, 74), 0: Draw "TA0D37TA60D36TA0D37TA60D36TA0D37TA60D35TA0D37TA60D36TA0D37TA60D36TA0D37TA60D36TA0D37TA60D36TA0D37TA60D35TA0D37TA60D36TA0D37TA60D36TA0D38"
Draw "TA60D37TA120D37TA60D36TA120D36TA60D36TA120D36TA60D37TA120D37TA60D36TA120D36TA60D36TA120D36TA60D37TA120D37TA60D36TA120D36TA60D37TA120D37TA60D36TA120D36TA60D36TA120D37"
Draw "TA0U37TA240D36TA0U37TA240D35TA0U36TA240D36TA0U37TA240D36TA0U37TA240D36TA0U37TA240D36TA0U37TA240D37TA0U37TA240D36TA0U37TA240D36TA0U37TA240D36TA0U39"
Draw "TA240D36TA300D36TA240D36TA300D36TA240D36TA300D36TA240D36TA300D37TA240D37TA300D36TA240D36TA300D36TA240D37TA300D37TA240D36TA300D36TA240D36TA300D37TA240D37TA300D36TA240D36TA300D37"
Draw "TA240D20TA330D30TA29.5D699TA150ND30TA0R699TA330U30TA240ND28TA330U28TA29.5U699TA150NU30TA0L699TA330D30TA0BD10P1,0BE20P2,0BR695P1,0BD630P2,0"
Paint (200, 100), 9, 0
X = 92: Increase = 0: Indent = 0
For Z = 1 To 11
    Starting = 75
    For Y = 1 To 11
        PSet (Starting + Indent + Increase, X), 15: Draw "C0TA0BL31BU18D36TA60D36TA120D36TA180D36TA240D36TA300D36BR10P3,0"
        '   CIRCLE (Starting + Indent + Increase, X), 28, 0
        BoardX(Z, Y) = Starting + Indent + Increase: BoardY(Z, Y) = X
        If Y = 11 Then Indent = Indent + 31: Increase = 0 Else Increase = Increase + 63
    Next
    X = X + 55
Next
 
StartGame:
' Draw Player Indicator
Color 0, 15: Locate 3, 97: Print "H  E  X    B  O  A  R  D    G  A  M  E";
PSet (943, 100), 15: Draw BoardHex$: Paint (943, 100), PlayerColor(Player), 0
X1 = 943: X2 = 100: X3 = Player: GoSub DrawPiece
Locate 10, 115: Print "Player"; Player;
 
Locate 44, 5: Print "Choose Location to Place Your Piece";
 
GetLocation:
Do While _MouseInput
    For Z = 1 To 11
        For Y = 1 To 11
            If _MouseX > BoardX(Z, Y) - 30 And _MouseX < BoardX(Z, Y) + 30 And _MouseY > BoardY(Z, Y) - 30 And _MouseY < BoardY(Z, Y) + 30 Then Selected = 1 Else Selected = 0
            If _MouseButton(1) = -1 And BoardPlayer(Z, Y) = 0 And Selected = 1 Then
                GoSub ReleaseButton: BoardPlayer(Z, Y) = Player: X1 = BoardX(Z, Y): X2 = BoardY(Z, Y): X3 = Player: GoSub DrawPiece: Row = Z: Column = Y: GoTo CheckForWinner
            End If
        Next
    Next
Loop
A$ = InKey$: If A$ <> "" Then If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
GoTo GetLocation
 
CheckForWinner:
For V = 1 To 11
    For Z = 1 To 11: For Y = 1 To 11: Checked(Z, Y) = 0: Next: Next
 
    If Player = 1 Then Row = V: Column = 1 Else Row = 1: Column = V
 
    If BoardPlayer(Row, Column) = Player Then
        Progress = 1: StepRow(Progress) = Row: StepColumn(Progress) = Column: Checked(Row, Column) = 1
 
        CheckWinner: If (Player = 1 And Column = 11) Or (Player = 2 And Row = 11) GoTo Winner
 
        ' Check Right
        If Column + 1 <= 11 Then
            If BoardPlayer(Row, Column + 1) = Player And Checked(Row, Column + 1) = 0 Then
                Progress = Progress + 1: Column = Column + 1: StepRow(Progress) = Row: StepColumn(Progress) = Column: Checked(Row, Column) = 1: GoTo CheckWinner
            End If
        End If
 
        ' Check Down
        If Row + 1 <= 11 Then
            If BoardPlayer(Row + 1, Column) = Player And Checked(Row + 1, Column) = 0 Then
                Progress = Progress + 1: Row = Row + 1: StepRow(Progress) = Row: StepColumn(Progress) = Column: Checked(Row, Column) = 1: GoTo CheckWinner
            End If
        End If
 
        ' Check Left
        If Column - 1 >= 1 Then
            If BoardPlayer(Row, Column - 1) = Player And Checked(Row, Column - 1) = 0 Then
                Progress = Progress + 1: Column = Column - 1: StepRow(Progress) = Row: StepColumn(Progress) = Column: Checked(Row, Column) = 1: GoTo CheckWinner
            End If
        End If
 
        ' Check Up
        If Row - 1 >= 1 Then
            If BoardPlayer(Row - 1, Column) = Player And Checked(Row - 1, Column) = 0 Then
                Progress = Progress + 1: Row = Row - 1: StepRow(Progress) = Row: StepColumn(Progress) = Column: Checked(Row, Column) = 1: GoTo CheckWinner
            End If
        End If
 
        ' Check Down Left
        If Row + 1 <= 11 And Column - 1 >= 1 Then
            If BoardPlayer(Row + 1, Column - 1) = Player And Checked(Row + 1, Column - 1) = 0 Then
                Progress = Progress + 1: Row = Row + 1: Column = Column - 1: StepRow(Progress) = Row: StepColumn(Progress) = Column: Checked(Row, Column) = 1: GoTo CheckWinner
            End If
        End If
 
        ' Check Up Right
        If Row - 1 >= 1 And Column + 1 <= 11 Then
            If BoardPlayer(Row - 1, Column + 1) = Player And Checked(Row - 1, Column + 1) = 0 Then
                Progress = Progress + 1: Row = Row - 1: Column = Column + 1: StepRow(Progress) = Row: StepColumn(Progress) = Column: Checked(Row, Column) = 1: GoTo CheckWinner
            End If
        End If
    End If
 
    If Progress > 1 Then Progress = Progress - 1: GoTo CheckWinner
 
Next
 
Swap Player, Opponent: GoTo StartGame
 
ReleaseButton:
Do While _MouseInput
    If _MouseButton(1) = 0 Then Return
Loop
 
GoTo ReleaseButton
 
 
DrawPiece:
If X3 = 1 Then W = 1 Else W = 2
Paint (X1, X2), W, 0
Return
 
Winner:
PSet (BoardX(StepRow(1), StepColumn(1)), BoardY(StepRow(1), StepColumn(1))), 15
For Z = 2 To Progress: Line -(BoardX(StepRow(Z), StepColumn(Z)), BoardY(StepRow(Z), StepColumn(Z))), 15: Next
 
If Player = 1 Then
    PSet (BoardX(StepRow(1), StepColumn(1)), BoardY(StepRow(1), StepColumn(1))), 15: Draw "TA300D35"
    PSet (BoardX(StepRow(Progress), StepColumn(Progress)), BoardY(StepRow(Progress), StepColumn(Progress))), 15: Draw "TA120D35"
Else
    PSet (BoardX(StepRow(1), StepColumn(1)), BoardY(StepRow(1), StepColumn(1))), 15: Draw "TA0U35"
    PSet (BoardX(StepRow(Progress), StepColumn(Progress)), BoardY(StepRow(Progress), StepColumn(Progress))), 15: Draw "TA0D35"
End If
 
Locate 42, 5: Print "     Player"; Player; "is the Winner!";
Locate 44, 5: Print "     Play Another Game?  Y or N      ";
 
GetYorN:
A$ = UCase$(InKey$): If A$ = "" GoTo GetYorN
If A$ = "Y" Then Run
If A$ = "N" Then System
If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
GoTo GetYorN
 
 

Programs / Lucky Numbers with Solo Play

« on: November 28, 2021, 12:43:05 pm »

Hello Everyone,
This is the completed version of Lucky Numbers board game including Solo Play. Solo Play is a puzzle game the challenges the player to try to complete 40 levels of play.

During the making of the Solo Play edition, my hard drive on my laptop crashed and won't load Windows. This was the only location where I had Solo Play with no other backups, only a few hand written notes. Unable to recover any data at this time, I simply downloaded the 2 to 4 player version from here and started over.

The Solo Play also includes some updates to the original 2 to 4 player version:
1 - I change the deck card back to a color one.
2 - When there are no cards on the table, the game automatically draws a card from the deck for the player.
3 - When choosing a table card, the player doesn't need to click in the large table cursor then click on the card, they only need to click on the card. A player can click on that card again to un-select it or even click on a different table card.

The Solo Play version as mentioned is a puzzle game with 40 levels. A player must complete the current level or highest level completed before attempting a harder level. You see, a player may play any level lower up yo their current level. There a can be 8 different players playing at their own level on a single device. They are identified by their name they enter at the start of their game.

Each level has a predetermined number of moves to complete the puzzle from 2 to 8. The puzzle starts off with the 16 cards already arranged on the board. However, a few of the cards are not in their correct position on the board. The player swaps pairs of cards at a time, a predetermined number of moves to complete the puzzle. If the puzzle was not successfully complete, they are required to restart that level. However, if they did complete the puzzle, they advance to the next puzzle. As players complete levels, their game is saved to HD.

When the game is first played on a device, there are no current players stored on HD and the player is asked to enter their name. That player starts at puzzle level 1 and must complete that level before going to level 2. After that first time the game is played, the game loads the current players and you choose your name. If you are a new player, you can select NEW PLAYER and the game will ask you to enter your name and you will start at level 1.

Cards can only be swapped next to each other (side by side or top and bottom) or at opposite ends of the board on the same row or column.

At any time during the play of a level, a player my choose to restart that level, choose a different level, choose a different player, quit the game or play solution.

If you choose to play solution, the game shows you all of the moves to complete the puzzle. Most puzzle games includes the solution to each puzzle, however, I could find one for this game. I included the first 8 levels in this game, but unable to complete level 9. If anyone plays this and able to complete more levels and wants to record the moves, please feel free to post the solutions.

Hope you enjoy playing. Donald

Lucky Numbers with Solo Play.bas

Solo Puzzle Boards.pdf

40-lucky-numbers-rulebook.pdf

Lucky Numbers Rules.pdf

QB64 Discussion / Re: Do I need to need a directory path for creating a file?

« on: October 28, 2021, 03:40:03 pm »

Thank you Everyone,

I used a sequential file along with _FileExits and it works great so far, but I far from done with the game.
I am very happy with the progress. Actually, it's been over 30 years since I created files.
By the way, bplus, none of game use image or sound files. All of my games are hand drawn using graphics statements.

QB64 Discussion / Re: Do I need to need a directory path for creating a file?

« on: October 27, 2021, 06:57:37 pm »

Thanks for the advice. I never made an RA file, but I'll look into it.

thanks, Donald

QB64 Discussion / Do I need to need a directory path for creating a file?

« on: October 27, 2021, 05:18:08 pm »

Hello Everyone,

It's been over 20 years since I created any sequential or random access files and I didn't have to provide directory path. Is there a preferred directory I should use for storing player game information. I'm planning on creating sequential for player info for my solo version of Lucky Numbers. I'm thinking of using a max. of 8 player's names and the level their currently on that way different household members may be sharing a computer, they can save and load their game by their name similar to DOOM where the unused spaces will display EMPTY. Or am I going down the wrong path and is there a better method?

Thanks, Donald

Programs / Re: Lucky Numbers Board Game

« on: October 25, 2021, 10:54:47 pm »

Hello Everyone,
I had to fix a few bugs in the Michael's Version. I had a problem with the game displaying the correct card color and fixed it but forgot to make the changes in Michael's Version. Also, the cursor around the table cards kept lingering even though there were no cards on the table. So' the cursor is fixed. I replaced the Lucky Numbers.bas file in the original post. I have also included the code here also:

Code: QB64: [Select]

_Title "Lucky Numbers - Coded by Donald L. Foster Jr."
 
Screen _NewImage(1035, 735, 256)
 
Randomize Timer
 
_PaletteColor 1, _RGB32(0, 0, 90) '      Blue Playing Board
_PaletteColor 2, _RGB32(0, 155, 155) '   Cyan Board Spacer
_PaletteColor 3, _RGB32(235, 195, 0) '   Gold Card
_PaletteColor 4, _RGB32(50, 185, 30) '   Green Card
_PaletteColor 5, _RGB32(32, 110, 170) '  Blue Card
_PaletteColor 6, _RGB32(138, 43, 226) '  Purple Card
 
Dim R As Integer
Dim S As Integer
Dim T As Integer
Dim U As Integer
Dim V As Integer
Dim W As Integer
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
 
Dim X1 As Integer
Dim X2 As Integer
Dim X3 As Integer
Dim X4 As Integer
 
Dim Player As Integer
Dim Players As Integer
Dim Row As Integer
Dim Column As Integer
Dim Winner As Integer
Dim Card As Integer
Dim CardColor As Integer
Dim Board As Integer
Dim Variation As Integer
Dim DeckCards As Integer
Dim TableCards As Integer
Dim PlayCard As Integer
Dim PlayColor As Integer
Dim OldCard As Integer
Dim OldColor As Integer
Dim LowCard As Integer
Dim Occupied As Integer
Dim CanPlay As Integer
Dim DrawPile As Integer
Dim Table As Integer
Dim Position As Integer
Dim Routine As Integer
 
Dim DeckColor(80) As Integer
Dim DeckCard(80) As Integer
Dim CardColor(5) As Integer
Dim Placed(80) As Integer
Dim BoardCenterX(5) As Integer
Dim BoardCenterY(5) As Integer
Dim TableCard(12) As Integer
Dim TableColor(12) As Integer
Dim TableX(12) As Integer
Dim TableY(12) As Integer
 
Dim HoldCard(4, 4) As Integer
Dim HoldColor(4, 4) As Integer
Dim Sorted(4, 4) As Integer
Dim BoardX(5, 4, 4) As Integer
Dim BoardY(5, 4, 4) As Integer
Dim BoardCard(5, 4, 4) As Integer
Dim BoardColor(5, 4, 4) As Integer
 
CardColor(1) = 3: CardColor(2) = 4: CardColor(3) = 5: CardColor(4) = 6
 
fontpath$ = Environ$("SYSTEMROOT") + "\fonts\Arialbd.ttf"
fontpath1$ = Environ$("SYSTEMROOT") + "\fonts\Arial.ttf"
 
Color 2, 0: font& = _LoadFont(fontpath$, 80): _Font font&
Locate 3, 295: Print "L  U  C  K  Y";
Locate 5, 175: Print "N  U  M  B  E  R  S";
 
Color 15, 0: font& = _LoadFont(fontpath$, 30): _Font font&
Locate 17, 315: Print "How Many Players?  ( 1 to 4 )";
 
GetPlayers:
A$ = InKey$: If A$ = "" GoTo GetPlayers
If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
If Val(A$) < 1 Or Val(A$) > 4 GoTo GetPlayers
Players = Val(A$)
 
' Setup Deck of Cards
DeckCards = Players * 20
For Z = 1 To DeckCards: Placed(Z) = 0: Next
For Z = 1 To 20
    For Y = 1 To Players
        Placed: X = Int(Rnd * DeckCards) + 1: If Placed(X) = 0 Then Placed(X) = 1: DeckCard(X) = Z: DeckColor(X) = Y Else GoTo Placed
    Next
Next
 
Cls
 
' Get Board X, Y Positions
If Players = 4 Then
 
    X = 186: Board = 1
    For Z = 1 To 2
        W = 186
        For Y = 1 To 2
            U = X - 122
            For T = 1 To 4
                V = W - 122
                For S = 1 To 4
                    BoardX(Board, T, S) = V: BoardY(Board, T, S) = U
                    V = V + 81
                Next
                U = U + 81
            Next
            BoardCenterX(Board) = W: BoardCenterY(Board) = X
            Board = Board + 1
            W = W + 363
        Next
        X = X + 363
    Next
 
ElseIf Players = 3 Then
 
    X = 186: Board = 1
    For Z = 1 To 2
        If Z = 1 Then R = 2: W = 186 Else R = 1: W = 367
        For Y = 1 To R
            U = X - 122
            For T = 1 To 4
                V = W - 122
                For S = 1 To 4
                    BoardX(Board, T, S) = V: BoardY(Board, T, S) = U
                    V = V + 81
                Next
                U = U + 81
            Next
            BoardCenterX(Board) = W: BoardCenterY(Board) = X
            Board = Board + 1
            W = W + 363
        Next
        X = X + 363
    Next
 
Else
 
    X = 186: W = 186: Board = 1
    For Z = 1 To 2
        U = X - 122
        For T = 1 To 4
            V = W - 122
            For S = 1 To 4
                BoardX(Board, T, S) = V: BoardY(Board, T, S) = U
                V = V + 81
            Next
            U = U + 81
        Next
        BoardCenterX(Board) = W: BoardCenterY(Board) = X
        Board = Board + 1
        X = X + 363: W = W + 363
    Next
 
End If
 
' Draw Board
For Z = 1 To Players
    V = BoardCenterX(Z): U = BoardCenterY(Z)
    Line (V - 175, U - 175)-(V + 175, U + 175), 1, BF
    For Y = 1 To 4
        For X = 1 To 4
            X1 = BoardX(Z, Y, X): X2 = BoardY(Z, Y, X): X3 = 0: X4 = 0: DrawCard X1, X2, X3, X4
        Next
    Next
Next
 
' Setup Table Locations
X = 1: V = 360
For Z = 1 To 4
    U = 800
    For Y = 1 To 3
        TableX(X) = U: TableY(X) = V
        X = X + 1: U = U + 81
    Next
    V = V + 81
Next
 
Color 2, 0: font& = _LoadFont(fontpath$, 25): _Font font&
_PrintString (812, 10), "L  U  C  K  Y"
_PrintString (774, 35), "N  U  M  B  E  R  S"
 
Color 15, 0: font& = _LoadFont(fontpath$, 16): _Font font&
Locate 45, 760: Print "Use Michael's Variation?  Y or N";
 
GetVariation:
A$ = UCase$(InKey$): If A$ = "" GoTo GetVariation
If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
If A$ = "Y" Then Variation = 1 Else If A$ = "N" Then Variation = 0 Else GoTo GetVariation
 
' Add Starting Cursors for Michael's Variation
If Variation = 1 Then
 
    For Z = 1 To Players
        For R = 1 To 4
            Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
            Locate 45, 750: Print "   Place Starting Card on Your Board   ";
 
            V = BoardCenterX(Z): U = BoardCenterY(Z)
            Line (V - 176, U - 176)-(V + 176, U + 176), 15, B
 
            For Y = 1 To 4
                V = BoardX(Z, Y, Y): U = BoardY(Z, Y, Y)
                If BoardCard(Z, Y, Y) = 0 Then
                    Line (V - 39, U - 39)-(V + 39, U + 39), 15, B
                Else
                    Line (V - 39, U - 39)-(V + 39, U + 39), 1, B
                End If
            Next
 
            X1 = 881: X2 = 110: X3 = Z: X4 = CardColor(Z): DrawCard X1, X2, X3, X4
            Color 15, 0: font& = _LoadFont(fontpath$, 25): _Font font&
            _PrintString (833, 155), "Player " + Str$(Z)
 
            Card = DeckCard(DeckCards): CardColor = DeckColor(DeckCards): DeckCards = DeckCards - 1
            X1 = 881: X2 = 350: X3 = Card: X4 = CardColor(CardColor): DrawCard X1, X2, X3, X4
 
            PlaceStartingCard:
            Do While _MouseInput
                For Y = 1 To 4
                    For X = 1 To 4
                        If BoardCard(Z, Y, X) = 0 And ((Y = 1 And X = 1) Or (Y = 2 And X = 2) Or (Y = 3 And X = 3) Or (Y = 4 And X = 4)) Then
                            If _MouseX > BoardX(Z, Y, X) - 40 And _MouseX < BoardX(Z, Y, X) + 40 And _MouseY > BoardY(Z, Y, X) - 40 And _MouseY < BoardY(Z, Y, X) + 40 And _MouseButton(1) = -1 Then
                                GoSub ReleaseButton: Line (841, 310)-(921, 390), 0, BF
                                X1 = BoardX(Z, Y, X): X2 = BoardY(Z, Y, X): X3 = Card: X4 = CardColor(CardColor): DrawCard X1, X2, X3, X4
                                Line (BoardX(Z, Y, X) - 39, BoardY(Z, Y, X) - 39)-(BoardX(Z, Y, X) + 39, BoardY(Z, Y, X) + 39), 1, B
                                Line (BoardCenterX(Z) - 176, BoardCenterY(Z) - 176)-(BoardCenterX(Z) + 176, BoardCenterY(Z) + 176), 0, B
                                BoardCard(Z, Y, X) = Card: BoardColor(Z, Y, X) = CardColor: GoTo EndPlaceCard
                            End If
                        End If
                    Next
                Next
            Loop
            A$ = InKey$: If A$ <> "" Then If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
            GoTo PlaceStartingCard
 
            EndPlaceCard:
        Next
    Next
 
Else
 
    ' Get Hold Cards
    For Z = 1 To 4
        For Y = 1 To Players
            HoldCard(Y, Z) = DeckCard(DeckCards): HoldColor(Y, Z) = DeckColor(DeckCards): DeckCards = DeckCards - 1
        Next
    Next
 
    ' Sort Hold Cards
    For Z = 1 To Players
        For Y = 1 To 4
            LowCard = 100
            For X = 1 To 4
                If HoldCard(Z, X) < LowCard And Sorted(Z, X) = 0 Then LowCard = HoldCard(Z, X): CardColor = HoldColor(Z, X): T = X
            Next
            Sorted(Z, T) = 1: X1 = BoardX(Z, Y, Y): X2 = BoardY(Z, Y, Y): X3 = LowCard: X4 = CardColor(CardColor): DrawCard X1, X2, X3, X4
            BoardCard(Z, Y, Y) = LowCard: BoardColor(Z, Y, Y) = CardColor
        Next
    Next
 
End If
 
Player = 1: Winner = 0
 
StartGame:
DrawPile = 0: Table = 0: Occupied = 0
 
' Draw Player Cursor
Line (BoardCenterX(Player) - 176, BoardCenterY(Player) - 176)-(BoardCenterX(Player) + 176, BoardCenterY(Player) + 176), 15, B
Line (BoardCenterX(Player) - 177, BoardCenterY(Player) - 177)-(BoardCenterX(Player) + 177, BoardCenterY(Player) + 177), 15, B
 
X1 = 881: X2 = 110: X3 = Player: X4 = CardColor(Player): DrawCard X1, X2, X3, X4
Color 15, 0: font& = _LoadFont(fontpath$, 25): _Font font&
_PrintString (833, 155), "Player " + Str$(Player)
 
' Display Deck
X1 = 821: X2 = 240: X3 = 100: X4 = 0: DrawCard X1, X2, X3, X4: Line (777, 196)-(865, 284), 15, B
Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
Locate 43, 750: Print "       Draw a Card From the Deck       ";
 
'Draw Cursor Around Table If Not Empty
If TableCards > 0 Then
    Color 15, 0: Locate 45, 750: Print "     Or Play a Card From the Table       ";
    Line (756, 316)-(1006, 646), 15, B
Else
    Locate 45, 750: Print String$(70, 32);: Line (756, 316)-(1006, 646), 0, B
End If
 
ChooseAPlay:
Do While _MouseInput
 
    ' Draw a Card From the Deck
    If _MouseX > 777 And _MouseX < 865 And _MouseY > 196 And _MouseY < 284 And _MouseButton(1) = -1 Then
        GoSub ReleaseButton: Line (777, 196)-(865, 284), 0, B: Line (756, 316)-(1006, 646), 15, B
        PlayCard = DeckCard(DeckCards): PlayColor = DeckColor(DeckCards): DeckCards = DeckCards - 1
        X1 = 941: X2 = 240: X3 = PlayCard: X4 = CardColor(PlayColor): DrawCard X1, X2, X3, X4: GoTo PlayDeckCard
    End If
 
    ' Choose Table Cards
    If _MouseX > 756 And _MouseX < 1006 And _MouseY > 316 And _MouseY < 646 And _MouseButton(1) = -1 And TableCards > 0 Then
        GoSub ReleaseButton: GoTo ChooseTableCard
    End If
 
Loop
A$ = InKey$: If A$ <> "" Then If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
GoTo ChooseAPlay
 
PlayDeckCard:
Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
Locate 43, 750: Print "         Play Card on Your Board         ";
Locate 45, 750: Print "        Or Move Card to the Table        ";
 
ChoosePlay:
Do While _MouseInput
 
    ' Place Card on Table
    If _MouseX > 756 And _MouseX < 1006 And _MouseY > 316 And _MouseY < 646 And _MouseButton(1) = -1 Then
        GoSub ReleaseButton: Line (897, 196)-(985, 284), 0, BF: Line (756, 316)-(1006, 646), 0, B:
        TableCards = TableCards + 1: TableCard(TableCards) = PlayCard: TableColor(TableCards) = PlayColor:
        X1 = TableX(TableCards): X2 = TableY(TableCards): X3 = PlayCard: X4 = CardColor(PlayColor): DrawCard X1, X2, X3, X4: GoTo EndTurn
    End If
 
    ' Place Card on Board
    For Z = 1 To 4
        For Y = 1 To 4
            If _MouseX > BoardX(Player, Z, Y) - 35 And _MouseX < BoardX(Player, Z, Y) + 35 And _MouseY > BoardY(Player, Z, Y) - 35 And _MouseY < BoardY(Player, Z, Y) + 35 And _MouseButton(1) = -1 Then
                GoSub ReleaseButton: Row = Z: Column = Y: DrawPile = 1: Table = 0: Routine = 1: GoTo CheckBoardPosition
            End If
        Next
    Next
 
Loop
A$ = InKey$: If A$ <> "" Then If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
GoTo ChoosePlay
 
 
ChooseTableCard:
Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
Locate 43, 750: Print "       Choose a Table Card to Play       ";
Locate 45, 750: Print "      Or Draw a Card From the Deck       ";
 
GetTableCard:
Do While _MouseInput
 
    ' Choose a Card From the Table
    For Z = 1 To TableCards
        If _MouseX > TableX(Z) - 35 And _MouseX < TableX(Z) + 35 And _MouseY > TableY(Z) - 35 And _MouseY < TableY(Z) + 35 And _MouseButton(1) = -1 Then
            GoSub ReleaseButton: Line (756, 316)-(1006, 646), 0, B: Line (777, 196)-(865, 284), 0, B
            Line (TableX(Z) - 41, TableY(Z) - 41)-(TableX(Z) + 41, TableY(Z) + 41), 15, B
            PlayCard = TableCard(Z): PlayColor = TableColor(Z): Position = Z: Table = 1: DrawPile = 0: GoTo ChooseBoardPosition
        End If
    Next
 
    ' Choose Draw a Card From the Deck
    If _MouseX > 777 And _MouseX < 865 And _MouseY > 196 And _MouseY < 284 And _MouseButton(1) = -1 Then
        GoSub ReleaseButton: Line (777, 196)-(865, 284), 0, B: Line (756, 316)-(1006, 646), 15, B
        PlayCard = DeckCard(DeckCards): PlayColor = DeckColor(DeckCards): DeckCards = DeckCards - 1
        X1 = 941: X2 = 240: X3 = PlayCard: X4 = CardColor(PlayColor): DrawCard X1, X2, X3, X4: GoTo PlayDeckCard
    End If
 
Loop
A$ = InKey$: If A$ <> "" Then If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
GoTo GetTableCard
 
ChooseBoardPosition:
Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
Locate 43, 750: Print "         Play Card on Your Board         ";
If TableCards > 0 Then Locate 45, 750: Print "          Or a Choose Table Card         ";
 
GetBoardPosition:
Do While _MouseInput
 
    ' Reselect Card on Table
    If _MouseX > TableX(Position) - 41 And _MouseX < TableX(Position) + 41 And _MouseY > TableY(Position) - 41 And _MouseY < TableY(Position) + 41 And _MouseButton(1) = -1 Then
        GoSub ReleaseButton: Line (TableX(Position) - 41, TableY(Position) - 41)-(TableX(Position) + 41, TableY(Position) + 41), 0, B
        Line (777, 196)-(865, 284), 15, B: Line (756, 316)-(1006, 646), 15, B: GoTo ChooseTableCard
    End If
 
    ' Place Card on Board
    For Z = 1 To 4
        For Y = 1 To 4
            If _MouseX > BoardX(Player, Z, Y) - 35 And _MouseX < BoardX(Player, Z, Y) + 35 And _MouseY > BoardY(Player, Z, Y) - 35 And _MouseY < BoardY(Player, Z, Y) + 35 And _MouseButton(1) = -1 Then
                GoSub ReleaseButton: Row = Z: Column = Y:: Routine = 2: GoTo CheckBoardPosition
            End If
        Next
    Next
 
Loop
A$ = InKey$: If A$ <> "" Then If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
GoTo GetBoardPosition
 
 
CheckBoardPosition:
If BoardCard(Player, Row, Column) > 0 Then Occupied = 1: OldCard = BoardCard(Player, Row, Column): OldColor = BoardColor(Player, Row, Column)
 
X = 1: X1 = 0: X2 = 0: X3 = 0: X4 = 0
 
Up: If Row - X >= 1 Then
    If BoardCard(Player, Row - X, Column) = 0 Then X = X + 1: GoTo Up Else If PlayCard > BoardCard(Player, Row - X, Column) Then X1 = 1
Else
    X1 = 1
End If
 
X = 1
Dn: If Row + X <= 4 Then
    If BoardCard(Player, Row + X, Column) = 0 Then X = X + 1: GoTo Dn Else If PlayCard < BoardCard(Player, Row + X, Column) Then X2 = 1
Else
    X2 = 1
End If
 
X = 1
Lt: If Column - X >= 1 Then
    If BoardCard(Player, Row, Column - X) = 0 Then X = X + 1: GoTo Lt Else If PlayCard > BoardCard(Player, Row, Column - X) Then X3 = 1
Else
    X3 = 1
End If
 
X = 1
Rt: If Column + X <= 4 Then
    If BoardCard(Player, Row, Column + X) = 0 Then X = X + 1: GoTo Rt Else If PlayCard < BoardCard(Player, Row, Column + X) Then X4 = 1
Else
    X4 = 1
End If
 
CanPlay = 0
If X1 = 1 And X2 = 1 And X3 = 1 And X4 = 1 Then
    CanPlay = 1
Else
    If Routine = 1 Then GoTo ChoosePlay
    If Routine = 2 Then GoTo GetBoardPosition
End If
 
' Place Card on Board
If CanPlay = 1 Then
 
    ' Move Card to the Board
    BoardCard(Player, Row, Column) = PlayCard: BoardColor(Player, Row, Column) = PlayColor
    X1 = BoardX(Player, Row, Column): X2 = BoardY(Player, Row, Column): X3 = PlayCard: X4 = CardColor(PlayColor): DrawCard X1, X2, X3, X4
 
    ' Move Card from Draw Pile
    If DrawPile = 1 Then Line (897, 196)-(985, 284), 0, BF
 
    ' Move Card from Table
    If Table = 1 Then
 
        Line (TableX(Position) - 41, TableY(Position) - 41)-(TableX(Position) + 41, TableY(Position) + 41), 0, BF
 
        While Position < TableCards
 
            TableCard(Position) = TableCard(Position + 1): TableColor(Position) = TableColor(Position + 1)
            Line (TableX(Position + 1) - 41, TableY(Position + 1) - 41)-(TableX(Position + 1) + 41, TableY(Position + 1) + 41), 0, BF
            X1 = TableX(Position): X2 = TableY(Position): X3 = TableCard(Position): X4 = CardColor(TableColor(Position)): DrawCard X1, X2, X3, X4
            Position = Position + 1
 
        Wend
 
        TableCards = TableCards - 1
 
    End If
 
    ' Move Old Card to Table
    If Occupied = 1 Then
        TableCards = TableCards + 1: TableCard(TableCards) = OldCard: TableColor(TableCards) = OldColor
        X1 = TableX(TableCards): X2 = TableY(TableCards): X3 = OldCard: X4 = CardColor(OldColor): DrawCard X1, X2, X3, X4
    End If
 
End If
 
EndTurn:
 
' Check for Winner
X = 0
For Z = 1 To 4
    For Y = 1 To 4
        If BoardCard(Player, Z, Y) > 0 Then X = X + 1
    Next
Next
 
If X = 16 Then
    Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
    Locate 43, 750: Print "            Player"; Player; "is the Winner!          ";
    Locate 45, 750: Print "       Play Another Game?  Y or N        ";
 
    GetYorN: A$ = UCase$(InKey$): If A$ = "" GoTo GetYorN
    If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
    If A$ = "Y" Then Run
    If A$ = "N" Then System
    GoTo GetYorN
End If
 
Line (BoardCenterX(Player) - 176, BoardCenterY(Player) - 176)-(BoardCenterX(Player) + 176, BoardCenterY(Player) + 176), 0, B
Line (BoardCenterX(Player) - 177, BoardCenterY(Player) - 177)-(BoardCenterX(Player) + 177, BoardCenterY(Player) + 177), 0, B
 
If Player = Players Then Player = 1 Else Player = Player + 1
GoTo StartGame
 
ReleaseButton:
Do While _MouseInput
    If _MouseButton(1) = 0 Then Return
Loop
GoTo ReleaseButton
 
Sub DrawCard (X1, X2, X3, X4)
 
    fontpath$ = Environ$("SYSTEMROOT") + "\fonts\Arialbd.ttf"
 
    Line (X1 - 34, X2 - 26)-(X1 - 34, X2 + 26), 2: Line (X1 + 34, X2 - 26)-(X1 + 34, X2 + 26), 2: Line (X1 - 26, X2 - 34)-(X1 + 26, X2 - 34), 2: Line (X1 - 26, X2 + 34)-(X1 + 26, X2 + 34), 2
    Circle (X1 - 26, X2 - 26), 8, 2, 1.5, 3.0: Circle (X1 + 26, X2 - 26), 8, 2, 0, 1.6: Circle (X1 - 26, X2 + 26), 8, 2, 3.0, 4.8: Circle (X1 + 26, X2 + 26), 8, 2, 4.5,
 
    If X3 = 100 Then
 
        Paint (X1, X2), 15, 2: Color X4, 15: font& = _LoadFont(fontpath$, 13): _Font font&
        Color 2, 15: _PrintString (804, 225), "Lucky": _PrintString (793, 245), "Numbers"
 
    ElseIf X3 > 0 Then
 
        Paint (X1, X2), 2
        Line (X1 - 25, X2 - 22)-(X1 - 25, X2 + 22), 15: Line (X1 + 25, X2 - 22)-(X1 + 25, X2 + 22), 15: Line (X1 - 22, X2 - 25)-(X1 + 22, X2 - 25), 15: Line (X1 - 22, X2 + 25)-(X1 + 22, X2 + 25), 15
        Circle (X1 - 22, X2 - 22), 3, 15, 1.5, 3.0: Circle (X1 + 22, X2 - 22), 3, 15, 0, 1.6: Circle (X1 - 22, X2 + 22), 3, 15, 3.0, 4.8: Circle (X1 + 22, X2 + 22), 3, 15, 4.5, 0
        Paint (X1, X2), 15
 
 
        Color X4, 15: font& = _LoadFont(fontpath$, 40): _Font font&
        If X3 < 10 Then X = 20 Else X = 22
        _PrintString (X1 - X, X2 - 15), Right$(Str$(X3), 2)
 
    End If
 
End Sub

Also, as in my other games, you can use ESC to alternate between window mode and full screen.

Thanks, Donald

Programs / Lucky Numbers Board Game

« on: October 23, 2021, 06:48:28 pm »

Hello Everyone,

Lucky Numbers is a 2 to 4 strategy board game played with individual boards and decks of cards based on the number of players. There is a solo play version, however, I did not not include it here. Each board has spaces 4 across by 4 down to hold numbered cards. Each deck of cards are numbered from 1 to 20 and there is a deck of cards for each number of players. In example: 2 decks of cards for 2 players, 3 decks of cards for 3 players and 4 decks of cards for 4 players. The object of the game is to be the first player to completely fill your board with the numbered cards.

The game starts with each player has a n empty gameboard in front of them. All the decks of cards are shuffled together. There are 4 starting cards placed on each gameboard at the start of the game that are randomly drawn from the deck. The cards are placed in ascending order from the lowest place in the upper left corner position 1:1, the next lowest placed at position 2:2, then the next lowest at position 3:3 and the highest card place at the lower right corner position 4:4. There's an optional version, known as Michael's Version, where only one card is reveled at a time and each player places that card at one of the 4 starting locations they feel is the best spot for that card without looking at any of the face down cards. Then the player turns over the next card in the same manner until all 4 cards are placed in the 4 starting positions.

Cards can only be placed on the board in ascending order from top to bottom and from left to right with the lowest in the upper left corner to the highest in the lower tight corner and no 2 cards with the same number may be next to each other, up and down or side by side. A player may choose to draw a face down card off the top of the deck or play a face up card discarded face up on the table. Once a player draws a face down card from the deck, they stuck with card and can not play a card from the table. If the card drawn from the deck is playable, they may play it on their board or place it on to the table. You may also replace a card on your board with the card you drew from the deck or from the table if it is playable in that spot. The card you removed from your board goes to the table.

The sequence of play: You will be asked number of players, use keyboard for input. Then it will ask to use Michael's Variation, again keyboard input. There will be a thick cursor around the game board board of the player currently taking their turn. At the start of the game, that will be player 1. There is a cursor around the deck of cards indicating thru van draw a card from the deck. The card will appear next to the deck. If there are any cards on the table, there will be a cursor around the the group. To choose a card from the table, click anywhere inside the table cursor, the click on the card you wish to play. A cursor will surround only that card. You van play this card onto your board by clicking the spot on the board or you can select a different table card by re-clicking the card you selected and choose a different or draw a card from the deck.

I've included 2 different copies copies of the rules.

Hope you enjoy playing, Donald

Lucky Numbers.bas

Lucky Numbers Rules.pdf

lucky-numbers-rulebook.pdf

Programs / Re: Trespass Board Game 1979 Lakeside Games

« on: September 20, 2021, 08:40:45 pm »

Hello,
I forgot to mention so of the controls, as figured out by Dav, you use mouse input. Clicking on the same location of the piece selected will enable you to deselect this piece and choose another. And pressing the ESX button with alternate between window and full screen.

Thanks for the input.

Donald

Programs / Trespass Board Game 1979 Lakeside Games

« on: September 20, 2021, 06:17:45 pm »

Hello All,
This is the 2 player abstract strategy board game from Lakeside games 1979. There has been a few totally separate board games introduced with the same tile.

The board stands upright similar to Connect Four. Player 1, the Attacker, has 11 pieces lined up across the bottom row of the board and their goal is to try to get 1 of their pieces to top row. There are 2 boarders, 1 separating the top row from the middle and 1 separating the bottom row from the middle. Play 2, the Defender, has 4 Blocker pieces and 1 Striker piece trying to prevent player 1's piece from reaching the top row. Player 2's Blockers or Striker pieces can not cross either barrier.

No pieces may jump over other pieces. The Attacker piece can only move 1 space straight up the board per turn. No sideways, backwards or diagonal moves allowed. The Blocker piece my move in any of the 8 directions as many spaces they choose to, but can not land on any other pieces. Their job is to block the progress of the Attacker pieces. The Striker piece can move in all 8 directions also, but only 1 space. When the Striker piece lands on an Attacker piece, the Attacker piece is bumped off the board for the remainder of the game.

As mentioned previously, the Attacker wins if they can get 1 of their piece on the top row of the board. The Defender wins when they have captured all of the Attacker pieces or block the remaining Attacker pieces from making a move.

I never played this game before I wrote it and it seems to me the Attacker has the advantage. I would like to see a game play through were the Defender can beat the Attacker. It is suggested to switch rolls for alternating games. I left a copy of the rules below.

Hope you enjoy playing;

Donald

Trespass Board Game.bas

[ Invalid Attachment ]

QB64 Discussion / Re: Recover a deleted unsaved program

« on: June 05, 2021, 04:16:22 pm »

Fellippe,
Thank you very much. You saved me a lot of retyping. It's saved now.

Thanks
Donald

QB64 Discussion / Recover a deleted unsaved program

« on: June 05, 2021, 03:44:36 pm »

Hello All,
I was working on a program and hadn't saved it yet and click on the X to close QB64. Of course it asked me if I wanted to it first. And, without thinking, I clicked No. Is there anyway of retrieving it?

Thanks,
Donald

QB64 Discussion / Re: screen size

« on: January 17, 2021, 01:28:58 pm »

Thank you Steve on the information on scaling. That is all new to me and I will study it and try ti implement it sometime time.
I originally used the screen size of 1024 x 728 on my 15.6" laptop because I knew the window would fit on a CRT monitor. However, most people are using laptops and when I created a window _NEWIMAGE(1024, 728, 256) and moved it to the left side of the screen, I have a lot of empty space on the right side. What I'm trying to find out is what number can I substitute 1024 that will stretch the window across to the other side? I don't have a 15.6" laptop to try numbers with. If I set it to 1200 and 1248 would had fit, I needed to know that. I don't want make a game that is too wide for their screen, even though FULL SCREEN may fix their problem, but they my end up with extra space at the top and bottom of the screen. I don't want any of my graphics stretched or distorted.

Thanks Donald

QB64 Discussion / Re: screen size

« on: January 17, 2021, 12:22:10 pm »

Never mind, I will set it for 1200 x 738, that should fit. I really needed to maximize the width, so I can fit everything in.

Thanks, Donald

QB64 Discussion / Re: screen size

« on: January 17, 2021, 11:31:38 am »

Thanks Steve,

I haven't had a 15.6" laptop in years. I use a desktop and my wife has a 17" laptop. I need the know max number of pixels that will fit across a 15.6" laptop. So when I write a game, It will fit on your screen. I previously made a game, Doubles Wild, that would not fit on some of your screens properly. I will will use a Full Screen option for those with larger monitors.

Thanks, Donald

Pages: [1] 2 3 ... 5

News:

Show Posts

Messages - Donald Foster

Programs / Re: Laser Chess Computer Board Game in QB64

Programs / Hex Board Game

Programs / Lucky Numbers with Solo Play

QB64 Discussion / Re: Do I need to need a directory path for creating a file?

QB64 Discussion / Re: Do I need to need a directory path for creating a file?

QB64 Discussion / Do I need to need a directory path for creating a file?

Programs / Re: Lucky Numbers Board Game

Programs / Lucky Numbers Board Game

Programs / Re: Trespass Board Game 1979 Lakeside Games

Programs / Trespass Board Game 1979 Lakeside Games

QB64 Discussion / Re: Recover a deleted unsaved program

QB64 Discussion / Recover a deleted unsaved program

QB64 Discussion / Re: screen size

QB64 Discussion / Re: screen size

QB64 Discussion / Re: screen size