２ｃｈをモチーフにしたﾀｲﾋﾟﾝｸﾞｿﾌﾄってある?

'WSH ヘタレだけど作ってみた。
'この書き込みを type.vbs という名で保存して実行してね。
'もち、Wscript.exe のある人限定。
Dim W(5)
Dim MyVar,j,sec,point,Good,Bad,A,Q
function MojiMoji()
Randomize
W(1) = Chr(Int((199 - 188 + 1) * Rnd + 188))
W(2) = Chr(Int((188 - 177 + 1) * Rnd + 177))
W(3) = Chr(Int((200 - 199 + 1) * Rnd + 199))
W(4) = Chr(Int((177 - 166 + 1) * Rnd + 166))
W(5) = Chr(Int((211 - 200 + 1) * Rnd + 200))
MojiMoji = W(1)+W(2)+W(3)+W(4)+W(5)+"!"
End function
Sub Main
If Timer > 86200 Then
MyVar = MsgBox("（・∀・）24 ｼﾞｦｽｷﾞﾃｶﾗ､ﾊｼﾞﾒﾃﾈ!")
Exit Sub
End If
MyVar = MsgBox("（・∀・）ﾎﾞｸﾉﾀｲﾋﾟﾝｸﾞｿﾌﾄ! ﾊｼﾞﾒﾀﾗ､ｽｸﾞ Alt+ﾊﾝｶｸ ﾃﾞ IME ｵﾝｼﾃﾈ!")
sec = Timer:Good = 0:Bad = 0
For j = 1 to 10
Q = MojiMoji():A = InputBox("（・∀・）"+Q+"ｯﾃｳｯﾃｰﾈ ﾋﾞｯｸﾘﾏｰｸﾉﾄｺﾛﾏﾃﾞ")
If A = Q then
Good = Good + 1:MyVar = MsgBox("（・∀・）ｾｲｶｲ! ｶｺｲｲ!!")
Elseif A = "" then
MuVar = MsgBox("（；∀；）ﾐｽﾃﾗﾚﾀ! ｵﾜﾙ!"):Exit For
Else
MyVar = MsgBox("（・∀・）ﾏﾁｶﾞｲ! ｶｴﾚ!!"):Bad = Bad + 1
End If
Next
If A <> "" then
point = Int(Timer-Sec):MyVar = MsgBox("（・∀・）"+CStr(point)+" ﾋﾞｮｳ､ｶｶｯﾀｰﾖ!")
point = 100 - point:MyVar = MsgBox("（・∀・）100 ｶﾗｻｼﾋｲﾃ"+CStr(point)+"...")
point = point + (Good * 10) + (Bad * -20)
MyVar = MsgBox("（・∀・）ｾｲｶｲ +10 ､ﾏﾁｶﾞｲ -20 ﾃﾞ､"+CStr(point)+"ﾃﾝﾃﾞｼﾀ!")
End If
End Sub
Main

うう、作った本人が一ヶ所タイプミス……。
27 行目、MuVar を MyVar にしておいて。まあ、このままでも動くけどさ。