« previous next »
Pages: [1]   Go Down

Author Topic: Lucky Numbers Board Game  (Read 3259 times)

0 Members and 1 Guest are viewing this topic.

Offline Donald Foster

  • Newbie
  • Posts: 63
    • View Profile
Lucky Numbers Board Game
« on: October 23, 2021, 06:48:28 pm »
 
Lucky Numbers.png


 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 (Filesize: 19.67 KB, Downloads: 218)
« Last Edit: October 25, 2021, 10:36:14 pm by Donald Foster »
Logged

Offline Donald Foster

  • Newbie
  • Posts: 63
    • View Profile
Re: Lucky Numbers Board Game
« Reply #1 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]
  1. _Title "Lucky Numbers - Coded by Donald L. Foster Jr."
  2.  
  3. Screen _NewImage(1035, 735, 256)
  4.  
  6.  
  7. _PaletteColor 1, _RGB32(0, 0, 90) '      Blue Playing Board
  8. _PaletteColor 2, _RGB32(0, 155, 155) '   Cyan Board Spacer
  9. _PaletteColor 3, _RGB32(235, 195, 0) '   Gold Card
  10. _PaletteColor 4, _RGB32(50, 185, 30) '   Green Card
  11. _PaletteColor 5, _RGB32(32, 110, 170) '  Blue Card
  12. _PaletteColor 6, _RGB32(138, 43, 226) '  Purple Card
  13.  
  23.  
  28.  
  29. Dim Player As Integer
  30. Dim Players As Integer
  32. Dim Column As Integer
  33. Dim Winner As Integer
  35. Dim CardColor As Integer
  36. Dim Board As Integer
  37. Dim Variation As Integer
  38. Dim DeckCards As Integer
  39. Dim TableCards As Integer
  40. Dim PlayCard As Integer
  41. Dim PlayColor As Integer
  42. Dim OldCard As Integer
  43. Dim OldColor As Integer
  44. Dim LowCard As Integer
  45. Dim Occupied As Integer
  46. Dim CanPlay As Integer
  47. Dim DrawPile As Integer
  48. Dim Table As Integer
  49. Dim Position As Integer
  50. Dim Routine As Integer
  51.  
  52. Dim DeckColor(80) As Integer
  53. Dim DeckCard(80) As Integer
  54. Dim CardColor(5) As Integer
  55. Dim Placed(80) As Integer
  56. Dim BoardCenterX(5) As Integer
  57. Dim BoardCenterY(5) As Integer
  58. Dim TableCard(12) As Integer
  59. Dim TableColor(12) As Integer
  60. Dim TableX(12) As Integer
  61. Dim TableY(12) As Integer
  62.  
  63. Dim HoldCard(4, 4) As Integer
  64. Dim HoldColor(4, 4) As Integer
  65. Dim Sorted(4, 4) As Integer
  66. Dim BoardX(5, 4, 4) As Integer
  67. Dim BoardY(5, 4, 4) As Integer
  68. Dim BoardCard(5, 4, 4) As Integer
  69. Dim BoardColor(5, 4, 4) As Integer
  70.  
  71. CardColor(1) = 3: CardColor(2) = 4: CardColor(3) = 5: CardColor(4) = 6
  72.  
  73. fontpath$ = Environ$("SYSTEMROOT") + "\fonts\Arialbd.ttf"
  74. fontpath1$ = Environ$("SYSTEMROOT") + "\fonts\Arial.ttf"
  75.  
  76. Color 2, 0: font& = _LoadFont(fontpath$, 80): _Font font&
  77. Locate 3, 295: Print "L  U  C  K  Y";
  78. Locate 5, 175: Print "N  U  M  B  E  R  S";
  79.  
  80. Color 15, 0: font& = _LoadFont(fontpath$, 30): _Font font&
  81. Locate 17, 315: Print "How Many Players?  ( 1 to 4 )";
  82.  
  83. GetPlayers:
  84. A$ = InKey$: If A$ = "" GoTo GetPlayers
  85. If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
  86. If Val(A$) < 1 Or Val(A$) > 4 GoTo GetPlayers
  87. Players = Val(A$)
  88.  
  89. ' Setup Deck of Cards
  90. DeckCards = Players * 20
  91. For Z = 1 To DeckCards: Placed(Z) = 0: Next
  92. For Z = 1 To 20
  93.     For Y = 1 To Players
  94.         Placed: X = Int(Rnd * DeckCards) + 1: If Placed(X) = 0 Then Placed(X) = 1: DeckCard(X) = Z: DeckColor(X) = Y Else GoTo Placed
  95.     Next
  97.  
  99.  
  100. ' Get Board X, Y Positions
  101. If Players = 4 Then
  102.  
  103.     X = 186: Board = 1
  104.     For Z = 1 To 2
  105.         W = 186
  106.         For Y = 1 To 2
  107.             U = X - 122
  108.             For T = 1 To 4
  109.                 V = W - 122
  110.                 For S = 1 To 4
  111.                     BoardX(Board, T, S) = V: BoardY(Board, T, S) = U
  112.                     V = V + 81
  113.                 Next
  114.                 U = U + 81
  115.             Next
  116.             BoardCenterX(Board) = W: BoardCenterY(Board) = X
  117.             Board = Board + 1
  118.             W = W + 363
  119.         Next
  120.         X = X + 363
  121.     Next
  122.  
  123. ElseIf Players = 3 Then
  124.  
  125.     X = 186: Board = 1
  126.     For Z = 1 To 2
  127.         If Z = 1 Then R = 2: W = 186 Else R = 1: W = 367
  128.         For Y = 1 To R
  129.             U = X - 122
  130.             For T = 1 To 4
  131.                 V = W - 122
  132.                 For S = 1 To 4
  133.                     BoardX(Board, T, S) = V: BoardY(Board, T, S) = U
  134.                     V = V + 81
  135.                 Next
  136.                 U = U + 81
  137.             Next
  138.             BoardCenterX(Board) = W: BoardCenterY(Board) = X
  139.             Board = Board + 1
  140.             W = W + 363
  141.         Next
  142.         X = X + 363
  143.     Next
  144.  
  146.  
  147.     X = 186: W = 186: Board = 1
  148.     For Z = 1 To 2
  149.         U = X - 122
  150.         For T = 1 To 4
  151.             V = W - 122
  152.             For S = 1 To 4
  153.                 BoardX(Board, T, S) = V: BoardY(Board, T, S) = U
  154.                 V = V + 81
  155.             Next
  156.             U = U + 81
  157.         Next
  158.         BoardCenterX(Board) = W: BoardCenterY(Board) = X
  159.         Board = Board + 1
  160.         X = X + 363: W = W + 363
  161.     Next
  162.  
  164.  
  165. ' Draw Board
  166. For Z = 1 To Players
  167.     V = BoardCenterX(Z): U = BoardCenterY(Z)
  168.     Line (V - 175, U - 175)-(V + 175, U + 175), 1, BF
  169.     For Y = 1 To 4
  170.         For X = 1 To 4
  171.             X1 = BoardX(Z, Y, X): X2 = BoardY(Z, Y, X): X3 = 0: X4 = 0: DrawCard X1, X2, X3, X4
  172.         Next
  173.     Next
  175.  
  176. ' Setup Table Locations
  177. X = 1: V = 360
  178. For Z = 1 To 4
  179.     U = 800
  180.     For Y = 1 To 3
  181.         TableX(X) = U: TableY(X) = V
  182.         X = X + 1: U = U + 81
  183.     Next
  184.     V = V + 81
  186.  
  187. Color 2, 0: font& = _LoadFont(fontpath$, 25): _Font font&
  188. _PrintString (812, 10), "L  U  C  K  Y"
  189. _PrintString (774, 35), "N  U  M  B  E  R  S"
  190.  
  191. Color 15, 0: font& = _LoadFont(fontpath$, 16): _Font font&
  192. Locate 45, 760: Print "Use Michael's Variation?  Y or N";
  193.  
  194. GetVariation:
  195. A$ = UCase$(InKey$): If A$ = "" GoTo GetVariation
  196. If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
  197. If A$ = "Y" Then Variation = 1 Else If A$ = "N" Then Variation = 0 Else GoTo GetVariation
  198.  
  199. ' Add Starting Cursors for Michael's Variation
  200. If Variation = 1 Then
  201.  
  202.     For Z = 1 To Players
  203.         For R = 1 To 4
  204.             Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
  205.             Locate 45, 750: Print "   Place Starting Card on Your Board   ";
  206.  
  207.             V = BoardCenterX(Z): U = BoardCenterY(Z)
  208.             Line (V - 176, U - 176)-(V + 176, U + 176), 15, B
  209.  
  210.             For Y = 1 To 4
  211.                 V = BoardX(Z, Y, Y): U = BoardY(Z, Y, Y)
  212.                 If BoardCard(Z, Y, Y) = 0 Then
  213.                     Line (V - 39, U - 39)-(V + 39, U + 39), 15, B
  214.                 Else
  215.                     Line (V - 39, U - 39)-(V + 39, U + 39), 1, B
  216.                 End If
  217.             Next
  218.  
  219.             X1 = 881: X2 = 110: X3 = Z: X4 = CardColor(Z): DrawCard X1, X2, X3, X4
  220.             Color 15, 0: font& = _LoadFont(fontpath$, 25): _Font font&
  221.             _PrintString (833, 155), "Player " + Str$(Z)
  222.  
  223.             Card = DeckCard(DeckCards): CardColor = DeckColor(DeckCards): DeckCards = DeckCards - 1
  224.             X1 = 881: X2 = 350: X3 = Card: X4 = CardColor(CardColor): DrawCard X1, X2, X3, X4
  225.  
  226.             PlaceStartingCard:
  227.             Do While _MouseInput
  228.                 For Y = 1 To 4
  229.                     For X = 1 To 4
  230.                         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
  231.                             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
  232.                                 GoSub ReleaseButton: Line (841, 310)-(921, 390), 0, BF
  233.                                 X1 = BoardX(Z, Y, X): X2 = BoardY(Z, Y, X): X3 = Card: X4 = CardColor(CardColor): DrawCard X1, X2, X3, X4
  234.                                 Line (BoardX(Z, Y, X) - 39, BoardY(Z, Y, X) - 39)-(BoardX(Z, Y, X) + 39, BoardY(Z, Y, X) + 39), 1, B
  235.                                 Line (BoardCenterX(Z) - 176, BoardCenterY(Z) - 176)-(BoardCenterX(Z) + 176, BoardCenterY(Z) + 176), 0, B
  236.                                 BoardCard(Z, Y, X) = Card: BoardColor(Z, Y, X) = CardColor: GoTo EndPlaceCard
  237.                             End If
  238.                         End If
  239.                     Next
  240.                 Next
  241.             Loop
  242.             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
  243.             GoTo PlaceStartingCard
  244.  
  245.             EndPlaceCard:
  246.         Next
  247.     Next
  248.  
  250.  
  251.     ' Get Hold Cards
  252.     For Z = 1 To 4
  253.         For Y = 1 To Players
  254.             HoldCard(Y, Z) = DeckCard(DeckCards): HoldColor(Y, Z) = DeckColor(DeckCards): DeckCards = DeckCards - 1
  255.         Next
  256.     Next
  257.  
  258.     ' Sort Hold Cards
  259.     For Z = 1 To Players
  260.         For Y = 1 To 4
  261.             LowCard = 100
  262.             For X = 1 To 4
  263.                 If HoldCard(Z, X) < LowCard And Sorted(Z, X) = 0 Then LowCard = HoldCard(Z, X): CardColor = HoldColor(Z, X): T = X
  264.             Next
  265.             Sorted(Z, T) = 1: X1 = BoardX(Z, Y, Y): X2 = BoardY(Z, Y, Y): X3 = LowCard: X4 = CardColor(CardColor): DrawCard X1, X2, X3, X4
  266.             BoardCard(Z, Y, Y) = LowCard: BoardColor(Z, Y, Y) = CardColor
  267.         Next
  268.     Next
  269.  
  271.  
  272. Player = 1: Winner = 0
  273.  
  274. StartGame:
  275. DrawPile = 0: Table = 0: Occupied = 0
  276.  
  277. ' Draw Player Cursor
  278. Line (BoardCenterX(Player) - 176, BoardCenterY(Player) - 176)-(BoardCenterX(Player) + 176, BoardCenterY(Player) + 176), 15, B
  279. Line (BoardCenterX(Player) - 177, BoardCenterY(Player) - 177)-(BoardCenterX(Player) + 177, BoardCenterY(Player) + 177), 15, B
  280.  
  281. X1 = 881: X2 = 110: X3 = Player: X4 = CardColor(Player): DrawCard X1, X2, X3, X4
  282. Color 15, 0: font& = _LoadFont(fontpath$, 25): _Font font&
  283. _PrintString (833, 155), "Player " + Str$(Player)
  284.  
  285. ' Display Deck
  286. X1 = 821: X2 = 240: X3 = 100: X4 = 0: DrawCard X1, X2, X3, X4: Line (777, 196)-(865, 284), 15, B
  287. Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
  288. Locate 43, 750: Print "       Draw a Card From the Deck       ";
  289.  
  290. 'Draw Cursor Around Table If Not Empty
  291. If TableCards > 0 Then
  292.     Color 15, 0: Locate 45, 750: Print "     Or Play a Card From the Table       ";
  293.     Line (756, 316)-(1006, 646), 15, B
  295.     Locate 45, 750: Print String$(70, 32);: Line (756, 316)-(1006, 646), 0, B
  297.  
  298. ChooseAPlay:
  300.  
  301.     ' Draw a Card From the Deck
  302.     If _MouseX > 777 And _MouseX < 865 And _MouseY > 196 And _MouseY < 284 And _MouseButton(1) = -1 Then
  303.         GoSub ReleaseButton: Line (777, 196)-(865, 284), 0, B: Line (756, 316)-(1006, 646), 15, B
  304.         PlayCard = DeckCard(DeckCards): PlayColor = DeckColor(DeckCards): DeckCards = DeckCards - 1
  305.         X1 = 941: X2 = 240: X3 = PlayCard: X4 = CardColor(PlayColor): DrawCard X1, X2, X3, X4: GoTo PlayDeckCard
  306.     End If
  307.  
  308.     ' Choose Table Cards
  309.     If _MouseX > 756 And _MouseX < 1006 And _MouseY > 316 And _MouseY < 646 And _MouseButton(1) = -1 And TableCards > 0 Then
  310.         GoSub ReleaseButton: GoTo ChooseTableCard
  311.     End If
  312.  
  314. 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
  315. GoTo ChooseAPlay
  316.  
  317. PlayDeckCard:
  318. Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
  319. Locate 43, 750: Print "         Play Card on Your Board         ";
  320. Locate 45, 750: Print "        Or Move Card to the Table        ";
  321.  
  322. ChoosePlay:
  324.  
  325.     ' Place Card on Table
  326.     If _MouseX > 756 And _MouseX < 1006 And _MouseY > 316 And _MouseY < 646 And _MouseButton(1) = -1 Then
  327.         GoSub ReleaseButton: Line (897, 196)-(985, 284), 0, BF: Line (756, 316)-(1006, 646), 0, B:
  328.         TableCards = TableCards + 1: TableCard(TableCards) = PlayCard: TableColor(TableCards) = PlayColor:
  329.         X1 = TableX(TableCards): X2 = TableY(TableCards): X3 = PlayCard: X4 = CardColor(PlayColor): DrawCard X1, X2, X3, X4: GoTo EndTurn
  330.     End If
  331.  
  332.     ' Place Card on Board
  333.     For Z = 1 To 4
  334.         For Y = 1 To 4
  335.             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
  336.                 GoSub ReleaseButton: Row = Z: Column = Y: DrawPile = 1: Table = 0: Routine = 1: GoTo CheckBoardPosition
  337.             End If
  338.         Next
  339.     Next
  340.  
  342. 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
  343. GoTo ChoosePlay
  344.  
  345.  
  346. ChooseTableCard:
  347. Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
  348. Locate 43, 750: Print "       Choose a Table Card to Play       ";
  349. Locate 45, 750: Print "      Or Draw a Card From the Deck       ";
  350.  
  351. GetTableCard:
  353.  
  354.     ' Choose a Card From the Table
  355.     For Z = 1 To TableCards
  356.         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
  357.             GoSub ReleaseButton: Line (756, 316)-(1006, 646), 0, B: Line (777, 196)-(865, 284), 0, B
  358.             Line (TableX(Z) - 41, TableY(Z) - 41)-(TableX(Z) + 41, TableY(Z) + 41), 15, B
  359.             PlayCard = TableCard(Z): PlayColor = TableColor(Z): Position = Z: Table = 1: DrawPile = 0: GoTo ChooseBoardPosition
  360.         End If
  361.     Next
  362.  
  363.     ' Choose Draw a Card From the Deck
  364.     If _MouseX > 777 And _MouseX < 865 And _MouseY > 196 And _MouseY < 284 And _MouseButton(1) = -1 Then
  365.         GoSub ReleaseButton: Line (777, 196)-(865, 284), 0, B: Line (756, 316)-(1006, 646), 15, B
  366.         PlayCard = DeckCard(DeckCards): PlayColor = DeckColor(DeckCards): DeckCards = DeckCards - 1
  367.         X1 = 941: X2 = 240: X3 = PlayCard: X4 = CardColor(PlayColor): DrawCard X1, X2, X3, X4: GoTo PlayDeckCard
  368.     End If
  369.  
  371. 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
  372. GoTo GetTableCard
  373.  
  374. ChooseBoardPosition:
  375. Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
  376. Locate 43, 750: Print "         Play Card on Your Board         ";
  377. If TableCards > 0 Then Locate 45, 750: Print "          Or a Choose Table Card         ";
  378.  
  379. GetBoardPosition:
  381.  
  382.     ' Reselect Card on Table
  383.     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
  384.         GoSub ReleaseButton: Line (TableX(Position) - 41, TableY(Position) - 41)-(TableX(Position) + 41, TableY(Position) + 41), 0, B
  385.         Line (777, 196)-(865, 284), 15, B: Line (756, 316)-(1006, 646), 15, B: GoTo ChooseTableCard
  386.     End If
  387.  
  388.     ' Place Card on Board
  389.     For Z = 1 To 4
  390.         For Y = 1 To 4
  391.             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
  392.                 GoSub ReleaseButton: Row = Z: Column = Y:: Routine = 2: GoTo CheckBoardPosition
  393.             End If
  394.         Next
  395.     Next
  396.  
  398. 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
  399. GoTo GetBoardPosition
  400.  
  401.  
  402. CheckBoardPosition:
  403. If BoardCard(Player, Row, Column) > 0 Then Occupied = 1: OldCard = BoardCard(Player, Row, Column): OldColor = BoardColor(Player, Row, Column)
  404.  
  405. X = 1: X1 = 0: X2 = 0: X3 = 0: X4 = 0
  406.  
  407. Up: If Row - X >= 1 Then
  408.     If BoardCard(Player, Row - X, Column) = 0 Then X = X + 1: GoTo Up Else If PlayCard > BoardCard(Player, Row - X, Column) Then X1 = 1
  410.     X1 = 1
  412.  
  413. X = 1
  414. Dn: If Row + X <= 4 Then
  415.     If BoardCard(Player, Row + X, Column) = 0 Then X = X + 1: GoTo Dn Else If PlayCard < BoardCard(Player, Row + X, Column) Then X2 = 1
  417.     X2 = 1
  419.  
  420. X = 1
  421. Lt: If Column - X >= 1 Then
  422.     If BoardCard(Player, Row, Column - X) = 0 Then X = X + 1: GoTo Lt Else If PlayCard > BoardCard(Player, Row, Column - X) Then X3 = 1
  424.     X3 = 1
  426.  
  427. X = 1
  428. Rt: If Column + X <= 4 Then
  429.     If BoardCard(Player, Row, Column + X) = 0 Then X = X + 1: GoTo Rt Else If PlayCard < BoardCard(Player, Row, Column + X) Then X4 = 1
  431.     X4 = 1
  433.  
  434. CanPlay = 0
  435. If X1 = 1 And X2 = 1 And X3 = 1 And X4 = 1 Then
  436.     CanPlay = 1
  438.     If Routine = 1 Then GoTo ChoosePlay
  439.     If Routine = 2 Then GoTo GetBoardPosition
  441.  
  442. ' Place Card on Board
  443. If CanPlay = 1 Then
  444.  
  445.     ' Move Card to the Board
  446.     BoardCard(Player, Row, Column) = PlayCard: BoardColor(Player, Row, Column) = PlayColor
  447.     X1 = BoardX(Player, Row, Column): X2 = BoardY(Player, Row, Column): X3 = PlayCard: X4 = CardColor(PlayColor): DrawCard X1, X2, X3, X4
  448.  
  449.     ' Move Card from Draw Pile
  450.     If DrawPile = 1 Then Line (897, 196)-(985, 284), 0, BF
  451.  
  452.     ' Move Card from Table
  453.     If Table = 1 Then
  454.  
  455.         Line (TableX(Position) - 41, TableY(Position) - 41)-(TableX(Position) + 41, TableY(Position) + 41), 0, BF
  456.  
  457.         While Position < TableCards
  458.  
  459.             TableCard(Position) = TableCard(Position + 1): TableColor(Position) = TableColor(Position + 1)
  460.             Line (TableX(Position + 1) - 41, TableY(Position + 1) - 41)-(TableX(Position + 1) + 41, TableY(Position + 1) + 41), 0, BF
  461.             X1 = TableX(Position): X2 = TableY(Position): X3 = TableCard(Position): X4 = CardColor(TableColor(Position)): DrawCard X1, X2, X3, X4
  462.             Position = Position + 1
  463.  
  464.         Wend
  465.  
  466.         TableCards = TableCards - 1
  467.  
  468.     End If
  469.  
  470.     ' Move Old Card to Table
  471.     If Occupied = 1 Then
  472.         TableCards = TableCards + 1: TableCard(TableCards) = OldCard: TableColor(TableCards) = OldColor
  473.         X1 = TableX(TableCards): X2 = TableY(TableCards): X3 = OldCard: X4 = CardColor(OldColor): DrawCard X1, X2, X3, X4
  474.     End If
  475.  
  477.  
  478. EndTurn:
  479.  
  480. ' Check for Winner
  481. X = 0
  482. For Z = 1 To 4
  483.     For Y = 1 To 4
  484.         If BoardCard(Player, Z, Y) > 0 Then X = X + 1
  485.     Next
  487.  
  488. If X = 16 Then
  489.     Color 15, 0: font& = _LoadFont(fontpath1$, 16): _Font font&
  490.     Locate 43, 750: Print "            Player"; Player; "is the Winner!          ";
  491.     Locate 45, 750: Print "       Play Another Game?  Y or N        ";
  492.  
  493.     GetYorN: A$ = UCase$(InKey$): If A$ = "" GoTo GetYorN
  494.     If Asc(A$) = 27 And FullScreen = 0 Then FullScreen = -1: _FullScreen _SquarePixels , _Smooth Else If Asc(A$) = 27 Then FullScreen = 0: _FullScreen _Off
  495.     If A$ = "Y" Then Run
  496.     If A$ = "N" Then System
  497.     GoTo GetYorN
  499.  
  500. Line (BoardCenterX(Player) - 176, BoardCenterY(Player) - 176)-(BoardCenterX(Player) + 176, BoardCenterY(Player) + 176), 0, B
  501. Line (BoardCenterX(Player) - 177, BoardCenterY(Player) - 177)-(BoardCenterX(Player) + 177, BoardCenterY(Player) + 177), 0, B
  502.  
  503. If Player = Players Then Player = 1 Else Player = Player + 1
  504. GoTo StartGame
  505.  
  506. ReleaseButton:
  508.     If _MouseButton(1) = 0 Then Return
  510. GoTo ReleaseButton
  511.  
  512. Sub DrawCard (X1, X2, X3, X4)
  513.  
  514.     fontpath$ = Environ$("SYSTEMROOT") + "\fonts\Arialbd.ttf"
  515.  
  516.     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
  517.     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,
  518.  
  519.     If X3 = 100 Then
  520.  
  521.         Paint (X1, X2), 15, 2: Color X4, 15: font& = _LoadFont(fontpath$, 13): _Font font&
  522.         Color 2, 15: _PrintString (804, 225), "Lucky": _PrintString (793, 245), "Numbers"
  523.  
  524.     ElseIf X3 > 0 Then
  525.  
  526.         Paint (X1, X2), 2
  527.         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
  528.         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
  529.         Paint (X1, X2), 15
  530.  
  531.  
  532.         Color X4, 15: font& = _LoadFont(fontpath$, 40): _Font font&
  533.         If X3 < 10 Then X = 20 Else X = 22
  534.         _PrintString (X1 - X, X2 - 15), Right$(Str$(X3), 2)
  535.  
  536.     End If
  537.  

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

Thanks, Donald
Logged
Pages: [1]   Go Up
« previous next »