Perl コーディング初心者質問コーナー Part27

311 ：nobodyさん：03/08/21 01:12 ID:???

>>306
とりあえず入力ルーチンを入れろ。
それと一回ファイルを削除して、復元しろ。わからないところ、間違っているところが表示される。

312 ：nobodyさん：03/08/21 01:13 ID:???

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;

313 ：nobodyさん：03/08/21 01:13 ID:???

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}

314 ：nobodyさん：03/08/21 01:13 ID:???

srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

315 ：nobodyさん：03/08/21 01:14 ID:???

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
Player1：体力は$HP1です
Player2：体力は$HP2です
Player1は<big>$kougeki1</big>のダメージを与えた。
Player1は<big>$kougeki1</big>のダメージを受けて混乱した。
Player1は<big>$kougeki1</big>のダメージで野クソを食べ始めた。
Player2は<big>>$kougeki2</big>のダメージを与えた。
Player2は<big>>$kougeki2</big>のダメージを受けて、道路で裸踊りを始めた。
Player2は<big>>$kougeki2</big>のダメージで電車の中のブス女をレイプし始めた。</body>\n";
print "</html>";

316 ：nobodyさん：03/08/21 01:15 ID:???

>>306

２行目に
open (IO,"+<$logfile");
５行目に
while (<IO>){
　if ($_ =~ /<>$ip/){
　　@y2=split(/<>/,$_);
　　if ($y2[6] ne $ip){
　　　push(@log,$_);
　　}else{
　　　$y2[0] = 'All Clear (^-^)v';
　　　$y2[5] = 'All Clear (^-^)v';
　　　push(@log,"$y2[0]<>$y2[1]<>$y2[2]<>$y2[3]<>$y2[4]<>$y2[5]<>$y2[6]<>$y2[7]<>\n");
　　}
　}else{
　　push(@log,$_);
　}
}
を入れろ。

317 ：あぼーん：あぼーん

あぼーん

318 ：あぼーん：あぼーん

あぼーん