りょうのゲーム塾 -108ページ目
Amebaホームピグアメブロ
芸能人ブログ人気ブログ
新規登録
ログイン

りょうのゲーム塾

再開、準備中。

<< 前ページ次ページ >>

【はじめてのプチコン】サンプル修正版

チェックポイント
プログラム中に記載ミスがありました。
今後も記載ミスはあると思います。
ご了承お願いします。

ただ、今回からこのブログの内容の検証を手伝ってくれる学生がいるので早いうちに修正が入ると思います。


■プログラム
0001 ' initialize
0002 GOSUB @SYS_INI
0003 GOSUB @PLY_INI
0004 GOSUB @WPN_INI
0005 GOSUB @UFO_INI
0006 GOSUB @UFW_INI
0007 ' game loop
0008 @LOOP
0009 GOSUB @SYS_MAIN
0010 ' task
0011 GOSUB @PLY_TASK
0012 GOSUB @WPN_TASK
0013 GOSUB @UFO_TASK
0014 GOSUB @UFW_TASK
0015 GOTO @LOOP
0016 '
0017 ' system
0018 '
0019 @SYS_INI
0020 CLEAR
0021 SCORE=0
0022 SYS_CNT = 0
0023 SYS_KEY = BUTTON()
0024 RETURN
0025 '
0026 @SYS_MAIN
0027 VSYNC 1
0028 CLS
0029 LOCATE 0,22
【修正ポイント】
0030 PRINT "---------------------------------SCORE:";SCORE;
0031 '
0032 SYS_CNT = (SYS_CNT + 1) AND &H3FFFF
0033 OLD_KEY = SYS_KEY
0034 SYS_KEY = BUTTON()
0035 TRG_KEY = SYS_KEY XOR OLD_KEY
0036 ON_KEY = TRG_KEY AND SYS_KEY
0037 RETURN
0038 '
0039 ' UFO task
0040 '
0041 @UFO_INI
0042 UFO_MAX=3
0043 DIM UFO_F(UFO_MAX)
0044 DIM UFO_X(UFO_MAX)
0045 DIM UFO_Y(UFO_MAX)
0046 DIM UFO_CNT(UFO_MAX)
0047 FOR I=0 TO UFO_MAX-1
0048 UFO_F(I)=0
0049 UFO_CNT(I)=RND(120)
0050 NEXT I
0051 UFO_SX = 0.1
0052 RETURN
0053 '
0054 @UFO_TASK
0055 FOR UFO_I=0 TO UFO_MAX-1
0056 GOSUB @UFO_SUB
0057 NEXT UFO_I
0058 RETURN
0059 '
0060 @UFO_SUB
0061 ON UFO_F(UFO_I) GOTO @UFO_WAIT,@UFO_MVR,@UFO_MVL,@UFO_EXPL
0062 STOP
0063 '
0064 @UFO_WAIT
0065 UFO_CNT(UFO_I) = UFO_CNT(UFO_I) - 1
0066 IF UFO_CNT(UFO_I) > 0 THEN RETURN
0067 IF RND(2) GOTO @UFO_LSET
0068 GOTO @UFO_RSET
0069 ' move right
0070 @UFO_MVR
0071 LOCATE UFO_X(UFO_I), UFO_Y(UFO_I)
0072 PRINT "A"
0073 UFO_X(UFO_I) = UFO_X(UFO_I) + UFO_SX
0074 IF UFO_X(UFO_I) > 32 GOTO @UFO_DETH
0075 HITX = UFO_X(UFO_I)
0076 HITY = UFO_Y(UFO_I)
0077 GOSUB @WPN_HITC
0078 IF HITF GOTO @UFO_DAMG
0079 GOSUB @UFW_FIRE
0080 RETURN
0081 '
0082 @UFO_LSET
0083 UFO_X(UFO_I) = 31
0084 UFO_Y(UFO_I) = RND(10)
0085 UFO_F(UFO_I) = 2
0086 RETURN
0087 ' move left
0088 @UFO_MVL
0089 LOCATE UFO_X(UFO_I), UFO_Y(UFO_I)
0090 PRINT "A"
0091 UFO_X(UFO_I) = UFO_X(UFO_I) - UFO_SX
0092 IF UFO_X(UFO_I) < 0 GOTO @UFO_DETH
0093 HITX = UFO_X(UFO_I)
0094 HITY = UFO_Y(UFO_I)
0095 GOSUB @WPN_HITC
0096 IF HITF GOTO @UFO_DAMG
0097 GOSUB @UFW_FIRE
0098 RETURN
0099 '
0100 @UFO_RSET
0101 UFO_X(UFO_I) = 0
0102 UFO_Y(UFO_I) = RND(10)
0103 UFO_F(UFO_I) = 1
0104 RETURN
0105 '
0106 @UFO_DAMG
0107 BEEP 13
0108 SCORE=SCORE+1
0109 '
0110 UFO_F(UFO_I)=3
0111 UFO_CNT(UFO_I)=30
0112 RETURN
0113 '
0114 @UFO_EXPL
0115 LOCATE UFO_X(UFO_I),UFO_Y(UFO_I)
0116 IF SYS_CNT AND 8 GOTO @LBL101
0117 PRINT"●";
0118 GOTO @LBL100
0119 @LBL101
0120 PRINT"*";
0121 @LBL100
0122 UFO_CNT(UFO_I)=UFO_CNT(UFO_I)-1
0123 IF UFO_CNT(UFO_I)!=0 THEN RETURN
0124 '
0125 @UFO_DETH
0126 UFO_F(UFO_I) = 0
0127 UFO_CNT(UFO_I) = RND(60)
0128 RETURN
0129 '
0130 ' UFO weapon
0131 '
【修正ポイント】
0132 @UFW_INI
0133 UFW_MAX=10
0134 DIM UFW_F(UFW_MAX)
0135 DIM UFW_X(UFW_MAX)
0136 DIM UFW_Y(UFW_MAX)
0137 FOR I=0 TO UFW_MAX-1
0138 UFW_F(I)=0
0139 NEXT I
0140 UFW_SY=0.1
0141 RETURN
0142 '
0143 @UFW_TASK
0144 FOR UFW_I=0 TO UFW_MAX-1
0145 GOSUB @UFW_SUB
0146 NEXT UFW_I
0147 RETURN
0148 '
0149 @UFW_SUB
【修正ポイント】
0150 ON UFW_F(UFW_I) GOTO @UFW_WAIT,@UFW_MOVE
0151 STOP
0152 '
0153 @UFW_WAIT
0154 RETURN
0155 '
0156 @UFW_MOVE
0157 LOCATE UFW_X(UFW_I),UFW_Y(UFW_I)
0158 PRINT"$";
0159 UFW_Y(UFW_I)=UFW_Y(UFW_I)+UFW_SY
0160 IF UFW_Y(UFW_I)>22 GOTO @UFW_DETH
0161 '
0162 HITX=UFW_X(UFW_I)
0163 HITY=UFW_Y(UFW_I)
0164 GOSUB @PLY_HITC
0165 IF HITF GOTO @UFW_DETH
0166 GOSUB @WPN_HITC
0167 IF HITF==0 THEN RETURN
0168 '
0169 @UFW_DETH
0170 UFW_F(UFW_I)=0
0171 RETURN
0172 '
0173 @UFW_FIRE
0174 IF SYS_CNT AND &H7F THEN RETURN
0175 '
0176 N=0
0177 @LBL300
0178 IF UFW_F(N)==0 GOTO @LBL301
0179 N=N+1
0180 IF N < UFW_MAX GOTO @LBL300
0181 RETURN
0182 '
0183 @LBL301
0184 BEEP 0
0185 UFW_F(N)=1
0186 UFW_X(N)=UFO_X(UFO_I)
0187 UFW_Y(N)=UFO_Y(UFO_I)+1
0188 RETURN
0189 '
0190 ' player task
0191 '
0192 @PLY_INI
0193 PLY_X = 15
0194 PLY_Y = 21
0195 PLY_SX = 0.5
0196 PLY_F = 0
0197 PLY_HITF=1
0198  RETURN
0199 '
0200 @PLY_TASK
0201 ON PLY_F GOTO @PLY_STOP,@PLY_MVR,@PLY_MVL,@PLY_EXPL,@PLY_WAIT
0202 STOP
0203 ' stop
0204 @PLY_STOP
0205 LOCATE PLY_X,PLY_Y
0206 PRINT "P"
0207 IF ON_KEY AND 16 THEN GOSUB @WPN_FIRE
0208 IF SYS_KEY AND 8 GOTO @PLY1
0209 IF SYS_KEY AND 4 GOTO @PLY2
0210 RETURN
0211 @PLY1
0212 PLY_F = 1
0213 RETURN
0214 @PLY2
0215 PLY_F = 2
0216 RETURN
0217 ' move right
0218 @PLY_MVR
0219 LOCATE PLY_X,PLY_Y
0220 PRINT "P"
0221 IF ON_KEY AND 16 THEN GOSUB @WPN_FIRE
0222 PLY_X = PLY_X + PLY_SX
0223 IF PLY_X > 31 THEN PLY_X = 31
0224 IF SYS_KEY AND 8 THEN RETURN
0225 PLY_F = 0
0226 RETURN
0227 ' move left
0228 @PLY_MVL
0229 LOCATE PLY_X,PLY_Y
0230 PRINT "P"
0231 IF ON_KEY AND 16 THEN GOSUB @WPN_FIRE
0232 PLY_X = PLY_X - PLY_SX
0233 IF PLY_X < 0 THEN PLY_X = 0
0234 IF SYS_KEY AND 4 THEN RETURN
0235 PLY_F = 0
0236 RETURN
0237 '
0238 @PLY_EXPL
0239 LOCATE PLY_X,PLY_Y
0240 IF SYS_CNT AND 8 GOTO @LBL200
0241 PRINT"○";
0242 GOTO @LBL201
0243 @LBL200
0244 PRINT"◎";
0245 @LBL201
0246 PLY_CNT=PLY_CNT-1
0247 IF PLY_CNT!=0 THEN RETURN
0248 '
0249 PLY_F=4
0250 RETURN
0251 '
0252 @PLY_WAIT
0253 IF SYS_CNT AND &H40 GOTO @LBL202
0254 LOCATE 11,11
0255 PRINT"GAME OVER";
0256 @LBL202
0257 RETURN
0258 '
0259 @PLY_HITC
0260 HITF=0
0261 IF PLY_HITF==0 THEN RETURN
0262 IF FLOOR(PLY_X)!=FLOOR(HITX) THEN RETURN
0263 IF FLOOR(PLY_Y)!=FLOOR(HITY) THEN RETURN
0264 HITF=1
0265 '
0266 BEEP 13
0267 PLY_F=3
0268 PLY_HITF=0
0269 PLY_CNT=30
0270 RETURN
0271 '
0272 ' weapon task
0273 '
0274 @WPN_INI
0275 WPN_MAX = 3
0276 DIM WPN_F(WPN_MAX)
0277 DIM WPN_X(WPN_MAX)
0278 DIM WPN_Y(WPN_MAX)
0279 FOR I=0 TO WPN_MAX-1
0280 WPN_F(I) = 0
0281 NEXT I
0282 WPN_SY = 0.5
0283 RETURN
0284 '
0285 @WPN_TASK
0286 FOR WPN_I=0 TO WPN_MAX-1
0287 GOSUB @WPN_SUB
0288 NEXT WPN_I
0289 RETURN
0290 '
0291 @WPN_SUB
0292 ON WPN_F(WPN_I) GOTO @WPN_WAIT,@WPN_MOVE
0293 STOP
0294 '
0295 @WPN_WAIT
0296 RETURN
0297 '
0298 @WPN_MOVE
0299 LOCATE WPN_X(WPN_I),WPN_Y(WPN_I)
0300 PRINT "!"
【修正ポイント】
0301 WPN_Y(WPN_I) = WPN_Y(WPN_I) - WPN_SY
0302 IF WPN_Y(WPN_I) >= 0 THEN RETURN
0303 WPN_F(WPN_I) = 0
0304 RETURN
0305 '
0306 @WPN_FIRE
0307 GOSUB @WPN_GET
0308 IF WPN_N < 0 THEN RETURN
0309 BEEP 10
0310 WPN_F(WPN_N) = 1
0311 WPN_X(WPN_N) = PLY_X
0312 WPN_Y(WPN_N) = 20
0313 RETURN
0314 '
0315 @WPN_HITC
0316 HITF = 0
0317 'FOR WPN_N=0 TO WPN_MAX-1
0318 WPN_N=0
0319 @LBL003
0320 IF WPN_F(WPN_N) == 0 GOTO @WPN_NEXT
0321 IF FLOOR(WPN_X(WPN_N)) != FLOOR(HITX) GOTO @WPN_NEXT
0322 IF FLOOR(WPN_Y(WPN_N)) == FLOOR(HITY) GOTO @WPN_HOK
0323 @WPN_NEXT
0324 'NEXT WPN_N
0325 IF WPN_N==WPN_MAX-1 THEN RETURN
0326 WPN_N=WPN_N+1
0327 GOTO @LBL003
0328 '
0329 @WPN_HOK
0330 HITF = 1
0331 WPN_F(WPN_N) = 0
0332 RETURN
0333 '
0334 @WPN_GET
0335 'FOR WPN_N=0 TO WPN_MAX-1
0336 WPN_N=0
0337 @LBL001
0338 IF WPN_F(WPN_N)==0 THEN RETURN
0339 'NEXT WPN_N
0340 IF WPN_N==WPN_MAX-1 GOTO @LBL002
0341 WPN_N=WPN_N+1
0342 GOTO @LBL001
0343 @LBL002
0344 WPN_N = -1
0345 RETURN
0346 'End of line

たまにはアメピグ記事更新＾＾；


最近、ブログ更新を【はじめてのプチコン】しかしてない＾＾。。。たまには別な記事書かんとと思ったけど今日もサンプル作るんで。。。更新はプチコン＾＾；
ま。。。仕方ないか。。。そこでアクセントに記事更新！！
今、部屋の最上階に作ってるオブジェですo(〃＾▽＾〃)o
<< 前ページ次ページ >>