@cin_b_syokika_000
;きちゅれあさんっぽい、文字だけ１対１のＲＰＧ。
;選択肢によって勝てたり負けたりする。
;勝つとレベルアップする。そして性好感度も上がる。
;負けると犯される。

;エネミーの出現設定
if ste[12]==1 and tane==0 then gosub @cin_enemy_01_001:goto @sin_battle_syoki_24	;gosub だけ変える

;エネミーの設定---------------------------------------------
@cin_enemy_01_001
enemy[-1]="名前"
enemy[-2]="画像ファイル名"	;"enemy/001.png"など
enemy[1]=10		;体力
enemy[2]=3		;攻撃力
enemy[3]=2		;経験値
enemy[4]=5		;ＳＰ
enemy[5]=1		;アイテムID
enemy[100]=1		;敵ID
return
;----------------------------------------------------------

@sin_battle_syoki_24
;敵。
tankyo=10	;戦闘時の距離。１０から
%m=10	;消費魔力（距離で変動）
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_battle_24_lp
;■文字消す（シナリオの途中とかでね）
spdelete "window:nametext" ;■名前のタグ消す
spfill "window:text",0,#00000000:print #C	;★バグというか。真ん中に数値入れないとダメ
;敵との距離
%kyori=STR(tankyo):sp "e:kyo",{name="?敵との距離　"+%kyori+",text_a",x=50,y=50,z=0}:print #C

gosub @sin_ste	;ステータス



;98.txtの改変選択肢呼出
;来る前に設定しておく選択肢
sel_x=50
sel_y=410+40+70
sin_ssl_kazu=4	;選択肢の数
;sin_sei[1]〜	;文字選択肢の内容
;sin_return[1]〜	;戻り先指定
for %0=1 to 6
sin_sei[%0]=""
next
sin_sei[1]="距離を詰める〜攻撃せずに、敵に近づく"
sin_sei[2]="魔法攻撃　　〜距離によって魔力消費が変わります"
sin_sei[3]="防御　　　　〜魔力を回復します"
;if item[22]==1 and item[23]==1 then sin_sei[4]="必殺技　　　〜二人で攻撃します"
sin_sei[4]="敗北する　　〜わざと負けてＳＰを獲得します"
sin_return[1]="@sin_b_1a_03"
sin_return[2]="@sin_b_2a_03"
sin_return[3]="@sin_b_3a_03"
:sin_return[4]="@sin_b_4a_03"	;協力技のときのみ
sin_return[4]="@sin_b_4b_03"	;
gosub @sin_select_001	;選択肢呼び出し

;戦闘はどちらか。最初に攻撃総合とか分岐させておく。

@sin_b_1a_03
;もし距離０なら選択肢に戻る
if tankyo==0 then
	これ以上近づく必要はない！
	goto @sin_battle_24_lp
endif

;共通。１０から。
tankyo=tankyo-2
距離を２つめた！
if tankyo<0 then tankyo=0
endif

;文字変換
%kyori=STR(tankyo):sp "e:kyo",{name="?敵との距離　"+%kyori+",text_a",x=50,y=50,z=0}:print #C

;敵のターンへ
goto @sin_battke_enemy_02

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@sin_ba_03_ma10
;魔力がなくなりました！
魔力をためました。
;if sin_02_chr==1 then ste[32]=ste[32]+10
;if sin_02_chr==2 then ste[37]=ste[37]+10
;if ste[32]>ste[33] then ste[32]=ste[33]
;if ste[37]>ste[38] then ste[37]=ste[38]
ste[3]=ste[3]+10
if ste[3]>ste[4] then ste[3]=ste[4]
;敵のターン
goto @sin_battke_enemy_02
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@sin_b_2a_03
;■魔法攻撃する
;もし魔力が足りなければ攻撃できない
if ste[3]>10 then
	;魔力がないので、不発。
	魔力が不足している！
	goto @sin_ba_03_ma10	;魔力回復へ。
endif
if ste[3]>5 then
	;魔力がないので、不発。
	魔力が不足している！
	goto @sin_ba_03_ma10	;魔力回復へ。
