;ACeŔ\͒lAbv̏ꏊB
;ACeꂼŁA\͒lグB
;Xe[^XʂɈڂOɂiACêƂ݂̂̌菈j
@cin_ste_itemnull
;Xe[^XiŒj
ste[2][0]=ste[2]
ste[4][0]=ste[4]
ste[5][0]=ste[5]
return

@cin_item_ste
item[1][6]=0
item[1][7]=0
item[1][8]=0
for %0=2 to 20
	if item[%0]>0 then 
		if item[%0][5]==1 then item[1][6]=item[1][6]+item[%0]
		if item[%0][5]==2 then item[1][7]=item[1][7]+item[%0]
		if item[%0][5]==3 then item[1][8]=item[1][8]+item[%0]
	endif
item[%0][5]=0	;̂߂Ɍ
next
;okbox str(item[1][6]),"U"
;okbox str(item[1][7]),"Vǂ"
;okbox str(item[1][8]),"W"
return
@cin_item_steup
;ACeŔ\͒lオ鎞B(Ă̂ŉĂȂ)
	ste[2]=ste[2][0]:ste[2]=ste[2]+item[1][6]
	ste[4]=ste[4][0]:ste[4]=ste[4]+item[1][7]
	ste[5]=ste[5][0]:ste[5]=ste[5]+item[1][8]

;okbox str(item[1][6]),"QU"
;okbox str(item[1][7]),"QV"
;okbox str(item[1][8]),"QW"

;	ste[2]=ste[2][0]:ste[2]=ste[2]+item[%0][6]
;	ste[4]=ste[4][0]:ste[4]=ste[4]+item[%0][7]
;	ste[5]=ste[5][0]:ste[5]=ste[5]+item[%0][8]
return

@cin_item_stedown
;ACeŔ\͒l鎞B
for %0=2 to 2000
	ste[2]=ste[2][0]:ste[2]=ste[2]-item[%0][6]
	ste[4]=ste[4][0]:ste[4]=ste[4]-item[%0][7]
	ste[5]=ste[5][0]:ste[5]=ste[5]-item[%0][8]
next
return

;		if item[%0][5]==1 then item[6]=item[%0]:ste[2]=item[6]
;		if item[%0][5]==2 then item[7]=item[%0]:ste[3]=item[7]
;		if item[%0][5]==3 then item[8]=item[%0]:ste[5]=item[8]
