2017年 12月9日
今回もそれなりに大変だった。
隊列の処理が意外とややこしい。
それと召還のユニットデータとステータスデータをどうするか、というのもある。
では召還から。
まず召還したユニットのユニット No.を控えておく変数を作る。
dim smnfn,6
召還されるのは隊列最大の 6を超えないはずなので配列は 6でよい(召還されたものが召還を使うのでもなければ最大は 4)
戦闘ステータス bsは、死んだユニットの場所を使うので変更無し。
ではソースを
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 |
#deffunc smon int smonf ; 召還 c=0 repeat 3,1 if fs=1 : un2=fn1(fs1+cnt) if fs=2 : un2=fn2(fs2+cnt) if un2!0 and ud(un2*udb+26)>0 : c+ loop if c=3 : return ; 隊列がいっぱい f=0 repeat ub-1,1 ; 空きユニットNo.ピック un2=cnt : ug2=un2*udb ; ユニットNo. if ud(ug2)=0 : f=1 : break loop if f=0 : return ; ユニットいっぱい if smonf=1 : cn=136 ; ゴーレム if smonf=2 : cn=169 ; ウィスプ if smonf=3 { r=rnd(3) if r=0 : cn=184 ; ゾンビ if r=1 : cn=185 ; グール if r=2 : cn=186 ; スケルトン } if smonf=4{ r=rnd(3) if r=0 : cn=187 ; インプ if r=1 : cn=196 ; デビル if r=2 : cn=200 ; デーモン } repeat udb ud(ug2+cnt)=0 ; データクリア loop ud(ug2)=cn ; cnキャラ種類 repeat 9,1 ud(ug2+cnt)=cd(cnt,cn) ; データ loop repeat 5 ud(ug2+21+cnt)=ud(ug2+1+cnt) ; ステータスデータ loop ud(ug2+26)=ud(ug2+25) ; HP repeat 2 : ud(ug2+11+cnt)=ud(ug2+21) : loop ; 攻防値 repeat 3 ; 空き戦闘ステータスにセット if fs=1 : bsg=cnt*bsb if fs=2 : bsg=(cnt+3)*bsb if bs(bsg)=0 : bs(bsg)=un2 : break loop if fs=1 { ; 隊列にセット n=ftp(fs,un) ; 召還者の隊列 switch n case 1 smn=1 if fn1(fs1+2)>0 and ud(fn1(fs1+2)*udb+26)>0 : fn1(fs1+3)=fn1(fs1+2) ; 真ん中に誰かいる fn1(fs1+2)=fn1(fs1+1) ; 一つ後ろへ詰める swbreak case 2 if fn1(fs1+1)=0 or ud(fn1(fs1+1)*udb+26)<=0 : smn=1 : swbreak ; 先頭が開いてる fn1(fs1+3)=fn1(fs1+2) : smn=2 ; 一つ後ろへ詰める swbreak case 3 smn=2 if fn1(fs1+2)=0 or ud(fn1(fs1+2)*udb+26)<=0 : swbreak ; 真ん中が開いてる場合 fn1(fs1+1)=fn1(fs1+2) : fn1(fs1+2)=0 ; 一つ前へ詰める swbreak swend fn1(fs1+smn)=un2 ; 召還 } if fs=2 { n=ftp(fs,un) ; 召還者の隊列 switch n case 1 smn=1 if fn2(fs2+2)>0 and ud(fn2(fs2+2)*udb+26)>0 : fn2(fs2+3)=fn2(fs2+2) ; 真ん中に誰かいる fn2(fs2+2)=fn2(fs2+1) ; 一つ後ろへ詰める swbreak case 2 if fn2(fs2+1)=0 or ud(fn2(fs2+1)*udb+26)<=0 : smn=1 : swbreak ; 先頭が開いてる fn2(fs2+3)=fn2(fs2+2) : smn=2 ; 一つ後ろへ詰める swbreak case 3 smn=2 if fn2(fs2+2)=0 or ud(fn2(fs2+2)*udb+26)<=0 : swbreak ; 真ん中が開いてる場合 fn2(fs2+1)=fn2(fs2+2) : fn2(fs2+2)=0 ; 一つ前へ詰める swbreak swend fn2(fs2+smn)=un2 ; 召還 } repeat 6 if smnfn(cnt)=0 : smnfn(cnt)=un2 : break; 召還un格納 loop return |
まず当然ながら隊列がいっぱいの場合は召還しない。
ユニットデータは一般のデータ udの空きをそのまま使う。
そうしないと戦闘プログラムで運用できない。
その部隊の戦闘が終わったら smnfnに控えておいたユニットのデータを消す。
ソースの隊列にセットの部分で、召還者の位置を元に隊列を詰めて召還する場所を確定する。
意外とややこしいのが分かると思う。
ではテスト
光の召還、ウィル・オ・ウィスプ
召還者の前に召還される。
下の緑の表示でデバッグ確認用の smnfnを書いてる。
召還されたユニットNO.は 113だが、これはマップ全部でユニットが 112作成されてるから。
部隊が埋まるまで(といっても最大 2体という事だが)召還される。
闇の召還、デモンズゲート(悪魔召還)
3種の内ランダムで召還される。
と、いう訳で次はリザレクション(蘇生)
これの隊列処理が大変だった。
蘇生位置の隊列の変更と、召還されたものの場合は潰さないといけない、どれを詰めてどれを潰すか?
共通の法則は無いか、紙数枚に書いて丸一日思考錯誤していたが、自分にはどうにも法則は分からなかった。
結局蘇生される者の元の隊列の位置を格納しておいて参照し、その場所と現在の隊列のユニット数を元に「ベタ処理」する事にした。
dim sfn,7 ; 初期隊列un格納
dim rfn,4 ; 蘇生候補と蘇生処理時の隊列
ではソースを
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 175 176 177 178 179 180 181 182 183 |
#deffunc resur ; リザレクション repeat 3 : rfn(cnt)=0 : loop ; クリア if fs=1 : sfg=0 if fs=2 : sfg=3 c=0 repeat 3,1 ; 死亡者ピック rn=sfn(sfg+cnt) : if rn=0 : continue if ud(rn*udb+26)<=0 : rfn(c)=rn : c+ loop if c=0 : return ; 死亡者がいない r=rnd(c) : rn=rfn(r) ; 蘇生者選択 repeat 3,1 ; 元の隊列場所 if rn=sfn(sfg+cnt) : rt=cnt : break loop repeat 4 : rfn(cnt)=0 : loop ; rfnリセット repeat 3,1 ; 処理用隊列変数に格納 if fs=1 : un2=fn1(fs1+cnt) if fs=2 : un2=fn2(fs2+cnt) ug2=un2*udb if ud(ug2+26)>0 : rfn(cnt)=un2 loop taif=0 repeat 3,1 ; 隊列いくつ埋まっているか n=rfn(cnt) if n>0 and ud(n*udb+26)>0 : taif+ loop repeat 1 ; 隊列が3つ埋まってる場合 ---------------------------- if taif!3 : break ; 3つじゃない en1=smf(rfn(1)) : en2=smf(rfn(2)) : en3=smf(rfn(3)) ; 召還か switch rt case 1 ; 蘇生される者が1列目 ------------------------- if en1>0 : d_syo en1 : rfn(1)=rn : rsr_syo rn : swbreak ; 隊列1が召還の場合 if en2>0 and en3=0 { ; 隊列2だけ召還の場合 d_syo en2 ; 隊列2の召還を消す rfn(2)=rfn(1) : rfn(1)=rn : rsr_syo rn ; 入れ替え swbreak } if en3>0 { ; 隊列3が召還の場合 d_syo en3 ; 隊列3の召還を消す rfn(3)=rfn(2) : rfn(2)=rfn(1) : rfn(1)=rn : rsr_syo rn ; 入れ替え swbreak } swbreak case 2 ; 蘇生される者が2列目 ------------------------- ; 例外1 if rfn(3)=sfn(sfg+1) { ; 隊列3に1が入ってる en1=smf(rfn(1)) : if en1>0 : d_syo en1 ; 1の召還を削除 rfn(1)=rfn(2) : rfn(2)=rfn(3) : rfn(3)=rn : rsr_syo rn ; 入れ替え swbreak } if rfn(1)=sfn(sfg+3) { ; 隊列1に3が入ってる en3=smf(rfn(3)) : if en3>0 : d_syo en3 ; 3の召還を削除 rfn(3)=rfn(2) : rfn(2)=rfn(1) : rfn(1)=rn : rsr_syo rn ; 入れ替え swbreak } ; 例外2 if rfn(2)=sfn(sfg+1) { ; 隊列2に1が入ってる en1=smf(rfn(1)) : if en1>0 : d_syo en1 ; 1の召還を削除 rfn(1)=rfn(2) : rfn(2)=rn : rsr_syo rn ; 入れ替え swbreak } if rfn(2)=sfn(sfg+3) { ; 隊列2に3が入ってる en3=smf(rfn(3)) : if en3>0 : d_syo en3 ; 3の召還を削除 rfn(3)=rfn(2) : rfn(2)=rn : rsr_syo rn ; 入れ替え swbreak } ; その他 if en2>0 : d_syo en2 : rfn(2)=rn : rsr_syo rn ; 隊列2は召還 swbreak case 3 ; 蘇生される者が3列目 ------------------------- if en2>0 and en1=0 { ; 隊列2だけ召還の場合 d_syo en2 : rfn(2)=rfn(3) : rfn(3)=rn : rsr_syo rn ; 入れ替え swbreak } ; その他 if en1>0 { ; 隊列1、2が召還の場合 d_syo en1 ; 隊列1の召還は消す rfn(1)=rfn(2) : rfn(2)=rfn(3) : rfn(3)=rn : rsr_syo rn ; 入れ替え } swbreak swend loop dgs "en1 ",en1,15 dgs "en2 ",en2,16 dgs "en3 ",en3,17 bpk repeat 1 ; 隊列が2つ埋まってる場合 ---------------------------- if taif!2 : break ; 2つじゃない if rt=1 { ; 蘇生される者が1列目 ------------------------- if rfn(1)=0 : rfn(1)=rn : rsr_syo rn : break ; 隊列1が空 if rfn(2)=0 : rfn(2)=rfn(1) : rfn(1)=rn : rsr_syo rn : break ; 隊列2が空 rfn(3)=rfn(2) : rfn(2)=rfn(1) : rfn(1)=rn : rsr_syo rn : break ; 隊列3が空 } if rt=2 { ; 蘇生される者が2列目 ------------------------- ; 例外1 if rfn(3)>0 and rfn(3)=sfn(sfg+1) { ; 隊列3に1が入ってる if rfn(2)=0 : rfn(2)=rfn(3) : rfn(3)=rn : rsr_syo rn : break ; 隊列2が空 rfn(1)=rfn(2) : rfn(2)=rfn(3) : rfn(3)=rn : rsr_syo rn : break ; その他 } if rfn(1)>0 and rfn(1)=sfn(sfg+3) { ; 隊列1に3が入ってる if rfn(2)=0 : rfn(2)=rfn(1) : rfn(1)=rn : rsr_syo rn : break ; 隊列2が空 rfn(3)=rfn(2) : rfn(2)=rfn(1) : rfn(1)=rn : rsr_syo rn : break ; その他 } ; 例外2 if rfn(2)>0 and rfn(2)=sfn(sfg+1) { ; 隊列2に1が入ってる if rfn(3)=0 : rfn(3)=rn : rsr_syo rn : break ; 隊列3が空いてる rfn(1)=rfn(2) : rfn(2)=rn : rsr_syo rn ; 入れ替え break } if rfn(2)>0 and rfn(2)=sfn(sfg+3) { ; 隊列2に3が入ってる if rfn(1)=0 : rfn(1)=rn : rsr_syo rn : break ; 隊列1が空いてる rfn(3)=rfn(2) : rfn(2)=rn : rsr_syo rn ; 入れ替え break } ; その他 if rfn(1)=0 : rfn(1)=rfn(2) : rfn(2)=rn : rsr_syo rn : break ; 隊列1が空いてる if rfn(3)=0 : rfn(3)=rfn(2) : rfn(2)=rn : rsr_syo rn : break ; 隊列3が空いてる } if rt=3 { ; 蘇生される者が3列目 ------------------------- if rfn(3)=0 : rfn(3)=rn : rsr_syo rn : break ; 隊列1が空 if rfn(2)=0 : rfn(2)=rfn(3) : rfn(3)=rn : rsr_syo rn : break ; 隊列2が空 rfn(1)=rfn(2) : rfn(2)=rfn(3) : rfn(3)=rn : rsr_syo rn : break ; 隊列3が空 } loop repeat 1 ; 隊列が1つ埋まってる場合 ---------------------------- if taif!1 : break ; 1つじゃない if rt=1 { ; 蘇生される者が1列目 ------------------------- if rfn(1)=0 : rfn(1)=rn : rsr_syo rn : break ; 隊列1が空 if rfn(2)=0 : rfn(2)=rfn(1) : rfn(1)=rn : rsr_syo rn : break ; 隊列2が空 } if rt=2 { ; 蘇生される者が2列目 ------------------------- ; 例外1 if rfn(3)>0 and rfn(3)=sfn(sfg+1) { ; 隊列3に1が入ってる rfn(2)=rfn(3) : rfn(3)=rn : rsr_syo rn : break ; 隊列2が空 } if rfn(1)>0 and rfn(1)=sfn(sfg+3) { ; 隊列1に3が入ってる rfn(2)=rfn(1) : rfn(1)=rn : rsr_syo rn : break ; 隊列2が空 } ; 例外2 if rfn(2)>0 and rfn(2)=sfn(sfg+1) { ; 隊列2に1が入ってる rfn(1)=rfn(2) : rfn(2)=rn : rsr_syo rn : break ; 入れ替え } if rfn(2)>0 and rfn(2)=sfn(sfg+3) { ; 隊列2に3が入ってる if rfn(1)=0 : rfn(1)=rn : rsr_syo rn : break ; 入れ替え } ; その他 if rfn(2)=0 : rfn(2)=rn : rsr_syo rn : break ; 隊列2が空 if rfn(2)>0 : rfn(1)=rfn(2) ; 隊列2に召還がいる rfn(2)=rn : rsr_syo rn : break ; 入れ替え } if rt=3 { ; 蘇生される者が3列目 ------------------------- if rfn(3)=0 : rfn(3)=rn : rsr_syo rn : break ; 隊列3が空 if rfn(2)=0 : rfn(2)=rfn(3) : rfn(3)=rn : rsr_syo rn : break ; 隊列2が空 } loop repeat 3,1 ; 隊列格納 if fs=1 : fn1(fs1+cnt)=rfn(cnt) if fs=2 : fn2(fs2+cnt)=rfn(cnt) loop return |
隊列の処理だけでこれだけのソースになると言う事から、いかに意外とややこしいか分かってもらえるだろう。
だからたぶん素質のあるプログラマーなら共通法則を導き出して簡素化するんだろうと思うが、自分はペーペーなのでそんなのサッパリ分からない。
まず元の隊列を格納してある変数 sfnを元に死者がいるかどうか調べ、2名死んでる場合はどちらかランダムで選ぶ。
次に同 sfnを参照して元のユニットが隊列の何番目だったかを確認する。
あ、そうそう smfというのは、そのユニットが召還かどうか調べる関数(自作命令)です。
隊列の変更はまず現在の隊列が何人いるかで処理を変える。
3人全部埋まってる場合に、召還ユニットがあれば潰す事になる。
分岐した処理それぞれで、復帰する隊列事に「ベタ処理」を敢行する。
特別なのは 2列目の処理で、2列目に 1や 3が入っていると、詰め方が特殊になる。
処理前に rfnに隊列を格納してから処理し、その後に現在の隊列 fn1、fn2に格納しなおす。
こうする事で処理ソースを一つにしている。
少し図を描こうかと思ったけど、どうにもめんどくさいので止めた。
という訳で説明はこれくらいにして後はソースで理解してもらうとして(無茶だけど)テストする。
召還とリザをセットする。
先頭がやられた
1個詰めて、召還者の前に召還をセット
その後から召還を潰してリザ
先頭が2名やられている状態で召還
そしてリザ、この場合 1列目が蘇生された模様。
と、いうような感じです。
これにて魔法は今の所コンプリートになりました。
たぶんバグてんこもりだと思うけど、追々潰していこう。
次はどうするかな?
戻ってユニットの特殊能力を整備するかな。
ではまた。