长，ss为30定20距对应力度
VBS dim hwnd,TL(42),ss(20),ws(20),ls(20),lw(20),qs(20),sj,tj,jdxz
Dim jb
Plugin jb=Window.MousePoint()
hwnd=jb
tj=10
jdxz=0.06
maxt=4
ss(0)=0:ss(1)=1.4:ss(2)=2:ss(3)=2.47:ss(4)=2.87:ss(5)=3.23:ss(6)=3.57:ss(7)=3.88:ss(8)=4.18:ss(9)=4.47:ss(10)=4.75:ss(11)=5.02:ss(12)=5.28:ss(13)=5.53:ss(14)=5.79:ss(15)=6.03:ss(16)=6.27:ss(17)=6.51:ss(18)=6.75:ss(19)=6.98:ss(20)=7.21
ws(0)=0:ws(1)=1.41:ws(2)=2.01:ws(3)=2.48:ws(4)=2.88:ws(5)=3.25:ws(6)=3.59:ws(7)=3.9:ws(8)=4.2:ws(9)=4.49:ws(10)=4.77:ws(11)=5.04:ws(12)=5.3:ws(13)=5.56:ws(14)=5.81:ws(15)=6.06:ws(16)=6.3:ws(17)=6.54:ws(18)=6.78:ws(19)=7.02:ws(20)=7.25
ls(0)=0:ls(1)=1.55:ls(2)=2.21:ls(3)=2.73:ls(4)=3.17:ls(5)=3.57:ls(6)=3.95:ls(7)=4.29:ls(8)=4.63:ls(9)=4.94:ls(10)=5.25:ls(11)=5.55:ls(12)=5.84:ls(13)=6.12:ls(14)=6.4:ls(15)=6.67:ls(16)=6.94:ls(17)=7.2:ls(18)=7.46:ls(19)=7.72:ls(20)=7.97
lw(0)=0:lw(1)=1.6:lw(2)=2.3:lw(3)=2.9:lw(4)=3.3:lw(5)=3.7:lw(6)=4.1:lw(7)=4.4:lw(8)=4.85:lw(9)=5.3:lw(10)=5.6:lw(11)=5.8:lw(12)=6.1:lw(13)=6.4:lw(14)=6.7:lw(15)=7:lw(16)=7.3:lw(17)=7.6:lw(18)=7.9:lw(19)=8.2:lw(20)=8.5
qs(0)=0:qs(1)=1.85:qs(2)=2.64:qs(3)=3.26:qs(4)=3.79:qs(5)=4.27:qs(6)=4.72:qs(7)=5.13:qs(8)=5.53:qs(9)=5.91:qs(10)=6.28:qs(11)=6.63:qs(12)=6.98:qs(13)=7.31:qs(14)=7.65:qs(15)=7.97:qs(16)=8.29:qs(17)=8.61:qs(18)=8.92:qs(19)=9.23:qs(20)=9.53
TL(0)=0:TL(1)=78 :TL(2)=108:TL(3)=82 :TL(4)=67 :TL(5)=92 :TL(6)=97 :TL(7)=93 :TL(8)=98 :TL(9)=92 :TL(10)=119:TL(11)=105:TL(12)=78 :TL(13)=106:TL(14)=114:TL(15)=111:TL(16)=65:TL(17)=94 :TL(18)=94 :TL(19)=86 :TL(20)=150:TL(21)=70 :TL(22)=119:TL(23)=113:TL(24)=124:TL(25)=109:TL(26)=81 :TL(27)=115:TL(28)=109:TL(29)=104:TL(30)=100:TL(31)=130:TL(32)=125:TL(33)=138:TL(34)=118:TL(35)=82:TL(36)=111:TL(37)=123:TL(38)=104:TL(39)=103:TL(40)=92:TL(41)=145:TL(42)=80
Plugin DBSoft.RegDBSoft("F27873CF2364C2129452C57003F97017")
Rem 开始
//移动到 创建 坐标并点击 坐标（701,505）
Plugin Bkgnd.MoveTo(Hwnd, 920, 550)
Delay 100
Plugin Bkgnd.LeftClick(Hwnd,920, 550)
Delay 100
//移动并点击 确定 坐标（435,507）
Plugin Bkgnd.MoveTo (hwnd,665,550)
Delay 100
Plugin Bkgnd.LeftClick(Hwnd,665, 550)
Delay 2000
//点击开始游戏 坐标 937,513
Plugin Bkgnd.MoveTo(Hwnd, 1152, 555)
Delay 100
Plugin Bkgnd.LeftClick(Hwnd,1152, 555)
Delay 1000
//判断是否跳过等待并载入地图
i=0
Rem 判
Plugin pan=DBSoft.FindPic(hwnd,1139,519,1217,592,"C:\Documents and Settings\nayan\My Documents\ddt\pan.bmp",0.8,-2,1)
//记录开始时间分
Plugin bsj=DBSoft.GetTimePerson("",4)
bsj=clng(bsj)
If pan(0)>=0 and pan(1)>=0
    MessageBox "zhaodaopan"
    Goto 识别地图
Else 
    If i<=65000
        i=i+1000
        Delay 1000
    Else 
        Goto 开始
    EndIf 
    Goto 判
EndIf 
// 识别图
Rem 识别地图
Plugin map=DBSoft.FindMorePicInScreenEx(hwnd,888,58,1225,196,"C:\Documents and Settings\nayan\My Documents\ddt\dt","*.bmp",0.4,-1,8)
If map(0)>0
    j=clng(map(1))
    MessageBox "地图是"&j
Else 
    Goto 识别地图
EndIf 
//判断自己颜色 yanse=1 则为红
Rem 判断颜色
Plugin xu=DBSoft.FindPic(hwnd,339,163,428,199,"C:\Documents and Settings\nayan\My Documents\ddt\蓄力.bmp",0.8,-2,1)
If xu(0)>=0 and xu(1)>=0
    Plugin ys =DBSoft.GetColorXY(hwnd,230,64,280,77, "1A1AD2","30,30,30",2)
    X = Clng(YS(0)): Y = Clng(YS(1))
    If x>0 and y>0
        yanse=1
    Else 
        yanse=2
    EndIf 
    //MessageBox "调试1颜色是"&yanse
Else 
    Goto 判断颜色
EndIf 
Rem 判断开炮
Plugin xu=DBSoft.FindPic(hwnd,339,163,428,199,"C:\Documents and Settings\nayan\My Documents\ddt\蓄力.bmp",0.8,-2,1)
//判断当前时间分
Plugin esj=DBSoft.GetTimePerson("",4)
esj=clng(esj)
sjt=esj-bsj
If sjt>=maxt
    Goto 自杀
Else 
    Delay 100
EndIf 
If xu(0)>=0 and xu(1)>=0
    //计算pj
    Plugin HXY =DBSoft.GetColorXY(hwnd,888,58,1225,196, "0000FF","0,0,0",2)
    Delay 200
    HX =clng(HXY(0)): HY =clng(HXY(1))
    Plugin LXY =DBSoft.GetColorXY(hwnd,888,58,1225,196, "FFCC00","0,0,0",2)
    Delay 200
    LX=clng(LXY(0))Y=clng(LXY(1))
    //MessageBox hx
    // MessageBox lx
    juli=abs(HX-LX)
    pj=clng(10*juli/tl(j))
    // MessageBox "距离是"&juli
    // MessageBox "屏距是"&pj
    //判断道具有无