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
case speakWithSelectArray(d+1,d,"やめる","どれを使う？")
 when 0
else
 end

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
case speakWithSelectArray(d+1,d,"やめる","どれを使う？")
 when 0
else
 end