Mirage Source

    ' ::::::::::::::::::::::::::
    ' :: Trade request packet ::
    ' ::::::::::::::::::::::::::
    If LCase$(Parse(0)) = "traderequest" Then
        ' Trade num
        n = Val(Parse(1))
       
        ' Prevent hacking
        If (n <= 0) Or (n > MAX_TRADES) Then
            Call HackingAttempt(Index, "Trade Request Modification")
            Exit Sub
        End If
       
        ' Index for shop
        i = Map(GetPlayerMap(Index)).Shop
       
        ' Check if inv full
        X = FindOpenInvSlot(Index, Shop(i).TradeItem(n).GetItem)
        If X = 0 Then
            Call PlayerMsg(Index, "Trade unsuccessful, inventory full.", BrightRed)
            Exit Sub
        End If

        If HasItem(Index, Shop(i).traditem(n).GiveItem) >= Shop(i).TradeItem(n).GiveValue Then
            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
        Exit Sub
    End If

        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

Function HasItem(ByVal Index As Long, ByVal ItemNum As Long, Optional DoNotWear As Boolean = False) As Long
Dim i As Long
   
    HasItem = 0
   
    ' Check for subscript out of range
    If IsPlaying(Index) = False Or ItemNum <= 0 Or ItemNum > MAX_ITEMS Then
        Exit Function
    End If
   
    For i = 1 To MAX_INV
        ' Check to see if the player has the item
        If GetPlayerInvItemNum(Index, i) = ItemNum Then
            If Item(ItemNum).Type = ITEM_TYPE_CURRENCY Then
                HasItem = GetPlayerInvItemValue(Index, i)
            Else
                If DoNotWear = True Then
                    If Player(Index).Char(Player(Index).CharNum).ArmorSlot = ItemNum Or Player(Index).Char(Player(Index).CharNum).WeaponSlot = ItemNum _
                        Or Player(Index).Char(Player(Index).CharNum).HelmetSlot = ItemNum Or Player(Index).Char(Player(Index).CharNum).ShieldSlot = ItemNum Then _
                        Exit Function
                End If
               
                HasItem = 1
            End If
            Exit Function
        End If
    Next i
End Function

' Check if they have the item
    If HasItem(Index, Shop(i).TradeItem(n).GiveItem, True) >= Shop(i).TradeItem(n).GiveValue Then
        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!", Yellow)
    Else
        Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
    End If