イエヤスのパチ運占い・他

■■イエヤスの戦国乙女パチ運占い■■
■■ミツヒデのタイピングソフト■■


■遊び方（要PC。携帯の人は泣いて下さい）
メモ帳などのテキストエディタにコピペして拡張子vbsで保存（例：パチ運占い.vbs）
保存したファイル（VBScript Script File）をダブルクリックでゲーム開始です。


■イエヤスの戦国乙女パチ運占い＠118スレ「++Ajj0EG」氏

Dim i, b_day, answer, Value, un(5), item(6), girl(11), mess(10), dlg(5)
un(1) = "大吉"
un(2) = "中吉"
un(3) = "吉"
un(4) = "凶"
un(5) = "大凶"
item(1) = "扇子"
item(2) = "鞠"
item(3) = "花"
item(4) = "榛名"
item(5) = "木の葉"
item(6) = "ボールペン"
girl(1) = "小猿…じゃなかったヒデヨシさんね"
girl(2) = "りりしいケンシンお姉様"
girl(3) = "まあ！私ですわ！"
girl(4) = "麗しいヨシモトさんです"
girl(5) = "くいしんぼのシンゲンさんですわ"
girl(6) = "お料理上手なマサムネさんね"
girl(7) = "乱暴者のノブナガさんです"
girl(8) = "才たけたミツヒデさんね"
girl(9) = "大人の女…ムラサメさんです"
girl(10) = "うふ…かわいいコタちゃん…"
girl(11) = "まあ！物好きな！…オウガイさんですわ"
mess(1) = "隣の連打を許しましょう"
mess(2) = "箱替えのタイミングは正確に"
mess(3) = "コーヒーレディに注文すると、いいことあるかも"
mess(4) = "今日は２ちゃんねるを見ないようにしましょう"
mess(5) = "玉は貴重。落ちてたら、拾いましょう"
mess(6) = "ふわふわほわわんとして下さい"
mess(7) = "セルフキュインはやめて下さい"
mess(8) = "電撃大王を膝にのせて、打って下さい…できますよね？"
mess(9) = "誰かにぷれぜんとを渡しましょう"
mess(10) = "リーチで盤面にキスして下さい…できますよね？ね？"
dlg(1) = "私は徳川イエヤス…"
dlg(2) = "貴方の本日のパチンコ運を占ってさしあげます"
Call MsgBox(dlg(1) + vbCrLf + dlg(2), vbOKOnly)
b_day = CLng(InputBox("貴方の生まれた年を西暦（半角英数字）で入力して下さい…"))
b_day = b_day * CLng(InputBox("貴方の生まれた月を（半角英数字）で入力して下さい…"))
b_day = b_day * CLng(InputBox("貴方の生まれた日を（半角英数字）で入力して下さい…"))
Randomize(b_day + (Year(Now) * Month(Now) * Day(Now) * 8))
Call MsgBox("では…いきます…", vbOKOnly)
dlg(1) = "崇敬なる加茂の神紋、葵の大葉よ…"
dlg(2) = "此処におわす紳士の本日の運命を…"
dlg(3) = "我に示し給え"
Call MsgBox(dlg(1) + vbCrLf + dlg(2) + vbCrLf + dlg(3), vbOKOnly)
Call MsgBox("………………", vbOKOnly)
Call MsgBox("あと少しです…", vbOKOnly)
Call MsgBox("…出ました", vbOKOnly)
Value = Int((12 * Rnd) + 1)
If Value = 1 Then i = 1
If Value >= 2 and Value < 5 Then i = 2
If Value >= 5 and Value < 9 Then i = 3
If Value >= 9 and Value < 11 Then i = 4
If Value >= 11 Then i = 5
Call MsgBox("本日の貴方の運は…" + un(i), vbOKOnly)
Value = Int((6 * Rnd) + 1)
Call MsgBox("ラッキーアイテムは…" + item(Value), vbOKOnly)
If i = 5 Then
Value = 11
Else
Value = Int((10 * Rnd) + 1)
End If
Call MsgBox("ラッキー武将は…", vbOKOnly)
Call MsgBox(girl(Value), vbOKOnly)
Value = Int((10 * Rnd) + 1)
Call MsgBox("私からのアドバイスは…", vbOKOnly)
Call MsgBox(mess(Value), vbOKOnly)
Call MsgBox("それでは…行ってらっしゃいませ", vbOKOnly)


