- 1 名前： ◆uoRBQ2R7lQ mailto:sage [2006/08/27(日) 09:16:45 ID:J4H4T4Nd.net]
- 今日HSP始めました。よろしく。
- 184 名前：名前は開発中のものです。 [2006/12/01(金) 18:05:22 ID:+8ltbVQz.net]
- >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
素材にナンバー付けてそれを基準にデータの入れる場所を決める
- 185 名前：名前は開発中のものです。 [2006/12/01(金) 18:08:31 ID:+8ltbVQz.net]
- あ、使わなくなった配列を消すの忘れてた＞dim itemnotmp,素材終
|
 |
