I need help with my Sorry! board game

[Donald Foster]

Hello Everyone,

I'm working on my Sorry game and ran into a problem that I can't figure out. I have put it a side and have been working on other parts of the game. But, even when the rest of the game is complete, I will still have this issue. So, I decided to see if some can figure why the code doesn't work correctly.

I have striped down the code to make it easier to follow. If anyone is familiar with the Sorry board, there a 4 large circles on the board know as the START area where their  pieces are placed at the start of the game. The game is setup for 4 players and you will see 4 playing pieces in each START area. Player 1 is blue, player 2 is green, player 3 is red and player 4 is gold.

To start a piece onto the board, each player left clicks the mouse pointer inside their START area and a piece moves from the START area and moves to the square next to their START area.

The problem I'm having is when selecting  the Player variable to 1 or 3, the piece moves just fine. But, when selecting 2 or 4, they won't work. I'll present the code and step you through the main areas.


_TITLE "Sorry! Board Game by Donald L. Foster Jr. 2020"

SCREEN _NEWIMAGE(1035, 735, 256)

_PALETTECOLOR 1, _RGB32(20, 255, 255) '       Board Background
_PALETTECOLOR 2, _RGB32(255, 80, 80) '       Lt Red
_PALETTECOLOR 3, _RGB32(255, 189, 51) '      Lt Yellow
_PALETTECOLOR 4, _RGB32(6, 180, 0) '         Lt Green
_PALETTECOLOR 5, _RGB32(0, 144, 183) '       Lt Blue
_PALETTECOLOR 6, _RGB32(205, 60, 60) '       Dk Red
_PALETTECOLOR 7, _RGB32(215, 149, 11) '      DK Yellow
_PALETTECOLOR 8, _RGB32(0, 150, 0) '         Dk Green
_PALETTECOLOR 9, _RGB32(0, 114, 153) '       Dk Blue
_PALETTECOLOR 10, _RGB32(10, 10, 10) '       Lt Black
_PALETTECOLOR 11, _RGB32(5, 5, 5)
_PALETTECOLOR 12, _RGB32(0, 84, 123) '       Blue Piece
_PALETTECOLOR 13, _RGB32(0, 120, 0) '        Green Piece
_PALETTECOLOR 14, _RGB32(175, 30, 30) '      Red Piece
_PALETTECOLOR 16, _RGB32(185, 129, 1) '      Yellow Piece
_PALETTECOLOR 17, _RGB32(2, 2, 2)
_PALETTECOLOR 18, _RGB32(133, 105, 139) '    Background
_PALETTECOLOR 19, _RGB32(111, 111, 111) '    Highlight Piece

RANDOMIZE TIMER

DIM BoardX(60), BoardY(60), BoardPlayer(60), Back(60), BoardPiece(60), BoardSpace(80), BoardPlay(60), Forward(80), Backward(80)
DIM CardEach(12), CardSorted(12), CardDeck(45), CardLines(12), Card$(12), CardText$(12, 5)
DIM P11(1373), P12(1373), P13(1373), P14(1373), P21(1373), P22(1373), P23(1373), P24(1373), P31(1373), P32(1373), P33(1373), P34(1373), P41(1373), P42(1373), P43(1373), P44(1373), Temp(1373)
DIM Box(1373)

FOR Z = 1 TO 60: BoardPlayer(Z) = 0: NEXT
FOR Z = 1 TO 4: FOR Y = 1 TO 4: AtStart(Z, Y) = 1: NEXT: NEXT

Start(1) = 4: Start(2) = 4: Start(3) = 0: Start(4) = 0: Home(1) = 0: Home(2) = 0: Home(3) = 0: Home(4) = 0



StartAreaX(1) = 616: StartAreaY(1) = 216: StartAreaX(2) = 117: StartAreaY(2) = 517: StartAreaX(3) = 216: StartAreaY(3) = 117: StartAreaX(4) = 517: StartAreaY(4) = 616



HomeAreaX(1) = 415: HomeAreaY(1) = 130: HomeAreaX(2) = 320: HomeAreaY(2) = 603: HomeAreaX(3) = 130: HomeAreaY(3) = 320: HomeAreaX(4) = 603: HomeAreaY(4) = 415

BoardStart(1) = 20: BoardStart(2) = 50: BoardStart(3) = 5: BoardStart(4) = 35
BoardHome(1) = 18: BoardHome(2) = 48: BoardHome(3) = 3: BoardHome(4) = 33


CardEach(0) = 4: CardEach(1) = 4: CardEach(2) = 4: CardEach(3) = 4: CardEach(4) = 4: CardEach(5) = 5: CardEach(6) = 4: CardEach(7) = 4: CardEach(8) = 4: CardEach(9) = 4: CardEach(10) = 4
CardLines(0) = 1: CardLines(1) = 3: CardLines(2) = 1: CardLines(3) = 1: CardLines(4) = 1: CardLines(5) = 3: CardLines(6) = 3: CardLines(7) = 3: CardLines(8) = 3: CardLines(9) = 1: CardLines(10) = 5

Card$(0) = "3": Card$(1) = "10": Card$(2) = "5": Card$(3) = "4": Card$(4) = "12": Card$(5) = "1": Card$(6) = "11": Card$(7) = "7": Card$(8) = "2": Card$(9) = "8": Card$(10) = "SORRY!"

CardText$(0, 1) = "   Move forward 3.  "
CardText$(1, 1) = " Move forward 10 or ": CardText$(1, 2) = "                    ": CardText$(1, 3) = "  move backward 1.  "
CardText$(2, 1) = "   Move forward 5.  "
CardText$(3, 1) = "  Move backward 4.  "
CardText$(4, 1) = "  Move forward 12.  "
CardText$(5, 1) = "  Move from Start   ": CardText$(5, 2) = "                    ": CardText$(5, 3) = " or move forward 1. "
CardText$(6, 1) = "  Move forward 11   ": CardText$(6, 2) = "  or change places  ": CardText$(6, 3) = "  with an opponent. "
CardText$(7, 1) = "   Move forward 7   ": CardText$(7, 2) = "  or split between  ": CardText$(7, 3) = "     two pawns.     "
CardText$(8, 1) = "  Move from Start   ": CardText$(8, 2) = " or move forward 2. ": CardText$(8, 3) = "     DRAW AGAIN.    "
CardText$(9, 1) = "   Move forward 8.  "
CardText$(10, 1) = "Move from Start and": CardText$(10, 2) = "   switch places    ": CardText$(10, 3) = "  with an opponent, ": CardText$(10, 4) = "   who you bump   ": CardText$(10, 5) = "   back to Start.   "



' Get Start Pawn X, Y Positions
FOR Z = 1 TO 4
    X1 = StartAreaX(Z): X2 = StartAreaY(Z)
    StartX(Z, 1) = X1 - 19: StartY(Z, 1) = X2 - 19
    StartX(Z, 2) = X1 + 19: StartY(Z, 2) = X2 - 19
    StartX(Z, 3) = X1 - 19: StartY(Z, 3) = X2 + 19
    StartX(Z, 4) = X1 + 19: StartY(Z, 4) = X2 + 19
NEXT



' Get Home Pawn X, Y Positions
FOR Z = 1 TO 4
    X1 = HomeAreaX(Z): X2 = HomeAreaY(Z)
    HomeX(Z, 1) = X1 - 19: HomeY(Z, 1) = X2 - 19
    HomeX(Z, 2) = X1 + 19: HomeY(Z, 2) = X2 - 19
    HomeX(Z, 3) = X1 - 19: HomeY(Z, 3) = X2 + 19
    HomeX(Z, 4) = X1 + 19: HomeY(Z, 4) = X2 + 19
NEXT

CLS , 18

' Draw Board
LINE (0, 0)-(735, 735), 1, BF
X1 = 44: X2 = 689
FOR Z = 1 TO 15
    LINE (X1 - 22, 22)-(X1 + 22, 66), 0, BF: LINE (X1 - 20, 24)-(X1 + 20, 64), 15, BF
    LINE (667, X1 - 22)-(711, X1 + 22), 0, BF: LINE (669, X1 - 20)-(709, X1 + 20), 15, BF
    LINE (X2 - 22, 667)-(X2 + 22, 711), 0, BF: LINE (X2 - 20, 669)-(X2 + 20, 709), 15, BF
    LINE (22, X2 - 22)-(66, X2 + 22), 0, BF: LINE (24, X2 - 20)-(64, X2 + 20), 15, BF
    BoardX(Z) = X1: BoardY(Z) = 44
    BoardX(15 + Z) = 689: BoardY(15 + Z) = X1
    BoardX(30 + Z) = X2: BoardY(30 + Z) = 689
    BoardX(45 + Z) = 44: BoardY(45 + Z) = X2
    X1 = X1 + 43: X2 = X2 - 43
NEXT

