[HELP]stamina

my stamina its dont work my code
dim stam1 as long
dim stam2 as long
call readalong("warrock",&h1363380,stam1)
stam2=stam1+&h288
call writeafloat("warrock",stam2,100)

when i active my stamina freeze empty :S
plz help

Its WriteAFloat not WriteALong


1 button:
Timer1.Enabled=True
2 button:
Timer1.Enabled=False

for the timer
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN +&H288
Call WriteAFloat("WarRock", STAN1, 100)

its dont work for me my stamina is freeze empty