2chをモチーフにしたタイピングソフトってある?
鬱打ならしってるんだけどさ。
2 :
名無しさん@お腹いっぱい。:01/11/04 03:39 ID:O3WdId/A
ぱやっぱやっ♪
ぱやぱや♪
しゅかしゅかどんどん
鬱打があるよ
4 :
:01/11/04 05:18 ID:QfSkpxFY
イッテヨシ てよく言われちゃうよ・・・
鬱打
偽鬱打
偽鬱陀?
検索かけてみよう
わーい。
ほかにないの?
10 :
名無しさん@お腹いっぱい。:01/11/10 01:42 ID:R2g4PllB
なんかあったらおしえてあげ
11 :
もなか:01/11/10 03:41 ID:R3oj5ylr
'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
12 :
もなか:01/11/10 03:47 ID:???
うう、作った本人が一ヶ所タイプミス……。
27 行目、MuVar を MyVar にしておいて。まあ、このままでも動くけどさ。
13 :
名無しさん@お腹いっぱい。:01/11/10 04:03 ID:Js6HybWK
>>11-12 (・∀・)イイ!!
110点ってのがいいのか悪いのかよくわからんが。
「ozawa-ken」2ch仕様は?