FOAC Strategy: qualitativeThree, now with a preference for the person called by the first person on the couch.

qualitativeThreeCouchCaller.rb

# Keep track of who has three pseudonyms, forgetting one in order to remember a better one
class StrategyqualitativeThreeCouchCaller
 def initialize(parent)
  @strategy = parent
  @player = @strategy.player
  @memory = @strategy.memory
 end

 def remember(calledName, calledTeam, calledPosition, calledPseudonym, callerName)
   # if someone called a number being remembered
  if @memory.value?(calledPseudonym)
   # delete the now obsolete memory
   @memory.delete_if {|key, value| value == calledPseudonym}
  end
  # if someone called me and I got their number
  if @memory.value?(@player.pseudonym)
   # delete the now obsolete memory
   @memory.delete_if {|key, value| value == @player.pseudonym}
  end
  # if my memory is full and I was not it
  if @memory.length == 3 and callerName != @player.name
   # determine usefulness of the new one
   uselessness = 5
   # if they are on the couch and not on my team
   if $positions[callerName] < 5 and $teams[callerName] != @player.team
    uselessness = 0
   # if they are on my team I might be able to call them to the couch
   elsif $teams[callerName] == @player.team
    uselessness = 1
   # if they are in the position which the first person on the couch calls to,
   #  we can call them away and then get a known identity for the first person on the couch
   elsif $positions[callerName] == $playerCount + 1
    uselessness = 2
   end
   # loop through players and find if any are worth losing to store the new one
   inutility = 0
   inutilePlayer = nil
   @memory.reject{|key, value| value == calledPseudonym }.each do |mem|
    # if the player is on the couch and they are not on my team
    if $positions[mem.first] < 5 and $teams[mem.first] != @player.team
     if inutility == 0
      inutility = 0
      inutilePlayer = mem.first     
     end
    # if they are on my team I might be able to call them to the couch
    elsif $teams[mem.first] == @player.team
     if inutility < 1
      inutility = 1
      inutilePlayer = mem.first
     end
    # if they are in the position which the first person on the couch calls to,
    #  we can call them away and then get a known identity for the first person on the couch
    elsif $positions[mem.first] == $playerCount + 1
     if inutility < 2
      inutility = 2
      inutilePlayer = mem.first
     end
    elsif inutility < 3
     inutility = 3
     inutilePlayer = mem.first     
    end
   end
   # if the new one is more useful than the old one
   if uselessness < inutility and inutilePlayer
    # delete the inutile player
    @memory.delete(inutilePlayer)
   end
  end
  # if there are less than three items in my memory and I was not it
  if @memory.length < 3 and callerName != @player.name
   # remember the it has the number that was just called because they traded
   @memory[callerName] = calledPseudonym
  end
 end

 def think
  selection = $players.reject { |a| a == @player.pseudonym or a == @strategy.lastPseudonym }.sample
  # loop through remembered numbers
  evil = 6
  @memory.reject{|key, value| value == @strategy.lastPseudonym }.each do |mem|
   # if I can call someone to the couch and the remembered number is on my team
   if @player.position > 1 and @player.position < 6 and $teams[mem.first] == @player.team
    if evil > 0
     # lets stick them on
     selection = mem.last
     evil = 0
    end
   # if the remembered number is not on my team and they are on the couch
   elsif $teams[mem.first] != @player.team and $positions[mem.first] < 5
    if evil > 1
     # lets pull them off
     selection = mem.last
     evil = 1
    end
   # if they are in the position which the first person on the couch calls to,
   #  we can call them away and then get a known identity for the first person on the couch
   elsif $positions[mem.first] == $playerCount + 1
    if evil > 2
     selection = mem.last
     evil = 2
    end
   # if they are not on the couch and are not being called to the couch we can't hurt much
   elsif $positions[mem.first] > 4 and @player.position.between?(2,5) != true
    if evil > 3
     # call them but don't break loop yet in case the next number is better
     selection = mem.last
     evil = 3
    end
   # if I can call someone to the couch but the remembered number is not on my team, better a random number, with theirs rejected.
   elsif @player.position > 1 and @player.position < 6 and $teams[mem.first] != @player.team
    if evil > 4
     selection = $players.reject { |a| a == @player.pseudonym or a == @strategy.lastPseudonym or a == mem.last}.sample
     evil = 4
    end
   # if they are on my team and they are on the couch, better a random number, with theirs rejected. If I am able to call to the couch, this will have already been caught.
   elsif $teams[mem.first] == @player.team and $positions[mem.first] < 5
    if evil > 5
     selection = $players.reject { |a| a == @player.pseudonym or a == @strategy.lastPseudonym or a == mem.last}.sample
     evil = 5
    end
   else
    # this is for debugging purposes
    puts "else called in strategy qualitativeThreeCouchCaller.rb"
    puts @player.team
    puts $teams[mem.first]
    puts @player.position
    puts $positions[mem.first]
   end
  end
  return selection
 end
end