case speakWithSelect(2,"うん","ちがう", 
    "｛虹色君｝\nあ、どうも。\n何かくれるの？")
  when 0
 a=getItemIdArray() 
b=createArray() 
n=0 
while n<getArrayLength(a) 
 z=getValueFromItemParam(getItemParamWithId(a[n]), 
   getItemViewNameIndex() 
  ) 
 pushArray(b,z) 
n=n+1 
end 

pushArray(b,"やめる")


c=speakWithSelectArray(b,"｛虹色君｝\nどれをくれるの？") 
if c==getArrayLength(b)-1 
speak("｛虹色君｝\nうん。分かった。")
else 
 case a[c] 
 when 6053 d=10 
 when 6054 d=10 
 when 6055 d=10
 when 6056 d=10 
 when 6057 d=100
 end 
 case speakWithSelect(2,"売る","やめる",
    "｛虹色君｝\n"b[c]+"なら"+d+"円で買い取ります。" )
 when 0 
  removeItemWithIndex(c) 
  speak("｛虹色君｝\nありがとう。") 
 when 1 
  speak("｛虹色君｝\nうん。分かった。") 
 end 
end   
  when 1
  speak("｛虹色君｝\nうん。分かった。")     
end

    "｛虹色君｝\n"b[c]+"なら"+d+"円で買い取ります。" )

case speakWithSelect(2,"うん","ちがう", 
    "｛虹色君｝\nあ、どうも。\n何かくれるの？")
  when 0
 a=getItemIdArray() 
b=createArray() 
n=0 
while n<getArrayLength(a) 
 z=getValueFromItemParam(getItemParamWithId(a[n]), 
   getItemViewNameIndex() 
  ) 
 pushArray(b,z) 
n=n+1 
end 

pushArray(b,"やめる")


c=speakWithSelectArray(b,"｛虹色君｝\nどれをくれるの？") 
if c==getArrayLength(b)-1 
speak("｛虹色君｝\nうん。分かった。")
else 
 case a[c] 
 when 6053 d=10 
 when 6054 d=10 
 when 6055 d=10
 when 6056 d=10 
 when 6057 d=100
 end 
 case speakWithSelect(2,"売る","やめる",
    "｛虹色君｝\n"b[c]+"なら"+d+"円で買い取ります。" )
 when 0 
  removeItemWithIndex(c) 
  speak("｛虹色君｝\nありがとう。") 
 when 1 
  speak("｛虹色君｝\nうん。分かった。") 
 end 
end   
  when 1
  speak("｛虹色君｝\nうん。分かった。")     
end

    "｛虹色君｝\n"b[c]+"なら"+d+"円で買い取ります。" )