ゲーム作らないか？

59：KAITさん：2009/01/21(水) 20:22:44: #7行じゃんけんゲーム(perl版)
@Guu=("アイコです。","勝ちです。","負けです。");@Cyoki=("負けです。","アイコです。","勝ちです。");
@Paa=("勝ちです。","負けです。","アイコです。");@janken=("グー","チョキ","パー");
$GUU=0;$CYOKI=1;$PAA=2;print"じゃんけんゲームです。\n";srand(time);
$ransuu=int(rand(10));$count=0;while($count<$ransuu){rand;$count++;}
while(1){print"手を入力してください。\n(0:グー,1:チョキ,2:パー)->";$input=<STDIN>;$com=int(rand(3));
print"コンピュータは、$janken[$com]を出しました。\n";if($input==$GUU){print"$Guu[$com]\n";}
elsif($input==$CYOKI){print"$Cyoki[$com]\n";}elsif($input==$PAA){print"$Paa[$com]\n";}}

新着レスの表示

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

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

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

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