Plugin daoju1 =DBSoft.GetColorXY(hwnd,1179,212,1196,229, "5D6DE4","30,30,30",2)
Plugin daoju2 =DBSoft.GetColorXY(hwnd,1177,267,1204,281, "D29820","30,30,30",2)
dj1=clng(daoju1(0))
dj2=clng(daoju2(0))
If dj1>0 and dj2>0
//使用道具1 2
Plugin Bkgnd.KeyPress(Hwnd, 97)
Delay 200
Plugin Bkgnd.KeyPress(Hwnd, 98)
Delay 200
Else
//使用zxc
Plugin Bkgnd.KeyPress(Hwnd, 90)
Delay 200
Plugin Bkgnd.KeyPress(Hwnd, 88)
Delay 200
Plugin Bkgnd.KeyPress(Hwnd, 67)
Delay 200
EndIf
Plugin Bkgnd.KeyPress(Hwnd, 38)
Delay 100
Plugin Bkgnd.KeyPress(Hwnd, 38)
Delay 20
Plugin Bkgnd.KeyPress(Hwnd, 38)
Delay 20
Plugin Bkgnd.KeyPress(Hwnd, 38)
Delay 20
Plugin Bkgnd.KeyPress(Hwnd, 38)
Delay 20
Plugin Bkgnd.KeyPress(Hwnd, 38)
Delay 20
Plugin Bkgnd.KeyPress(Hwnd, 38)
Delay 20
Plugin Bkgnd.KeyPress(Hwnd, 38)
Delay 20
Plugin Bkgnd.KeyPress(Hwnd, 38)
Delay 20
Plugin Bkgnd.KeyPress(Hwnd, 38)
Delay 20
If yanse=1
If HX-LX<=0
Plugin Bkgnd.KeyPress(Hwnd, 39)
Delay 200
Plugin Bkgnd.KeyPress(Hwnd, 37)
Delay 200
Plugin Bkgnd.KeyPress(Hwnd, 37)
Delay 200
Plugin Bkgnd.KeyPress(Hwnd, 39)
Delay 300
//找定点计算角度 角度数jds 角度差jdc
Plugin zb=DBSoft.GetColorXY(hwnd,222,548,343,649,"0000FF","0,0,0",2)
Delay 200
c=clng(zb(0)):d=clng(zb(1))
Plugin jiaodu=DBSoft.Angle3Point(c,d,294,597,c,597,1)
jds=abs(clng(jiaodu))
dim jdcz(4),jdc(4)
jdcz(0)=30-jds:jdcz(1)=50-jds:jdcz(2)=60-jds:jdcz(3)=65-jds:jdcz(4)=70-jds
jdc(0)=abs(30-jds):jdc(1)=abs(50-jds):jdc(2)=abs(60-jds):jdc(3)=abs(65-jds):jdc(4)=abs(70-jds)
//zx为最小下标 zxz为最小角度差数值
Plugin zx=DBSoft.MinNum(jdc,1)
Plugin zxz=DBSoft.MinNum(jdcz,0)
zx=clng(zx):zxz=clng(zxz)
//角度差修正
pj=pj+jdxz*zxz
// MessageBox "角度代号"&zx
If zx=0
Plugin Bkgnd.KeyDown(Hwnd, 32)
sj=ss(pj)/10*3500+tj
Delay sj
EndIf
If zx=1
Plugin Bkgnd.KeyDown(Hwnd, 32)
sj=ws(pj)/10*3500+tj
Delay sj
EndIf
If zx=2
Plugin Bkgnd.KeyDown(Hwnd, 32)
sj=ls(pj)/10*3500+tj
Delay sj
EndIf
If zx=3
Plugin Bkgnd.KeyDown(Hwnd, 32)
sj=lw(pj)/10*3500+tj
Delay sj
EndIf
If zx=4
Plugin Bkgnd.KeyDown(Hwnd, 32)
sj=qs(pj)/10*3500+tj
Delay sj
EndIf
Plugin Bkgnd.KeyUp(Hwnd, 32)
Else
Plugin Bkgnd.KeyPress(Hwnd, 37)
Delay 200
Plugin Bkgnd.KeyPress(Hwnd, 39)
Delay 200
Plugin Bkgnd.KeyPress(Hwnd, 39)
Delay 200
Plugin Bkgnd.KeyPress(Hwnd, 37)
Delay 300