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

投稿プログラム : G-BREAKER

2012年3月11日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム

概要

このプログラムは三角形の重心を淡々とつつくものです。過度な期待はしないでください。

ルール 、操作

緑の三角形の重心をタッチしてください。

タッチすると三角形が青くなり、正解(青の+)とタッチした位置(白い+)と次の三角形(緑)が表示されます。

正解とのズレが小さいほど高得点となります。

10ゲームで1セットとなっています。終了後はAボタンでもう一度遊べます。

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

ざんねん! ありません

プログラムリスト

  1. SPPAGE 1:SPCLR:CLEAR
  2. GPAGE 1:BGPAGE 0
  3. PNLTYPE”OFF”
  4. A$=   ”000F0000000F0000”
  5. A$=A$+”00000000FF0F0FF0”
  6. A$=A$+”00000000000F0000”
  7. A$=A$+”000F000000000000”
  8. FOR I=0 TO 63:B$=B$+”0”:NEXT
  9. C$=   ”000F0000000FFF00”
  10. C$=C$+”000F00000FFFFF00”
  11. C$=C$+”0F000F000FFFFF00”
  12. C$=C$+”F0F0F0F000000000”
  13. CHRSET”SPS”,0,A$
  14. CHRSET”SPS”,1,B$
  15. CHRSET”SPS”,2,B$
  16. CHRSET”SPS”,3,B$
  17. CHRSET”BGF”,232,C$
  18. SPSET 0,0,0,0,0,2
  19. SPSET 1,0,9,0,0,2
  20. @INIT
  21. TX=−9:TY=−9:GX=−9:GY=−9
  22. SC=0:GS=0:TR=0
  23. X(0)=−9:X(1)=−9:X(2)=−9
  24. SPOFS 0,TX−3,TY−3
  25. @PST
  26. GCLS:CLS
  27. LOCATE 11,8:?”G−BREAKER”
  28. LOCATE 9,12:?”サンカクケイノ シ゛ュウシン”
  29. LOCATE 11,14:?”ЧG ヲ ウチヌコウ”
  30. FOR I=0 TO 2
  31. J=(I+1)%3
  32. GLINE X(I),Y(I),X(J),Y(J),6
  33. NEXT
  34. SPOFS 1,GX−3,GY−3
  35. PNLSTR 9,0,”SCORE:”+STR$(SC)
  36. PNLSTR 20,0,”GET:”+STR$(GS)+”Pts.”
  37. IF TR==10 THEN PNLSTR 13,1,”A:RETRY”
  38. @INFL
  39. BT=BUTTON()
  40. IF TR==10 AND (BT AND 16)==16 THEN @INIT
  41. IF TR==10 AND (BT AND 16)!=16 THEN @INFL
  42. TR=TR+1
  43. PNLSTR 2,0,”TRY:”+STR$(TR)
  44. @RT
  45. R=1+RND(2)
  46. FOR I=0 TO 2
  47. X(I)=16+RND(224):Y(I)=16+RND(160)
  48. NEXT
  49. FOR I=0 TO 1
  50. FOR J=I+1 TO 2
  51. IF X(I)>X(J) THEN WK=X(I):X(I)=X(J):X(J)=WK
  52. IF Y(I)>Y(J) THEN WK=Y(I):Y(I)=Y(J):Y(J)=WK
  53. NEXT
  54. NEXT
  55. IF X(2)−X(0)<64 OR Y(2)−Y(0)<64 THEN @RT
  56. FOR I=0 TO 2
  57. J=(I+R)%3
  58. WK=Y(I):Y(I)=Y(J):Y(J)=WK
  59. NEXT
  60. GX=0:GY=0
  61. FOR I=0 TO 2
  62. J=(I+1)%3
  63. GLINE X(I),Y(I),X(J),Y(J),11
  64. GX=GX+X(I):GY=GY+Y(I)
  65. NEXT
  66. GX=GX/3+0.5OR 0
  67. GY=GY/3+0.5OR 0
  68. @LOOP
  69. OT=TS:TS=TCHST:TT=NOT OT AND TS
  70. IF TT THEN TX=TCHX:TY=TCHY:SPOFS 0,TX−3,TY−3:GOTO @ANS
  71. VSYNC 1
  72. GOTO @LOOP
  73. @ANS
  74. DX=TX−GX:DY=TY−GY
  75. R1=10−SQR(DX*DX+DY*DY)/3
  76. IF R1<0 THEN R1=0
  77. GS=R1*R1 OR 0
  78. IF GS<=0 THEN BEEP 13
  79. IF GS<0 AND GS<=25 THEN BEEP 64
  80. IF GS<25 AND GS<=50 THEN BEEP 8
  81. IF GS<50 AND GS<=75 THEN BEEP 5
  82. IF GS<75 THEN BEEP 32
  83. SC=SC+GS
  84. GOTO @PST

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

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

  • 名無しさん : うぽつ( ^_^)/ (2012/03/11 (日) 14:15:59)
  • スベテノモノニアイヲ : 何かな (2012/03/16 (金) 08:19:23)
  • 名無しさん : ちょ...「ざんねん!ありません」って... (2012/03/16 (金) 08:58:20)
  • トトロ : コレの使い方を知らなければ話にならんW (2012/03/23 (金) 13:42:23)
  • 名無しさん : ↑なに、一人でキレてんだお前wwww (2012/04/22 (日) 09:24:42)
  • 名無しさん : qrお願いします (2013/01/02 (水) 19:37:46)
  • 名無しさん : GOTO リンク (2013/01/02 (水) 20:13:44)
  • 名無しさん : リンクの冒険 (2013/01/02 (水) 20:21:05)

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