himself+3
goto *enemy2
stop
*enemy2
if kake>score: mes"所持金足りないですよ・・・"goto*Selection
gettime enemy,7
enemy=enemy/400+1
if himself=1:mes "あなたはグーを出しました。"
if himself=2:mes "あなたはチョキを出しました。"
if himself=3:mes "あなたはパーを出しました。"
if enemy=1:mes "敵はグーを出しました。"
if enemy=2:mes "敵はチョキを出しました。"
if enemy=3:mes "敵はパーを出しました。"
if himself = enemy :mes "あいこです。"
if (himself=1)and(enemy=2):mes "あなたの勝ちです。":score+kake*2
if (himself=1)and(enemy=3):mes "あなたの負けです。":score-kake
if (himself=2)and(enemy=1):mes "あなたの負けです。":score-kake
if (himself=2)and(enemy=3):mes "あなたの勝ちです。":score+kake*2
if (himself=3)and(enemy=1):mes "あなたの勝ちです。":score+kake*2
if (himself=3)and(enemy=2):mes "あなたの負けです。":score-kake
if score<1 :mes "所持金が無くなりました・・・":wait 200:end
goto*Selection
stop
テキストボックス内に、数字以外の文字を入力すると警告等が出るように設定したいのですが、どうしたら良いでしょうか？