[Процессы] Возврат цикла.

AutoIt 
Dim $a=5 ; надо чтоб была глобальной
While 1
Dim $s=10 ;штоб воспринималась только здесь  
   WEnd
 While 2
    WEnd
	  
	  
While 3
 Dim $s=30 ;штоб воспринималась только здесь    
   WEnd

Func

AutoIt 
$d=0
Dim $a[4] = [0xFE1303,0xFC1100,0xFE1100,0xFB1808 ]
While 1
$d=$d+1
ConsoleWrite ("x" & $a[$d] &@CR)
If $d=4 Then
   $d=$d-3
   EndIf
Sleep(2000)
   WEnd

Dim $Array[4] = [0xFE1303, 0xFC1100, 0xFE1100, 0xFB1808]
Global $Item

While 1
    If ($Item = 3) Then
        $Item = 1
	EndIf
	$Item += 1
    ConsoleWrite ('x' & $Array[$Item] &@CR)
    Sleep(1000)
WEnd

Dim $Array[4] = [0xFE1303, 0xFC1100, 0xFE1100, 0xFB1808]

While 1
	For $i = 0 To UBound($Array) - 1
		ConsoleWrite('x' & $Array[$i] & @CRLF)
		Sleep(1000)
    Next
WEnd