If k<241
    // 到达屏幕边缘重新开始
    Goto start
Else 
    k=40
    Goto start
EndIf 
// 以下是打怪功能
Rem pk
Delay 10
LeftClick 2
Delay 1000
xh=0
While Shape = 1223392300
    Delay 200
    Gosub jx
    VBSCall Shape=GetCursorShape(0)
    Delay 1000
EndWhile 
//以下是拣物
KeyPress 18,1
Delay 1000
KeyPress 18,1
Delay 300
Gosub jx
KeyPress 18,1
Delay 300
Goto start
EndScript 
Sub jx
    IfColor 524,141,2924f7,1
        KeyPress 112,1
        Delay 30
    EndIf 
    IfColor 502,152,d62429,1
        KeyPress 113,1
        Delay 30
    EndIf 
    IfColor 615,653,399eff,1
        KeyPress 114,1
        Delay 30
    EndIf 
    IfColor 233,661,ff00,1
        KeyPress 115,1
        Delay 300
    EndIf 
Return jx