1.                                         secondmdust=0
  2.                                         如果表达式 (makeoredust=1) 为真,则
  3.                                             如果表达式 (blduptime>=30000) 为真,则
  4.                                                 secondmdust=1
  5.                                                 调用子程序 makeoredustsub
  6.                                                 secondmdust=0
  7.                                                 延时30000毫秒
  8.                                             条件结束
  9.                                             //TracePrint "开始磨矿粉 "
  10.                                             gameinfotext="[" & time & "]正在磨矿粉..." & vbcrlf & gameinfotext
  11.                                             调用子程序 renewDrgGameInf2
  12.                                             调用子程序 makeoredustsub
  13.                                         条件结束
  14.                                         如果表达式 (eatbread=0) 为真,则
  15.                                             如果表达式 (makeoredust=1) 为真,则
  16.                                                 如果表达式 (bldUpTime>=30000) 为真,则
  17.                                                     //磨粉的过程耗时3*maxdly
  18.                                                     在调试状态下向调试窗口输出 "wait for " & bldUpTime-30000-int((blduptime-30000)/(3*maxdly))*3*maxdly
  19.                                                     gameinfotext="[" & time & "]wait for.. " & bldUpTime-30000-int((blduptime-30000)/(3*maxdly))*3*maxdly & vbcrlf & gameinfotext
  20.                                                     调用子程序 renewDrgGameInf2
  21.                                                     延时bldUpTime-30000-int((blduptime-30000)/(3*maxdly))*3*maxdly毫秒
  22.                                                 否则
  23.                                                     在调试状态下向调试窗口输出 "wait for " & bldUpTime-3*maxdly
  24.                                                     gameinfotext="[" & time & "]wait for.. " & bldUpTime-30000-int((blduptime-30000)/(3*maxdly))*3*maxdly & vbcrlf & gameinfotext
  25.                                                     调用子程序 renewDrgGameInf2
  26.                                                     延时bldUpTime-3*maxdly毫秒
  27.                                                 条件结束
  28.                                             否则
  29.                                                 在调试状态下向调试窗口输出 "wait for " & bldUpTime
  30.                                                 gameinfotext="[" & time & "]wait for.. " & bldUpTime & vbcrlf & gameinfotext
  31.                                                 调用子程序 renewDrgGameInf2
  32.                                                 延时bldUpTime毫秒
  33.                                             条件结束
  34.                                         否则
  35.                                             在调试状态下向调试窗口输出 "wait for " & maxdly
  36.                                             gameinfotext="[" & time & "]wait for.. " & maxdly & vbcrlf & gameinfotext
  37.                                             调用子程序 renewDrgGameInf2
  38.                                             延时maxdly毫秒
  39.                                         条件结束
  40.                                         调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  41.                                         调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  42.                                         调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  43.                                     否则
  44.                                         //未授权是空白则继续狩猎
  45.                                         在调试状态下向调试窗口输出 "未授权，继续狩猎!"
  46.                                         gameinfotext="[" & time & "]" & "未授权，继续狩猎!" & vbcrlf & gameinfotext
  47.                                         调用子程序 renewDrgGameInf2
  48.                                         调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  49.                                         调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  50.                                         调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  51.                                         //bldUpTime=int(blood/bldUpSpd)*1000
  52.                                         //Delay maxDly+bldUpTime
  53.                                     条件结束
  54.                                 条件结束
  55.                             条件结束
  56.                         条件结束
  57.                     条件结束
  58.                     延时mindly毫秒
  59.                 循环结束
  60.             脚本停止运行
  61.             //Rem xxxx
  62.             //Gosub die
  63.             子程序 die
  64.                 //msgbox ""
  65.                 dim fh_i,fh_j
  66.                 diedly=5000
  67.                 //设置复活路径,0复活点12345分别表示路径所在行
  68.                 //烈焰谷//fhlj="2120232"
  69.                 //安格里拉村 fhlj="22015"
  70.                 //烈焰广场 fhlj="201"
  71.                 调用插件命令 BGKM5.LClick(hwnd,595-main_win_left,77-main_win_top)
  72.                 调用插件命令 BGKM5.LClick(hwnd,595-main_win_left,77-main_win_top)
  73.                 调用插件命令 BGKM5.LClick(hwnd,595-main_win_left,77-main_win_top)
  74.                 延时diedly毫秒
  75.                 fh_i=1
  76.                 如果表达式 (fh_i<=len(fhlj)) 为真,则循环执行
  77.                     fh_j=mid(fhlj,fh_i,1)*1
  78.                     //msgbox fh_j
  79.                     调用插件命令 BGKM5.LClick(hwnd,fhx(fh_j)-main_win_left,fhy(fh_j)-main_win_top)
  80.                     调用插件命令 BGKM5.LClick(hwnd,fhx(fh_j)-main_win_left,fhy(fh_j)-main_win_top)
  81.                     如果表达式 (fh_j=0) 为真,则
  82.                         diedly=diedly+20000
  83.                     条件结束
  84.                     fh_i=fh_i+1
  85.                     延时diedly毫秒
  86.                 循环结束
  87.                 diedly=diedly-20000
  88.                 调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  89.                 调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  90.                 调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  91.                 延时diedly毫秒
  92.             子程序结束,回到调用处
  93.         脚本停止运行
  94.         子程序 eatbreadsub
  95.             dim breadxy
  96.             dim ebx,eby
  97.             标记 restarteb
  98.             调用插件命令 BGKM5.LClick(hwnd,296-main_win_left,78-main_win_top)
  99.             延时1000毫秒
  100.             调用插件命令 ebsubxy=Bkgnd.FindColor(hwnd,285-main_win_left,112-main_win_top,287-main_win_left,114-main_win_top,"A6")