# lib.cgi の
# ↑の下に↓を追加 (24時間後開始 開始時サイコロ3個)(変更可)
$bet=100; #車券一口の値段(万円)
$ktime=24; #開始待機時間(時間)
$strtdice=3; #スタート時のサイコロの個数(個) |
# admin.cgi の
if($mode eq 'Initialize'){
&lib'err(10) if $form{'password'} ne $lib'admin;
&lib'err(10) if $form{'password2'} ne $lib'admin;
%user=();
$user{'*turn'}=1;
$user{'*goal'}=int(rand($lib'prfnum-1))+2;
$user{'*history'}='';
$user{'*lastspecial'}='';
$count=$#lib'graph;
for($j=1; $j<=6; $j++){ |
# ↑を↓に変更 (リセット時を *rtime として追加)
if($mode eq 'Initialize'){
&lib'err(10) if $form{'password'} ne $lib'admin;
&lib'err(10) if $form{'password2'} ne $lib'admin;
%user=();
$user{'*turn'}=1;
$user{'*goal'}=int(rand($lib'prfnum-1))+2; $user{'*history'}='';
$user{'*lastspecial'}='';
$count=$#lib'graph;
$user{'*rtime'}=time;
for($j=1; $j<=6; $j++){ |
# main.cgi の
if($user{"*end"}==1){
&lib'chat("<font color=\"red\"><b><<<ゲーム終了>>></b></font>");
for($j=1; $j<=$user{'lastnum'}; $j++){
if($user{"${j}_password"} ne ''){
$user{"${j}_alert"}.="ゲームは終了しました。ログアウトしてください。";
} |
# ↑を↓に変更 (終了時をリセットと同じ *rtime として追加)
if($user{"*end"}==1){
&lib'chat("<font color=\"red\"><b><<<ゲーム終了>>></b></font>");
for($j=1; $j<=$user{'lastnum'}; $j++){
if($user{"${j}_password"} ne ''){
$user{"${j}_alert"}.="ゲームは終了しました。ログアウトしてください。";
$user{'*rtime'}=time;
} |
# login.cgi の
$rowspan=$user{'player'}+2;
($goalname,$tmp,$tmp,$goalprf)=&lib'getgraph($user{'*goal'});
$goalprf=$lib'prfname[$goalprf];
if($cookie3==1){
$checked="checked";
}else{
$checked="";
}
if($user{"*end"}==1){
$round="ゲームは終了しています。";
}else{
$round="ラウンド${user{'*turn'}} 現在の目的地:$goalprf $goalname";
} |
# ↑を↓に変更 (終了時にゲームをリセット)
$rowspan=$user{'player'}+2;
($goalname,$tmp,$tmp,$goalprf)=&lib'getgraph($user{'*goal'});
$goalprf=$lib'prfname[$goalprf];
if($cookie3==1){
$checked="checked";
}else{
$checked="";
}
if($user{"*end"}==1){
$round="ゲームは終了しています。";
%user=();
$user{'*turn'}=1;
$user{'*goal'}=int(rand($lib'prfnum-1))+2;
$user{'*history'}='';
$user{'*lastspecial'}='';
$count=$#lib'graph;
$user{'*rtime'}=time;
&lib'setuser(%user);
}else{
$round="ラウンド: ${user{'*turn'}} <br> 目的地:$goalprf $goalname";
} |
# login.cgi の
$number++;
}
}
print <<EOM;
<form action="join.cgi" method="POST">
<tr><td colspan=9 bgcolor="#DDFFDD"><center>
<font size=2>
● 新 規 登 録 ●<br> 名前:<input name="name" size=12> Eメール:<input name="email" size=20><br>
パスワード[半角英数字]:<input name="password" size=15> 色:<select name="color"><option value="1">赤<option value="2">青<option value="3">緑<option value="4">黄<option value="5">紫</select> <input type="submit" value="参加する"><br>
</font>
</center></td></tr>
</form>
</table>
</center>
<div align="right"><a href="admin.cgi"><font size=2 color="#000000">[管理モード]</font></a></div>
</body> |
# ↑を↓に変更 (開始までの時間をカウントダウン)
$number++;
}
}
$ttime=$user{'*rtime'}-time+60*60*${lib'ktime};
$stime=int($ttime/3600);
$mtime=int(((($user{'*rtime'}-time+60*60*${lib'ktime})/3600)-$stime)*60);
$ytime="<br><br>次回スタートは $stime 時間 $mtime 分後です<br>ログインしても開始時間までサイコロは\表\示されません";
if($ttime<0){$ytime=''}
print <<EOM;
<form action="join.cgi" method="POST">
<tr><td colspan=9 bgcolor="#DDFFDD"><center>
<font size=2>
● 新 規 登 録 ●<br> 名前:<input name="name" size=12> Eメール:<input name="email" size=20><br>
パスワード[半角英数字]:<input name="password" size=15> 色:<select name="color"><option value="1">赤<option value="2">青<option value="3">緑<option value="4">黄<option value="5">紫</select> <input type="submit" value="参加する"><br>
</font>$ytime
</center></td></tr>
</form>
</table>
</center>
<div align="right"><a href="admin.cgi"><font size=2 color="#000000">[管理モード]</font></a></div>
</body>
print <<EOM;
</select>
前回の順位</font></center></td>
<td bgcolor="#44AA44"><center><font size=2 color="#FFFFFF"><b>ラウンド: $owari <br> ゲーム終了</b></font></center></td></tr>
</form>
<tr><td bgcolor="#DDDDFF"><center><b>順位</b></center><td bgcolor="#DDDDFF"><center><b>名前</b></center></td><td bgcolor="#DDDDFF"><center><b>車種</b></center></td><td bgcolor="#DDDDFF"><center><b>状態</b></center></td><td bgcolor="#DDDDFF"><center><b>持ち金</b></center></td><td bgcolor="#DDDDFF"><center><b>現在地</b></center></td><td bgcolor="#DDDDFF"><center><b>残距離</b></center></td><td bgcolor="#DDDDFF"><center><b>総資産</b></center></td><td bgcolor="#DDDDFF"><center><b>賞</b></center></td>
<td rowspan=${rowspan} valign="top" bgcolor="#FFFFDD">
<font size=1>$user{'*chat'}</font><br>
</td></tr>
EOM |
# main.cgi の
###偵察モードかどうか
if($form{'password'} ne '' || $form{'code'} ne ''){
$code=$user{"${num}_code"};
}else{
$code='';
}
###移動処理 |
# ↑を↓に変更 (待機時間を偵察モードとして追加)
###偵察モードかどうか
if($form{'password'} ne '' || $form{'code'} ne ''){
$code=$user{"${num}_code"};
}else{
$code='';
}
###待機時間かどうか
$ttime=$user{'*rtime'}-time+60*60*${lib'ktime};
if($ttime>0){$code=''};
###移動処理 |
# join.cgi の
for($j=1; $j<=$user{'lastnum'}; $j++){
if($user{"${j}_password"} ne '' && $user{"${j}_name"} eq $form{'name'}){
&lib'err(12);
}
}
$i=1;
while($user{"${i}_password"} ne ''){$i++;}
$user{"${i}_name"}=$form{'name'};
$user{"${i}_password"}=$form{'password'};
$user{"${i}_email"}=$form{'email'};
$user{"${i}_color"}=$form{'color'};
$user{"${i}_code"}=&lib'makecode;
$user{"${i}_car"}=1;
$user{"${i}_money"}=50*$user{"*turn"};
$user{"${i}_status"}='';
$user{"${i}_own"}='';
$user{"${i}_buil"}='';
$user{"${i}_item"}='';
$user{"${i}_dice"}=1;
$user{"${i}_ticket"}='';
$user{"${i}_position"}=1;
$user{"${i}_move"}=''; |
# ↑を↓に変更 (開始時にサイコロが指定の数になるように追加)(2005/11/23修正済)
for($j=1; $j<=$user{'lastnum'}; $j++){
if($user{"${j}_password"} ne '' && $user{"${j}_name"} eq $form{'name'}){
&lib'err(12);
}
}
$ttime=(($user{'*rtime'})+(3600*${lib'ktime}))-time;
$stdice=int($ttime/${lib'term});
if($ttime<0){$stdice=0}
$i=1;
while($user{"${i}_password"} ne ''){$i++;}
$user{"${i}_name"}=$form{'name'};
$user{"${i}_password"}=$form{'password'};
$user{"${i}_email"}=$form{'email'};
$user{"${i}_color"}=$form{'color'};
$user{"${i}_code"}=&lib'makecode;
$user{"${i}_car"}=1;
$user{"${i}_money"}=50*$user{"*turn"};
$user{"${i}_status"}='';
$user{"${i}_own"}='';
$user{"${i}_buil"}='';
$user{"${i}_item"}='';
$user{"${i}_dice"}=${lib'strtdice}-$stdice;
$user{"${i}_ticket"}='';
$user{"${i}_position"}=1;
$user{"${i}_move"}=''; |
|