;----------------
ACepXNvgiijEACeg
;---------------
;278s;ACeXe[^X̂炱ŏEQ[ɂĕϐ͕ϓB


@sin_gosei_soubi
sin_g_ok=0
spset "sin_gousei",10
;wi
;	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}
;KvACe
;sing[0]=g(1ȏ)
;sing[1][1]=KvACe sing[1][2]=Kv sing[1][3]=KvACeID sing[1][4]=ACei߂ sing[1][5] ACeiʉ
;sing[2][1]=KvACe
;sing[3][1]=KvACe
;sing[4][1]=KvACe
;sing[5][1]=KvACe
;sing[6][1]=KvACe
;sing[7][1]=KvACe
;sing[8][1]=KvACe
;sing[9][1]=KvACe
;sing[10][1]=KvACe
;sing[11][1]=KvACe sing[11][2]=ł sing[11][3]=KvACeID

;ACe̕
;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])	;Kv
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])
;ro
;item[-2]=ste[20]	
;%item[-2]=STR(item[-2])



;î݂ōꍇ
;if soubigo==1 then
;				   setu=sing[1][1]+"~"+%sing[1][2]+"@i"+%soubi[sing[1][3]]+"j\n"
;if sing[0]>=2 then setu=setu+sing[2][1]+"~"+%sing[2][2]+"@i"+%soubi[sing[2][3]]+"j\n"
;if sing[0]>=3 then setu=setu+sing[3][1]+"~"+%sing[3][2]+"@i"+%soubi[sing[3][3]]+"j\n"
;if sing[0]>=4 then setu=setu+sing[4][1]+"~"+%sing[4][2]+"@i"+%soubi[sing[4][3]]+"j\n"
;if sing[0]>=5 then setu=setu+sing[5][1]+"~"+%sing[5][2]+"@i"+%soubi[sing[5][3]]+"j\n"
;if sing[0]>=6 then setu=setu+sing[6][1]+"~"+%sing[6][2]+"@i"+%soubi[sing[6][3]]+"j\n"
;if sing[0]>=7 then setu=setu+sing[7][1]+"~"+%sing[7][2]+"@i"+%soubi[sing[7][3]]+"j\n"
;if sing[0]>=8 then setu=setu+sing[8][1]+"~"+%sing[8][2]+"@i"+%soubi[sing[8][3]]+"j\n"
;if sing[0]>=9 then setu=setu+sing[9][1]+"~"+%sing[9][2]+"@i"+%soubi[sing[9][3]]+"j\n"
;if sing[0]>=10 then setu=setu+sing[10][1]+"~"+%sing[10][2]+"@i"+%soubi[sing[10][3]]+"j\n"
;endif

;ACeōꍇ
;if soubigo==0 then

if sing[1][4]==1 then sing[1][5]=1:setu=sing[1][1]+"~"+%sing[1][2]+"@i"+%item[sing[1][3]]+"j\n"
if sing[1][4]==2 then sing[1][5]=2:setu=sing[1][1]+"~"+%sing[1][2]+"@i"+%soubi[sing[1][3]]+"j\n"

