KeyPress 13,1
    Delay 512
    KeyPress 121,1
    //按回城符，去柳正关取强化，新手城人太多不好取
    Delay 30000
    Gosub 取强化
EndIf 
VBSCall FindPic(630,280,670,315,"Attachment:\申请交易.bmp",0.8,sq_x,sq_y)
If sq_x>0 and sq_y>0
    MoveTo 482,462
    Delay 512
    LeftClick 1
    Delay 512
    Gosub 卖强化
EndIf 
Goto 开喊
Sub 取强化
    VBSCall FindPic(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
    If x>0 And y>0
        Delay 64
        KeyPress 9,1
        Delay 256
    EndIf 
    no_npc2=1
    dim color(3)
    color(0)="5a4910"
    color(1)="b57918"
    color(2)="deae39"
    color(3)="9c4910"
    //白天黑夜各取两种颜色，确保找到仓库NPC
    KeyDown 17,1
    KeyPress 67,1
    KeyUp 17,1
    Delay 1000
    //回城后强制打坐，防止回城异常后到处乱跑
    Rem 寻找仓库
    npc_color=0
    For 4
        VBSCall FindCenterColor(150,0,900,700,color(npc_color),npcX,npcY)
        //寻找仓库NPC
        Delay 256
        If npcX>0 and npcY>0
            //如果找到仓库NPC
            npc=1
            Goto 打开仓库
        EndIf 
        npc=0
        npc_color=npc_color+1
    EndFor 
    Rem 打开仓库
    If npc=1
        //如果找到仓库NPC
        MoveTo npcX,npcY
        Delay 128
        LeftClick 1
        Delay 128
        KeyPress 119,1
        Delay 1000
        //按轻功加速，方便找仓库NPC
        Delay 8000
        Delay 256
        VBSCall FindPic(477,480,550,520,"Attachment:\打开仓库.bmp",0.6,ck0_x,ck0_y)
        //确认是否找到，防止NPC被人挡住产生误动作
        If ck0_x>0 and ck0_y>0
            Goto 开始补充
        EndIf 
    Else 
        Goto 没找到仓库NPC
    EndIf 
Else 
    Rem 没找到仓库NPC
    no_npc=no_npc+1
    If no_npc>50
        KeyPress 121,1
        Delay 3000
        //转5圈仍找不到，出现异常，强制回城一次纠错
        no_npc=0
        no_npc2=no_npc2+1
        Goto 寻找仓库
    EndIf 
    MoveTo 516,465
    SaveMousePos 
    MoveTo 0,384
    Delay 300
    RestoreMousePos 
    Delay 64
    //换个方向继续寻找
    Goto 寻找仓库
EndIf 
Rem 开始补充
MoveTo 510,500
Delay 512
Rem 打开
LeftClick 1
//打开仓库
Delay 1500
MoveTo 512,730
Delay 1000
ge=0:pai=0
bqhs=0