PitGame

;; PitGame v2.2 7 Feb 2017
;; world window version 2
;; requires NetLogo 6.0 or higher
;; by Doug Edmunds
;; based on the Pit card game

extensions [sound]

globals [deck  do-trade xcards1 xcards2 winner this-trader-g other-trader-g]

breed [players player]

players-own [cards keepers trade-set offered-cards offered-count]

to output-help
  output-print "Corn - yellow, Oats - white,"
  output-print "Wheat - blue, Flax - green"
  output-print "Dice show last traders"
end 

to setup
  ca
  set deck []
  set xcards1 []
  set xcards2 []
  set this-trader-g "--"
  set other-trader-g "--"
  set winner []
  set do-trade true
  create-players 4 [set cards [] set color red set label who set shape "circle" set xcor 1 set ycor 5 - who]
  repeat 9 [set deck fput "oats" deck]
  repeat 9 [set deck fput "corn" deck]
  repeat 9 [set deck fput "wheat" deck]
  repeat 9 [set deck fput "flax" deck]

  ;; if increasing the number of players, add 9 cards of another commodity, like barley

  repeat 9 [set deck shuffle deck]
  deal
  output-help
  reset-ticks
end 

to deal
  ask players [
    repeat 9 [
      set cards sentence cards first deck
      set deck but-first deck]
    set cards sort cards
    set keepers []
    set trade-set []
  ]
end 

to analyze-position
  output-print ""
  select-keepers
  select-offer
end 

to select-keepers
  set do-trade true

  foreach sort players [ [?1] ->
   ask ?1 [
    let most-cards one-of modes cards

;; leave this here for the setup
    let card-pos 1
    let this-xcor  xcor + 2
    let this-ycor  ycor
;    show list this-xcor this-ycor

    foreach cards [ [??1] ->
      if ??1 = "oats"  [ask patch this-xcor this-ycor [set pcolor white]]
      if ??1 = "corn"  [ask patch this-xcor this-ycor [set pcolor yellow]]
      if ??1 = "wheat" [ask patch this-xcor this-ycor [set pcolor blue]]
      if ??1 = "flax"  [ask patch this-xcor this-ycor [set pcolor green]]
      set this-xcor this-xcor + 1
      ]


    set keepers []
    set trade-set[]
    foreach cards [ [??1] -> ifelse ??1 = most-cards
      [set keepers lput ??1 keepers]
      [set trade-set lput ??1 trade-set] ]
    set trade-set sort trade-set
    output-show word "I am cornering " most-cards
    output-show word "My trade-set is " trade-set
    ]
   ]
  output-print "end select-keepers" output-print ""
end 

to select-offer
  foreach sort players [ [?1] ->
      ask ?1 [
      set offered-cards []
      set offered-count 0
      ;output-show word "I am player "  who
      if length trade-set > 0
        ;;create a list with no duplicates to trade away
        ;;pick one
        ;;figure out how many player has of the choice
        ;;offer random quantity up to maximum of that one
        [let no-dupe-list remove-duplicates trade-set
          let trade-pick one-of no-dupe-list
          set offered-count length filter [ [??1] -> ??1 = trade-pick ] trade-set
          ;; reduce to a random amount > 0, less than max
          ;; output-show word "before random: " offered-count
          set offered-count (random offered-count) + 1
          output-show (word "Player " who " offers " offered-count " (" trade-pick ")" )
          repeat offered-count [set offered-cards lput trade-pick offered-cards]
        ]

      ]
    ]
  ;; if more than one winner, whoever is first to ring the bell wins
  ask players [if length trade-set = 0 [output-show (word "Winner! (" item 1 cards ")" )
          sound:play-note "tubular bells" 100 111 2
          set winner lput who winner
          set do-trade false
          stop ]]

  output-print "end select-offer" output-print ""
end 

to find-and-make-trade
  output-print ""
  ask players [
    let my-count offered-count
    ;; do-trade is global, changed to false in make-trade
    if do-trade and any? other players with [offered-count  = my-count]
    [ make-trade my-count]


    let card-pos 1
    let this-xcor  xcor + 2
    let this-ycor  ycor
;    show list this-xcor this-ycor

    foreach cards [ [?1] ->
      if ?1 = "oats"  [ask patch this-xcor this-ycor [set pcolor white]]
      if ?1 = "corn"  [ask patch this-xcor this-ycor [set pcolor yellow]]
      if ?1 = "wheat" [ask patch this-xcor this-ycor [set pcolor blue]]
      if ?1 = "flax"  [ask patch this-xcor this-ycor [set pcolor green]]
      set this-xcor this-xcor + 1
      ]

  ]

    output-print "end find-and-make-trade" output-print ""
    tick
end 


;; this is done by a player, so output-show cards is that player's cards

to make-trade [my-count]
 ;exchange same number of cards
 ;then set do-trade false
 ;this bogs down if same cards are returned
 ;output-show sentence  who  offered-cards
 output-show offered-cards
 let other-trader nobody
 let this-trader who
 ask one-of other players with [offered-count = my-count]
    [ output-show offered-cards
      set other-trader who
      ]
 exchange-cards this-trader other-trader
 set do-trade false
end 

;; this is done by the same player from inside make-trade

to exchange-cards [this-trader other-trader]
  ask players [set shape "circle"]
  ask player this-trader [
    set shape "die 1"
    foreach offered-cards [ [?1] ->
    let pull-card-index position ?1 cards
    set cards remove-item pull-card-index cards
    ]]

  ask player other-trader [
    set shape "die 2"
    foreach offered-cards [ [?1] ->
    let pull-card-index position ?1 cards
    set cards remove-item pull-card-index cards
    ]]

    set this-trader-g this-trader
    set other-trader-g other-trader

    set xcards1 ([offered-cards] of player this-trader)
    set xcards2 ([offered-cards] of player other-trader)

    ask player this-trader  [set cards sentence cards xcards2]
    ask player other-trader [set cards sentence cards xcards1]
end