戦国大名5

メインルーチン、調略フェイズの流れ。

@PHASE1

PRINT T;"年目”

PRINT "長宗我部家 調略フェーズ

PRINT NAM$; "さま、ご命令を"

PRINT "1)各国の情報をみる 2) 調略をおこなう 3)次へすすむ"

A=0:INPUT A

IF A==1 THEN GOSUB @KAKKOKU

IF A==2 THEN GOSUB @CHORYAKU

IF A==3 THEN GOTO @PHASE2

GOTO @PHASE1

@PHASE2

調略サブルーチン。各国にどれだけ金を掛けているか表示し、持ち金を表示。各国に掛ける金額を入力。持ち金を超えた場合は持ち金と同額になる。4か国以外には反応しない。

実行画面。まず土佐の情報を見る。

土佐に金5を掛ける。

もう一度調略画面を開くと土佐には金5が掛けられている。

4か国以外の国に金を掛けても反応しないことを確認。

どうやら正常に作動しているようだ。調略フェイズまでが出来た。