2022年 7月 22日
と言う訳で、リスタート（RESTART）を実装しました。
これは「そのマップの始めからやり直し」の機能です。
ゲームを始めて
進めて
リスタートで YES
初期の状態に戻ります。
これでいったんゲームオーバーになっても、何度でもやり直せます。
仕組み自体は簡単で、初期の状態をセーブしておくだけです。
|
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 |
////////// スタートデータ ////////// *start_data ; スタートデータセット n=0 sdat(n)=lx : n+ ; スクロール表示位置 sdat(n)=scf : n+ ; スクロールフラグ sdat(n)=dbpl : n+ ; 最大戦力プレイヤー sdat(n)=plb : n+ ; プレイヤー数 sdat(n)=0 : n+ ; 現在の順番 sdat(n)=mb : n+ ; 全HEX数 sdat(n)=ldb : n+ ; 国数 repeat mb : sdat(n)=map(cnt) : n+ : loop ; マップ repeat mb : sdat(n)=hwd(cnt) : n+ : loop ; HEXの外周枠情報 repeat lddb : sdat(n)=ld(cnt) : n+ : loop ; 領土 repeat (ldb+1)*ldlb+1 : sdat(n)=ldl(cnt) : n+ : loop ; 隣接国 repeat ldb+1 : sdat(n)=lpd(cnt) : n+ : loop ; 領土のプレイヤー repeat ldb+1 : sdat(n)=ldcd(cnt) : n+ : loop ; ダイス数 repeat ldb+1 : sdat(n)=ldcu(cnt) : n+ : loop ; キャラクターユニット repeat ldb+1 : sdat(n)=dpd(cnt) : n+ : loop ; 国のダイス表示順番 repeat ldb+1 : sdat(n)=lcx(cnt) : n+ : loop ; 中間座標x repeat ldb+1 : sdat(n)=lcy(cnt) : n+ : loop ; 中間座標y repeat ldb+1 : sdat(n)=ldhx1(cnt): n+ : loop ; 最左ライン repeat ldb+1 : sdat(n)=ldhx2(cnt): n+ : loop ; 最右ライン repeat ldb+1 : sdat(n)=ldhy1(cnt): n+ : loop ; 最上ライン repeat ldb+1 : sdat(n)=ldhy2(cnt): n+ : loop ; 最下ライン repeat plb+1 : sdat(n)=pfd(cnt) : n+ : loop ; プレイヤー操作 repeat plb+1 : sdat(n)=pld(cnt) : n+ : loop ; プレイヤーの領土数 repeat plb+1 : sdat(n)=pdca(cnt) : n+ : loop ; 増ダイス数 repeat plb+1 : sdat(n)=pad(cnt) : n+ : loop ; 行動順 repeat plb+1 : sdat(n)=dp(cnt) : n+ : loop ; 全ダイス戦力数 repeat plb+1 : sdat(n)=dcpn(cnt) : n+ : loop ; 表示ダイスグラNo. repeat plb+1 : sdat(n)=pdsd(cnt) : n+ : loop ; ストックダイス数 repeat 21 : sdat(n)=clpn(cnt) : n+ : loop ; カラー return *start_data_load ; スタートデータロード n=0 lx=sdat(n) : n+ ; スクロール表示位置 scf=sdat(n) : n+ ; スクロールフラグ dbpl=sdat(n) : n+ ; 最大戦力プレイヤー plb=sdat(n) : n+ ; プレイヤー数 padn=0 : n+ ; 現在の順番 mb=sdat(n) : n+ ; 全HEX数 ldb=sdat(n) : n+ ; 国数 repeat mb : map(cnt)=sdat(n) : n+ : loop ; マップ repeat mb : hwd(cnt)=sdat(n) : n+ : loop ; HEXの外周枠情報 repeat lddb : ld(cnt)=sdat(n) : n+ : loop ; 領土 repeat (ldb+1)*ldlb+1 : ldl(cnt)=sdat(n) : n+ : loop ; 隣接国 repeat ldb+1 : lpd(cnt)=sdat(n) : n+ : loop ; 領土のプレイヤー repeat ldb+1 : ldcd(cnt)=sdat(n) : n+ : loop ; ダイス数 repeat ldb+1 : ldcu(cnt)=sdat(n) : n+ : loop ; キャラクターユニット repeat ldb+1 : dpd(cnt)=sdat(n) : n+ : loop ; 国のダイス表示順番 repeat ldb+1 : lcx(cnt)=sdat(n) : n+ : loop ; 中間座標x repeat ldb+1 : lcy(cnt)=sdat(n) : n+ : loop ; 中間座標y repeat ldb+1 : ldhx1(cnt)=sdat(n): n+ : loop ; 最左ライン repeat ldb+1 : ldhx2(cnt)=sdat(n): n+ : loop ; 最右ライン repeat ldb+1 : ldhy1(cnt)=sdat(n): n+ : loop ; 最上ライン repeat ldb+1 : ldhy2(cnt)=sdat(n): n+ : loop ; 最下ライン repeat plb+1 : pfd(cnt)=sdat(n) : n+ : loop ; プレイヤー操作 repeat plb+1 : pld(cnt)=sdat(n) : n+ : loop ; プレイヤーの領土数 repeat plb+1 : pdca(cnt)=sdat(n) : n+ : loop ; 増ダイス数 repeat plb+1 : pad(cnt)=sdat(n) : n+ : loop ; 行動順 repeat plb+1 : dp(cnt)=sdat(n) : n+ : loop ; 全ダイス戦力数 repeat plb+1 : dcpn(cnt)=sdat(n) : n+ : loop ; 表示ダイスグラNo. repeat plb+1 : pdsd(cnt)=sdat(n) : n+ : loop ; ストックダイス数 repeat 21 : clpn(cnt)=sdat(n) : n+ : loop ; カラー return |
今問題なのは、これをどのタイミングで実行するかです。
|
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 |
*game_main padn=0 ; 現在の順番 repeat plb if padn2>0 : padn=padn2 : padn2=0 ; ロード復帰 pn1=pad(padn) padn+ : if padn=plb : 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 msf=0 : tarn_endf=1 : swbreak if mainf=9 : tarn_endf=1 : swbreak if loadf=1 { gosub *start_data_load ; スタートデータロード tarn_endf=1 : swbreak } swbreak case 2 ; CPU gosub *strategy ;if msf=0 : tarn_endf=1 : swbreak ;if tarn_endf=0 : swbreak gosub *tarn_end if te_kf=3 : save sl_keyn2 ; セーブ if loadf=1 { gosub *start_data_load ; スタートデータロード tarn_endf=1 } swbreak swend wend if mainf!5 : break loop padn2=0 return |
見ての通りです。
CPUとプレイヤーで読み書きのタイミングが違います。
そして、通常のデータセーブとリスタートでも、読み書きとゲーム復帰のタイミングが違ってきます。
この辺が、まだ完全ではありません、ゲームからオプションに入って、それぞれの処理をして、それぞれの順番の途中から復帰する、これらが結構ややこしい。
少し抜本的に整理しようかと考えてます、元のメインルーチンはこんな感じなので
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
while ;---------- メインルーチン ---------- switch mainf case 0 : gosub *initialize : swbreak ; 初期 ; case 1 : gosub *opening : mainf=2 : swbreak ; オープニング ; case 2 : gosub *titl : swbreak ; タイトル case 3 : gosub *game_start : swbreak ; ゲーム開始 ;case 4 : gosub *tutorial ; swbreak ; チュートリアル case 5 : gosub *game_main : swbreak ; ゲームメイン ;case 6 : gosub *option : swbreak ; オプション ;case 8 : gosub *game_over : mainf=2 : swbreak ; ゲームオーバー case 9 : gosub *game_clear : swbreak ; ゲームクリア ;case 10 : gosub *ending : mainf=2 : swbreak ; エンディング swend |
この辺にオプション画面を差し込んで、ゲームルーチン（*game_main）から抜けて処理してから、もう一度ゲームルーチンに戻る、という形にすればスッキリするはず。
一応 6番に予約してはありましたけどね。
どうしても増築工法、建て増しソースでスパゲティソースみたいな事になってます。