ゲーム作らないか？

58：KAITさん：2009/01/14(水) 19:17:57: srand(time);
$GUU=0;
$CYOKI=1;
$PAA=2;
$ransuu=int(rand(10));
$count=0;
while($count<$ransuu)
{
  rand;
  $count++;
}
while(1)
{
  print "手を入力してください。\n(0:グー,1:チョキ,2:パー)->";
  $input=<STDIN>;
  $com=int(rand(3));
  if($com==$GUU){ print"コンピュータはグーを出しました。\n";}
  elsif($com==$CYOKI){ print "コンピュータはチョキを出しました。\n";}
  else{ print"コンピュータはパーを出しました。\n";}
  if($input==$GUU)
  {
    if($com==$CYOKI){print"勝ちです。\n";}
    elsif($com==$PAA){print"負けです。\n";}
    else {print"アイコです。\n"}
  }
  elsif($input==$CYOKI)
  {
    if($com==$PAA){print"勝ちです。\n";}
    elsif($com==$GUU){print"負けです。\n";}
    else{print"アイコです。\n";}
  }
  elsif($input==$PAA)
  {
    if($com==$GUU){print"勝ちです。\n";}
    elsif($com==$CYOKI){print"負けです。\n";}
    else{print"アイコです。\n";}
  }
}

#Perl版じゃんけんゲーム

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板