sdim a,100000
repeat 1000
　　await 1
　　a+"調子に乗りました\n出川聡　　\nりょうすけ"
loop
randlmize
repeat
　　await 1
　　rnd b
　　str b
　　bsave b,a
　　dialog "ゴメンくさい"
loop