ruby-list

  豊福＠パパイヤです。

  前橋さんの mine と名前がかぶるので subject を
sweeper に変えました。

酒本さん
>>   昔のメールを読んでいたら酒本さんのキャラクタ版
>> マインスイーパというのがあったので動してみたら
>> 面白かったので少し拡張しました。
>
> ruby-list7005 の中村さんがおっしゃるようにタイマーが
> つけばもっと面白くなると思うのですが

  Thread の勉強もかねて秒数を表示するように
してみました。

*** sweeper.rb.orig	Wed May 27 11:25:27 1998
--- sweeper.rb	Wed May 27 12:08:56 1998
***************
*** 1,4 ****
--- 1,10 ----
  #!/usr/local/bin/ruby
+ require "thread"
+ 
+ def flush
+     $stdout.flush
+ end
+ 
  def clr
      "\e[2J"
  end
***************
*** 47,52 ****
--- 53,59 ----
      print clr , pos(0,0)
      0.upto(@hi-1){|y| print pos(0,y),clrstr(46,"・"*@wi)}
      print pos(@cx,@cy)
+     @stime = Time.now.to_i
    end
    def mark
      xy = [@cx,@cy]
***************
*** 113,118 ****
--- 120,129 ----
       print pos(0,@hi),"残り:",@mc,"/",@total,"   "
       print pos(@cx,@cy)
    end
+   def update_time
+      print pos(0,@hi+1),"time: ",(Time.now.to_i - @stime)
+      print pos(@cx,@cy)
+   end
    def trymove(dx, dy)
       newx = @cx + dx; newy = @cy + dy
       if @state[[newx,newy]] != :border
***************
*** 132,138 ****
--- 143,162 ----
  
  system("stty raw -echo")
  
+ m = Mutex.new
+ 
+ Thread.start {
+   while TRUE
+     m.synchronize {
+       bd.update_time
+       flush
+     }
+     sleep 0.5
+   end
+ }
+ 
  while(c=getc).chr != "q"
+   m.synchronize {
    case c.chr
    when "n"  # new game
      bd.reset
***************
*** 150,164 ****
      bd.open_neighbor
    when " "
      if bd.open == 1 then bd.over(1)
!       if (c=getc).chr == "q" then break end
        bd.reset
      end
    end
    if bd.remain==0 then
      bd.over(0)
!     if (c=getc).chr == "q" then break end
      bd.reset
    end
  end
  bd.quit
  system("stty -raw echo")
--- 174,192 ----
      bd.open_neighbor
    when " "
      if bd.open == 1 then bd.over(1)
!       flush
!       if (c=getc).chr == "q" then ungetc(?q); break end
        bd.reset
      end
    end
    if bd.remain==0 then
      bd.over(0)
!     flush
!     if (c=getc).chr == "q" then ungetc(?q); break end
      bd.reset
    end
+   flush
+   }
  end
  bd.quit
  system("stty -raw echo")
---
			豊福＠パパイヤ
			unbound@papaya.juice.or.jp
			toyofuku@juice.or.jp

Thread

Prev Next

In This Thread

Prev Next

