e=e+1
    End if
End Sub
//============================对比颜色=================================
Sub 对比颜色()
    f=0:d=0:e=0:g=0
    hmjss=0:mhjss=0:lhjss=0:hmzxs=0:mhzxs=0:z1s=0:z3s=0:gj5s=0:gj10s=0:sj5s=0:sj10s=0:jy10s=0:jy15s=0:nj50s=0:jyqs=0:jyqlbs=0:tzlbs=0:dfs=0:xfs=0:xycs=0:sbs=0:olb6s=0
    olb8s=0:xolb12s=0:xolb19s=0:gclbs=0:fzs=0:zzs=0:kts=0:kns=0:kls=0:sfs=0:djs=0:ygs=0
    While g=0
        If gysy(d)="0A0A0A" Then
            Goto jump8
        End if
        Rem jump6
        If d>11 Then
            Goto jump8
        End if
        If ysy(f)=gysy(d) Then
            Goto jump7
        Else
            f=f+1
        End if
        If f>33 Then
            f=0
            d=d+1
        End if
    Wend
    Rem jump7
    h=f
    e=d
    If yse(h)=gyse(e) Then
        Call 物品数量()
        f=0
        d=d+1
        Goto jump6
    Else
        f=f+1
        Goto jump6
    End if
    Rem jump8
End Sub
//============================物品数量================================
Sub 物品数量()
    If h=0 Then
        hmjss=hmjss+1
    ElseIf h=1 Then
        mhjss=mhjss+1
    ElseIf h=2 Then
        lhjss=lhjss+1
    ElseIf h=3 Then
        hmzxs=hmzxs+1
    ElseIf h=4 Then
        mhzxs=mhzxs+1
    ElseIf h=5 Then
        z1s=z1s+1
    ElseIf h=6 Then
        z3s=z3s+1
    ElseIf h=7 Then
        gj5s=gj5s+1
    ElseIf h=8 Then
        gj10s=gj10s+1
    ElseIf h=9 Then
        sj5s=sj5s+1
    ElseIf h=10 Then
        sj10s=sj10s+1
    ElseIf h=11 Then
        jy10s=jy10s+1
    ElseIf h=12 Then
        jy15s=jy15s+1
    ElseIf h=13 Then
        nj50s=nj50s+1
    ElseIf h=14 Then
        jyqs=jyqs+1
    ElseIf h=15 Then
        jyqlbs=jyqlbs+1
    ElseIf h=16 Then
        tzlbs=tzlbs+1
    ElseIf h=17 Then
        dfs=dfs+1
    ElseIf h=18 Then
        xfs=xfs+1
    ElseIf h=19 Then
        xycs=xycs+1
    ElseIf h=20 Then
        sbs=sbs+1
    ElseIf h=21 Then
        olb6s=olb6s+1
    ElseIf h=22 Then
        olb8s=olb8s+1
    ElseIf h=23 Then
        xolb12s=xolb12s+1
    ElseIf h=24 Then
        xolb19s=xolb19s+1
    ElseIf h=25 Then
        gclbs=gclbs+1
    ElseIf h=26 Then
        fzs=fzs+1
    ElseIf h=27 Then
        zzs=zzs+1
    ElseIf h=28 Then
        kts=kts+1