dim color(1)
color(1)="083cbd"
Plugin fx=Sys.GetScRX()
Plugin fy=Sys.GetScRY()
Gosub 加血法
Gosub GuanBiChuangKou
Rem 雪地挂机
x0=fx/2:n=15:y0=fy/2
MoveTo x0 y0
While n<80
    x=x0+4*(cos(n)+n*sin(n))
    y=y0+3*(sin(n)-n*cos(n))
    MoveTo x,y
    Delay 10
    RightClick 1
    Delay 50
    IfColor 426,29,5259ff,2
        Gosub 雪地打怪
    EndIf 
    n=n+1.2
EndWhile 
Goto 雪地挂机
EndScript 
Sub 雪地打怪
    Rem 雪地打怪
    Gosub 加血法
    IfColor 426,29,5259ff,2
        KeyPress 192,1
        Delay 500
        KeyPress 50,1
        RightClick 1
        Delay 500
        KeyPress 51,1
        RightClick 1
        Delay 500
        KeyPress 52,1
        RightClick 1
        Delay 500
        Goto 雪地打怪
    EndIf 
    KeyPress 32,1
    Delay 500
    KeyPress 32,1
    Delay 500
Return 雪地打怪
Sub GuanBiChuangKou
    KeyDown 17,1
    KeyPress 65,1
    KeyPress 46,1
    KeyUp 17,1
    KeyDown 18,1
    KeyPress 115,1
    KeyUp 18,1
Return GuanBiChuangKou
Sub 加血法
    IfColor 752,710,2a26e4,1
        KeyPress 113,1
    EndIf 
    IfColor 668,723,a04a36,2
        KeyPress 114,1
    EndIf 
Return 加血法