1.                 标记 血条
  2.                 //判断战斗是否结束
  3.                 如果 (910,19) 的颜色等于 #4249FF 则
  4.                     延时128毫秒
  5.                     按键<F2>
  6.                     延时128毫秒
  7.                     //战斗中加血
  8.                     如果 (103+((202-103)*per2/100),40) 的颜色等于 #847500 则
  9.                         延时500毫秒
  10.                         按键<F4>
  11.                     条件结束
  12.                     延时128毫秒
  13.                     跳转到标记 血条
  14.                     标记 打怪结束
  15.                 条件结束
  16.             条件结束
  17.         否则
  18.             跳转到标记 坐标小移动
  19.         条件结束
  20.     否则
  21.         //解决怪不在大地图视线中的问题
  22.         标记 坐标小移动
  23.         xe=xb-512
  24.         ye=yb-384
  25.         de=(xe^2+ye^2)^0.5
  26.         xe1=(re*xe)/de+512
  27.         ye1=(re*ye)/de+384
  28.         鼠标移到 xe1 , ye1
  29.         延时500毫秒
  30.         左键单击
  31.         延时1500毫秒
  32.     条件结束
  33. 否则
  34.     //没怪随机移动
  35.     Randomize
  36.     xb3=Int((700-300)*Rnd+300)
  37.     yb3=Int((500-200)*Rnd+200)
  38.     鼠标移到 xb3 , yb3
  39.     延时500毫秒
  40.     左键单击
  41.     延时3000毫秒
  42. 条件结束
  43. 调用子程序 定时技能
  44. 调用子程序 休息
  45. 延时256毫秒
  46. //范围打怪
  47. 如果表达式 (mb=1) 为真,则
  48.     //检测一次要3秒钟,为了提高效率,一分钟检测一次
  49.     如果表达式 (DateDiff("s",t2,now)>=60) 为真,则
  50.         t2=now
  51.         调用子程序 范围检测
  52.     条件结束
  53. 条件结束
  54. //死亡停止挂机
  55. 如果 (103,34) 的颜色等于 #847500 则
  56.     跳转到标记 脚本结束
  57. 条件结束
  58. 调用子程序 防止卡住
  59. 跳转到标记 开始
  60. 标记 脚本结束
  61. 脚本停止运行
  62. //脚本结束~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  63. //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  64. 标记 子函数
  65. 子程序 定时技能
  66.     如果表达式 (DateDiff("s",t3,now)>=kt1) 为真,则
  67.         t3=now
  68.         按键<F4>
  69.         延时1000毫秒
  70.     条件结束
  71.     如果表达式 (DateDiff("s",t4,now)>=kt2) 为真,则
  72.         t4=now
  73.         按键<F5>
  74.         延时1000毫秒
  75.     条件结束
  76. 子程序结束,回到调用处
  77. 子程序 防止卡住
  78.     如果表达式 (DateDiff("s",t1,now)>=30) 为真,则
  79.         延时256毫秒
  80.         nd=nd+1
  81.         t1=now
  82.         调用子程序 获取坐标
  83.         xd=cint(z1)
  84.         yd=cint(z2)
  85.         md=nd mod 2
  86.         如果表达式 (md=0) 为真,则
  87.             xd1=xd
  88.             yd1=yd
  89.         条件结束
  90.         如果表达式 (md=1) 为真,则
  91.             xd2=xd
  92.             yd2=yd
  93.         条件结束
  94.         如果表达式 (xd1=xd2 and yd1=yd2) 为真,则
  95.             延时256毫秒
  96.             循环 2 遍
  97.                 //随机移动一段距离
  98.                 Randomize
  99.                 xd3=Int((700-300)*Rnd+300)
  100.                 yd3=Int((500-200)*Rnd+200)