endif
if ste[3]>0 then
	;魔力がないので、不発。
	魔力が不足している！
	goto @sin_ba_03_ma10	;魔力回復へ。
endif
if tankyo==10 then ste[3]=ste[3]-10:goto @sin_b_2a_03a
if tankyo>=5 then ste[3]=ste[3]-5:goto @sin_b_2a_03a
if tankyo>=0 then ste[3]=ste[3]-1:goto @sin_b_2a_03a
@sin_b_2a_03a

;倒したあと、能力アップするかＳＰ取得のために性行為するか選べる。
%k=ste[1]+ste[3]	;現在の体力と攻撃力でダメージ固定。
enemy[1]=enemy[1]-%k	;敵の体力を攻撃力で引く
;もし敵の体力がマイナスなら勝利。
text_name[3]=str(%k)	;ダメージ文字化
;揺らす。
quake 300,3,1	;時間、階数、サイズ
;攻撃音★
seplay 1,"rpg_sozai/se/player_a_ma.ogg"	;魔法攻撃
＃敵の名前＃に＃ダメージ＃ダメージを与えた！
;敵を倒すと能力アップか、性行為するか聞く。倒せなかったら敵のターン。
if enemy[-1]<=0 then goto @sin_b_24_03_winsel
goto @sin_enemy_dame_03a

@sin_b_3a_03
;魔力をためる――。
goto @sin_ba_03_ma10

@sin_b_4a_03
戦意を喪失した――。
goto @sin_b_24_03_losesel	;■敗北を受け入れる。ＳＰ入手、能力ダウン

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@sin_enemy_dame_03a
;敵のターン。どうするかでダメージが変わる。

sel_x=50
sel_y=410+40+70
sin_ssl_kazu=4	;選択肢の数
;sin_sei[1]〜	;文字選択肢の内容
;sin_return[1]〜	;戻り先指定
for %0=1 to 6
sin_sei[%0]=""
next
sin_sei[1]="防御する　　〜ダメージが軽減されます"
sin_sei[2]="回避する　　〜距離によってダメージ軽減"
sin_sei[3]="反撃する　　〜ダメージを受けるが攻撃します"
;if item[22]==1 and item[23]==1 then sin_sei[4]="必殺技　　　〜二人で攻撃します"
sin_sei[4]="敗北する　　〜わざと負けてＳＰを獲得します"
sin_return[1]="@sin_b_1a_03ene"
sin_return[2]="@sin_b_2a_03ene"
sin_return[3]="@sin_b_3a_03ene"
:sin_return[4]="@sin_b_4a_03"	;協力技のときのみ
sin_return[4]="@sin_b_4b_03"	;
gosub @sin_select_001	;選択肢呼び出し

@sin_b_1a_03ene
;防御する
%k=enemy[1]+enemy[2]	;敵の攻撃
ste[1]=ste[1]-%k	;自分の体力を攻撃力で引く
text_name[3]=str(%k)	;ダメージ文字化
;揺らす。
quake 300,3,1	;時間、階数、サイズ
;攻撃音★
seplay 1,"rpg_sozai/se/player_a_ma.ogg"	;魔法攻撃
＃敵の名前＃から＃ダメージ＃ダメージを受けた！
;敵を倒すと能力アップか、性行為するか聞く。倒せなかったら敵のターン。
if ste[1]<=0 then goto @sin_b_24_03_losesel
goto @sin_battle_24_lp

@sin_b_2a_03ene
;回避する
%k=enemy[1]+enemy[2]	;敵の攻撃
;距離でダメージ減る。
if tankyo==10 then ste[1]=ste[1]-%k
if tankyo>=5 then %k=%k-ste[3]+ste[1];ste[1]=ste[1]-%k
if tankyo>=0 then ste[1]=ste[1]-1
;ste[1]=ste[1]-%k	;自分の体力を攻撃力で引く
if %k<0 then %k=1	;もしダメージが０以下なら１に。
text_name[3]=str(%k)	;ダメージ文字化
;揺らす。
quake 300,3,1	;時間、階数、サイズ
;攻撃音★
seplay 1,"rpg_sozai/se/player_a_ma.ogg"	;魔法攻撃
＃敵の名前＃から＃ダメージ＃ダメージを受けた！
;敵を倒すと能力アップか、性行為するか聞く。倒せなかったら敵のターン。
if ste[1]<=0 then goto @sin_b_24_03_losesel
goto @sin_battle_24_lp

