OSDN Git Service

Added some module functions related to DateTime or Time.
[shogi-server/shogi-server.git] / shogi_server / game.rb
index fadb5e6..e920105 100644 (file)
 ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 require 'shogi_server/league/floodgate'
-require 'observer'
+require 'shogi_server/game_result'
 
 module ShogiServer # for a namespace
 
-# MonitorObserver obserers GameResult to send messages to the monotors
-# watching the game
-#
-class MonitorObserver
-  def update(game_result)
-    game_result.game.each_monitor do |monitor|
-      monitor.write_safe("##[MONITOR][%s] %s\n" % [game_result.game.game_id, game_result.type])
-    end
-  end
-end
-
-# Base class for a game result
-#
-class GameResult
-  include Observable
-
-  # Game object
-  attr_reader :game
-  # Array of players
-  attr_reader :players
-  # Black player object
-  attr_reader :black
-  # White plyer object
-  attr_reader :white
-  # Command to send monitors such as '%%TORYO' etc...
-  attr_reader :result_type
-
-  def initialize(game, p1, p2)
-    @game = game
-    @players = [p1, p2]
-    if p1.sente && !p2.sente
-      @black, @white = p1, p2
-    elsif !p1.sente && p2.sente
-      @black, @white = p2, p1
-    else
-      raise "Never reached!"
-    end
-    @players.each do |player|
-      player.status = "connected"
-    end
-    @result_type = ""
-
-    regist_observers
-  end
-
-  def regist_observers
-    add_observer MonitorObserver.new
-
-    if League::Floodgate.game_name?(@game.game_name) &&
-       @game.sente.player_id &&
-       @game.gote.player_id &&
-       $options["floodgate-history"]
-      add_observer League::Floodgate::History.factory
-    end
-  end
-
-  def process
-    raise "Implement me!"
-  end
-
-  def notify
-    changed
-    notify_observers(self)
-  end
-
-  def log(str)
-    @game.log_game(str)
-  end
-
-  def log_board
-    log(@game.board.to_s.gsub(/^/, "\'"))
-  end
-
-end
-
-class GameResultWin < GameResult
-  attr_reader :winner, :loser
-
-  def initialize(game, winner, loser)
-    super
-    @winner, @loser = winner, loser
-    @winner.last_game_win = true
-    @loser.last_game_win  = false
-  end
-
-  def log_summary(type)
-    log_board
-
-    black_result = white_result = ""
-    if @black == @winner
-      black_result = "win"
-      white_result = "lose"
-    else
-      black_result = "lose"
-      white_result = "win"
-    end
-    log("'summary:%s:%s %s:%s %s\n" % [type, 
-                                       @black.name, black_result,
-                                       @white.name, white_result])
-
-  end
-end
-
-class GameResultAbnormalWin < GameResultWin
-  def process
-    @winner.write_safe("%TORYO\n#RESIGN\n#WIN\n")
-    @loser.write_safe( "%TORYO\n#RESIGN\n#LOSE\n")
-    log("%%TORYO\n")
-    log_summary("abnormal")
-    @result_type = "%%TORYO"
-    notify
-  end
-end
-
-class GameResultTimeoutWin < GameResultWin
-  def process
-    @winner.write_safe("#TIME_UP\n#WIN\n")
-    @loser.write_safe( "#TIME_UP\n#LOSE\n")
-    log_summary("time up")
-    @result_type = "#TIME_UP"
-    notify
-  end
-end
-
-# A player declares (successful) Kachi
-class GameResultKachiWin < GameResultWin
-  def process
-    @winner.write_safe("%KACHI\n#JISHOGI\n#WIN\n")
-    @loser.write_safe( "%KACHI\n#JISHOGI\n#LOSE\n")
-    log("%%KACHI\n")
-    log_summary("kachi")
-    @result_type = "%%KACHI"
-    notify
-  end
-end
-
-# A player declares wrong Kachi
-class GameResultIllegalKachiWin < GameResultWin
-  def process
-    @winner.write_safe("%KACHI\n#ILLEGAL_MOVE\n#WIN\n")
-    @loser.write_safe( "%KACHI\n#ILLEGAL_MOVE\n#LOSE\n")
-    log("%%KACHI\n")
-    log_summary("illegal kachi")
-    @result_type = "%%KACHI"
-    notify
-  end
-end
-
-class GameResultIllegalWin < GameResultWin
-  def initialize(game, winner, loser, cause)
-    super(game, winner, loser)
-    @cause = cause
-  end
-
-  def process
-    @winner.write_safe("#ILLEGAL_MOVE\n#WIN\n")
-    @loser.write_safe( "#ILLEGAL_MOVE\n#LOSE\n")
-    log_summary(@cause)
-    @result_type = "#ILLEGAL_MOVE"
-    notify
-  end
-end
-
-class GameResultIllegalMoveWin < GameResultIllegalWin
-  def initialize(game, winner, loser)
-    super(game, winner, loser, "illegal move")
-  end
-end
-
-class GameResultUchifuzumeWin < GameResultIllegalWin
-  def initialize(game, winner, loser)
-    super(game, winner, loser, "uchifuzume")
-  end
-end
-
-class GameResultOuteKaihiMoreWin < GameResultIllegalWin
-  def initialize(game, winner, loser)
-    super(game, winner, loser, "oute_kaihimore")
-  end
-end
-
-class GameResultOutoriWin < GameResultWin
-  def initialize(game, winner, loser)
-    super(game, winner, loser)
-  end
-end
-
-class GameResultToryoWin < GameResultWin
-  def process
-    @winner.write_safe("%TORYO\n#RESIGN\n#WIN\n")
-    @loser.write_safe( "%TORYO\n#RESIGN\n#LOSE\n")
-    log("%%TORYO\n")
-    log_summary("toryo")
-    @result_type = "%%TORYO"
-    notify
-  end
-end
-
-class GameResultOuteSennichiteWin < GameResultWin
-  def process
-    @winner.write_safe("#OUTE_SENNICHITE\n#WIN\n")
-    @loser.write_safe( "#OUTE_SENNICHITE\n#LOSE\n")
-    log_summary("oute_sennichite")
-    @result_type = "#OUTE_SENNICHITE"
-    notify
-  end
-end
-
-class GameResultDraw < GameResult
-  def initialize(game, p1, p2)
-    super
-    p1.last_game_win = false
-    p2.last_game_win = false
-  end
-  
-  def log_summary(type)
-    log_board
-    log("'summary:%s:%s draw:%s draw\n" % [type, @black.name, @white.name])
-  end
-end
-
-class GameResultSennichiteDraw < GameResultDraw
-  def process
-    @players.each do |player|
-      player.write_safe("#SENNICHITE\n#DRAW\n")
-    end
-    log_summary("sennichite")
-    @result_type = "#SENNICHITE"
-    notify
-  end
-end
-
 class Game