' Draw Border
PSET (5, 5), 0: DRAW "D12R12U12L12BF3P3,0BH3BR17C0R690D12L690U12BF3P2,0BH3BR707C0D12L12U12R12BG3P4,0BE3BD17C0D690L12U690R12BG3P5,0"
DRAW "BE3BD707C0L12U12R12D12BH3P2,0BF3BL17C0L690U12R690D12BH3P3,0BF3BL707C0U12R12D12L12BE3P5,0BG3BU17C0U690R12D690L12BE3P4,0"

' Draw Red Slides
LINE (BoardX(2) - 10, BoardY(2) - 10)-(BoardX(2) + 120, BoardY(2) + 10), 2, BF: LINE (BoardX(2) - 10, BoardY(2) - 10)-(BoardX(2) + 120, BoardY(2) + 10), 0, B
CIRCLE (BoardX(5), BoardY(5)), 16, 10: PAINT (BoardX(5), BoardY(5)), 6, 10: PSET (BoardX(2) + 6, BoardY(2)), 10: DRAW "H21D43E21BL3P6,10"
PSET (BoardX(6), BoardY(6)), 0: DRAW "H9D18E9BL3P6,0"
LINE (BoardX(10) - 10, BoardY(10) - 10)-(BoardX(10) + 165, BoardY(10) + 10), 2, BF: LINE (BoardX(10) - 10, BoardY(10) - 10)-(BoardX(10) + 165, BoardY(10) + 10), 0, B
CIRCLE (BoardX(14), BoardY(14)), 16, 10: PAINT (BoardX(14), BoardY(14)), 6, 10: PSET (BoardX(10) + 6, BoardY(10)), 10: DRAW "H21D43E21BL3P6,10"

' Draw Blue Slides
LINE (BoardX(17) - 10, BoardY(17) - 10)-(BoardX(17) + 10, BoardY(17) + 120), 5, BF: LINE (BoardX(17) - 10, BoardY(17) - 10)-(BoardX(17) + 10, BoardY(17) + 120), 0, B
CIRCLE (BoardX(20), BoardY(20)), 16, 10: PAINT (BoardX(20), BoardY(20)), 9, 10: PSET (BoardX(17), BoardY(17) + 6), 10: DRAW "E21L43F21BU3P9,10"
PSET (BoardX(21), BoardY(21)), 0: DRAW "E9L18F9BU3P9,0"
LINE (BoardX(25) - 10, BoardY(25) - 10)-(BoardX(25) + 10, BoardY(25) + 165), 5, BF: LINE (BoardX(25) - 10, BoardY(25) - 10)-(BoardX(25) + 10, BoardY(25) + 165), 0, B
CIRCLE (BoardX(29), BoardY(29)), 16, 10: PAINT (BoardX(29), BoardY(29)), 9, 10: PSET (BoardX(25), BoardY(25) + 6), 10: DRAW "E21L43F21BU3P9,10"

' Draw Yellow Slides
LINE (BoardX(32) + 10, BoardY(32) - 10)-(BoardX(32) - 120, BoardY(32) + 10), 3, BF: LINE (BoardX(32) + 10, BoardY(32) - 10)-(BoardX(32) - 120, BoardY(32) + 10), 0, B
CIRCLE (BoardX(35), BoardY(35)), 16, 10: PAINT (BoardX(35), BoardY(35)), 7, 10: PSET (BoardX(32) - 6, BoardY(32)), 10: DRAW "E21D43H21BR3P7,10"
PSET (BoardX(36), BoardY(36)), 0: DRAW "E9D18H9BR3P7,0"
LINE (BoardX(40) + 10, BoardY(40) - 10)-(BoardX(40) - 165, BoardY(40) + 10), 3, BF: LINE (BoardX(40) + 10, BoardY(40) - 10)-(BoardX(40) - 165, BoardY(40) + 10), 0, B
CIRCLE (BoardX(44), BoardY(44)), 16, 10: PAINT (BoardX(44), BoardY(44)), 7, 10: PSET (BoardX(40) - 6, BoardY(40)), 10: DRAW "E21D43H21BR3P7,10"

' Draw Green Slides
LINE (BoardX(47) - 10, BoardY(47) + 10)-(BoardX(47) + 10, BoardY(47) - 120), 4, BF: LINE (BoardX(47) - 10, BoardY(47) + 10)-(BoardX(47) + 10, BoardY(47) - 120), 0, B
CIRCLE (BoardX(50), BoardY(50)), 16, 10: PAINT (BoardX(50), BoardY(50)), 8, 10: PSET (BoardX(47), BoardY(47) - 6), 10: DRAW "F21L43E21BD3P8,10"
PSET (BoardX(51), BoardY(51)), 0: DRAW "F9L18E9BD3P8,0"
LINE (BoardX(55) - 10, BoardY(55) + 10)-(BoardX(55) + 10, BoardY(55) - 165), 4, BF: LINE (BoardX(55) - 10, BoardY(55) + 10)-(BoardX(55) + 10, BoardY(55) - 165), 0, B
CIRCLE (BoardX(59), BoardY(59)), 16, 10: PAINT (BoardX(59), BoardY(59)), 8, 10: PSET (BoardX(55), BoardY(55) - 6), 10: DRAW "F21L43E21BD3P8,10"


' Draw Red Arrow to Safe Zone
PSET (BoardX(3) - 20, BoardY(3) + 21), 15: DRAW "R41D1L41BL1" + "C10U12R42D2ND10G21H21D1F21E21U2ND12BL21BD15P15,10"
PSET (BoardX(3) - 37, BoardY(3) - 5), 11: DRAW "NR30F5G5R32D10L7F12E12L7U10"
CIRCLE (BoardX(3) - 5, BoardY(3) + 5), 10, 11, 0, 1.6: PAINT (BoardX(3) - 15, BoardY(3)), 6, 11

' Draw Blue Arrow to Safe Zone
PSET (BoardX(18) - 10, BoardY(18) - 21), 10: DRAW "D42NL12L2H21E21R2NL12L3G21F21BU10P15,10"
PSET (BoardX(18) + 5, BoardY(18) - 37), 11: DRAW "ND30G5H5D32L10U7G12F12U7R10"
CIRCLE (BoardX(18) - 5, BoardY(18) - 5), 10, 11, 4.5, .4: PAINT (BoardX(18), BoardY(18) - 18), 9, 11

' Draw Yellow Arrow to Safe Zone
PSET (BoardX(33) + 21, BoardY(33) - 10), 10: DRAW "L42NU12U2E21F21D2NU12U3H21G21BR10P15,10"
PSET (BoardX(33) + 37, BoardY(33) + 5), 11: DRAW "NL30H5E5L32U10R7H12G12R7D10"
CIRCLE (BoardX(33) + 5, BoardY(33) - 5), 10, 11, 3.0, 4.8: PAINT (BoardX(33) + 18, BoardY(33)), 7, 11

' Draw Green Arrow to Safe Zone
PSET (BoardX(48) + 10, BoardY(48) - 21), 10: DRAW "D42NR12R2E21H21L2NR12R3F21G21BU10P15,10"
PSET (BoardX(48) - 5, BoardY(48) + 37), 11: DRAW "NU30E5F5U32R10D7E12H12D7L10"
CIRCLE (BoardX(48) + 5, BoardY(48) + 5), 10, 11, 1.5, 3.4: PAINT (BoardX(48), BoardY(48) + 18), 8, 11


' Draw Red Home
CIRCLE (130, 320), 50, 15: PAINT (130, 320), 6, 15: CIRCLE (130, 320), 35, 2: PAINT (130, 320), 2

' Draw Blue Home
CIRCLE (415, 130), 50, 15: PAINT (415, 130), 9, 15: CIRCLE (415, 130), 35, 5: PAINT (415, 130), 5

' Draw Yellow Home
CIRCLE (603, 415), 50, 15: PAINT (603, 415), 7, 15: CIRCLE (603, 415), 35, 3: PAINT (603, 415), 3

' Draw Green Home
CIRCLE (320, 603), 50, 15: PAINT (320, 603), 8, 15: CIRCLE (320, 603), 35, 4: PAINT (320, 603), 4


' Draw Red Safe Zone
PSET (130, 87), 10: DRAW "BL21BU21D204F21E21U204BG10P2,10"
X = 87: FOR Z = 1 TO 4: PSET (109, X - 21), 0: DRAW "D42R42U42R1D43L44U44": SafeZoneX(3, Z) = 130: SafeZoneY(3, Z) = X: X = X + 43: NEXT
PSET (109, 238), 0: DRAW "D33F21E21U33R1D34G22H22U34": SafeZoneX(3, 5) = 130: SafeZoneY(3, 5) = 259

' Draw Blue Safe Zone
PSET (646, 130), 10: DRAW "BU21BR21L204G21F21R204BH10P5,10"
X = 646: FOR Z = 1 TO 4: PSET (X + 21, 109), 0: DRAW "L42D42R42D1L43U44R44": SafeZoneX(1, Z) = X: SafeZoneY(1, Z) = 130: X = X - 43: NEXT
PSET (495, 109), 0: DRAW "L33G21F21R33D1L34H22E22R34": SafeZoneX(1, 5) = 474: SafeZoneY(1, 5) = 130

