giveItem(7913)
giveItem(7911)
giveItem(7911)
a=getItemIdArray()
b=createArray()
b[0]=a[0]
c=createArray()
d=createArray()
n=0 #まずは所持配列aから各１個ずつの配列bを作成
while
 n<getArrayLength(a)
 m=0
 judge=true
 while
 m<getArrayLength(b)
  if a[n]==b[m]
   judge=false #ダブりを発見したらフラグ変更
  end
 m=m+1
 end
 if judge #フラグが残ってる＝ダブり無しなので加える
 pushArray(b,a[n])
 end
n=n+1
end
n=0 #今度はそれぞれをいくつ持ってるのか数える
while
 n<getArrayLength(b)
 m=0
 i=0
 while m<getArrayLength(a)
  if b[n]==a[m]
   i=i+1
  end
 m=m+1
 end
 c[n]=i
 d[n]=b[n]+"番のアイテムが"+c[n]+"個。"n=n+1
end
speak("a=",a,"\nb=",b,"\nc=",c,"\nd=",d)
g=0
while g<5
if d[g]==7910||7911||7912||7913||7914
r[g]=getItemParamWithId(b[g])
g=g+1
end
end
case speakWithSelect(6,r[0],r[1],r[2],r[3],r[4],"やめる", 
    "どのアイテムを使いますか")
  when 0
    
  when 1
    
  when 2
    
  when 3
    
  when 4
    
  when 5
    
end

giveItem(7913)
giveItem(7911)
giveItem(7911)
a=getItemIdArray()
b=createArray()
b[0]=a[0]
c=createArray()
d=createArray()
n=0 #まずは所持配列aから各１個ずつの配列bを作成
while
 n<getArrayLength(a)
 m=0
 judge=true
 while
 m<getArrayLength(b)
  if a[n]==b[m]
   judge=false #ダブりを発見したらフラグ変更
  end
 m=m+1
 end
 if judge #フラグが残ってる＝ダブり無しなので加える
 pushArray(b,a[n])
 end
n=n+1
end
n=0 #今度はそれぞれをいくつ持ってるのか数える
while
 n<getArrayLength(b)
 m=0
 i=0
 while m<getArrayLength(a)
  if b[n]==a[m]
   i=i+1
  end
 m=m+1
 end
 c[n]=i
 d[n]=b[n]+"番のアイテムが"+c[n]+"個。"n=n+1
end
speak("a=",a,"\nb=",b,"\nc=",c,"\nd=",d)
g=0
while g<5
if d[g]==7910||7911||7912||7913||7914
r[g]=getItemParamWithId(b[g])
g=g+1
end
end
case speakWithSelect(6,r[0],r[1],r[2],r[3],r[4],"やめる", 
    "どのアイテムを使いますか")
  when 0
    
  when 1
    
  when 2
    
  when 3
    
  when 4
    
  when 5
    
end