>>377

#enum ITEM_ID = 0
#enum ITEM_COUNT
ldim type_l,10:type_l(1)=*体力回復:type_l(2)=*状態回復:type_l(5)=*武器
recovery="毒","麻痺","混乱"
;//D,名前,種類,コメント,能力（種類により | で区切って複数設定）
item_data="1,回復薬,1,HPを50回復,50","2,高級回復薬,1,HPを300回復,300","10,毒消し,2,毒状態回復,0","100,短剣,5,片手武器,6|2"
name="":com="":data=""
foreach item_data//item_dataをアイテムID順に配列へ入れる//data_noはIDからitem_dataの要素数を逆引き出来るように
split item_data(cnt),",", id_s,name_s,type_s,com_s,data_s
id=int(id_s) :data_no(id)=cnt :name(id)=name_s :type(id)=int(type_s) :com(id)=com_s :data(id)=data_s
loop
dim list,2,20 :list(0,0)=1,10 :list(0,1)=2,5 :list(0,2)=10,2 :list(0,3)=100,1 :item_max=4
repeat:redraw 0:gradf 0,0,400,400,1,$ffffff,0:stick stk
c=(c+(((stk & 8)>0)-((stk & 2)>0))+item_max)\item_max
repeat item_max
if c ! cnt {color : pos 32,cnt*20 : mes name(list(ITEM_ID,cnt))+" "+list(ITEM_COUNT,cnt) }
loop
id=list(ITEM_ID,c)
color 0,0,255: pos 32,c*20:mes name(id)+" "+list(ITEM_COUNT,c)
gradf 150,ginfo_cy,200,100,1,$222222,$111111:gradf 142,ginfo_cy-8,200,100,1,$5555ff,$222222
color 255,255,255: pos 150:mes "["+name(id)+"]"+"\n" +com(id)
split data(id),"|",data_s
gosub type_l( type(id) )
redraw 1:await 10:loop
*体力回復:mes "+"+data_s:return
*状態回復:mes recovery(int(data_s)):return
*武器: mes "攻撃力+"+data_s: mes "防御力+"+data_s(1):return