Variable not resetting after loop

While 1
Do

Dim $X = @DesktopWidth / 2
Dim $Y = @DesktopHeight / 2
Dim $X1 = $X - 50 ;-- start the scan area 50 pixels to the left of center coordinate.
Dim $X2 = $X + 50 ;-- Stop the scan area 50 pixels to the right of center coordinate.
Dim $Y1 = $Y - 50 ;-- Start the scan area 50 pixels above the center coordinate
Dim $Y2 = $Y + 50 ;-- Stop the scan area 50 pixels below the center coordinate


$pix = PixelSearch($X1, $Y1, $X2, $Y2, 0xFFFF2B, 30, 2)






If IsArray($pix) = 1 Then
Sleep(900)
Send("e")
Sleep(900)
Send("r")
Sleep(900)
MouseClick("left")

Sleep(300)
$pos = MouseGetPos()

local $ypos = $pos[1] + 1


Sleep(90)
MouseMove ( $pos[0], $pos[1]+1,99 )
Sleep(90)
$pos = MouseGetPos()
EndIf
ExitLoop

Until False
WEnd