流寓

スパークリング自我形成

ダイスクソツール

インターネット繋ぎたくないとか繋げないときでも好きなだけ好きなダイスがふれるクソツール。1D139とかいう半端な数字も振れます(ダイスじゃない)

Nanko=Dの左側(ダイス個数)、Nanmen=Dの右側(何面ダイスか)編集して使ってください

 

メモ帳に以下コピペして流し込んで拡張子を.vbsにすると使えます。windows8でしか動作確認してないです。

以下コード

___________________________

Dim Nanmen
Dim Nanko
Dim Str
Dim Total
Dim One
Dim i
Dim Cnt

'*******************************
'ダイス設定
'何面
Nanmen = 100
'何個
Nanko = 1
'*******************************

i = vbRetry
Do While i = vbRetry
Str = ""
Total = 0

For Cnt = 1 to Nanko
Randomize

One = Int(Nanmen * Rnd)+1
Total = Total + One
If Cnt = 1 then
Str = Cstr(One)
ElseIf Cnt > 1 then
Str = Str + "+" + Cstr(One)
End If
Next
If Nanko = 1 then
Str = cstr(Nanko) + "D" + cstr(Nanmen) + "→" + cstr(Total)
Else
Str = cstr(Nanko) + "D" + cstr(Nanmen) + "→" + cstr(Total) + "(" + str + ")"
End If
i = msgbox(Str, vbRetryCancel)
Loop