Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/02/24 20:23:39

MixJuice GET URL : kidspod.club/mj/466

ヘリの宅配便(2本目)

プログラムは3本に分かれています。
このプログラムは2本目です。
1本目はこちら:http://kidspod.club/program/default.html?id=465
3本目はこちら:http://kidspod.club/program/default.html?id=467


変数表
A 白岩と黒岩の座標を入れ始める最初の配列の位置
B 岩落下のチェックフラグ、面クリチェックフラグ
C ヘリが潰れたフラグ
D [1]
E ヘリのキャラクターコード
F ゴール位置のキャラクターコード
G 現在の面数
H
I FORループ
J FORループ
K INKEY()
L WORK
M 岩の数
N WORK
O
P WORK
Q
R
S
T
U
V DX
W DY
X 自分X座標
Y 自分Y座標
Z
[0] 0 何も無いところのキャラクターコード 0固定
[1] 143 壁のキャラクターコード
[2] 232 白岩のキャラクターコード
[3] 233 黒岩のキャラクターコード
[4]~[11] 面のデータ
[12]、[13] 面のゴールX,Y
[14]~[101] ここに白岩と黒岩のX,Y座標を記憶 1配列に1個とする
X:12BIT + Y:4BIT

SOURCE CODE

1 'ヘリタク2
10 CLS:GSBG+100:X=1:Y=1:M=0:C=0
20 FORI=0TO17:LCI,0:?CHR$(D):LCI,9:?CHR$(D):LC0,I/2:?CHR$(D):LC17,I/2:?CHR$(D):NEXT:FORI=4TO11:FORJ=0TO7:L=[I]>>(J*2)&3:N=J*2+1:P=I-3:LCN,P:?CHR$([L],[L]):IFL=2||L=3[A+M]=N<<4+P:M=M+1
30 NEXT:NEXT:LC[12],[13]:?CHR$(F,F):LC19,0:?"STAGE ";G:LC0,10:?"R:Restart M:Select":LRUNFILE()+1
101 LET[4],0,48,336,0,0,1024,0,1280,7,8:RTN
102 LET[4],0,0,2188,1124,544,272,0,0,13,4:RTN
103 LET[4],0,0,0,12,264,8,8,4,11,5:RTN
104 LET[4],0,524,264,264,16388,16388,0,1088,15,8:RTN
105 LET[4],0,12,8,1348,16,4608,256,320,5,8:RTN
106 LET[4],524,260,0,8,8,4,16,5184,15,8:RTN
107 LET[4],8192,12416,4432,4224,8,1092,0,0,7,5:RTN
108 LET[4],0,4288,4224,4224,5520,128,128,1344,13,8:RTN
109 LET[4],12,8,4,16,64,256,1024,20480,15:RTN
110 LET[4],8,524,277,0,272,544,272,0,1,5:RTN
111 LET[4],8192,12416,8256,8192,4416,0,0,1040,3:RTN
112 LET[4],3072,1024,2080,2080,1045,0,16,0,1,7:RTN
113 LET[4],0,12,1300,2056,2056,1028,0,0,15,7:RTN
114 LET[4],12,2184,1092,0,272,0,0,0,15,6:RTN
115 LET[4],8,8,12,72,4,1092,0,0,15,6:RTN

COMMENT