For 4
    ge=0
    For 8
        wu_x1=33*ge+734
        wu_y1=33*pai+470
        wu_x2=33*ge+767
        wu_y2=33*pai+503
        VBSCall FindPic(wu_x1,wu_y1,wu_x2,wu_y2,"Attachment:\强化.bmp",0.6,wu_x,wu_y)
        If wu_x>0 and wu_y>0
            bqhs=bqhs+1
        EndIf 
        ge=ge+1
        //下一格
    EndFor 
    pai=pai+1
    //下一排
EndFor 
Delay 1000
ge=0:pai=0
gqhs=0
For 9
    ge=0
    For 6
        wu_x1=33*ge+413
        wu_y1=33*pai+274
        wu_x2=33*ge+446
        wu_y2=33*pai+307
        VBSCall FindPic(wu_x1,wu_y1,wu_x2,wu_y2,"Attachment:\强化.bmp",0.6,wu_x,wu_y)
        If wu_x>0 and wu_y>0
            gqhs=gqhs+1
        EndIf 
        ge=ge+1
        //下一格
    EndFor 
    pai=pai+1
    //下一排
EndFor 
Delay 1000
MoveTo 560,215
Delay 800
LeftClick 1
Delay 800
ge=0:pai=0
zqhs=0
For 10
    ge=0
    For 6
        wu_x1=33*ge+413
        wu_y1=33*pai+241
        wu_x2=33*ge+446
        wu_y2=33*pai+274
        VBSCall FindPic(wu_x1,wu_y1,wu_x2,wu_y2,"Attachment:\强化.bmp",0.6,wu_x,wu_y)
        If wu_x>0 and wu_y>0
            zqhs=zqhs+1
        EndIf 
        ge=ge+1
        //下一格
    EndFor 
    pai=pai+1
    //下一排
EndFor 
If bqhs+gqhs+zqhs<10
    Delay 5000
    VBSCall RunApp("Shutdown.exe -s -t 30 -f")
    Delay 60000
EndIf 
//所有强化加起来，总数小于10，算了吧不卖了，关机走人吧
Rem 取符
MoveTo 460,213
Delay 128
LeftClick 1
Delay 512
MoveTo 495,257
Delay 512
LeftClick 1
Delay 800
MoveTo 948,585
Delay 800
LeftClick 1
Delay 800
SayString "2"
Delay 512
KeyPress 13,1
Delay 512
//取了柳正符
MoveTo 527,257
Delay 512
LeftClick 1
Delay 800
MoveTo 976,536
Delay 800
LeftClick 1
Delay 800
SayString "2"
Delay 512
KeyPress 13,1
Delay 512
//取了新手符
Rem 拿强化
MoveTo 460,215