[ help ] stamina code

[ilovepie21]

Private Sub STAM_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
If GKP12K1(vbKeyShift) Then
Dim STAM As Long
Dim STAM1 As Long
Call fjg38ckvmdue83kklaoduv1("WarRock", &H1363380, STAM)
STAM1 = STAM + &H288
Call fjvyf749FJjvhDf83991922s("WarRock", STAM1, 100)
End If
End Sub

i cant figure out why this dont work