▼スレッド
│
└◇1669:Re[2]:回復表示 [moon] 02/11 00:22

　└◇1670:Re[3]:回復表示 [rien] 02/11 09:03
　　└◇1671:Re[4]:回復表示 [moon] 02/11 16:37
　　　└◇1672:Re[5]:回復表示 [rien] 02/11 17:11<-last

> 　　　　　　push(@msg, sprintf("%02d:%02d", $hour, $min) . ' 頃に蘇生する予\定です');

蘇生ではないですね。
メッセージは修正してください。

> 以下のようなかんじでできると思います。
> 　　if($dap < $MaxAp){
> 　　　　# 回復時間の設定値を求める
> 　　　　my $tc = $fg eq 'NS' ? $Ap_ns : $fg eq 'HS' ? $Ap_hs : $fg eq 'SS' ? $Ap_ss : 0;
> 　　　　if($tc > 0){
> 　　　　　　# 全回復するまでに必要な時間を求める
> 　　　　　　$tc *= 60 * ($MaxAp - $dap);
> 　　　　　　# 表示する
> 　　　　　　$ENV{'TZ'} = "JST-9";
> 　　　　　　my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime(time + $tc);
> 　　　　　　push(@msg, sprintf("%02d:%02d", $hour, $min) . ' 頃に蘇生する予\定です');
> 　　　　}
> 　　}
>

お返事ありがとうございます。
うまく表示できました。

クッキーを使用したものを導入したかったのですが、
sub list_orderでの追加は書いてある通りに追加してあったみたいで・・（&cookie_get;
自分では原因が特定できないので
上記の方法にします。
ありがとうございました。

もう1つ質問なのですが
1つのスキルを職業ごとに表示を変えることは可能なのでしょうか？
深海星さんの改造で宝石に魔力を籠めるというもので
アクセを一時使用アイテムに変化させるものなのですが
これを例えば
魔法使いと召喚士で一時使用のアイテムを変化させたいのですが・・（名称を変えるといった意味です

mjewel.datを変えて職の指定をすればいいのかなと思ったのですが、なかなかうまくいかず・・
それとも同じスキルではなくて別にしたほうがよいのでしょうか？？

いつもで申し訳ないのですが
よろしくお願いします。

> もう1つ質問なのですが
> 1つのスキルを職業ごとに表示を変えることは可能なのでしょうか？
> 深海星さんの改造で宝石に魔力を籠めるというもので
> アクセを一時使用アイテムに変化させるものなのですが
> これを例えば
> 魔法使いと召喚士で一時使用のアイテムを変化させたいのですが・・（名称を変えるといった意味です
>
> mjewel.datを変えて職の指定をすればいいのかなと思ったのですが、なかなかうまくいかず・・
> それとも同じスキルではなくて別にしたほうがよいのでしょうか？？

データファイルやスキルを変更するのではなく、職業ごとのデータファイルを作成したほうが簡単だと思います。
例えば以下のようにすれば良いと思います。
　　【ファイル名】
　　　　魔法使い用： 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);

> データファイルやスキルを変更するのではなく、職業ごとのデータファイルを作成したほうが簡単だと思います。
> 例えば以下のようにすれば良いと思います。
> 　　【ファイル名】
> 　　　　魔法使い用： 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);

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