cookbook|||2001/11/10/Sat|||15:11:45|||aadgDsiFr0Nps|||レイアウト|||マル|||||||||http://|||13|||情報でのレベル表示|||いじるのはｓｕｂ3のみです。
sub CNTRY_LISTの中の210行目辺りに
"<tr><td nowrap style=\"color:$VALUES[13];\">$Key</td><td>".&RANK($VALUES[0],$VALUES[5],$VALUES[6])."</td><td><img src=$IMG_FOLDER2/$VALUES[27].gif width=32 height=32></td><td align=center>".&STATUS_CONVERT("$VALUES[19]",'s')."</td><td align=center>".&STATUS_CONVERT("$VALUES[20]",'s')."</td><td align=center>".&STATUS_CONVERT("$VALUES[21]",'s')."</td><td align=center>".&STATUS_CONVERT("$VALUES[22]",'s')."</td><td align=center>".&STATUS_CONVERT("$VALUES[24]",'j')."</td><td><b>".$WN_sA[0]."(LV$WLV_A)</b><td></tr>"}
この一文の中の＜ｔｄ＞＜／ｔｄ＞の間か、最後の＜／ｔｄ＞＜／ｔｒ＞の間に
<td align=right nowrap $STYL2><b>$VALUES[29]</b></td>
を追加します。追加した場所を覚えておいてください。
次に、その少し下に、
print "<table border=8 cellspacing=0 style=\"font-size:15px;background:#000000;border:8px outset $CL_VALUES[0];\">";
print "<tr><td colspan=9 bgcolor=$CL_VALUES[0] style=\"color:#000000;font-size:35px;\">$CO_NAME";
print "<span style=\"font-size:15px;\"> 国費 <b>\$$CL_VALUES[1]</b></span></td></tr>";
print "<tr><td>Name</td><td>Rank</td><td> </td><td>$STATUS_NAME[0]</td><td>$STATUS_NAME[1]</td><td>$STATUS_NAME[2]</td><td>$STATUS_NAME[3]</td><td>熟</td><td>Weapon</td></tr>";
foreach $Key (sort {$P{$b} <=> $P{$a}} keys %P){
@VALUES = split(/\s/,$P{$Key});
if ($FORM{'CNTRY'} eq "$VALUES[5]" && !$VALUES[28] && ($VALUES[6] == 1 || $VALUES[6] == 0)){print &TR;}
if ($FORM{'CNTRY'} && $FORM{'CNTRY'} eq "$VALUES[5]" && $VALUES[28]){
($UNIT_A.= &TR,$uflag_A=1) if $VALUES[28] eq $CL_VALUES[2] && $VALUES[6] != -1;
($UNIT_B.= &TR,$uflag_B=1) if $VALUES[28] eq $CL_VALUES[3] && $VALUES[6] != -1;
($UNIT_C.= &TR,$uflag_C=1) if $VALUES[28] eq $CL_VALUES[4] && $VALUES[6] != -1;
($LEADER_A.= &TR,$lflag_A=1) if $VALUES[28] eq $CL_VALUES[2] && $VALUES[6] == -1;
($LEADER_B.= &TR,$lflag_B=1) if $VALUES[28] eq $CL_VALUES[3] && $VALUES[6] == -1;
($LEADER_C.= &TR,$lflag_C=1) if $VALUES[28] eq $CL_VALUES[4] && $VALUES[6] == -1;
}
$plys++;
}
if ($FORM{'CNTRY'}){
print "<tr><td colspan=9 bgcolor=$CL_VALUES[0] style=\"color:#000000;font-size:25px;\"> <b>第一部隊</b> ";
print $CL_VALUES[2] ? "$CL_VALUES[2]":!$CL_VALUES[2] ? '未結成':'</td></tr>';
print $lflag_A ? "$LEADER_A":!$lflag_A ? "<tr><td colspan=9>隊長不在</td></tr>":'\n';
print $uflag_A ? "$UNIT_A":!$uflag_A ? "<tr><td colspan=9>NoPlayer</td></tr>":'';
print "<tr><td colspan=9 bgcolor=$CL_VALUES[0] style=\"color:#000000;font-size:25px;\"> <b>第二部隊</b> ";
print $CL_VALUES[3] ? "$CL_VALUES[3]":!$CL_VALUES[3] ? '未結成':'</td></tr>';
print $lflag_B ? "$LEADER_B":!$lflag_B ? "<tr><td colspan=9>隊長不在</td></tr>":'\n';
print $uflag_B ? "$UNIT_B":!$uflag_B ? "<tr><td colspan=9>NoPlayer</td></tr>":'';
print "<tr><td colspan=9 bgcolor=$CL_VALUES[0] style=\"color:#000000;font-size:25px;\"> <b>第三部隊</b> ";
print $CL_VALUES[4] ? "$CL_VALUES[4]":!$CL_VALUES[4] ? '未結成':'</td></tr>';
print $lflag_C ? "$LEADER_C":!$lflag_C ? "<tr><td colspan=9>隊長不在</td></tr>":'\n';
print $uflag_C ? "$UNIT_C":!$uflag_C ? "<tr><td colspan=9>NoPlayer</td></tr>":'';
}
のような欄がありますので、
とりあえず、colspan=9（休戦中、参戦中の改造をしている場合はcolspan=10になってます）を+1してください。
最後にこの文の中ですが、229行目辺りの
print "<tr><td>Name</td><td>Rank</td><td> </td><td>$STATUS_NAME[0]</td><td>$STATUS_NAME[1]</td><td>$STATUS_NAME[2]</td><td>$STATUS_NAME[3]</td><td>熟</td><td>Weapon</td></tr>";
の中の＜ｔｄ＞＜／ｔｄ＞の間か、最後の＜／ｔｄ＞＜／ｔｒ＞の間に
最初に追加した場所と同じ所にLVなど適切な名称を入れてください。
以上です。||||||各プレイヤーのレベルをいちいち聞く人がおりまして、
それならもう表示させようと思いました。
|||end|||
cookbook|||2001/11/13/Tue|||10:22:58|||aaPMesHJCjb2Q|||戦闘|||くえすん|||quess@hiroba.org|||「思い出にしたくない」|||http://www23.cds.ne.jp/~memory/quess/cgi/ebs/ebs.cgi|||13|||チャンプスクリプトで挑戦側も作戦ランダム|||###王者能力判定
って書いてある行から下に少しいくと
&SYUSEI('m',"$FORM{'mode'}",'Pl');
って部分があるので
チャンプ側のまねをして
以下に差し替えます。
$PlMsnNo=int(rand(8)+1);
&SYUSEI('m',"$PlMsnNo",'Pl');
これで挑戦側もランダムになります。
ついでに
$VsMsnNo=int(rand(8)+1);
の行を行頭に#をつけてマスクすればチャンプ側は通常攻撃のみになります。
改造ってほどでもないんで、ヒントのほうに＾＾；
||||||小手先改造ですが＾＾；
チャンプスクリプトの作戦を変更する改造です。
|||end|||
cookbook|||2001/11/19/Mon|||12:01:30|||aasSPzwCo8QDk|||レイアウト|||LUCIFER|||hidetaka0613@hotmail.com|||LA SALLE DE JEU|||http://ftp.naver.co.jp/hdtk/|||13|||武器性能表示|||下のように効果の横の<br>をはずして、予備の前（print'のすぐ後）に<br>をいれます。
こうすると効果が横に並んでくれます。
print "相手機体損壊・" if $WN_sA[7]=~ m/A/;
print "一撃大破・" if $WN_sA[7]=~ m/B/;
print "ＳＰアップ・" if $WN_sA[7]=~ m/C/;
print "ＤＦアップ・" if $WN_sA[7]=~ m/D/;
print "リフレクト・" if $WN_sA[7]=~ m/E/;
print "乱射・" if $WN_sA[7]=~ m/F/;
print "幸運・" if $WN_sA[7]=~ m/G/;
@WN_sB=split(/\,/,$WEAPON_LIST{"$WN_B"});print'<br>＆nbsp;＆nbsp;予備＆nbsp;＆nbsp;<b>'.$WN_sB[0].'</b>';||||||追加効果が縦に並んでしまうのでうちでは次のようにしています。
（どうでもいいことですか？）|||end|||
cookbook|||2001/11/25/Sun|||06:47:29|||aanhmHAriCFfM|||機能|||Ｓｈｉｎｙａ||||||one book|||http://www.kitanet.ne.jp/~shinya/|||13|||制圧スクリプトを盛り上げる為に|||まず、
&LOCK;
&DBM_CONVERT('P',"$FORM{pname}") if $FORM{'yousai'};
&DBM_CONVERT('P',"$FORM{pname}",'VS',"$FORM{vsname}") if !$FORM{'yousai'};
&DBM_CONVERT('C',"$PL_VALUES[5]",'VC',"$VS_VALUES[5]") if !$FORM{'yousai'};
&DBM_CONVERT('C',"$PL_VALUES[5]",'VC',"$FORM{'vsname'}") if $FORM{'yousai'};
の下に
foreach $no (0 .. 10){
open(IN,"seiatu/$no\.cgi");
$cdat[$no] = <IN>;
close(IN);
($cname[$no],$c_0[$no],$c_1[$no],$c_2[$no],$c_3[$no],$c_4[$no],$c_5[$no],$c_6[$no],$c_7[$no],$c_8[$no],$c_9[$no],$c_10[$no],$c_11[$no],$c_12[$no],$c_13[$no],$c_14[$no],$c_15[$no],$c_16[$no],$c_17[$no],$c_18[$no],$c_19[$no],$c_20[$no],$c_21[$no],$c_22[$no],$c_23[$no],$c_24[$no],$c_25[$no],$c_26[$no],$c_27[$no],$c_28[$no],$c_29[$no],$c_30[$no],$wcount[$no],$wrecord[$no],$recnum[$no],$prize[$no]) = split(/<>/,$cdat[$no]);
をいれます。（ここで制圧スクリプトのデータを読み込んでいます）
（pirnt"グラナダの支配者は$cname[0]";こんな感じでどこかで使えるかも？）
そして、
$PL_VALUES[30]+=$PL_In[4];
print "$FORM{'pname'} は $PL_In[4] の経験値 ＆ ＄$PL_In[2] を獲得<br>";
の上に
#領土上納金
$SK=0;$JK=0;
for($RS=0;$RS<11;$RS++){if($PL_VALUES[5] eq $c_5[$RS]){$SK++;}}
if (0<$SK){
$JK=int($SK*(rand(99)+1));
$PL_VALUES[8]+=$JK;
print"領土[$SK]上納金$JKを懐に収めた<br>";
をいれます。
$JK=int($SK*(rand(99)+1)); ここで貰える金額を計算しています。
この場合領土１つに付き1〜100の収入です。
毎戦闘の事なのでそんなに大きくしない方が良いと思いますがrand()野中身を変えれば、入手金も変えられます。
固定にしたい場合は$JK=int($SK*100);等とすると良いと思います。
まだ、テストもそんなに出来ていないので不具合出た場合は修正します。
<----ランダムにする場合$JK=int($SK*(rand(49)+51));位の方が領土増えて収入増える感が出て良いかもです？---->||||||付けようと思ってた、制圧スクリプトによって税金？入手スクリプトを思い付いたので。|||end|||
cookbook|||2001/11/29/Thu|||19:42:44|||aaNN3X.PL2piw|||レイアウト|||巫女|||miko_ebs@hotmail.com|||FLIGHTLESS WINGS|||http://homepage2.nifty.com/endless_miko/index.html|||13|||レイアウトの変更のヒント？？(ステータスをグラフ化）|||$bar = 'http://〜〜'; ##グラフ用の絵が置いてあるアドレス
$bh =6; ##グラフの高さ
をconfig.cgiの125行目くらいに
$divpm = int(### / 100);
$bw0 = int(0.4 * ($PL_VALUES[19] / $divpm));
print "<td style=\"$STYL1\" align=center>攻撃</TD>";
print "<td align=\"left\" nowrap $STYL2><img src=\"$bar\" width=$bw0 height=$bh><FONT size=\"1\">($PL_VALUES[19])</FONT></TD>";
をebs_sub3.cgiのレイアウト変更後、入れたい位置に挿入。
###←をご自分のサイトの最大ステータスの数字を入れると良いです。
こんな感じに、いろいろ応用すると・・・
http://homepage2.nifty.com/endless_miko/reiauto.JPG
見たいな感じに出来ます(^^
レイアウトをいじくりたい方用の情報です(^^;||||||レイアウトの改造を行う人用？？|||end|||