1. 用户定义变量 sctime=100"传送延时"
  2. 用户定义变量 runtime=1300"跑路延时"
  3. 用户定义变量 tphotkey=droplist{"F1":"F1"|"F2":"F2"|"F3":"F3"|"F4":"F4"|"F5":"F5"|"F6":"F6"|"F7":"F7"}=3"传送热键"
  4. 用户定义变量 akhotkey=droplist{"F1":"F1"|"F2":"F2"|"F3":"F3"|"F4":"F4"|"F5":"F5"|"F6":"F6"|"F7":"F7"}=2"攻击热键"
  5. 用户定义变量 amhotkey=droplist{"F1":"F1"|"F2":"F2"|"F3":"F3"|"F4":"F4"|"F5":"F5"|"F6":"F6"|"F7":"F7"}=4"护盾热键"
  6. 定义变量 d2_sysinfo, d2_winTip, d2_hwnd, rect, d2_rect, d2_uix, d2_uiy, d2_uix1, d2_uiy1
  7. 令 Hwnd = window.Foreground()
  8. 令 d2_sysinfo = d2_sysinfo & "WinHwnd:" & Hwnd & " "
  9. 令 d2_winTip = window.GetText(Hwnd)
  10. 令 d2_sysinfo = d2_sysinfo & "WinTip:" & d2_winTip & " "
  11. 令 d2_hwnd = Window.MousePoint()
  12. 令 d2_sysinfo = d2_sysinfo & "ClientHwnd:" & d2_hwnd
  13. 向调试窗口输出:d2_sysinfo
  14. 注释:Plugin window.Max(d2_hwnd)
  15. 令 rect = Window.GetClientRect(d2_hwnd)
  16. 向调试窗口输出:"RECT:" & rect
  17. 令 d2_rect = split(rect,"|")
  18. 令 d2_uix = d2_rect(0) * 1
  19. 令 d2_uiy = d2_rect(1) * 1
  20. 令 d2_uiw = d2_rect(2) * 1
  21. 令 d2_uih = d2_rect(3) * 1
  22. 令 d2_ux = d2_uix
  23. 令 d2_uy = d2_uiy
  24. 注释:MoveTo d2_ux,d2_uy
  25. 注释:EndScript
  26. randomize
  27. 注释:这里判断偏移
  28. 令 d2_pyx = d2_ux + 0
  29. 令 d2_pyy = d2_uy + 0
  30. 向调试窗口输出:"d2_pyx,d2_pyy: " & d2_pyx & "," & d2_pyy
  31. 令 maxdelay = 15
  32. 令 xx = 1
  33. 令 isdanger = 0
  34. 令 isfull = 0
  35. main()
  36. 子程序 main
  37.     令 stateinfo = "开启脚本,检测......."
  38.     显示信息()
  39.     循环开始
  40.         注释:【检测角色状态】
  41.         令 d2state = getD2State()
  42.         延时 1000 + int(rnd * 100) 毫秒
  43.         根据 d2state 选择
  44.         情况 1:
  45.             注释:大厅
  46.             creatgame()
  47.         情况 2:
  48.             注释:哈勒加斯
  49.             延时 int(rnd * 2000) 毫秒
  50.             令 isdanger = 0
  51.             令 isdanger = dangerBack()
  52.             如果 isdanger = 1 则
  53.                 令 stateinfo = "佣兵死亡,复活佣兵"
  54.                 显示信息()
  55.                 fuhuopet()
  56.                 exitGame()
  57.             条件结束
  58.             如果 isfull = 1 则
  59.                 cunfangwupin()
  60.                 令 isfull = 0
  61.                 exitGame()
  62.             条件结束
  63.             RuntoAA()
  64.             inTPdoor()
  65.         情况 3:
  66.             注释:尼拉塞克
  67.             Runtolaopi()
  68.             ATTACK()
  69.             如果 isdanger = 0 并且 isfull = 0 则
  70.                 pickup()
  71.             条件结束
  72.             exitGame()
  73.         情况 4:
  74.             Window.Top(Hwnd,0)
  75.             Window.Active(Hwnd)
  76.             延时 1000 毫秒
  77.             注释:超时
  78.         选择结束
  79.         显示信息()
  80.     循环结束
  81. 子程序结束
  82. 子程序 RuntoAA
  83.     令 stateinfo = "跑向红门"
  84.     显示信息()
  85.     定义变量 zz
  86.     定义变量 tt(2)
  87.     令 tt(0) = "21 ,232 | 72 ,350 | 182, 520 |115 ,490 | 111, 500 | 482 ,600 "
  88.     令 tt(1) = "265, 517 | 737 ,452 |116, 479 |30, 402 |32 ,469 |136, 369"
  89.     令 tt(2) = "205,484|215,420|300,535|300,535|40,500|227,236"
  90.     令 xj = int(rnd * 10)
  91.     如果 xj < 8 则
  92.         令 zz = tt(2)
  93.     否则如果 xj < 9 则
  94.         令 zz = tt(1)
  95.     否则
  96.         令 zz = tt(0)
  97.     条件结束
  98.     定义变量 zouwei
  99.     令 zouwei = Split(zz,"|",- 1 ,0)
  100.     令 i = 0