;----------------
アイテム合成用スクリプト（装備品）・アイテムからも使う
;---------------
;278行目;★アイテムだがステータスものだったらこっちで消費させる・ゲームによって変数は変動する。


@sin_gosei_soubi
sin_g_ok=0
spset "sin_gousei",10
;■背景
;	sp "sin_gousei:b01",{name="sin_system\sin_kakuninn.png",x=0,y=0,z=1}
;	sp "sin_gousei:b01",{name="*960,440,#FF999999",x=0,y=100,z=1,a=200}
	sp "sin_gousei:b01",{name="*1280,440,#FF999999",x=0,y=100,z=1,a=200}
;■必要アイテム入れる
;sing[0]=使う数(1以上)
;sing[1][1]=必要アイテム名 sing[1][2]=必要個数 sing[1][3]=必要アイテムのID sing[1][4]=アイテムか装備品か決める sing[1][5] アイテムか装備品か個別化する
;sing[2][1]=必要アイテム名
;sing[3][1]=必要アイテム名
;sing[4][1]=必要アイテム名
;sing[5][1]=必要アイテム名
;sing[6][1]=必要アイテム名
;sing[7][1]=必要アイテム名
;sing[8][1]=必要アイテム名
;sing[9][1]=必要アイテム名
;sing[10][1]=必要アイテム名
;sing[11][1]=必要アイテム名 sing[11][2]=できる個数 sing[11][3]=必要アイテムのID

;■アイテムの文字化
;for %0=1 to 11

if sing[0]==0 then goto @sin_item_setu		;■個数


for %0=1 to sing[0]
	%sing[%0][2]=STR(sing[%0][2])	;必要個数文字化
next
for %0=0 to 2000
;	%soubi[%0]=STR(soubi[%0])
next
for %0=0 to 2000
	%item[%0]=STR(item[%0])
;	%item[-1]=STR(item[-1])
;	%item[-2]=STR(item[-2])
next

;■魔力結晶
;soubi[-1]=ste[16]	
;%soubi[-1]=STR(soubi[-1])
;■ＳＰ
;item[-2]=ste[20]	
;%item[-2]=STR(item[-2])



;■装備品のみで作る場合
;if soubigo==1 then
;				   setu=sing[1][1]+"×"+%sing[1][2]+"　（"+%soubi[sing[1][3]]+"）\n"
;if sing[0]>=2 then setu=setu+sing[2][1]+"×"+%sing[2][2]+"　（"+%soubi[sing[2][3]]+"）\n"
;if sing[0]>=3 then setu=setu+sing[3][1]+"×"+%sing[3][2]+"　（"+%soubi[sing[3][3]]+"）\n"
;if sing[0]>=4 then setu=setu+sing[4][1]+"×"+%sing[4][2]+"　（"+%soubi[sing[4][3]]+"）\n"
;if sing[0]>=5 then setu=setu+sing[5][1]+"×"+%sing[5][2]+"　（"+%soubi[sing[5][3]]+"）\n"
;if sing[0]>=6 then setu=setu+sing[6][1]+"×"+%sing[6][2]+"　（"+%soubi[sing[6][3]]+"）\n"
;if sing[0]>=7 then setu=setu+sing[7][1]+"×"+%sing[7][2]+"　（"+%soubi[sing[7][3]]+"）\n"
;if sing[0]>=8 then setu=setu+sing[8][1]+"×"+%sing[8][2]+"　（"+%soubi[sing[8][3]]+"）\n"
;if sing[0]>=9 then setu=setu+sing[9][1]+"×"+%sing[9][2]+"　（"+%soubi[sing[9][3]]+"）\n"
;if sing[0]>=10 then setu=setu+sing[10][1]+"×"+%sing[10][2]+"　（"+%soubi[sing[10][3]]+"）\n"
;endif

;■アイテム混じりで作る場合
;if soubigo==0 then

if sing[1][4]==1 then sing[1][5]=1:setu=sing[1][1]+"×"+%sing[1][2]+"　（"+%item[sing[1][3]]+"）\n"
if sing[1][4]==2 then sing[1][5]=2:setu=sing[1][1]+"×"+%sing[1][2]+"　（"+%soubi[sing[1][3]]+"）\n"

