1. //tl为透明框长，ss为30定20距对应力度
2. （VBScript语句） dim hwnd,TL(42),ss(20),ws(20),ls(20),lw(20),qs(20),sj,tj,jdxz
3. Dim jb
4. 调用插件命令 jb=Window.MousePoint()
5. hwnd=jb
6. tj=10
7. jdxz=0.06
8. maxt=4
9. 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
10. 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
11. 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
12. 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
13. 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
14. 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
15. 调用插件命令 DBSoft.RegDBSoft("F27873CF2364C2129452C57003F97017")
16. 标记 开始
17. //移动到 创建 坐标并点击 坐标（701,505）
18. 调用插件命令 Bkgnd.MoveTo(Hwnd, 920, 550)
19. 延时100毫秒
20. 调用插件命令 Bkgnd.LeftClick(Hwnd,920, 550)
21. 延时100毫秒
22. //移动并点击 确定 坐标（435,507）
23. 调用插件命令 Bkgnd.MoveTo (hwnd,665,550)
24. 延时100毫秒
25. 调用插件命令 Bkgnd.LeftClick(Hwnd,665, 550)
26. 延时2000毫秒
27. //点击开始游戏 坐标 937,513
28. 调用插件命令 Bkgnd.MoveTo(Hwnd, 1152, 555)
29. 延时100毫秒
30. 调用插件命令 Bkgnd.LeftClick(Hwnd,1152, 555)
31. 延时1000毫秒
32. //判断是否跳过等待并载入地图
33. i=0
34. 标记 判
35. 调用插件命令 pan=DBSoft.FindPic(hwnd,1139,519,1217,592,"C:\Documents and Settings\nayan\My Documents\ddt\pan.bmp",0.8,-2,1)
36. //记录开始时间分
37. 调用插件命令 bsj=DBSoft.GetTimePerson("",4)
38. bsj=clng(bsj)
39. 如果表达式 (pan(0)>=0 and pan(1)>=0) 为真,则
40.     弹出窗口 "zhaodaopan"
41.     跳转到标记 识别地图
42. 否则
43.     如果表达式 (i<=65000) 为真,则
44.         i=i+1000
45.         延时1000毫秒
46.     否则
47.         跳转到标记 开始
48.     条件结束
49.     跳转到标记 判
50. 条件结束
51. // 识别图
52. 标记 识别地图
53. 调用插件命令 map=DBSoft.FindMorePicInScreenEx(hwnd,888,58,1225,196,"C:\Documents and Settings\nayan\My Documents\ddt\dt","*.bmp",0.4,-1,8)
54. 如果表达式 (map(0)>0) 为真,则
55.     j=clng(map(1))
56.     弹出窗口 "地图是"&j
57. 否则
58.     跳转到标记 识别地图
59. 条件结束
60. //判断自己颜色 yanse=1 则为红
61. 标记 判断颜色
62. 调用插件命令 xu=DBSoft.FindPic(hwnd,339,163,428,199,"C:\Documents and Settings\nayan\My Documents\ddt\蓄力.bmp",0.8,-2,1)
63. 如果表达式 (xu(0)>=0 and xu(1)>=0) 为真,则
64.     调用插件命令 ys =DBSoft.GetColorXY(hwnd,230,64,280,77, "1A1AD2","30,30,30",2)
65.     X = Clng(YS(0)): Y = Clng(YS(1))
66.     如果表达式 (x>0 and y>0) 为真,则
67.         yanse=1
68.     否则
69.         yanse=2
70.     条件结束
71.     //MessageBox "调试1颜色是"&yanse
72. 否则
73.     跳转到标记 判断颜色
74. 条件结束
75. 标记 判断开炮
76. 调用插件命令 xu=DBSoft.FindPic(hwnd,339,163,428,199,"C:\Documents and Settings\nayan\My Documents\ddt\蓄力.bmp",0.8,-2,1)
77. //判断当前时间分
78. 调用插件命令 esj=DBSoft.GetTimePerson("",4)
79. esj=clng(esj)
80. sjt=esj-bsj
81. 如果表达式 (sjt>=maxt) 为真,则
82.     跳转到标记 自杀
83. 否则
84.     延时100毫秒
85. 条件结束
86. 如果表达式 (xu(0)>=0 and xu(1)>=0) 为真,则
87.     //计算pj
88.     调用插件命令 HXY =DBSoft.GetColorXY(hwnd,888,58,1225,196, "0000FF","0,0,0",2)
89.     延时200毫秒
90.     HX =clng(HXY(0)): HY =clng(HXY(1))
91.     调用插件命令 LXY =DBSoft.GetColorXY(hwnd,888,58,1225,196, "FFCC00","0,0,0",2)
92.     延时200毫秒
93.     LX=clng(LXY(0))Y=clng(LXY(1))
94.     //MessageBox hx
95.     // MessageBox lx
96.     juli=abs(HX-LX)
97.     pj=clng(10*juli/tl(j))
98.     // MessageBox "距离是"&juli
99.     // MessageBox "屏距是"&pj
100.     //判断道具有无