2022年 8月 5日
と言う訳でオプションルーチンを整理しました。
前回までは *game_mainルーチン内からオプションを呼び出してましたけど、ご覧のように一度 *game_mainルーチンを抜けてから *optionルーチンに入るようにしてます。
これによって何とか SAVE、LOADのタイミングの整合性を取る事ができました。
プレイヤー操作の場合は、そのまま抜けても大丈夫です。
|
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 |
*player kf=0 ; キーフラグ kln1=0 ; 押した国 kln2=0 ; 攻め込む国 repeat scr_key ; キー入力 ; 押してない repeat 1 if k=256 : break ; 放してない if kf=0 : break ; 一度も押してない if kf=2 : kf=0 : break ; スクロールモード ; オプション if kf=3 : mainf=6 : break ;if kf=3 : gosub *option : kf=0 : break ; 押して放した kf=0 ; リセット mkn_syo ; HEX座標(mkn) if mkn<0 { ; 画面外 if kln1=0 : gosub *tarn_end kln1=0 : break } if map(mkn)<1 : kln1=0 : break ; 領土外 ldn=map(mkn) ; 国No. if kln1=ldn : kln1=0 : break ; 同じ国の場合リセット if kln1=0 : kln1=ldn : break ; 国選択 if lpd(kln1)!pn1 and kln1!ldn : kln1=ldn : break ; 別の国を選択 repeat 1 ; 攻め込む if kln1=0 : break ; 選択してない if lpd(kln1)!pn1 : break ; 自国では無い if lpd(ldn)=pn1 : break ; 自領なので攻め込まない if ldcd(kln1)<2 : kln1=0 : break ; ダイスが2以上無い f=0 : ldlg=kln1*ldlb repeat ldlb ; 隣接国か if ldl(ldlg+cnt)=ldn : f=1 : break loop if f=0 : kln1=0 : break kln2=ldn gosub *battle ; 戦闘へ loop kln1=0 kln2=0 loop if k=512 { if kln1=0 : gosub *tarn_end : break ; ターンエンド if kln1>0 : kln1=0 } if mainf!5 or tarn_endf=1 or msf=0 or loadf=1 : break if k=32 : dbgf=(dbgf+1)\2 ; デバッグ redraw 0 sc_mput ; スクロールマップ表示 n=0 : if kln1>0 : n=1 stk_put n ; ストック表示 dg_put ; デバッグ表示 redraw 1 await 1000/50 loop ; ウエイト表示 kf=0 : bpwt1c=0 repeat scr_key ; スクロール入力 if kf>0 and k!256 : kf=0 : break ; 放した redraw 0 sc_mput stk_put ; ストック表示 redraw 1 await 1000/50 if bpwt1f<6 { ; 表示ウエイト if bpwt1c>=bpwt1 : break bpwt1c+ } loop return |
;オプションの部分ですね、mainf=6でオプションモードに切り替えてます。
その下にコメントアウトで変更前の gosub *optionがあるのが分かります。
if mainf!5 or tarn_endf=1 or msf=0 or loadf=1 : break で抜けてます。
CPUの場合は、ターンエンド時のダイス積み増し表示の時にキー入力を受付、入力があった場合は全部ダイス増を終わって次のプレイヤーに変わるタイミングでオプションに入ります。
|
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 |
#deffunc te_put int _te_putf; ターンエンド表示 if te_kf=3 : return ; セーブのため無表示 te_putf=_te_putf kf=0 : bpwt1c=0 : te_kf=0 repeat scr_key ; スクロール入力 if kf>0 and k!256 : kf=0 : break ; 放した if kf=3 : te_kf=3 : break ; オプション予約 ;if kf=3 : gosub *option : kf=0 : break redraw 0 sc_mput n=0 : if tef=1 or te_putf=1 : n=1 stk_put n ; ストック表示 redraw 1 await 1000/50 if bpwt1f<6 { ; 表示ウエイト if bpwt1c>=bpwt1/5 : break bpwt1c+ } loop return |
if kf=3 : te_kf=3 : break の部分で待機モードになり、その場合先頭の if te_kf=3 : returnの部分で表示をスキップします。
ここでもコメントアウトで変更前の gosub *optionがあるのが分かります、変更前はここから直接オプションを呼び出していた訳です。
*game_mainのルーチンです。
|
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 |
*game_main repeat plb pn1=pad(padn) padn+ : if padn=plb : padn=0 : save 0 : break ; 全部終わり if pfd(pn1)=0 : continue ; 滅んでる ; cu表情 repeat ldb,1 : ldn=cnt if lpd(ldn)!pn1 : continue if ldcu(ldn)=0 : continue cupf(ldcu(ldn))=0 ; フラットに loop if pfd(pn1)=1 : msf=1 ; メインスイッチフラグ if pfd(pn1)=2 : msf=2 ; CPU tarn_endf=0 ; ターンエンドフラグ while tarn_endf=0 switch msf case 1 ; プレイヤー gosub *player if mainf!5 : padn- : tarn_endf=1 : swbreak swbreak case 2 ; CPU gosub *strategy gosub *tarn_end if te_kf=3 { mainf=6 : swbreak ; オプションへ } swbreak swend if mainf!5 : break wend if mainf!5 : break loop if mainf=5 : padn=0 return |
CPUのターンエンド処理（gosub *tarn_end）をした後に、スイッチである te_kf=3で mainf=6にしてオプションモードにして抜けるようにしてます。
プレイヤーの場合は順番である padnを -1してからセーブします、これは先頭で padn+してるので、LOAD時やオプションからの復帰時もこのプレイヤーから始めるためです。
後はセーブ時にプレイヤー順番である padnを控えておきます。
|
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 |
#deffunc save int _saven,int _savef saven=_saven ; セーブNo. savef=_savef ; フラグ sys_save ; システムデータ、セーブ if savef=1 : return ; システムデータのみ ; データ格納 n=0 dat(n)=lx : n+ ; スクロール表示位置 dat(n)=scf : n+ ; スクロールフラグ dat(n)=dbpl : n+ ; 最大戦力プレイヤー dat(n)=plb : n+ ; プレイヤー数 dat(n)=padn : n+ ; 現在の順番 dat(n)=mb : n+ ; 全HEX数 dat(n)=ldb : n+ ; 国数 repeat mb : dat(n)=map(cnt) : n+ : loop ; マップ repeat mb : dat(n)=hwd(cnt) : n+ : loop ; HEXの外周枠情報 repeat lddb : dat(n)=ld(cnt) : n+ : loop ; 領土 repeat (ldb+1)*ldlb+1 : dat(n)=ldl(cnt) : n+ : loop ; 隣接国 repeat ldb+1 : dat(n)=lpd(cnt) : n+ : loop ; 領土のプレイヤー repeat ldb+1 : dat(n)=ldcd(cnt) : n+ : loop ; ダイス数 repeat ldb+1 : dat(n)=ldcu(cnt) : n+ : loop ; キャラクターユニット repeat ldb+1 : dat(n)=dpd(cnt) : n+ : loop ; 国のダイス表示順番 repeat ldb+1 : dat(n)=lcx(cnt) : n+ : loop ; 中間座標x repeat ldb+1 : dat(n)=lcy(cnt) : n+ : loop ; 中間座標y repeat ldb+1 : dat(n)=ldhx1(cnt): n+ : loop ; 最左ライン repeat ldb+1 : dat(n)=ldhx2(cnt): n+ : loop ; 最右ライン repeat ldb+1 : dat(n)=ldhy1(cnt): n+ : loop ; 最上ライン repeat ldb+1 : dat(n)=ldhy2(cnt): n+ : loop ; 最下ライン repeat plb+1 : dat(n)=pfd(cnt) : n+ : loop ; プレイヤー操作 repeat plb+1 : dat(n)=pld(cnt) : n+ : loop ; プレイヤーの領土数 repeat plb+1 : dat(n)=pdca(cnt) : n+ : loop ; 増ダイス数 repeat plb+1 : dat(n)=pad(cnt) : n+ : loop ; 行動順 repeat plb+1 : dat(n)=dp(cnt) : n+ : loop ; 全ダイス戦力数 repeat plb+1 : dat(n)=dcpn(cnt) : n+ : loop ; 表示ダイスグラNo. repeat plb+1 : dat(n)=pdsd(cnt) : n+ : loop ; ストックダイス数 repeat 21 : dat(n)=clpn(cnt) : n+ : loop ; カラー s="data"+saven+".dat" bsave s,dat ; データセーブ ; スタートデータセーブ s="sdata"+saven+".dat" bsave s,sdat ; リプレイデータセーブ dim repd2,repc repeat repc repd2(cnt)=repd(cnt) loop repd2(0)=repc ; カウンター repd2(1)=repk ; データ位置 bsave "rep_data"+saven+".dat",repd2 return |
5番目くらいのデータですね。
LOADの時に、この padnを呼び出して、続きの順番から *game_mainに入ります。
これで挙動がスッキリしました。