※第三回プチコン大喜利応募作品
2分間で何点取れるかを競うスコアアタックゲームです。This is a score attack game in 2 minutes.
下画面に10人のプロ生ちゃんが並んでいます。タッチするとジャンプするので、画面内を漂っている[P]を取らせて得点していきます。A girl on the bottom of screen can jump by tapping with stylus. A point is obtained if she captures the [P].
プロ生ちゃんは、[P]を取れば取る程ジャンプ力は上昇していきます。The more she captures it, the higher she jumps.
このプログラムは、以下のリソースも使用します。This program uses following resources.
| ＣＲ（），ＣＧ（)，ＣＢ（） | プロ生ちゃんのベースの色のRGB値 |
| ＫＣ | [P]発生量調整値 |
| ＫＳ | [P]発生時のスプライト番号 |
| ＫＷ | [P]新規発生用カウンタ |
| ＭＪ | プロ生ちゃん達の最大ジャンプ力 |
| ＰＪ（） | プロ生ちゃんのジャンプ力 |
| ＰＳ（） | プロ生ちゃんの移動量 |
| ＰＶ（） | プロ生ちゃんの向き |
| ＰＹ（） | プロ生ちゃんのY座標 |
| ＳＣ | スコア |
| ＴＭ | 残り時間 |
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. ′┝┸┝┸┝┸ ＤＡＴＡ ┝┸┝┸┝┸Л 157. Л 158. ＤＡＴＡ １９２，１９２，１９２，２５５，６４ ，６４Л 159. ＤＡＴＡ ２５５，１９２，６４ ，１９２，２５５，６４Л 160. ＤＡＴＡ ６４ ，２５５，６４ ，６４ ，２５５，１９２Л 161. ＤＡＴＡ ６４ ，１９２，２５５，６４ ，６４ ，２５５Л 162. ＤＡＴＡ １９２，６４ ，２５５，２５５，６４ ，１９２Л 163. ＤＡＴＡ ”┌────────────────────┐”Л 164. ＤＡＴＡ ”│トヒ゛タ゛セ！！ │”Л 165. ＤＡＴＡ ”│ ┳┠ ┓┓ │”Л 166. ＤＡＴＡ ”│ ┏┏╋┻┨ ┣┏╋ ┨┠┯┠┓ │”Л 167. ＤＡＴＡ ”│ ┻ ┛ ┻ ┳┠┯┠ │”Л 168. ＤＡＴＡ ”│ ┳━ ┯┠┨ ┠┠┯┠┓ │”Л 169. ＤＡＴＡ ”│ チャン│”Л 170. ＤＡＴＡ ”└────────────────────┘”Л 171. ＤＡＴＡ ”２０１５．１．３１ Ｐｒｏｇｒａｍｍｅｄ ｂｙ ＯＢＯＮＯ”Л 172. ＤＡＴＡ ” ｈｔｔｐ：／／ｄ．ｈａｔｅｎａ．ｎｅ．ｊｐ／ＯＢＯＮＯ／”Л 173. Л 174. ′─────────────────────── ＥＯＦЛ