プチコンまとめArchive

投稿プログラム : サイモンゲーム

パンくずリスト

このページの最終更新 : 2013/06/26 (水) 07:17:34

2012年5月22日投稿 / 投稿者 : Lv100 / タグ : 投稿プログラム ゲーム QRコード 初代対応 Lv100

注意

このゲームは“MEM:REKIDAI”を使用します。

更新情報

  • 5/25 ver1.0に更新

タイトル画面を少し変えました。

タイトルで難易度を変えられるようにしました。

コマンドを入力するときに時間制限を設けました。

com turnの前に少し時間をおきました。

  • 5/23 ver0.1に更新

タイトル画面でのノイズ音を無くしました。

バージョン情報を表示するようにしました。

  • 5/22 公開

サイモンゲームを公開しました。

概要

あのゲームです。

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

まだありません。

QR コード

プチコンmkII 向けの QR コードです。上から読み取ってください。

PRG:SIMON
1/32/33/3
qrko0.pngqrko1.pngqrko2.png

プログラムリスト

  1. CLEAR:GCLS 0:STAGE=1
  2. DIM ANKI(100),BOTAN(100),J(100)
  3. @TITLE
  4. CLS:SYSBEEP=0
  5. LOAD ”MEM:REKIDAI”,FALSE:SYSBEEP=1
  6. IF SAIKOU<STAGE THEN SAIKOU=STAGE
  7. REKI=VAL(MEM$)
  8. IF REKI<SAIKOU THEN MEM$=STR$(SAIKOU)
  9. IF REKI<SAIKOU THEN ?”アナタノキロクカ゛レキタ゛イノキロクヲ、ヤフ゛リマシタ!”
  10. IF REKI<SAIKOU THEN ?”ホソ゛ンスルノテ゛、「ハイ」ヲタッチシテネ。”
  11. IF REKI<SAIKOU THEN SAVE ”MEM:REKIDAI”:CLS
  12. REKI=VAL(MEM$)
  13. BGMPLAY 0:STAGE=1
  14. FOR I=0 TO 19
  15. ANKI(I)=0:BOTAN(I)=0
  16. NEXT I
  17. COLOR 9:LOCATE 0,5
  18. ?”  ││   ┌──┬─ ──   │ ├┤    ┌─  ”
  19. ?” ─┼┼──┬┘ ─┼──   ┌ ├─┬─┐   │   ”
  20. COLOR 11
  21. ?”  ││  │   │     │ ┘ │ └───┤  ┐”
  22. COLOR 10
  23. ?”   ┘  │   └─────┘  ─┘     └──┤”
  24. ?”                      ver 1.0 ”
  25. COLOR 4:LOCATE 0,12
  26. ?”ル-ルハカンタン。”
  27. ?”ヒカッタホ゛タンヲ、シ゛ュンニオスタ゛ケ!”
  28. COLOR 10
  29. ?”ホンシ゛ツノ サイコウキロク ”;SAIKOU;” stage”
  30. ?”レキタ゛イ オウシ゛ャ ”;REKI;” stage”
  31. COLOR 0:LOCATE 6,17
  32. ?”A テ゛ ケ゛-ムスタ-ト!(EASY)”
  33. LOCATE 6,18
  34. ?”X テ゛ ケ゛-ムスタ-ト!(HARD)”
  35. LOCATE 6,19
  36. ?”B テ゛ テ゛-タノウケワタシ”
  37. @OSITE
  38. IF BUTTON()==32 GOTO @FAIL
  39. IF BUTTON()==16 THEN HYOUJI=10:GOTO @HAJIMARU
  40. IF BUTTON()==64 THEN HYOUJI=5 :GOTO @HAJIMARU
  41. GOTO @OSITE
  42. @HAJIMARU
  43. BGMPLAY 4
  44. CLS:LOCATE 10,11
  45. ?”Let′s start!”
  46. @KYOKU
  47. IF BGMCHK()==1 GOTO @KYOKU
  48. CLS:BGMPLAY 23
  49. LOCATE 0,8
  50. ?”              Xй
  51. ?”              и з
  52. ?”            Yй жAй
  53. ?”            и з и з
  54. ?”             жBй ж
  55. ?”              и з
  56. ?”               ж
  57. @STAGE
  58. LOCATE 0,1
  59. ?”com turn ”
  60. LOCATE 0,0 ?”STAGE ”;STAGE
  61. LOCATE 0,2 ?”             ”
  62. @MAIN
  63. J(STAGE-1)=RND(4)+4:OBOERU=1
  64. WAIT 15
  65. FOR I=1 TO J(STAGE-1)
  66. OBOERU=OBOERU*2
  67. NEXT I
  68. ANKI(STAGE-1)=OBOERU
  69. FOR I=0 TO STAGE-1
  70. BEEP 3
  71. IF J(I)==4 THEN LOCATE 17,11
  72. IF J(I)==5 THEN LOCATE 15,13
  73. IF J(I)==6 THEN LOCATE 15,9
  74. IF J(I)==7 THEN LOCATE 13,11
  75. COLOR 3:?”┿”:WAIT HYOUJI
  76. IF J(I)==4 THEN LOCATE 17,11
  77. IF J(I)==5 THEN LOCATE 15,13
  78. IF J(I)==6 THEN LOCATE 15,9
  79. IF J(I)==7 THEN LOCATE 13,11
  80. ?” ”:WAIT 2*HYOUJI
  81. NEXT I
  82. ABC=0:COLOR 0
  83. LOCATE 0,1 ?”your turn”
  84. MATU=60*(STAGE*HYOUJI/5+1):JIKAN=0
  85. FOR I=0 TO STAGE-1
  86. @OSE
  87. WAIT 1:JIKAN=JIKAN+1
  88. LOCATE 0,2 ?”ノコリ”;FLOOR((MATU-JIKAN)/60+1);”ヒ゛ョウ ”
  89. IF JIKAN==MATU GOTO @OVER
  90. PPP=0:III=0:EEE=AAA
  91. AAA=BUTTON()
  92. IF AAA!=EEE THEN III=1
  93. IF BUTTON()<16 OR BUTTON()>128 GOTO @OSE
  94. IF (BUTTON() OR 16)!=16 THEN PPP=PPP+1
  95. IF (BUTTON() OR 32)!=32 THEN PPP=PPP+1
  96. IF (BUTTON() OR 64)!=64 THEN PPP=PPP+1
  97. IF (BUTTON() OR 128)!=128 THEN PPP=PPP+1
  98. IF III==0 GOTO @OSE
  99. IF PPP==4 GOTO @OSE
  100. IF ANKI(I)!=BUTTON() THEN @OVER
  101. BEEP 3
  102. NEXT I
  103. IF STAGE==100 GOTO @CLEA
  104. STAGE=STAGE+1
  105. GOTO @STAGE
  106. @OVER
  107. LOCATE 0,2 ?”          ”
  108. LOCATE 11,15
  109. ?”GAME OVER”
  110. BGMPLAY 6
  111. @OWARI
  112. IF BGMCHK()!=0 GOTO @OWARI
  113. GOTO @TITLE
  114. @CLEA
  115. LOCATE 0,15
  116. ?”COM:マケマシタ・・・。アナタハテンサイテ゛ス!”
  117. BGMPLAY 7
  118. ?:?”PUSH START BUTTON”
  119. @OMEDETO
  120. IF BUTTON()==1024 GOTO @TITLE
  121. GOTO @OMEDETO
  122. @FAIL
  123. CLS:BGMPLAY 26
  124. LOCATE 0,1
  125. ?”レキタ゛イキロクヲモラウナラ、「L」ヲオシテクタ゛サイ。”:?:?
  126. ?”レキタ゛イキロクヲソウシンスルナラ、「R」ヲオシテクタ゛サイ。”:?:?
  127. ?”モト゛ルナラ、「START」ヲオシテクタ゛サイ。”
  128. @DOSURU
  129. IF BUTTON()==256 GOTO @MOLAU
  130. IF BUTTON()==1024 GOTO @TITLE
  131. IF BUTTON()!=512 GOTO @DOSURU
  132. @SOSIN
  133. SENDFILE”MEM:REKIDAI”
  134. GOTO @DOSURU
  135. @MOLAU
  136. REKI=VAL(MEM$)
  137. RECVFILE”MEM:REKIDAI”
  138. NEWLEKI=VAL(MEM$)
  139. IF REKI>NEWREKI THEN MEM$=STR$(REKI)
  140. SAVE”MEM:REKIDAI”
  141. GOTO @DOSURU

