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

投稿プログラム : 群翔 (ぐんしょう)

パンくずリスト

2012年7月12日投稿 / 投稿者 : hoy@kayama / タグ : 投稿プログラム QRコード mkII専用

概要

100羽ほどの鳥の群れが自在に飛び廻るのを見て感動しました。その雰囲気を再現しました。(2Dで14羽ですが)

操作

鳥の群れが気まぐれに飛び廻るのを眺めます。(ゲームではありません。) 池の鯉を手を叩いて呼ぶように、下画面をトントンとタップしていると鳥が寄ってきます。 (下画面には先頭の鳥の位置が示されています。) 鳥の鳴き声はステレオに対応させたので、イヤホンを左右正しく装着して聞いてください。

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

sIMGP7242.jpg

QR コード

プチコンmkII 向けの QR コードです。

1/22/2
qr0A.pngqr1A.png

プログラムリスト

  1. ’=============
  2. ’  Gunsyo
  3. ’  by hoy
  4. ’ 2012.07.12
  5. ’=============
  6. GOSUB @INIT
  7. @LOOP
  8. CNT= CNT + 1
  9. IF CNT > 500000 THEN CNT = 0
  10. IF CNT%23==0 THEN GOSUB @HENK
  11. X=X+XA: Y=Y+YA
  12. IF X>300 THEN GOSUB @RYOX: XA=−ABS(XA)
  13. IF X<0 THEN  GOSUB @RYOX: XA=ABS(XA)
  14. IF Y>230 THEN GOSUB @RYOY: YA=−ABS(YA) 
  15. IF Y<0 THEN GOSUB @RYOY: YA=ABS(YA)
  16. SPOFS 0,X,Y
  17. SPPAGE 1
  18. SPOFS 0,X,Y
  19. SPPAGE 0
  20. FOR I = 0 TO 13
  21.  XO(14−I)=XO(13−I): 
  22.  YO(14−I)=YO(13−I):
  23. NEXT I
  24. XO(0)=X:    YO(0)=Y:
  25. IF CNT%13==0 THEN WID0=RND(15)+30
  26. IF XA>0 THEN WIDX=−WID0 ELSE WIDX=WID0
  27. IF YA>0 THEN WIDY=−WID0 ELSE WIDY=WID0
  28. SPOFS 11,X+WIDX,Y+WIDY
  29. SPOFS 12,X+WIDX*1.5,Y+WIDY
  30. SPOFS 13,X+WIDX,Y+WIDY*2
  31. XT=TCHX: YT=TCHY
  32. IF TCHST==TRUE THEN GOSUB @TAP
  33. WAIT 1
  34. GOSUB @F1
  35. GOSUB @F2
  36. IF CNT%11==0 THEN GOSUB @TWEET
  37. GOTO @LOOP
  38. @RYOX
  39. XA= RND(11)−5
  40. IF XA==0 AND YA==0 THEN XA=1: YA=1
  41. RETURN
  42. @RYOY
  43. YA= RND(11)−5
  44. IF XA==0 AND YA==0 THEN XA=1: YA=1
  45. RETURN
  46. @HENK
  47. XA=XA+(RND(5)−3)
  48. YA=YA+(RND(5)−3)
  49. IF XA==0 AND YA==0 THEN XA=1: YA=1
  50. RETURN
  51. @F1
  52. XP=(XP(0)*0.6+XO(14)*0.4): YP=(YP(0)*0.6+YO(14)*0.4)
  53. SPOFS 1,XP,YP
  54. FOR I = 0 TO 13
  55.  XP(14−I)=XP(13−I): 
  56.  YP(14−I)=YP(13−I):
  57. NEXT I
  58. XP(0)=XP:YP(0)=YP:
  59. IF CNT%59==0 THEN GOSUB @MU1
  60. SPOFS 3,XP+HX1,YP+HY1
  61. SPOFS 4,XP+HX2,YP+HY2
  62. SPOFS 5,XP+HX3,YP+HY3
  63. SPOFS 6,XP+HX4,YP+HY4
  64. RETURN
  65. @F2
  66. XQ=(XQ01*0.5+XP(14)*0.4+XO(0)*0.1): YQ=(YQ01*0.5+YP(14)*0.4+YO(0)*0.1)
  67. SPOFS 2,XQ,YQ
  68. XQ01=XQ: YQ01=YQ
  69. IF CNT%61==0 THEN GOSUB @MU2
  70. SPOFS 7,XQ+IX1,YQ+IY1
  71. SPOFS 8,XQ+IX2,YQ+IY2
  72. SPOFS 9,XQ+IX3,YQ+IY3
  73. SPOFS 10,XQ+IX4,YQ+IY4
  74. RETURN
  75. @MU1
  76. HX1=RND(60)−30: HY1=RND(60)−30
  77. HX2=RND(60)−30: HY2=RND(60)−30
  78. HX3=RND(60)−30: HY3=RND(60)−30
  79. HX4=RND(60)−30: HY4=RND(60)−30
  80. RETURN
  81. @MU2
  82. IX1=RND(80)−40: IY1=RND(80)−40
  83. IX2=RND(80)−40: IY2=RND(80)−40
  84. IX3=RND(80)−40: IY3=RND(80)−40
  85. IX4=RND(80)−40: IY4=RND(80)−40
  86. RETURN
  87. @TAP
  88. IF XT−X>0 AND XT−X<125 THEN XA=1
  89. IF XT−X>=125 THEN XA=2
  90. IF XT−X<=0 AND XT−X>−125 THEN XA=−1
  91. IF XT−X<=−125 THEN XA=−2
  92. IF YT−Y>0 AND YT−Y<95 THEN YA=1
  93. IF YT−Y>=95 THEN YA=2
  94. IF YT−Y<=0 AND YT−Y>−95 THEN YA=−1
  95. IF YT−Y<=−95 THEN YA=−2
  96. RETURN
  97. @TWEET
  98. IF X>85 AND X<170 THEN VOL = 127 ELSE VOL = 70
  99. IF X>255 OR Y > 191 THEN VOL = 20
  100. RL = 30
  101. IF X>85 AND X<170 THEN RL = 64 
  102. IF X> 170 THEN RL= 100
  103. IF X> 255 THEN RL= 127
  104. IF RND(3)==0 OR RND(3)==1 GOTO @SKIP
  105. BEEP 63,8192,VOL,RL
  106. @SKIP
  107. RETURN
  108. @INIT
  109. ACLS
  110. CLEAR
  111. VISIBLE 1,1,1,1,1,1
  112. COLOR 7
  113. DIM XO(15), YO(15)
  114. DIM XP(15), YP(15)
  115. GPAGE 0
  116. GCLS 20
  117. PNLTYPE ”OFF”
  118. GPAGE 1
  119. GCLS 21
  120. GPAGE 0
  121. SPPAGE 1
  122. SPSET 0,107,0,0,0,0
  123. SPPAGE 0
  124. FOR I = 0 TO 13
  125.  SPSET I,20,0,0,0,0
  126. NEXT I
  127. GOSUB @RYOX
  128. GOSUB @RYOY
  129. RETURN

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

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

  • キービィ : 雰囲気的にスライドで猫が寄ってくるプチコンNEKOバージョン(PRG名:YOSNEKO)と似てる… (2012/07/13 (金) 07:22:48)
  • 名無しさん : 火花が鳥という発想はなかったwww (2012/07/24 (火) 18:28:00)
  • Hando : これはスプライトうまく使いましたねぇ〜、凄いとおもいます。 (2012/10/12 (金) 21:34:16)

表示モード : [ スマホ・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