inst/worker/worker.R

In PTalarek/CarCards: Classic Car Cards game

library(CarCards)
library(dplyr)

source('inst/config/config.R')

# download cards
cards = download_data_sql(dbname, host, username, password)

# split cards beetween players
split_cards(cards) %>%
  list2env(envir=.GlobalEnv)

# who starts
attacking_player = draw_starting_player(2)

while (nrow(cards_player1) > 0 & nrow(cards_player2) > 0){

  defending_player = setdiff(1:2, attacking_player)

  # attacking player gets first card from the stack
  draw_cards('attacking', 1) %>%
    list2env(envir=.GlobalEnv)

  # defending player get first card from the stack
  draw_cards('defending', 1) %>%
    list2env(envir=.GlobalEnv)

  round_end = FALSE

  while(round_end == FALSE){

    # show attacking card
    attacking_card = attacking_stack %>%
      tail(1)
    attacking_card_image = get_card_image(attacking_card)
    attacking_card_image

    # select attribute
    selected_attr = paste0(paste0('player_', attacking_player, '_name') %>%
                             get(), ', select attribute: ') %>%
      readline()

    # show defending card
    defending_card = defending_stack %>%
      tail(1)
    defending_card_image = get_card_image(defending_card)
    defending_card_image

    # get attacking attribute value
    attacking_attr = attacking_card %>%
      select(selected_attr) %>%
      pull()

    # get defending attribute value
    defending_attr = defending_stack %>%
      tail(1) %>%
      select(selected_attr) %>%
      pull()

    Sys.sleep(3)

    # 1 - attacking player wins, 2 - defending player wins, 0 - draw
    if (attacking_attr > defending_attr) {
      round_result = 1
      round_end = TRUE
    } else if (attacking_attr < defending_attr) {
      round_result = 2
      round_end = TRUE
    } else if (attacking_attr == defending_attr) {

      # if at least one of the players doesn't have any more cards select
      # different attribute for the same cards
      if ('cards_player' %>%
          paste0(attacking_player) %>%
          get() %>%
          nrow() == 0 |
          'cards_player' %>%
          paste0(defending_player) %>%
          get() %>%
          nrow() == 0) {

      } else {
        # add two additional cards if possible
        # if one or two players don't ave 2 cards left add just one
        new_cards_n = min(nrow(cards_player1), nrow(cards_player2), 2)

        # add cards to attacking stack
        attacking_stack = attacking_stack %>%
          bind_rows('cards_player' %>%
                      paste0(attacking_player) %>%
                      get() %>%
                      head(new_cards_n))

        # remove the cards from attacking player's main stack
        assign('cards_player' %>%
                 paste0(attacking_player),
               'cards_player' %>%
                 paste0(attacking_player) %>%
                 get() %>%
                 tail(-new_cards_n))

        # add cards to defending stack
        defending_stack = defending_stack %>%
          bind_rows('cards_player' %>%
                      paste0(defending_player) %>%
                      get() %>%
                      head(new_cards_n))

        # remove the cards from defending player's main stack
        assign('cards_player' %>%
                 paste0(defending_player),
               'cards_player' %>%
                 paste0(defending_player) %>%
                 get() %>%
                 tail(-new_cards_n))
      }
      print('Draw!')

    } else {
      round_result = 'error'
      print(round_result)
    }
  }


  # Invert round results for inverted attributes
  if (round_result %in% c(1, 2) & selected_attr %in% inverted_attrs){
    round_result = setdiff(1:2, round_result)
  }

  if (round_result == 1) {
    winning_player = attacking_player
  } else if (round_result == 2) {
    winning_player = defending_player
  } else {
    round_result = 'error'
    print(round_result)
  }

  paste0(paste0('player_', winning_player, '_name') %>%
           get(), ' wins the round!') %>%
    print()

  Sys.sleep(2)

  # winner take all cards that were used in the round
  winners_stack = attacking_stack %>%
    bind_rows(defending_stack) %>%
    slice(., sample(1:n()))

  if (winning_player == 1){
    cards_player1 = cards_player1 %>%
      bind_rows(winners_stack)
  } else if (winning_player == 2){
    cards_player2 = cards_player2 %>%
      bind_rows(winners_stack)
  }

  paste0(player_1_name, ' ', nrow(cards_player1), ':', nrow(cards_player2), ' ',
         player_2_name) %>%
    print()
  print(' ')
  print(' ')

  attacking_player = winning_player

  if (nrow(cards_player1) == 0){
    paste0(player_2_name, ' wins the game!') %>%
      print()
  } else if (nrow(cards_player2) == 0){
    paste0(player_1_name, ' wins the game!') %>%
      print()
  }
}