' Draw Yellow Safe Zone
PSET (603, 646), 10: DRAW "BR21UBD21U204H21G21D204BE10P3,10"
X = 646: FOR Z = 1 TO 4: PSET (624, X + 21), 0: DRAW "U42L42D42L1U43R44D44": SafeZoneX(4, Z) = 603: SafeZoneY(4, Z) = X: X = X - 43: NEXT
PSET (624, 495), 0: DRAW "U33H21G21D33L1U34E22F22D34": SafeZoneX(4, 5) = 603: SafeZoneY(4, 5) = 474

' Draw Green Safe Zone
PSET (87, 603), 10: DRAW "BL21BU21R204F21G21L204BE10P4,10"
X = 87: FOR Z = 1 TO 4: PSET (X - 21, 624), 0: DRAW "R42U42L42U1R43D44L44": SafeZoneX(2, Z) = X: SafeZoneY(2, Z) = 603: X = X + 43: NEXT
PSET (238, 624), 0: DRAW "R33E21H21L33U1R34F22G22L34": SafeZoneX(2, 5) = 474: SafeZoneY(2, 5) = 603


' Draw Red Start
CIRCLE (216, 117), 50, 15: PAINT (216, 117), 6, 15: CIRCLE (216, 117), 35, 2: PAINT (216, 117), 2
PSET (216, 86), 0: DRAW "F9L18E9BD3P6,0"

' Draw Blue Start
CIRCLE (616, 216), 50, 15: PAINT (616, 216), 9, 15: CIRCLE (616, 216), 35, 5: PAINT (616, 216), 5
PSET (647, 216), 0: DRAW "H9D18E9BL3P9,0"

' Draw Yellow Start
CIRCLE (517, 616), 50, 15: PAINT (517, 616), 7, 15: CIRCLE (517, 616), 35, 3: PAINT (517, 616), 3
PSET (517, 647), 0: DRAW "E9L18F9BU3P7,0"

' Draw Green Start
CIRCLE (117, 517), 50, 15: PAINT (117, 517), 8, 15: CIRCLE (117, 517), 35, 4: PAINT (117, 517), 4
PSET (86, 517), 0: DRAW "E9D18H9BR3P8,0"



Players = 4



' Place Pawns on Start
FOR Z = 1 TO 4
    X1 = Z: X5 = 1
    X2 = 1: X3 = StartX(1, Z): X4 = StartY(1, Z): GOSUB GetPut: GOSUB DrawPiece
    X2 = 2: X3 = StartX(2, Z): X4 = StartY(2, Z): GOSUB GetPut: GOSUB DrawPiece
    IF Players > 2 THEN X2 = 3: X3 = StartX(3, Z): X4 = StartY(3, Z): Start(3) = 4: GOSUB GetPut: GOSUB DrawPiece
    IF Players = 4 THEN X2 = 4: X3 = StartX(4, Z): X4 = StartY(4, Z): Start(4) = 4: GOSUB GetPut: GOSUB DrawPiece
NEXT



Player = 1



StartGame:
' Draw Player Indicator
X2 = Player: X3 = 885: X4 = 70: GOSUB DrawPiece
COLOR 0, 18: LOCATE 7, 107: PRINT "Player:"; Player;

' Get Next Pawn in Start area
IF AtStart(Player, 1) = 1 THEN NextStart = 1 ELSE IF AtStart(Player, 2) = 1 THEN NextStart = 2 ELSE IF AtStart(Player, 3) = 1 THEN NextStart = 3 ELSE IF AtStart(Player, 4) = 1 THEN NextStart = 4 ELSE NextStart = 0
Card = CardDeck(CardsLeft)



Card = 5



' Draw plying card
X1 = 2: X2 = Card: GOSUB DrawCard



' Check for Playable moves
X = 0: GOSUB Playable


' Get Player Input
GetInput1:
DO WHILE _MOUSEINPUT


    IF CanStart = 1 THEN


        LOCATE 15, 105: PRINT "CanStart ="; CanStart;


        IF _MOUSEX > StartAreaX(Player) - 45 AND _MOUSEX < StartAreaX(Player) + 45 AND _MOUSEX > StartAreaY(Player) - 45 AND _MOUSEY < StartAreaY(Player) + 45 THEN StartSelected = 1 ELSE StartSelected = 0


        LOCATE 18, 102: PRINT "StartSelected ="; StartSelected;


        IF StartSelected = 1 AND _MOUSEBUTTON(1) = -1 THEN
            GOSUB ButtonRelease: StartPawn = 0: Space = BoardStart(Player)
            IF BoardPlayer(Space) > 0 THEN GOSUB BumpPiece
            X1 = NextStart: X2 = Player: X3 = StartX(Player, NextStart): X4 = StartY(Player, NextStart): X5 = 2: X6 = 18: GOSUB GetPut
            AtStart(Player, NextStart) = 0: BoardPlayer(Space) = Player: BoardPiece(Space) = NextStart
            X3 = BoardX(Space): X4 = BoardY(Space): GOSUB DrawPiece: GOTO MakeMove
        END IF
    END IF
LOOP
GOTO GetInput1


MakeMove:
SLEEP

DrawText:
COLOR 15, 0: LOCATE 1, 100: PRINT Text$;
Length = 8 * LEN(Text$)

FOR Height = 0 TO 17
    FOR Width = 0 TO Length
        IF POINT(791 + Width, Height) = 15 THEN PColor = 0 ELSE PColor = 1
        SELECT CASE Rotation
            CASE 1
                IF PColor = 0 THEN LINE (X1 + Width * Size, Y1 + Height * Size)-(X1 + Width * Size + Size, Y1 + Height * Size + Size), 0, BF
            CASE 2
                IF PColor = 0 THEN LINE (X1 - Height * Size, Y1 + Width * Size)-(X1 - Height * Size - Size, Y1 + Width * Size + Size), 0, BF
            CASE 3
                IF PColor = 0 THEN LINE (X1 - Width * Size, Y1 - Height * Size)-(X1 - Width * Size - Size, Y1 - Height * Size - Size), 0, BF
            CASE 4
                IF PColor = 0 THEN LINE (X1 + Height * Size, Y1 - Width * Size)-(X1 + Height * Size + Size, Y1 - Width * Size - Size), 0, BF
        END SELECT
    NEXT
NEXT

COLOR 0, 18: LOCATE 1, 100: PRINT STRING$(15, 32);

RETURN


DrawCard:

IF X1 = 1 THEN
    CIRCLE (805, 145), 15, 0, 1.5, 3.1: CIRCLE (970, 145), 15, 0, 0, 1.6: CIRCLE (805, 355), 15, 0, 3.0, 4.75: CIRCLE (970, 355), 15, 0, 4.5, 0
    LINE (805, 130)-(970, 130), 0: LINE (790, 145)-(790, 355), 0: LINE (985, 145)-(985, 355), 0: LINE (805, 370)-(970, 370), 0: PAINT (805, 145), 15, 0
    Text$ = "SORRY!": Size = 4: X1 = 912: Y1 = 152: Rotation = 2: GOSUB DrawText
END IF

IF X1 = 2 THEN
    CIRCLE (805, 415), 15, 0, 1.5, 3.1: CIRCLE (970, 415), 15, 0, 0, 1.6: CIRCLE (805, 625), 15, 0, 3.0, 4.75: CIRCLE (970, 625), 15, 0, 4.5, 0
    LINE (805, 400)-(970, 400), 0: LINE (790, 415)-(790, 625), 0: LINE (985, 415)-(985, 625), 0: LINE (805, 640)-(970, 640), 0: PAINT (805, 415), 15, 0

    SELECT CASE X2
        CASE 1, 5, 6, 7, 8
            StartText = 32
        CASE 0, 2, 3, 4, 9
            StartText = 33
        CASE ELSE
            StartText = 31
    END SELECT

    FOR Z1 = 1 TO CardLines(X2)
        COLOR 0, 15: LOCATE StartText + Z1 - 1, 102: PRINT CardText$(X2, Z1);
    NEXT

    Text$ = Card$(X2): Size = 3: X1 = 812: Y1 = 420: Rotation = 1: GOSUB DrawText
    Text$ = Card$(X2): Size = 3: X1 = 963: Y1 = 620: Rotation = 3: GOSUB DrawText
END IF
RETURN


