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
末端接頭