極限脱出 9時間9人9の扉

今年はアドベンチャーゲームでWii「428」Xbox360「シュタインズゲート」と、私好みのゲームが二本もあり豊作と言える歳でした。

おっさんになってしまって、アクションゲームや格闘ゲーム、そしてレースゲームと沢山ゲームを買っているくせに一歩引いてしまうスタミナ＆根性。そんな私でもアドベンチャーゲームであれば、のんびり遊べます。と言うわけで、電気屋のポイントが溜まっていたので今年最後の衝動買いとして・・・。

DSの「極限脱出 9時間9人9の扉」を買ってきました。
http://www.chunsoft.co.jp/games/999/ds/

体験版を遊んだ時から惹かれてましたが、やっぱり面白いです・・・しかし・・・ところどころパズルゲーム風の謎解きがあって眠い。

やや寝たばれですが、キーワードでパズルゲームのネタである「数字根」。

・・・眠い。眠すぎる。

おっさん、学が無いんよ・・マジで。

アドベンチャーゲームはネタがすべて。一周目では攻略サイトなどに頼るのは厳禁。

どうすりゃいいか？と迷った挙句、仕事で使っているExcelマクロに頼ることにしました。

眠い・・・眠すぎる。・・・でも、毎日の仕事も眠いから一緒か。

-------------------------------

Sub 数字根()

Dim 数字1, 数字2, 数字3, 数字x, 数字y, 数字根, 行 As Integer
Dim 文字, 文字10位, 文字1位 As String

Cells(1, 1) = "数字1"
Cells(1, 2) = "数字2"
Cells(1, 3) = "数字3"
Cells(1, 4) = "数字根"

行 = 2

For 数字1 = 1 To 9
  For 数字2 = 1 To 9
    For 数字3 = 1 To 9
      If 数字1 <> 数字2 And 数字1 <> 数字3 And 数字2 <> 数字3 Then
   
         数字根 = 数字1 + 数字2 + 数字3
         Do While 数字根 > 9
           文字 = Str(数字根)
           文字10位 = Mid(文字, 2, 1)
           文字1位 = Right(文字, 1)
           数字x = Val(文字10位)
           数字y = Val(文字1位)
           数字根 = 数字x + 数字y
         Loop
         Cells(行, 1) = 数字1
         Cells(行, 2) = 数字2
         Cells(行, 3) = 数字3
         Cells(行, 4) = 数字根
         行 = 行 + 1
       End If
    Next
  Next
Next

End Sub

-------------------------------

できた。・・・寝るか。
ん？なんでこんなもん作ってるんだっけ？・・・ZZZZzzz

追記1：二つ分とON／OFFのチェックもいるぞ・・・・適当にD列でソートして後は自力でやるべし。

追記2：ん？寝たばれ？ネタバレだ＞自分