dim f2,f4,f6,x,y,Ux,Uy,MyArrayRem 开始f2=0f4=0f6=0Call 计算当前窗口坐标()IfColor 144+Ux,31+Uy,4422ee,2 ThenGoto 红判断End ifGoto 战斗Rem 红判断IfColor 164+Ux,31+Uy,4422ee,2 ThenGoto 兰判断End ifRem 吃红MoveTo 773+Ux,234+UyDelay 10RightClick 1Delay 220Goto 红判断Rem 兰判断IfColor 145+Ux,48+Uy,ffcc66,2 ThenGoto 走路End ifRem 吃兰MoveTo 773+Ux,196+UyDelay 10RightClick 1Delay 220Goto 兰判断Rem 走路MoveTo 331+Ux,311+UyLeftClick 1Delay 220MoveTo 378+Ux,208+UyLeftClick 1Delay 220MoveTo 498+Ux,311+UyLeftClick 1Delay 220MoveTo 378+Ux,368+UyLeftClick 1Delay 220Rem 走路判断IfColor 164+Ux,31+Uy,4422ee,2 ThenGoto 走路End ifRem 战斗Rem 第一人回合判断IfColor 352+Ux,56+Uy,ffff,2 ThenGoto 战斗判断End ifDelay 220IfColor 144+Ux,31+Uy,4422ee,2 ThenGoto 开始End ifGoto 第一人回合判断Rem 战斗判断Rem 第一人发招判断IfColor 738+Ux,410+Uy,bbaa55,2 ThenGoto FEnd ifGoto 防Rem FIf f4=0 ThenKeyPress 115,1f4=1Goto 防End ifIf f2=0 ThenKeyPress 113,1f2=1Goto 防End ifIf f6=0 ThenKeyPress 117,1f6=1Goto 防End ifGoto 开始Rem 防Rem 第一个宠物防MoveTo 748+Ux,383+UyDelay 10LeftClick 1Delay 60Goto 战斗Sub 计算当前窗口坐标()Hwnd = Plugin.Window.GetKeyFocusWnd()sRect=Plugin.Window.GetClientRect(Hwnd)MyArray=Split(sRect,|)Ux=CLng(MyArray(0)Uy=CLng(MyArray(1)End Sub