1.     标记 B(子程序 打程远志判断)
  2.     调用 Bkgnd.KeyPress(hwnd,123)
  3.     调用 异常判断()
  4. 子程序结束
  5. 子程序 打怪
  6.     如果 zhiye = 0 则
  7.         调用 武将出招()
  8.     否则如果 zhiye = 1 则
  9.         调用 刺客出招()
  10.     否则如果 zhiye = 2 则
  11.         调用 谋士出招()
  12.     否则如果 zhiye = 3 则
  13.         调用 方士出招()
  14.     条件结束
  15.     延时 1500 毫秒
  16.     调用 异常判断()
  17. 子程序结束
  18. 函数 查找技能所在坐标(Flag,key)
  19.     令 intXJn0 = - 1
  20.     令 intYJn0 = - 1
  21.     如果 key = "000" 则
  22.         向调试窗口输出："技能没使用"
  23.     否则如果 key = "1" 则
  24.         令 intXJn0 = 158
  25.         令 intYJn0 = 576
  26.     否则如果 key = "2" 则
  27.         令 intXJn0 = 192
  28.         令 intYJn0 = 576
  29.     否则如果 key = "3" 则
  30.         令 intXJn0 = 229
  31.         令 intYJn0 = 576
  32.     否则如果 key = "4" 则
  33.         令 intXJn0 = 256
  34.         令 intYJn0 = 576
  35.     否则如果 key = "5" 则
  36.         令 intXJn0 = 291
  37.         令 intYJn0 = 576
  38.     否则如果 key = "6" 则
  39.         令 intXJn0 = 326
  40.         令 intYJn0 = 576
  41.     否则如果 key = "7" 则
  42.         令 intXJn0 = 361
  43.         令 intYJn0 = 576
  44.     否则如果 key = "8" 则
  45.         令 intXJn0 = 396
  46.         令 intYJn0 = 576
  47.     否则如果 key = "9" 则
  48.         令 intXJn0 = 431
  49.         令 intYJn0 = 576
  50.     否则如果 key = "0" 则
  51.         令 intXJn0 = 474
  52.         令 intYJn0 = 576
  53.     否则如果 key = "11" 则
  54.         令 intXJn0 = 158
  55.         令 intYJn0 = 537
  56.     否则如果 key = "22" 则
  57.         令 intXJn0 = 192
  58.         令 intYJn0 = 537
  59.     否则如果 key = "33" 则
  60.         令 intXJn0 = 229
  61.         令 intYJn0 = 537
  62.     否则如果 key = "44" 则
  63.         令 intXJn0 = 256
  64.         令 intYJn0 = 537
  65.     否则如果 key = "55" 则
  66.         令 intXJn0 = 291
  67.         令 intYJn0 = 537
  68.     否则如果 key = "66" 则
  69.         令 intXJn0 = 326
  70.         令 intYJn0 = 537
  71.     否则如果 key = "77" 则
  72.         令 intXJn0 = 361
  73.         令 intYJn0 = 537
  74.     否则如果 key = "88" 则
  75.         令 intXJn0 = 396
  76.         令 intYJn0 = 537
  77.     否则如果 key = "99" 则
  78.         令 intXJn0 = 431
  79.         令 intYJn0 = 537
  80.     否则如果 key = "00" 则
  81.         令 intXJn0 = 474
  82.         令 intYJn0 = 537
  83.     条件结束
  84.     注释： TracePrint "技能所在坐标：" & intXJn0 & "," & intYJn0
  85.     调用 技能坐标定位(intXJn0,intYJn0,Flag)
  86. 函数结束
  87. 函数 技能坐标定位(intXJn0,intYJn0,Flag)
  88.     如果 Flag = "Jn1" 则
  89.         令 intXJn1 = intXJn0
  90.         令 intYJn1 = intYJn0
  91.     否则如果 Flag = "Jn2" 则
  92.         令 intXJn2 = intXJn0
  93.         令 intYJn2 = intYJn0
  94.     否则如果 Flag = "Jn3" 则
  95.         令 intXJn3 = intXJn0
  96.         令 intYJn3 = intYJn0
  97.     否则如果 Flag = "Jn4" 则
  98.         令 intXJn4 = intXJn0
  99.         令 intYJn4 = intYJn0
  100.     否则如果 Flag = "Jn5" 则