ZH=0 "输入帐号" UserVar MM=0 "输入密码" UserVar SJ=800 "时间间隔" UserVar JGMC=3 "几个魔宠" UserVar MMS=DropList{"不买随机":"0"|"随机":"8"}=0 "自动买随机" UserVar XPWZ=DropList{"选项1":"1"|"选项2":"2"|"选项3":"3"}=1 "XP位置" Delay 1500 Hwnd = Plugin.Window.Foreground() Call Plugin.Window.Move(Hwnd, 0, 0) Rem KS Call ZDDL() Call ZTJC() Call MSJ() Call CZ() Call XP() For 30 Call ZG() Next Call FH() Goto KS Sub ZG() Delay 500 FindCenterColor 0,0,1024,768,"0303B8",intX,intY If intX > 0 And intY > 75 And intX <990 And intY < 590 If A<2 Then MoveTo intX+25,intY+25 LeftClick 1 A=2 ElseIf A>1 MoveTo intX-25,intY+25 LeftClick 1 A=1 End If KeyPress "F2", 1 Delay 250 KeyPress "F2", 1 KeyPress "F1", 1 RightClick 1 DGLJ=DGLJ + 1 If DGLJ > 50 Then KeyPress "1", 1 DGLJ=0 End If Else KeyPress "1", 1 DGLJ=0 End If End Sub Sub MSJ() IfColor 33,738,"638631",2 Then Else MoveTo 579, 679 LeftClick 1 Delay SJ Delay SJ+200 I=0 While i<8 FindCenterColor 0,0,1024,768,"638631",intX,intY If intX > 0 And intY > 0 Then MoveTo intX,intY RightClick 1 Delay SJ MoveTo 558, 585 LeftClick 1 Delay SJ MoveTo 428, 650 LeftClick 1 Delay SJ+300 FindCenterColor 641,491,996,629,"638631",intX,intY If intX > 0 And intY > 0 Then MoveTo intX,intY LeftClick 1 Delay SJ MoveTo 32, 734 LeftClick 1 Delay SJ i=10 End If Else If MMS = 8Then MoveTo 449, 506 LeftClick 1 Delay SJ Else i=10 End If i=I+1 End If Wend KeyPress "Esc", 1 End if End Sub Sub ZDDL() Delay SJ IfColor 377,349,"C0D8DE",0 Then IfColor 371,361,"C4D3D6",0 Then IfColor 364,361,"D1DCE4",0 Then MoveTo 470, 354 LeftClick 1