pick=0 捡包设置
UserVar bai=0  百花职业为1其他为0
Dim tr,tb
Plugin Hwnd = Window.MousePoint()
Plugin Rect = Window.GetWindowRect(Hwnd)
MyArray = Split(Rect, "|")
W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
W=W2-W1
H=H2-H1
Plugin XY = Bkgnd.FindColor(Hwnd, 0, 0, W/3, H/3, "9F3F06")
MyArray = Split(XY, "|")
X1 = Clng(MyArray(0))-5 : Y1 = Clng(MyArray(1))+3
X2 = X1 : Y2 = Y1-12
X6 = X1-54: Y6 = Y1+85
//初始化数据
//开始,主程序循环}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
Delay 100
Plugin Bkgnd.KeyPress(hwnd,192)
//虚拟键盘`~~~192对应键值;锁定怪物,普通攻击
Delay 100
Plugin Bkgnd.KeyPress(hwnd,192)
KeyDown 49,1
Delay 110
KeyUp 49,1
Delay 110
KeyDown 50,1
Delay 110
KeyUp 50,1
Delay 110
KeyDown 51,1
Delay 110
KeyUp 51,1
Delay 110
KeyDown 52,1
Delay 110
KeyUp 52,1
Delay 110
KeyDown 53,1
Delay 110
KeyUp 53,1
Delay 110
KeyDown 32,1
Delay 110
KeyUp 32,1
IfColor 325,197,1d1d49,0
    KeyPress 54,1
Else 
EndIf 
IfColor 273,210,1d1d49,0
    KeyPress 55,1
Else 
EndIf 
Goto star
//主程序结束;}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}