HELP! anti-kick problem!

Please can some1 tell me why my anti-kick isn't working heres my code:

Private Sub Timer6_Timer()
Call WriteAbyte("warrock", &H5058C5, &H90)
Call WriteAbyte("warrock", &H5058C6, &H90)
Call WriteAbyte("warrock", &H5058C7, &H90)
Call WriteAbyte("warrock", &H5058C8, &H90)
Call WriteAbyte("warrock", &H5058C9, &H90)
Call WriteAbyte("warrock", &H5058C10, &H90)
End Sub

And also yes i have changed mine from WriteAbyte

And my stamina hack isn't working either it always says "compile error list separator or )" here it is :

Private Sub Timer7_Timer()
Call WriteALong("warrock", &H13773A0, 28C)
End Sub

Here i changed what you needed to do in BOLD.
All you needed to do is add a "&H" to your 28c. You also needed to replace that 10 with an A.

thats because it dont do anything and is wrong

And my stamina hack isn't working either it always says "compile error list separator or )" here it is :

Private Sub Timer7_Timer()
Call WriteALong("warrock", &H13773A0, 28C)
End Sub[/QUOTE]

if u want a stamina hack that u can put in check boxes and buttons and `1 that will actualy work no matter wat then here

Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H139A190, STAN)
STAN1 = STAN + &H28C
Call WriteALong("WarRock", STAN1, 1120403456)