▼スレッド
│
└◇1672:Re[5]:回復表示 [rien] 02/11 17:11

> データファイルやスキルを変更するのではなく、職業ごとのデータファイルを作成したほうが簡単だと思います。
> 例えば以下のようにすれば良いと思います。
> 　　【ファイル名】
> 　　　　魔法使い用： mjewel_wizard.dat
> 　　　　召喚士用： mjewel_summoner.dat
> 　　　　その他の職業用： mjewel.dat
> 　　【ソースコード】
> 　　　　@mjlines = &opendat($mjeweldat);
> 　　　　　　↓
> 　　　　# 職業とファイル名の対応を定義する
> 　　　　my %file = (
> 　　　　　　'魔法使い' => 'mjewel_wizard.dat',
> 　　　　　　'召喚士' => 'mjewel_summoner.dat',
> 　　　　);
> 　　　　# 使用するファイル名を求める
> 　　　　my $mjeweldat = exists $file{$jb} ? $file{$jb} : 'mjewel.dat';
> 　　　　# データを読み込む
> 　　　　@mjlines = &opendat($mjeweldat);

お返事ありがとうございます。
なるほど・・これなら私にもできそうです＾＾
このようにしてやってみます。
ありがとうございました。