09-17-2023, 06:45 PM
(This post was last modified: 09-17-2023, 06:54 PM by Donald Foster.)
Code: (Select All)
_TITLE "Aqualin - Programmed by Donald L. Foster Jr. 2023"
RANDOMIZE TIMER
SCREEN _NEWIMAGE(1317, 752, 256)
_PALETTECOLOR 1, _RGB32(200, 6, 17) ' Red
_PALETTECOLOR 2, _RGB32(6, 105, 0) ' Green
_PALETTECOLOR 3, _RGB32(245, 220, 6) ' Yellow
_PALETTECOLOR 4, _RGB32(127, 72, 127) ' Violet
_PALETTECOLOR 5, _RGB32(255, 133, 0) ' Orange
_PALETTECOLOR 6, _RGB32(0, 89, 255) ' Blue
_PALETTECOLOR 7, _RGB32(0, 150, 255) ' Cyan Board
_PALETTECOLOR 10, _RGB32(110, 80, 40) ' Shape
_PALETTECOLOR 11, _RGB32(210, 180, 140) ' Background
DIM AS _UNSIGNED _BIT FirstMove, Selected, Slide, TilePlaced(36), TileRemoved(36)
DIM AS _UNSIGNED _BYTE Player, Opponent, Row, Column, Tile, TileShape, TileColor, TilesPlaced, Supply, Position, ShapeGroups, ColorGroups, DisplayTile(6)
DIM AS _UNSIGNED INTEGER V, X, Y, Z
DIM SHARED AS _UNSIGNED _BIT Playable(6, 6), ShapeGroupOk(6, 6), ColorGroupOk(6, 6)
DIM SHARED AS _BYTE Shape, Colour, Group, BoardShapeGroup(6, 6), BoardColorGroup(6, 6), ShapeGroupCount(6, 6), ColorGroupCount(6, 6), Points(6), PlayerScore(2)
DIM SHARED AS _BYTE BoardTile(6, 6), TileShape(36), TileColor(36), BoardShape(6, 6), BoardColor(6, 6), ShapeGroupScore(6, 6), ColorGroupScore(6, 6), ShapeScore(6), ColorScore(6)
DIM SHARED AS INTEGER BoardX(6, 6), BoardY(6, 6), DisplayX(6), DisplayY(6)
Player = 1: Opponent = 2: FirstMove = 1: Supply = 30: TilesPlaced = 0
Points(0) = 0: Points(1) = 0: Points(2) = 1: Points(3) = 3: Points(4) = 6: Points(5) = 10: Points(6) = 15
Tile = 1: FOR Z = 1 TO 6: FOR Y = 1 TO 6: TileShape(Tile) = Z: TileColor(Tile) = Y: Tile = Tile + 1: ShapeGroupOk(Z, Y) = 1: ColorGroupOk(Z, Y) = 1: NEXT: NEXT
PlayerGoal$(1) = "Group Same Shape ": PlayerGoal$(2) = "Group Same Color "
FOR Z = 1 TO 36: TilePlaced(Z) = 0: TileRemoved(Z) = 0: NEXT
' Mix Up Supply Tiles
FOR Z = 1 TO 6
FOR Y = 1 TO 6
GetTile: Tile = INT(RND * 36) + 1: IF TilePlaced(Tile) GOTO GetTile
TileShape(Tile) = Z: TileColor(Tile) = Y: TilePlaced(Tile) = 1
NEXT
NEXT
FOR Z = 1 TO 36: TilePlaced(Z) = 0: NEXT
' Get 6 Random Display Tiles
FOR Z = 1 TO 6
RandomTile: Tile = INT(RND * 36) + 1: IF TilePlaced(Tile) GOTO RandomTile
DisplayTile(Z) = Tile: TilePlaced(Tile) = 1: TileRemoved(Tile) = 1
NEXT
fontpath$ = ENVIRON$("SYSTEMROOT") + "\fonts\Arialbd.ttf"
CLS , 11
' Draw Board
LINE (0, 0)-(751, 751), 7, BF: LINE (10, 10)-(741, 741), 15, BF
X = 75
FOR Z = 1 TO 6
V = 75
FOR Y = 1 TO 6
LINE (V - 53, X - 53)-(V + 53, X + 53), 7, BF
BoardX(Z, Y) = V: BoardY(Z, Y) = X
V = V + 120
NEXT
X = X + 120
NEXT
' Draw Game Title
font& = _LOADFONT(fontpath$, 40): _FONT font&
COLOR 0, 11: _PRINTSTRING (912, 10), "A Q U A L I N"
' Draw Supply Tile
DrawTile 1029, 230, 0, 0, 1
font& = _LOADFONT(fontpath$, 16): _FONT font&
COLOR 15, 0: _PRINTSTRING (992, 222), "AQUALIN"
' Draw Display Tiles
Position = 1: X = 420
FOR Z = 1 TO 2
V = 887
FOR Y = 1 TO 3
IF DisplayTile(Position) > 0 THEN
DrawTile V, X, TileShape(DisplayTile(Position)), TileColor(DisplayTile(Position)), 1
DisplayX(Position) = V: DisplayY(Position) = X: Position = Position + 1: V = V + 140
END IF
NEXT
X = X + 140
NEXT
StartGame:
' Displau Player Info
font& = _LOADFONT(fontpath$, 30): _FONT font&
COLOR 0, 11: _PRINTSTRING (813, 100), "Player " + STR$(Player) + " - " + PlayerGoal$(Player)
' Display Supply Tile Quanity
font& = _LOADFONT(fontpath$, 20): _FONT font&
COLOR 0, 11: _PRINTSTRING (978, 285), "Supply: " + STR$(Supply)
font& = _LOADFONT(fontpath$, 25): _FONT font&
ChooseTile:
IF FirstMove = 0 AND Slide = 0 THEN
_PRINTSTRING (823, 680), " Choose a Tile to Slide or "
ELSE
_PRINTSTRING (823, 680), STRING$(100, 32)
END IF
_PRINTSTRING (823, 718), "Choose a Tile to Place on the Board"
GetTileInput:
DO WHILE _MOUSEINPUT
' Choose a Board Tile to Move
IF FirstMove = 0 AND Slide = 0 THEN
FOR Z = 1 TO 6
FOR Y = 1 TO 6
IF _MOUSEX > BoardX(Z, Y) - 57 AND _MOUSEX < BoardX(Z, Y) + 57 AND _MOUSEY > BoardY(Z, Y) - 57 AND _MOUSEY < BoardY(Z, Y) + 57 THEN Selected = 1 ELSE Selected = 0
IF _MOUSEBUTTON(1) = -1 AND Selected = 1 AND BoardTile(Z, Y) > 0 THEN
GOSUB ReleaseButton: Row = Z: Column = Y: Tile = BoardTile(Z, Y)
IF GetPlayables(Z, Y) = 1 THEN DrawCursor BoardX(Z, Y), BoardY(Z, Y), 0: GOTO SlideTile ELSE GOTO GetTileInput
END IF
NEXT
NEXT
END IF
' Choose a Tile to Place
FOR Z = 1 TO 6
IF _MOUSEX > DisplayX(Z) - 57 AND _MOUSEX < DisplayX(Z) + 57 AND _MOUSEY > DisplayY(Z) - 57 AND _MOUSEY < DisplayY(Z) + 57 THEN Selected = 1 ELSE Selected = 0
IF _MOUSEBUTTON(1) = -1 AND Selected = 1 AND DisplayTile(Z) > 0 THEN
GOSUB ReleaseButton: Tile = DisplayTile(Z): Position = Z: DrawCursor DisplayX(Z), DisplayY(Z), 0: GOTO TileChosen
END IF
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 GetTileInput
SlideTile:
_PRINTSTRING (823, 680), " Choose a Space to Slide Tile to or "
_PRINTSTRING (823, 718), " Choose a Different Tile to Slide "
GetSlideInput:
DO WHILE _MOUSEINPUT
FOR Z = 1 TO 6
FOR Y = 1 TO 6
IF _MOUSEX > BoardX(Z, Y) - 57 AND _MOUSEX < BoardX(Z, Y) + 57 AND _MOUSEY > BoardY(Z, Y) - 57 AND _MOUSEY < BoardY(Z, Y) + 57 THEN Selected = 1 ELSE Selected = 0
IF _MOUSEBUTTON(1) = -1 AND Selected = 1 THEN
GOSUB ReleaseButton
IF Playable(Z, Y) = 1 THEN
IF Row = Z AND Column = Y THEN ClearCursors: GOTO ChooseTile ELSE ClearCursors: GOTO MoveTile
ELSE
IF BoardTile(Z, Y) > 0 THEN ClearCursors: IF GetPlayables(Z, Y) = 1 THEN DrawCursor BoardX(Z, Y), BoardY(Z, Y), 0: GOTO SlideTile ELSE GOTO GetSlideInput
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 GetSlideInput
MoveTile:
BoardTile(Z, Y) = Tile: BoardTile(Row, Column) = 0: PAINT (BoardX(Row, Column), BoardY(Row, Column)), 7: DrawTile BoardX(Z, Y), BoardY(Z, Y), TileShape(Tile), TileColor(Tile), 1: Slide = 1
IF Slide = 1 THEN GOTO ChooseTile ELSE GOTO EndRound
TileChosen:
_PRINTSTRING (823, 680), " Choose a Board Space or "
_PRINTSTRING (823, 718), " Choose a Different Tile to Play "
GetBoardInput:
DO WHILE _MOUSEINPUT
' Choose a Different Tile
FOR Z = 1 TO 6
IF _MOUSEX > DisplayX(Z) - 57 AND _MOUSEX < DisplayX(Z) + 57 AND _MOUSEY > DisplayY(Z) - 57 AND _MOUSEY < DisplayY(Z) + 57 THEN Selected = 1 ELSE Selected = 0
IF _MOUSEBUTTON(1) = -1 AND Selected = 1 AND DisplayTile(Z) > 0 THEN
GOSUB ReleaseButton: DrawCursor DisplayX(Position), DisplayY(Position), 11
IF Z = Position GOTO ChooseTile ELSE Tile = DisplayTile(Z): Position = Z:: DrawCursor DisplayX(Z), DisplayY(Z), 0: GOTO GetBoardInput
END IF
NEXT
' Choose Board Space to Place Tile
FOR Z = 1 TO 6
FOR Y = 1 TO 6
IF _MOUSEX > BoardX(Z, Y) - 57 AND _MOUSEX < BoardX(Z, Y) + 57 AND _MOUSEY > BoardY(Z, Y) - 57 AND _MOUSEY < BoardY(Z, Y) + 57 THEN Selected = 1 ELSE Selected = 0
IF _MOUSEBUTTON(1) = -1 AND Selected AND BoardTile(Z, Y) = 0 THEN GOSUB ReleaseButton: Row = Z: Column = Y: GOTO PlaceTile
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 GetBoardInput
PlaceTile:
' Move Display Tile to Board
DisplayTile(Position) = 0: BoardTile(Row, Column) = Tile: TilesPlaced = TilesPlaced + 1
LINE (DisplayX(Position) - 58, DisplayY(Position) - 58)-(DisplayX(Position) + 58, DisplayY(Position) + 58), 11, BF
DrawTile BoardX(Row, Column), BoardY(Row, Column), TileShape(Tile), TileColor(Tile), 1
' Replenish Display Tiles
IF Supply > 0 THEN
RemoveTile: Tile = INT(RND * 36) + 1: IF TilePlaced(Tile) GOTO RemoveTile
DisplayTile(Position) = Tile: TilePlaced(Tile) = 1: IF Supply > 0 THEN Supply = Supply - 1
DrawTile DisplayX(Position), DisplayY(Position), TileShape(Tile), TileColor(Tile), 1
END IF
' Display Supply Tile Quanity
font& = _LOADFONT(fontpath$, 20): _FONT font&
COLOR 0, 11: _PRINTSTRING (978, 285), "Supply: ": _PRINTSTRING (978, 285), "Supply: " + STR$(Supply)
EndRound:
' Check for End of Game
IF TilesPlaced = 36 THEN
Winner = (EndOfGame)
font& = _LOADFONT(fontpath$, 22): _FONT font&: DisplayScores
font& = _LOADFONT(fontpath$, 25): _FONT font&
IF Winner = 3 THEN
_PRINTSTRING (823, 685), " The Game Ended in a Tie "
ELSE
_PRINTSTRING (823, 685), " Player " + STR$(Winner) + " is the Winner! "
END IF
_PRINTSTRING (823, 718), " Play Another Game? ( Y or N) "
YorN: A$ = UCASE$(INKEY$): IF A$ = "" GOTO YorN
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 YorN
END IF
FirstMove = 0: Slide = 0: SWAP Player, Opponent: GOTO StartGame
ReleaseButton:
DO WHILE _MOUSEINPUT
IF _MOUSEBUTTON(1) = 0 THEN RETURN
LOOP
GOTO ReleaseButton
SUB DrawTile (X1, X2, TileShape, TileColor, Tile)
IF Tile THEN
LINE (X1 - 48, X2 - 40)-(X1 - 48, X2 + 40), 0: LINE (X1 + 48, X2 - 40)-(X1 + 48, X2 + 40), 0: LINE (X1 - 40, X2 - 48)-(X1 + 40, X2 - 48), 0: LINE (X1 - 40, X2 + 48)-(X1 + 40, X2 + 48), 0
CIRCLE (X1 - 40, X2 - 40), 8, 0, 1.5, 3.1: CIRCLE (X1 + 40, X2 - 40), 8, 0, 0, 1.6: CIRCLE (X1 - 40, X2 + 40), 8, 0, 3.0, 4.8: CIRCLE (X1 + 40, X2 + 40), 8, 0, 4.5, 0: PAINT (X1, X2), 0
END IF
SELECT CASE TileShape
CASE 1 ' Circle
CIRCLE (X1, X2), 35, 15
CASE 2 ' Diamond
PSET (X1, X2), 0: DRAW "C15TA0BU38G39F39E39H39"
CASE 3 ' Cross
CIRCLE (X1 - 20, X2), 15, 15, 1.0, 5.2: CIRCLE (X1 + 20, X2), 15, 15, 4.1, 2.1
CIRCLE (X1, X2 - 20), 15, 15, 5.5, 3.9: CIRCLE (X1, X2 + 20), 15, 15, 2.4, 0.6
CASE 4 ' X
PSET (X1, X2), 0: DRAW "C15TA0BR15TA65R35TA115U35TA65U35TA115L35TA65L35TA115D35TA65D35TA115R35"
CASE 5 ' Square
LINE (X1 - 32, X2 - 32)-(X1 + 32, X2 + 32), 15, B
CASE 6 ' Star
PSET (X1, X2), 0: DRAW "C15TA0BU15BR5TA15U22TA165U22TA45BL12TA15L22TA165L22TA45BD12TA15D22TA165D22TA45BR12TA15R22TA165R22"
DRAW "C15TA60R22TA30L22TA0BL12TA60U22TA30D22TA0BD12TA60L22TA30R22TA0BR12TA60D22TA30U22"
END SELECT
IF TileColor THEN PAINT (X1, X2), TileColor, 15
END SUB
SUB DrawCursor (X1, X2, CursorColor)
PSET (X1 - 56, X2 - 56), CursorColor: DRAW "TA0R112D112L112U112H1R114D114L114U114H1R116D116L116U116"
END SUB
SUB ClearCursors
FOR Z = 1 TO 6
FOR Y = 1 TO 6
Playable(Z, Y) = 0: DrawCursor BoardX(Z, Y), BoardY(Z, Y), 15
NEXT
NEXT
END SUB
FUNCTION GetPlayables (X1, X2)
' Clear All Playables
FOR Z = 1 TO 6: FOR Y = 1 TO 6: Playable(Z, Y) = 0: NEXT: NEXT: Playable(X1, X2) = 1: V = 0
X = 0
CheckUp:
IF X1 - X - 1 >= 1 THEN
IF BoardTile(X1 - X - 1, X2) = 0 THEN Playable(X1 - X - 1, X2) = 1: DrawCursor BoardX(X1 - X - 1, X2), BoardY(X1 - X - 1, X2), 0: X = X + 1: V = 1: GOTO CheckUp
END IF
X = 0
CheckDown:
IF X1 + X + 1 <= 6 THEN
IF BoardTile(X1 + X + 1, X2) = 0 THEN Playable(X1 + X + 1, X2) = 1: DrawCursor BoardX(X1 + X + 1, X2), BoardY(X1 + X + 1, X2), 0: X = X + 1: V = 1: GOTO CheckDown
END IF
X = 0
CheckLeft:
IF X2 - X - 1 >= 1 THEN
IF BoardTile(X1, X2 - X - 1) = 0 THEN Playable(X1, X2 - X - 1) = 1: DrawCursor BoardX(X1, X2 - X - 1), BoardY(X1, X2 - X - 1), 0: X = X + 1: V = 1: GOTO CheckLeft
END IF
X = 0
CheckRight:
IF X2 + X + 1 <= 6 THEN
IF BoardTile(X1, X2 + X + 1) = 0 THEN Playable(X1, X2 + X + 1) = 1: DrawCursor BoardX(X1, X2 + X + 1), BoardY(X1, X2 + X + 1), 0: X = X + 1: V = 1: GOTO CheckRight
END IF
GetPlayables = V
END FUNCTION
FUNCTION EndOfGame ()
' Get Tile Shapes and Colors
FOR Z = 1 TO 6
FOR Y = 1 TO 6
BoardShape(Z, Y) = TileShape(BoardTile(Z, Y)): BoardColor(Z, Y) = TileColor(BoardTile(Z, Y)): BoardShapeGroup(Z, Y) = 0: BoardColorGroup(Z, Y) = 0
NEXT
NEXT
' Set ShapeGroupCount, ShapeGroupScore, ColorGroupCount and ColorGroupScore to 0
FOR Z = 1 TO 6: FOR Y = 1 TO 6: ShapeGroupCount(Z, Y) = 0: ShapeGroupScore(Z, Y) = 0: ColorGroupCount(Z, Y) = 0: ColorGroupScore(Z, Y) = 0: NEXT: NEXT
PatternShapes = 0: PatternColors = 0
' Get Tile Shape Group
FOR Z = 1 TO 6
FOR Y = 1 TO 6
Shape = BoardShape(Z, Y)
IF Y - 1 >= 1 AND Z - 1 >= 1 THEN
Group1 = BoardShapeGroup(Z, Y - 1): Group2 = BoardShapeGroup(Z - 1, Y)
IF BoardShape(Z, Y - 1) = Shape AND BoardShape(Z - 1, Y) = Shape THEN
IF Group1 <> Group2 THEN
IF Group1 < Group2 THEN
ChangeShapeGroup Shape, Group1, Group2: BoardShapeGroup(Z, Y) = Group1
ELSE
ChangeShapeGroup Shape, Group2, Group1: BoardShapeGroup(Z, Y) = Group2
END IF
ELSE
BoardShapeGroup(Z, Y) = Group1
END IF
ELSE
X = 0
IF BoardShape(Z, Y - 1) = Shape THEN BoardShapeGroup(Z, Y) = Group1: X = 1
IF BoardShape(Z - 1, Y) = Shape THEN BoardShapeGroup(Z, Y) = Group2: X = 1
IF X = 0 THEN BoardShapeGroup(Z, Y) = NextShapeGroup(Shape)
END IF
ELSEIF Y - 1 >= 1 THEN
IF BoardShape(Z, Y - 1) = BoardShape(Z, Y) THEN
BoardShapeGroup(Z, Y) = BoardShapeGroup(Z, Y - 1)
ELSE
BoardShapeGroup(Z, Y) = NextShapeGroup(Shape)
END IF
ELSEIF Z - 1 >= 1 THEN
IF BoardShape(Z - 1, Y) = BoardShape(Z, Y) THEN
BoardShapeGroup(Z, Y) = BoardShapeGroup(Z - 1, Y)
ELSE
BoardShapeGroup(Z, Y) = NextShapeGroup(Shape)
END IF
ELSE
BoardShapeGroup(Z, Y) = NextShapeGroup(Shape)
END IF
NEXT
NEXT
' Get Tile Color Group
FOR Z = 1 TO 6
FOR Y = 1 TO 6
Colour = BoardColor(Z, Y)
IF Y - 1 >= 1 AND Z - 1 >= 1 THEN
Group1 = BoardColorGroup(Z, Y - 1): Group2 = BoardColorGroup(Z - 1, Y)
IF BoardColor(Z, Y - 1) = Colour AND BoardColor(Z - 1, Y) = Colour THEN
IF Color1 <> Color2 THEN
IF Color1 < Color2 THEN
ChangeColorGroup Colour, Group1, Group2: BoardColorGroup(Z, Y) = Group1
ELSE
ChangeColorGroup Colour, Group2, Group1: BoardColorGroup(Z, Y) = Group2
END IF
ELSE
BoardColorGroup(Z, Y) = Group1
END IF
ELSE
X = 0
IF BoardColor(Z, Y - 1) = Colour THEN BoardColorGroup(Z, Y) = Group1: X = 1
IF BoardColor(Z - 1, Y) = Colour THEN BoardColorGroup(Z, Y) = Group2: X = 1
IF X = 0 THEN BoardColorGroup(Z, Y) = NextColorGroup(Colour)
END IF
ELSEIF Y - 1 >= 1 THEN
IF BoardColor(Z, Y - 1) = BoardColor(Z, Y) THEN
BoardColorGroup(Z, Y) = BoardColorGroup(Z, Y - 1)
ELSE
BoardColorGroup(Z, Y) = NextColorGroup(Colour)
END IF
ELSEIF Z - 1 >= 1 THEN
IF BoardColor(Z - 1, Y) = BoardColor(Z, Y) THEN
BoardColorGroup(Z, Y) = BoardColorGroup(Z - 1, Y)
ELSE
BoardColorGroup(Z, Y) = NextColorGroup(Colour)
END IF
ELSE
BoardColorGroup(Z, Y) = NextColorGroup(Colour)
END IF
NEXT
PRINT
NEXT
' Set Group Counts to 0
FOR Z = 1 TO 6: FOR Y = 1 TO 6: ShapeGroupCount(Z, Y) = 0: ColorGroupCount(Z, Y) = 0: NEXT: NEXT
' Count Each Group
FOR Z = 1 TO 6
FOR Y = 1 TO 6
ShapeGroupCount(BoardShape(Z, Y), BoardShapeGroup(Z, Y)) = ShapeGroupCount(BoardShape(Z, Y), BoardShapeGroup(Z, Y)) + 1
ColorGroupCount(BoardColor(Z, Y), BoardColorGroup(Z, Y)) = ColorGroupCount(BoardColor(Z, Y), BoardColorGroup(Z, Y)) + 1
NEXT
NEXT
' Get Points for Each Group
FOR Z = 1 TO 6
FOR Y = 1 TO 6
ShapeGroupScore(Z, Y) = Points(ShapeGroupCount(Z, Y)): ColorGroupScore(Z, Y) = Points(ColorGroupCount(Z, Y))
NEXT
NEXT
' Get Scores for Each Shape and Color
FOR Z = 1 TO 6
ShapeScore(Z) = ShapeGroupScore(Z, 1) + ShapeGroupScore(Z, 2) + ShapeGroupScore(Z, 3) + ShapeGroupScore(Z, 4) + ShapeGroupScore(Z, 5) + ShapeGroupScore(Z, 6)
ColorScore(Z) = ColorGroupScore(Z, 1) + ColorGroupScore(Z, 2) + ColorGroupScore(Z, 3) + ColorGroupScore(Z, 4) + ColorGroupScore(Z, 5) + ColorGroupScore(Z, 6)
NEXT
' Get Player Scores
PlayerScore(1) = ShapeScore(1) + ShapeScore(2) + ShapeScore(3) + ShapeScore(4) + ShapeScore(5) + ShapeScore(6)
PlayerScore(2) = ColorScore(1) + ColorScore(2) + ColorScore(3) + ColorScore(4) + ColorScore(5) + ColorScore(6)
' Determine the Winner
IF PlayerScore(1) > PlayerScore(2) THEN Winner = 1 ELSE IF PlayerScore(2) > PlayerScore(1) THEN Winner = 2 ELSE Winner = 3
EndOfGame = Winner
END FUNCTION
SUB ChangeShapeGroup (Shape, A, B)
ShapeGroupOk(Shape, B) = 1
FOR Z = 1 TO 6
FOR Y = 1 TO 6
IF BoardShape(Z, Y) = Shape AND BoardShapeGroup(Z, Y) = B THEN BoardShapeGroup(Z, Y) = A
NEXT
NEXT
END SUB
SUB ChangeColorGroup (Colour, A, B)
ColorGroupOk(Colour, B) = 1
FOR Z = 1 TO 6
FOR Y = 1 TO 6
IF BoardColor(Z, Y) = Colour AND BoardColorGroup(Z, Y) = B THEN BoardColorGroup(Z, Y) = A
NEXT
NEXT
END SUB
FUNCTION NextShapeGroup (Shape)
X = 1
GetX: IF ShapeGroupOk(Shape, X) = 1 THEN ShapeGroupOk(Shape, X) = 0: NextShapeGroup = X ELSE X = X + 1: GOTO GetX
END FUNCTION
FUNCTION NextColorGroup (Colour)
X = 1
GetX: IF ColorGroupOk(Colour, X) = 1 THEN ColorGroupOk(Colour, X) = 0: NextColorGroup = X ELSE X = X + 1: GOTO GetX
END FUNCTION
SUB DisplayScores
LINE (772, 80)-(1296, 751), 11, BF
' Displau Player Info
COLOR 0, 11: _PRINTSTRING (800, 65), " Player 1 Player 2 "
COLOR 0, 11: _PRINTSTRING (800, 90), "Group Same Shape Group Same Color"
X = 165
FOR Z = 1 TO 6
DrawTile 870, X, Z, 10, 0: _PRINTSTRING (940, X - 10), STR$(ShapeScore(Z))
DrawTile 1145, X, 5, Z, 0: _PRINTSTRING (1215, X - 10), STR$(ColorScore(Z))
X = X + 85
NEXT
COLOR 0, 11: _PRINTSTRING (800, 640), "Player 1 Score: " + STR$(PlayerScore(1))
COLOR 0, 11: _PRINTSTRING (1070, 640), "Player 2 Score: " + STR$(PlayerScore(2))
END SUB![[Image: Aqualin-Screenshot.png]](https://i.ibb.co/47GRFKC/Aqualin-Screenshot.png)
![[Image: Aqualin-play4.webp]](https://i.ibb.co/L0Lv7tx/Aqualin-play4.webp)
Aqualin Description.pdf (Size: 40.94 KB / Downloads: 56)
Thanks
Donald