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
Last edited by iwanthacks121; 05-04-2008 at 06:19 AM.
Fuck you Gamersfirst.... My ass MoneyFirst.
iwanthacks121 (05-04-2008)
try this for anti-kick
Call writealong("warrock", &H(addy), &H90)
Call writealong("warrock", &H(addy)+ 1, &H90)
Call writealong("warrock", &H(addy)+ 2, &H90)
Call writealong("warrock", &H(addy)+ 3, &H90)
Call writealong("warrock", &H(addy)+ 4, &H90)
Call writealong("warrock", &H(addy)+ 5, &H90)
just change the 10 for a you cant put 10 = A
Dude, i just said that bloq..
PanCakes
thats because it dont do anything and is wrong
that is because they are old address. After last update, this is the new code for stamina:
EDIT:Code:Dim Stam1 As Long Dim Stam2 As Long Call ReadALong("WarRock", &H13783A0, Stam1) Stam2 = Stam1 + &H28C Call WrtiteALong("WarRock", Stam2, 100)
And This is the new code for antikick:
Code:Call WriteAbyte("Warrock", &H505935, &H90) Call WriteAbyte("Warrock", &H505936, &H90) Call WriteAbyte("Warrock", &H505937, &H90) Call WriteAbyte("Warrock", &H505938, &H90) Call WriteAbyte("Warrock", &H505939, &H90) Call WriteAbyte("Warrock", &H50593A, &H90)
Last edited by p0wn4ge; 05-09-2008 at 10:56 AM.
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)