>176
>・素材Ａを入手→保存庫に保管→更に素材Ｂを入手→素材Ａが入った保存庫に保管という機能
#enum 素材Ａ=0
#enum 素材Ｂ
#enum 素材Ｃ
#enum 素材終

#enum 個数=0
#enum 値段
#enum 重量
#enum 素材データ終
dim 素材,素材データ終,素材終:dim itemno,素材終:dim itemnotmp,素材終
itemcnt=0:item="素材Ａ","素材Ｂ","素材Ｃ":itemhlp="素材Ａなんたら","素材Ｂなんたら","素材Ｃなんたら"
素材(値段,素材Ａ)=100,10:素材(値段,素材Ｂ)=500,30:素材(値段,素材Ｃ)=12300,128
pos 50,300:repeat 素材終:button gosub item(cnt),*label:loop:button gosub "ソート",*label2:pos 0,0:mes "保存庫"
stop

*label
if 素材(個数,stat)=0{itemno(itemcnt)=stat:itemcnt++}
素材(個数,stat)++
*label3
color 00,00,150:boxf 0,0,400,100:color 250,250,200:pos 0,0:mes "保存庫("+itemcnt+"種)":color 50,250,250
repeat itemcnt:no=itemno(cnt):if 素材(個数,no){:mes item(no)+"("+素材(個数,no)+"個) "+"("+素材(値段,no)+"円) "+"("+素材(重量,no)+"kg) "+itemhlp(no)}:loop
return
*label2
no=0
repeat 素材終:if 素材(個数,cnt){itemno(no)=cnt:no++}:loop
gosub *label3
return
素材にナンバー付けてそれを基準にデータの入れる場所を決める