どもっす!パンオレです!✌( ՞ਊ ՞)✌
今日はマジでどうでもいい記事書くぞ!!!!!ひゃっほい!!!
(この感じすげー懐かしいwww)
私が絶賛苦しめられている、
「色違いライコウ全世代コンプリート」
残すところあと「3世代徘徊」のみとなりました。
↓ほかの世代は全部終わった、6と7世代は臆病最速めざ氷縛り付き
でまぁ・・・この3世代徘徊なんだけどねぇ・・・
マジでクソ!!!!!!!!!!!!
クソなポイントは挙げようとすればいくらでも出てきますが、今回そこを語るのは本題ではないので実際に粘ってみてそのクソさを体感してみてください。
今回問題となっているのはこの色粘りの徘徊開始フラグ、
ニシキにサファイアを渡すこと
なんだけど、何だかわからないが私はモーレツにサファイアを渡すことを忘れやすいみたいで、”サファイアを渡さないまま本土に戻り、ずっと居もしない徘徊ポケモンに遭遇する夢を見ながら儚く爆走する”という愚かな行為を30分くらい続けてしまうんです。。。orz
最近このやらかしを頻繁に起こし、そろそろ根本的な再発防止策を講じなければならんと考えた私は、色々と対策を考えてみました。
その① 手持ちにNNを付けてみる
サファイアを渡し忘れることを未然に防ぐメッセージをNNに入れることで、空を飛ぶなどの移動の際に気づかせる。NNをメモ代わりとして利用する案。
その② 自転車の便利ボタン解除
不便極まりないですが、敢えて自転車の便利ボタンを解除します。
こうすることで、自転車に乗るとき必然的にバッグから開くため、一番上にサファイアが残っていたらほぼ間違いなく目に留まります。
その③ 配信画面での意識づけ
YoutubeLIVEで「自分が操作するときに見る画面」兼「視聴者に配信する画面」でサファイアのロムを目の付く場所に表示させ、視覚に対し暴力で訴えます。()
そして、配信画面でもう一つ何かできないかな~と本日(4/1)の放送終了後に考えていたのですが、、、、
「なんかポップアップでもだすか!!!」(゚∀゚)
と思いつき、久々にVBSでさくっと開発してみました。
以下参考としてコード載せときます。
ハッキリ言いますが、この上なく世界にいらないコードだと思います。
MsgBox "労災防止を徹底しましょう:サファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイア",vbSystemModal + vbExclamation, "労災注意喚起"
(狂気を感じる)
拡張子vbsで保存して実行すると以下画面がでます。
つづいてこのポップアップ画面が出る頻度を設定します。
こちらもWindowsタスクスケジューラでカンタンに定義できるよ。
放送開始後の20時10分から、10分おきにさっきのポップアップが出るように設定します。
まぁこのブログはVBSやタスクスケジューラの解説をする気はさらさらないので気になる人はググって。
あとはこれをいつもの配信画面に出現位置設定して視聴者に見えるようにすれば完了。
因みに今回は取り入れませんでしたがこんなのも可能です。
AutoShinyCounterでライコウ出現検知
↓
ファイルの数字を更新
↓
ファイルの数字が更新されてたらポップアップ表示するVBS実行
↓
VBSの後処理でファイルの数字を初期値に戻す
↓以前紹介したこれを組み合わせる
当初こっちでやろうとは思ったんですけど、ライコウが3画面の日に最近追加した3画面目が1,2画面目よりも画面サイズが小さいせいで、一つのパターン画像でライコウの出現を捕らえることができないという内部事情で断念しました。まぁこんな説明されてもきっとわからんよねw
元々この案で行くつもりだったから実装までしちゃってたんだよね。一応コード載せとくよ。多分これで動くと思う。
'AutoShinyCounterが更新したファイル開く
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("ファイルパス", 1 )
'1行読み取り
flg=file.ReadLine
'ファイルクローズ
file.Close
'変数の値が0より大きいならポップアップウィンドウ表示
If flg>0 Then
MsgBox "労災防止を徹底しましょう:サファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイアサファイア",vbSystemModal + vbExclamation, "労災注意喚起"
'再度、AutoShinyCounterが更新したファイル開き、値を0に戻す
Set file = fso.OpenTextFile("ファイルパス", 2 , True)
file.WriteLine "0"
file.Close
End If
・・・まぁこんだけやってそれでも労災起こしたらマジで頭の中見に行ってもらったほうが良いかもねw
今回はここまで。
動画・ブログの更新状況はTwitterから確認できます!
Follow @SHch_official
でわでわっ✌( ՞ਊ ՞)ノシ
※Youtubeで(ほぼ)毎日20時に
色違いポケモンの厳選放送やってます!
是非チャンネル登録よろしくお願いします!
※Twitch始めました。
土日の朝~昼1時間程度で放送します!
フォローよろしくです!
~PickUp‼アナタにおススメ記事~