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

2017/09/03 10:16:03

MixJuice GET URL : kidspod.club/mj/248

はなびみくじ

ボタンを押すと花火が打ちあがり、運勢を占います。

  • No registered tag exist.
  • 1
  • 1

SOURCE CODE

10 CLS:WAIT 30
20 ? "ハナヒ゛ミクシ゛   ホ゛タンヲオシテクタ゛サイ"
30 IF BTN()==1 THEN GOTO 50 
40 GOTO 30
50 FOR K=1 TO 15:LOCATE 16,23:?CHR$(#F2):WAIT 30:NEXT
60 R=RND(3)+1:GOTO R*100
100 FOR K=15 TO 17:LOCATE K,9:GOSUB 1000:NEXT:FOR K=8 TO 10:LOCATE 16,K:GOSUB 1000:NEXT:WAIT 30
110 FOR K=15 TO 17:FOR I=7 TO 11 STEP 2:LOCATE K,I:GOSUB 1000:NEXT:NEXT
120 FOR K=14 TO 18 STEP 4:FOR I=8 TO 10:LOCATE K,I:GOSUB 1000:NEXT:NEXT:WAIT 30
130 FOR K=14 TO 18:FOR I=6 TO 12 STEP 6:LOCATE K,I:GOSUB 1000:NEXT:NEXT 
140 FOR K=7 TO 11:FOR I=13 TO 19 STEP 6:LOCATE I,K:GOSUB 1000:NEXT:NEXT 
150 LOCATE 0,0:?"イイオンカ゛クカ゛キケソウ!":GOTO 10000
200 LOCATE 16,9:?CHR$(#FA):LOCATE 14,8:?"アッチー!":LOCATE 0,0:?"アリャリャ ウチアケ゛ラレチャッタ":?"キョウハイイコトナサソウ、、、":GOTO 10000
300 FOR K=14 TO 18:FOR I=7 TO 9 STEP 2:LOCATE K,I:GOSUB 2000:NEXT:NEXT
310 FOR K=7 TO 11:FOR I=13 TO 19 STEP 6:LOCATE I,K:GOSUB 2000:NEXT:NEXT
320 LOCATE 16,8:GOSUB 2000:LOCATE 0,0:?"キョウハオカネカ゛トテモタマルヨ!":GOTO 10000
999 END
1000 ?CHR$(#EE):RETURN
2000 ?CHR$(#F5):RETURN
10000 IF BTN()==1 THEN GOTO 10
10001 GOTO 10000

COMMENT