If Not(IsNumeric(EliteMonsterEscape)) EliteMonsterEscape=0 EndIf If Not(IsNumeric(AutoGoToPlace)) AutoGoToPlace=0 EndIf //If Not(IsNumeric(Leader)) // Leader=0 //EndIf //------------------------------------------- If Not(Bhppercent>=0 Or Bhppercent<=90) Bhppercent = 90 EndIf If Not(Bmppercent>=0 Or Bmppercent<=90) Bmppercent = 90 EndIf If Not(usemagic>=0 Or usemagic<=9) usemagic = 0 EndIf If Not(SecondMagic>=0 Or SecondMagic<=9) SecondMagic = 0 EndIf If Not(petusemagic>=0 Or petusemagic<=9) petusemagic = 0 EndIf If Not(TreatPet>=0 Or TreatPet<=9) TreatPet = 5 EndIf If Not(TreatSelf>=0 Or TreatSelf<=9) TreatSelf = 5 EndIf VBS hppercent=CInt(hppercent*48/100) VBS mppercent=CInt(mppercent*48/100) VBS pethppercent=CInt(pethppercent*48/100) VBS petmppercent=CInt(petmppercent*48/100) VBS Bhppercent=CInt(Bhppercent*85/100) VBS Bmppercent=CInt(Bmppercent*85/100) If CharacherAtFont<=0 HpMpTmpVar=hppercent hppercent=pethppercent pethppercent=HpMpTmpVar HpMpTmpVar=mppercent mppercent=petmppercent petmppercent=HpMpTmpVar EndIf LoginURL=Replace(LoginURL,"""","") place=Replace(place,"""","") CharacherAI=Replace(CharacherAI,"""","") //------------------ //文字识别部分变量,只用于识别防挂机验证 FontVal = 0 SetFontx=543 SetFonty=366 SetFontCount=3 //Gosub 识别10号宋体字 VInputValue=9 //------------------ // // // // //==============∨∨∨DEBUG∨∨∨============== //debugon=350 MsgBox显示到达目的地途经地图 //debugon=300 MsgBox显示什么地方 If debugon=116 //DEBUG-F5刷新测试 rere=999 Gosub 防卡刷新 Gosub 防卡刷新重置 EndIf If debugon=117 Gosub 调整游戏登录的窗口位置 Gosub 登录游戏 EndIf If debugon=300 Gosub 什么地方Sub EndIf //Gosub 宠物忠诚回复 //Gosub 检查是否战斗 // //==============∧∧∧DEBUG∧∧∧============== // //======================∧∧∧初始设置∧∧∧====================== // //------------------------------------------------------------- IfColor 503,561,6b6d31,2 IfColor 485,621,73beff,2 //游戏登录界面 Gosub 登录游戏 Else Delay 1000 EndIf Else Delay 1000 EndIf //特殊! //------------------------------------------------------------- //打开游戏窗口,或调整进入游戏后的窗口位置 Gosub 调整魔力学堂窗口位置Sub //打开显示状态窗口