流寓

スパークリング自我形成

ダイスクソツール

インターネット繋ぎたくないとか繋げないときでも好きなだけ好きなダイスがふれるクソツール。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

 

自探索者

http://charasheet.vampire-blood.net/list_coc.html?tag=urn-coc


一覧

・星野倫太郎

・七山一弥

・六本木礼(六本木カローラ

・キップ・ゴールドスタイン

・山田唯一神

・八月憂己

・安楽木奇子

・我們彩丸(不定)

・黒葛誉

・黒葛祝

・ヌゥ

・蟻巣川テレス(卒業)

・交出りある(ロスト)


すぐに回せるシナリオ

一時間前にいきなりリクエストされても回せるシナリオ

 
・「掌の花庭」
(1〜3人)ボイセ1〜2時間
 
・「きみがきたあとのぼくはね、」
(1〜3人)ボイセ1〜3時間
 
・「首吊りアパート」
※SANC多
(2〜4人)ボイセ4時間超
 
・「汝、死を乗り越え目覚めを渇望せよ」
※ロスト率高め
(1〜4人)ボイセ3〜4時間
 
・「水底に沈む」
※水泳持ちじゃないとキツイ
(1〜3人)ボイセ2時間程度
 
・「Can't Escape」
(2〜4人)テキセ4時間程度
継続顔見知り同士だと面白い
 
・「アルイド」オリジナル
※ロスト率高め
(1〜3人)テキセ5時間程度
APP14以上の探索者一人必須
 
 
・「輪廻の狭間」
※SANC多め、ロスト高め
(2~4人)ボイセ1~3時間
 
・「セックスしないと出られない部屋」
※セックスしなくても出られます
(2人)テキセ3時間
 
・「霧の葬儀屋」
(1~4人)ボイセ1~2時間
 
・「画家は狂気に満ちて」
※SANC多め
 (1~3人)ボイセ1~2時間
 
 
一時間以内はちょっと無理だけど概ねすぐにまわせるシナリオ
・「 Tomorrow Of Despair」
(2~5人)ボイセ4時間程度
戦闘あり

ハウスルール草稿

うろの卓はなんとな〜くこんな感じ  随時更新


キャラクター製作時

・何等かの職業をベースにして振ること。オリジナル職業の場合も、それに近いと思われる既存のデータを使用し、事前にKPまで確認をとること


・特徴は採用しない


・技能の上限は、技能ひとつに限り90まで可能とする。80を超えた技能がある場合は、そのPCは「分野における権威」として扱い、シナリオによってはメリット/デメリットを付ける可能性があることを了承する

 通常の技能の上限は80


・職業技能、趣味技能を合わせて割りふることはひとつのみ可能。上限に気を付けてください


・フレーバーのオリジナル技能を推奨しています(他の卓ではあんまり使えないPCになってしまうけど……)

 今まで面白かったのは「芸術(おしぼり折り紙)」「芸術(ツイッター)」とか


・振りなおし、数値の入れ替えは自由

 あなたの良心に任せます


・年齢は基本EDU+6を下限の目安にしてください(遵守はしなくてOK。あくまでも目安。あまりにかけ離れている場合はちょっと聞くかも)



探索について

・基本的に目星聞き耳図書館と言った探索基礎技能は「対象について、抜け漏れなく情報を出すことができる」ものとする。

 一度失敗しても、「手に何か握っているか」「埃をかぶっていないものはないか」「壁との隙間に何か落ちていないか」など具体的な指示があれば再度の振りなおしまたは技能なしでも、指示部分、指示の仕方によっては情報が出る。

 しかし、あくまでもその場合出るのは指示があった狭い範囲のみであり、全体の情報については分からない


・探索系技能については、時間経過(概ね4~6行動程度)で再度振りなおすことができるものとする


・知識系技能については、追加オブジェクト(辞書や専門書)を入手した場合のみ振りなおしが一度だけできる


・交渉系技能については信用、言いくるめ、説得の順に時間がかかるものとする。また、嘘の内容でこれらを振ることはできるが、嘘がバレた場合には著しく信頼を損なうものとして、その後信用を振ることはできなくなる。説得、言いくるめにも大幅なマイナスがかかる。





クリティカル、ファンブル処理

・1D100で5以下の値が出たときクリティカルとする。技能値が5に満たない場合でも、何かしらボーナスをつける


・1D100で96以上の値が出たときファンブルとする。技能値にロールプレイなどによるプラス補正が付き95を超えている場合でも、何かしらペナルティーをつける。


・探索中のクリティカルにはボーナスをつける(追加情報、HP回復など)


・探索中のファンブルにはペナルティをつける(HP減少、SAN減少、オブジェクトの破壊)


・戦闘中クリティカルにはボーナスとしてプラス一点の追加ダメージをつける


・戦闘中ファンブルにはペナルティーとしてそのターン回避不能(回避行動をすでに行なっていた場合、次のターン回避不能)とする


・クリティカルについてはPLの宣言で持ち越すことができる。その場合クリティカル一度につき一度だけ技能の無条件振りなおしが可能になる


ファンブルについてはKPの宣言で持ち越す場合がある。






戦闘について

・1ターンにつき、自分の手番以外に回避を一度だけすることができる。

 ターンのはじめに「回避に専念する」と宣言があった場合、二回まで回避行動を行うことができる


・部位狙い可能。以下を参照

頭:成功率-20%、ダメージ+1D6、次行動の可否が攻撃者の幸運ダイスで決定(失敗で行動不能)

腕:成功率-15%、武器を持っている場合落とす

足:成功率-15%、ダメージ分DEXを下げる(1以下にはならない)


・かばう可能。ターンの最初に宣言することで好きなタイミングで使用できる。


・マーシャルアーツ、何回読んでもよくわからないので誰か教えてください


・攻撃行動以外は内容にもよりますが基本的に一技能1ターンで処理します



KPとして半人前なので色々試行錯誤しながらやってます

・情報出ないのはKPも困っちゃうので、最低限分は技能なしでも出すようにしてます

・あとKPが黙ってられないタイプなので、頻繁に茶々入れが入ります……うるさかったら「KPミュートして」など柔らかくお伝えください

・面白いダイスロールはすぐ採用します。(今まで面白かったのは「蝶に対する魅了判定」とか)場合によってはヒントも出すので、たくさん行動してください

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

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

メモ帳に以下コピペして流し込んで拡張子を.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