1.                                     atkid=mid(attackorder,k+1,1)
  2.                                     k=k+1:k=k mod len(attackOrder)
  3.                                     如果表达式 (atkid="1") 为真,则
  4.                                         //Plugin mmove.Lclick(hwnd,atkdirx(0)-main_win_left,atkdiry(0)-main_win_top)
  5.                                         调用插件命令 BGKM5.Lclick(hwnd,atkdirx(0)-main_win_left,atkdiry(0)-main_win_top)
  6.                                         调用插件命令 BGKM5.Lclick(hwnd,atkdirx(0)-main_win_left,atkdiry(0)-main_win_top)
  7.                                     否则如果(atkid="2")为真,则
  8.                                         //Plugin mmove.Lclick(hwnd,atkdirx(1)-main_win_left,atkdiry(1)-main_win_top)
  9.                                         调用插件命令 BGKM5.Lclick(hwnd,atkdirx(1)-main_win_left,atkdiry(1)-main_win_top)
  10.                                         调用插件命令 BGKM5.Lclick(hwnd,atkdirx(1)-main_win_left,atkdiry(1)-main_win_top)
  11.                                     否则
  12.                                         //Plugin mmove.Lclick(hwnd,atkdirx(2)-main_win_left,atkdiry(2)-main_win_top)
  13.                                         调用插件命令 BGKM5.Lclick(hwnd,atkdirx(2)-main_win_left,atkdiry(2)-main_win_top)
  14.                                         调用插件命令 BGKM5.Lclick(hwnd,atkdirx(2)-main_win_left,atkdiry(2)-main_win_top)
  15.                                     条件结束
  16.                                 条件结束
  17.                             条件结束
  18.                             //未授权
  19.                             调用插件命令 bcxy=Bkgnd.FindColor(hwnd,390-main_win_left,368-main_win_top,395-main_win_left,373-main_win_top,"ba")
  20.                             延时100毫秒
  21.                             如果表达式 (bcxy<>"-1|-1") 为真,则
  22.                                 跳转到标记 exwhilebtl
  23.                             条件结束
  24.                             //与游戏兼容性战斗是否结束
  25.                             调用插件命令 bcxy=Bkgnd.FindColor(hwnd,350-main_win_left,365-main_win_top,365-main_win_left,380-main_win_top,"7a")
  26.                             //msgbox bcxy
  27.                             如果表达式 (bcxy<>"-1|-1") 为真,则
  28.                                 跳转到标记 exwhilebtl
  29.                             条件结束
  30.                             //TracePrint "attack: " & atkid
  31.                             延时700毫秒
  32.                         循环结束
  33.                         标记 exwhilebtl
  34.                         如果表达式 (bcxy<>"-1|-1") 为真,则
  35.                             //ietxt(1).innerText="结束战斗:" & bcxy
  36.                             在调试状态下向调试窗口输出 "结束战斗:" & bcxy
  37.                             //信息,后台喊话不发
  38.                             //Plugin BGKM5.LClick(hwnd,127-main_win_left,696-main_win_top)
  39.                             //Plugin BGKM5.LClick(hwnd,127-main_win_left,696-main_win_top)
  40.                             //Plugin BGKM5.LClick(hwnd,127-main_win_left,696-main_win_top)
  41.                             //SayString toltimes & "/" & dienums
  42.                             //防止待机
  43.                             调用外部VBScript子程序 得到鼠标当前位置(nnnx,nnny)
  44.                             鼠标移到 nnnx+1 , nnny
  45.                             延时mindly毫秒
  46.                             //与游戏兼容性是否死亡
  47.                             调用插件命令 bcxy=Bkgnd.FindColor(hwnd,310-main_win_left,310-main_win_top,320-main_win_left,320-main_win_top,"1717c8")
  48.                             chkdiexy=split(bcxy,"|",-1,1)
  49.                             如果表达式 (bcxy<>"-1|-1") 为真,则
  50.                                 在调试状态下向调试窗口输出 "you died......" & dienums
  51.                                 gameinfotext="[" & time & "]死亡，开始复活!！！！！！！" & dienums & vbcrlf & gameinfotext
  52.                                 调用子程序 renewDrgGameInf2
  53.                                 //msgbox bcxy
  54.                                 dienums=dienums+1
  55.                                 //msgbox "你太弱了，经不起战斗的考验，快回家修炼去吧！",48," -- ghost网页对话框"
  56.                                 调用子程序 die
  57.                             否则
  58.                                 //与游戏兼容性自己在队列的第几个位置(名字绿色)
  59.                                 调用插件命令 bcxy=Bkgnd.FindColor(hwnd,610-main_win_left,218-main_win_top,641-main_win_left,406-main_win_top,"6600")
  60.                                 chkplacexy=split(bcxy,"|",-1,1)
  61.                                 mytermid=chkplacexy(1)+13
  62.                                 //msgbox bcxy & "11111111"
  63.                                 如果表达式 (bcxy<>"-1|-1") 为真,则
  64.                                     在调试状态下向调试窗口输出 "mytermid" & mytermid
  65.                                     //是否吃面包？
  66.                                     如果表达式 (eatbread=1) 为真,则
  67.                                         调用子程序 eatbreadsub
  68.                                     条件结束
  69.                                     //与游戏兼容性血量-红
  70.                                     调用插件命令 bcxy=Bkgnd.FindColor(hwnd,bloodx1-main_win_left-1,mytermid,bloodx2-main_win_left+5,mytermid+2,"0000A3")
  71.                                     chkbloodxy=split(bcxy,"|",-1,1)
  72.                                     x=chkbloodxy(0)*1
  73.                                     y=chkbloodxy(1)*1
  74.                                     // msgbox mytermid-main_win_top+67
  75.                                     调用插件命令 bcxy=Bkgnd.FindColor(hwnd,bloodx1-main_win_left-1,mytermid,bloodx2-main_win_left+5,mytermid+2,"999999")
  76.                                     chkbloodxy2=split(bcxy,"|",-1,1)
  77.                                     bloodx=chkbloodxy2(0)*1
  78.                                     //msgbox bcxy & bloodx
  79.                                     如果表达式 (x>0 or (x<0 and bloodx<0)) 为真,则
  80.                                         k=0
  81.                                         在调试状态下向调试窗口输出 "杀死怪物：" & toltimes &"次."
  82.                                         gameinfotext="[" & time & "]杀死怪物：" & toltimes &"次." & vbcrlf & gameinfotext
  83.                                         调用子程序 renewDrgGameInf2
  84.                                         toltimes=toltimes+1
  85.                                         tolExp=tolExp+perExp
  86.                                         //失血数量转化为恢复时间
  87.                                         如果表达式 (x>0 and bloodx=-1) 为真,则
  88.                                             bloodx=bloodx2
  89.                                         条件结束
  90.                                         bldUpTime=int(((bloodx2-bloodx)/(bloodx2-bloodx1+1)*blood)/bldupspd)*1000
  91.                                         调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  92.                                         调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  93.                                         调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  94.                                         如果表达式 (bldUpTime<0) 为真,则
  95.                                             bldUpTime=maxdly
  96.                                         条件结束
  97.                                         如果表达式 (bldUptime>int(blood/bldUpSpd+5)*1000) 为真,则
  98.                                             bldUpTime=int(blood/bldUpSpd)*1000
  99.                                         条件结束
  100.                                         //是否磨矿粉1～2次