1.                     鼠标移到 555+(usemagic-1)*33 , 636
  2.                     左键单击
  3.                 条件结束
  4.             否则
  5.                 如果表达式 (EnterBattleTimeMs<25000 and SecondMagic>0) 为真,则
  6.                     //KeyPress 51,1
  7.                     按键<0>
  8.                 否则
  9.                     //KeyPress 49,1
  10.                     按键<0>
  11.                 条件结束
  12.             条件结束
  13.             调用子程序 战斗中将鼠标点击怪物上
  14.         条件结束
  15.     子程序结束,回到调用处
  16.     子程序 战斗抓宠操作
  17.         如果表达式 (fighting>0.) 为真,则
  18.             如果表达式 (MouseMode=1) 为真,则
  19.                 如果表达式 (LRCatchPetArr(2)=0) 为真,则
  20.                     //技能
  21.                     鼠标移到 552+(LRCatchPetArr(3)-1)*33 , 636
  22.                     左键单击
  23.                 否则如果(LRCatchPetArr(2)=1)为真,则
  24.                     //捕抓
  25.                     鼠标移到 804 , 360
  26.                     左键单击
  27.                 条件结束
  28.             否则
  29.                 如果表达式 (LRCatchPetArr(2)=0) 为真,则
  30.                     //技能
  31.                     按键<0>
  32.                 否则如果(LRCatchPetArr(2)=1)为真,则
  33.                     //捕抓
  34.                     按键<G>
  35.                 条件结束
  36.             条件结束
  37.             //最后将鼠标移到宝宝上点击,操作回合记录增1
  38.             鼠标移到 ExistPet(1) , ExistPet(2)
  39.             左键单击
  40.             延时200毫秒
  41.         条件结束
  42.     子程序结束,回到调用处
  43.     子程序 战斗中将鼠标点击怪物上
  44.         调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  45.         如果表达式 (monsterx>0) 为真,则
  46.             //09-05-29 修正怪物屏幕座标
  47.             RelMonsterPosArr=XMonsterPosArray(monsterx,monstery)
  48.             如果表达式 (RelMonsterPosArr(2)>=0) 为真,则
  49.                 monsterx=RelMonsterPosArr(0)
  50.                 monstery=RelMonsterPosArr(1)-85
  51.             条件结束
  52.             //
  53.             LastMonsterHpPos(0)=monsterx
  54.             LastMonsterHpPos(1)=monstery
  55.             延时200毫秒
  56.             鼠标移到 monsterx+MapMonCr(0)+25 , monstery+MapMonCr(1)+45
  57.             延时200毫秒
  58.             左键单击
  59.             延时200毫秒
  60.         否则
  61.             调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  62.             如果表达式 (monsterx>0) 为真,则
  63.                 LastMonsterHpPos(0)=monsterx
  64.                 LastMonsterHpPos(1)=monstery
  65.                 延时200毫秒
  66.                 鼠标移到 monsterx+MapMonCr(0)+25 , monstery+MapMonCr(1)+45
  67.                 延时200毫秒
  68.                 左键单击
  69.                 延时200毫秒
  70.             否则
  71.                 调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  72.                 如果表达式 (monsterx>0) 为真,则
  73.                     LastMonsterHpPos(0)=monsterx
  74.                     LastMonsterHpPos(1)=monstery
  75.                     延时200毫秒
  76.                     鼠标移到 monsterx+MapMonCr(0)+25 , monstery+MapMonCr(1)+45
  77.                     延时200毫秒
  78.                     左键单击
  79.                     延时200毫秒
  80.                 否则
  81.                     延时200毫秒
  82.                     鼠标移到 LastMonsterHpPos(0)+25 , LastMonsterHpPos(1)+37
  83.                     延时200毫秒
  84.                     左键单击
  85.                     延时200毫秒
  86.                     按键<A>
  87.                 条件结束
  88.             条件结束
  89.             左键单击
  90.             如果表达式 (debugon=1) 为真,则
  91.                 弹出窗口 monsterx
  92.             条件结束
  93.         条件结束
  94.     子程序结束,回到调用处
  95.     子程序 检查战斗中的前排生命值
  96.         如果表达式 (CharacherHpPositionY<=0 or FHPMiss>0) 为真,则
  97.             调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  98.             如果表达式 ((ColorCompare(GetPixelColor(CharacherHpPositionX+40,CharacherHpPositionY+12),"DEDFDE",15)<=0 or ColorCompare(GetPixelColor(CharacherHpPositionX,CharacherHpPositionY),"DEDFDE",15)<=0)) 为真,则
  99.                 FHPMiss=1
  100.                 //MsgBox "Ron"