OSDN Git Service

5e46e12f1f41a17b466259592e327131f397a1b1
[shogi-server/shogi-server.git] / shogi_server / game.rb
1 ## $Id$
2
3 ## Copyright (C) 2004 NABEYA Kenichi (aka nanami@2ch)
4 ## Copyright (C) 2007-2008 Daigo Moriwaki (daigo at debian dot org)
5 ##
6 ## This program is free software; you can redistribute it and/or modify
7 ## it under the terms of the GNU General Public License as published by
8 ## the Free Software Foundation; either version 2 of the License, or
9 ## (at your option) any later version.
10 ##
11 ## This program is distributed in the hope that it will be useful,
12 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 ## GNU General Public License for more details.
15 ##
16 ## You should have received a copy of the GNU General Public License
17 ## along with this program; if not, write to the Free Software
18 ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19
20 require 'shogi_server/league/floodgate'
21 require 'shogi_server/game_result'
22 require 'shogi_server/util'
23
24 module ShogiServer # for a namespace
25
26 class Game
27   # When this duration passes after this object instanciated (i.e.
28   # the agree_waiting or start_waiting state lasts too long),
29   # the game will be rejected by the Server.
30   WAITING_EXPIRATION = 120 # seconds
31
32   @@mutex = Mutex.new
33   @@time  = 0
34
35   # Decide turns of players according to their turn preferences.
36   # p2 is a rival player of the p1 player.
37   # p1_sente_string must be "*", "+" or "-".
38   #
39   def Game.decide_turns(p1, p1_sente_string, p2)
40     if ((p1_sente_string == "*") && (p2.sente == nil))
41       if (rand(2) == 0)
42         p1.sente = true
43         p2.sente = false
44       else
45         p1.sente = false
46         p2.sente = true
47       end
48     elsif (p2.sente == true) # rival has higher priority
49       p1.sente = false
50     elsif (p2.sente == false)
51       p1.sente = true
52     elsif (p1_sente_string == "+")
53       p1.sente = true
54       p2.sente = false
55     elsif (p1_sente_string == "-")
56       p1.sente = false
57       p2.sente = true
58     else
59       ## never reached
60     end
61   end
62
63
64   def initialize(game_name, player0, player1, board)
65     @monitors = Array::new # array of MonitorHandler*
66     @game_name = game_name
67     if (@game_name =~ /-(\d+)-(\d+)$/)
68       @total_time = $1.to_i
69       @byoyomi = $2.to_i
70     end
71
72     if (player0.sente)
73       @sente, @gote = player0, player1
74     else
75       @sente, @gote = player1, player0
76     end
77     @sente.socket_buffer.clear
78     @gote.socket_buffer.clear
79     @board = board
80     if @board.teban
81       @current_player, @next_player = @sente, @gote
82     else
83       @current_player, @next_player = @gote, @sente
84     end
85     @sente.game = self
86     @gote.game  = self
87
88     @last_move = @board.initial_moves.empty? ? "" : "%s,T1" % [@board.initial_moves.last]
89     @current_turn = @board.initial_moves.size
90
91     @sente.status = "agree_waiting"
92     @gote.status  = "agree_waiting"
93
94     @game_id = sprintf("%s+%s+%s+%s+%s", 
95                   $league.event, @game_name, 
96                   @sente.name, @gote.name, issue_current_time)
97     
98     # The time when this Game instance was created.
99     # Don't be confused with @start_time when the game was started to play.
100     @prepared_time = Time.now 
101     log_dir_name = File.join($league.dir, 
102                              @prepared_time.strftime("%Y"),
103                              @prepared_time.strftime("%m"),
104                              @prepared_time.strftime("%d"))
105     @logfile = File.join(log_dir_name, @game_id + ".csa")
106     Mkdir.mkdir_for(@logfile)
107
108     $league.games[@game_id] = self
109
110     log_message(sprintf("game created %s", @game_id))
111
112     @start_time = nil
113     @fh = open(@logfile, "w")
114     @fh.sync = true
115     @result = nil
116
117     propose
118   end
119   attr_accessor :game_name, :total_time, :byoyomi, :sente, :gote, :game_id, :board, :current_player, :next_player, :fh, :monitors
120   attr_accessor :last_move, :current_turn
121   attr_reader   :result, :prepared_time
122
123   # Path of a log file for this game.
124   attr_reader   :logfile
125
126   def rated?
127     @sente.rated? && @gote.rated?
128   end
129
130   def turn?(player)
131     return player.status == "game" && @current_player == player
132   end
133
134   def monitoron(monitor_handler)
135     monitoroff(monitor_handler)
136     @monitors.push(monitor_handler)
137   end
138
139   def monitoroff(monitor_handler)
140     @monitors.delete_if {|mon| mon == monitor_handler}
141   end
142
143   def each_monitor
144     @monitors.each do |monitor_handler|
145       yield monitor_handler
146     end
147   end
148
149   def log_game(str)
150     if @fh.closed?
151       log_error("Failed to write to Game[%s]'s log file: %s" %
152                 [@game_id, str])
153     end
154     @fh.printf("%s\n", str)
155   end
156
157   def reject(rejector)
158     @sente.write_safe(sprintf("REJECT:%s by %s\n", @game_id, rejector))
159     @gote.write_safe(sprintf("REJECT:%s by %s\n", @game_id, rejector))
160     finish
161   end
162
163   def kill(killer)
164     [@sente, @gote].each do |player|
165       if ["agree_waiting", "start_waiting"].include?(player.status)
166         reject(killer.name)
167         return # return from this method
168       end
169     end
170     
171     if (@current_player == killer)
172       @result = GameResultAbnormalWin.new(self, @next_player, @current_player)
173       @result.process
174       finish
175     end
176   end
177
178   def finish
179     log_message(sprintf("game finished %s", @game_id))
180
181     # In a case where a player in agree_waiting or start_waiting status is
182     # rejected, a GameResult object is not yet instanciated.
183     # See test/TC_before_agree.rb.
184     end_time = @result ? @result.end_time : Time.now
185     @fh.printf("'$END_TIME:%s\n", end_time.strftime("%Y/%m/%d %H:%M:%S"))    
186     @fh.close
187
188     @sente.game = nil
189     @gote.game = nil
190     @sente.status = "connected"
191     @gote.status = "connected"
192
193     if (@current_player.protocol == LoginCSA::PROTOCOL)
194       @current_player.finish
195     end
196     if (@next_player.protocol == LoginCSA::PROTOCOL)
197       @next_player.finish
198     end
199     @monitors = Array::new
200     @sente = nil
201     @gote = nil
202     @current_player = nil
203     @next_player = nil
204     $league.games.delete(@game_id)
205   end
206
207   # class Game
208   def handle_one_move(str, player, end_time)
209     unless turn?(player)
210       return false if str == :timeout
211
212       @fh.puts("'Deferred %s" % [str])
213       log_warning("Deferred a move [%s] scince it is not %s 's turn." %
214                   [str, player.name])
215       player.socket_buffer << str # always in the player's thread
216       return nil
217     end
218
219     finish_flag = true
220     @end_time = end_time
221     t = [(@end_time - @start_time).floor, Least_Time_Per_Move].max
222     
223     move_status = nil
224     if ((@current_player.mytime - t <= -@byoyomi) && 
225         ((@total_time > 0) || (@byoyomi > 0)))
226       status = :timeout
227     elsif (str == :timeout)
228       return false            # time isn't expired. players aren't swapped. continue game
229     else
230       @current_player.mytime -= t
231       if (@current_player.mytime < 0)
232         @current_player.mytime = 0
233       end
234
235       move_status = @board.handle_one_move(str, @sente == @current_player)
236       # log_debug("move_status: %s for %s's %s" % [move_status, @sente == @current_player ? "BLACK" : "WHITE", str])
237
238       if [:illegal, :uchifuzume, :oute_kaihimore].include?(move_status)
239         @fh.printf("'ILLEGAL_MOVE(%s)\n", str)
240       else
241         if :toryo != move_status
242           # Thinking time includes network traffic
243           @sente.write_safe(sprintf("%s,T%d\n", str, t))
244           @gote.write_safe(sprintf("%s,T%d\n", str, t))
245           @fh.printf("%s\nT%d\n", str, t)
246           @last_move = sprintf("%s,T%d", str, t)
247           @current_turn += 1
248
249           @monitors.each do |monitor_handler|
250             monitor_handler.write_one_move(@game_id, self)
251           end
252         end # if
253         # if move_status is :toryo then a GameResult message will be sent to monitors   
254       end # if
255     end
256
257     @result = nil
258     if (@next_player.status != "game") # rival is logout or disconnected
259       @result = GameResultAbnormalWin.new(self, @current_player, @next_player)
260     elsif (status == :timeout)
261       # current_player losed
262       @result = GameResultTimeoutWin.new(self, @next_player, @current_player)
263     elsif (move_status == :illegal)
264       @result = GameResultIllegalMoveWin.new(self, @next_player, @current_player)
265     elsif (move_status == :kachi_win)
266       @result = GameResultKachiWin.new(self, @current_player, @next_player)
267     elsif (move_status == :kachi_lose)
268       @result = GameResultIllegalKachiWin.new(self, @next_player, @current_player)
269     elsif (move_status == :toryo)
270       @result = GameResultToryoWin.new(self, @next_player, @current_player)
271     elsif (move_status == :outori)
272       # The current player captures the next player's king
273       @result = GameResultOutoriWin.new(self, @current_player, @next_player)
274     elsif (move_status == :oute_sennichite_sente_lose)
275       @result = GameResultOuteSennichiteWin.new(self, @gote, @sente) # Sente is checking
276     elsif (move_status == :oute_sennichite_gote_lose)
277       @result = GameResultOuteSennichiteWin.new(self, @sente, @gote) # Gote is checking
278     elsif (move_status == :sennichite)
279       @result = GameResultSennichiteDraw.new(self, @current_player, @next_player)
280     elsif (move_status == :uchifuzume)
281       # the current player losed
282       @result = GameResultUchifuzumeWin.new(self, @next_player, @current_player)
283     elsif (move_status == :oute_kaihimore)
284       # the current player losed
285       @result = GameResultOuteKaihiMoreWin.new(self, @next_player, @current_player)
286     else
287       finish_flag = false
288     end
289     @result.process if @result
290     finish() if finish_flag
291     @current_player, @next_player = @next_player, @current_player
292     @start_time = Time.now
293     return finish_flag
294   end
295
296   def is_startable_status?
297     return (@sente && @gote &&
298             (@sente.status == "start_waiting") &&
299             (@gote.status  == "start_waiting"))
300   end
301
302   def start
303     log_message(sprintf("game started %s", @game_id))
304     @sente.status = "game"
305     @gote.status  = "game"
306     @sente.write_safe(sprintf("START:%s\n", @game_id))
307     @gote.write_safe(sprintf("START:%s\n", @game_id))
308     @sente.mytime = @total_time
309     @gote.mytime = @total_time
310     @start_time = Time.now
311   end
312
313   def propose
314     @fh.puts("V2")
315     @fh.puts("N+#{@sente.name}")
316     @fh.puts("N-#{@gote.name}")
317     @fh.puts("$EVENT:#{@game_id}")
318
319     @sente.write_safe(propose_message("+"))
320     @gote.write_safe(propose_message("-"))
321
322     now = Time.now.strftime("%Y/%m/%d %H:%M:%S")
323     @fh.puts("$START_TIME:#{now}")
324     @fh.print <<EOM
325 P1-KY-KE-GI-KI-OU-KI-GI-KE-KY
326 P2 * -HI *  *  *  *  * -KA * 
327 P3-FU-FU-FU-FU-FU-FU-FU-FU-FU
328 P4 *  *  *  *  *  *  *  *  * 
329 P5 *  *  *  *  *  *  *  *  * 
330 P6 *  *  *  *  *  *  *  *  * 
331 P7+FU+FU+FU+FU+FU+FU+FU+FU+FU
332 P8 * +KA *  *  *  *  * +HI * 
333 P9+KY+KE+GI+KI+OU+KI+GI+KE+KY
334 +
335 EOM
336     if rated?
337       black_name = @sente.rated? ? @sente.player_id : @sente.name
338       white_name = @gote.rated?  ? @gote.player_id  : @gote.name
339       @fh.puts("'rating:%s:%s" % [black_name, white_name])
340     end
341     unless @board.initial_moves.empty?
342       @fh.puts "'buoy game starting with %d moves" % [@board.initial_moves.size]
343       @board.initial_moves.each do |move|
344         @fh.puts move
345         @fh.puts "T1"
346       end
347     end
348   end
349
350   def show()
351     str0 = <<EOM
352 BEGIN Game_Summary
353 Protocol_Version:1.1
354 Protocol_Mode:Server
355 Format:Shogi 1.0
356 Declaration:Jishogi 1.1
357 Game_ID:#{@game_id}
358 Name+:#{@sente.name}
359 Name-:#{@gote.name}
360 Rematch_On_Draw:NO
361 To_Move:+
362 BEGIN Time
363 Time_Unit:1sec
364 Total_Time:#{@total_time}
365 Byoyomi:#{@byoyomi}
366 Least_Time_Per_Move:#{Least_Time_Per_Move}
367 Remaining_Time+:#{@sente.mytime}
368 Remaining_Time-:#{@gote.mytime}
369 Last_Move:#{@last_move}
370 Current_Turn:#{@current_turn}
371 END Time
372 BEGIN Position
373 EOM
374
375     str1 = <<EOM
376 END Position
377 END Game_Summary
378 EOM
379
380     return str0 + @board.to_s + str1
381   end
382
383   def propose_message(sg_flag)
384     str = <<EOM
385 BEGIN Game_Summary
386 Protocol_Version:1.1
387 Protocol_Mode:Server
388 Format:Shogi 1.0
389 Declaration:Jishogi 1.1
390 Game_ID:#{@game_id}
391 Name+:#{@sente.name}
392 Name-:#{@gote.name}
393 Your_Turn:#{sg_flag}
394 Rematch_On_Draw:NO
395 To_Move:#{@board.teban ? "+" : "-"}
396 BEGIN Time
397 Time_Unit:1sec
398 Total_Time:#{@total_time}
399 Byoyomi:#{@byoyomi}
400 Least_Time_Per_Move:#{Least_Time_Per_Move}
401 END Time
402 BEGIN Position
403 #{Board::INITIAL_POSITION}
404 #{@board.initial_moves.collect {|m| m + ",T1"}.join("\n")}
405 END Position
406 END Game_Summary
407 EOM
408     # An empty @board.initial_moves causes an empty line, which should be
409     # eliminated.
410     return str.gsub("\n\n", "\n")
411   end
412
413   def prepared_expire?
414     if @prepared_time && (@prepared_time + WAITING_EXPIRATION < Time.now)
415       return true
416     end
417
418     return false
419   end
420   
421   private
422   
423   def issue_current_time
424     time = Time.now.strftime("%Y%m%d%H%M%S").to_i
425     @@mutex.synchronize do
426       while time <= @@time do
427         time += 1
428       end
429       @@time = time
430     end
431   end
432 end
433
434 end # ShogiServer