@sin_battle_start
;21.txtと共通する。
if ste[12]==1 then gosub @sin_b_001_a:goto @sin_b_select

;-------------------------------------------------------
@sin_b_001_a
enemy[-1]="盗賊"
enemy[-2]="enemy/001.png"
enemy[1]=40	;体力
enemy[2]=10	;攻撃力
enemy[3]=5	;経験値
enemy[4]=10	;スー
enemy[5]=20	;入手アイテム
return
;-------------------------------------------------------










@sin_b_select
spset "title",10
gosub @sin_textw_btn_kakusi	;ボタン非表示

text_name[2]=enemy[-1]
＃敵の名前＃が現れた！
spset "e",1001
sp "e:enemy",{name=enemy[-2],x=0,y=0,z=10}


@sin_b_select_lp
;■文字消す（シナリオの途中とかでね）
spdelete "window:nametext" ;■名前のタグ消す
spfill "window:text",0,#00000000:print #C	;★バグというか。真ん中に数値入れないとダメ

gosub @sin_ste	;ステータス

;98.txtの改変選択肢呼出
;来る前に設定しておく選択肢
sel_x=50
sel_y=410+40+70
sin_ssl_kazu=3	;選択肢の数
;sin_sei[1]〜	;文字選択肢の内容
;sin_return[1]〜	;戻り先指定
sin_sei[1]="物理攻撃　　〜魔力を１消費して攻撃します"
sin_sei[2]="魔力開放　　〜魔力を１０消費して大ダメージを与えます"
sin_sei[3]="魔力チャージ〜魔力を回復します"
sin_return[1]="@sin_b_1a"
sin_return[2]="@sin_b_2a"
sin_return[3]="@sin_b_3a"
gosub @sin_select_001	;選択肢呼び出し
goto @sin_b_select_lp	;ループ


@sin_b_1a
	if ste[3]==0 then
	魔剣を振り回せない！
	回復に集中します。
	ste[3]=ste[3]+10
	if ste[3]>ste[4] then ste[3]=ste[4]
	魔力が１０回復した！
	;敵のターンへ
	goto @sin_b_1b
	endif
ste[3]=ste[3]-1
RANDOMSEED 0
%r=RANDOM() mod ste[1]	;ランダム
%r=%r+1
text_name[3]=str(ste[5]+%r)
sin_b_da=ste[5]+%r
enemy[1]=enemy[1]-sin_b_da
＃敵の名前＃に＃ダメージ＃ダメージを与えた！
if enemy[1]<=0 then goto @sin_win	;勝利！
;敵のターンへ
goto @sin_b_1b

@sin_b_2a
	if ste[3]<10 then
	魔力が足りない！
	回復に集中します。
	ste[3]=ste[3]+10
	if ste[3]>ste[4] then ste[3]=ste[4]
	魔力が１０回復した！
	;敵のターンへ
	goto @sin_b_1b
	endif
ste[3]=ste[3]-10
RANDOMSEED 0
%r=RANDOM() mod ste[1]	;ランダム
%r=%r+1
%r=%r+ste[5]*2
text_name[3]=str(ste[5]+%r)
sin_b_da=ste[5]+%r
enemy[1]=enemy[1]-sin_b_da
魔力を開放して、＃敵の名前＃に＃ダメージ＃ダメージを与えた！
if enemy[1]<=0 then goto @sin_win	;勝利！
;敵のターンへ
goto @sin_b_1b

@sin_b_3a
	回復に集中します。
	ste[3]=ste[4]
	魔力が全回復した！
	;敵のターンへ
	goto @sin_b_1b



@sin_b_1b
;敵の攻撃
RANDOMSEED 0
%r=RANDOM() mod enemy[1]	;ランダム
%r=%r+1
text_name[3]=str(enemy[2]+%r)
sin_b_da=enemy[2]+%r
ste[1]=ste[1]-sin_b_da
＃ダメージ＃ダメージを受けた！
if ste[1]<=0 then goto @sin_lose	;敗北！
;味方のターンへ
goto @sin_b_select_lp



