Add spell

[Leighland]

Well first you have to et up the spell type. Which I'm not willing to do, it's easy. Then check if the player has been poisoned. If so, send data to the client which starts a timer with and interval of (wahtever you wish) 2 seconds, just for giggles. Also, set up a global variable called PoisonLen. Make sure you send a "flag" to tell that variable how many times to make the timer "tick".

The timer code might look something like this (doe off the top of my head, probably not right):

Code:

Sub Timer1_Timer()
     Dim a as long

     a = a + 1

     If a = PoisonLen then Timer1.Enabled = False

     Player(MyIndex).hp = Player(MyIndex).hp - (dmg amount)
End Sub

This will only effect the player contolling the client as far as I know. You probably want to have eveyr person in game see if a player is poisoned, and if I wasn't so tired right now I could probably lead you on the right path.