武器 - BlindJustice解体真書@wiki

武器の追加

例＞新たに「闇」属性の武器を追加する

config_game.cgiの@weasに追加する

#[0]No, [1]名前, [2]属性, [3]強さ, [4]耐久, [5]重さ
[33, 'ﾊﾟﾝﾄﾞﾗﾎﾞｯｸｽ', '闇', 30, 666, 50,],

[0]No…管理側で何番目かわかる目印なだけなので実は何番でも良い
[1]名前…武器名。
[2]属性…属性により覚えれる技や武器による攻撃力の強弱をつける
[3]強さ…戦闘時に攻撃力にプラスされる値。数値はいくつでも可能(マイナスも可)。

• ランダムな数値にする場合は、int(rand(数値))のように書く

[4]耐久…武器が壊れるまでの耐久数。
[5]重さ…戦闘時に重さ分素早さが下がる。

変更・削除・並び換え

自由にOK

属性による優劣を作る ./lib/battle.cgi

• 「|」で区切ることで複数可能

my %tokkous = (
# '強い属性' => qr/弱い属性/,
	'剣' => qr/斧/,
	'斧' => qr/槍/,
	'槍' => qr/剣/,
	'炎' => qr/風/,
	'風' => qr/雷/,
	'雷' => qr/炎/,
	'闇' => qr/風|炎|雷/,
);

攻撃力に武器の強さを反映させる ./lib/battle.cgi

if ($m{wea_c} && $m{wea}) {
if    ($weas[$m{wea}][2] =~ /剣|斧|槍/) { $m_at = $m{at}  + $weas[$m{wea}][3]; }
elsif ($weas[$m{wea}][2] =~ /風|炎|雷|闇/) { $m_at = $m{mat} + $weas[$m{wea}][3]; $y_df = $y{mdf}; }
$m_ag -= $weas[$m{wea}][5];
$m_ag = int(rand(5)) if $m_ag < 1;
$m_at *= 2 if $y{wea} && &is_tokkou($m{wea},$y{wea});
}
if ($y{wea}) {
if    ($weas[$y{wea}][2] =~ /剣|斧|槍/) { $y_at = $y{at}  + $weas[$y{wea}][3]; }
elsif ($weas[$y{wea}][2] =~ /炎|風|雷|闇/) { $y_at = $y{mat} + $weas[$y{wea}][3]; $m_df = $m{mdf}; }
$y_ag -= $weas[$y{wea}][5];
$y_ag = int(rand(5)) if $y_ag < 1;
$y_at *= 2 if $m{wea} && &is_tokkou($y{wea},$m{wea});
}

ステータス表示にも武器の強さを反映させる ./lib/myself.cgi

sub my_status_mobile

if    ($weas[$m{wea}][2] =~ /無|剣|斧|槍/) { $sub_at  = "+$weas[$m{wea}][3]"; $sub_ag = "-$weas[$m{wea}][5]"; }
elsif ($weas[$m{wea}][2] =~ /風|炎|雷|闇/) { $sub_mat = "+$weas[$m{wea}][3]"; $sub_ag = "-$weas[$m{wea}][5]"; }

sub my_status_pc

if    ($weas[$m{wea}][2] =~ /無|剣|斧|槍/) { $sub_at  = "▲$weas[$m{wea}][3]"; $sub_ag = "▼$weas[$m{wea}][5]"; }
elsif ($weas[$m{wea}][2] =~ /風|炎|雷|闇/) { $sub_mat = "▲$weas[$m{wea}][3]"; $sub_ag = "▼$weas[$m{wea}][5]"; }

関連項目

• 技を追加する