Scope Hotkey

[virus7799]

Anyone know what's wrong with this Scope Hotkey? >.>

Private Sub Timer5_Timer()
If Pocohontas(vbRButton) And Pocohontas(vbRButton) Then
Timer4.Interval = 1
Timer4.Enabled = True
End If
If Pocohontas(vbRButton) And Pocohontas(vbRButton) Then
Timer4.Enabled = False
End If
End Sub

Private Sub Timer4_Timer()
Call tinkerbell("WarRock", &HAEFEE6, 1)
End Sub

[wr194t]

Anyone know what's wrong with this Scope Hotkey? >.>

Private Sub Timer5_Timer()
If Pocohontas(vbRButton) And Pocohontas(vbRButton) Then
Timer4.Interval = 1
Timer4.Enabled = True
End If
If Pocohontas(vbRButton) And Pocohontas(vbRButton) Then
Timer4.Enabled = False
End If
End Sub

Private Sub Timer4_Timer()
Call tinkerbell("WarRock", &HAEFEE6, 1)
End Sub

Private Sub Timer5_Timer()
If Pocohontas(vbKeyRButton) Then
Call tinkerbell("WarRock", &HAEFEE6, 1)
Else:
Call tinkerbell("WarRock", &HAEFEE6, 0)
End If
End Sub

Scope doesn't use a timer, but only when using a hotkey.

[virus7799]

Damn, Thanks man your always helpfull. :D

Ok, I got one more question.
How do I make the screen stay zoomed in once I click RightClick?
It works fine but I have to hold the RightClick button on my mouse for me to stay zoomed in.

[wr194t]

I don't have the code for that.