버튼 마법사를 사용하여 Lianliankan 스크립트를 만드는 방법
Dim se(19, 11)
UserVar llk=0 "제거 시간"
e = Plugin.Window.Find(0, "QQ Game- Lianliankan 역할 버전")
f = Plugin.window.Foreground()
g = Plugin.Sys.GetScRX()
h = Plugin.Sys . GetScRY()
예를 들어 gt; 0이면
f = e이면
i = Plugin.Window.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 그렇다면
ect= GetPixelColor (664 k, 96 l)
IfColor k 64, l 80, 직사각형, 1 그러면
k = k 28
l = l 195
m = 0
n = 1
a = 0 ~ 18의 경우
b = 0 ~ 10의 경우
se(a, b) = bj
IfColor a * 31 - 12 k, b * 35 - 13 l, ret, 0 Then
se(a, b) = GetPixelColor ( a * 31 k, b * 35 l)
m = m 1
End If
다음
다음
m lt;gt; 0 및 n lt;gt; m
n = m
a = 0 ~ 18
b = 0 ~ 10
If se(a, b) lt;
p> d=b 1
For c = a To 18
While d lt = 10
If se(a, b) = se(c , d) 그런 다음
a = c이면
y1 = b 1
반면 se(a, y1) = bj
y1=y1 1
Wend
If y1 = d Then
Eliminate() 호출: b=d
Exit For
p>Else
y2=1
반면 se(a y2, b) = bj이고 se(c y2, d) = bj
y1 = b 1
반면 se(a y2, y1) = bj
y1=y1 1
Wend
If y1 gt ;= d 그런 다음
호출 제거(): b=d
Exit For
End If
y2=y2 1
Wend
y2=1
반면 se(a - y2, b) = bj이고 se(c - y2, d) = bj
y1 = b 1
se(a-y2, y1) = bj
y1=y1 1
Wend
If y1 gt = d 그러면
호출 제거(): b=d
Exit For
End If
y2=y2 1
Wend
p>
종료 조건
ElseIf b = d Then
x1 = a 1
반면 se(x1, b) = bj
x1=x1 1
Wend
If x1 = c 그런 다음
제거() 호출
종료
Else
x2=1
동안 se(a , b x2) = bj 및 se(c, d x2) = bj
x1 = a 1
반면 se(x1, b x2) = bj
x1=x1 1
Wend
If x1 gt;= c Then
제거() 호출
종료 대상
종료 조건
x2=x2 1
Wen
d
x2=1
반면 se(a, b - x2) = bj이고 se(c, d - x2) = bj
x1 = a 1
se(x1, b-x2) = bj인 동안
x1=x1 1
Wend
If x1 gt;= c 그런 다음
Eliminate() 호출
Exit For
End If
x2=x2 1
Wend
End If
Else
left2=c：down1=b：up1=b
While se(a，down1-1 )=bj
down1=down1-1
Wend
se(a, up1 1) = bj
up1=up1 1
Wend
se(left2 - 1, d) = bj인 동안
left2=left2-1
Wend
down1lt;=d 및 up1gt;=d 및 left2lt;=a인 경우
제거() 호출: b=up1
종료 대상
종료 조건
right1=a：down2=d：up2=d
while se(right1 1, b) = bj
right1= right1 1
Wend
se(c, down2 - 1) = bj 동안
down2=down2-1
Wend
p>se(c, up2 1) = bj
up2=up2 1
Wend
If up2
gt;= b 및 down2 lt;= b 및 right1 gt;= c Then
Eliminate() 호출: b=up1
Exit For
End If
left1=a：right2=c：bigy=d：smally=b
반면 se(left1 - 1, b) = bj
left1=left1 -1
Wend
se(right2 1, d) = bj인 동안
right2=right2 1
Wend
If b gt; d Then
bigy=b
smally=d
If left1 lt; 그러면
leftz=left2
Else
leftz=left1
End If
If right1 lt; right2 Then
lefty=right1
Else
lefty=right2
End If
w=0
wlt;lefty-leftz 1
y1=smally
동안 se(leftz w,y1 1)=bj
y1=y1 1
Wend
If y1 gt; = bigy Then
제거() 호출: b=up1
종료
End If
w=w 1
Wend
If down1 lt down2 Then
leftx=down2
그렇지 않으면
leftx=down1
End If
If up1 lt; up2 Then
leftw=up1
Else
leftw=up2
End If
w=0
while leftw-leftx 1
x1=a
동안 se(x1 1, leftx w)=bj
x1=x1 1
Wend
If x1 gt = c Then
호출 제거(): b=up1
Exit For
End If
w=w 1
Wend
d=up2
종료 조건
End If
d=d 1
Wend
d=0
Next
End If
d=0
p>
다음
다음
Wend
LeftUp 1
End If
End If
End If
End If
Sub 제거()
MoveTo a * 31 k, b * 35 l
LeftDown 1
지연 llk
MoveTo c * 31 k, d * 35 l
LeftDown 1
se(a, b) = bj
se(c, d) = bj
m = m - 2
Sub 끝