> 武器防具の追加ですが、言葉足らずでした。申し訳ありません。
> 新しい種類を追加するだけでなく、やはり鍛冶できるようにもしたいのです。
> ご教授が面倒であればなんとかPC前で唸ってみますが……。

では、やっていることの要点を順を追って説明してみます。

1. $rnd = int(rand(100)) + 1;
　　成功するかの値を作成している。
2. if ($sp =~ /Ws/ && $sp =~ /As/ && $sp =~ /Sc/) { $trnd = int(rand(4)) }からelsif ($sp =~ /Sc/) { $trnd = 3 }まで
　　習得スキルにより何が出来るかを決定している。（$trnd=0が剣、1が盾、2が鎧、3が銀細工）
3. $rnd = 0 if $sp =~ /Bp/;
　　鍛冶100％のスキルを習得している場合は必ず成功にする。
4. if ($rnd <= $def_pr) {から}
　　成功なら$trndの値に従ってアイテムを作成する。

(1) 2.の部分を修正して該当スキルを習得しているなら新しい鍛冶品に相当する値（オーソドックスにやるなら$trnd=4）が選ばれることがあるようにする。
(2) 4.の中にif($trnd == 4){この部分には銀細工などと似たような処理}をする。

(2)は他のをコピーして少し修正すれば良いだけですが(1)は組み合わせが少し複雑なので頑張ってください。

▼関連発言
│
└◆920:いい加減しつこいかも知れませんが・・・ [ミル] 01/25 16:42
　└◆921:Re:いい加減しつこいかも知れませんが・・・ [ミル] 01/25 16:43
　　└◆922:Re[2]:下が表示されない [moon] 01/25 17:23
　　　└◆923:Re[3]:下が表示されない [ミル] 01/26 17:57
　　　　└◆924:Re[4]:下が表示されない [moon] 01/26 19:27
　　　　　└◆925:Re[5]:下が表示されない [ミル] 01/26 21:30
　　　　　　└◆926:Re[6]:新しい鍛冶品の追加 [moon] 01/26 22:18
　　　　　　　└◆927:Re[7]:新しい鍛冶品の追加 [moon] 01/27 00:06
　　　　　　　　└◆930:Re[8]:新しい鍛冶品の追加 [ミル] 01/29 19:02
　　　　　　　　　└◆931:Re[9]:新しい鍛冶品の追加 [moon] 01/29 22:13
　　　　　　　　　　└◆933:Re[10]:新しい鍛冶品の追加 [ミル] 01/31 19:15
　　　　　　　　　　　└◆934:Re[11]:新しい鍛冶品の追加 [moon] 02/01 00:05
　　　　　　　　　　　　└◆935:Re[12]:新しい鍛冶品の追加 [ミル] 02/05 15:49<-last