New functions! [1/5]

I've made some easy functions for Sadscripting... You can use them if you want.

Quote

Non-scripter[1/5]
Beginner[1/5]
Advanced Scripter[1/5]
Expert[1/10]
Pro[1/100]

Code:

Sub TakeItem(index, item, value)
If value = "all" 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
Else
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT) - value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End If
End Sub

Function:
TakeItem(index, item, value)
value can be:

Quote

all(to take away all items)
0(if it is a non-stackable item)
1 or higher(if it is a stackable item)

Code:

Code: [Select]

Sub GiveItem(index, item, value)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 0 Then
Call SetPlayerInvItemNum(index, SLOT, item)
Call SetPlayerInvItemValue(index, SLOT, value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

Function:
GiveItem(index, item, value)

Quote

0(if it is a non-stackable item)
1 or higher(if it is a stackable item)

Code:

Code: [Select]

Sub ChangeItem(index, olditem, newitem, newval)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = olditem Then
Call SetPlayerInvItemNum(index, SLOT, newitem)
Call SetPlayerInvItemValue(index, SLOT, newval)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

Function:
ChangeItem(index, olditem, newitem, newval)
olditem = The Old Item
newitem = The New Item
newval = The New Value
This gives you a new function to change an old item to a new item

.

Code:

Code: [Select]

Sub lockall(index, mode)
If mode = "true" Then
lockall = true
Elseif mode = "false" Then
lockall = false
End If

Add this under Sub OnAttack:

Code: [Select]

If lockall(index, mode) = true Then
Exit Sub
End If

Function:
lockall(index, mode)
Locks all the attacks of the player. (If it is set to true)
Mode is true or false.

Code:

Code: [Select]

Sub LoginCount(mode)
If LoginCount = "" Then
LoginCount = 0
End If
If mode = "+" Then
LoginCount = LoginCount + 1
Elseif mode = "-" Then
LoginCount = LoginCount - 1
End If
End Sub

Add this in Sub JoinGame above End Sub:

Code: [Select]

Call LoginCount("+")
Add this in Sub LeftGame above End Sub:

Code: [Select]

Call LoginCount("-")
Function:
LoginCount(mode)
mode is + or -

Quote

+ adds 1
- removes 1

This is to count the players online.

New commands in SadScript:

Quote

TakeItem(index, item, value)
GiveItem(index, item, value)
ChangeItem(index, olditem, newitem, newval)
lockall(index, mode)
LoginCount(mode)