トークロボ　イシモム　（save 0)/Kidspod;

2017/08/31 20:08:31

GOOD!2
PLAY!1
VIEW1120

: imomusi

トークロボ　イシモム　（save 0)

PUSH BUTTONと出たらボタンを押してください。
このゲームは、Ichigojamをもっとたくさんの人に知ってもらいたくて作りました。
顔だけなので、体を作ればマイロボットになります。
プログラムの改造も簡単にできます！

※このプログラムは、０番セーブにセーブして「トークロボ　イシモム　（save 1/2)」がそれぞれのセーブにある状態でLRUNしてください。
（このプログラムは、「こどもプロコン２０１７」に応募しています。）

No registered tag exist.

5 REM イシモム
10 CLS
20 FOR M=5 TO 10:LOCATE M,4:? CHR$(#8F):NEXT:FOR M=22 TO 27:LOCATE M,4:? CHR$(#8F):NEXT
30 FOR M=5 TO 9:LOCATE 5,M:? CHR$(#8F):NEXT:FOR M=5 TO 9:LOCATE 10,M:?CHR$(#8F):NEXT:FOR M=5 TO 9:LOCATE 22,M:?CHR$(#8F):NEXT:FOR M=5 TO 9:LOCATE 27,M:? CHR$(#8F):NEXT
40 FOR M=5 TO 10:LOCATE M,9:? CHR$(#8F):NEXT:FOR M=22 TO 27:LOCATE M,9:? CHR$(#8F):NEXT
50 LOCATE 9,5:? CHR$(#8F):LOCATE 26,5:? CHR$(#8F):LOCATE 8,5:? CHR$(#8A):LOCATE 25,5:? CHR$(#8A)
60 FOR M=8 TO 24:LOCATE M,17:? CHR$(#8F):NEXT
70 LOCATE 0,20:? "PUSH BUTTON":GOSUB 100:FOR M=9 TO 23:LOCATE M,18:?CHR$(#8F):NEXT
80 R=RND(15)
85 IF R=4 THEN GOTO 120
86 IF R=5 THEN GOTO 160
90 LRUN 1
100 B=BTN():IF B=1 THEN RETURN
110 GOTO 100
120 FOR M=1 TO 31:LOCATE M,1:?CHR$(#EB):NEXT:LOCATE 0,20:? "オナカスイテキタ、、、  ":WAIT 180:PLAY "ARA":? "ナンテネ!":WAIT 60:? "PUSH BUTTON"
130 B=BTN()
140 IF B=1 THEN LRUN0
150 GOTO 130
160 LOCATE 0,20:? "ファァ、、       ":WAIT 60:? "ネムイ、、、":? "PUSH BUTTON":GOTO 130
1000 REM イシモム

: Kidspod運営チーム2017/09/07 17:35:22
色んなことを話したり、曲を流したり、楽しいロボットですね。体を付けてあげたくなります。こどもプロコンにはたくさんの応募があるので章を取るのは大変ですが、良い結果が出ることをお祈りしてます！

トークロボ イシモム （save 0)

トークロボ　イシモム　（save 0)