Buff Script evaluation

[JadeCurt1ss]

Hey everyone. I whipped this up and I wanted to toss it out there for evaluation before I put it in the main.txt

Spell:

Case 1
Call SetTimer("tmrtest" & index & "," & 1, 6000)
Call SetPlayerStr(index, getPlayerStr(index) + 3)
End If

Under Sub TmrTest

Case 1
Call SetPlayerStr(index, getPlayerStr(index) - 3)
Call RemoveTimer("tmrtest" & index & "," & 1)

What's good, what's bad, and what needs to be fixed about it?