if ($sp =~ /Ws|As|Sc/) {この部分も修正が必要でした。
ここに新しく追加した種類の鍛冶品を作成できるスキルを追加してください。

> (1) 2.の部分を修正して該当スキルを習得しているなら新しい鍛冶品に相当する値（オーソドックスにやるなら$trnd=4）が選ばれることがあるようにする。

上記は1つや2つくらいの追加ならそれほど面倒でもないですが追加する種類が多いと面倒なので次のような方法でやったほうが良いかもしれません。

　　my @trnd = ();
　　push(@trnd, 0) if(index($sp, 'Ws') != -1); # 剣
　　push(@trnd, 1, 2) if(index($sp, 'As') != -1); # 鎧と盾
　　push(@trnd, 3) if(index($sp, 'Sc') != -1); # 銀細工
　　push(@trnd, 4) if(index($sp, '??') != -1); # ??は新しいスキル
　　# さらに付け加える場合は似たようなものを連ねれば良い。
　　# ここから念の為なので無くても良い
　　if(!@trnd){
　　　　push(@msg, 'あなたは鍛冶が行えません。');
　　　　return;
　　}
　　# ここまで念の為
　　$trnd = $trnd[int(rand(@trnd))]; # $trndの決定

▼関連発言
│
└◆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