選択肢

選択肢 投票
すごく良い 1  
良い 0  
普通 4  
悪い 0  
すごく悪い 0  
QRコードでかw 13  
30以上いった! 1  

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

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

  • 名も無き名無し : あの、自分的な感想なんですが、5行目の最後に、:BGMSTOPと入れて、セーブデータをロードしたときの変な音を無くすってのをしたほうがいいと思います。 (2012/05/22 (火) 22:57:56)
  • 名無しさん : SYSBEEP=0でもいいかも。 (2012/05/23 (水) 03:59:12)
  • Lv100 : 後で更新しておきます。 (2012/05/23 (水) 13:37:10)
  • Lv100 : 更新しました。 (2012/05/23 (水) 14:43:35)
  • 名無しさん : コレでロードした時なにも起こらない (2012/05/24 (木) 16:14:56)
  • Lv100 : ↑記録を更新したときのみ発動する仕組みです。 (2012/05/24 (木) 19:56:29)
  • 名無しさん : com turn の前に、少し間が欲しいな。 (2012/05/24 (木) 21:44:35)
  • 名無しさん : Ver1.0になったけど、もうちょっと時間をおいて欲しい。自分が押し終わってすぐにCOMが押し始めるのは落ち着かない。あと、自分の押すボタンも色つけを。 (2012/05/25 (金) 20:28:52)
  • Lv100 : ↑どのぐらい時間を置いたらよいでしょうか。 (2012/05/26 (土) 16:25:57)
  • 名無しさん : 自分の感覚だと、60フレーム(約1秒)くらいでちょうどよいです。 (2012/05/26 (土) 16:37:56)
  • 名無しさん : なぜプログラムリストの1行1行の最後にЛがあるのか (2012/06/12 (火) 16:40:44)
  • Lv100 : 便利ツールのやつで変換した後、数字は消したのですが、改行マークを消し忘れていました。 (2012/07/06 (金) 23:40:05)
  • 名無しさんの親 : 何このゲーム ンフンフ(( ̄▽ ̄) (2013/05/03 (金) 08:27:54)