1. //下面这句是查找窗口类名(0)或者标题("Tantra Launcher"),返回找到的句柄Hwnd
2. 调用插件命令 Hwnd = Window.Find(0,"Tantra Launcher")
3. 如果表达式 (Hwnd>0) 为真,则
4. 否则
5.     调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
6.     脚本停止运行
7. 条件结束
8. （VBScript语句） Dim hong,lan,hongT,lanT,ys,zd,MyArray,jineng,jianeng1,jineg2,jineng3,jineng4,fuzu,fuzu1,fuzu2,fuzu3,fuzu4,chihong,chilan
9. 用户定义变量 jineng=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第一个攻击技能键
10. 用户定义变量 jineng1=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第二个攻击技能键
11. 用户定义变量 jineng2=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第三个攻击技能键
12. 用户定义变量 jineng3=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第四个攻击技能键
13. 用户定义变量 jineng4=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第五个攻击技能键
14. 用户定义变量 fuzu=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第一个辅助技能键
15. 用户定义变量 fuzu1=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第二个辅助技能键
16. 用户定义变量 fuzu2=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第三个辅助技能键
17. 用户定义变量 fuzu3=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第四个辅助技能键
18. 用户定义变量 fuzu4=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 第五个辅助技能键
19. 用户定义变量 chihong=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 吃红技能键
20. 用户定义变量 chilan=DropList{按键1:49|按键2:50|按键3:51|按键4:52|按键5:53|按键6:54|按键7:55|按键8:56|按键9:57|按键0:48|按键F1:112|按键F2:113|按键F3:114|按键F4:115|按键F5:116|按键F6:117|按键F7:118|按键F8:119|按键F9:120|按键F10:121|无:0}=0 吃蓝技能键
21. 用户定义变量 zy=DropList{刺,弓手:1|狂拳:2}=0 选择职业
22. 用户定义变量 zd=DropList{组队:1|不组队:2}=0 选择组不组队
23. 用户定义变量 hong=80 血量<hong%时，自动吃红。
24. 用户定义变量 lan=30 蓝量<lan%时，自动吃蓝。
25. 用户定义变量 hongT=30 补血延时时间（毫秒）
26. 用户定义变量 lanT=30 补蓝延时时间（毫秒）
27. 用户定义变量 ys=100 技能延时（毫秒）
28. //下面这句是得到窗口句柄的客户区大小
29. 调用插件命令 Rect = Window.GetClientRect(Hwnd)
30. MyArray=Split(Rect,"|")
31. Ux=CLng(MyArray(0))
32. Uy=CLng(MyArray(1))
33. 如果 (4+Ux,28+Uy) 的颜色大约等于 #040CEF 则
34. 否则
35.     调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
36.     脚本停止运行
37. 条件结束
38. 调用插件命令 Bkgnd.LeftClick(Hwnd, 109+Ux, 740+Uy)
39. 调用插件命令 Bkgnd.SendString(Hwnd, "密传后台挂机脚本，防传送，１１０，ＧＭ形象＝＝＝々闲→情 ‰＝＝＝制作")
40. 延时100毫秒
41. 调用插件命令 Bkgnd.KeyPress(Hwnd, 13)
42. //设置结速
43. 标记 开始
44. 调用子程序 辅助技能
45. 标记 选怪
46. 调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
47. 如果表达式 (SX+Ux>0 and SY+Uy>0) 为真,则
48. 否则
49.     如果表达式 (zy=1) 为真,则
50.         调用子程序 辅助技能
51.     否则如果(zy=2)为真,则
52.         调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
53.         如果表达式 (TX+Ux>0 and TY+Uy>0) 为真,则
54.         否则
55.             调用子程序 辅助技能
56.         条件结束
57.     条件结束
58. 条件结束
59. 标记 检查组对
60. 调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
61. 如果表达式 (intX+Ux>0 and intY+Uy>0) 为真,则
62.     调用子程序 组队
63. 条件结束
64. 标记 决斗
65. 调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
66. 如果表达式 (KX+Ux>0 and KY+Uy>0) 为真,则
67.     调用子程序 决斗
68. 条件结束
69. 调用子程序 补红蓝
70. 调用插件命令 Bkgnd.KeyPress(Hwnd, 69)
71. 延时ys毫秒
72. 调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
73. 如果表达式 (JX+Ux>0 and JY+Uy>0) 为真,则
74.     跳转到标记 选怪
75. 条件结束
76. 调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
77. 如果表达式 (GX+Ux>0 and GY+Uy>0) 为真,则
78.     跳转到标记 选怪
79. 条件结束
80. 调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
81. 如果表达式 (LX+Ux>0 and LY+Uy>0) 为真,则
82.     跳转到标记 选怪
83. 条件结束
84. 标记 攻击
85. 调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
86. 如果表达式 (SX+Ux>0 and SY+Uy>0) 为真,则
87. 否则
88.     如果表达式 (zy=1) 为真,则
89.         调用子程序 辅助技能
90.     否则如果(zy=2)为真,则
91.         调用外部VBScript子程序 MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田 田 ▎ | ▎◆"&vbcr&" || &&▎ ▎ ▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓"&vbcr&""&vbcr&""&vbcr&" 游戏没有运行,脚本停止"&vbcr&""&vbcr&"请重新运行游戏,再启动脚本")
92.         如果表达式 (TX+Ux>0 and TY+Uy>0) 为真,则
93.         否则
94.             调用子程序 辅助技能
95.         条件结束
96.     条件结束
97. 条件结束
98. 如果 (164+Ux,70+Uy) 的颜色大约等于 #001EC7 则
99.     如果 (4+Ux,70+Uy) 的颜色大约等于 #072BA1 则
100.         标记 技能