Playable:
FOR Z = 1 TO 60: BoardSpace(Z) = 0: NEXT
SELECT CASE Card
    CASE 0
        ' Card - Move Pawn 3 Spaces Forward

    CASE 1
        ' Card - Move Pawn 10 Spaces Forward or 1 Space Backward

    CASE 2
        ' Card - Move Pawn 5 Spaces Forward

    CASE 3
        ' Card - Move Pawn 4 Spaces Backward

    CASE 4
        ' Card - Move Pawn 12 Spaces Forward

    CASE 5
        ' Card - Start Pawn or Move 1 Space Forward
        Forard = 0: CanStart = 0
        IF Start(Player) > 0 AND BoardStart(Player) <> Player THEN X = 1: CanStart = 1
        IF CanStart = 1 THEN COLOR 0, 18: LOCATE 42, 101: PRINT "Select your START area";: LOCATE 43, 97: PRINT "to move your pawn to the board";

    CASE 6
        ' Card - Move Pawn 11 Spaces Forward or Swap With opponent

    CASE 7
        ' Card - Move 1 or 2 Pawns 7 Spaces Forward


    CASE 8
        ' Card - Start Pawn or Move Pawn 2 Spaces Forward
        CanStart = 0: Forward = 0
        IF Start(Player) > 0 AND BoardStart(Player) <> Player THEN X = 1: CanStart = 1
        IF CanStart = 1 THEN COLOR 0, 18: LOCATE 42, 101: PRINT "Select your START area";: LOCATE 43, 97: PRINT "to move your pawn to the board";

    CASE 9
        ' Card - Move Pawn 8 Spaces Forward

    CASE 10
        ' Card - Sorry!

END SELECT
RETURN


GetPut:
SELECT CASE X2
    CASE 1
        SELECT CASE X1
            CASE 1
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P11() ELSE PUT (X3 - X6, X4 - X6), P11(), PSET
            CASE 2
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P12() ELSE PUT (X3 - X6, X4 - X6), P12(), PSET
            CASE 3
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P13() ELSE PUT (X3 - X6, X4 - X6), P13(), PSET
            CASE 4
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P14() ELSE PUT (X3 - X6, X4 - X6), P14(), PSET
        END SELECT
    CASE 2
        SELECT CASE X1
            CASE 1
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P21() ELSE PUT (X3 - X6, X4 - X6), P21(), PSET
            CASE 2
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P22() ELSE PUT (X3 - X6, X4 - X6), P22(), PSET
            CASE 3
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P23() ELSE PUT (X3 - X6, X4 - X6), P23(), PSET
            CASE 4
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P24() ELSE PUT (X3 - X6, X4 - X6), P24(), PSET
        END SELECT
    CASE 3
        SELECT CASE X1
            CASE 1
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P31() ELSE PUT (X3 - X6, X4 - X6), P31(), PSET
            CASE 2
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P32() ELSE PUT (X3 - X6, X4 - X6), P32(), PSET
            CASE 3
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P33() ELSE PUT (X3 - X6, X4 - X6), P33(), PSET
            CASE 4
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P34() ELSE PUT (X3 - X6, X4 - X6), P34(), PSET
        END SELECT
    CASE 4
        SELECT CASE X1
            CASE 1
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P41() ELSE PUT (X3 - X6, X4 - X6), P41(), PSET
            CASE 2
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P42() ELSE PUT (X3 - X6, X4 - X6), P42(), PSET
            CASE 3
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P43() ELSE PUT (X3 - X6, X4 - X6), P43(), PSET
            CASE 4
                IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P44() ELSE PUT (X3 - X6, X4 - X6), P44(), PSET
        END SELECT
END SELECT
RETURN


ButtonRelease:
DO WHILE _MOUSEINPUT
    IF _MOUSEBUTTON(1) = 0 THEN RETURN
LOOP
GOTO ButtonRelease


DrawPiece:
SELECT CASE X2
    CASE 1
        CIRCLE (X3, X4), 18, 17: PAINT (X3, X4), 12, 17: CIRCLE (X3, X4), 12, 9: PAINT (X3, X4), 9: CIRCLE (X3, X4), 6, 5: PAINT (X3, X4), 5
    CASE 2
        CIRCLE (X3, X4), 18, 17: PAINT (X3, X4), 13, 17: CIRCLE (X3, X4), 12, 8: PAINT (X3, X4), 8: CIRCLE (X3, X4), 6, 4: PAINT (X3, X4), 4
    CASE 3
        CIRCLE (X3, X4), 18, 17: PAINT (X3, X4), 14, 17: CIRCLE (X3, X4), 12, 6: PAINT (X3, X4), 6: CIRCLE (X3, X4), 6, 2: PAINT (X3, X4), 2
    CASE 4
        CIRCLE (X3, X4), 18, 17: PAINT (X3, X4), 16, 17: CIRCLE (X3, X4), 12, 7: PAINT (X3, X4), 7: CIRCLE (X3, X4), 6, 3: PAINT (X3, X4), 3
END SELECT
RETURN


BumpPiece:

RETURN



On line 38, we are setting up the X, Y locations of the center of each player's START area circle for Players 1 to 4.

On lines 68 to 74, a loop is setup to assign the X, Y locations of the center of each of the 4 pieces that are placed in each player's START area with the variable Z representing Player 1 to 4.

On line 210, we set the variable Players = 4 so the game knows to setup pieces at all 4 START areas.

On lines 215 to 221, a loop is setup to place 4 pieces on each player's START area. The variable Z is set for each piece that is placed in each START area. Notice that for Player's 3 and 4, the games checks to see the number of player before placing those pieces. Where as, players 1 and 2 are automatically placed. The game will normally ask for number of players 2 to 4. The number of players is no importance to the problem.

One line 225, we set the variable Player = 1 as to indicate player 1 will be taking their turn.

On line 240, we set the variable Card = 5. This is the card # assigned to Start a piece or move 1 space forward. Card # 8 can also be used. It Starts a piece or move 2 spaces forward. No other are functional in this code, but the cards are displayed. Cards are from 0 to 10.

On line 250, we call a subroutine to check if that card is playable. When Cards 5 or 8 pass the test, variable CanStart = 1.

On line 255, we setup the DO WHILE _MOUSEINPUT loop  to scan the board for moves.

On line 258, the variable CanStart is tested and passes. You can see on line 261, I PRINT the value of variable CanStart on the right side of the screen for proof.

On line 264 is where the problem shows up. The START area circle has a radius of 50 pixels. I'm checking the mouse X, Y location to see if it's inside the StartAreaX and StartAreaY square that is 91 X 91 for the current Player. if the test passes, the variable StartSelected = 1 ELSE StartSelected =0.

On line 267, I PRINT the value of variable StartSelected on the right side of the screen for proof. When the variable Player = 1 or 3 and you're hovering the mouse pointer inside that players START area, StartSelect changes to 1 and goes back to 0 as you leave. But, for Player 2 or 4, StartSelect stays at 0.

Clicking the left mouse button while inside player's 1 and 3 START area will move a piece to it's position on the board. You can change the variable Player on line 255 to represent each player and run the code.

So, why is player's 2 and 4 areas, green and gold, not working?

Thanks, Donald

 

[TempodiBasic]

Hi Donald
this time you miss codebox button before to paste your code...

here done!

Code: QB64: [Select]

