征途仙利用随身商店全自动挂机刷怪

//利用征途最新的随身商店功能实现仙全自动给自己加状态 买蓝 补篮（喝蓝药） 补红（技能） 捡物（游戏自带） 打怪（游戏自带）
//本人用1280*800屏幕 脚本中坐标跟实际会有区别
VBS Dim i  //使用时打开随身商店 并且点击一次随身商店界面
Rem qidian
Delay 1000
Gosub bulan
Gosub buylan
KeyPress 120 1 //f9
Gosub bulan
Gosub buylan
KeyPress 119 1  //f8
Gosub bulan
Gosub buylan
KeyPress 114 1  //f3
Gosub bulan
Gosub buylan
KeyPress 115 1  //f4
Gosub bulan
Gosub buylan
KeyPress 116 1  f5
For 90
    Gosub bulan
    Gosub buylan
    Gosub buhong
EndFor
Goto qidian
Sub bulan
    IfColor 75 36 0 0  //补蓝点的坐标变黑色 根据实际情况改变
        KeyPress 113 1
        Delay 1000
        VBS i=i+1
    Else
        Delay 1000
    EndIf
Return bulan
Sub buhong
    IfColor 5 34 0 0   //补血点的坐标变黑色 根据实际情况改变
        KeyPress 117 1  //f6
        Delay 1000
    Else
        Delay 1000
    EndIf
Return buhong
Sub buylan
    If i>=10
        MoveTo 88 239  //随身商店中蓝药位置的坐标 根据实际情况改变
        Delay 500
        LeftDoubleClick 1
        Delay 500
        KeyPress 13 1
        VBS i=0
    Else
        Delay 1000
    EndIf
Return buylan