globals
real x
real y
real Hp
real Mp
unit u
endglobals

function SetPar takes nothing returns nothing
call DestroyTimer(GetExpiredTimer())
set x = GetUnitX(u)
set y = GetUnitY(u)
set Hp = GetUnitState(u,UNIT_STATE_LIFE)
set Mp = GetUnitState(u,UNIT_STATE_MANA)
endfunction

function CreTimer takes nothing returns nothing
call TimerStart(CreateTimer(),5,false,function SetPar)
endfunction

function AddTimeLapse takes unit un returns nothing
set u = un
call TimerStart(CreateTimer(),0.1,true,function CreTimer)
endfunction