1. _TITLE "Sorry! Board Game by Donald L. Foster Jr. 2020"
2.  
3. SCREEN _NEWIMAGE(1035, 735, 256)
4.  
5. _PALETTECOLOR 1, _RGB32(20, 255, 255) '       Board Background
6. _PALETTECOLOR 2, _RGB32(255, 80, 80) '       Lt Red
7. _PALETTECOLOR 3, _RGB32(255, 189, 51) '      Lt Yellow
8. _PALETTECOLOR 4, _RGB32(6, 180, 0) '         Lt Green
9. _PALETTECOLOR 5, _RGB32(0, 144, 183) '       Lt Blue
10. _PALETTECOLOR 6, _RGB32(205, 60, 60) '       Dk Red
11. _PALETTECOLOR 7, _RGB32(215, 149, 11) '      DK Yellow
12. _PALETTECOLOR 8, _RGB32(0, 150, 0) '         Dk Green
13. _PALETTECOLOR 9, _RGB32(0, 114, 153) '       Dk Blue
14. _PALETTECOLOR 10, _RGB32(10, 10, 10) '       Lt Black
15. _PALETTECOLOR 11, _RGB32(5, 5, 5)
16. _PALETTECOLOR 12, _RGB32(0, 84, 123) '       Blue Piece
17. _PALETTECOLOR 13, _RGB32(0, 120, 0) '        Green Piece
18. _PALETTECOLOR 14, _RGB32(175, 30, 30) '      Red Piece
19. _PALETTECOLOR 16, _RGB32(185, 129, 1) '      Yellow Piece
20. _PALETTECOLOR 17, _RGB32(2, 2, 2)
21. _PALETTECOLOR 18, _RGB32(133, 105, 139) '    Background
22. _PALETTECOLOR 19, _RGB32(111, 111, 111) '    Highlight Piece
23.  
24. RANDOMIZE TIMER
25.  
26. DIM BoardX(60), BoardY(60), BoardPlayer(60), Back(60), BoardPiece(60), BoardSpace(80), BoardPlay(60), Forward(80), Backward(80)
27. DIM CardEach(12), CardSorted(12), CardDeck(45), CardLines(12), Card$(12), CardText$(12, 5)
28. DIM P11(1373), P12(1373), P13(1373), P14(1373), P21(1373), P22(1373), P23(1373), P24(1373), P31(1373), P32(1373), P33(1373), P34(1373), P41(1373), P42(1373), P43(1373), P44(1373), Temp(1373)
29. DIM Box(1373)
30.  
31. FOR Z = 1 TO 60: BoardPlayer(Z) = 0: NEXT
32. FOR Z = 1 TO 4: FOR Y = 1 TO 4: AtStart(Z, Y) = 1: NEXT: NEXT
33.  
34. Start(1) = 4: Start(2) = 4: Start(3) = 0: Start(4) = 0: Home(1) = 0: Home(2) = 0: Home(3) = 0: Home(4) = 0
35.  
36.  
37.  
38. StartAreaX(1) = 616: StartAreaY(1) = 216: StartAreaX(2) = 117: StartAreaY(2) = 517: StartAreaX(3) = 216: StartAreaY(3) = 117: StartAreaX(4) = 517: StartAreaY(4) = 616
39.  
40.  
41.  
42. HomeAreaX(1) = 415: HomeAreaY(1) = 130: HomeAreaX(2) = 320: HomeAreaY(2) = 603: HomeAreaX(3) = 130: HomeAreaY(3) = 320: HomeAreaX(4) = 603: HomeAreaY(4) = 415
43.  
44. BoardStart(1) = 20: BoardStart(2) = 50: BoardStart(3) = 5: BoardStart(4) = 35
45. BoardHome(1) = 18: BoardHome(2) = 48: BoardHome(3) = 3: BoardHome(4) = 33
46.  
47.  
48. CardEach(0) = 4: CardEach(1) = 4: CardEach(2) = 4: CardEach(3) = 4: CardEach(4) = 4: CardEach(5) = 5: CardEach(6) = 4: CardEach(7) = 4: CardEach(8) = 4: CardEach(9) = 4: CardEach(10) = 4
49. CardLines(0) = 1: CardLines(1) = 3: CardLines(2) = 1: CardLines(3) = 1: CardLines(4) = 1: CardLines(5) = 3: CardLines(6) = 3: CardLines(7) = 3: CardLines(8) = 3: CardLines(9) = 1: CardLines(10) = 5
50.  
51. Card$(0) = "3": Card$(1) = "10": Card$(2) = "5": Card$(3) = "4": Card$(4) = "12": Card$(5) = "1": Card$(6) = "11": Card$(7) = "7": Card$(8) = "2": Card$(9) = "8": Card$(10) = "SORRY!"
52.  
53. CardText$(0, 1) = "   Move forward 3.  "
54. CardText$(1, 1) = " Move forward 10 or ": CardText$(1, 2) = "                    ": CardText$(1, 3) = "  move backward 1.  "
55. CardText$(2, 1) = "   Move forward 5.  "
56. CardText$(3, 1) = "  Move backward 4.  "
57. CardText$(4, 1) = "  Move forward 12.  "
58. CardText$(5, 1) = "  Move from Start   ": CardText$(5, 2) = "                    ": CardText$(5, 3) = " or move forward 1. "
59. CardText$(6, 1) = "  Move forward 11   ": CardText$(6, 2) = "  or change places  ": CardText$(6, 3) = "  with an opponent. "
60. CardText$(7, 1) = "   Move forward 7   ": CardText$(7, 2) = "  or split between  ": CardText$(7, 3) = "     two pawns.     "
61. CardText$(8, 1) = "  Move from Start   ": CardText$(8, 2) = " or move forward 2. ": CardText$(8, 3) = "     DRAW AGAIN.    "
62. CardText$(9, 1) = "   Move forward 8.  "
63. CardText$(10, 1) = "Move from Start and": CardText$(10, 2) = "   switch places    ": CardText$(10, 3) = "  with an opponent, ": CardText$(10, 4) = "   who you bump   ": CardText$(10, 5) = "   back to Start.   "
64.  
65.  
66.  
67. ' Get Start Pawn X, Y Positions
68. FOR Z = 1 TO 4
69.     X1 = StartAreaX(Z): X2 = StartAreaY(Z)
70.     StartX(Z, 1) = X1 - 19: StartY(Z, 1) = X2 - 19
71.     StartX(Z, 2) = X1 + 19: StartY(Z, 2) = X2 - 19
72.     StartX(Z, 3) = X1 - 19: StartY(Z, 3) = X2 + 19
73.     StartX(Z, 4) = X1 + 19: StartY(Z, 4) = X2 + 19
74. NEXT
75.  
76.  
77.  
78. ' Get Home Pawn X, Y Positions
79. FOR Z = 1 TO 4
80.     X1 = HomeAreaX(Z): X2 = HomeAreaY(Z)
81.     HomeX(Z, 1) = X1 - 19: HomeY(Z, 1) = X2 - 19
82.     HomeX(Z, 2) = X1 + 19: HomeY(Z, 2) = X2 - 19
83.     HomeX(Z, 3) = X1 - 19: HomeY(Z, 3) = X2 + 19
84.     HomeX(Z, 4) = X1 + 19: HomeY(Z, 4) = X2 + 19
85. NEXT
86.  
87. CLS , 18
88.  
89. ' Draw Board
90. LINE (0, 0)-(735, 735), 1, BF
91. X1 = 44: X2 = 689
92. FOR Z = 1 TO 15
93.     LINE (X1 - 22, 22)-(X1 + 22, 66), 0, BF: LINE (X1 - 20, 24)-(X1 + 20, 64), 15, BF
94.     LINE (667, X1 - 22)-(711, X1 + 22), 0, BF: LINE (669, X1 - 20)-(709, X1 + 20), 15, BF
95.     LINE (X2 - 22, 667)-(X2 + 22, 711), 0, BF: LINE (X2 - 20, 669)-(X2 + 20, 709), 15, BF
96.     LINE (22, X2 - 22)-(66, X2 + 22), 0, BF: LINE (24, X2 - 20)-(64, X2 + 20), 15, BF
97.     BoardX(Z) = X1: BoardY(Z) = 44
98.     BoardX(15 + Z) = 689: BoardY(15 + Z) = X1
99.     BoardX(30 + Z) = X2: BoardY(30 + Z) = 689
100.     BoardX(45 + Z) = 44: BoardY(45 + Z) = X2
101.     X1 = X1 + 43: X2 = X2 - 43
102. NEXT
103.  
104. ' Draw Border
105. PSET (5, 5), 0: DRAW "D12R12U12L12BF3P3,0BH3BR17C0R690D12L690U12BF3P2,0BH3BR707C0D12L12U12R12BG3P4,0BE3BD17C0D690L12U690R12BG3P5,0"
106. DRAW "BE3BD707C0L12U12R12D12BH3P2,0BF3BL17C0L690U12R690D12BH3P3,0BF3BL707C0U12R12D12L12BE3P5,0BG3BU17C0U690R12D690L12BE3P4,0"
107.  
108. ' Draw Red Slides
109. LINE (BoardX(2) - 10, BoardY(2) - 10)-(BoardX(2) + 120, BoardY(2) + 10), 2, BF: LINE (BoardX(2) - 10, BoardY(2) - 10)-(BoardX(2) + 120, BoardY(2) + 10), 0, B
110. CIRCLE (BoardX(5), BoardY(5)), 16, 10: PAINT (BoardX(5), BoardY(5)), 6, 10: PSET (BoardX(2) + 6, BoardY(2)), 10: DRAW "H21D43E21BL3P6,10"
111. PSET (BoardX(6), BoardY(6)), 0: DRAW "H9D18E9BL3P6,0"
112. LINE (BoardX(10) - 10, BoardY(10) - 10)-(BoardX(10) + 165, BoardY(10) + 10), 2, BF: LINE (BoardX(10) - 10, BoardY(10) - 10)-(BoardX(10) + 165, BoardY(10) + 10), 0, B
113. CIRCLE (BoardX(14), BoardY(14)), 16, 10: PAINT (BoardX(14), BoardY(14)), 6, 10: PSET (BoardX(10) + 6, BoardY(10)), 10: DRAW "H21D43E21BL3P6,10"
114.  
115. ' Draw Blue Slides
116. LINE (BoardX(17) - 10, BoardY(17) - 10)-(BoardX(17) + 10, BoardY(17) + 120), 5, BF: LINE (BoardX(17) - 10, BoardY(17) - 10)-(BoardX(17) + 10, BoardY(17) + 120), 0, B
117. CIRCLE (BoardX(20), BoardY(20)), 16, 10: PAINT (BoardX(20), BoardY(20)), 9, 10: PSET (BoardX(17), BoardY(17) + 6), 10: DRAW "E21L43F21BU3P9,10"
118. PSET (BoardX(21), BoardY(21)), 0: DRAW "E9L18F9BU3P9,0"
119. LINE (BoardX(25) - 10, BoardY(25) - 10)-(BoardX(25) + 10, BoardY(25) + 165), 5, BF: LINE (BoardX(25) - 10, BoardY(25) - 10)-(BoardX(25) + 10, BoardY(25) + 165), 0, B
120. CIRCLE (BoardX(29), BoardY(29)), 16, 10: PAINT (BoardX(29), BoardY(29)), 9, 10: PSET (BoardX(25), BoardY(25) + 6), 10: DRAW "E21L43F21BU3P9,10"
121.  
122. ' Draw Yellow Slides
123. LINE (BoardX(32) + 10, BoardY(32) - 10)-(BoardX(32) - 120, BoardY(32) + 10), 3, BF: LINE (BoardX(32) + 10, BoardY(32) - 10)-(BoardX(32) - 120, BoardY(32) + 10), 0, B
124. CIRCLE (BoardX(35), BoardY(35)), 16, 10: PAINT (BoardX(35), BoardY(35)), 7, 10: PSET (BoardX(32) - 6, BoardY(32)), 10: DRAW "E21D43H21BR3P7,10"
125. PSET (BoardX(36), BoardY(36)), 0: DRAW "E9D18H9BR3P7,0"
126. LINE (BoardX(40) + 10, BoardY(40) - 10)-(BoardX(40) - 165, BoardY(40) + 10), 3, BF: LINE (BoardX(40) + 10, BoardY(40) - 10)-(BoardX(40) - 165, BoardY(40) + 10), 0, B
127. CIRCLE (BoardX(44), BoardY(44)), 16, 10: PAINT (BoardX(44), BoardY(44)), 7, 10: PSET (BoardX(40) - 6, BoardY(40)), 10: DRAW "E21D43H21BR3P7,10"
128.  
129. ' Draw Green Slides
130. LINE (BoardX(47) - 10, BoardY(47) + 10)-(BoardX(47) + 10, BoardY(47) - 120), 4, BF: LINE (BoardX(47) - 10, BoardY(47) + 10)-(BoardX(47) + 10, BoardY(47) - 120), 0, B
131. CIRCLE (BoardX(50), BoardY(50)), 16, 10: PAINT (BoardX(50), BoardY(50)), 8, 10: PSET (BoardX(47), BoardY(47) - 6), 10: DRAW "F21L43E21BD3P8,10"
132. PSET (BoardX(51), BoardY(51)), 0: DRAW "F9L18E9BD3P8,0"
133. LINE (BoardX(55) - 10, BoardY(55) + 10)-(BoardX(55) + 10, BoardY(55) - 165), 4, BF: LINE (BoardX(55) - 10, BoardY(55) + 10)-(BoardX(55) + 10, BoardY(55) - 165), 0, B
134. CIRCLE (BoardX(59), BoardY(59)), 16, 10: PAINT (BoardX(59), BoardY(59)), 8, 10: PSET (BoardX(55), BoardY(55) - 6), 10: DRAW "F21L43E21BD3P8,10"
135.  
136.  
137. ' Draw Red Arrow to Safe Zone
138. PSET (BoardX(3) - 20, BoardY(3) + 21), 15: DRAW "R41D1L41BL1" + "C10U12R42D2ND10G21H21D1F21E21U2ND12BL21BD15P15,10"
139. PSET (BoardX(3) - 37, BoardY(3) - 5), 11: DRAW "NR30F5G5R32D10L7F12E12L7U10"
140. CIRCLE (BoardX(3) - 5, BoardY(3) + 5), 10, 11, 0, 1.6: PAINT (BoardX(3) - 15, BoardY(3)), 6, 11
141.  
142. ' Draw Blue Arrow to Safe Zone
143. PSET (BoardX(18) - 10, BoardY(18) - 21), 10: DRAW "D42NL12L2H21E21R2NL12L3G21F21BU10P15,10"
144. PSET (BoardX(18) + 5, BoardY(18) - 37), 11: DRAW "ND30G5H5D32L10U7G12F12U7R10"
145. CIRCLE (BoardX(18) - 5, BoardY(18) - 5), 10, 11, 4.5, .4: PAINT (BoardX(18), BoardY(18) - 18), 9, 11
146.  
147. ' Draw Yellow Arrow to Safe Zone
148. PSET (BoardX(33) + 21, BoardY(33) - 10), 10: DRAW "L42NU12U2E21F21D2NU12U3H21G21BR10P15,10"
149. PSET (BoardX(33) + 37, BoardY(33) + 5), 11: DRAW "NL30H5E5L32U10R7H12G12R7D10"
150. CIRCLE (BoardX(33) + 5, BoardY(33) - 5), 10, 11, 3.0, 4.8: PAINT (BoardX(33) + 18, BoardY(33)), 7, 11
151.  
152. ' Draw Green Arrow to Safe Zone
153. PSET (BoardX(48) + 10, BoardY(48) - 21), 10: DRAW "D42NR12R2E21H21L2NR12R3F21G21BU10P15,10"
154. PSET (BoardX(48) - 5, BoardY(48) + 37), 11: DRAW "NU30E5F5U32R10D7E12H12D7L10"
155. CIRCLE (BoardX(48) + 5, BoardY(48) + 5), 10, 11, 1.5, 3.4: PAINT (BoardX(48), BoardY(48) + 18), 8, 11
156.  
157.  
158. ' Draw Red Home
159. CIRCLE (130, 320), 50, 15: PAINT (130, 320), 6, 15: CIRCLE (130, 320), 35, 2: PAINT (130, 320), 2
160.  
161. ' Draw Blue Home
162. CIRCLE (415, 130), 50, 15: PAINT (415, 130), 9, 15: CIRCLE (415, 130), 35, 5: PAINT (415, 130), 5
163.  
164. ' Draw Yellow Home
165. CIRCLE (603, 415), 50, 15: PAINT (603, 415), 7, 15: CIRCLE (603, 415), 35, 3: PAINT (603, 415), 3
166.  
167. ' Draw Green Home
168. CIRCLE (320, 603), 50, 15: PAINT (320, 603), 8, 15: CIRCLE (320, 603), 35, 4: PAINT (320, 603), 4
169.  
170.  
171. ' Draw Red Safe Zone
172. PSET (130, 87), 10: DRAW "BL21BU21D204F21E21U204BG10P2,10"
173. X = 87: FOR Z = 1 TO 4: PSET (109, X - 21), 0: DRAW "D42R42U42R1D43L44U44": SafeZoneX(3, Z) = 130: SafeZoneY(3, Z) = X: X = X + 43: NEXT
174. PSET (109, 238), 0: DRAW "D33F21E21U33R1D34G22H22U34": SafeZoneX(3, 5) = 130: SafeZoneY(3, 5) = 259
175.  
176. ' Draw Blue Safe Zone
177. PSET (646, 130), 10: DRAW "BU21BR21L204G21F21R204BH10P5,10"
178. X = 646: FOR Z = 1 TO 4: PSET (X + 21, 109), 0: DRAW "L42D42R42D1L43U44R44": SafeZoneX(1, Z) = X: SafeZoneY(1, Z) = 130: X = X - 43: NEXT
179. PSET (495, 109), 0: DRAW "L33G21F21R33D1L34H22E22R34": SafeZoneX(1, 5) = 474: SafeZoneY(1, 5) = 130
180.  
181. ' Draw Yellow Safe Zone
182. PSET (603, 646), 10: DRAW "BR21UBD21U204H21G21D204BE10P3,10"
183. X = 646: FOR Z = 1 TO 4: PSET (624, X + 21), 0: DRAW "U42L42D42L1U43R44D44": SafeZoneX(4, Z) = 603: SafeZoneY(4, Z) = X: X = X - 43: NEXT
184. PSET (624, 495), 0: DRAW "U33H21G21D33L1U34E22F22D34": SafeZoneX(4, 5) = 603: SafeZoneY(4, 5) = 474
185.  
186. ' Draw Green Safe Zone
187. PSET (87, 603), 10: DRAW "BL21BU21R204F21G21L204BE10P4,10"
188. X = 87: FOR Z = 1 TO 4: PSET (X - 21, 624), 0: DRAW "R42U42L42U1R43D44L44": SafeZoneX(2, Z) = X: SafeZoneY(2, Z) = 603: X = X + 43: NEXT
189. PSET (238, 624), 0: DRAW "R33E21H21L33U1R34F22G22L34": SafeZoneX(2, 5) = 474: SafeZoneY(2, 5) = 603
190.  
191.  
192. ' Draw Red Start
193. CIRCLE (216, 117), 50, 15: PAINT (216, 117), 6, 15: CIRCLE (216, 117), 35, 2: PAINT (216, 117), 2
194. PSET (216, 86), 0: DRAW "F9L18E9BD3P6,0"
195.  
196. ' Draw Blue Start
197. CIRCLE (616, 216), 50, 15: PAINT (616, 216), 9, 15: CIRCLE (616, 216), 35, 5: PAINT (616, 216), 5
198. PSET (647, 216), 0: DRAW "H9D18E9BL3P9,0"
199.  
200. ' Draw Yellow Start
201. CIRCLE (517, 616), 50, 15: PAINT (517, 616), 7, 15: CIRCLE (517, 616), 35, 3: PAINT (517, 616), 3
202. PSET (517, 647), 0: DRAW "E9L18F9BU3P7,0"
203.  
204. ' Draw Green Start
205. CIRCLE (117, 517), 50, 15: PAINT (117, 517), 8, 15: CIRCLE (117, 517), 35, 4: PAINT (117, 517), 4
206. PSET (86, 517), 0: DRAW "E9D18H9BR3P8,0"
207.  
208.  
209.  
210. Players = 4
211.  
212.  
213.  
214. ' Place Pawns on Start
215. FOR Z = 1 TO 4
216.     X1 = Z: X5 = 1
217.     X2 = 1: X3 = StartX(1, Z): X4 = StartY(1, Z): GOSUB GetPut: GOSUB DrawPiece
218.     X2 = 2: X3 = StartX(2, Z): X4 = StartY(2, Z): GOSUB GetPut: GOSUB DrawPiece
219.     IF Players > 2 THEN X2 = 3: X3 = StartX(3, Z): X4 = StartY(3, Z): Start(3) = 4: GOSUB GetPut: GOSUB DrawPiece
220.     IF Players = 4 THEN X2 = 4: X3 = StartX(4, Z): X4 = StartY(4, Z): Start(4) = 4: GOSUB GetPut: GOSUB DrawPiece
221. NEXT
222.  
223.  
224. Player = 1
225.  
226.  
227.  
228. StartGame:
229. ' Draw Player Indicator
230. X2 = Player: X3 = 885: X4 = 70: GOSUB DrawPiece
231. COLOR 0, 18: LOCATE 7, 107: PRINT "Player:"; Player;
232. ' Get Next Pawn in Start area
233. IF AtStart(Player, 1) = 1 THEN NextStart = 1 ELSE IF AtStart(Player, 2) = 1 THEN NextStart = 2 ELSE IF AtStart(Player, 3) = 1 THEN NextStart = 3 ELSE IF AtStart(Player, 4) = 1 THEN NextStart = 4 ELSE NextStart = 0
234. Card = CardDeck(CardsLeft)
235.  
236.  
237.  
238. Card = 5
239.  
240.  
241.  
242. ' Draw plying card
243. X1 = 2: X2 = Card: GOSUB DrawCard
244.  
245.  
246.  
247. ' Check for Playable moves
248. X = 0: GOSUB Playable
249.  
250.  
251. ' Get Player Input
252. GetInput1:
253. DO WHILE _MOUSEINPUT
254.  
255.  
256.     IF CanStart = 1 THEN
257.  
258.  
259.         LOCATE 15, 105: PRINT "CanStart ="; CanStart;
260.  
261.  
262.         IF _MOUSEX > StartAreaX(Player) - 45 AND _MOUSEX < StartAreaX(Player) + 45 AND _MOUSEX > StartAreaY(Player) - 45 AND _MOUSEY < StartAreaY(Player) + 45 THEN StartSelected = 1 ELSE StartSelected = 0
263.  
264.  
265.         LOCATE 18, 102: PRINT "StartSelected ="; StartSelected;
266.  
267.  
268.         IF StartSelected = 1 AND _MOUSEBUTTON(1) = -1 THEN
269.             GOSUB ButtonRelease: StartPawn = 0: Space = BoardStart(Player)
270.             IF BoardPlayer(Space) > 0 THEN GOSUB BumpPiece
271.             X1 = NextStart: X2 = Player: X3 = StartX(Player, NextStart): X4 = StartY(Player, NextStart): X5 = 2: X6 = 18: GOSUB GetPut
272.             AtStart(Player, NextStart) = 0: BoardPlayer(Space) = Player: BoardPiece(Space) = NextStart
273.             X3 = BoardX(Space): X4 = BoardY(Space): GOSUB DrawPiece: GOTO MakeMove
274.         END IF
275.     END IF
276. LOOP
277. GOTO GetInput1
278.  
279.  
280. MakeMove:
281. SLEEP
282.  
283. DrawText:
284. COLOR 15, 0: LOCATE 1, 100: PRINT Text$;
285. Length = 8 * LEN(Text$)
286.  
287. FOR Height = 0 TO 17
288.     FOR Width = 0 TO Length
289.         IF POINT(791 + Width, Height) = 15 THEN PColor = 0 ELSE PColor = 1
290.         SELECT CASE Rotation
291.             CASE 1
292.                 IF PColor = 0 THEN LINE (X1 + Width * Size, Y1 + Height * Size)-(X1 + Width * Size + Size, Y1 + Height * Size + Size), 0, BF
293.             CASE 2
294.                 IF PColor = 0 THEN LINE (X1 - Height * Size, Y1 + Width * Size)-(X1 - Height * Size - Size, Y1 + Width * Size + Size), 0, BF
295.             CASE 3
296.                 IF PColor = 0 THEN LINE (X1 - Width * Size, Y1 - Height * Size)-(X1 - Width * Size - Size, Y1 - Height * Size - Size), 0, BF
297.             CASE 4
298.                 IF PColor = 0 THEN LINE (X1 + Height * Size, Y1 - Width * Size)-(X1 + Height * Size + Size, Y1 - Width * Size - Size), 0, BF
299.         END SELECT
300.     NEXT
301. NEXT
302.  
303. COLOR 0, 18: LOCATE 1, 100: PRINT STRING$(15, 32);
304.  
305. RETURN
306.  
307.  
308. DrawCard:
309.  
310. IF X1 = 1 THEN
311.     CIRCLE (805, 145), 15, 0, 1.5, 3.1: CIRCLE (970, 145), 15, 0, 0, 1.6: CIRCLE (805, 355), 15, 0, 3.0, 4.75: CIRCLE (970, 355), 15, 0, 4.5, 0
312.     LINE (805, 130)-(970, 130), 0: LINE (790, 145)-(790, 355), 0: LINE (985, 145)-(985, 355), 0: LINE (805, 370)-(970, 370), 0: PAINT (805, 145), 15, 0
313.     Text$ = "SORRY!": Size = 4: X1 = 912: Y1 = 152: Rotation = 2: GOSUB DrawText
314. END IF
315.  
316. IF X1 = 2 THEN
317.     CIRCLE (805, 415), 15, 0, 1.5, 3.1: CIRCLE (970, 415), 15, 0, 0, 1.6: CIRCLE (805, 625), 15, 0, 3.0, 4.75: CIRCLE (970, 625), 15, 0, 4.5, 0
318.     LINE (805, 400)-(970, 400), 0: LINE (790, 415)-(790, 625), 0: LINE (985, 415)-(985, 625), 0: LINE (805, 640)-(970, 640), 0: PAINT (805, 415), 15, 0
319.  
320.     SELECT CASE X2
321.         CASE 1, 5, 6, 7, 8
322.             StartText = 32
323.         CASE 0, 2, 3, 4, 9
324.             StartText = 33
325.         CASE ELSE
326.             StartText = 31
327.     END SELECT
328.  
329.     FOR Z1 = 1 TO CardLines(X2)
330.         COLOR 0, 15: LOCATE StartText + Z1 - 1, 102: PRINT CardText$(X2, Z1);
331.     NEXT
332.  
333.     Text$ = Card$(X2): Size = 3: X1 = 812: Y1 = 420: Rotation = 1: GOSUB DrawText
334.     Text$ = Card$(X2): Size = 3: X1 = 963: Y1 = 620: Rotation = 3: GOSUB DrawText
335. END IF
336. RETURN
337.  
338.  
339. Playable:
340. FOR Z = 1 TO 60: BoardSpace(Z) = 0: NEXT
341. SELECT CASE Card
342.     CASE 0
343.         ' Card - Move Pawn 3 Spaces Forward
344.  
345.     CASE 1
346.         ' Card - Move Pawn 10 Spaces Forward or 1 Space Backward
347.  
348.     CASE 2
349.         ' Card - Move Pawn 5 Spaces Forward
350.  
351.     CASE 3
352.         ' Card - Move Pawn 4 Spaces Backward
353.  
354.     CASE 4
355.         ' Card - Move Pawn 12 Spaces Forward
356.  
357.     CASE 5
358.         ' Card - Start Pawn or Move 1 Space Forward
359.         Forard = 0: CanStart = 0
360.         IF Start(Player) > 0 AND BoardStart(Player) <> Player THEN X = 1: CanStart = 1
361.         IF CanStart = 1 THEN COLOR 0, 18: LOCATE 42, 101: PRINT "Select your START area";: LOCATE 43, 97: PRINT "to move your pawn to the board";
362.  
363.     CASE 6
364.         ' Card - Move Pawn 11 Spaces Forward or Swap With opponent
365.  
366.     CASE 7
367.         ' Card - Move 1 or 2 Pawns 7 Spaces Forward
368.  
369.  
370.     CASE 8
371.         ' Card - Start Pawn or Move Pawn 2 Spaces Forward
372.         CanStart = 0: Forward = 0
373.         IF Start(Player) > 0 AND BoardStart(Player) <> Player THEN X = 1: CanStart = 1
374.         IF CanStart = 1 THEN COLOR 0, 18: LOCATE 42, 101: PRINT "Select your START area";: LOCATE 43, 97: PRINT "to move your pawn to the board";
375.  
376.     CASE 9
377.         ' Card - Move Pawn 8 Spaces Forward
378.  
379.     CASE 10
380.         ' Card - Sorry!
381.  
382. END SELECT
383. RETURN
384.  
385.  
386. GetPut:
387. ' preferirei
388. ' if x5 = 1 then
389. '     select case X2
390. '               select case x1
391.  
392. SELECT CASE X2
393.     CASE 1
394.         SELECT CASE X1
395.             CASE 1
396.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P11() ELSE PUT (X3 - X6, X4 - X6), P11(), PSET
397.             CASE 2
398.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P12() ELSE PUT (X3 - X6, X4 - X6), P12(), PSET
399.             CASE 3
400.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P13() ELSE PUT (X3 - X6, X4 - X6), P13(), PSET
401.             CASE 4
402.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P14() ELSE PUT (X3 - X6, X4 - X6), P14(), PSET
403.         END SELECT
404.     CASE 2
405.         SELECT CASE X1
406.             CASE 1
407.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P21() ELSE PUT (X3 - X6, X4 - X6), P21(), PSET
408.             CASE 2
409.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P22() ELSE PUT (X3 - X6, X4 - X6), P22(), PSET
410.             CASE 3
411.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P23() ELSE PUT (X3 - X6, X4 - X6), P23(), PSET
412.             CASE 4
413.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P24() ELSE PUT (X3 - X6, X4 - X6), P24(), PSET
414.         END SELECT
415.     CASE 3
416.         SELECT CASE X1
417.             CASE 1
418.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P31() ELSE PUT (X3 - X6, X4 - X6), P31(), PSET
419.             CASE 2
420.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P32() ELSE PUT (X3 - X6, X4 - X6), P32(), PSET
421.             CASE 3
422.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P33() ELSE PUT (X3 - X6, X4 - X6), P33(), PSET
423.             CASE 4
424.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P34() ELSE PUT (X3 - X6, X4 - X6), P34(), PSET
425.         END SELECT
426.     CASE 4
427.         SELECT CASE X1
428.             CASE 1
429.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P41() ELSE PUT (X3 - X6, X4 - X6), P41(), PSET
430.             CASE 2
431.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P42() ELSE PUT (X3 - X6, X4 - X6), P42(), PSET
432.             CASE 3
433.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P43() ELSE PUT (X3 - X6, X4 - X6), P43(), PSET
434.             CASE 4
435.                 IF X5 = 1 THEN GET (X3 - 18, X4 - 18)-(X3 + 18, X4 + 18), P44() ELSE PUT (X3 - X6, X4 - X6), P44(), PSET
436.         END SELECT
437. END SELECT
438. RETURN
439.  
440.  
441. ButtonRelease:
442. DO WHILE _MOUSEINPUT
443.     IF _MOUSEBUTTON(1) = 0 THEN RETURN
444. LOOP
445. GOTO ButtonRelease
446.  
447.  
448. DrawPiece:
449. SELECT CASE X2
450.     CASE 1
451.         CIRCLE (X3, X4), 18, 17: PAINT (X3, X4), 12, 17: CIRCLE (X3, X4), 12, 9: PAINT (X3, X4), 9: CIRCLE (X3, X4), 6, 5: PAINT (X3, X4), 5
452.     CASE 2
453.         CIRCLE (X3, X4), 18, 17: PAINT (X3, X4), 13, 17: CIRCLE (X3, X4), 12, 8: PAINT (X3, X4), 8: CIRCLE (X3, X4), 6, 4: PAINT (X3, X4), 4
454.     CASE 3
455.         CIRCLE (X3, X4), 18, 17: PAINT (X3, X4), 14, 17: CIRCLE (X3, X4), 12, 6: PAINT (X3, X4), 6: CIRCLE (X3, X4), 6, 2: PAINT (X3, X4), 2
456.     CASE 4
457.         CIRCLE (X3, X4), 18, 17: PAINT (X3, X4), 16, 17: CIRCLE (X3, X4), 12, 7: PAINT (X3, X4), 7: CIRCLE (X3, X4), 6, 3: PAINT (X3, X4), 3
458. END SELECT
459. RETURN
460.  
461.  
462. BumpPiece:
463.  
464. RETURN
465.  
466.  

