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
            //找定点计算角度 角度数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)
        EndIf 
    EndIf 
    // MessageBox "时间"&sj
    Delay 100
    Plugin Bkgnd.KeyPress(Hwnd, 38)
    Delay 100
    Plugin Bkgnd.KeyPress(Hwnd, 38)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 38)
    Delay 1600
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 100
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 100
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 100
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 1200
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    Plugin Bkgnd.KeyPress(Hwnd, 40)
    Delay 50
    //判断游戏是否结束
    Plugin jieshu=DBSoft.FindPic(hwnd,946,146,1077,301,"C:\Documents and Settings\nayan\My Documents\ddt\翻牌.bmp",0.8,-2,1)
    Delay 300
    If jieshu(0)>=0 and jieshu(1)>=0
        Goto 翻牌
    Else 
        Delay 7500
        Goto 判断开炮