Program post site for everyone
プログラムは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
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
