气球提示框制作表情选择框

表情组 ＝ 建空图片组 (24, 24)
.计次循环首 (135, 计次)
加入图片 (表情组, 读入文件 (“表情\” ＋ 到文本 (计次 － 1) ＋ “.gif”), )
表情文本 ＝ 表情文本 ＋ 选择 (计次 ％ 15 ＝ 1, “”, “”) ＋ “” ＋ 选择 (计次 ％ 15 ＝ 0, “”, “”) ＋ 选择 (计次 ＝ 135, “”, “”)
.计次循环尾 ()
表情框.图片图片组 ＝ 表情组

.子程序 _按钮1_被单击