+  # When this duration passes after this object instanciated (i.e.
+  # the agree_waiting or start_waiting state lasts too long),
+  # the game will be rejected by the Server.
+  WAITING_EXPIRATION = 120 # seconds
+
   @@mutex = Mutex.new
   @@time  = 0
-
-  def initialize(game_name, player0, player1)
-    @monitors = Array::new
+  def initialize(game_name, player0, player1, board)
+    @monitors = Array::new # array of MonitorHandler*
     @game_name = game_name
     if (@game_name =~ /-(\d+)-(\d+)$/)
       @total_time = $1.to_i
@@ -273,12 +45,17 @@ class Game
     end
     @sente.socket_buffer.clear
     @gote.socket_buffer.clear
-    @current_player, @next_player = @sente, @gote
+    @board = board
+    if @board.teban
+      @current_player, @next_player = @sente, @gote
+    else
+      @current_player, @next_player = @gote, @sente
+    end
     @sente.game = self
     @gote.game  = self
 
-    @last_move = ""
-    @current_turn = 0
+    @last_move = @board.initial_moves.empty? ? "" : "%s,T1" % [@board.initial_moves.last]
+    @current_turn = @board.initial_moves.size
 
     @sente.status = "agree_waiting"
     @gote.status  = "agree_waiting"
@@ -287,11 +64,13 @@ class Game
                   $league.event, @game_name, 
                   @sente.name, @gote.name, issue_current_time)
     
-    now = Time.now
+    # The time when this Game instance was created.
+    # Don't be confused with @start_time when the game was started to play.
+    @prepared_time = Time.now 
     log_dir_name = File.join($league.dir, 
-                             now.strftime("%Y"),
-                             now.strftime("%m"),
-                             now.strftime("%d"))
+                             @prepared_time.strftime("%Y"),
+                             @prepared_time.strftime("%m"),
+                             @prepared_time.strftime("%d"))
     FileUtils.mkdir_p(log_dir_name) unless File.exist?(log_dir_name)
     @logfile = File.join(log_dir_name, @game_id + ".csa")
 
@@ -299,8 +78,6 @@ class Game
 
     log_message(sprintf("game created %s", @game_id))
 
-    @board = Board::new
-    @board.initial
     @start_time = nil
     @fh = open(@logfile, "w")
     @fh.sync = true
@@ -310,7 +87,10 @@ class Game
   end
   attr_accessor :game_name, :total_time, :byoyomi, :sente, :gote, :game_id, :board, :current_player, :next_player, :fh, :monitors
   attr_accessor :last_move, :current_turn
