今年はアドベンチャーゲームで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:ん?寝たばれ?ネタバレだ>自分
Recent Comments