Mirage Source

Function TakeGold(ByVal index As Long, ByVal ItemNum As Long, ByVal ItemVal As Long) As Boolean
Dim i As Long, N As Long
TakeGold = False
    ' 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
                ' Is what we are trying to take away more then what they have?  If so just set it to zero
                If ItemVal <= GetPlayerInvItemValue(index, i) Then
                    Call SetPlayerInvItemValue(index, i, GetPlayerInvItemValue(index, i) - ItemVal)
                    Call SendInventoryUpdate(index, i)
                    TakeGold = True
                    Exit Function
                End If
            End If
        End If
    Next i
End Function

        If TakeGold(index, 1, 40) = True Then
            Call PlayerWarp(index, 1, 10, 10) 'if you have 40 gold, this code will run.
        Else
            Call PlayerMsg(index, "You do not have 40 gold.", Red, 0) 'if you do not have 40 gold, this code will run.
        End If