Originally Posted by unseenss
just change the value to 1, like you would with any other hack
if you dont want the changing colors then just
ight ty very much appreciate it
3 lines ^^
Code:
Private Sub GPS_Click()
Dim HOn As Long
Call ReadALong("WarRock", GPS_Addy, HOn)
If HOn = 0 Then
Call WriteALong("WarRock", GPS_Addy, 1)
gps1.ForeColor = &HFF00&
Else
Call WriteALong("WarRock", GPS_Addy, 0)
gps1.ForeColor = &HFF&
End If
End Sub
Code:
Private Sub GPS_Click()
Dim HOn As Long
Call ReadALong("WarRock", GPS_Addy, HOn)
If HOn = 0 Then Call WriteALong("WarRock", GPS_Addy, 1) Else Call WriteALong("WarRock", GPS_Addy, 0)
End Sub
3 lines ^^