SION0024
Parts1
<TABLE width="778" border="0" cellspacing="0" cellpadding="5">
<TR bgcolor="#CCCCFF"> <TD class="text"> <HR> <CENTER> <FONT color="#6666FF">死亡時の体力回復量について </FONT> </CENTER> <HR> <FONT face="ＭＳ ゴシック, Osaka−等幅" class="text"> 配布されている本体によって、また関連の改造によって、死亡時の体力回復量の扱いはまちまちです。<BR> ご自身の環境に合わせて修正して下さい。</FONT> <HR> </TD> </TR>
</TABLE>
Parts2
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub List In Order # Line:1930</FONT></B><br>
<b>foreach (0 .. $#lstlines) { </b><Br>
<TEXTAREA name="textfield" cols="100" rows="4" wrap="OFF">
#-ADD-
&cookie_get;
#-END of ADD- SION0024v1.02-1-1/3
foreach (0 .. $#lstlines) {
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub List In Order # Line:1941</FONT></B><BR>
<b>push (@odrlines,"$order{$Fm{'order'}}<>$lstlines[$_]"); </b><Br>
<TEXTAREA name="textfield" cols="100" rows="5" wrap="OFF">
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
</TEXTAREA>
Parts3
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Saga # Line:453</FONT></B> <br>
<B>if (!$totalplayer) { $totalplayer = 0 } if (!$playernow) { $playernow = 0 } </b><Br>
<TEXTAREA name="textarea2" cols="100" rows="5" wrap="OFF">
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
</TEXTAREA><BR>
<FONT color="#FF0000"> ※ 死亡時計算式 蘇生後、１時間に１づつＨＰ回復。$bpは時間単位<BR>
蘇生後一旦アクセスし、保存しなおす方が回復が早いので、蘇生時間を表示。</FONT>
Parts4
<BR>
<B><FONT color="#0000FF">perl/ other.cgi # Sub List In Order # Line:5</FONT></B><br>
<B>foreach (0 .. $#lstlines) { </b><Br>
<TEXTAREA name="textarea3" cols="100" rows="4" wrap="OFF">
#-ADD-
&cookie_get;
#-END of ADD- SION0024v1.02-1-1/3
foreach (0 .. $#lstlines) {
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">perl/ other.cgi # Sub List In Order # Line:17</FONT></B><BR>
<b>push (@odrlines,"$order{$Fm{'order'}}<>$lstlines[$_]"); </b><BR>
<TEXTAREA name="textarea3" cols="100" rows="5" wrap="OFF">
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
</TEXTAREA>
Parts5
<BR>
<B><FONT color="#0000FF">perl/option.cgi # Sub Saga # Line:106</FONT></B><BR>
<b>if (!$totalplayer) { $totalplayer = 0 } if (!$playernow) { $playernow = 0 } </b><br>
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
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
</TEXTAREA><BR>
<FONT color="#FF0000">※ 死亡時計算式 蘇生後、保存方法に関わらず通常保存と同じ速度でＨＰ回復。$bpは分単位<BR>
体力全快時刻を表示。</FONT>