プチコン3号&BIGまとめWiki

とにかく押しまくればいい。のプログラムリスト

「とにかく押しまくればいい。」の作品ページに戻る

プログラムリスト

  1. ’へんすう
  2. ’データ
  3. Q=19 ’データすう 15
  4. ’DATA”[なまえ]”,[〓のかず=なんいど],[モード],[(1)うらの〓のかず],[れんだすうのついか],[(2)うらのれんだすうついか]((1)(2)うらモードになっていなかったらしなくていい)
  5. ’0=つうじょう 1=なんいど−うら(とくていのどうさをおこなうことでうらをプレイできる)
  6. ’データ
  7. DATA ”タッチパネルこっぱみじん”,10,1,15,15,0
  8. DATA ”ゴッドハンドかくにんテスト”,10,0,0,6,0
  9. DATA ”LV.1”,2,0,0,0,0
  10. DATA ”LV.2”,4,0,0,0,0
  11. DATA ”セカイイチ、カンタン!”,1,1,13,0,2
  12. DATA ”rain bow touch”,7,1,10,4,6
  13. DATA ”KITAA(〓〓〓)AAAAA!!”,8,0,0,9,0
  14. DATA ”〓ちゅうにびょうでんせつ〓”,6,0,0,12,0
  15. DATA ”HEY!HEY!CHOPE!”,6,1,9,60,20
  16. DATA ”〓〓”,9,0,10,10,6
  17. DATA ”ダダダダダッ”,8,0,0,40,0
  18. DATA ”インドア(じかんがあるひと)せんよう”,8,0,0,0,0
  19. DATA ”キモチワルイおじさん”,0,0,0,180,0
  20. DATA ”シュシュシュ”,5,0,0,4,0
  21. DATA ”ネオレンダ”,7,0,0,20,0
  22. DATA ”ナンハオイシイヨ、ナマァァァァ
  23. ”,6,0,0,0,0
  24. DATA ”ルンルンピクニック”,7,0,0,0,0
  25. DATA ”ショォォォォォォォォ”,8,0,0,0,0
  26. DATA ”おチビそつぎょうしき”,6,1,11,0,0
  27. DATA ”なますて28%”,11,0,0,0,0
  28. ’はいれつ
  29. DIM NAME$[100]
  30. DIM ST[100]
  31. DIM MODE[100]
  32. DIM URAST[100]
  33. DIM PLR[100]
  34. DIM URPLR[100]
  35. DIM HST[100]
  36. ’データよみこみ
  37. FOR I=0 TO Q
  38. A=A+1
  39. READ NAME$[A],ST[A],MODE[A],URAST[A],PLR[A],URPLR[A]
  40. NEXT
  41. ’セレクト
  42. @SELECT
  43. ACLS
  44. FOR I=0 TO Q+1
  45. ?”   ”;NAME$[I];” ”;”〓”;ST[I]
  46. NEXT
  47. Y=1
  48. COLOR 3LOCATE 10,0?”〓=けってい 
  49. WHILE 1
  50. COLOR 7:LOCATE 0,Y?”〓”
  51. BU=BUTTON(2)
  52. IF BU==1 THEN Y=Y−1:LOCATE 0,Y+1?” ”BEEP 31UR=0KK=0ST[Z]=HST[Z]:IF 1<Y THEN LOCATE 0,Y−1?” ”BEEP 31
  53. IF BU==2 THEN Y=Y+1:LOCATE 0,Y−1?” ”LOCATE 0,Y+1?” ”BEEP 31UR=0KK=0ST[Z]=HST[Z]
  54. IF BU==4  THEN 
  55. INC O
  56. IF O==50 THEN TALK”<S1000><P1>たすけて コロサレル イヤコロス  ”O=0WAIT 1800 COLOR 2?”オニンギョウサンダイスキ”*10000TALK”<P50000><S70000>ギャアアアアアアアアアアアアアアアアアアアアアアアアアアアアアアアアア” WAIT 120 END
  57. ENDIF 
  58. IF BU==64 THEN GOSUB @DLLOAD
  59. IF BUTTON(2)==8 THEN 
  60. BEEP 86
  61. INC KK
  62. IF MODE[Y]==1 THEN IF KK==30 THEN 
  63. BEEP 109
  64. COLOR 5LOCATE 10,0?”うらモード 〓”;URAST[Y];”  ”
  65. UR=1
  66. KK=0
  67. Z=Y
  68. HST[Z]=ST[Z]
  69. ST[Y]=URAST[Y]
  70. ENDIF
  71. ENDIF
  72. LOCATE 0,0?”No.”;Y;” ”
  73. IF Y==27 THEN Y=1
  74. IF Y==0 THEN Y=26
  75. IF BUTTON()==16 THEN 
  76. FOR I=0 TO Q
  77. A=A+1
  78. GOSUB @BATL
  79. NEXT
  80. ENDIF
  81. VSYNC 1
  82. WEND
  83. @BATL
  84. ACLS
  85. COLOR 15
  86. IF UR==0 THEN ?NAME$[Y]B=ST[Y]*19+PLR[Y]
  87. IF UR==1 THEN COLOR 5?NAME$[Y];”(ウラ)”
  88. IF UR==0 THEN ?”〓”;ST[Y]
  89. IF UR==1 THEN ?”〓”;ST[Y]B=ST[Y]*19+URPLR[Y]
  90. XSCREEN 2:DISPLAY 1
  91. GCIRCLE 150,120,100,RGB(80,208,255)
  92. ?”REDY?”
  93. BEEP 7
  94. WAIT 70
  95. UR=0
  96. ?”GO!”
  97. BEEP 126
  98. A=1000
  99. FOR I=0 TO A
  100. TOUCH OUT STTM,S,O
  101. DISPLAY 1
  102. BU=BUTTON(2)
  103. LOCATE 0,0?”れんだすう:”;C;”/”;B
  104. IF STTM==1 OR BU==1 OR BU==2 OR BU==4 OR BU==8THEN 
  105. C=C+1
  106. IF C>=B THEN BEEP 113?”ok!”WAIT 180 C=0ST[Z]=HST[Z]GOTO @SELECT
  107. ENDIF
  108. IF I==1000 THEN BEEP 112?”time up!”ST[Z]=HST[Z]WAIT 180C=0GOTO @SELECT
  109. DISPLAY 0
  110. LOCATE 0,2?”TIME:”;I;”/1000”
  111. VSYNC 1
  112. NEXT

メニュー 【3号】

ヘルプ

リンク

最近の更新

最近の人気ページ

オンライン情報

  • 現在同時に 3 人がこのサイトを見ています
  • このページはこれまでに 757 回、本日は 1 回、昨日は 0 回閲覧されました

ページの先頭に戻る

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