1. 如果表达式 (Not(IsNumeric(EliteMonsterEscape))) 为真,则
  2.     EliteMonsterEscape=0
  3. 条件结束
  4. 如果表达式 (Not(IsNumeric(AutoGoToPlace))) 为真,则
  5.     AutoGoToPlace=0
  6. 条件结束
  7. //If Not(IsNumeric(Leader))
  8. // Leader=0
  9. //EndIf
  10. //-------------------------------------------
  11. 如果表达式 (Not(Bhppercent>=0 Or Bhppercent<=90)) 为真,则
  12.     Bhppercent = 90
  13. 条件结束
  14. 如果表达式 (Not(Bmppercent>=0 Or Bmppercent<=90)) 为真,则
  15.     Bmppercent = 90
  16. 条件结束
  17. 如果表达式 (Not(usemagic>=0 Or usemagic<=9)) 为真,则
  18.     usemagic = 0
  19. 条件结束
  20. 如果表达式 (Not(SecondMagic>=0 Or SecondMagic<=9)) 为真,则
  21.     SecondMagic = 0
  22. 条件结束
  23. 如果表达式 (Not(petusemagic>=0 Or petusemagic<=9)) 为真,则
  24.     petusemagic = 0
  25. 条件结束
  26. 如果表达式 (Not(TreatPet>=0 Or TreatPet<=9)) 为真,则
  27.     TreatPet = 5
  28. 条件结束
  29. 如果表达式 (Not(TreatSelf>=0 Or TreatSelf<=9)) 为真,则
  30.     TreatSelf = 5
  31. 条件结束
  32. （VBScript语句） hppercent=CInt(hppercent*48/100)
  33. （VBScript语句） mppercent=CInt(mppercent*48/100)
  34. （VBScript语句） pethppercent=CInt(pethppercent*48/100)
  35. （VBScript语句） petmppercent=CInt(petmppercent*48/100)
  36. （VBScript语句） Bhppercent=CInt(Bhppercent*85/100)
  37. （VBScript语句） Bmppercent=CInt(Bmppercent*85/100)
  38. 如果表达式 (CharacherAtFont<=0) 为真,则
  39.     HpMpTmpVar=hppercent
  40.     hppercent=pethppercent
  41.     pethppercent=HpMpTmpVar
  42.     HpMpTmpVar=mppercent
  43.     mppercent=petmppercent
  44.     petmppercent=HpMpTmpVar
  45. 条件结束
  46. LoginURL=Replace(LoginURL,"""","")
  47. place=Replace(place,"""","")
  48. CharacherAI=Replace(CharacherAI,"""","")
  49. //------------------
  50. //文字识别部分变量,只用于识别防挂机验证
  51. FontVal = 0
  52. SetFontx=543
  53. SetFonty=366
  54. SetFontCount=3
  55. //Gosub 识别10号宋体字
  56. VInputValue=9
  57. //------------------
  58. //
  59. //
  60. //
  61. //
  62. //==============∨∨∨DEBUG∨∨∨==============
  63. //debugon=350 MsgBox显示到达目的地途经地图
  64. //debugon=300 MsgBox显示什么地方
  65. 如果表达式 (debugon=116) 为真,则
  66.     //DEBUG-F5刷新测试
  67.     rere=999
  68.     调用子程序 防卡刷新
  69.     调用子程序 防卡刷新重置
  70. 条件结束
  71. 如果表达式 (debugon=117) 为真,则
  72.     调用子程序 调整游戏登录的窗口位置
  73.     调用子程序 登录游戏
  74. 条件结束
  75. 如果表达式 (debugon=300) 为真,则
  76.     调用子程序 什么地方Sub
  77. 条件结束
  78. //Gosub 宠物忠诚回复
  79. //Gosub 检查是否战斗
  80. //
  81. //==============∧∧∧DEBUG∧∧∧==============
  82. //
  83. //======================∧∧∧初始设置∧∧∧======================
  84. //
  85. //-------------------------------------------------------------
  86. 如果 (503,561) 的颜色大约等于 #6b6d31 则
  87.     如果 (485,621) 的颜色大约等于 #73beff 则
  88.         //游戏登录界面
  89.         调用子程序 登录游戏
  90.     否则
  91.         延时1000毫秒
  92.     条件结束
  93. 否则
  94.     延时1000毫秒
  95. 条件结束
  96. //特殊!
  97. //-------------------------------------------------------------
  98. //打开游戏窗口,或调整进入游戏后的窗口位置
  99. 调用子程序 调整魔力学堂窗口位置Sub
  100. //打开显示状态窗口