VBSCall c3=GetPixelColor(dx+1,dy+1) VBSCall c9=GetPixelColor(dx+1,dy-1) If c5=c2 VBS dy=dy+1:k=k+1:m1=0 ElseIf c5=c3 and c5<>c2 VBS dx=dx+1:dy=dy+1:m=m+1:k=k+1:m1=0 ElseIf c5=c6 and c5<>c2 and c5<>c3 VBS dx=dx+1:m=m+1:m1=0 ElseIf c5=c4 and c5<>c1 and c5<>c2 and c5<>c6 and c5<>c3 and c5<>c9 VBS dx=dx-1:m=m-1:m1=m1+1 VBS zf1="6" VBS c5="010101" ElseIf c5=c4 and c5<>c1 and c5<>c2 and c5<>c6 and c5<>c3 and c5=c9 VBS dx=dx-1:m=m-1:m1=m1+1 VBS c5="010101" ElseIf c5=c1 and c5<>c4 and c5<>c2 and c5<>c6 and c5<>c3 VBS c5="010101" ElseIf c5<>c2 and c5<>c6 and c5<>c3 VBS c5="010101" EndIf EndWhile VBS dx=dx+m:dy=dy+k If zf1<>"6" //⒈⒈⒈【↓④】6 //⒈⒈⒉【←↓⑥】23 VBS dx=qxw:dy=qyw VBSCall c5=GetPixelColor(dx+0,dy+0) VBS m=0:k=0 While c5="000000" VBSCall c4=GetPixelColor(dx-1,dy+0) VBSCall c5=GetPixelColor(dx+0,dy+0) VBSCall c6=GetPixelColor(dx+1,dy+0) VBSCall c1=GetPixelColor(dx-1,dy+1) VBSCall c2=GetPixelColor(dx+0,dy+1) VBSCall c3=GetPixelColor(dx+1,dy+1) If c5=c4 VBS dx=dx-1:m=m-1 ElseIf c5<>c4 and c5=c1 VBS dx=dx-1:dy=dy+1:m=m-1:k=k+1 ElseIf c5<>c4 and c5<>c1 and c5=c2 VBS dy=dy+1:k=k+1 ElseIf c5<>c4 and c5<>c1 and c5<>c2 VBS c5="010101" EndIf EndWhile VBS dx089=dx:dy089=dy:k089=k VBS m=0:k=0 VBSCall c5=GetPixelColor(dx+0,dy+0) VBSCall c6=GetPixelColor(dx+1,dy+0) VBSCall c1=GetPixelColor(dx-1,dy+1) VBSCall c2=GetPixelColor(dx+0,dy+1) VBSCall c3=GetPixelColor(dx+1,dy+1) If c5<>c3 and c5<>c1 and c5<>c2 and c5=c6 VBS dx=dx+1:m=m+1:k1=0 VBSCall c15=GetPixelColor(dx+0,dy+1) While c15="FFFFFF" VBSCall c15=GetPixelColor(dx+0,dy+1+k1) VBS k1=k1+1 EndWhile VBS m1=0 VBS dy=dy+k1 VBSCall c15=GetPixelColor(dx+0,dy-3) While c15="FFFFFF" and m1<=8 VBSCall c15=GetPixelColor(dx+m1,dy-3) VBS m1=m1+1 EndWhile If m1=9 VBS zf1="3" ElseIf m1<=8 VBS zf1="2" EndIf EndIf EndIf If zf1<>"6" and zf1<>"2" and zf1<>"3" //⒈⒈⒉⒈【←↓③】089 //⒈⒈⒉⒉【←↓→①】8 VBS dx=qxw:dy=qyw VBSCall c5=GetPixelColor(dx+0,dy+0) VBS m=0:k=0:m1=0 While c5="000000" VBSCall c4=GetPixelColor(dx-1,dy+0) VBSCall c5=GetPixelColor(dx+0,dy+0) VBSCall c6=GetPixelColor(dx+1,dy+0) VBSCall c1=GetPixelColor(dx-1,dy+1) VBSCall c2=GetPixelColor(dx+0,dy+1) VBSCall c3=GetPixelColor(dx+1,dy+1) If c5=c4 VBS dx=dx-1:m=m+1 ElseIf c5<>c4 and c5=c1 VBS dx=dx-1:dy=dy+1:m=m+1:k=k+1 ElseIf c5=c2 and c5<>c1 and c5<>c4 VBS dy=dy+1:k=k+1 ElseIf c5<>c4 and c5<>c1 and c5<>c2 and c5=c3 VBS dx=dx+1:dy=dy+1:m=m+1:k=k+1 VBS c5="010101" ElseIf c5<>c4 and c5<>c1 and c5<>c2 VBS dx=dx+1:dy=dy+1:m=m+1:k=k+1 VBS c5="010101" EndIf EndWhile