updated folded card display to show back of cards

Author: NZSPY

Client/Atari/FujiLlama.bas

@@ -274,7 +274,6 @@ DO
     @checkErrors
   UNTIL OK=1
 
-  
   REPEAT ' loop until the  game starts
     if Time>500
       @readGameState
@@ -293,7 +292,7 @@ DO
       ENDIF
       if playerStatus(PlayerIndex)<>1
           @readGameState
-         @DrawGameState
+          @DrawGameState
       ENDIF
     @ReadKeyPresses
     if GameStatus(tablenumber)=4 then @ShowResults
@@ -446,16 +445,20 @@ PROC ReadKeyPresses
     @CheckVaildMove K
     @ClearKeyQueue
   EliF K=193 AND GameStatus(tablenumber)=2
+    @GoodBeep
     @StartGame
     @readGameState
     @ClearKeyQueue
   Elif K=237
     @CycleColorTheme
   Elif K=198
+    @GoodBeep
     @DisplayHelpDialog
   Elif K=213
+    @GoodBeep
     @AskSure 1 
   Elif K=208
+    @GoodBeep
     @AskSure 2 
   ENDIF
 ENDPROC
@@ -486,10 +489,31 @@ PROC CheckVaildMove _move
     ENDIF
   Next a
   if Move$<>"" 
-    @GoodBeep      
-    @POS 1,24: @Print&"PLAYED MOVE:                           "
+    @GoodBeep
+    @POS 1,24: @Print &"                                       "      
+    @POS 1,24: @Print &PlayerName$(PlayerIndex)
+    @POS Len(PlayerName$(PlayerIndex))+1,24:@Print &" PLAYED A "
+    if move$="1"
+      @Print &"ONE"
+      elif move$="2"
+      @Print &"TWO"
+      elif move$="3"
+      @Print &"THREE"
+      elif move$="4"
+      @Print &"FOUR"
+      elif move$="5"
+      @Print &"FIVE"
+      elif move$="6"
+      @Print &"SIX"
+      elif move$="7"
+      @Print &"LLAMA"
+      elif move$="D"
+      @POS Len(PlayerName$(PlayerIndex))+1,24:@PrintUpper &" drew a card from the deck"
+      elif move$="F"
+      @POS Len(PlayerName$(PlayerIndex))+1,24:@Print &" FOLDED                   "
+    ENDIF
     @PlayMove
-    @readGameState
+    playerStatus(PlayerIndex)=0
   ELSE
     @BadBeep
   ENDIF
@@ -923,20 +947,23 @@ PROC DrawMainPlayerHand _Index
   XX=((36-(PlayerHandCount(DisplayIndex)*4))/2)+2
   for a=1 to len(PlayerHand$(DisplayIndex))
     card=VAL(PlayerHand$(DisplayIndex)[a,1])
+    if playerStatus(DisplayIndex)=2 then card=8 ' if folded show back of card
     @DrawCard XX,YY,card
     XX=XX+4
   next a
   elif PlayerHandCount(DisplayIndex)<10 ' more than 8 cards so print cards closer together
   XX=((36-(PlayerHandCount(DisplayIndex)*3))/2)+2
   for a=1 to len(PlayerHand$(DisplayIndex))
     card=VAL(PlayerHand$(DisplayIndex)[a,1])
+    if playerStatus(DisplayIndex)=2 then card=8 ' if folded show back of card
     @DrawCard XX,YY,card
     XX=XX+3
  next a
  else ' more than 10 cards so print even closer together
   XX=((36-(PlayerHandCount(DisplayIndex)*2)+1)/2)+2
   for a=1 to len(PlayerHand$(DisplayIndex))
     card=VAL(PlayerHand$(DisplayIndex)[a,1])
+    if playerStatus(DisplayIndex)=2 then card=8 ' if folded show back of card
     @DrawCard XX,YY,card
     XX=XX+2
  next a
