2012年7月12日投稿 / 投稿者 : hoy@kayama / タグ : 投稿プログラム QRコード mkII専用
100羽ほどの鳥の群れが自在に飛び廻るのを見て感動しました。その雰囲気を再現しました。(2Dで14羽ですが)
鳥の群れが気まぐれに飛び廻るのを眺めます。(ゲームではありません。) 池の鯉を手を叩いて呼ぶように、下画面をトントンとタップしていると鳥が寄ってきます。 (下画面には先頭の鳥の位置が示されています。) 鳥の鳴き声はステレオに対応させたので、イヤホンを左右正しく装着して聞いてください。
プチコンmkII 向けの QR コードです。
- ’=============
- ’ Gunsyo
- ’ by hoy
- ’ 2012.07.12
- ’=============
- GOSUB @INIT
- @LOOP
- CNT= CNT + 1
- IF CNT > 500000 THEN CNT = 0
- IF CNT%23==0 THEN GOSUB @HENK
- X=X+XA: Y=Y+YA
- IF X>300 THEN GOSUB @RYOX: XA=−ABS(XA)
- IF X<0 THEN GOSUB @RYOX: XA=ABS(XA)
- IF Y>230 THEN GOSUB @RYOY: YA=−ABS(YA)
- IF Y<0 THEN GOSUB @RYOY: YA=ABS(YA)
- SPOFS 0,X,Y
- SPPAGE 1
- SPOFS 0,X,Y
- SPPAGE 0
- FOR I = 0 TO 13
- XO(14−I)=XO(13−I):
- YO(14−I)=YO(13−I):
- NEXT I
- XO(0)=X: YO(0)=Y:
- IF CNT%13==0 THEN WID0=RND(15)+30
- IF XA>0 THEN WIDX=−WID0 ELSE WIDX=WID0
- IF YA>0 THEN WIDY=−WID0 ELSE WIDY=WID0
- SPOFS 11,X+WIDX,Y+WIDY
- SPOFS 12,X+WIDX*1.5,Y+WIDY
- SPOFS 13,X+WIDX,Y+WIDY*2
- XT=TCHX: YT=TCHY
- IF TCHST==TRUE THEN GOSUB @TAP
- WAIT 1
- GOSUB @F1
- GOSUB @F2
- IF CNT%11==0 THEN GOSUB @TWEET
- GOTO @LOOP
- @RYOX
- XA= RND(11)−5
- IF XA==0 AND YA==0 THEN XA=1: YA=1
- RETURN
- @RYOY
- YA= RND(11)−5
- IF XA==0 AND YA==0 THEN XA=1: YA=1
- RETURN
- @HENK
- XA=XA+(RND(5)−3)
- YA=YA+(RND(5)−3)
- IF XA==0 AND YA==0 THEN XA=1: YA=1
- RETURN
- @F1
- XP=(XP(0)*0.6+XO(14)*0.4): YP=(YP(0)*0.6+YO(14)*0.4)
- SPOFS 1,XP,YP
- FOR I = 0 TO 13
- XP(14−I)=XP(13−I):
- YP(14−I)=YP(13−I):
- NEXT I
- XP(0)=XP:YP(0)=YP:
- IF CNT%59==0 THEN GOSUB @MU1
- SPOFS 3,XP+HX1,YP+HY1
- SPOFS 4,XP+HX2,YP+HY2
- SPOFS 5,XP+HX3,YP+HY3
- SPOFS 6,XP+HX4,YP+HY4
- RETURN
- @F2
- XQ=(XQ01*0.5+XP(14)*0.4+XO(0)*0.1): YQ=(YQ01*0.5+YP(14)*0.4+YO(0)*0.1)
- SPOFS 2,XQ,YQ
- XQ01=XQ: YQ01=YQ
- IF CNT%61==0 THEN GOSUB @MU2
- SPOFS 7,XQ+IX1,YQ+IY1
- SPOFS 8,XQ+IX2,YQ+IY2
- SPOFS 9,XQ+IX3,YQ+IY3
- SPOFS 10,XQ+IX4,YQ+IY4
- RETURN
- @MU1
- HX1=RND(60)−30: HY1=RND(60)−30
- HX2=RND(60)−30: HY2=RND(60)−30
- HX3=RND(60)−30: HY3=RND(60)−30
- HX4=RND(60)−30: HY4=RND(60)−30
- RETURN
- @MU2
- IX1=RND(80)−40: IY1=RND(80)−40
- IX2=RND(80)−40: IY2=RND(80)−40
- IX3=RND(80)−40: IY3=RND(80)−40
- IX4=RND(80)−40: IY4=RND(80)−40
- RETURN
- @TAP
- IF XT−X>0 AND XT−X<125 THEN XA=1
- IF XT−X>=125 THEN XA=2
- IF XT−X<=0 AND XT−X>−125 THEN XA=−1
- IF XT−X<=−125 THEN XA=−2
- IF YT−Y>0 AND YT−Y<95 THEN YA=1
- IF YT−Y>=95 THEN YA=2
- IF YT−Y<=0 AND YT−Y>−95 THEN YA=−1
- IF YT−Y<=−95 THEN YA=−2
- RETURN
- @TWEET
- IF X>85 AND X<170 THEN VOL = 127 ELSE VOL = 70
- IF X>255 OR Y > 191 THEN VOL = 20
- RL = 30
- IF X>85 AND X<170 THEN RL = 64
- IF X> 170 THEN RL= 100
- IF X> 255 THEN RL= 127
- IF RND(3)==0 OR RND(3)==1 GOTO @SKIP
- BEEP 63,8192,VOL,RL
- @SKIP
- RETURN
- @INIT
- ACLS
- CLEAR
- VISIBLE 1,1,1,1,1,1
- COLOR 7
- DIM XO(15), YO(15)
- DIM XP(15), YP(15)
- GPAGE 0
- GCLS 20
- PNLTYPE ”OFF”
- GPAGE 1
- GCLS 21
- GPAGE 0
- SPPAGE 1
- SPSET 0,107,0,0,0,0
- SPPAGE 0
- FOR I = 0 TO 13
- SPSET I,20,0,0,0,0
- NEXT I
- GOSUB @RYOX
- GOSUB @RYOY
- RETURN
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.111 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:12 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30