2012年3月11日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム
このプログラムは三角形の重心を淡々とつつくものです。過度な期待はしないでください。
緑の三角形の重心をタッチしてください。
タッチすると三角形が青くなり、正解(青の+)とタッチした位置(白い+)と次の三角形(緑)が表示されます。
正解とのズレが小さいほど高得点となります。
10ゲームで1セットとなっています。終了後はAボタンでもう一度遊べます。
ざんねん! ありません
- SPPAGE 1:SPCLR:CLEAR
- GPAGE 1:BGPAGE 0
- PNLTYPE”OFF”
- A$= ”000F0000000F0000”
- A$=A$+”00000000FF0F0FF0”
- A$=A$+”00000000000F0000”
- A$=A$+”000F000000000000”
- FOR I=0 TO 63:B$=B$+”0”:NEXT
- C$= ”000F0000000FFF00”
- C$=C$+”000F00000FFFFF00”
- C$=C$+”0F000F000FFFFF00”
- C$=C$+”F0F0F0F000000000”
- CHRSET”SPS”,0,A$
- CHRSET”SPS”,1,B$
- CHRSET”SPS”,2,B$
- CHRSET”SPS”,3,B$
- CHRSET”BGF”,232,C$
- SPSET 0,0,0,0,0,2
- SPSET 1,0,9,0,0,2
- @INIT
- TX=−9:TY=−9:GX=−9:GY=−9
- SC=0:GS=0:TR=0
- X(0)=−9:X(1)=−9:X(2)=−9
- SPOFS 0,TX−3,TY−3
- @PST
- GCLS:CLS
- LOCATE 11,8:?”G−BREAKER”
- LOCATE 9,12:?”サンカクケイノ シ゛ュウシン”
- LOCATE 11,14:?”ЧG ヲ ウチヌコウ”
- FOR I=0 TO 2
- J=(I+1)%3
- GLINE X(I),Y(I),X(J),Y(J),6
- NEXT
- SPOFS 1,GX−3,GY−3
- PNLSTR 9,0,”SCORE:”+STR$(SC)
- PNLSTR 20,0,”GET:”+STR$(GS)+”Pts.”
- IF TR==10 THEN PNLSTR 13,1,”A:RETRY”
- @INFL
- BT=BUTTON()
- IF TR==10 AND (BT AND 16)==16 THEN @INIT
- IF TR==10 AND (BT AND 16)!=16 THEN @INFL
- TR=TR+1
- PNLSTR 2,0,”TRY:”+STR$(TR)
- @RT
- R=1+RND(2)
- FOR I=0 TO 2
- X(I)=16+RND(224):Y(I)=16+RND(160)
- NEXT
- FOR I=0 TO 1
- FOR J=I+1 TO 2
- IF X(I)>X(J) THEN WK=X(I):X(I)=X(J):X(J)=WK
- IF Y(I)>Y(J) THEN WK=Y(I):Y(I)=Y(J):Y(J)=WK
- NEXT
- NEXT
- IF X(2)−X(0)<64 OR Y(2)−Y(0)<64 THEN @RT
- FOR I=0 TO 2
- J=(I+R)%3
- WK=Y(I):Y(I)=Y(J):Y(J)=WK
- NEXT
- GX=0:GY=0
- FOR I=0 TO 2
- J=(I+1)%3
- GLINE X(I),Y(I),X(J),Y(J),11
- GX=GX+X(I):GY=GY+Y(I)
- NEXT
- GX=GX/3+0.5OR 0
- GY=GY/3+0.5OR 0
- @LOOP
- OT=TS:TS=TCHST:TT=NOT OT AND TS
- IF TT THEN TX=TCHX:TY=TCHY:SPOFS 0,TX−3,TY−3:GOTO @ANS
- VSYNC 1
- GOTO @LOOP
- @ANS
- DX=TX−GX:DY=TY−GY
- R1=10−SQR(DX*DX+DY*DY)/3
- IF R1<0 THEN R1=0
- GS=R1*R1 OR 0
- IF GS<=0 THEN BEEP 13
- IF GS<0 AND GS<=25 THEN BEEP 64
- IF GS<25 AND GS<=50 THEN BEEP 8
- IF GS<50 AND GS<=75 THEN BEEP 5
- IF GS<75 THEN BEEP 32
- SC=SC+GS
- GOTO @PST
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.098 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:06 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30