@sin_b_3a_03ene
;反撃する。ダメージ受けてから攻撃なのでけっこうあれ。
%k=enemy[1]+enemy[2]	;敵の攻撃
ste[1]=ste[1]-%k	;自分の体力を攻撃力で引く
text_name[3]=str(%k)	;ダメージ文字化
;揺らす。
quake 300,3,1	;時間、階数、サイズ
;攻撃音★
seplay 1,"rpg_sozai/se/player_a_ma.ogg"	;魔法攻撃
＃敵の名前＃から＃ダメージ＃ダメージを受けた！
;敵を倒すと能力アップか、性行為するか聞く。倒せなかったら敵のターン。
if ste[1]<=0 then goto @sin_b_24_03_losesel
;反撃は魔力いらない。
%k=ste[1]+ste[3]
;倒したあと、能力アップするかＳＰ取得のために性行為するか選べる。
%k=ste[1]+ste[3]	;現在の体力と攻撃力でダメージ固定。
enemy[1]=enemy[1]-%k	;敵の体力を攻撃力で引く
;もし敵の体力がマイナスなら勝利。
text_name[3]=str(%k)	;ダメージ文字化
;揺らす。
quake 300,3,1	;時間、階数、サイズ
;攻撃音★
seplay 1,"rpg_sozai/se/player_a_ma.ogg"	;魔法攻撃
＃敵の名前＃に＃ダメージ＃ダメージを与えた！
;敵を倒すと能力アップか、性行為するか聞く。倒せなかったら敵のターン。
if enemy[-1]<=0 then goto @sin_b_24_03_winsel

goto @sin_battle_24_lp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;勝った場合。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@sin_b_24_03_winsel
＃敵の名前＃をどうしますか？
;98.txtの改変選択肢呼出
;来る前に設定しておく選択肢
sel_x=50
sel_y=410+40+70
sin_ssl_kazu=2	;選択肢の数
;sin_sei[1]〜	;文字選択肢の内容
;sin_return[1]〜	;戻り先指定
for %0=1 to 6
sin_sei[%0]=""
next
sin_sei[1]="倒す　　　　〜能力値全アップ"
sin_sei[2]="性行為する　〜ＳＰを入手します"
sin_return[1]="@sin_b_1a_03win1"
sin_return[2]="@sin_b_2a_03win2"
gosub @sin_select_001	;選択肢呼び出し
@sin_b_1a_03win1
;■倒す
全能力が上がった！
ste[2]=ste[2]+1
ste[4]=ste[4]+1
ste[5]=ste[5]+1
gosub @sin_ste	;ステータス
全能力値が１アップした！
goto @cin_danzyon_40	;■探索に戻る

;■ＳＰ入手
ste[20]=ste[20]+enemy[4]
text_name[3]=str(enemy[4])
＃敵の名前＃から＃ダメージ＃ＳＰを奪った！
if enemy[100]==1 then gosub @sin_story_004:goto @sin_s_001	;■製品版は８１にストーリー突っ込んで、戻る。体験版４つ

goto @cin_danzyon_40	;■探索に戻る

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;負けた場合。
@sin_b_24_03_losesel
全能力が下がった！
ste[2]=ste[2]-1
ste[4]=ste[4]-1
ste[5]=ste[5]-1
if ste[2]>50 then
	これ以上は下がらない……。
endif
if ste[4]>20 then
	これ以上は下がらない……。
endif
if ste[5]>5 then
	これ以上は下がらない……。
endif
;★以下敵によって変わる。SPゲットします。はい。仮
ste[20]=ste[20]+enemy[5]
if enemy[100]==1 then gosub @sin_story_003:goto @sin_s_001	;■製品版は８１にストーリー突っ込んで、戻る。体験版４つ