if sing[1][4]==1 and sing[0]>=2 then sing[2][5]=1:setu=setu+sing[2][1]+"×"+%sing[2][2]+"　（"+%item[sing[2][3]]+"）\n"
if sing[1][4]==2 and sing[0]>=2 then sing[2][5]=2:setu=setu+sing[2][1]+"×"+%sing[2][2]+"　（"+%soubi[sing[2][3]]+"）\n"
;okbox str(item[-2]),"ＳＰ"
if sing[1][4]==1 and sing[0]>=3 then sing[3][5]=1:setu=setu+sing[3][1]+"×"+%sing[3][2]+"　（"+%item[sing[3][3]]+"）\n"
if sing[1][4]==2 and sing[0]>=3 then sing[3][5]=2:setu=setu+sing[3][1]+"×"+%sing[3][2]+"　（"+%soubi[sing[3][3]]+"）\n"
if sing[1][4]==1 and sing[0]>=4 then sing[4][5]=1:setu=setu+sing[4][1]+"×"+%sing[4][2]+"　（"+%item[sing[4][3]]+"）\n"
if sing[1][4]==2 and sing[0]>=4 then sing[4][5]=2:setu=setu+sing[4][1]+"×"+%sing[4][2]+"　（"+%soubi[sing[4][3]]+"）\n"
if sing[1][4]==1 and sing[0]>=5 then sing[5][5]=1:setu=setu+sing[5][1]+"×"+%sing[5][2]+"　（"+%item[sing[5][3]]+"）\n"
if sing[1][4]==2 and sing[0]>=5 then sing[5][5]=2:setu=setu+sing[5][1]+"×"+%sing[5][2]+"　（"+%soubi[sing[5][3]]+"）\n"
if sing[1][4]==1 and sing[0]>=6 then sing[6][5]=1:setu=setu+sing[6][1]+"×"+%sing[6][2]+"　（"+%item[sing[6][3]]+"）\n"
if sing[1][4]==2 and sing[0]>=6 then sing[6][5]=2:setu=setu+sing[6][1]+"×"+%sing[6][2]+"　（"+%soubi[sing[6][3]]+"）\n"
if sing[1][4]==1 and sing[0]>=7 then sing[7][5]=1:setu=setu+sing[7][1]+"×"+%sing[7][2]+"　（"+%item[sing[7][3]]+"）\n"
if sing[1][4]==2 and sing[0]>=7 then sing[7][5]=2:setu=setu+sing[7][1]+"×"+%sing[7][2]+"　（"+%soubi[sing[7][3]]+"）\n"
if sing[1][4]==1 and sing[0]>=8 then sing[8][5]=1:setu=setu+sing[8][1]+"×"+%sing[8][2]+"　（"+%item[sing[8][3]]+"）\n"
if sing[1][4]==2 and sing[0]>=8 then sing[8][5]=2:setu=setu+sing[8][1]+"×"+%sing[8][2]+"　（"+%soubi[sing[8][3]]+"）\n"
if sing[1][4]==1 and sing[0]>=9 then sing[9][5]=1:setu=setu+sing[9][1]+"×"+%sing[9][2]+"　（"+%item[sing[9][3]]+"）\n"
if sing[1][4]==2 and sing[0]>=9 then sing[9][5]=2:setu=setu+sing[9][1]+"×"+%sing[9][2]+"　（"+%soubi[sing[9][3]]+"）\n"
if sing[1][4]==1 and sing[0]>=10 then sing[10][5]=1:setu=setu+sing[10][1]+"×"+%sing[10][2]+"　（"+%item[sing[10][3]]+"）\n"
if sing[1][4]==2 and sing[0]>=10 then sing[10][5]=2:setu=setu+sing[10][1]+"×"+%sing[10][2]+"　（"+%soubi[sing[10][3]]+"）\n"
;endif

;okbox "2","1" ;★20190428二回通ってる……

;■ただのアイテムの時
@sin_item_setu
if sing[0]==0 then setu=item[sing[101]][0]+"\n"
;okbox str(item[sing[101]][0]),""

@sin_gousei_setumei_main

;説明文

setu=setu+"\n"+sing[100]+"\n"

;	sp "sin_gousei:setu01",{name="*800,600,#00000000",x=0,y=0,z=0}
	sp "sin_gousei:setu01",{name="*1280,600,#00000000",x=0,y=0,z=0}
;	spformat "sin_gousei:setu01",0,setu,{font="text",x=100,y=190,w=20,h=15},{font="text"}	
	spformat "sin_gousei:setu01",0,setu,{font="text",x=100,y=140,w=20,h=15},{font="text"}	
	print #c

;■もし完成品のアイテムが999個なら、かえる
;if soubi[sing[11][3]]==999 then setumei="完成品のアイテムがＭＡＸなので作れません！":gosub @sin_1hyouzi_01:spsetdelete "sin_gousei":return

;■ただのアイテムの時、帰る
if sing[0]==0 then goto @sin_return

