Program post site for everyone
最初に「how many do you play?」と出るので、参加人数を入力してください。
するとゲームが始まります。
スペースキーで次の人に爆弾を渡すことができます。
時間が経つと爆発します。
爆発した時に持ってた人は脱落します。
「player○ dropped out
press any key to continue」
と出るのでなんか押してください。
最後の一人になったら終了。
頑張って生き残れー
5 'Bomb game 10 CLS:CLV:R=1:INPUT"How many people do you play?",P:IF P<2 ?"This number cannot be entered.":BEEP:WAIT100:RUN 20 CLS:B=RND(5*P)+5*P:CLT:N=1:LC12,0:?"ROUND";R:LC15,9:?CHR$(242) 30 LC15,10:IF TICK()%2=0 ?CHR$(232) ELSE ?CHR$(233):K=INKEY():IF K=32 N=N+1:IF N>P N=1 40 LC0,0:?"Player";N:IF TICK()<B*60 GOTO30 50 LC15,10:?CHR$(244):LC11,12:?"KABOOM!!":BEEP:?"Player ";N;" dropped out":?"Press any key to continue":WAIT60:CLK:FORI=0TO1:I=!!INKEY():NEXT:P=P-1:IF N=1 N=2 ELSE N=1 60 IF P>1 R=R+1:GOTO20 ELSE:?"Winner:player";N;"!!":END
