1.     调用 竞技场打断()
  2. 否则如果 ms = 2 则
  3.     调用 古堡打怪()
  4.     调用 竞技场打断()
  5. 条件结束
  6. 如果 ms = 3 则
  7.     标记 竞技场小循环
  8.     延时 256 毫秒
  9.     调用 宠物模块1()
  10.     调用 宠物模块()
  11.     标记 关闭宠物升级2
  12.     调用 竞技场()
  13.     调用 竞技场打断()
  14.     跳转到标记 竞技场小循环
  15. 条件结束
  16. 如果 ms = 4 则
  17.     延时 256 毫秒
  18.     调用 副本打怪()
  19.     延时 256 毫秒
  20. 条件结束
  21. 令 n = n + 1
  22. 令 dgjs = dgjs + 1
  23. 如果 zdxx = 1 则
  24.     调用 WindowEx3.SendTextRgnString(tisi,"总计打怪数为：" & dgjs & "喝红瓶数为：" & hpjs & "喝蓝瓶数为:" & lpjs)
  25. 否则
  26.     延时 23 毫秒
  27.     跳转到标记 打怪开始
  28. 条件结束
  29. 延时 23 毫秒
  30. 跳转到标记 打怪开始
  31. 注释：---------------------------------------判断用户选择红的百分比
  32. 子程序 红的百分比()
  33.     如果 hong = 0 则
  34.         令 inx = 413
  35.         令 iny = 538
  36.         令 inz = "111516"
  37.         延时 23 毫秒
  38.     条件结束
  39.     如果 hong = 1 则
  40.         令 inx = 413
  41.         令 iny = 538
  42.         令 inz = "111516"
  43.         延时 23 毫秒
  44.     否则如果 hong = 2 则
  45.         令 inx = 427
  46.         令 iny = 550
  47.         令 inz = "161A1A"
  48.         延时 23 毫秒
  49.     条件结束
  50.     延时 23 毫秒
  51.     如果 hong = 3 则
  52.         令 inx = 441
  53.         令 iny = 563
  54.         令 inz = "353636"
  55.         延时 23 毫秒
  56.     否则如果 hong = 4 则
  57.         令 inx = 462
  58.         令 iny = 573
  59.         令 inz = "383C3D"
  60.         延时 23 毫秒
  61.     条件结束
  62.     延时 23 毫秒
  63. 子程序结束
  64. 注释：---------------------------------------判断用户选择蓝的百分比
  65. 子程序 蓝的百分比()
  66.     如果 lan = 1 则
  67.         令 ina = 584
  68.         令 inb = 540
  69.         令 inc = "0D1113"
  70.         延时 23 毫秒
  71.     否则如果 lan = 2 则
  72.         令 ina = 577
  73.         令 inb = 548
  74.         令 inc = "0F1315"
  75.         延时 23 毫秒
  76.     条件结束
  77.     延时 23 毫秒
  78.     如果 lan = 3 则
  79.         令 ina = 564
  80.         令 inb = 558
  81.         令 inc = "313435"
  82.         延时 23 毫秒
  83.     否则如果 lan = 4 则
  84.         令 ina = 539
  85.         令 inb = 572
  86.         令 inc = "2A2E2F"
  87.         延时 23 毫秒
  88.     条件结束
  89.     延时 23 毫秒
  90. 子程序结束
  91. 注释：---------------------------------------打怪开始
  92. 子程序 打怪()
  93.     如果 wz = 1 则
  94.         延时 25 毫秒
  95.         调用 Bkgnd.LeftClick(Hwnd,910,187)
  96.         延时 56 毫秒
  97.         调用 Bkgnd.LeftClick(Hwnd,910,187)
  98.     否则如果 wz = 2 则
  99.         延时 56 毫秒
  100.         调用 Bkgnd.LeftClick(Hwnd,910,246)