what is wrong.....scope

i can only zoom in with right mouse button but not out with the same right mouse button

Private Sub Timer1_Timer()
If GetAsyncKeyState(2) <> 0 Then
Call WriteALong("WarRock", &H90DC36, &H1)
End If
End Sub

Private Sub Timer2_Timer()
If GetAsyncKeyState(2) <> 0 Then
Call WriteALong("WarRock", &H90DC36, &H0)
End If
End Sub

u cant put same hotkey foe 2 funktions

try adding a memory or putting shift+right click for deactivate scope