IMHO I have trouble to understand why fixed X3 X4 changes the position of player symbol on the board at this point

Code: QB64: [Select]

1. Player = 1  ' <-- here you suggest to change to try with players 2 and 4 that have troubles
2.  
3.  
4.  
5. StartGame:
6. ' Draw Player Indicator
7. X2 = Player: X3 = 885: X4 = 70: GOSUB DrawPiece 'here x3 and x4 have fixed equals for all players but works only for player 1 and 3
8. COLOR 0, 18: LOCATE 7, 107: PRINT "Player:"; Player;

[Donald Foster]

Sorry for not posting the code properly. I'm also not good at inseting quotes.

Player = 1  ' <-- here you suggest to change to try with players 2 and 4 that have troubles
Yes, this is the line to change the player number.

X2 = Player: X3 = 885: X4 = 70: GOSUB DrawPiece 'here x3 and x4 have fixed equals for all players but works only for player 1 and 3
This line of code draws the playing piece of the player who's turn it is in the upper right area of the screen. This code does work properly and is unrelated to the problem.

[Richard]

It may not be relevant for this topic but :-

If you used the newer Windows 10 builds - with EDGE you cannot use the code, quote, etc, etc buttons.

Very old Windows 10 builds (EDGE), Internet Explorer, etc allow proper use of the Code, Quote, Bold, etc buttons.

