如何用键盘向导制作连连看脚本
UserVar llk=0“消除时间”
E =插件。Window.Find(0，《QQ游戏-连连看角色版》)
f = Plugin.window .前台()
g =插件。Sys.GetScRX()
h =插件。Sys.GetScRY()
如果e & gt那么0
如果f = e，那么
i =插件。GetWindowRect(e)
j = Split(i，" | ")
k = Int(j(0))
l = Int(j(1))
Bj= "无"
如果k & gt= 0且l & gt= 0和k+799 & lt；= g和y+599 & lt；那么= h
rect=GetPixelColor(664+k，96+l)
如果Color k + 64，l + 80，rect，1，则
k = k + 28
l = l + 195
m = 0
n = 1
对于a = 0到18
对于b = 0到10
se(a，b) = bj
如果Color a * 31 - 12 + k，b * 35 - 13 + l，rect，0则
se(a，b) = GetPixelColor(a * 31 + k，b * 35 + l)
m = m + 1
如果…就会结束
然后
然后
而m & lt& gt0和n & lt& gtm
n = m
对于a = 0到18
对于b = 0到10
如果se(a，b)& lt；& gt那么bj
d=b+1
对于c = a到18
而d & lt= 10
如果se(a，b) = se(c，d ),则
如果a = c，那么
y1 = b + 1
而se(a，y1) = bj
y1=y1+1
行
如果y1 = d，则
呼叫消除():b=d
为...退出
其他
y2=1
而se(a + y2，b) = bj和se(c + y2，d) = bj
y1 = b + 1
而se(a+y2，y1) = bj
y1=y1+1
行
如果y 1 & gt；那么= d
呼叫消除():b=d
为...退出
如果…就会结束
y2=y2+1
行
y2=1
而se(a - y2，b) = bj和se(c - y2，d) = bj
y1 = b + 1
而se(a-y2，y1) = bj
y1=y1+1
行
如果y 1 & gt；那么= d
呼叫消除():b=d
为...退出
如果…就会结束
y2=y2+1
行
如果…就会结束
那么ElseIf b = d
x1 = a + 1
而se(x1，b) = bj
x1=x1+1
行
如果x1 = c，则
呼叫消除()
为...退出
其他
x2=1
而se(a，b + x2) = bj和se(c，d + x2) = bj
x1 = a + 1
而se(x1，b+x2) = bj
x1=x1+1
行
如果x 1 & gt；= c那么
呼叫消除()
为...退出
如果…就会结束
x2=x2+1
行
x2=1
而se(a，b - x2) = bj和se(c，d - x2) = bj
x1 = a + 1
而se(x1，b-x2) = bj
x1=x1+1
行
如果x 1 & gt；= c那么
呼叫消除()
为...退出
如果…就会结束
x2=x2+1
行
如果…就会结束
其他
left 2 = c:down 1 = b:up 1 = b
而se(a，down1-1)=bj
down 1 = down 1-1
行
而se(a，up1 + 1) = bj
up1=up1+1
行
而se(left2 - 1，d) = bj
left2=left2-1
行
if down 1 & lt；=d和up 1 & gt；=d和left2 & lt=a那么
呼叫取消():b=up1。
为...退出
如果…就会结束
right1=a:down2=d:up2=d
而se(right1+1，b) = bj
右1 =右1+1
行
而se(c，down2 - 1) = bj
down2=down2-1
行
而se(c，up2 + 1) = bj
up2=up2+1
行
如果up2 & gt= b和down2 & lt= b和right 1 & gt；= c那么
呼叫取消():b=up1。
为...退出
如果…就会结束
left 1 = a:right 2 = c:bigy = d:smally = b
而se(left1 - 1，b) = bj
left 1 = left 1-1
行
而se(right2 + 1，d) = bj
right2=right2+1
行
如果b & gt那么d
bigy=b
smally=d
如果…就会结束
如果离开1 & lt；然后向左2
leftz=left2
其他
leftz=left1
如果…就会结束
如果right 1 & lt；那好吧
lefty=right1
其他
左=右2
如果…就会结束
w=0
而w & ltlefty-leftz+1
y 1 =小
而se(leftz+w，y1+1)=bj
y1=y1+1
行
如果y 1 & gt；那么大
呼叫取消():b=up1。
为...退出
如果…就会结束
w=w+1
行
if down 1 & lt；那么向下2
leftx=down2
其他
leftx=down1
如果…就会结束
if up 1 & lt；up2然后
left = up 1
其他
leftw = up2
如果…就会结束
w=0
而w & ltleft-left x+1
x1=a
而se(x1+1，leftx+w)=bj
x1=x1+1
行
如果x 1 & gt；= c那么
呼叫取消():b=up1。
为...退出
如果…就会结束
w=w+1
行
d=up2
如果…就会结束
如果…就会结束
d=d+1
行
d=0
然后
如果…就会结束
然后
然后
行
LeftUp 1
如果…就会结束
如果…就会结束
如果…就会结束
如果…就会结束
子消除()
移动到a * 31 + k，b * 35 + l
LeftDown 1
延迟llk
移动到c * 31 + k，d * 35 + l
LeftDown 1
se(a，b) = bj
se(c，d) = bj
m = m - 2
末端接头