> 昨日からやっててちょっと詰まってしまったところがあるので
> よかったら教えてください。
> Sub Saga
> でのBest Playerの表示のとこなのですが
> レティさんのドラゴンズテンペストの龍王の表示で
> ●●代目という表示を追加したいのですが・・
> 他の表示されている英雄や販売実績などを参考にしてやってはいるのですが
> うまく表示できません・・。
> >>Sub Find the Best Playerはこのようになっていて
> if ($sp =~ /Rk/) { $dragonking = $nm; $dkimg = $ig; $dking_id = $id; $bestdking = $Number }
> ↓こう直しても表示ができなく・・
> if($Number > $bestdking &&$sp !~ /Rk/)
>
> >>Sub Sagaが
> print qq|</td>\n<td align=center>\n|;
> 　　　　　　　　print qq|<img src=$imgdir$dkimg width=$ig_wd height=$ig_ht><br>\n| if $rimg;
> 　　　　　　　　print qq|<br>■龍王■<br><B>$dragonking</B>[ＩＤ：$dking_id]<br>龍王【$bestdking代目】| if $dragonking;
> こうなっているのですが・・。
> ＄Numberが間違っているのでしょうか？

$Numberに何代目かの情報が入っていないのだと思います。

改造方法を見てみたのですが、龍王の情報というのはdragonking.datに保存されているようなのでsub find_bestだけを変更するのでは必要な情報が足りないと思います。
以下のようにすれば良いと思います。
　　sub saga内でlist_orderが実行される前に以下を実行する。
　　　　local ($Kid, $Knm, $Knu) = split(/<>/, (&opendat($dt_king))[0]); # 最初の行には一番新しい龍王のデータが入っている。
　　　　local $bestdking = '?';
　　sub saga内に追加する。
　　　　# 開始のtd要素を追加する場合はここに追加する。
　　　　if($dking_id ne ''){
　　　　　　print qq|<img src=$imgdir$dkimg width=$ig_wd height=$ig_ht><br>\n|;
　　　　　　print qq|<br>■龍王■<br><B>$dragonking</B>[ＩＤ：$dking_id]<br>龍王【$bestdking代目】|;
　　　　}
　　　　# 終了のtd要素を追加する場合はここに追加する。
　　sub find_best内に追加する。
　　　　if (index($sp, 'Rk') != -1) { $dragonking = $nm; $dkimg = $ig; $dking_id = $id; $bestdking = $Knu if($id eq $Kid && $nm eq $Knm); }

▼関連発言
│
└◆1608:アイテムコマンドについて [rien] 01/04 13:57
　└◆1609:Re:アイテムコマンドについて [moon] 01/04 14:28
　　└◆1610:Re[2]:アイテムコマンドについて [moon] 01/04 14:35
　　　└◆1611:Re[3]:アイテムコマンドについて [rien] 01/04 15:32
　　　　└◆1612:Re[4]:アイテムコマンドについて [moon] 01/04 17:17
　　　　　└◆1613:Re[5]:アイテムコマンドについて [rien] 01/04 20:02
　　　　　　└◆1614:Re[6]:アイテムコマンドについて [moon] 01/04 21:01
　　　　　　　└◆1615:Re[7]:アイテムコマンドについて [rien] 01/04 21:35
　　　　　　　　└◆1616:Re[8]:アイテムコマンドについて [moon] 01/04 22:27
　　　　　　　　　└◆1617:Re[9]:アイテムコマンドについて [rien] 01/05 00:57
　　　　　　　　　　└◆1618:Re[10]:アイテムコマンドについ... [moon] 01/05 08:09
　　　　　　　　　　　└◆1619:Re[11]:アイテムコマンドにつ... [rien] 01/05 16:36<-last