Shop Fix

[Dark Echo]

Code:

If HasItem(Index, Shop(i).traditem(n).GiveItem) >= Shop(i).TradeItem(n).GiveValue Then
            If GetPlayerArmorSlot(Index) = Shop(i).traditem(n).GiveItem Then
                Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
                Exit Sub
            End If
            If GetPlayerWeaponSlot(Index) = Shop(i).traditem(n).GiveItem Then
                Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
                Exit Sub
            End If
            If GetPlayerHelmetSlot(Index) = Shop(i).traditem(n).GiveItem Then
                Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
                Exit Sub
            End If
            If GetPlayerShieldSlot(Index) = Shop(i).traditem(n).GiveItem Then
                Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
                Exit Sub
            End If            
            Call TakeItem(Index, Shop(i).TradeItem(n).GiveItem, Shop(i).TradeItem(n).GiveValue)
            Call GiveItem(Index, Shop(i).TradeItem(n).GetItem, Shop(i).TradeItem(n).GetValue)
            Call PlayerMsg(Index, "The trade was successful!", BrightYellow)
            Exit Sub
        Else
            Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
        End If

See if that works..