;■アイテムがあれば合成、なければ帰る。
;■20181104アイテムか装備か、それぞれで判定する
if sing[0]==1 then
	if sing[1][4]==2 then
	if soubi[sing[1][3]]>=sing[1][2] then	;■装備１つ
		gosub @sin_sel_yesno
		goto @sin_gosei_soubi_end
		else
		sp "sin_gousei:setu2",{name="?左クリックで戻る,text",x=1280-40*8,y=640-50*3,z=0}:print #c
		click
		spsetdelete "sin_gousei"
		return
	endif
	endif
	if sing[1][4]==1 then
	if item[sing[1][3]]>=sing[1][2] then	;■アイテム１つ

		gosub @sin_sel_yesno
		goto @sin_gosei_soubi_end
		else

		sp "sin_gousei:setu2",{name="?左クリックで戻る,text",x=1280-40*8,y=640-50*3,z=0}:print #c
		click
		spsetdelete "sin_gousei"
		return
	endif
	endif
endif

;■２つ以上
%11=0	;■素材が揃ってたら＋１していく。そして、sing[0]と同じならイエスノー出す。
if sing[0]>=2 then
	;■ループで。
	for %10=1 to sing[0]	;■必要アイテム個数分ループする
		if sing[1][4]==1 then 
			if item[sing[%10][3]]>=sing[%10][2] then %11=%11+1
;okbox str(%11),str(sing[0])
;okbox str(%10),str(sing[0])
		endif
		if sing[1][4]==2 then 
			if soubi[sing[%10][3]]>=sing[%10][2] then %11=%11+1
		endif
	;■ループ続く
	next
endif


if %11==sing[0] then goto @sin_gosei_soubi_20181104	;■素材そろってるので飛ぶ。
@sin_return
		;■それ以外はクリックで戻る
		sp "sin_gousei:setu2",{name="?左クリックで戻る,text",x=960-40*8,y=640-50*3,z=0}:print #c
		click
		spsetdelete "sin_gousei"
		return
endif
;■全素材そろってるときだけ選択肢出す
@sin_gosei_soubi_20181104
		gosub @sin_sel_yesno
		goto @sin_gosei_soubi_end


	endif



;okbox "kokotooru","デバッグ"	;★デバッグです
@sin_gosei_soubi_end

	if yesno==0 then
	spsetdelete "sin_gousei"
	return	;とりやめ
	endif

;■作る時の処理
	;■消費アイテム
;soubi[sing[1][3]]=soubi[sing[1][3]]-sing[1][2]
;if sing[0]>=2 then soubi[sing[2][3]]=soubi[sing[2][3]]-sing[2][2]
;if sing[0]>=3 then soubi[sing[3][3]]=soubi[sing[3][3]]-sing[3][2]
;if sing[0]>=4 then soubi[sing[4][3]]=soubi[sing[4][3]]-sing[4][2]
;if sing[0]>=5 then soubi[sing[5][3]]=soubi[sing[5][3]]-sing[5][2]
;if sing[0]>=6 then soubi[sing[6][3]]=soubi[sing[6][3]]-sing[6][2]
;if sing[0]>=7 then soubi[sing[7][3]]=soubi[sing[7][3]]-sing[7][2]
;if sing[0]>=8 then soubi[sing[8][3]]=soubi[sing[8][3]]-sing[8][2]
;if sing[0]>=9 then soubi[sing[9][3]]=soubi[sing[9][3]]-sing[9][2]
;if sing[0]>=10 then soubi[sing[10][3]]=soubi[sing[10][3]]-sing[10][2]

for %9=1 to sing[0]
;okbox str(sing[%9][5]),"２で装備品"
	;★アイテムだがステータスものだったらこっち（分岐）・ゲームによって変動する。
	if sing[%9][5]==1 and sing[%9][3]<0 then
		if sing[%9][3]==-2 then ste[20]=ste[20]-sing[%9][2]
		if sing[%9][3]==-1 then ste[21]=ste[21]-sing[%9][2]
	endif
	;■装備品
;	if sing[%9][5]==2 then soubi[sing[%9][3]]=soubi[sing[%9][3]]-sing[%9][2]
	;■アイテム
	if sing[%9][5]==1 then item[sing[%9][3]]=item[sing[%9][3]]-sing[%9][2]
next

;■魔力結晶　消費分減らす処理
;ste[16]=soubi[-1]	
;%soubi[-1]=STR(soubi[-1])
;■
;ste[20]=ste[20]-sing[3][2]
;%item[-2]=STR(item[-2])

	;■できるアイテム（１つだけ）
;	soubi[sing[11][3]]=soubi[sing[11][3]]+sing[11][2]
	item[sing[11][3]]=item[sing[11][3]]+sing[11][2]
	sin_g_ok=1
;■戻る際の処理スプライトセット消す
	spsetdelete "sin_gousei"
	return	;■戻る
