Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2016/05/21 18:06:18

MixJuice GET URL : kidspod.club/mj/67

あみだくじ

あみだくじで今日のお手伝いを決めます

SOURCE CODE

1 ' アミタ゛クシ゛
10 CLV:CLS:FORI=0TO4:FORJ=0TO19:LCI*6+3,J+2:?"(#92)":NEXT:NEXT:FORI=0TO4:LCI*6+3,1:?I+1:NEXT
20 LET[0],110,120,130,140,150
21 FORI=0TO4:H=RND(5):LET[5],[I]:LET[I],[H]:LET[H],[5]:NEXT
22 FORI=0TO4:LCI*6+2,22:GOSUB[I]:NEXT
23 LC0,0:?"ナンハ゛ンニスル?(1ー5)";:K=INKEY()-49:IFK>4ORK<0 GOTO23
30 ?K+1:FORJ=0TO8:FORI=0TO3:LCI*6+3,J*2+3:H=RND(I+2):IFH>0ANDVPEEK(I*6+3,J*2+3)=146 ?"(#95)(#91)(#91)(#91)(#91)(#91)(#94)"
32 NEXT:G=0:NEXT
40 FORI=0TO4:X=I*6+3:Y=2:U=146:GOSUB60:NEXT:GOSUB100:GOTO10
60 V=VPEEK(X,Y):LCX,Y:?"(#F9)":WAIT7:IFY=22 LCX-1,21:?I+1:LCX-2,22:?"[":LCX+3,22:?"]":PLAY"O3C16":RETURN
70 GOSUB(V-140)*100
80 LETU,V:GOTO60 
100 K=INKEY():IFK=0 GOTO100ELSERETURN
110 ?"センタク":RETURN
120 ?"クサトリ":RETURN
130 ?"フトン":RETURN
140 ?"ミス゛ヤリ":RETURN
150 ?"ショッキ":RETURN
500 LCX,Y:?"(#91)":LETX,X+W:RETURN
600 LCX,Y:?"(#92)":LETY,Y+1:RETURN
800 LCX,Y:?"(#94)":IFU=146 LETX,X-1:W=-1:RETURNELSELETY,Y+1:RETURN
900 LCX,Y:?"(#95)":IFU=146 LETX,X+1:W=1:RETURNELSELETY,Y+1:RETURN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2016/12/01 09:21:51

ただあみだくじを作るだけじゃなく、アニメーションで結果を見せてくれるのがステキです!