Having A Scripted Tile Problem.. Its Simple I Think.. Please Help

[Braydo25]

hi i wanted to make a tile that heals both hp and mp, but what i made doesnt seem to be working. i place tile 0 and it doesnt work on a map, then i tried tile 1 and it doesnt work. whats going wrong. please help

Sub ScriptedTile(index, Script)
Select Case Script
Dim Q
Dim W
Dim Z
Q=GetPlayerClass(Index)
W=GetClassMaxMP(Q)
Z=GetClassMaxHP(Q)

Case 0
Call SetPlayerMP(Index,W)
Call SetPlayerHP(Index,Z)
Call Playermsg(index,"Your Mana And Health Has Been Restored!",3)
End Sub