1.             //战斗时间大于最大战斗时间强制刷新,避免卡在无尽的战斗中
  2.             按键<Print Screen>
  3.             调用子程序 刷新部分
  4.         条件结束
  5.         调用子程序 检查是否战斗
  6.         //Gosub 防卡刷新60
  7.     循环结束
  8.     //战斗结
  9.     //Gosub 防卡刷新重置
  10.     调用子程序 检查战斗后宠物生命值
  11.     调用子程序 检查战斗后角色生命法力值
  12.     AfterBattleRestoreHp=0
  13.     如果表达式 (Bhplow=1 and AfterBattleRestoreHp<10) 为真,则循环执行
  14.         //战斗后使用便价药恢复HP 键7
  15.         如果表达式 (MouseMode=1) 为真,则
  16.             鼠标移到 750 , 635
  17.             左键双击
  18.         否则
  19.             按键<7>
  20.         条件结束
  21.         延时1500毫秒
  22.         调用子程序 检查战斗后角色生命法力值
  23.         AfterBattleRestoreHp=AfterBattleRestoreHp+1
  24.     循环结束
  25.     AfterBattleRestoreMp=0
  26.     如果表达式 (Bmplow=1 and AfterBattleRestoreMp<10) 为真,则循环执行
  27.         //战斗后使用便价药恢复MP 键8
  28.         如果表达式 (MouseMode=1) 为真,则
  29.             鼠标移到 782 , 631
  30.             左键双击
  31.         否则
  32.             按键<8>
  33.         条件结束
  34.         延时1500毫秒
  35.         调用子程序 检查战斗后角色生命法力值
  36.         AfterBattleRestoreMp=AfterBattleRestoreMp+1
  37.     循环结束
  38.     调用子程序 BUG死亡复活
  39.     调用子程序 宠物忠诚回复
  40.     跳转到标记 打怪区
  41. 条件结束
  42. //!!
  43. 如果表达式 (debugon=1) 为真,则
  44.     弹出窗口 place
  45. 条件结束
  46. 脚本停止运行
  47. //================================================
  48. //================================================
  49. //================================================
  50. //================================================
  51. //===================EndScript====================
  52. //================================================
  53. //================================================
  54. //================================================
  55. //================================================
  56. //以下都是Sub
  57. 子程序 调整游戏登录的窗口位置
  58.     //----∨∨∨∨∨∨----
  59.     //调整窗口位置
  60.     Dim mlxtwinrect, strtemp, mlxtcolorx, mlxtcolory, chxydshxhw, MvWinR
  61.     调用插件命令 mlxthw=Window.Foreground()
  62.     调用插件命令 strtemp=Window.GetWindowRect(mlxthw)
  63.     mlxtwinrect=Split(strtemp,"|")
  64.     //得到新窗口位置
  65.     延时500毫秒
  66.     mlxtcolorx = 0
  67.     mlxtcolory = 0
  68.     MvWinR = 0
  69.     //Rem 重新移动刷新后的新窗口
  70.     FiCoWait = 0
  71.     如果表达式 (Abs(Abs(Int((CInt(mlxtwinrect(2))+CInt(mlxtwinrect(0)))/2)-mlxtcolorx)-21)>1 And FiCoWait<30) 为真,则循环执行
  72.         调用外部VBScript子程序 在屏幕区域里查找图形(104,124,597,599,"神盾.bmp",0.5,gggggo,huuuggg)
  73.         延时2000毫秒
  74.         FiCoWait = FiCoWait+1
  75.     循环结束
  76.     如果表达式 (Abs(Abs(Int((CInt(mlxtwinrect(2))+CInt(mlxtwinrect(0)))/2)-mlxtcolorx)-21)<=1) 为真,则
  77.         //颜色出现,Loading完毕
  78.         MvWinR = 1
  79.     否则
  80.         MvWinR = 0
  81.     条件结束
  82.     延时500毫秒
  83.     鼠标移到 mlxtcolorx , mlxtcolory
  84.     延时500毫秒
  85.     chxydshxhw=0
  86.     如果表达式 ((mlxtcolorx<>525 or mlxtcolory<>147) And MvWinR>0 And chxydshxhw<10) 为真,则循环执行
  87.         mlxthwsubx=525-mlxtcolorx
  88.         mlxthwsuby=147-mlxtcolory
  89.         鼠标移到 mlxtwinrect(0)+50 , mlxtwinrect(1)+10
  90.         延时200毫秒
  91.         左键按下
  92.         延时200毫秒
  93.         //--先移一下
  94.         鼠标移到 100 , 30
  95.         延时100毫秒
  96.         //--
  97.         如果表达式 (mlxtcolorx>0) 为真,则
  98.             鼠标移到 mlxtwinrect(0)+50+mlxthwsubx , mlxtwinrect(1)+10+mlxthwsuby
  99.         条件结束
  100.         延时100毫秒