画板卡死！！！！多次清除与循环卡死！求解决！

瓶中界卡盟

界面如下：


一旦多次在界面中鼠标多次滑动也就是（热点）时就会出现这个！！！



窗口界面成为白色，并且程序无响应...
热点源码如下，求大神解决！

.版本 2

.子程序 热点, , 公开
.参数 纵向位置, 整数型
.局部变量 索引, 整数型
.局部变量 N, 整数型

索引 ＝ 判断索引 (纵向位置)
.如果真 (上次热点索引 ＝ 索引)
    返回 ()
.如果真结束
.如果真 (索引 ＞ 项目索引)
    返回 ()
.如果真结束
.如果真 (上次热点索引 ≠ 0)
    画板.清除 (0, (上次热点索引 － 1) × 20 ＋ 2, 220, 36)
    画板.画图片 (载入图片 (列表项目 [上次热点索引].项目正常图标), 5, (上次热点索引 － 1) × 20 ＋ 4, 16, 16, )
    画板.文本颜色 ＝ #蓝色
    画板.定位写出 (26, (上次热点索引 － 1) × 20 ＋ 7, 列表项目 [上次热点索引].项目名称)
    画板.文本颜色 ＝ #灰色
    ' 画板.定位写出 (42, (上次热点索引 － 1) × 36 ＋ 23, 列表项目 [上次热点索引].项目内容)
    ' 画板.文本颜色 ＝ #黑色
.如果真结束
画板.清除 (0, 索引 × 20, 220, 450)

.如果 (索引 ＝ 1)
    画板.刷子颜色 ＝ 列表项目 [索引].项目热点颜色
    画板.填充矩形 (1, (索引 － 1) × 36 ＋ 2, 218, 索引 × 36 ＋ 2)
    画板.画图片 (载入图片 (列表项目 [索引].项目热点图标), 5, (索引 － 1) × 36 ＋ 4, 32, 32, )
    画板.文本颜色 ＝ #红色
    画板.定位写出 (42, (索引 － 1) × 36 ＋ 7, 列表项目 [索引].项目名称)
    画板.文本颜色 ＝ #灰色
    画板.定位写出 (42, (索引 － 1) × 36 ＋ 23, 列表项目 [索引].项目内容)
    画板.文本颜色 ＝ #黑色

.否则
    画板.刷子颜色 ＝ 列表项目 [索引].项目热点颜色
    画板.填充矩形 (1, (索引 － 1) × 20 ＋ 2, 218, 索引 × 20 ＋ 18)
    画板.画图片 (载入图片 (列表项目 [索引].项目热点图标), 5, (索引 － 1) × 20 ＋ 2, 32, 32, )
    画板.文本颜色 ＝ #红色
    画板.定位写出 (42, (索引 － 1) × 20 ＋ 7, 列表项目 [索引].项目名称)
    画板.文本颜色 ＝ #灰色
    画板.定位写出 (42, (索引 － 1) × 20 ＋ 23, 列表项目 [索引].项目内容)
    画板.文本颜色 ＝ #黑色
.如果结束
上次热点索引 ＝ 索引

.计次循环首 (23, N)
    画板.画图片 (载入图片 (列表项目 [索引 ＋ N].项目正常图标), 5, (索引 ＋ N) × 20 ＋ 4, 16, 16, )
    画板.文本颜色 ＝ #蓝色
    画板.定位写出 (26, (索引 ＋ N) × 20 ＋ 6, 列表项目 [索引 ＋ N].项目名称)
.计次循环尾 ()

画板.复制 (, , , , 备用_画板, , , 1)

提拉米苏god

看着晕

改名卡

看着都蛋疼不看了

SalHe

你就不会上传源码吗？