セカイカメラで宝探し

面白そうと思ったらなんでも遊びに使ってみる。
そんな古代ローマの堕落した貴族のような価値観をもつ私たちなので、さっそくやってみました！
初めてのこころみなので、うまくいかなかったらごめんなさい。

（10月27日追記）
さっぽろ駅周辺のローカルなあそびです。
プレゼントにはまだ ~~若干の~~ いっぱい余裕がございます。きたれプレイヤー！　どうしても謎が解けないときはそっとメールしてくれると、なにかしら便宜をはからなくもないかもしれません。

注意：セカイカメラをのぞく時は安全な場所で、周囲に迷惑をかけないようにたのしく遊びましょう

STEP1

iPhoneを用意します

STEP2

まだ『セカイカメラ』を持っていない人は、App Storeで『セカイカメラ』をダウンロードします

STEP3

ヒントが示す場所でセカイカメラをのぞいてみましょう！

HINT:ワシじゃワシワシ、具体的に誰というわけでもないがパッと見、秘密のカギを握っていそうなキャラのワシが諸君をナビゲートするぞ。
では最初の場所のヒントじゃ。
株式会社スマイルブーム……そのオフィスのあるビルを探すのじゃ！
出入口周辺で浮遊しているヒントをさがせ！
どうでもいいけど、スマイルブームって、なんだ？

ヒントが示す場所に浮いたエアタグには、次の場所へのヒントとパスワードの１部が書いてあるはずです

STEP4

順にヒントが示す場所をめぐり歩いて、５文字のパスワードをそろえると素敵なプレゼントが……？

先着10名様に、iPhoneを持っていればちょっと嬉しい（はずの）プレゼント！

ERROR!どうやらパスワードが違っておるがごとし雰囲気じゃ。
半角で入力しておるか？　全角入力はミス扱いになるようじゃぞ。気のきかない仕様じゃぞ。
パスワードの並び順は合っておるか？　「●」記号でよく確認するのじゃぞ。ぶっちゃけると合わせて５文字じゃぞ。

>> パスワード入力画面に戻る

EOM exit; } # ファイル指定が http://からであれば Locaionヘッダでジャンプ if ($secret =~ /^http\:\/\//) { if ($ENV{'PERLXS'} eq "PerlIS") { print "HTTP/1.0 302 Temporary Redirection\r\n"; print "Content-type: text/html\n"; } print "Location: $secret\n\n"; } else { # 隠しファイルを表示 unless (-e $secret) { &error("隠しファイルのパスが不正です : $secret"); } print "Content-type: text/html\n\n"; open(IN,"$secret") || &error("Open Error : $secret"); while () { print; } close(IN); } exit; } #--------------# # エラー処理 # #--------------# sub error { &header; print "

ERROR !

\n"; print "$_[0]\n"; exit; } #--------------# # HTMLヘッダ # #--------------# sub header { print "Content-type: text/html\n\n"; print< セカイカメラで宝探し EOF }

セカイカメラで宝探しをしてみよう！

STEP1

STEP2

STEP3

STEP4

ERROR !