ＰＲＧ：ＦＵＫＵＲＯ
セツメイＥＸＰＬＡＮＡＴＩＯＮ
あなたを袋叩きにしようと金髪の連中が迫ってくるので、こちらも応戦しつつ、できるだけ長く耐えてください。Golden haired enemies are coming to gang up on you. Fight back and hold out as long as possible.
画面上部に体力ゲージが表示されており、攻撃を受けると減ります。じっとしていると少しずつ増え、移動中もちょっぴり増えます。The health bar is shown at the top of screen. It decreases by enemy's attack. It increases while you are staying put.
十字キーで移動し、Aボタンでパンチ。体力ゲージがなくなるとゲームオーバーになり、Bボタンで再開できます。Move by cross-key. Punch by A button. If the health bar becomes empty, the game is over and you can retry by B button.
※ABAさんが作った fukuro - 袋叩きの行動モデル をアレンジしたゲームです。※This game is based on "fukuro" by ABA-games.
ＱＲコードＱＲ ＣＯＤＥ
プログラムコードＰＲＯＧＲＡＭ ＣＯＤＥ
表示 Show
| Ａ | スコア |
| Ｂ | ボタンの状態 |
| Ｄ，Ｚ | 角度や距離に関する計算に使用 |
| Ｄ（），Ｒ（） | 敵の極座標(主人公の座標を原点として) |
| Ｅ，Ｋ | 引き離し処理に使用 |
| Ｈ | 主人公の体力 |
| Ｉ，Ｊ | 汎用ループカウンタ |
| Ｎ | 敵の人数 |
| Ｐ | 円周率 |
| Ｐ（） | 主人公 or 敵の硬直時間 (0は主人公、1～10は敵) |
| Ｒ | 主人公からの距離の平均値 |
| Ｓ | 鳴らす効果音の番号 |
| Ｔ | ゲーム開始からのフレーム数 |
| Ｖ，Ｗ | キャラの移動量計算時に使用 |
| Ｖ（），Ｗ（） | 敵の移動量 |
| Ｘ，Ｙ | キャラの座標計算時に使用 |
| Ｘ（），Ｙ（） | 主人公 or 敵の座標 (0は主人公、1～10は敵) |
001. ′ＰＲＧ：ＦＵＫＵＲＯЛ
002. Л
003. ′－－－ＩＮＩＴЛ
004. Л
005. ＠ＩＮЛ
006. ＡＣＬＳЛ
007. ＧＰＲＩＯ ０Л
008. ＣＬＥＡＲЛ
009. ＤＩＭ Ｘ（１１），Ｙ（１１），Ｖ（１１），Ｗ（１１），Ｄ（１１），Ｒ（１１），Ｐ（１１）Л
010. Ｐ＝ＰＩ（）Л
011. Л
012. ＢＧＦＩＬＬ ０，０，０，３１，２３，３３４８５Л
013. ＦＯＲ Ｉ＝０ ＴＯ １０Л
014. ＳＰＳＥＴ Ｉ，６８，７＋（Ｉ＝＝０）＊４，０，０，１Л
015. ＳＰＨＯＭＥ Ｉ，８，８Л
016. ＳＰＳＣＡＬＥ Ｉ，２００Л
017. Ｘ（Ｉ）＝ＲＮＤ（２５６）：Ｙ（Ｉ）＝－１６Л
018. ＧＯＳＵＢ ＠ＳＯЛ
019. ＧＯＳＵＢ ＠ＳＷЛ
020. ＮＥＸＴЛ
021. Ｘ（０）＝１２８Л
022. Ｙ（０）＝１６０Л
023. Ｄ（０）＝Ｐ／２Л
024. Ｈ＝２３０Л
025. ＢＧＭＰＬＡＹ ２Л
026. Л
027. ′－－－ＰＬＡＹＥＲЛ
028. Л
029. ＠ＭＮЛ
030. Ｔ＝Ｔ＋１Л
031. Ｎ＝ＳＱＲ（Ｔ／５０＋９）Л
032. ＩＦ Ｎ＞１０ ＴＨＥＮ Ｎ＝１０Л
033. Ｓ＝０Л
034. Ｉ＝０Л
035. Ｂ＝ＢＵＴＴＯＮ（）Л
036. ＩＦ Ｐ（０）＝＝１ ＴＨＥＮ ＧＯＳＵＢ ＠ＳＷ：ＳＰＣＬＲ １１Л
037. ＩＦ Ｐ（０）＞０ ＴＨＥＮ Ｐ（０）＝Ｐ（０）－１：ＧＯＴＯ ＠ＥＮЛ
038. Ｖ＝（（８ ＡＮＤ Ｂ）／８－（４ ＡＮＤ Ｂ）／４）＊５Л
039. Ｗ＝（（２ ＡＮＤ Ｂ）／２－（Ｂ％２））＊５Л
040. ＩＦ Ｖ ＡＮＤ Ｗ ＴＨＥＮ Ｖ＝Ｖ＊．７：Ｗ＝Ｗ＊．７Л
041. Ｘ＝Ｘ（０）＋ＶЛ
042. Ｙ＝Ｙ（０）＋ＷЛ
043. ＩＦ Ｘ＜１６ ＴＨＥＮ Ｘ＝１６Л
044. ＩＦ Ｘ＞２３９ ＴＨＥＮ Ｘ＝２３９Л
045. ＩＦ Ｙ＜２４ ＴＨＥＮ Ｙ＝２４Л
046. ＩＦ Ｙ＞１７５ ＴＨＥＮ Ｙ＝１７５Л
047. Ｘ（０）＝ＸЛ
048. Ｙ（０）＝ＹЛ
049. Ｈ＝Ｈ＋．２５Л
050. ＩＦ Ｖ ＯＲ Ｗ ＴＨＥＮ Ｄ（０）＝ＡＴＡＮ（Ｗ，Ｖ）：Ｈ＝Ｈ－．１２５Л
051. ＧＯＳＵＢ ＠ＳＯЛ
052. ＩＦ ！（１６ ＡＮＤ Ｂ） ＴＨＥＮ ＠ＥＮЛ
053. ＧＯＳＵＢ ＠ＳＰЛ
054. ＳＰＳＥＴ １１，５２，３，０，０，１Л
055. ＳＰＯＦＳ １１，Ｘ＋ＣＯＳ（Ｄ（０））＊２４－８，Ｙ＋ＳＩＮ（Ｄ（０））＊２４－８Л
056. ＳＰＡＮＩＭ １１，４，２Л
057. Ｓ＝２７Л
058. Л
059. ′－－－ＥＮＥＭＹЛ
060. Л
061. ＠ＥＮЛ
062. Ｒ＝０Л
063. ＦＯＲ Ｉ＝１ ＴＯ ＮЛ
064. Ｘ（Ｉ）＝Ｘ（Ｉ）＋Ｖ（Ｉ）Л
065. Ｙ（Ｉ）＝Ｙ（Ｉ）＋Ｗ（Ｉ）Л
066. Ｖ＝Ｘ（０）－Ｘ（Ｉ）Л
067. Ｗ＝Ｙ（０）－Ｙ（Ｉ）Л
068. Ｄ（Ｉ）＝ＡＴＡＮ（Ｗ，Ｖ）Л
069. Ｒ（Ｉ）＝ＳＱＲ（Ｖ＊Ｖ＋Ｗ＊Ｗ）Л
070. ＧＯＳＵＢ ＠ＳＯЛ
071. Ｒ＝Ｒ＋Ｒ（Ｉ）Л
072. ＮＥＸＴЛ
073. Ｒ＝Ｒ／ＮЛ
074. Л
075. ＦＯＲ Ｉ＝１ ＴＯ ＮЛ
076. Ｖ＝０：Ｗ＝０Л
077. Ｄ＝ＡＢＳ（Ｄ（Ｉ）－Ｄ（０））：ＩＦ Ｄ＞Ｐ ＴＨＥＮ Ｄ＝Ｐ＊２－ＤЛ
078. ＩＦ Ｄ＞Ｐ＊．７５ ＡＮＤ Ｐ（０）＝＝６ ＡＮＤ Ｒ（Ｉ）＜４８ ＴＨＥＮ ＧＯＳＵＢ ＠ＳＢ：Ａ＝Ａ＋１：Ｓ＝３０：ＧＯＴＯ ＠ＥＭЛ
079. ＩＦ Ｐ（Ｉ）＝＝１ ＴＨＥＮ ＧＯＳＵＢ ＠ＳＷЛ
080. ＩＦ Ｐ（Ｉ）＞０ ＴＨＥＮ Ｐ（Ｉ）＝Ｐ（Ｉ）－１：ＧＯＴＯ ＠ＥＭЛ
081. ＩＦ Ｒ（Ｉ）＜２４ ＴＨＥＮ ＧＯＳＵＢ ＠ＳＰ：Ｋ＝Ｉ：Ｉ＝０：ＧＯＳＵＢ ＠ＳＢ：Ｉ＝Ｋ：Ｈ＝Ｈ－２０：Ｓ＝１１：ＧＯＴＯ ＠ＥＭЛ
082. ′（ＣＯＨＥＳＩＯＮ）Л
083. ＩＦ Ｄ＜Ｐ／６ ＯＲ Ｒ（Ｉ）＜２８ ＴＨＥＮ Ｄ＝Ｄ（Ｉ）：Ｚ＝５：ＧＯＳＵＢ ＠ＶＥЛ
084. ′（ＮＯＩＳＥ）Л
085. Ｄ＝ＲＮＤ（３２）＊Ｐ／１６：Ｚ＝４：ＧＯＳＵＢ ＠ＶＥЛ
086. ′（ＡＬＩＧＮＭＥＮＴ）Л
087. Ｄ＝Ｄ（Ｉ）：Ｚ＝ＳＧＮ（Ｒ（Ｉ）－Ｒ）＋．１：ＧＯＳＵＢ ＠ＶＥЛ
088. ′（ＳＥＰＡＲＡＴＩＯＮ）Л
089. Ｋ＝０：Ｅ＝ＰЛ
090. ＦＯＲ Ｊ＝１ ＴＯ ＮЛ
091. Ｄ＝Ｄ（Ｉ）－Ｄ（Ｊ）Л
092. ＩＦ Ｄ＞Ｐ ＴＨＥＮ Ｄ＝Ｄ－Ｐ＊２Л
093. ＩＦ Ｄ＜－Ｐ ＴＨＥＮ Ｄ＝Ｄ＋Ｐ＊２Л
094. ＩＦ Ｉ！＝Ｊ ＡＮＤ ＡＢＳ（Ｅ）＞ＡＢＳ（Ｄ） ＡＮＤ Ｄ！＝０ ＴＨＥＮ Ｋ＝Ｊ：Ｅ＝ＤЛ
095. ＮＥＸＴЛ
096. ＩＦ Ｋ ＴＨＥＮ Ｄ＝Ｄ（Ｉ）－Ｐ／２＊ＳＧＮ（Ｅ）：Ｚ＝２：ＧＯＳＵＢ ＠ＶＥЛ
097. ＠ＥＭЛ
098. Ｖ（Ｉ）＝（Ｖ（Ｉ）＊７＋Ｖ）／８Л
099. Ｗ（Ｉ）＝（Ｗ（Ｉ）＊７＋Ｗ）／８Л
100. ＮＥＸＴЛ
101. Л
102. ＩＦ Ｈ＞２３０ ＴＨＥＮ Ｈ＝２３０Л
103. ＧＦＩＬＬ ２５，１，Ｈ＋２５，６，３７Л
104. ＧＦＩＬＬ Ｈ＋２５，１，２５５，６，０Л
105. ＧＢＯＸ ２４，０，２５５，７，１５Л
106. ＬＯＣＡＴＥ ０，０：ＰＲＩＮＴ ＡЛ
107. ＩＦ Ｓ＞０ ＴＨＥＮ ＢＥＥＰ ＳЛ
108. ＶＳＹＮＣ ２Л
109. ＩＦ Ｈ＞０ ＴＨＥＮ ＠ＭＮЛ
110. Л
111. ′－－－ＧＡＭＥＯＶＥＲЛ
112. Л
113. ＢＧＭＳＴＯＰ：ＢＥＥＰ １４Л
114. ＦＯＲ Ｉ＝１ ＴＯ ＮЛ
115. ＳＰＡＮＩＭ Ｉ，１，１，１Л
116. ＮＥＸＴЛ
117. ＳＰＣＬＲ １１Л
118. ＷＡＩＴ ６０Л
119. ＳＰＣＨＲ ０，９２Л
120. ＳＰＡＮＧＬＥ ０，０Л
121. ＢＧＭＰＬＡＹ ６Л
122. ＬＯＣＡＴＥ １２，１２：ＰＲＩＮＴ ”ＧＡＭＥＯＶＥＲ”Л
123. ＠ＯＶЛ
124. ＩＦ ３２ ＡＮＤ ＢＵＴＴＯＮ（） ＴＨＥＮ ＠ＩＮ ＥＬＳＥ ＠ＯＶЛ
125. Л
126. ′－－－ＳＵＢ ＲＯＵＴＩＮＥＳЛ
127. Л
128. ＠ＶＥЛ
129. Ｖ＝Ｖ＋ＣＯＳ（Ｄ）＊ＺЛ
130. Ｗ＝Ｗ＋ＳＩＮ（Ｄ）＊ＺЛ
131. ＲＥＴＵＲＮЛ
132. Л
133. ＠ＳＷЛ
134. ＳＰＣＨＲ Ｉ，６８Л
135. ＳＰＡＮＩＭ Ｉ，４，８Л
136. ＲＥＴＵＲＮЛ
137. Л
138. ＠ＳＰЛ
139. ＳＰＣＨＲ Ｉ，８２Л
140. ＳＰＡＮＩＭ Ｉ，２，４，１Л
141. Ｖ（Ｉ）＝０Л
142. Ｗ（Ｉ）＝０Л
143. Ｐ（Ｉ）＝！！Ｉ＊２４＋６Л
144. ＲＥＴＵＲＮЛ
145. Л
146. ＠ＳＢЛ
147. ＳＰＣＨＲ Ｉ，８９Л
148. ＳＰＡＮＩＭ Ｉ，１，１，１Л
149. Ｐ（Ｉ）＝！！Ｉ＊２６＋４Л
150. ＩＦ Ｉ ＴＨＥＮ Ｄ＝Ｄ（Ｉ）：Ｚ＝－６４：ＧＯＳＵＢ ＠ＶＥЛ
151. ＲＥＴＵＲＮЛ
152. Л
153. ＠ＳＯЛ
154. ＳＰＯＦＳ Ｉ，Ｘ（Ｉ），Ｙ（Ｉ）Л
155. ＩＦ ！Ｐ（Ｉ） ＴＨＥＮ ＳＰＡＮＧＬＥ Ｉ，ＤＥＧ（Ｄ（Ｉ）－Ｐ／２）Л
156. ＲＥＴＵＲＮЛ
※コードのHTML生成にPTC2HTMLを使用しています。
モドル ＢＡＣＫ