-  attr_reader   :result
+  attr_reader   :result, :prepared_time
+
+  # Path of a log file for this game.
+  attr_reader   :logfile
 
   def rated?
     @sente.rated? && @gote.rated?
@@ -320,18 +100,18 @@ class Game
     return player.status == "game" && @current_player == player
   end
 
-  def monitoron(monitor)
-    @monitors.delete(monitor)
-    @monitors.push(monitor)
+  def monitoron(monitor_handler)
+    monitoroff(monitor_handler)
+    @monitors.push(monitor_handler)
   end
 
-  def monitoroff(monitor)
-    @monitors.delete(monitor)
+  def monitoroff(monitor_handler)
+    @monitors.delete_if {|mon| mon == monitor_handler}
   end
 
   def each_monitor
-    @monitors.each do |monitor|
-      yield monitor
+    @monitors.each do |monitor_handler|
+      yield monitor_handler
     end
   end
 
@@ -350,18 +130,28 @@ class Game
   end
 
   def kill(killer)
-    if ["agree_waiting", "start_waiting"].include?(@sente.status)
-      reject(killer.name)
-    elsif (@current_player == killer)
-      result = GameResultAbnormalWin.new(self, @next_player, @current_player)
-      result.process
+    [@sente, @gote].each do |player|
+      if ["agree_waiting", "start_waiting"].include?(player.status)
+        reject(killer.name)
+        return # return from this method
+      end
+    end
+    
+    if (@current_player == killer)
+      @result = GameResultAbnormalWin.new(self, @next_player, @current_player)
+      @result.process
       finish
     end
   end
 
   def finish
     log_message(sprintf("game finished %s", @game_id))
-    @fh.printf("'$END_TIME:%s\n", Time::new.strftime("%Y/%m/%d %H:%M:%S"))    
+
+    # In a case where a player in agree_waiting or start_waiting status is
+    # rejected, a GameResult object is not yet instanciated.
+    # See test/TC_before_agree.rb.
+    end_time = @result ? @result.end_time : Time.now
+    @fh.printf("'$END_TIME:%s\n", end_time.strftime("%Y/%m/%d %H:%M:%S"))    
     @fh.close
 
     @sente.game = nil
@@ -384,7 +174,7 @@ class Game
   end
 
   # class Game
-  def handle_one_move(str, player)
+  def handle_one_move(str, player, end_time)
     unless turn?(player)
       return false if str == :timeout
 
@@ -396,7 +186,7 @@ class Game
     end
 
     finish_flag = true
-    @end_time = Time::new
+    @end_time = end_time
     t = [(@end_time - @start_time).floor, Least_Time_Per_Move].max
     
     move_status = nil
@@ -417,63 +207,71 @@ class Game
       if [:illegal, :uchifuzume, :oute_kaihimore].include?(move_status)
         @fh.printf("'ILLEGAL_MOVE(%s)\n", str)
       else
-        if [:normal, :outori, :sennichite, :oute_sennichite_sente_lose, :oute_sennichite_gote_lose].include?(move_status)
+        if :toryo != move_status
           # Thinking time includes network traffic
           @sente.write_safe(sprintf("%s,T%d\n", str, t))
           @gote.write_safe(sprintf("%s,T%d\n", str, t))
           @fh.printf("%s\nT%d\n", str, t)
           @last_move = sprintf("%s,T%d", str, t)
           @current_turn += 1
-        end
 
-        @monitors.each do |monitor|
-          monitor.write_safe(show.gsub(/^/, "##[MONITOR][#{@game_id}] "))
-          monitor.write_safe(sprintf("##[MONITOR][%s] +OK\n", @game_id))
-        end
-      end
+          @monitors.each do |monitor_handler|
+            monitor_handler.write_one_move(@game_id, self)
+          end
+        end # if
+        # if move_status is :toryo then a GameResult message will be sent to monitors   
+      end # if
     end
 
-    result = nil
+    @result = nil
     if (@next_player.status != "game") # rival is logout or disconnected
-      result = GameResultAbnormalWin.new(self, @current_player, @next_player)
+      @result = GameResultAbnormalWin.new(self, @current_player, @next_player)
     elsif (status == :timeout)
       # current_player losed
-      result = GameResultTimeoutWin.new(self, @next_player, @current_player)
+      @result = GameResultTimeoutWin.new(self, @next_player, @current_player)
     elsif (move_status == :illegal)
-      result = GameResultIllegalMoveWin.new(self, @next_player, @current_player)
+      @result = GameResultIllegalMoveWin.new(self, @next_player, @current_player)
     elsif (move_status == :kachi_win)
