ハニワ旗揚げ これは　ハニワがどっちの手を上げるか当てるゲームです ←か→を　押したら動きが止まります

10 CLEAR:CLS:CS=4:RESTORE140:DIMA$(CS-1):FORA=0TOCS-1:READA$(A):NEXT:CHA=0
20 LOCATE10,0:PRINT"テヲ アゲルノハ ドッチ？":LOCATE10,1:PRINTCHR$(228)"カ"CHR$(230)"ヲ　オシテネ"
30 GOSUB120:IFA=28ORA=29THEN50
40 CHA=-(CHA=0):GOSUB110:GOTO30
50 HC=A-28:GOSUB110:LOCATE7,2:IFHC=CHA THENPRINT"ハズレデス"ELSEPRINT"アタリデス"
60 LOCATE16,2:IFCHA=1THENPRINT"ミギデシタ"ELSEPRINT"ヒダリデシタ"
70 LOCATE0,3:PRINT"モウイチドシマスカ？";:YN=1:LOCATE20,3:PRINT"PUSH SPACE";:GOSUB90:GOSUB120:IFA=0THEN70
80 GOSUB120:IFA=0THEN80ELSEIFA=13ORA=32THEN100ELSEYN=-(YN=0):GOSUB90:WAIT1:GOTO80
90 LOCATE12,3:IFYN=0THENPRINT"NO ";:GOTO130ELSEPRINT"YES";:GOTO130
100 IFYN=1THEN10ELSECLS:END
110 DEFCHR$(252)=A$(CHA*2):DEFCHR$(253)=A$(CHA*2+1):LOCATE0,0:PRINTCHR$(252)CHR$(253):GOTO130
120 A$=INKEY$:A=ASC(A$)
130 RETURN
140 DATAF808FF81A585,85A581FF080F,0F08FF81A585,85A581FF08F8

戻る トップ