トップ 一覧 検索 ヘルプ RSS ログイン

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-
	&amp;cookie_get;
#-END of ADD- SION0024v1.00-1-1/3
#-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,&quot;$order{$Fm{'order'}}&lt;&gt;$lstlines[$_]&quot;);
#-ADD-
		if ($c_id eq $id &amp;&amp; $c_name eq $nm &amp;&amp; $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.00-1-1/2
#-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|&lt;div align=right&gt;&lt;b&gt;|;
			push (@editor,&quot;体力回復予\告 for saga Ver 1.00 &amp;lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&amp;gt;by SION & SOSWiki&amp;lt;/A&amp;gt;&quot;);
			push (@editor,&quot;体力回復予\告 for saga Ver 1.02 &amp;lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&amp;gt;by SION & SOSWiki&amp;lt;/A&amp;gt;&quot;);
	if ($myhp &lt; $myxp || $myav eq 'dead') {
		$ENV{'TZ'} = &quot;JST-9&quot;;	
		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 &lt;= 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 = &quot;$mynm の体力は満タンです。冒険の世界へＧＯ！&quot;; }
	else {
		($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($tc + $mytm);
		$date = sprintf(&quot;%02d:%02d&quot;,$hour,$min);
		$sec2 = $tc + $mytm - time;
		if ($sec2 &gt; 60) { $min2 = int(($sec2 + 59) / 60) }
		if ($min2 &gt; 60) { $list = &quot;$mynm は $date 頃$list&quot;; }
		elsif ($min2) { $list = &quot;$mynm は $min2 分後($date 頃)$list&quot;; }
		else { $list = &quot;$mynm は $sec2 秒後($date 頃)$list&quot;; }
	}
	print qq|$list&lt;/b&gt;&lt;/div&gt;|;
#-END of ADD- SION0024v1.00-1-3/3
#-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-
	&amp;cookie_get;
#-END of ADD- SION0024v1.00-1-1/3
#-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,&quot;$order{$Fm{'order'}}&lt;&gt;$lstlines[$_]&quot;);
#-ADD-
		if ($c_id eq $id &amp;&amp; $c_name eq $nm &amp;&amp; $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.00-1-1/2
#-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|&lt;div align=right&gt;&lt;b&gt;|;
			push (@editor,&quot;体力回復予\告 for saga Ver 1.00 &amp;lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&amp;gt;by SION & SOSWiki&amp;lt;/A&amp;gt;&quot;);
			push (@editor,&quot;体力回復予\告 for saga Ver 1.02 &amp;lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&amp;gt;by SION & SOSWiki&amp;lt;/A&amp;gt;&quot;);
	if ($myhp &lt; $myxp || $myav eq 'dead') {
		$ENV{'TZ'} = &quot;JST-9&quot;;	
		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 &lt;= 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 = &quot;$mynm の体力は満タンです。冒険の世界へＧＯ！&quot;; }
	else {
		($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($tc + $mytm);
		$date = sprintf(&quot;%02d:%02d&quot;,$hour,$min);
		$sec2 = $tc + $mytm - time;
		if ($sec2 &gt; 60) { $min2 = int(($sec2 + 59) / 60) }
		if ($min2 &gt; 60) { $list = &quot;$mynm は $date 頃$list&quot;; }
		elsif ($min2) { $list = &quot;$mynm は $min2 分後($date 頃)$list&quot;; }
		else { $list = &quot;$mynm は $sec2 秒後($date 頃)$list&quot;; }
	}
	print qq|$list&lt;/b&gt;&lt;/div&gt;|;
#-END of ADD- SION0024v1.00-1-3/3
#-END of ADD- SION0024v1.02-1-3/3
</TEXTAREA><BR>
<FONT color="#FF0000">※ 死亡時計算式 蘇生後、保存方法に関わらず通常保存と同じ速度でＨＰ回復。$bpは分単位<BR>
体力全快時刻を表示。</FONT>
Copyright (C) 2002-2006 to-ya
Powered by FreeStyleWiki3.6.2 with Perl5.008009

Counter　230255

はじめに
コンテンツ
検索
キーワード

最近更新されたページ
参照数の多いページ