-      result = GameResultKachiWin.new(self, @current_player, @next_player)
+      @result = GameResultKachiWin.new(self, @current_player, @next_player)
     elsif (move_status == :kachi_lose)
-      result = GameResultIllegalKachiWin.new(self, @next_player, @current_player)
+      @result = GameResultIllegalKachiWin.new(self, @next_player, @current_player)
     elsif (move_status == :toryo)
-      result = GameResultToryoWin.new(self, @next_player, @current_player)
+      @result = GameResultToryoWin.new(self, @next_player, @current_player)
     elsif (move_status == :outori)
       # The current player captures the next player's king
-      result = GameResultOutoriWin.new(self, @current_player, @next_player)
+      @result = GameResultOutoriWin.new(self, @current_player, @next_player)
     elsif (move_status == :oute_sennichite_sente_lose)
-      result = GameResultOuteSennichiteWin.new(self, @gote, @sente) # Sente is checking
+      @result = GameResultOuteSennichiteWin.new(self, @gote, @sente) # Sente is checking
     elsif (move_status == :oute_sennichite_gote_lose)
-      result = GameResultOuteSennichiteWin.new(self, @sente, @gote) # Gote is checking
+      @result = GameResultOuteSennichiteWin.new(self, @sente, @gote) # Gote is checking
     elsif (move_status == :sennichite)
-      result = GameResultSennichiteDraw.new(self, @current_player, @next_player)
+      @result = GameResultSennichiteDraw.new(self, @current_player, @next_player)
     elsif (move_status == :uchifuzume)
       # the current player losed
-      result = GameResultUchifuzumeWin.new(self, @next_player, @current_player)
+      @result = GameResultUchifuzumeWin.new(self, @next_player, @current_player)
     elsif (move_status == :oute_kaihimore)
       # the current player losed
-      result = GameResultOuteKaihiMoreWin.new(self, @next_player, @current_player)
+      @result = GameResultOuteKaihiMoreWin.new(self, @next_player, @current_player)
     else
       finish_flag = false
     end
-    result.process if result
+    @result.process if @result
     finish() if finish_flag
     @current_player, @next_player = @next_player, @current_player
     @start_time = Time::new
     return finish_flag
   end
 
+  def is_startable_status?
+    return (@sente && @gote &&
+            (@sente.status == "start_waiting") &&
+            (@gote.status  == "start_waiting"))
+  end
+
   def start
     log_message(sprintf("game started %s", @game_id))
+    @sente.status = "game"
+    @gote.status  = "game"
     @sente.write_safe(sprintf("START:%s\n", @game_id))
     @gote.write_safe(sprintf("START:%s\n", @game_id))
     @sente.mytime = @total_time
@@ -509,6 +307,13 @@ EOM
       white_name = @gote.rated?  ? @gote.player_id  : @gote.name
       @fh.puts("'rating:%s:%s" % [black_name, white_name])
     end
+    unless @board.initial_moves.empty?
+      @fh.puts "'buoy game starting with %d moves" % [@board.initial_moves.size]
+      @board.initial_moves.each do |move|
+        @fh.puts move
+        @fh.puts "T1"
+      end
+    end
   end
 
   def show()
@@ -556,7 +361,7 @@ Name+:#{@sente.name}
 Name-:#{@gote.name}
 Your_Turn:#{sg_flag}
 Rematch_On_Draw:NO
-To_Move:+
+To_Move:#{@board.teban ? "+" : "-"}
 BEGIN Time
 Time_Unit:1sec
 Total_Time:#{@total_time}
@@ -564,23 +369,20 @@ Byoyomi:#{@byoyomi}
 Least_Time_Per_Move:#{Least_Time_Per_Move}
 END Time
 BEGIN Position
-P1-KY-KE-GI-KI-OU-KI-GI-KE-KY
-P2 * -HI *  *  *  *  * -KA * 
-P3-FU-FU-FU-FU-FU-FU-FU-FU-FU
-P4 *  *  *  *  *  *  *  *  * 
-P5 *  *  *  *  *  *  *  *  * 
-P6 *  *  *  *  *  *  *  *  * 
-P7+FU+FU+FU+FU+FU+FU+FU+FU+FU
-P8 * +KA *  *  *  *  * +HI * 
-P9+KY+KE+GI+KI+OU+KI+GI+KE+KY
-P+
-P-
-+
+#{@board.to_s.chomp}
 END Position
 END Game_Summary
 EOM
     return str
   end
+
+  def prepared_expire?
+    if @prepared_time && (@prepared_time + WAITING_EXPIRATION < Time.now)
+      return true
+    end
+
+    return false
+  end
   
   private