トップ 差分 一覧 ソース 検索 ヘルプ PDF RSS ログイン

SION0034

Parts1

<TABLE width="778" border="0" cellspacing="0" cellpadding="5">

<TR bgcolor="#CCCCFF"> 
	<TD class="text"> 
		<HR>
		<FONT face="MS ゴシック, Osaka−等幅" class="text">本家版をはじめ、現状では「勝数・負け数」などのデータからRateを計算する方法が取られています。<BR>
		しかしこの方法では、「弱い敵とだけ戦う」人と、「強い人と戦う」人だと、前者の方がRateが高くなるわけですが、そうして出されたRateは実際の強さとは関係無くなります。さらに、「弱い物虐め」を助長することにもなります。<BR>
		<BR>
		当改造では、Rateの差を元に、より高いRateの人に打ち勝てば大きくRateが上がり、より低いRateの人に負けると大きくRateが下がるという、<BR>
		実際の強さを極力反映する手法を採用しました。<BR>
		<BR>
		</FONT> 実際の採用時は、Rate計算部をそれぞれ扱いやすいよう微調整、又は改造の上でのご利用をお奨めします。<BR>
		(別にそのままでも問題は無いと思いますが) 
		<HR>
	</TD>
</TR>

</TABLE>

Parts2

<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Make New # Line:520</FONT></B> <BR>
<b>$line = join('<>',$id,$Fm{'name'},$Fm{'pass'},$jbn,$jig,$jsp,,,$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,,$jxi,time,,,'???',,$host,'',0,0,"\n"); </b><br>
<TEXTAREA name="textfield" cols="100" rows="3" wrap="OFF">
#-EDIT- $line = join('&lt;&gt;',$id,$Fm{'name'},$Fm{'pass'},$jbn,$jig,$jsp,,,$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,,$jxi,time,,,'???',,$host,'',0,0,&quot;\n&quot;);

$line = join('&lt;&gt;',$id,$Fm{'name'},$Fm{'pass'},$jbn,$jig,$jsp,'','',$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,'',$jxi,time,'','','???','',$host,'',0,0,1000,&quot;\n&quot;);

#-END of EDIT- SION0034v1.00-1-1/8
</TEXTAREA><BR><BR><BR>
<FONT color="#0000FF"><B><BR> sos2.cgi # Sub Get User # Line:2146-2148</B></FONT><br>($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,<BR>

		$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/<>/,$_[0]); </b><br>

<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
#-EDIT- ($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
# $av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/&lt;&gt;/,$_[0]);

chomp $_[0];
($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,$rt) = split(/&lt;&gt;/,$_[0]);

#-END of EDIT- SION0034v1.00-1-2/8
</TEXTAREA><BR><BR><BR>
<FONT color="#0000FF"><B>sos2.cgi # Sub Get Partner # Line:2163</B></FONT><br>($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,

		<BR>
		$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl) 
		= split(/<>/,$_[0]); </b><br>

<TEXTAREA name="textarea2" cols="100" rows="5" wrap="OFF">
#-EDIT- ($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
# $pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl) = split(/<>/,$_[0]);

($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$prt) = split(/<>/,$_[0]);

#-END of EDIT- SION0034v1.00-1-3/8
</TEXTAREA><BR><BR><BR>
<FONT color="#0000FF"><B><BR> sos2.cgi # Sub User Out # Line:2173</B></FONT><BR>
<b> $line = join('<>',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,<BR>

		$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,"\n"); </b><br>

<TEXTAREA name="textarea3" cols="100" rows="5" wrap="OFF">
#-EDIT- $line = join('<>',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
# $av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,"\n");

$line = join('<>',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
		$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,$rt,"\n");

#-END of EDIT- SION0034v1.00-1-4/8
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000CC"><BR> sos2.cgi # Sub Partner Out # Line:2181</FONT></B><BR>
<b>$pline = join('<>',$pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,<BR>

		$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,"\n"); </b><br>

<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
#-EDIT- $pline = join('<>',$pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
# $pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,"\n");

$pline = join('<>',$pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
		$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$prt,"\n");

#-END of EDIT- SION0034v1.00-1-5/8
</TEXTAREA>

Parts3

<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Rate # Line:1866</FONT></B><BR>
<b># Sub Rate # の全文</b><BR>
<TEXTAREA name="textarea4" cols="100" rows="5" wrap="OFF">
#-EDIT-# Sub Rate #
#sub rate {
# local($wn,$lz,$kl,$dt,$rt) = @_;
# $rt = int($wn/($wn + $lz) * 100) * $wn - ($dt * 100) + ($kl * 100);
# return $rt;
#}
sub rate {

push (@editor,&quot;Rate強化 Ver 1.00 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;&quot;);
local($wnrt,$lzrt) = @_;
if ($wnrt &lt; 1) { $tprt  = abs($wnrt) + 1; $wnrt = 1; $lzrt += $tprt; }
if ($lzrt &lt; 1) { $tprt += abs($lzrt) + 1; $lzrt = 1; $wnrt += $tprt; }
$uprt = int($lzrt / $wnrt * 10) + 1;
if ($uprt &gt; 100) { $uprt = 100 + int($uprt / 100); }
$wnrt += $uprt - $tprt; $lzrt -= $uprt - $tprt;
return($wnrt,$lzrt);

}
#-END of EDIT- SION0034v1.00-2-6/8
</TEXTAREA>

Parts4