@@ -1119,10 +1146,12 @@ PROC DrawPlayers
     @POS X+Xoffset,YPOS(SLOT): @Print &":"
     @POS X+Xoffset+1,YPOS(SLOT): @PrintVal PlayerStatus(a)
     @DrawPlayerScore X+Xoffset+2,YPOS(SLOT),PlayerBlackTokens(a),PlayerWhiteTokens(a)
+    folded=0
+    if playerStatus(a)=2 then folded=128
     if slot=2 
-    @DrawPlayerHand XPOS(SLOT)+((38-(PlayerHandCount(a)+2))/2),YPOS(SLOT)+2,PlayerHandCount(a)
+    @DrawPlayerHand XPOS(SLOT)+((38-(PlayerHandCount(a)+2))/2),YPOS(SLOT)+2,PlayerHandCount(a),folded
     else
-    @DrawPlayerHand XPOS(SLOT)+((14-(PlayerHandCount(a)+2))/2),YPOS(SLOT)+2,PlayerHandCount(a)
+    @DrawPlayerHand XPOS(SLOT)+((14-(PlayerHandCount(a)+2))/2),YPOS(SLOT)+2,PlayerHandCount(a),folded
     ENDIF
   endif
   inc SLOT
@@ -1131,13 +1160,13 @@ PROC DrawPlayers
  if PlayerHandCount(playerIndex)>0 then @DrawMainPlayerHand Playerindex
 ENDPROC
 
-PROC DrawPlayerHand _col _row _numCards 
+PROC DrawPlayerHand _col _row _numCards _folded
   if _numCards=0 then exit
-  XXX=_col:YYY=_row
+  XXX=_col:YYY=_row:folded=_folded
   if _numCards>12 then _numCards=12
   for i=1 to _numCards
-  @POS (XXX+i)-1,YYY:@PrintByte 13:@PrintByte 14
-  @POS (XXX+i)-1,YYY+1:@PrintByte 15:@PrintByte 27
+  @POS (XXX+i)-1,YYY:@PrintByte 13+folded:@PrintByte 14+folded
+  @POS (XXX+i)-1,YYY+1:@PrintByte 15+folded:@PrintByte 27+folded
   next i
 ENDPROC
 

Client/Atari/bin/FujiLlama.xex

@@ -505,22 +505,22 @@ func getGameState(c *gin.Context) {
 	idlePlayerChange(tableIndex)
 }
 
-// check if any human players have disconnected ? (IE not polled the game state for over 5 minutes) and turn them into AI players
+// check if any human players have disconnected ? (IE not polled the game state for over 3 minutes) and turn them into AI players
 func idlePlayerChange(tableIndex int) {
 	for i := 0; i < len(gameStates[tableIndex].Players); i++ {
 		player := &gameStates[tableIndex].Players[i]
-		if time.Since(player.LastPolledTime) > 5*time.Minute && player.Human {
+		if time.Since(player.LastPolledTime) > 3*time.Minute && player.Human {
 			gameStates[tableIndex].Players[i].Human = false                                         // Change the player to an AI player
 			gameStates[tableIndex].Players[i].Name = gameStates[tableIndex].Players[i].Name + "-AI" // Change the player name to indicate they are now an AI player
 		}
 	}
 }
 
-// check if any human players have disconnected (IE not polled the game state for over 10 minutes) and remove them from the table
+// check if any human players have disconnected (IE not polled the game state for over 5 minutes) and remove them from the table
 func idlePlayerRemoval(tableIndex int) {
 	for i := 0; i < len(gameStates[tableIndex].Players); i++ {
 		player := &gameStates[tableIndex].Players[i]
-		if time.Since(player.LastPolledTime) > 10*time.Minute && player.Human {
+		if time.Since(player.LastPolledTime) > 5*time.Minute && player.Human {
 			// Remove the player from the table
 			gameStates[tableIndex].Players = append(gameStates[tableIndex].Players[:i], gameStates[tableIndex].Players[i+1:]...)
 			gameStates[tableIndex].Table.CurPlayers--