> 　　　　　　　　elsif ($sp =~ /Mz/ && $sp =~ /My/) { $trnd = (0,1)[int(rand(2))] }

上記が無駄な以外には特に問題が無さそうですけれどね。

問題判別の為に、
> 　　　　　　　　if ($rnd <= $def_pr) {
まずは、この上にpush(@msg, "\$def_pr = $def_pr");を追加して加工を行い正しい値が表示されるか確認してみてください。
問題無いことが分かったなら、push(@msg, "\$rnd = $rnd");を追加して何度か加工を行って表示される値が1〜100程度の変化をするかを確認してみてください。
これでも問題無いようならsrandをコメントアウトしてください。

▼関連発言
│
└◆942:作成スキルについて [まいる] 02/18 18:25
　└◆943:Re:作成スキルについて [moon] 02/18 19:39
　　└◆944:Re[2]:作成スキルについて [まいる] 02/18 21:51
　　　└◆945:Re[3]:作成スキルについて [moon] 02/18 22:21
　　　　└◆946:Re[4]:作成スキルについて [まいる] 02/18 23:48<-last