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

[0642 nobodyさん 03/08/08 04:34 ID:RBuH2Puu]

こうなる
プレイヤー１は$play11の攻撃　プレイヤー２の$play22の攻撃；

$play11 = $sentaku1；
$play22 = $sentaku1；
$kik = 60；
$sentaku = {
$play1 = int(rand 2)；
if($play1 == 0) {
$kik；
}
}
else($play1 == 1) {
$bougyo = int(rand 5)；
if($bougyo =< 1){
0;
else($bougyo >= 2) {
1;
}
{
$panti = int(rand 5);
if($panti == 0) {
$panti1 = 10;
else($panti > 0) {
$panti2 = 20;
}
* $bougyo;
}
}