Taking items away

[jdf318]

How would I make an item that is used up upon use.  Ive tried it before, but I can't seem to get it right.

It's for my teleport scroll by the way.
Any help apreciated.

[AdrianC]

Add this to the bottom of your main.txt:

```
Sub TakeItem(index, item, value)
If value = "all" Then
SLOT = 1
Do While SLOT < 25
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SendInventoryUpdate(index, SLOT)
SLOT = 25
End If
SLOT = SLOT+1
Loop
Else
SLOT = 1
Do While SLOT < 25
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT) - value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 25
End If
SLOT = SLOT+1
Loop
End If
End Sub
```
And now you can say

Call TakeItem(index, item#, # of items)

to take an item from a player.

[jdf318]

Thanks, it worked, but I have one problem with it. It takes all items if its a stackable item. I can manage if I can't make it take only one in a stack, but it would be more helpful if it did.