2011年03月17日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム QRコード 初代対応 ゲーム キーボードタイピングゲーム
タイプゲーム(10個打ち終わった時間がタイトル画面に表示されます。)
表示される単語をタイプしていきます。タイプされた文字は赤文字に変わります。
ゲームオーバー関係はありませんが、QUICK CLEAR TIME を越える事を目指してより速いタイムを出して遊んで頂ければと思います。 私の記録は最高 23秒だったので初期値を30秒とさせて頂きました。
ありません。
- CLEAR:C_MAX=10
- DIM CH$(C_MAX),CMP(C_MAX)
- HI_TI=30:YOU_TIME=0
- @START
- CLS:BGMPLAY 0:CNT=0
- @START2
- RESTORE @DT
- FOR I=0 TO C_MAX−1
- READ CH$(I):CMP(I) = C_MAX
- NEXT
- BT = BUTTON()
- IF BT AND 16 THEN GOTO @GAME_ST
- LOCATE 10,10:PRINT” TYPING GAME!”
- LOCATE 6,13:PRINT”QUICK CLEAR TIME :”;HI_TI;” SEC”
- LOCATE 7,16:PRINT”YOUR CLEAR TIME :”;YOU_TIME;” SEC”
- LOCATE 10,20:PRINT”PUSH A BOTAN”
- GOTO @START2
- @GAME_ST
- CLS:BGMPLAY 16
- GOSUB @SET
- GOSUB @TIME_CAL
- GOSUB @TYPE
- GOSUB @TIME_CAL
- GOSUB @HI_CHK
- GOTO @START
- END
- @SET
- FLG=0
- R_CHR = RND(C_MAX)
- FOR I=0 TO C_MAX−1
- IF CMP(I) == R_CHR THEN FLG=1
- NEXT
- IF FLG==1 THEN GOTO @SET
- CMP(CNT) = R_CHR:CNT=CNT+1
- IF CNT != C_MAX THEN GOTO @SET
- RETURN
- @TIME_CAL
- TMREAD(TIME$),HOUR,MIN,SEC
- IF FLG==0 THEN ST_TIME = HOUR*3600+MIN*60+SEC
- IF FLG==1 THEN END_TIME = HOUR*3600+MIN*60+SEC
- FLG=1
- RETURN
- @TYPE
- FOR I=0 TO C_MAX−1
- LOCATE 0,10:PRINT” ”
- LOCATE 0,10:PRINT”TYPE :”;CH$(CMP(I));
- CNT=0
- C_LEN = LEN(CH$(CMP(I)))
- @LOOP
- TYPE$ = INKEY$()
- IF TYPE$ != MID$(CH$(CMP(I)),CNT,1) THEN GOTO @LOOP
- LOCATE 6+CNT,10:COLOR 13:PRINT TYPE$
- IF CNT != C_LEN THEN CNT=CNT+1:GOTO @LOOP
- COLOR 0:BEEP 7
- NEXT
- RETURN
- @HI_CHK
- FLG=0
- YOU_TIME = END_TIME − ST_TIME
- IF HI_TI > YOU_TIME THEN FLG=1
- IF FLG==1 THEN HI_TI = YOU_TIME:CLS:BGMPLAY 12:VSYNC 200
- RETURN
- @DT
- DATA ”ICE”,”SPRING”,”TIME”,”MONDAY”,”TELEPHONE”,”QUIZ”,”MORNING”,”YELLOW”,”MOUSE”,”HOTDOG”
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.191 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:11 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30