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

SION0034の変更点

  • 追加された行はこのように表示されます。
  • 削除された行はこのように表示されます。
!Parts1
<TABLE width="778" border="0" cellspacing="0" cellpadding="5">
	<TR bgcolor="#CCCCFF"> 
		<TD class="text"> 
			<HR>
			<FONT face="ＭＳ ゴシック, 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- SOSWiki0034v1.00-1-2/8
#-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- SOSWiki0034v1.00-1-3/8
#-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- SOSWiki0034v1.00-1-4/8
#-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- SOSWiki0034v1.00-1-5/8
#-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- SOSWiki0034v1.00-2-6/8
#-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- SOSWiki0034v1.00-3-7/8
#-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- SOSWiki0034v1.00-3-8/8
#-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- SOSWiki0034v1.00-5-1/4
#-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- SOSWiki0034v1.00-5-3/4
#-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- SOSWiki0034v1.00-5-4/4
#-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>
Copyright (C) 2002-2006 to-ya
Powered by FreeStyleWiki3.6.2 with Perl5.008009

Counter　230126

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

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