スロットマシーン      
Sample
Slott Machine
  
手持ちコイン  枚
1〜6の数字をランダムに発生します。
3つの数字がそろえば20枚のコインをGETできます。
【Reset】を押すと初期状態に戻ります。
コインがゼロになると、ダイアログが表示されます。

ソース
<HTML>
<HEAD>
<TITLE>JAVA-Script&tips</TITLE>

<script language="JavaScript">
<!--
dst=0;
speed=10;
function game_reset(){
  document.form1.result.value=50;
  document.form1.text1.value=" ";
  document.form1.text2.value=" ";
  document.form1.text3.value=" ";
}
function slott(){
  if(elm1<10000){
    a=Math.floor(Math.random()*100);
    while(a>17)a=Math.floor(Math.random()*100);
    if(a==0||a==8)a=1;
    if(a==14||a==15)a=2;
    if(a==9||a==13)a=3;
    if(a==10||a==16)a=4;
    if(a==11||a==7)a=5;
    if(a==17||a==12)a=6;
    document.form1.text1.value=a;
    elm1++;
    clearTimeout(dst);
    dst=setTimeout('slott()',speed);
  }
  else if(elm1==10000)stop(elm1,cur_coin);
  if(elm2>10000&&elm2<20000){
    b=Math.floor(Math.random()*100);
    while(b>17)b=Math.floor(Math.random()*100);
    if(b==0||b==8)b=1;
    if(b==14||b==15)b=2;
    if(b==9||b==13)b=3;
    if(b==10||b==16)b=4;
    if(b==11||b==7)b=5;
    if(b==17||b==12)b=6;
    document.form1.text2.value=b;
    elm2++;
    clearTimeout(dst);
    dst=setTimeout('slott()',speed);
  }
  else if(elm2==20000)stop(elm2,cur_coin);
  if(elm3>20000&&elm3<30000){
    c=Math.floor(Math.random()*100);
    while(c>17)c=Math.floor(Math.random()*100);
    if(c==0||c==8)c=1;
    if(c==14||c==15)c=2;
    if(c==9||c==13)c=3;
    if(c==10||c==16)c=4;
    if(c==11||c==7)c=5;
    if(c==17||c==12)c=6;
    document.form1.text3.value=c;
    elm3++;
    clearTimeout(dst);
    dst=setTimeout('slott()',speed);
  }
  else if(elm3==30000)stop(elm3,cur_coin);
}
function stop(){
  if(elm1==10000&&elm2==20000&&elm3==30000){
    a=document.form1.text1.value;
    b=document.form1.text2.value;
    c=document.form1.text3.value;
    if(a==b&&b==c) {
      document.form1.result.value=cur_coin+20;
    }
  }
}
function start_machin(elm){
  elm=eval(elm);
  cur_coin=eval(document.form1.result.value);
  if(elm==0){
    if(cur_coin<1){
      alert("もー、コインはありません。  (;_;)");
      document.form1.result.value=0;
    }
    else {
      cur_coin--;
      document.form1.result.value=cur_coin;
      elm1=0;elm2=10001;elm3=20001;slott(elm1,elm2,elm3);
    }
  }
  else if(elm==1){document.form1.result.value=cur_coin;elm1=10000;slott(elm1,cur_coin);}
  else if(elm==2){document.form1.result.value=cur_coin;elm2=20000;slott(elm2,cur_coin);}
  else if(elm==3){document.form1.result.value=cur_coin;elm3=30000;slott(elm3,cur_coin);}
}
//-->
</script>

</HEAD>
<BODY >
  <form name="form1">
  <table border=4 cellpadding=8 cellspacing=4 bgcolor=black bordercolor=#ffff88><tr>
  <tr>
  <td colspan="3" align=center>
  <font color=red face="century" size=4><i>Slott Machine
  </td>
  </tr>
  <td align="center"><input type="text" size="1" name="text1"></td>
  <td align="center"><input type="text" size="1" name="text2"></td>
  <td align="center"><input type="text" size="1" name="text3"></td>
  </tr>
  <tr>
  <td align="center"><input type="button" value="Stop" onClick="start_machin(1);"></td>
  <td align="center"><input type="button" value="Stop" onClick="start_machin(2);"></td>
  <td align="center"><input type="button" value="Stop" onClick="start_machin(3);"></td>
  <tr>
  <td colspan="3" align=center>
  <input type="button" value="Start" onClick="start_machin(0);">  
  <input type="button" value="Reset" onClick="game_reset();">
  </td>
  </tr>
  <tr>
  <td colspan="3" align=center><font color=gold>手持ちコイン 
  <input type="text" size="3" name="result" value=50> 枚</td>
  </tr>
  </table>
  </form>
  1〜6の数字をランダムに発生します。<br>
  3つの数字がそろえば20枚のコインをGETできます。<br>
  【Reset】を押すと初期状態に戻ります。<br>
  コインがゼロになると、ダイアログが表示されます。
</BODY>
</HTML>
ワンポイント解説
speed=10; の値を大きくすれば、スローになります。

a=Math.floor(Math.random()*100);
while(a>17)a=Math.floor(Math.random()*100);

で、17以下の乱数を発生させています。