[TempodiBasic]

@Donald Foster you're right I have given just a quick look at the code...
but I think to be lucky in the second time!

I've found a mistyping that is rised out from the logic of your constructed statement

see here the results:
player 2

  [ You are not allowed to view this attachment ]  

player 4
  [ You are not allowed to view this attachment ]  

here the fixed code

Code: QB64: [Select]

1.        IF _MOUSEX > StartAreaX(Player) - 45 AND _MOUSEX < StartAreaX(Player) + 45 AND _MOUSEY > StartAreaY(Player) - 45 AND _MOUSEY < StartAreaY(Player) + 45 THEN StartSelected = 1 ELSE StartSelected = 0

where is the problem? After a correct test of X vs _mouseX there is a incorrect test of Y vs _mouseX (1st control) e vs _mouseY (2nd control) at line 263

Thanks to share!
I find your applications well suited! I have thinked that is not possible to get clear graphics using internal statement of graphic on fly.
And you prove the contrary

[Donald Foster]

TempodiBasic,

Thank you very much! I had studied and studied that line knowing that's where the problem was a didn't spot that. I am so grateful. I try not have to ask or help, but I thank you.

I very much enjoy hand drawing my board and pieces using graphics statements. It can be challenging sometimes and it doesn't always come out the way I pictured it in my mind before I start.

