2017年 10月19日
やっと初歩の攻撃部分だけできた。
差配プログラムも変更されたが、部隊が 3部隊で 1部隊 3ユニットというややこしさと、武器を持ってる持って無い、射程がある、ユニットによっては手の攻撃が無い、2手攻撃、複数攻撃とか要素が多くて大変だった。
あまりの作成する要素の量と、たぶん現在全行程の3割くらいしか進んでない状況から、もう完成しないのではないかと日に 1度は思う。
やっぱりもっと簡単なゲームから制作した方が良かったのか・・・・。
そう考えるのはクリエイターのお約束なんだろうなあ。
まずは恐怖のソースを。
|
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 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 |
/////// 戦闘 //////////////////////////// *battle_syoki ; 戦闘初期 //////////////////////////////// return #deffunc fn_syo ; 隊列処理 n1=(fg1-1)*3 n2=(fg2-1)*3 if ud(fn1(n1+1)*udb+26)=0 : fn1(n1+1)=fn1(n1+2) : fn1(n1+2)=fn1(n1+3) : fn1(n1+3)=0 ; 先頭がいなければ一つ詰める if ud(fn2(n2+1)*udb+26)=0 : fn2(n2+1)=fn2(n2+2) : fn2(n2+2)=fn2(n2+3) : fn2(n2+3)=0 anif1=1 repeat 3,1 ; 全滅確認 if fn1(n1+cnt)>0 : anif1=0 : break loop if anif1=1 { ff1(fg1)=0 ; 部隊消去 fff=1 repeat 3,1 ; 全部隊全滅確認 if ff1(cnt)>0 : fff=0 : break loop if fff=1 : ff1(0)=0 : btvf=-9; 全滅 btvf- : return } anif2=1 repeat 3,1 ; 全滅確認 if fn2(n2+cnt)>0 : anif2=0 : break loop if anif2=1 { ff2(fg2)=0 ; 部隊消去 fff=1 repeat 3,1 ; 全部隊全滅確認 if ff2(cnt)>0 : fff=0 : break loop if fff=1 : ff2(0)=0 : btvf=9 ; 全滅 btvf+ } return #deffunc d_syo ; 死亡処理 fn2(et)=0 return #deffunc atk int atkn,int atket,int atkrg ; 攻撃(攻撃値、攻撃する列、射程) atkf=0 ; 攻撃したかフラグ repeat 3,1 ; 射程 if atkrg<(ut-1)+cnt : break ; 射程外 et=cnt : en=ffn(et) : if en=0 : continue ; 隊列にいない eg=en*udb : if ud(eg+26)<=0 : continue ; HPが0 atkf+ : break ; 攻撃した loop if atkf=0 : return ; 射程内に敵がいなかった atkg=atkn*gensui/100 ; 攻撃力 atn=0 : repeat 2 : atn+=rnd(atkg+1) : loop ; 攻撃値 ;dgs "atn ",atn,5 dfn=0 : repeat 2 : dfn+=rnd(ud(eg+12)+1) : loop ; 防御値 ;dgs "dfn ",dfn,6 dm=atn-dfn if dm<=0 : return ; ダメージ無し if fs=1 : dmp_set dm,3+et,1 ; ダメージ表示 if fs=2 : dmp_set dm,et,1 repeat 1 ; HP処理 ud(eg+26)-=dm : if ud(eg+26)>0 : break ud(eg+26)=0 ;if fs=1 : fn2(et)=0 ;if fs=2 : fn1(et)=0 loop return *atack ; 攻撃処理 en=0 ; 敵ユニットNo. dgs "intvc",intvc,0 dgs "un ",un,1 dgs "fs ",fs,2 dgs "ut ",ut,3 dgs "16 ",ud(ug+16),4 gensui=100 ; 攻撃減衰率 if ud(ug+16)=0 and ut=1 : gensui=120 : atk ud(ug+11),1,1 ; 素アタック if ud(ug+16)=2 { ; 2手 ------------------------ repeat 1 ; 右手 if ud(ug+40)=0 { ; 素手 if ud(ug+41)=0 or id(ud(ug+41)*idb+16)=5 { ; 左手が素手か盾 atk ud(ug+11),1,1 : gensui=75 : break ; 右素手攻撃 } } if ud(ug+40)>0 { ; 右手武器 in=ud(ug+40) : ig=in*idb atk ud(ug+11)+id(ig+11),1,id(ig+17) ; 右手武器攻撃 gensui=75 } loop repeat 1 ; 左手 if ud(ug+40)=0 and ud(ug+41)=0 : atk ud(ug+11),1,1 : break ; 素手なら左素手攻撃 if ud(ug+41)>0 { ; 左手武器 in=ud(ug+40) : ig=in*idb atk ud(ug+11)+id(ig+11),1,id(ig+17) ; 左手武器攻撃 } loop } ; ------------------------------------------- if ud(ug+16)>2 { ; 複数手 --------------- repeat ud(ug+16) ; 手数 if ud(ug+40+cnt)=0 : atk ud(ug+11),1,1 : gensui-=25 : continue ; 素手 if ud(ug+40+cnt)>0 { ; 武器 in=ud(ug+40) : ig=in*idb if id(ig+16)!5 : atk ud(ug+11)+id(ig+11),1,id(ig+17) : gensui-=25 ; 盾で無ければ攻撃 continue } loop } ; -------------------------------------- redraw 0 color 0,0,0 : boxf : color 255,255,255 btl_put dmp_put dg_put redraw 1 pkey return *d_atack return *fight ; 戦闘 /////////////////////////////////////// btn=0 ; ターン fg1=fc1\3+1 ; 戦闘する部隊 fg2=fc2\3+1 repeat 3 ; 3回戦闘 btn+ ;dgs "btn ",btn,9 ; イニシアティブ -------------- dim intv,6 ; イニシアティブ、順番 dim intvn,6 ; 値 repeat 6 ; リセット intv(cnt)=0 intvn(cnt)=0 loop repeat 3 : cnt2=cnt ; 値計算 cn1=(fg1-1)*3+cnt+1 cn2=(fg2-1)*3+cnt+1 if fn1(cn1)>0 { ; 攻勢側 intv(cnt)=fn1(cn1) ug=fn1(cn1)*udb n=0 : if ud(ug+8)=22 : n=ud(ug+9) ; 速攻 repeat 2 : intvn(cnt2)+=rnd(ud(ug+23)+n+1)+1 : loop ; 値 } if fn2(cn2)>0 { ; 防衛側 intv(3+cnt)=fn2(cn2) ug=fn2(cn2)*udb n=0 : if ud(ug+8)=22 : n=ud(ug+9) ; 速攻 repeat 2 : intvn(3+cnt2)+=rnd(ud(ug+23)+n+1)+1 : loop ; 値 } loop repeat 5 : cnt2=5-cnt ; バブルソート repeat cnt2 n1=intv(5-cnt) : nd1=intvn(5-cnt) n2=intv(5-cnt-1) : nd2=intvn(5-cnt-1) if nd1<=nd2 : continue intv(5-cnt)=n2 : intv(5-cnt-1)=n1 ; 入れ替え intvn(5-cnt)=nd2 : intvn(5-cnt-1)=nd1 loop loop ; 攻撃 -------------- repeat 6 : intvc=cnt un=intv(intvc) : ug=un*udb ; ユニットNo. if un=0 : continue ; ユニットが無い if ud(ug+26)<=0 : continue ; HPが0 repeat 3,1 ; 敵味方識別 if fn1((fg1-1)*3+cnt)=un : fs=1 : break if fn2((fg2-1)*3+cnt)=un : fs=2 : break loop repeat 3,1 ; 隊列何番目か if fs=1 : if fn1((fg1-1)*3+cnt)=un : ut=cnt : break if fs=2 : if fn2((fg2-1)*3+cnt)=un : ut=cnt : break loop repeat 3,1 ; 敵ユニットNo.格納 if fs=1 : ffn(cnt)=fn2((fg2-1)*3+cnt) if fs=2 : ffn(cnt)=fn1((fg1-1)*3+cnt) loop gosub *atack ; 攻撃処理 loop fn_syo ; 隊列処理 redraw 0 color 0,0,0 : boxf : color 255,255,255 btl_put dmp_put dg_put redraw 1 if anif1=1 or anif2=1 : break ; 全滅した loop return *battle ; 戦闘メイン //////////////////////////////// btvf=0 ; 勝利フラグ repeat 1 ; ------------------------------------------------- dim ff1,4 ; forceフラグ、攻撃側 dim ff2,4 ; forceフラグ、防衛側 repeat 4 : ff1(cnt)=0 : ff2(cnt)=0 : loop ; リセット repeat 3 : cnt2=cnt ; 部隊が存在するか repeat 3 un=mu(kn1*10+cnt2*3+cnt+1) if un=0 or ud(un*udb+26)<=0 : continue ff1(cnt2+1)=1 : ff1(0)=1 : break loop repeat 3 un=mu(kn2*10+cnt2*3+cnt+1) if un=0 or ud(un*udb+26)<=0 : continue ff2(cnt2+1)=1 : ff2(0)=1 : break loop loop if ff2(0)=0 : btvf=1 : break; 防衛部隊が無いので勝利 ; ユニットNo.ひかえ --------- dim fn1,10 ; 攻勢側ユニットNo. dim fn2,10 ; 防衛側ユニットNo. dim ffn,4 ; 敵戦闘部隊 repeat 3 : cnt2=cnt repeat 3,1 un=mu(kn1*10+cnt2*3+cnt) if ud(un*udb+26)>0 : fn1(cnt2*3+cnt)=un : else : fn1(cnt2*3+cnt)=0 un=mu(kn2*10+cnt2*3+cnt) if ud(un*udb+26)>0 : fn2(cnt2*3+cnt)=un : else : fn2(cnt2*3+cnt)=0 loop loop ; 戦闘部隊差配 ------------- fc1=0 : fc2=0 ; 部隊No. repeat 3 ; 攻撃側 if ff1(fc1\3+1)=0 : fc1+ : continue bf=0 ; 不戦勝フラグ repeat 3 ; 防衛側 if ff2(fc2\3+1)=1 : gosub *fight : fc2+ : bf=1 : break fc2+ loop if bf=0 : btvf+ ; 不戦勝 if ff1(0)=0 or ff2(0)=0 : break ; 全滅した fc1+ loop if ff1(0)=0 or ff2(0)=0 : break ; 全滅した repeat 3 ; 防衛側 if fc2>=3 : break ; 全部隊戦闘したので終わり if ff2(fc2\3+1)=0 : fc2+ : continue bf=0 ; 不戦負フラグ repeat 3 ; 攻撃側 if ff1(fc1\3+1)=1 : gosub *fight : fc1+ : bf=1 : break fc1+ loop if bf=0 : btvf- ; 不戦負 if ff1(0)=0 or ff2(0)=0 : break ; 全滅した fc2+ loop loop ;------------------------------------------------------ hextf=0 ; 勝敗処理 ---------------- if btvf>0 { ; 勝利 mpl(kn)=1 clrf=1 repeat 25,1 if map(cnt)=0 : continue if mpl(cnt)!1 : clrf=0 : break loop if clrf=1 : mainf=7 : kc=10 ; GAME CLEAR return } return |
う～む、これを見て分かる人はおるまい。
とにかくまず *battleから入る。
*battleは部隊が存在するかと、戦う順番（差配）を決め、戦闘が起これば*fightへ。
最後に勝敗を決めてマップを書きなおすか決める。
*fightは部隊同士の戦闘処理で、今回は敵も味方も攻撃するほうを都度 un、ud、ug、防御側を en、ed、egとすることによって、次の*atackつまり戦闘処理を敵味方同じにする事によって、ソースを 2重にすることを避けた。
これについては、今後様々な特殊能力による変則的なプログラムを書くのを楽にするため。
思考錯誤しながら間違い（バグ）なく敵味方 2つも書いてらんない。
イニシアティブ（攻撃の順番）もかなり思考錯誤した。
イニシアティブは知力による。
intvにユニットNo.が格納され、intvnに速さ値が格納され、これを元にintvを早い順に並べ変える。
攻撃はintv順に行われる。
ffn=一時的に防御側の隊のユニットNo.を格納する。
これによって、*atack部分で防御側のユニット隊列が分かるようになる。
つまりこれ無しで相手を特定するのはかなりややこしい。
fn_syo ; 隊列処理、ユニットの HPが 0になったら、隊列を詰める。
これは 1回全ユニットが攻撃を終えてから、つまり 1戦闘ターン後に判定される。
先頭のユニットが健在なら、後列の離脱は無視される。
この時に部隊の全滅と全部体の全滅を確認し、全滅なら*battleへ戻る。
この辺の取り決めだけでも相当に思考錯誤した。
それからやっと個別の攻撃（atk）になる。
右手か左手に武器を持ってるか、あるいは両手とも素手か、左手が盾なら右手は素手攻撃になるとか、左手が片手武で右手が装備無しなら右手の素手攻撃は行われず左手の攻撃だけとか、右手武器の攻撃をした後、左手武器の右手武器の値を引いてから左手武器の値を足さなければいけいけど、そうなると攻撃値を全装備アイテムから計算しなおさなければいけないし、それを一々沢山出てくる攻撃箇所で行うのは大変だとか、もうカオス。
結局ユニットデータの攻撃値 ud(ug+11)には武器以外のアイテムの攻撃地だけを足して基礎値とし、武器値は装備している武器の内一番高いものを ud(ug+20)という使ってないデータに別に割り振る事にした。
すると素手の場合は ud(ug+11)をそのまま使えば良いし、武器なら都度その値に武器の攻撃力を足せばいい。
今の所 ud(ug+20)はステータス画面での攻撃力表示の時に使うくらいか。
そんな感じの思考錯誤を何日か経て、なんとか*atackのソースの基礎部分が出来た所だ。
gensuiは攻撃回数による減衰を表す。
gensui=75なら 75%の攻撃力になる。
つまり右手左手攻撃なら、左手攻撃は 75%になるよに今の所している。
複数攻撃なら 25%ずつ減る。
それからいよいよダメージ計算（atk）になる。
今回射程内に敵がいるかとか、HPが 0かとかはこちらで判定する事にした。
これによって*atackソース内でいちいち個別に判定しなくて済む。
ダメージ値等の値計算は一時的なもので、段々ゲームバランスの調整と共に変えていく。
とにかく稼動しなけりゃどうにもならない。
さらに頭痛いのだが、これに属性の計算をしなければいけない。
どういう計算にするかは、まだ考えてる途中だ。
それではテスト。
攻め込む側。
防衛側。差配確認のためわざと 2部隊にしている。
まだ制作途中なので分かり難いが、ダメージ表示を見ると 2回（左右素手）攻撃している（赤い 3の表示に重なってる）
2戦闘目。
HPが 0になると、とりあえず半透明表示。
次のターン、部隊が詰められる。
次のターン前列に来た。
次の部隊（3戦闘目）
防衛側は第三部隊が無いので繰越で第一部隊が出る。
今回はとりあえずここまで。