プチコンまとめWiki (初代/mkII)

投稿プログラム : TYPING GAME

パンくずリスト

2011年03月17日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム QRコード 初代対応 ゲーム キーボードタイピングゲーム

概要

タイプゲーム(10個打ち終わった時間がタイトル画面に表示されます。)

遊び方

表示される単語をタイプしていきます。タイプされた文字は赤文字に変わります。

プログラムに対しての説明

ゲームオーバー関係はありませんが、QUICK CLEAR TIME を越える事を目指してより速いタイムを出して遊んで頂ければと思います。 私の記録は最高 23秒だったので初期値を30秒とさせて頂きました。

スクリーンショット・動画

ありません。

QRコード

PRG:110317
1/22/2
qr0.pngqr1.png

プログラムリスト

  1. CLEAR:C_MAX=10
  2. DIM CH$(C_MAX),CMP(C_MAX)
  3. HI_TI=30:YOU_TIME=0
  4. @START
  5. CLS:BGMPLAY 0:CNT=0
  6. @START2
  7. RESTORE @DT
  8. FOR I=0 TO C_MAX−1
  9.   READ CH$(I):CMP(I) = C_MAX
  10. NEXT
  11. BT = BUTTON()
  12. IF BT AND 16 THEN GOTO @GAME_ST
  13. LOCATE 10,10:PRINT” TYPING GAME!”
  14. LOCATE 6,13:PRINT”QUICK CLEAR TIME :”;HI_TI;” SEC”
  15. LOCATE 7,16:PRINT”YOUR CLEAR TIME :”;YOU_TIME;” SEC”
  16. LOCATE 10,20:PRINT”PUSH A BOTAN”
  17. GOTO @START2
  18. @GAME_ST
  19. CLS:BGMPLAY 16
  20. GOSUB @SET
  21. GOSUB @TIME_CAL
  22. GOSUB @TYPE
  23. GOSUB @TIME_CAL
  24. GOSUB @HI_CHK
  25. GOTO @START
  26. END
  27. @SET
  28. FLG=0
  29. R_CHR = RND(C_MAX)
  30. FOR I=0 TO C_MAX−1
  31.   IF CMP(I) == R_CHR THEN FLG=1
  32. NEXT
  33. IF FLG==1 THEN GOTO @SET
  34. CMP(CNT) = R_CHR:CNT=CNT+1
  35. IF CNT != C_MAX THEN GOTO @SET
  36. RETURN
  37. @TIME_CAL
  38. TMREAD(TIME$),HOUR,MIN,SEC
  39. IF FLG==0 THEN ST_TIME = HOUR*3600+MIN*60+SEC
  40. IF FLG==1 THEN END_TIME = HOUR*3600+MIN*60+SEC
  41. FLG=1
  42. RETURN
  43. @TYPE
  44. FOR I=0 TO C_MAX−1
  45.   LOCATE 0,10:PRINT”                ”
  46.   LOCATE 0,10:PRINT”TYPE :”;CH$(CMP(I));
  47.   CNT=0
  48.   C_LEN = LEN(CH$(CMP(I)))
  49. @LOOP
  50.   TYPE$ = INKEY$()
  51.   IF TYPE$ != MID$(CH$(CMP(I)),CNT,1) THEN GOTO @LOOP
  52.   LOCATE 6+CNT,10:COLOR 13:PRINT TYPE$
  53.   IF CNT != C_LEN THEN CNT=CNT+1:GOTO @LOOP
  54.   COLOR 0:BEEP 7
  55. NEXT
  56. RETURN
  57. @HI_CHK
  58. FLG=0
  59. YOU_TIME = END_TIME − ST_TIME
  60. IF HI_TI > YOU_TIME THEN FLG=1
  61. IF FLG==1 THEN HI_TI = YOU_TIME:CLS:BGMPLAY 12:VSYNC 200
  62. RETURN
  63. @DT
  64. DATA ”ICE”,”SPRING”,”TIME”,”MONDAY”,”TELEPHONE”,”QUIZ”,”MORNING”,”YELLOW”,”MOUSE”,”HOTDOG”

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : 「タイプされた文字は赤文字に変わります。」なら、72,73,82行目のLOCATEのy座標は同じじゃないとまずくない? (2011/03/19 (土) 19:13:37)
  • 名無しさん : すいません。その通りです。直しました。ご指摘ありがとうございます。 (2011/03/20 (日) 21:31:05)
  • QR : QRだして〜〜〜 (2012/05/02 (水) 19:30:52)
  • 名無しさん : ↑打ち込めwww (2012/05/02 (水) 19:41:09)
  • 名無しさん : 今更ながら思ったが、23行目のBOTANBUTTONに変えてはどうでしょう (2012/05/27 (日) 14:46:15)
  • 名無しさん : このプログラムは見やすくていいですね (2012/06/04 (月) 19:24:22)
  • 道産子の初心者 : 4つ前の方へ リンク集に素晴らしいものが!! (2012/10/11 (木) 16:36:54)
  • 名無しSUN : 打ち込んでQR作ってみたけど、ここに表示させる方法がわからん。 (2013/05/11 (土) 12:26:39)
  • Noodel : QRコードできました。載せましょうか? (2014/04/12 (土) 12:03:31)
  • Noodel : >↑×1の僕のコメント 載せました。 (2014/04/12 (土) 13:53:21)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.026 秒 | このページの最終更新 : 2014/04/12 (土) 13:53:21 (2068d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30