if sing[1][4]==1 and sing[0]>=2 then sing[2][5]=1:setu=setu+sing[2][1]+"~"+%sing[2][2]+"@i"+%item[sing[2][3]]+"j\n"
if sing[1][4]==2 and sing[0]>=2 then sing[2][5]=2:setu=setu+sing[2][1]+"~"+%sing[2][2]+"@i"+%soubi[sing[2][3]]+"j\n"
;okbox str(item[-2]),"ro"
if sing[1][4]==1 and sing[0]>=3 then sing[3][5]=1:setu=setu+sing[3][1]+"~"+%sing[3][2]+"@i"+%item[sing[3][3]]+"j\n"
if sing[1][4]==2 and sing[0]>=3 then sing[3][5]=2:setu=setu+sing[3][1]+"~"+%sing[3][2]+"@i"+%soubi[sing[3][3]]+"j\n"
if sing[1][4]==1 and sing[0]>=4 then sing[4][5]=1:setu=setu+sing[4][1]+"~"+%sing[4][2]+"@i"+%item[sing[4][3]]+"j\n"
if sing[1][4]==2 and sing[0]>=4 then sing[4][5]=2:setu=setu+sing[4][1]+"~"+%sing[4][2]+"@i"+%soubi[sing[4][3]]+"j\n"
if sing[1][4]==1 and sing[0]>=5 then sing[5][5]=1:setu=setu+sing[5][1]+"~"+%sing[5][2]+"@i"+%item[sing[5][3]]+"j\n"
if sing[1][4]==2 and sing[0]>=5 then sing[5][5]=2:setu=setu+sing[5][1]+"~"+%sing[5][2]+"@i"+%soubi[sing[5][3]]+"j\n"
if sing[1][4]==1 and sing[0]>=6 then sing[6][5]=1:setu=setu+sing[6][1]+"~"+%sing[6][2]+"@i"+%item[sing[6][3]]+"j\n"
if sing[1][4]==2 and sing[0]>=6 then sing[6][5]=2:setu=setu+sing[6][1]+"~"+%sing[6][2]+"@i"+%soubi[sing[6][3]]+"j\n"
if sing[1][4]==1 and sing[0]>=7 then sing[7][5]=1:setu=setu+sing[7][1]+"~"+%sing[7][2]+"@i"+%item[sing[7][3]]+"j\n"
if sing[1][4]==2 and sing[0]>=7 then sing[7][5]=2:setu=setu+sing[7][1]+"~"+%sing[7][2]+"@i"+%soubi[sing[7][3]]+"j\n"
if sing[1][4]==1 and sing[0]>=8 then sing[8][5]=1:setu=setu+sing[8][1]+"~"+%sing[8][2]+"@i"+%item[sing[8][3]]+"j\n"
if sing[1][4]==2 and sing[0]>=8 then sing[8][5]=2:setu=setu+sing[8][1]+"~"+%sing[8][2]+"@i"+%soubi[sing[8][3]]+"j\n"
if sing[1][4]==1 and sing[0]>=9 then sing[9][5]=1:setu=setu+sing[9][1]+"~"+%sing[9][2]+"@i"+%item[sing[9][3]]+"j\n"
if sing[1][4]==2 and sing[0]>=9 then sing[9][5]=2:setu=setu+sing[9][1]+"~"+%sing[9][2]+"@i"+%soubi[sing[9][3]]+"j\n"
if sing[1][4]==1 and sing[0]>=10 then sing[10][5]=1:setu=setu+sing[10][1]+"~"+%sing[10][2]+"@i"+%item[sing[10][3]]+"j\n"
if sing[1][4]==2 and sing[0]>=10 then sing[10][5]=2:setu=setu+sing[10][1]+"~"+%sing[10][2]+"@i"+%soubi[sing[10][3]]+"j\n"
;endif

;okbox "2","1" ;20190428ʂĂcc

;̃ACe̎
@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

;ĩACe999ȂA
;if soubi[sing[11][3]]==999 then setumei="ĩACel`wȂ̂ō܂I":gosub @sin_1hyouzi_01:spsetdelete "sin_gousei":return

;̃ACe̎AA
if sing[0]==0 then goto @sin_return

;ACe΍AȂ΋AB
;20181104ACeAꂼŔ肷
if sing[0]==1 then
	if sing[1][4]==2 then
	if soubi[sing[1][3]]>=sing[1][2] then	;P
		gosub @sin_sel_yesno
		goto @sin_gosei_soubi_end
		else
		sp "sin_gousei:setu2",{name="?NbNŖ߂,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	;ACeP

		gosub @sin_sel_yesno
		goto @sin_gosei_soubi_end
		else

		sp "sin_gousei:setu2",{name="?NbNŖ߂,text",x=1280-40*8,y=640-50*3,z=0}:print #c
		click
		spsetdelete "sin_gousei"
		return
	endif
	endif
endif

;Qȏ
%11=0	;fނĂ{PĂBāAsing[0]ƓȂCGXm[oB
if sing[0]>=2 then
	;[vŁB
	for %10=1 to sing[0]	;KvACe[v
		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
	;[v
	next
endif


if %11==sing[0] then goto @sin_gosei_soubi_20181104	;fނĂ̂ŔԁB
@sin_return
		;ȊO̓NbNŖ߂
		sp "sin_gousei:setu2",{name="?NbNŖ߂,text",x=960-40*8,y=640-50*3,z=0}:print #c
		click
		spsetdelete "sin_gousei"
		return
endif
;SfނĂƂIo
@sin_gosei_soubi_20181104
		gosub @sin_sel_yesno
		goto @sin_gosei_soubi_end


	endif



;okbox "kokotooru","fobO"	;fobOł
@sin_gosei_soubi_end

	if yesno==0 then
	spsetdelete "sin_gousei"
	return	;Ƃ
	endif

;鎞̏
	;ACe
;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]),"Qői"
	;ACeXe[^X̂炱ijEQ[ɂĕϓB
	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
	;i
;	if sing[%9][5]==2 then soubi[sing[%9][3]]=soubi[sing[%9][3]]-sing[%9][2]
	;ACe
	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])

	;łACeiPj
;	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
;߂ۂ̏XvCgZbg
	spsetdelete "sin_gousei"
	return	;߂
