Some sadscripting functions?

[marked]

Ok, I am making some new commands (I will post them here), but I am kinda just starting, so would someone telling me a few functions? The ones I need are below:

Add Health
Kill all Npcs on map
Kill all Players on map
Kill everything on map
Suicide
Add MP
Add SP
Give Item

That was it! If anything can't be done, please tell me. Oh, and please if you post it, explain for me what to edit :) I'm kinda new to this scripting language.

[Kite]

add hp,mp,sp

This is the HP
            Call SetPlayerHP(Index, GetPlayerHP(Index)+ Num)

This is the MP one.
            Call SetPlayerMP(Index, GetPlayerMP(Index)+ Num)

This one is for SP
            Call SetPlayerSP(Index, GetPlayerSP(Index)+ Num)

[Fruitpunch]

most of these are already made

[Admiral Refuge]

All of them you are asking for, are subs, not functions.

Regardless though, virtually everything there can be done.

For adding health, I'd just use: Call SetPlayerHP(Index, HP)
For adding MP: Call SetPlayerMP(Index, MP)
For adding SP: Call SetPlayerSP(Index, SP)
For giving an item, you'll need http://www.touchofdeathforums.com/smf/index.php/topic,28174.0.html for the functions and subs
For suicide, paste this script at the bottom of your main.txt:
```
Sub KillPlayer(index)
damage = GetPlayerMaxHP(index) + 1
Call SetPlayerHP(index, GetPlayerHP(index) - damage)
If GetPlayerHP(index) <= 0 Then
Call OnDeath(index)
Call GlobalMsg(GetPlayerName(index) & " has died.", 4)
Call SetPlayerHP(index, GetPlayerMaxHP(index))
Call SetPlayerMP(index, GetPlayerMaxMP(index))
Call SetPlayerSP(index, GetPlayerMaxSP(index))
Call SendMP(index)
Call SendSP(index)
If GetPlayerExp(index) \ 10 > 0 Then
Call SetPlayerExp(index, GetPlayerExp(index) - GetPlayerExp(index) \ 10)
Call SendExp(index)
End If
End If
Call SendHP(index)
End Sub
```Then, to use it, just use Call KillPlayer(Index)
Killing all players on the map, I suppose you could do this.
Paste this at the bottom of your main.txt:
```
Sub KillPlayersMap(Index)
i = 1
Do While i <= Int(GetVar("data.ini", "MAX", "MAX_PLAYERS"))
If GetPlayerMap(i) = GetPlayerMap(index) Then
Call KillPlayer(i)
End If
i = i + 1
Loop
End Sub
```Then, just call it like so: Call KillPlayersMap(Index)
For killing all NPCs on the map, I'm not entirely sure, but this may work:
```
Sub KillNpcsMap(Index)
i = 1
Do While i <= 15
Call DamageNPC( Index, i, Int(GetMapNpcHP(GetPlayerMap(Index), i) + 1) )
i = i + 1
Loop
End Sub
```To call it, simply call Call KillNpcsMap(Index)

As for both, simply combine the two and get:
```
Sub KillAllMap(Index)
i = 1
Do While i <= Int(GetVar("data.ini", "MAX", "MAX_PLAYERS"))
If GetPlayerMap(i) = GetPlayerMap(index) Then
Call KillPlayer(i)
End If
i = i + 1
Loop
i = 1
Do While i <= 15
Call DamageNPC( Index, i, Int(GetMapNpcHP(GetPlayerMap(Index), i) + 1) )
i = i + 1
Loop
End Sub
```
For the record, I just wrote them up on-the-spot (excluding the KillPlayer one), but they should work (and credit goes to me; killPlayer goes to me and Ballie.

Warning - while you were typing 2 new replies have been posted. You may wish to review your post.
And now, I feel like crying  :cry: