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

「イエヤスのパチ運占い・他」の編集履歴（バックアップ）一覧はこちら

「イエヤスのパチ運占い・他」(2009/02/06 (金) 11:53:49) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

■イエヤスの戦国乙女パチ運占い＠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)

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


■遊び方（要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)