Błąd w kodzie

[Andre13]

Witam, dawno nie pisałem w autoit, a jak już to gówno-skrypty. To jest cały kod. Nie bardzo rozumiem błędu z linii 42.

 

 

Global $pass[16]

$pass[0] = '0';
$pass[1] = '1';
$pass[2] = '2';
$pass[3] = '3';
$pass[4] = '4';
$pass[5] = '5';
$pass[6] = '6';
$pass[7] = '7';
$pass[8] = '8';
$pass[9] = '9';
$pass[10] = 'A';
$pass[11] = 'B';
$pass[12] = 'C';
$pass[13] = 'D';
$pass[14] = 'E';
$pass[15] = 'F';
; #FUNKCJA# ======================================================================================
; Nazwa..........: _KeyGenerate
; Opis...........: Generuje klucz
; Składnia.......: _KeyGenerate($array,$mode,$row,$chrperrow,$separator)
; Parametry......:
;  $array - Tablica znaków
;  $mode - Tryb generowania (0 - losowo, 1 - kolejno)
;  $row - liczba x-liczbowych ciągów (np. dwa ciągi to 1234-1234)
;  $chrperrow - liczba znaków ciągu (5 to 12345
;  $separator - znak oddzielający poszczególne ciągi
; Zwracane wart..:
;  Sukces - Zwraca klucz
;  Niepowodzenie - Zwraca -1 - Brak tablicy znaków
;  Niepowodzenie - Zwraca -2 - Zmienne zawierają nieprawidłowe znaki
; ;=================================================================================================
MsgBox(0,"",_KeyGenerate($pass,4,4,'-'))
Func _KeyGenerate($array,$row,$chrperrow,$separator,$mode = 1)
Local $c = Ubound($array)
Local $znaki
For $b = 1 To $row Step +1
For $a = 1 To $chrperrow Step +1
$cyfra = Random(0,$c,1)
$znaki = $znaki & $array[$cyfra]
Next
If $b <> $row Then
$znaki = $znaki & '-'
EndIf
Next
Return $znaki
EndFunc

 

 

[Gość]

Skopiowałem i nie ma błędu. Spróbuj wejść w Tools i wybrać Tidy AutoIt Source(miałem podobny problem(absolutnie prawidłowy kod wywala błąd) i to pomogło).

[grambezmyszki]

kod jest prawidlowy

[Andre13]

Faktycznie. Coś zmieniłem pewnie i się pokisiło.