流寓

スパークリング自我形成

キャラクターシート作成ツール

インターネット繋ぎたくないとか繋げないときでもキャラクターシートができるクソツールのコード覚書。

メモ帳に以下コピペして流し込んで拡張子を.vbsにすると使えます。15分で書いたからミスってたらゴメンネ。windows8でしか動作確認してないです。

以下コード

___________________________

dim d1
dim d2
dim d3
dim t
dim str
dim pow
dim i
dim edu
dim hp
dim db

randomize
str=""
'''STR
d1 = int(rnd*6+1)
d2 = int(rnd*6+1)
d3 = int(rnd*6+1)
t = d1+d2+d3
db = t
str = str + "STR:" + cstr(t) +" (" + cstr(d1) + "+" + cstr(d2) + "+" + cstr(d3) +")" + vbcrlf

'''CON
d1 = int(rnd*6+1)
d2 = int(rnd*6+1)
d3 = int(rnd*6+1)
t = d1+d2+d3
hp = t
str = str + "CON:" + cstr(t) +" (" + cstr(d1) + "+" + cstr(d2) + "+" + cstr(d3) +")" + vbcrlf

'''POW
d1 = int(rnd*6+1)
d2 = int(rnd*6+1)
d3 = int(rnd*6+1)
t = d1+d2+d3
pow = t
str = str + "POW:" + cstr(t) +" (" + cstr(d1) + "+" + cstr(d2) + "+" + cstr(d3) +")" + vbcrlf

'''DEX
d1 = int(rnd*6+1)
d2 = int(rnd*6+1)
d3 = int(rnd*6+1)
t = d1+d2+d3
str = str + "DEX:" + cstr(t) +" (" + cstr(d1) + "+" + cstr(d2) + "+" + cstr(d3) +")" + vbcrlf

'''APP
d1 = int(rnd*6+1)
d2 = int(rnd*6+1)
d3 = int(rnd*6+1)
t = d1+d2+d3
str = str + "APP:" + cstr(t) +" (" + cstr(d1) + "+" + cstr(d2) + "+" + cstr(d3) +")" + vbcrlf

'''SIZ
d1 = int(rnd*6+1)
d2 = int(rnd*6+1)
t = d1+d2+ 6
db = db+t
hp = hp +t
str = str + "SIZ:" + cstr(t) +" (" + cstr(d1) + "+" + cstr(d2) + "+6" +")" + vbcrlf

'''INT
d1 = int(rnd*6+1)
d2 = int(rnd*6+1)
t = d1+d2+6
i=t
str = str + "INT:" + cstr(t) +" (" + cstr(d1) + "+" + cstr(d2) + "+6" +")" + vbcrlf

'''EDU
d1 = int(rnd*6+1)
d2 = int(rnd*6+1)
d3 = int(rnd*6+1)
t = d1+d2+d3+3
edu = t
str = str + "EDU:" + cstr(t) +" (" + cstr(d1) + "+" + cstr(d2) + "+" + cstr(d3) +"+3)" + vbcrlf

str =str + vbcrlf

'SAN LUCK
str = str +"SAN:" +cstr(pow*5) +vbcrlf
str = str +"幸運:" +cstr(pow*5) +vbcrlf

'アイデア
str = str +"アイデア:" +cstr(i*5) +vbcrlf

'知識
str = str +"知識:" +cstr(edu*5) +vbcrlf

'耐久
str = str +"耐久:" +cstr(hp/2) +vbcrlf

'マジックポイン
str = str +"M P:" +cstr(pow) +vbcrlf

'職業p
str = str +"職業:" +cstr(edu*20) +vbcrlf

'趣味p
str = str +"趣味:" +cstr(i*10) +vbcrlf

if db >51 then
str = str +"DB:+3D6" +vbcrlf
elseif db > 40 then
str = str +"DB:+2D6" +vbcrlf
elseif db > 32 then
str = str +"DB:+1D6" +vbcrlf
elseif db >24 then
str = str +"DB:+1D4" +vbcrlf
elseif db >16 then
str = str +"DB:無し" +vbcrlf
elseif db >12 then
str = str +"DB:-1D4" +vbcrlf
else
str = str +"DB:-1D6" +vbcrlf
end if


msgbox str