体力回復予告 for SAGA

• 青色は、改造箇所を示します。ファイル名：　ルーチン名：　行番号　を示します。
• 黒色文字は、「改造前の状態」を示します。
• テキストボックスの中のプログラムを、該当の場所に上書きして下さい。

体力回復予告 for SAGA Ver 1.02 ★☆☆☆☆☆☆☆

トップページに体力が全開する予想時刻を表示します。保存時の体力回復予告とは異なり、クッキーを発行している事が動作条件ですが、保存時の体力回復予告より、より便利となっています(^-^
この 改造を取り入れる際には、併せて 【 改造者表示 】 の改造を取り入れて頂けると嬉しいです。（非強制）

履歴
2007/03/04  Version 1.02　SIONjamサポート掲示板の報告を元に修正
2007/02/17　Wikiにて公開　
2003/08/31　Version 1.01　体力回復後の表示がマイナスになるバグの修正
2003/08/14　Version 1.00　公開 

　

死亡時の体力回復量について 配布されている本体によって、また関連の改造によって、死亡時の体力回復量の扱いはまちまちです。 ご自身の環境に合わせて修正して下さい。

本家版改造ポイント

◆改造ポイント０１ クッキーを所得し、ユーザーデータを確認します。

sos2.cgi # Sub List In Order # Line:1930
foreach (0 .. $#lstlines) {
#-ADD- &cookie_get; #-END of ADD- SION0024v1.02-1-1/3 foreach (0 .. $#lstlines) {


sos2.cgi # Sub List In Order # Line:1941
push (@odrlines,"$order{$Fm{'order'}}<>$lstlines[$_]");
push (@odrlines,"$order{$Fm{'order'}}<>$lstlines[$_]"); #-ADD- if ($c_id eq $id && $c_name eq $nm && $c_pass eq $ps) { $myid = $id; $mynm = $nm; $mysp = $sp; $mybp = $bp; $myhp = $hp; $myxp = $xp; $mytm = $tm; $myav = $av; $myfg = $fg; } #-END of ADD- SION0024v1.02-1-1/2

◆改造ポイント０２ ユーザーデータを元に、回復予定時間を表示します。

sos2.cgi # Sub Saga # Line:453
if (!$totalplayer) { $totalplayer = 0 } if (!$playernow) { $playernow = 0 }
if (!$totalplayer) { $totalplayer = 0 } if (!$playernow) { $playernow = 0 } #-ADD- print qq|<div align=right><b>|; push (@editor,"体力回復予\告 for saga Ver 1.02 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;"); if ($myhp < $myxp || $myav eq 'dead') { $ENV{'TZ'} = "JST-9"; if ($myav ne 'dead') { if ($myfg =~ /SS/) { $tc = $def_hs; } elsif ($myfg =~ /NS/) { $tc = $def_hn; } elsif ($myfg =~ /HS/) { $tc = $def_hh; } if ($mysp =~ /Hl/) { $tc -= $def_hm; } if ($myav =~ /poison/) { $tc += $def_pz; } if ($tc <= 0) { $tc = 0; } $tc = ($tc * ($myxp - $myhp) * 60); $list = 'に体力が全快となる予\定です'; } else { $tc = (($def_ha - $mybp) * 60 * 60); $list = 'に蘇生する予\定です'; } } if ($c_id eq '') { $list = 'cookie を食べ残した為回復時間を予\想出来ません'; } elsif ($tc + $mytm <= time) { $list = "$mynm の体力は満タンです。冒険の世界へＧＯ！"; } else { ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($tc + $mytm); $date = sprintf("%02d:%02d",$hour,$min); $sec2 = $tc + $mytm - time; if ($sec2 > 60) { $min2 = int(($sec2 + 59) / 60) } if ($min2 > 60) { $list = "$mynm は $date 頃$list"; } elsif ($min2) { $list = "$mynm は $min2 分後($date 頃)$list"; } else { $list = "$mynm は $sec2 秒後($date 頃)$list"; } } print qq|$list</b></div>|; #-END of ADD- SION0024v1.02-1-3/3
※ 死亡時計算式 蘇生後、１時間に１づつＨＰ回復。$bpは時間単位
蘇生後一旦アクセスし、保存しなおす方が回復が早いので、蘇生時間を表示。

dollEx版改造ポイント

◆改造ポイント０１ クッキーを所得し、ユーザーデータを確認します。

perl/ other.cgi # Sub List In Order # Line:5
foreach (0 .. $#lstlines) {
#-ADD- &cookie_get; #-END of ADD- SION0024v1.02-1-1/3 foreach (0 .. $#lstlines) {


perl/ other.cgi # Sub List In Order # Line:17
push (@odrlines,"$order{$Fm{'order'}}<>$lstlines[$_]");
push (@odrlines,"$order{$Fm{'order'}}<>$lstlines[$_]"); #-ADD- if ($c_id eq $id && $c_name eq $nm && $c_pass eq $ps) { $myid = $id; $mynm = $nm; $mysp = $sp; $mybp = $bp; $myhp = $hp; $myxp = $xp; $mytm = $tm; $myav = $av; $myfg = $fg; } #-END of ADD- SION0024v1.02-1-1/2

◆改造ポイント０２ ユーザーデータを元に、回復予定時間を表示します。

perl/option.cgi # Sub Saga # Line:106
if (!$totalplayer) { $totalplayer = 0 } if (!$playernow) { $playernow = 0 }
if (!$totalplayer) { $totalplayer = 0 } if (!$playernow) { $playernow = 0 } #-ADD- print qq|<div align=right><b>|; push (@editor,"体力回復予\告 for saga Ver 1.02 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;"); if ($myhp < $myxp || $myav eq 'dead') { $ENV{'TZ'} = "JST-9"; if ($myav ne 'dead') { if ($myfg =~ /SS/) { $tc = $def_hs; } elsif ($myfg =~ /NS/) { $tc = $def_hn; } elsif ($myfg =~ /HS/) { $tc = $def_hh; } if ($mysp =~ /Hl/) { $tc -= $def_hm; } if ($myav =~ /poison/) { $tc += $def_pz; } if ($tc <= 0) { $tc = 0; } $list = 'に体力が全快となる予\定です'; } else { $tc = $def_hh; $list = 'に蘇生する予\定です'; } $tc = ($tc * ($myxp - $myhp) * 60); if ($myav eq 'dead') { $tc = $tc + (($def_ha * 60 - $mybp) * 60); } } if ($c_id eq '') { $list = 'cookie を食べ残した為回復時間を予\想出来ません'; } elsif ($tc + $mytm <= time) { $list = "$mynm の体力は満タンです。冒険の世界へＧＯ！"; } else { ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($tc + $mytm); $date = sprintf("%02d:%02d",$hour,$min); $sec2 = $tc + $mytm - time; if ($sec2 > 60) { $min2 = int(($sec2 + 59) / 60) } if ($min2 > 60) { $list = "$mynm は $date 頃$list"; } elsif ($min2) { $list = "$mynm は $min2 分後($date 頃)$list"; } else { $list = "$mynm は $sec2 秒後($date 頃)$list"; } } print qq|$list</b></div>|; #-END of ADD- SION0024v1.02-1-3/3
※ 死亡時計算式 蘇生後、保存方法に関わらず通常保存と同じ速度でＨＰ回復。$bpは分単位
体力全快時刻を表示。