<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Fight # Line:1610-1611</FONT></B><BR>
<b>if ($wn) { $rt = &rate($wn,$lz,$kl,$dt) } else { $rt = 0 }<BR>
if ($pwn) { $prt = &rate($pwn,$plz,$pkl,$pdt) } else { $prt = 0 } </b><BR>
<TEXTAREA name="textarea6" cols="100" rows="5" wrap="OFF">
#-EDIT- if ($wn) { $rt = &rate($wn,$lz,$kl,$dt) } else { $rt = 0 }
# if ($pwn) { $prt = &rate($pwn,$plz,$pkl,$pdt) } else { $prt = 0 }

if    ($result ==  1) { ($rt,$prt) = &rate($rt,$prt); }
elsif ($result == -1) { ($prt,$rt) = &rate($prt,$rt); }
else                  { $rt++; $prt++; }

#-END of EDIT- SION0034v1.00-3-7/8
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF"><BR>sos2.cgi # Sub List In Order # Line:1931-1933</FONT></B><BR>
<b>($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,<BR>
$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/<>/,$lstlines[$_]);<BR>
if ($wn) { $rt = &rate($wn,$lz,$kl,$dt) } else { $rt = 0 } <BR><BR><BR>
<TEXTAREA name="textarea5" cols="100" rows="5" wrap="OFF">
#-EDIT- ($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
# $av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/<>/,$lstlines[$_]);
# if ($wn) { $rt = &rate($wn,$lz,$kl,$dt) } else { $rt = 0 }

	($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
	$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,$rt) = split(/<>/,$lstlines[$_]);

#-END of EDIT- SION0034v1.00-3-8/8
</TEXTAREA>

Parts5

<BR>
<B><FONT color="#0000FF">全てのユーザーデータにフラグ追加します。 1000&lt;&gt; を追加して下さい。</FONT></B>

Parts6

<BR>
<B><FONT color="#0000FF">ufs2.cgi # Sub Made From # Line607</FONT></B> <BR>
<b>$line = join('<>',$id,$Fm{'name'},$Fm{'ps1'},$jbn,$jig,$jsp,,,$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,,$jxi,time,,,'???',,'','SS',0,0,"\n"); </b><br>
<TEXTAREA name="textarea9" cols="100" rows="3" wrap="OFF">
#-EDIT- $line = join('<>',$id,$Fm{'name'},$Fm{'ps1'},$jbn,$jig,$jsp,,,$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,,$jxi,time,,,'???',,'','SS',0,0,"\n");

$line = join('<>',$id,$Fm{'name'},$Fm{'ps1'},$jbn,$jig,$jsp,'','',$jak,$jdd,$jhp,$jhp,0,0,'alive',0,0,0,$jmn,'',$jxi,time,'','','???','','','SS',0,0,1000,"\n");

#-END of EDIT- SION0034v1.00-5-1/4
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">ufs2.cgi # Sub Made Free # Line649</FONT></B> <BR>
<b>$line = join('<>',$id,$Fm{'name'},$Fm{'ps1'},$Fm{'job'},$Fm{'ig'},$Fm{'sp'},,,$Fm{'ak'},$Fm{'dd'},$Fm{'xp'},$Fm{'xp'},0,0,'alive',0,0,0,$Fm{'mn'},,$Fm{'xi'},time,,,$Fm{'cm'},$Fm{'is'},,'NS',0,0,"\n"); </b><br>
<TEXTAREA name="textarea11" cols="100" rows="3" wrap="OFF">
#-EDIT- $line = join('<>',$id,$Fm{'name'},$Fm{'ps1'},$Fm{'job'},$Fm{'ig'},$Fm{'sp'},,,$Fm{'ak'},$Fm{'dd'},$Fm{'xp'},$Fm{'xp'},0,0,'alive',0,0,0,$Fm{'mn'},,$Fm{'xi'},time,,,$Fm{'cm'},$Fm{'is'},,'NS',0,0,"\n");

$line = join('<>',$id,$Fm{'name'},$Fm{'ps1'},$Fm{'job'},$Fm{'ig'},$Fm{'sp'},'','',$Fm{'ak'},$Fm{'dd'},$Fm{'xp'},$Fm{'xp'},0,0,'alive',0,0,0,$Fm{'mn'},'',$Fm{'xi'},time,'','',$Fm{'cm'},$Fm{'is'},'','NS',0,0,0,1000,"\n");

#-END of EDIT- SION0034v1.00-5-2/4
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">ufs2.cgi # Sub Get User # Line951-952</FONT></B><BR>
<b>($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,<BR>

		$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/<>/,$_[0]); </b><br>

<TEXTAREA name="textarea12" cols="100" rows="5" wrap="OFF">
#-EDIT- ($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
# $av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/<>/,$_[0]);

($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,$rt) = split(/<>/,$_[0]);

#-END of EDIT- SION0034v1.00-5-3/4
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">ufs2.cgi # Sub User Out # Line961-962</FONT></B><BR>
<b>$line = join('<>',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,<BR>
$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,"\n"); </b><Br>
<TEXTAREA name="textarea13" cols="100" rows="5" wrap="OFF">
#-EDIT- $line = join('<>',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
# $av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,"\n");

$line = join('<>',$id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
		$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl,$rt,"\n");

#-END of EDIT- SION0034v1.00-5-4/4
</TEXTAREA>

Parts6

<TABLE width="778" border="2" cellspacing="0" cellpadding="5" bordercolor="#CCCCFF">

<TR bordercolor="#0000FF"> 
	<TD class="script"> <B><FONT color="#0000FF">本家版と同様にフラグの追加・rateルーチンの修正を行ってください。 
		</FONT></B></TD>
</TR>

</TABLE>