[#8136] How to use tk_getOpenFile? — Hiramatu Yoshifumi <hiramatu@...>

[#8144] making ruby on solaris — senda@...

[#8149] date & calendar — Tadayoshi Funaba <tadf@...>

[#8152] widget demos — Noritsugu Nakamura <nnakamur@...>

[#8153] telnet.rb(ver0.12) — Wakou Aoyama <wakou@...>

[#8155] MAC 用パッケージ — Sinichiro Dezawa <dezawa@...>

[#8163] 正規表現の使い方 — ARIMA Yasuhiro <fit0298@...>

[#8165] RE: 正規表現の使い方 — 助田 雅紀 <masaki.suketa@...>

[#8167] gtk err — Kikutani Makoto <kikutani@...>

[#8173] irb 0.2.1.13 release — keiju@... (Keiju ISHITSUKA)

[#8182] Re: HP-UX again — Kikutani Makoto <kikutani@...>

[#8187] design patterns — TAKAHASHI Masayoshi <maki@...>

[#8191] Re: design patterns — 助田 雅紀 <masaki.suketa@...>

[#8193] Re: design patterns — 助田 雅紀 <masaki.suketa@...>

[#8197] Re: design patterns — 助田 雅紀 <masaki.suketa@...>

[#8199] Web Counter — Wada Hiroshi <hiroshiw@...>

[#8200] Re: design patterns — 助田 雅紀 <masaki.suketa@...>

[#8206] mine sweeper — toyofuku@...

[#8215] Pike — OZAWA Sakuro <crouton@...>

[#8216] Delegation — "YANAGAWA Kazuhisa" <kjana@...>

[#8218] String.split — TEI meiki <tei@...>

[#8220] Re: mine sweeper — toyofuku@...

[#8231] RE: Smalltalk [Re: design patterns] — 助田 雅紀 <masaki.suketa@...>

[#8235] [0]*n — Tadayoshi Funaba <tadf@...>

[#8238] typo README.EXT, README.EXT.jp — Noritsugu Nakamura <nnakamur@...>

[#8239] Re: Delegation — "YANAGAWA Kazuhisa" <kjana@...>

[#8243] mine-0.0.1 — Takahiro Maebashi <maebashi@...>

[#8247] irb-0.2.1.14 release and BUG reports — keiju@... (Keiju ISHITSUKA)

[#8249] Re: Smalltalk [Re: design patterns] — "YANAGAWA Kazuhisa" <kjana@...>

[#8254] sweeper — toyofuku@...

[#8255] enumeration — toyofuku@...

[#8256] pop3-lib & smtp-lib — ttate@...

[#8257] Re: Smalltalk [Re: design patterns] — 助田 雅紀 <masaki.suketa@...>

[#8262] TkGrid do not exist? — Hiramatu Yoshifumi <hiramatu@...>

[#8272] tktimer.rb — Masaru UCHIDA <uchi@...>

[#8283] proc scope — NAGAI Hidetoshi <nagai@...>

[#8298] rskkserv — Kikutani Makoto <kikutani@...>

[#8306] Ruby on yahoo — matz@... (Yukihiro Matsumoto)

[#8310] linux shadow password — ttate@...

[#8315] tk_optionMenu — Hiramatu Yoshifumi <hiramatu@...>

[#8320] tk demo — ttate@...

[#8322] ruby-cygwin + ruby-tk — ARIMA Yasuhiro <fit0298@...>

[#8325] require — "Kazuhiro Yoshida" <moriq@...2.seikyou.ne.jp>

[#8327] what type are true and false — ttate@...

[#8329] Re: require — "Kazuhiro Yoshida" <moriq@...2.seikyou.ne.jp>

[#8336] TkMenu's bug — Hiramatu Yoshifumi <hiramatu@...>

[#8339] — gotoken@... (GOTO Kentaro)

[#8347] Re: require — "Kazuhiro Yoshida" <moriq@...2.seikyou.ne.jp>

[#8349] Re: require — 助田 雅紀 <masaki.suketa@...>

[#8352] Re: require — 助田 雅紀 <masaki.suketa@...>

[#8353] question about arguments — Koichi Shigematsu <shige@...>

[#8354] RE: question about arguments — 助田 雅紀 <masaki.suketa@...>

[#8359] raa.html — WATANABE Tetsuya <tetsu@...>

[#8362] counter of iterator — 助田 雅紀 <masaki.suketa@...>

[#8365] curses — "Kazuhiro Yoshida" <moriq@...2.seikyou.ne.jp>

[#8371] index-R.rb — Kimijima Hideyuki <sanjigen@...>

[#8375] new MethodIndex — keiju@... (Keiju ISHITSUKA)

[#8377] Re: what type are true and false — "YANAGAWA Kazuhisa" <kjana@...>

[#8380] blade/ruby — Kikutani Makoto <kikutani@...>

[#8392] Re: what type are true and false — Keiju ISHITSUKA <keiju@...>

[#8393] irb — Toshihiko SHIMOKAWA / 下川俊彦 <toshi@...>

[#8395] hd.rb 1.8 patch — TEI meiki <tei@...>

[#8400] Tk demo — ttate@...

[#8411] Win32 用 kit — Sinichiro Dezawa <dezawa@...>

[#8412] Re: Win32 用 kit — WATANABE Hirofumi <watanabe@...>

[#8415] Re: blade stop? (Re: blade/ruby) — Shin-ichro Hara <sinara@...>

[#8418] how to use delegate — gotoken@... (GOTO Kentaro)

[#8422] Can "initialize" be overrided? — IWAOKA Masahiro <iwaoka@...>

[#8430] thread — ttate@...

[#8431] man ruby — ARIMA Yasuhiro <fit0298@...>

[#8432] tk_demo — "Hiramatsu, Yoshifumi" <hiramatu@...>

[#8433] Re: sweeper — toyofuku@...

[#8436] tk demo (timer) & after — ttate@...

[#8438] opengl_ext — Takuya Hiraizumi <hirataku@...>

[#8442] tkdialog.rb — Tadayoshi Funaba <tadf@...>

[#8450] Re: thread — "MAEDA Shugo" <shugo@...>

[#8451] Re: thread — greentea@...2.so-net.or.jp (Tomoyuki Kosimizu)

[#8472] scope of local variables — Takao KAWAMURA <kawamura@...>

[#8481] Usage of TkPhotoImage.put — Hiramatu Yoshifumi <hiramatu@...>

[#8486] cursor — "MAEDA Shugo" <shugo@...>

[#8165] RE: 正規表現の使い方 — 助田　雅紀 <masaki.suketa@...>

[#8191] Re: design patterns — 助田　雅紀 <masaki.suketa@...>

[#8193] Re: design patterns — 助田　雅紀 <masaki.suketa@...>

[#8197] Re: design patterns — 助田　雅紀 <masaki.suketa@...>

[#8200] Re: design patterns — 助田　雅紀 <masaki.suketa@...>

[#8231] RE: Smalltalk [Re: design patterns] — 助田　雅紀 <masaki.suketa@...>

[#8257] Re: Smalltalk [Re: design patterns] — 助田　雅紀 <masaki.suketa@...>

[#8349] Re: require — 助田　雅紀 <masaki.suketa@...>

[#8352] Re: require — 助田　雅紀 <masaki.suketa@...>

[#8354] RE: question about arguments — 助田　雅紀 <masaki.suketa@...>

[#8362] counter of iterator — 助田　雅紀 <masaki.suketa@...>