1.     否则
  2.         令 stateinfo = stateinfo
  3.     条件结束
  4.     显示信息()
  5.     （键盘）按 "-" 键, 1次
  6.     延时 5000 + int(rnd * 1000) 毫秒
  7.     令 d2state = 1
  8.     令 xx = xx + 1
  9. 子程序结束
  10. 子程序 onscriptexit
  11.     调用 Window.SetText(d2_Hwnd,d2_winTip)
  12. 子程序结束
  13. 子程序 creatgame
  14.     令 stateinfo = "创建游戏"
  15.     显示信息()
  16.     (语句无法识别，可能有错误): Call Plugin.Bkgnd.LeftClick(d2_hwnd,600, 460) //开创按钮 600 460
  17.     注释：输入游戏名
  18.     令 gamename = ""
  19.     令 zz = ""
  20.     令 i = 1
  21.     令 jj = 4 + int(rnd * 4)
  22.     令 namebaohan = "123era"
  23.     令 text = Split(namebaohan,"",- 1 )
  24.     循环当 i < jj 时
  25.         令 i = i + 1
  26.         令 t = int(rnd * 6) + 1
  27.         令 zz = mid(namebaohan,t,1)
  28.         令 gamename = gamename & zz
  29.     循环结束
  30.     延时 1000 + int(rnd * 100) 毫秒
  31.     输入文本 gamename
  32.     令 xxy = xx
  33.     延时 500 + int(rnd * 100) 毫秒
  34.     调用 Bkgnd.LeftClick(d2_hwnd,666,414)
  35.     延时 2000 + int(rnd * 100) 毫秒
  36. 子程序结束
  37. 子程序 pickup
  38.     令 stateinfo = "拾取物品"
  39.     显示信息()
  40.     延时 500 毫秒
  41.     令 i = 0
  42.     循环当 i < 5 时
  43.         （鼠标）移动到 (d2_pyx + 100, d2_pyy + 400)
  44.         延时 200 + int(rnd * 100) 毫秒
  45.         （键盘）按下 "Alt" 键
  46.         从左上到右下查找图片 "Attachment:\暗金.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：d2_pyx + 550 - 250 上：d2_pyy + 200 - 200 右：d2_pyx + 550 + 250 下：d2_pyy + 200 + 200），相似度 0.6
  47.         从左上到右下查找图片 "Attachment:\绿色.bmp"，把找到的坐标保存到 (intX1, intY1)，指定区域（左：d2_pyx + 550 - 250 上：d2_pyy + 200 - 200 右：d2_pyx + 550 + 250 下：d2_pyy + 200 + 200），相似度 0.6
  48.         从左上到右下查找图片 "Attachment:\黄金.bmp"，把找到的坐标保存到 (intX2, intY2)，指定区域（左：d2_pyx + 550 - 250 上：d2_pyy + 200 - 200 右：d2_pyx + 550 + 250 下：d2_pyy + 200 + 200），相似度 0.6
  49.         从左上到右下查找图片 "Attachment:\蓝色.bmp"，把找到的坐标保存到 (intX4, intY4)，指定区域（左：d2_pyx + 550 - 250 上：d2_pyy + 200 - 200 右：d2_pyx + 550 + 250 下：d2_pyy + 200 + 200），相似度 0.6
  50.         从左上到右下查找图片 "Attachment:\有用的.bmp"，把找到的坐标保存到 (intX3, intY3)，指定区域（左：d2_pyx + 550 - 250 上：d2_pyy + 200 - 200 右：d2_pyx + 550 + 250 下：d2_pyy + 200 + 200），相似度 0.6
  51.         延时 500 + int(rnd * 100) 毫秒
  52.         如果 intx > 0 则
  53.             调用 Msg.Tips("第" & xx & "次KP,打到暗金装备")
  54.             调用 File.WriteFileEx("..\zdkp_log.txt",ow & ":第" & xx & "次KP,打到暗金装备")
  55.             （鼠标）移动到 (intx, inty)
  56.         否则如果 intx1 > 0 则
  57.             调用 Msg.Tips("第" & xx & "次KP,打到绿色物品")
  58.             调用 File.WriteFileEx("zdkp_log.txt",ow & ":第" & xx & "次KP,打到绿色物品")
  59.             （鼠标）移动到 (intx1, inty1)
  60.         否则如果 intx2 > 0 则
  61.             调用 Msg.Tips("第" & xx & "次KP,打到黄金物品")
  62.             调用 File.WriteFileEx("zdkp_log.txt",ow & ":第" & xx & "次KP,打到黄金物品")
  63.             （鼠标）移动到 (intx2, inty2)
  64.         否则如果 intx4 > 0 则
  65.             调用 Msg.Tips("第" & xx & "次KP,打到蓝色物品")
  66.             调用 File.WriteFileEx("zdkp_log.txt",ow & ":第" & xx & "次KP,打到蓝色物品")
  67.             （鼠标）移动到 (intx4, inty4)
  68.         否则如果 intx3 > 0 则
  69.             调用 Msg.Tips("第" & xx & "次KP,打到宝有用的")
  70.             调用 File.WriteFileEx("zdkp_log.txt",ow & ":第" & xx & "次KP,打到宝有用的")
  71.             （鼠标）移动到 (intx3, inty3)
  72.         否则
  73.             调用 Msg.Tips("第" & xx & "次KP,一无所获")
  74.             调用 File.WriteFileEx("zdkp_log.txt",now & ":第" & xx & "次KP,一无所获")
  75.             （键盘）弹起 "ALT" 键
  76.             跳出循环
  77.         条件结束
  78.         延时 100 毫秒
  79.         （鼠标）左键单击, 1次
  80.         延时 1000 + int(rnd * 200) 毫秒
  81.         （键盘）弹起 "ALT" 键
  82.         令 i = i + 1
  83.     循环结束
  84.     如果 i = 5 则
  85.         令 isfull = 1
  86.     条件结束
  87. 子程序结束
  88. 函数 dangerBack()
  89.     注释：Pet HP是否过低，过低自动回城，等待20
  90.     从左上到右下查找颜色 "008400"，把找到的坐标保存到 (intX, intY)，指定区域（左：d2_pyx 上：d2_pyy 右：d2_pyx + 200 下：d2_pyy + 200）
  91.     令 getcolor = 得到指定点 (d2_pyx + 75, d2_pyy + 555) 的颜色
  92.     如果 getcolor = "5c" 则
  93.     否则
  94.         （键盘）按 "2" 键, 1次
  95.     条件结束
  96.     如果 intX < 0 则
  97.         令 stateinfo = "佣兵危险，退出游戏"
  98.         调用 File.WriteFileEx("zdkp_log.txt",now & ":第" & (xx - 1) & "次KP,佣兵危险，退出游戏")
  99.         令 dangerBack = 1
  100.         （键盘）按下 "Shift" 键