Cs2=DropList{"地1":"0"|"地2":"1"|"地3":"2"|"地":"3"}=0 "去第几个"
UserVar xuanguai=DropList{"不":"0"|"选":"1"}=1 "选怪吗"
UserVar Fh1=5 "第一地返回数"
UserVar Fh2=5 "第二地返回数"
UserVar Fh3=5 "第三地返回数"
UserVar Fh4=5 "第四地返回数"
UserVar Renwu=DropList{"刷怪":"0"|"捉妖":"1"|"采集":"2"}=0 "任务"
UserVar hong=40 "加血"
Dim a(3),b(3),k,h
Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim Myarray
Myarray=Split(sRect,"|")
Ux=CLng(Myarray(0))
Uy=CLng(Myarray(1))
If Renwu=0 Then
Goto 刷怪
ElseIf Renwu=1 Then
ElseIf Renwu=2 Then
End If
Delay 200
Rem 刷怪
h=0
If Cs2=0 Then
k=0
Elseif Cs2=1Then
k=Fh1
Elseif Cs2=2 Then
k=Fh1+Fh2
Elseif Cs2=3 Then
k=Fh1+Fh2+Fh3
End If
GetCursorPos a(0), b(0)
WaitKey
GetCursorPos a(1), b(1)
WaitKey
GetCursorPos a(2), b(2)
WaitKey
GetCursorPos a(3), b(3)
WaitKey
Delay 500
KeyPress "M", 1
Delay 200
Rem 使用地图

KeyPress "M", 1
Delay 200
If k<Fh1 Then
h=0
Elseif k>=Fh1 and  k<Fh1+Fh2 Then
h=1
Elseif k>=Fh1+Fh2  and k<Fh1+Fh2+Fh3 Then
h=2
Elseif k>=Fh1+Fh2+Fh3 and k<Fh1+Fh2+Fh3+Fh4 Then
h=3
Else 
k=0
End If
Delay 200
MoveTo a(h), b(h)

Delay 1000
LeftClick 1
Delay 200
KeyPress "O", 1
Delay 200
KeyPress "M", 1
Rem 到目的地
FindPic Ux+457,Uy+138,Ux+481,Uy+159,"Attachment:\了.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Goto 选怪
Else
FindPic Ux,Uy+53,Ux+26,Uy+79,"Attachment:\战斗状态.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
    MoveTo 411+Ux, 358+Uy
        Delay 200
        LeftClick 1
                Delay 200
        Call 战斗中打我的()
        Else
        Delay 3000
    KeyPress "O", 1
    End If
            End If
Delay 15
Goto 到目的地

Rem 选怪
If datediff("s",thistime3,now)>300
    KeyPress "'", 1
    Delay 200
        VBS thistime3=now
    If datediff("s",thistime2,now)>240
        KeyPress "8", 1

    Delay 200

        KeyPress "9", 1

            Delay 200