Thanks again, Donald

[Pete]

Maybe that third _MOUSEX was just self-identifying as _MOUSEY.

Nice Find, TB!

Pete

PS: Gorgeous graphics, Donald.

[Donald Foster]

Pete,

Yes the third _MOUSEX was suppose to be _MOUSEY. You don't know how many times I followed every character on that line and still missed.
 
Thank you Pete on the compliment on the graphics. That took almost a week just to make the board, but I didn't mind.

Thanks again Everyone, Donald

[Dav]

I'm late to the thread, but just wanted to tag along to what Pete said - the hand-coded QB graphics are beautiful, Donald.  Great work.

- Dav

[Donald Foster]

Thank you Dav and I've been working hard to get this game up and running. I still have sections not completed yet and a lot of bugs to iron out still. I will be uploading it as soon as it's complete.

Take care Donald

[Qwerkey]

Donald, when you have finished the project, please remember to place it in Programs, not QB64 Discussion.  When there, the Librarians may wish to place it in Games.

[Donald Foster]

Thank you very much Qwerkey for the info, that's the plan.

Donald

[STxAxTIC]

On that note Donald, I remember you have quite the game portfolio at this point. Can you point us to each of them so that they may be properly immortalized on this forum?

[Pete]

Sorry Bill, QB64 doesn't have pointers. Maybe he could link them?

You know at QBF, we had a section called: Programs I Am Proud Of. It allowed every contributor to have a sub-section of the the forum, under his/her name, so they could showcase their finished works. Maybe something the Odin Trinity would want to consider here?

If not, don't mind me, I just like to throw stuff out once in awhile. Hey, has anyone seen Clippy, lately?
 
Pete

[Donald Foster]

Only small handful of my games on this forum. I've been meaning to port the rest of them here, but haven't done it. Most of my games are on [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] and Walter's website. Here's a link to all of my games at Walter's site: https://qb64.thejoyfulprogrammer.com/forumdisplay.php?fid=461

I will port them here, but I'll copy the text from Walters site and past into each as I port them.

Thank you for the continued interest in my games. Donald


Never mind, I was in this tread when I searched.