This is my first script I have ever wrote...But it works nicely!
This script is a tile you place and when you walk on it if your health is less then 1/4 max health it will multiply what you have by 3 but if your health is still to high you just get a message saying that you can not be healed.
This part goes in sub scripted tile:
Case (case number goes here)
Call LightHeal(Index)
Exit SubBtw: Tell me what you think of my first script!
Paste this at the bottom of your main txt.
Sub LightHeal(Index)
Dim H
Dim M
H = GetPlayerHp(Index)
M = GetPlayerMaxHP(Index)
If H < M/4 Then
Call PlayerMsg(Index, "You Feel the power of light heal you.", 1)
Call SetPlayerHp(Index, H * 3)
Exit Sub
End If
If H > M/4 THEN
Call PlayerMsg(Index, "You are plenty healthy the light does not need to heal you", 1)
Exit Sub
End If
End Sub