■ミツヒデのタイピングソフト＠119スレ「pBs5DDHa」氏

Dim W(16), strNow, Game, Q, A, Bad, sec, Allsec, Tensuu
W(1) = "はるなはみつひでのものだ"
W(2) = "おうがいにむこいりしたい"
W(3) = "むらさめにちゅっちゅしろ"
W(4) = "こたろうはおにゃのこだよ"
W(5) = "あたっくしょうりおめでと"
W(6) = "せんごくもーどとつにゅう"
W(7) = "こたろうよりしろきてくれ"
W(8) = "のぶながうたうとかわいい"
W(9) = "もうこれはだめかもしれん"
W(10) = "くろこたしろこたどっちだ"
W(11) = "あまおとめぜんらでうった"
W(12) = "でんげきだいおうよみたい"
W(13) = "たまにはみどるもうってね"
W(14) = "まえにしんしがならんでる"
W(15) = "おとめもであたればはずい"
W(16) = "やっぱりみつひでがいいね"
Call MsgBox("私は明智ミツヒデ。そなたのタイピング能力を知りたい", vbOKOnly)
Call InputBox("日本語入力はオンにしたかな？　下の空欄に、日本語が入れられるな？")
Call MsgBox("では、参ろうか。これから出る言葉の通りに打ち込むがいい", vbOKOnly)
Call MsgBox("紳士ならば…推測変換だの入力補助だのは使わぬことだ……", vbOKOnly)
Call MsgBox("……いくぞ！", vbOKOnly)
Bad = 0:Allsec = 0
Randomize
For Game = 1 to 10
Q = W(Int((16 * Rnd) + 1))
strNow = Now
A = InputBox(Q)
If A = Q then
sec = DateDiff("s", strNow, Now)
Call MsgBox("正解！" + CStr(sec) + "秒！")
Allsec = Allsec + sec
Elseif A = "" then
Call MsgBox("ふ…勝負を捨てたか…"):Exit For
Else
Call MsgBox("間違い！"):Bad = Bad + 1
End If
Next
If A <> "" then
Call MsgBox("さてさて…正解を打つのにかかった秒数は計" + CStr(Allsec) + "秒")
Tensuu = 130 - Allsec
If Tensuu >= 100 Then
Tensuu = 100
End If
If Tensuu <= 0 Then
Tensuu = 0
End If
Call MsgBox("そなたには" + CStr(Tensuu) + "点を与えよう")
If Bad > 0 Then
Tensuu = Tensuu - (Bad * 15)
If Tensuu <= 0 Then
Tensuu = 0
End If
Call MsgBox("だが！そなたは" + CStr(Bad) + "回も間違いをやらかした！")
Call MsgBox("その分を減点して" + CStr(Tensuu) + "点だ")
End If
If Tensuu = 100 Then
Call MsgBox("素晴らしい！私の婿に迎え入れようぞ！！")
ElseIf Tensuu >= 90 Then
Call MsgBox("相当な使い手と見た…私の家臣にならんか？厚遇するぞ！")
ElseIf Tensuu >= 80 Then
Call MsgBox("優秀だな…私の家臣にならんか？")
ElseIf Tensuu >= 75 Then
Call MsgBox("出来るな…まあ一献、飲むがよい")
ElseIf Tensuu >= 60 Then
Call MsgBox("叩けば伸びる者と見た…シンゲン殿に叩いて貰おう")
Call MsgBox("ナッシャー！")
Call MsgBox("バチーン！！！！")
ElseIf Tensuu >= 50 Then
Call MsgBox("並の腕だな…修行次第ってところか")
ElseIf Tensuu >= 40 Then
Call MsgBox("ま、それほど落ち込むこともないさ")
ElseIf Tensuu >= 30 Then
Call MsgBox("もう少し何とかならんかったのか？")
ElseIf Tensuu >= 20 Then
Call MsgBox("よくもまあ、そんな腕で私の前へ…")
ElseIf Tensuu >= 10 Then
Call MsgBox("……（苦笑）")
ElseIf Tensuu > 0 Then
Call MsgBox("苦笑する気も起きんわ")
Else
Call MsgBox("からかってるのか？　そこに立て！　的にしてやる")
End If
End If
Call MsgBox("また会おう！", vbOKOnly)