Give and Take item script all in one

[Brutal - Zeldo]

Ok i made this for anyone to use in there scripts so that theres not 15 million diffrent ones being made every time a new script is made so here it is

add this to the bottom of ur main

Code: [Select]

Sub itemz(index, item, value, stackable , type)
Dim Slot
If type = 1 Then
    If stackable = 0 Then
Slot = 1
Do While Slot < 24
If GetPlayerInvItemNum(index, Slot) = item Then
Call SetPlayerInvItemNum(index, Slot, 0)
Call SetPlayerInvItemValue(index, Slot, 0)
Call SendInventoryUpdate(index, Slot)
Slot = 24
End If
Slot = Slot+1
Loop
Exit Sub
    End If
    If stackable = 1 Then
Slot = 1
Do While Slot < 24
If GetPlayerInvItemNum(index, Slot) = item Then
AMOUNT = GetPlayerInvItemValue(index, Slot)
TAKE = Int(AMOUNT-value)
If TAKE <0> 0 Then
Call SetPlayerInvItemNum(index, Slot, 0)
Call SetPlayerInvItemValue(index, Slot, 0)
Call SetPlayerInvItemNum(index, Slot, item)
Call SetPlayerInvItemValue(index, Slot, TAKE)
Call SendInventoryUpdate(index, Slot)
End If
Slot = 24
End If
Slot = Slot+1
Loop
Exit Sub
    End If
ElseIf type = 2 Then
Do While Slot < 24
If GetPlayerInvItemNum(index, Slot) = 0 Then
Call SetPlayerInvItemNum(index, Slot, item)
Call SetPlayerInvItemValue(index, Slot, GetPlayerInvItemValue(index, Slot)+value)
Call SendInventoryUpdate(index, Slot)
Slot = 24
End If
Slot = Slot+1
Loop
End If
End Sub
And Thats is  

HOW TO USE

Command is Sub itemz(index, item, value, stackable , type)
item = the item num
value = how many of the item(if non-stackable put 0)
stackable = 0 if not stackable and 1 if it is
type = 1 if its takeing an item and 2 if it giveing an item

Well thats it post here if you are haveing a problem

[jakeruston]

So what do you type to give an item?

[Brutal - Zeldo]

type = 1 if its takeing an item and 2 if it giveing an item
I posted that above msn me if u still dont get it (i will ONLY help u not put the script in or help u use it i will only teach u how to)

[GF3]

I Put The Code But Can Get It to work...Is this Code useable on NPCs?

[Brutal - Zeldo]

If you know what ur doin (know how to call a sub...) then yes

[GF3]

If you know what ur doin (know how to call a sub...) then yes

Uhh to tell you I have no Idea what im Doing....

[Brutal - Zeldo]

Read the script tuts to learn...Then try and use scripts

[1472000]

Read the script tuts to learn...Then try and use scripts

I read this and it helps a lot!

Thanks!~

[kayoken]

thx for this iv been looking for this for a while