help Define variables.....

[Eneitilyn]

hello I am new to autoit forums and Autoit in general my most advanced script is moving the mouse around so could somebody please help me with this script and what exactly does this error mean ? 

Line 106 (File "%scriptpath%\ocr.au3"

Local $aCoord, $Length, $Width, $Area,_
Local $aCoord, $Length, $Width, $area,^ ERROR

Error: No variable given for "Dim", "Local", "Global", "Struct" or Const" 

the code is 
 

expandcollapse popup

;===========================================================================
   ; Settings
   ;===========================================================================
Opt("MustDeclareVars", 1)
Opt("WinTitleMatchMode", 2)
Opt("TrayIconDebug", 1)

   ;===========================================================================
   ; Includes
   ;===========================================================================
#include <character_definitions.au3>

   ;===========================================================================
   ; Setting hotkeys
   ;===========================================================================
HotKeySet("{PAUSE}", "end")

   ;===========================================================================
   ; Testing OCR
   ;===========================================================================
Local $Find, $i, $var, $e, $distx, $disty, $File, $String, $DistanceString, $Line, $Pixel

WinActivate("Paint")

Sleep(1000)

; Colors:
;  White    = 12895428
;  Blue     = 5263532

Local $TimerInit, $TimerDiff
$TimerInit = TimerInit()


$Pixel = 12895428

$File = FileOpen( "output.txt", 2 )

For $Scans = 1 to 2
   ; COORDINATES / PIXEL HERE:
   $Line = GetLines( 61, 43, 318, 139, $Pixel )

   For $LineNum = 1 to $Line[0][0]
      $Find = GetCharacters ( $Line[$LineNum][0], $Line[$LineNum][1], $Line[$LineNum][2], $Line[$LineNum][3], $Pixel )

      Local $String = ""

      Dim $DistanceString[$Find[0][0]+1]

      For $i = 1 to $Find[0][0]
         ; Finds every pixel in the square
         $var = _GetAllPixels($Find[$i][0], $Find[$i][1], $Find[$i][2], $Find[$i][3], $Pixel )

         ; For every value, write the distance from StartX/StartY to
         ; FoundX/FoundY of each pixel
         For $e = 1 to $Var[0][0]
            $distx = $Find[$i][0] - $Var[$e][0]
            $disty = $Find[$i][1] - $Var[$e][1]

            ; Making one big long string for the letter
            $DistanceString[$i] = $DistanceString[$i] & $distx & "," & $disty & ";"
         Next

         ; For some strange reason there was a 0 at the beggining of each string;
         ; this gets rid of it.
         $DistanceString[$i] = StringTrimLeft ( $DistanceString[$i], 5 )

         For $x = 1 to UBound($arCharacters) - 1
            If $arCharacters[$x][1] == $DistanceString[$i] Then
               $String = $String & $arCharacters[$x][0]
            EndIf
         Next

         ;Space stuff, if more than 4 pixels between the end of characters
         ; add a space.

         If UBound($Find) > $i + 1 Then
            ;MsgBox("","", $Find[$i][2] & ", " & $Find[$i+1][0] )
            If Abs($Find[$i][2] - $Find[$i+1][0]) > 4 Then $String = $String & " "
         EndIf

         ;If $i > 1 AND $Find[$i][0]-$Find[$i-1][0] > 10 Then
         ;;; Found a space inbetween letters
         ;   $String =  $String & " "
         ;EndIf

         ;FileWriteLine( $File, $String[$i] & "=" & $DistanceString[$i])
         ;MsgBox("","", $String )
      Next

      FileWriteLine( $File, $String )
   Next

   $Pixel = 5263532
Next

FileClose($File)

$TimerDiff = TimerDiff ($TimerInit)
MsgBox("", "", $TimerDiff)

   ;===========================================================================
   ; Functions
   ;===========================================================================
Func _GetAllPixels($StartX, $StartY, $EndX, $EndY, $Color)
   Local $aCoord, $Length, $Width, $Area,_
         $i, $x, $y, $CurrentElement = 1

   ; Get area of rectangle to initiate array
   $Length = Abs($StartX - $EndX)
   $Width = Abs($StartY - $EndY)
   $Area = $Length * $Width
   Dim $aReturn[$Area + 1][2]

   ; Search inside rectangle for the pixel
   For $x = $StartX to $EndX
      For $y = $StartY to $EndY
         If PixelGetColor( $x, $y) = $Color Then
            $aReturn[$CurrentElement][0] = $x
            $aReturn[$CurrentElement][1] = $y
            $CurrentElement = $CurrentElement + 1
         EndIf
      Next
   Next

   ReDim $aReturn[$CurrentElement][2]
   $aReturn[0][0] = $CurrentElement - 1

   Return $aReturn
EndFunc

Func GetLines($StartX, $StartY, $EndX, $EndY, $Color)
   Local $arLineCheck = 0, $intElement = 1, $FirstFound = 0
   Dim $arNewLine[255][4]

   #cs
   DEBUG
   $arStartCoord[0] =

   $arStartCoord = PixelSearch ($StartX, $StartY, $EndX, $EndY, $Color)
   MsgBox("","", $arStartCoord[0] & ", " & $arStartCoord[1])
   If @error = 1 Then
      SetError(1)
      Return
   EndIf

   $arNewLine[$intElement][0] = $arStartCoord[0]
   $arNewLine[$intElement][1] = $arStartCoord[1]
   #CE


   While $StartY < $EndY
      ;Scan 1 pixel line

      ;debug
      ;MouseMove( $StartX, $StartY, 0)
      ;Sleep(500)
      ;MouseMove( $StartX, $StartY+100, 0)
      $arLineCheck = PixelSearch ($StartX, $StartY, $EndX, $StartY, $Color)

      ; Find first line
      If @error = 0 AND $FirstFound = 0 Then
         $arNewLine[$intElement][0] = $StartX
         $arNewLine[$intElement][1] = $arLineCheck[1]

         $FirstFound = 1
      EndIf

      ; If nothing found, set end of line
      If @error = 1 AND $FirstFound > 0 Then
         $arNewLine[$intElement][2] = $EndX
         $arNewLine[$intElement][3] = $StartY

         $intElement = $intElement + 1;

         $FirstFound = 0
         #CS
         ; Looking for another line within 15 pixels
         $arLineCheck = PixelSearch ($StartX, $StartY, $EndX, $StartY+15, $Color)

         ; If something is found, add it
         If @error = 0 Then
            ; Reset the new Y coordinate start point for line search
            $arLineCheck[1] = $StartY

            $arNewLine[$intElement][0] = $arLineCheck[0]
            $arNewLine[$intElement][1] = $arLineCheck[1]
         EndIf
         #CE
      EndIf

      $StartY = $StartY + 1;
   WEnd

   $arNewLine[0][0] = $intElement - 1
   ReDim $arNewLine[$intElement][4]

   Return $arNewLine
EndFunc

Func GetCharacters($StartX, $StartY, $EndX, $EndY, $Color, $Height = 12, $Width = 12)
   Local $vSearchCoord, $vCharacter = 2, $vLineCheck, $FirstFound = 1, $Check = 0
   Local $Error
   Dim   $vCharCheck, $aNewCharacter[255][4]

   $vSearchCoord = PixelSearch ($StartX, $StartY, $EndX, $EndY, $Color)

   If @error = 1 Then
      SetError(1)
      Return
   EndIf

   $aNewCharacter[1][0] = $vSearchCoord[0]
   $aNewCharacter[1][1] = $vSearchCoord[1]

   ;Check for a line between characters to differ between them
   While $vSearchCoord[0] < $EndX
      $vSearchCoord[0] = $vSearchCoord[0] + 1
      $vLineCheck = PixelSearch ($vSearchCoord[0], $StartY, $vSearchCoord[0]+1, $EndY, $Color)

      $Error = @error
      #CS
      ; Check for another character can be interrupted by a gap in pixels in a character
      ; so I check for TWO pixels between each character
      ; I also add a check for spaces, by proving if there's more than 1 space between, then there's a pixel
      #CE
      If $Error = 0 AND $FirstFound = 0 Then
         ; Reset the new X coordinate start point for line search
         $vSearchCoord[0] = $vLineCheck[0]

         $aNewCharacter[$vCharacter][0] = $vLineCheck[0]
         $aNewCharacter[$vCharacter][1] = $vLineCheck[1]

         $vCharacter = $vCharacter + 1

         $FirstFound = 1

         $Check = 0
      EndIf

      If $Error = 1 Then
         $Check = $Check + 1
      EndIf

      If $Error = 1 AND $Check = 1  Then
         ; Nothing found:
         ;     Adding end of character coord
         $aNewCharacter[$vCharacter-1][2] = $vSearchCoord[0]
         $aNewCharacter[$vCharacter-1][3] = $EndY

         $FirstFound = 0
      EndIf
   WEnd

   $aNewCharacter[0][0] = $vCharacter - 1
   ReDim $aNewCharacter[$vCharacter][4]

   Return $aNewCharacter
EndFunc

Func End()
   Exit
EndFunc

 

[Eneitilyn]

hello I am new to autoit forums and Autoit in general my most advanced script is moving the mouse around so could somebody please help me with this script and what exactly does this error mean ? 

Line 106 (File "%scriptpath%\ocr.au3"

Local $aCoord, $Length, $Width, $Area,_
Local $aCoord, $Length, $Width, $area,^ ERROR

Error: No variable given for "Dim", "Local", "Global", "Struct" or Const" 

the code is 

Spoiler

expandcollapse popup

;===========================================================================
   ; Settings
   ;===========================================================================
Opt("MustDeclareVars", 1)
Opt("WinTitleMatchMode", 2)
Opt("TrayIconDebug", 1)

   ;===========================================================================
   ; Includes
   ;===========================================================================
#include <character_definitions.au3>

   ;===========================================================================
   ; Setting hotkeys
   ;===========================================================================
HotKeySet("{PAUSE}", "end")

   ;===========================================================================
   ; Testing OCR
   ;===========================================================================
Local $Find, $i, $var, $e, $distx, $disty, $File, $String, $DistanceString, $Line, $Pixel

WinActivate("Paint")

Sleep(1000)

; Colors:
;  White    = 12895428
;  Blue     = 5263532

Local $TimerInit, $TimerDiff
$TimerInit = TimerInit()


$Pixel = 12895428

$File = FileOpen( "output.txt", 2 )

For $Scans = 1 to 2
   ; COORDINATES / PIXEL HERE:
   $Line = GetLines( 61, 43, 318, 139, $Pixel )

   For $LineNum = 1 to $Line[0][0]
      $Find = GetCharacters ( $Line[$LineNum][0], $Line[$LineNum][1], $Line[$LineNum][2], $Line[$LineNum][3], $Pixel )

      Local $String = ""

      Dim $DistanceString[$Find[0][0]+1]

      For $i = 1 to $Find[0][0]
         ; Finds every pixel in the square
         $var = _GetAllPixels($Find[$i][0], $Find[$i][1], $Find[$i][2], $Find[$i][3], $Pixel )

         ; For every value, write the distance from StartX/StartY to
         ; FoundX/FoundY of each pixel
         For $e = 1 to $Var[0][0]
            $distx = $Find[$i][0] - $Var[$e][0]
            $disty = $Find[$i][1] - $Var[$e][1]

            ; Making one big long string for the letter
            $DistanceString[$i] = $DistanceString[$i] & $distx & "," & $disty & ";"
         Next

         ; For some strange reason there was a 0 at the beggining of each string;
         ; this gets rid of it.
         $DistanceString[$i] = StringTrimLeft ( $DistanceString[$i], 5 )

         For $x = 1 to UBound($arCharacters) - 1
            If $arCharacters[$x][1] == $DistanceString[$i] Then
               $String = $String & $arCharacters[$x][0]
            EndIf
         Next

         ;Space stuff, if more than 4 pixels between the end of characters
         ; add a space.

         If UBound($Find) > $i + 1 Then
            ;MsgBox("","", $Find[$i][2] & ", " & $Find[$i+1][0] )
            If Abs($Find[$i][2] - $Find[$i+1][0]) > 4 Then $String = $String & " "
         EndIf

         ;If $i > 1 AND $Find[$i][0]-$Find[$i-1][0] > 10 Then
         ;;; Found a space inbetween letters
         ;   $String =  $String & " "
         ;EndIf

         ;FileWriteLine( $File, $String[$i] & "=" & $DistanceString[$i])
         ;MsgBox("","", $String )
      Next

      FileWriteLine( $File, $String )
   Next

   $Pixel = 5263532
Next

FileClose($File)

$TimerDiff = TimerDiff ($TimerInit)
MsgBox("", "", $TimerDiff)

   ;===========================================================================
   ; Functions
   ;===========================================================================
Func _GetAllPixels($StartX, $StartY, $EndX, $EndY, $Color)
   Local $aCoord, $Length, $Width, $Area,_
         $i, $x, $y, $CurrentElement = 1

   ; Get area of rectangle to initiate array
   $Length = Abs($StartX - $EndX)
   $Width = Abs($StartY - $EndY)
   $Area = $Length * $Width
   Dim $aReturn[$Area + 1][2]

   ; Search inside rectangle for the pixel
   For $x = $StartX to $EndX
      For $y = $StartY to $EndY
         If PixelGetColor( $x, $y) = $Color Then
            $aReturn[$CurrentElement][0] = $x
            $aReturn[$CurrentElement][1] = $y
            $CurrentElement = $CurrentElement + 1
         EndIf
      Next
   Next

   ReDim $aReturn[$CurrentElement][2]
   $aReturn[0][0] = $CurrentElement - 1

   Return $aReturn
EndFunc

Func GetLines($StartX, $StartY, $EndX, $EndY, $Color)
   Local $arLineCheck = 0, $intElement = 1, $FirstFound = 0
   Dim $arNewLine[255][4]

   #cs
   DEBUG
   $arStartCoord[0] =

   $arStartCoord = PixelSearch ($StartX, $StartY, $EndX, $EndY, $Color)
   MsgBox("","", $arStartCoord[0] & ", " & $arStartCoord[1])
   If @error = 1 Then
      SetError(1)
      Return
   EndIf

   $arNewLine[$intElement][0] = $arStartCoord[0]
   $arNewLine[$intElement][1] = $arStartCoord[1]
   #CE


   While $StartY < $EndY
      ;Scan 1 pixel line

      ;debug
      ;MouseMove( $StartX, $StartY, 0)
      ;Sleep(500)
      ;MouseMove( $StartX, $StartY+100, 0)
      $arLineCheck = PixelSearch ($StartX, $StartY, $EndX, $StartY, $Color)

      ; Find first line
      If @error = 0 AND $FirstFound = 0 Then
         $arNewLine[$intElement][0] = $StartX
         $arNewLine[$intElement][1] = $arLineCheck[1]

         $FirstFound = 1
      EndIf

      ; If nothing found, set end of line
      If @error = 1 AND $FirstFound > 0 Then
         $arNewLine[$intElement][2] = $EndX
         $arNewLine[$intElement][3] = $StartY

         $intElement = $intElement + 1;

         $FirstFound = 0
         #CS
         ; Looking for another line within 15 pixels
         $arLineCheck = PixelSearch ($StartX, $StartY, $EndX, $StartY+15, $Color)

         ; If something is found, add it
         If @error = 0 Then
            ; Reset the new Y coordinate start point for line search
            $arLineCheck[1] = $StartY

            $arNewLine[$intElement][0] = $arLineCheck[0]
            $arNewLine[$intElement][1] = $arLineCheck[1]
         EndIf
         #CE
      EndIf

      $StartY = $StartY + 1;
   WEnd

   $arNewLine[0][0] = $intElement - 1
   ReDim $arNewLine[$intElement][4]

   Return $arNewLine
EndFunc

Func GetCharacters($StartX, $StartY, $EndX, $EndY, $Color, $Height = 12, $Width = 12)
   Local $vSearchCoord, $vCharacter = 2, $vLineCheck, $FirstFound = 1, $Check = 0
   Local $Error
   Dim   $vCharCheck, $aNewCharacter[255][4]

   $vSearchCoord = PixelSearch ($StartX, $StartY, $EndX, $EndY, $Color)

   If @error = 1 Then
      SetError(1)
      Return
   EndIf

   $aNewCharacter[1][0] = $vSearchCoord[0]
   $aNewCharacter[1][1] = $vSearchCoord[1]

   ;Check for a line between characters to differ between them
   While $vSearchCoord[0] < $EndX
      $vSearchCoord[0] = $vSearchCoord[0] + 1
      $vLineCheck = PixelSearch ($vSearchCoord[0], $StartY, $vSearchCoord[0]+1, $EndY, $Color)

      $Error = @error
      #CS
      ; Check for another character can be interrupted by a gap in pixels in a character
      ; so I check for TWO pixels between each character
      ; I also add a check for spaces, by proving if there's more than 1 space between, then there's a pixel
      #CE
      If $Error = 0 AND $FirstFound = 0 Then
         ; Reset the new X coordinate start point for line search
         $vSearchCoord[0] = $vLineCheck[0]

         $aNewCharacter[$vCharacter][0] = $vLineCheck[0]
         $aNewCharacter[$vCharacter][1] = $vLineCheck[1]

         $vCharacter = $vCharacter + 1

         $FirstFound = 1

         $Check = 0
      EndIf

      If $Error = 1 Then
         $Check = $Check + 1
      EndIf

      If $Error = 1 AND $Check = 1  Then
         ; Nothing found:
         ;     Adding end of character coord
         $aNewCharacter[$vCharacter-1][2] = $vSearchCoord[0]
         $aNewCharacter[$vCharacter-1][3] = $EndY

         $FirstFound = 0
      EndIf
   WEnd

   $aNewCharacter[0][0] = $vCharacter - 1
   ReDim $aNewCharacter[$vCharacter][4]

   Return $aNewCharacter
EndFunc

Func End()
   Exit
EndFunc

 

 

[Eneitilyn]

holly ... I am so sorry apparently I have made two topics please feel free to delete one of them ...

[Eneitilyn]

holly ... I am so sorry apparently I have made two topics please feel free to delete one of them ...

[water]

I think you need to add a space before the underscore so that AutoIt interprets this as a line continuation.

[water]

I added a reply to the other thread

[Eneitilyn]

3 minutes ago, water said:

I think you need to add a space before the underscore so that AutoIt interprets this as a line continuation.

which underscore ? Because I don't think I know where ur talking about....

[water]

Func _GetAllPixels($StartX, $StartY, $EndX, $EndY, $Color)
   Local $aCoord, $Length, $Width, $Area,_
         $i, $x, $y, $CurrentElement = 1

should be

Func _GetAllPixels($StartX, $StartY, $EndX, $EndY, $Color)
   Local $aCoord, $Length, $Width, $Area, _
         $i, $x, $y, $CurrentElement = 1

 

[Eneitilyn]

25 minutes ago, water said:

Func _GetAllPixels($StartX, $StartY, $EndX, $EndY, $Color)
   Local $aCoord, $Length, $Width, $Area,_
         $i, $x, $y, $CurrentElement = 1

should be

Func _GetAllPixels($StartX, $StartY, $EndX, $EndY, $Color)
   Local $aCoord, $Length, $Width, $Area, _
         $i, $x, $y, $CurrentElement = 1

 

okay here is my next problem... this thing is supposed to read characters specific to a Font apparently and I think it puts whatever is on screen into a text file called output.txt but right now that I no longer see that error message I don't know why it isn't working I have the #include file which is 
 

Spoiler

expandcollapse popup

Dim $arCharactersTemp[63][2]

$arCharactersTemp[1][0]="A"
$arCharactersTemp[1][1]="0,-1;-1,0;-1,-1;-7,0;-7,-1;"

$arCharactersTemp[2][0]="B"
$arCharactersTemp[2][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;0,-7;0,-8;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-1,-7;-1,-8;-2,0;-2,-3;-2,-7;-3,0;-3,-2;-3,-3;-3,-7;-4,0;-4,-1;-4,-2;-4,-3;-4,-4;-4,-5;-4,-6;-4,-7;"

$arCharactersTemp[3][0]="C"
$arCharactersTemp[3][1]="0,-1;0,-2;-1,-1;-1,-2;-1,-3;-2,-3;-2,-4;-3,-4;-3,-5;-4,-4;-4,-5;-5,-4;-5,-5;-6,-4;"

$arCharactersTemp[4][0]="D"
$arCharactersTemp[4][1]="0,-1;0,-2;0,-5;0,-6;0,-7;0,-8;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-1,-7;-1,-8;-3,0;-3,-7;-4,0;-4,-7;-5,0;-5,-1;-5,-6;-5,-7;-6,-1;-6,-2;-6,-3;-6,-4;-6,-5;-6,-6;"

$arCharactersTemp[5][0]="E"
$arCharactersTemp[5][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-2,-1;-2,-2;-2,-5;-2,-6;-3,-1;-3,-2;-3,-5;-3,-6;-4,-1;-4,-2;-4,-5;-4,-6;"

$arCharactersTemp[6][0]="F"
$arCharactersTemp[6][1]="0,-2;0,-3;0,-4;0,-5;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-1,-7;-2,0;-2,-3;-2,-4;-3,0;-4,0;-4,-3;-4,-4;-5,-3;"

$arCharactersTemp[7][0]="G"
$arCharactersTemp[7][1]="0,-1;0,-2;0,-3;-1,-4;-2,-5;-3,-5;-3,-6;-4,-5;-4,-6;-5,-1;-5,-2;-5,-5;-6,-1;-6,-2;-6,-3;-6,-4;-6,-5;"

$arCharactersTemp[8][0]="H"
$arCharactersTemp[8][1]="0,-3;0,-4;0,-5;0,-6;0,-7;0,-8;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-1,-7;-1,-8;-2,-3;-2,-4;-3,-3;-3,-4;-4,-3;-4,-4;-5,0;-5,-1;-5,-2;-5,-3;-5,-4;-5,-5;-5,-6;-5,-7;-5,-8;-6,-4;-6,-6;-6,-7;"

$arCharactersTemp[9][0]="I"
$arCharactersTemp[9][1]="0,-1;0,-4;0,-5;0,-6;0,-7;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-1,-7;"

$arCharactersTemp[10][0]="J"
$arCharactersTemp[10][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;0,-7;0,-8;0,-9;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-1,-7;-1,-8;"

$arCharactersTemp[11][0]="K"
$arCharactersTemp[11][1]="-1,0;-6,0;"

$arCharactersTemp[12][0]="L"
$arCharactersTemp[12][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;0,-7;0,-8;-1,-7;-2,-7;-2,-8;-3,-7;-3,-8;-4,-8;"

$arCharactersTemp[13][0]="M"
$arCharactersTemp[13][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;0,-7;0,-8;-1,0;-2,0;-3,0;-3,-1;-3,-2;-3,-3;-3,-4;-3,-5;-3,-6;-3,-7;-3,-8;-4,0;-4,-1;-4,-2;-4,-3;-4,-4;-4,-5;-4,-6;-4,-7;-4,-8;-5,0;-6,0;-7,0;-7,-1;-7,-2;-7,-3;-7,-4;-7,-5;-7,-6;-7,-7;-7,-8;-8,0;-8,-1;-8,-2;-8,-3;-8,-4;-8,-5;-8,-6;-8,-7;-8,-8;"

$arCharactersTemp[14][0]="N"
$arCharactersTemp[14][1]="0,-3;0,-4;0,-5;0,-6;0,-7;0,-8;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-1,-7;-1,-8;-2,-2;-3,-2;-3,-3;-4,-4;-5,-5;-6,0;-6,-1;-6,-2;-6,-3;-6,-4;-6,-5;-6,-6;-6,-8;-7,0;-7,-7;-7,-8;"

$arCharactersTemp[15][0]="O"
$arCharactersTemp[15][1]="0,-1;0,-2;0,-3;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-2,-1;-2,-2;-2,-5;-3,-1;-3,-2;-3,-5;-3,-6;-4,0;-4,-1;-4,-2;-4,-3;-4,-4;-4,-5;-4,-6;-5,-1;-5,-2;-5,-5;-6,-1;-6,-2;-6,-4;-6,-5;-7,0;-7,-1;-7,-2;-7,-3;-7,-4;-8,0;-8,-1;-8,-2;-8,-3;"

$arCharactersTemp[16][0]="P"
$arCharactersTemp[16][1]="0,-1;0,-2;0,-5;0,-6;0,-7;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-1,-7;-2,0;-2,-4;-3,0;-3,-4;-4,0;-4,-1;-4,-2;-4,-3;-5,-2;"

$arCharactersTemp[17][0]="Q"
$arCharactersTemp[17][1]="0,-1;0,-2;0,-3;0,-4;-1,0;-1,-4;-1,-5;-2,-5;-3,-5;-3,-6;-4,-3;-4,-4;-4,-5;-4,-6;-4,-7;-5,-5;-5,-6;-6,-5;-7,0;-7,-1;-7,-3;-7,-4;-8,0;-8,-1;-8,-2;-8,-3;"

$arCharactersTemp[18][0]="R"
$arCharactersTemp[18][1]="0,-1;0,-2;0,-3;0,-7;0,-8;-1,0;-1,-4;-1,-6;-1,-7;-2,0;-2,-4;-3,0;-3,-3;-3,-4;-3,-5;-4,-1;-4,-2;-4,-3;-4,-6;-5,-7;-6,-7;-6,-8;"

$arCharactersTemp[19][0]="S"
$arCharactersTemp[19][1]="0,-1;0,-5;0,-6;-1,0;-1,-1;-1,-2;-1,-5;-1,-6;-2,-2;-2,-6;-3,-3;-3,-6;-4,0;-4,-3;-4,-4;-4,-5;-4,-6;"

$arCharactersTemp[20][0]="T"
$arCharactersTemp[20][1]="-1,0;-2,0;-3,0;-4,0;-4,-2;-4,-4;-4,-5;-4,-7;-4,-8;-5,0;-5,-1;-5,-2;-5,-3;-5,-4;-5,-5;-5,-6;-5,-7;-5,-8;-6,0;-7,0;-8,0;"

$arCharactersTemp[21][0]="U"
$arCharactersTemp[21][1]="0,-1;0,-2;0,-3;0,-4;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-2,-5;-2,-7;-3,-7;-4,-7;-4,-8;-5,-7;-5,-8;-6,-7;-7,-7;-8,0;-8,-1;-8,-2;-8,-3;-8,-4;-8,-5;-8,-6;-9,0;-9,-1;-9,-2;-9,-3;-9,-4;-9,-5;"

$arCharactersTemp[22][0]="V"
$arCharactersTemp[22][1]="-1,0;-1,-1;-1,-2;-2,-2;-2,-3;-3,-4;-3,-5;-4,-6;-4,-7;-5,-5;-5,-6;-6,-3;-6,-4;-6,-5;-7,-1;-7,-2;-7,-3;-8,0;-8,-1;"

$arCharactersTemp[23][0]="W"
$arCharactersTemp[23][1]="-1,0;-1,-1;-1,-2;-2,-2;-2,-3;-2,-4;-3,-4;-3,-5;-3,-6;-4,0;-4,-6;-4,-7;-4,-8;-5,0;-5,-1;-5,-2;-5,-5;-5,-6;-5,-7;-6,-2;-6,-3;-6,-4;-6,-5;-7,-1;-7,-2;-7,-3;-7,-5;-7,-6;-8,0;-8,-1;-8,-6;-8,-7;-9,-5;-9,-6;-10,-3;-10,-4;-11,0;-11,-1;-11,-2;-12,0;"

$arCharactersTemp[24][0]="X"
$arCharactersTemp[24][1]="0,-7;0,-8;-1,-1;-1,-6;-2,-2;-2,-5;-3,-3;-3,-4;-4,-3;-4,-4;-5,-2;-5,-5;-6,-1;-6,-6;-7,0;-7,-1;-7,-7;"

$arCharactersTemp[25][0]="Y"
$arCharactersTemp[25][1]="-1,0;-1,-1;-2,-1;-2,-2;-2,-3;-3,-2;-3,-3;-3,-8;-4,-3;-4,-4;-4,-5;-4,-6;-4,-7;-4,-8;-5,-2;-5,-3;-6,-1;-6,-2;-7,0;-7,-1;-8,0;"

$arCharactersTemp[26][0]="Z"
$arCharactersTemp[26][1]="-1,0;-1,-6;-1,-7;-1,-8;-2,0;-2,-5;-2,-6;-2,-7;-2,-8;-3,0;-3,-3;-3,-4;-3,-7;-3,-8;-4,0;-4,-1;-4,-2;-4,-3;-4,-7;-5,0;-5,-1;-5,-7;-5,-8;"

$arCharactersTemp[27][0]="a"
$arCharactersTemp[27][1]="0,-1;-1,0;-2,0;-5,0;"

$arCharactersTemp[28][0]="b"
$arCharactersTemp[28][1]="0,-1;0,-2;0,-3;0,-4;0,-5;-1,0;-1,-2;-2,0;-2,-2;-2,-3;-2,-5;-3,-3;-3,-4;"

$arCharactersTemp[29][0]="c"
$arCharactersTemp[29][1]="-1,0;-1,-1;-2,-2;-3,-3;-5,-3;"

$arCharactersTemp[30][0]="d"
$arCharactersTemp[30][1]="0,-1;0,-2;0,-3;0,-4;0,-5;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-1,-6;-2,0;-2,-6;-3,-6;-4,0;-4,-5;-5,-1;-5,-2;-5,-3;-5,-4;"

$arCharactersTemp[31][0]="e"
$arCharactersTemp[31][1]="0,-1;0,-2;0,-3;0,-5;-1,0;-1,-2;-1,-3;-2,0;-2,-2;-2,-3;-3,0;-3,-2;-3,-3;-3,-6;"

$arCharactersTemp[32][0]="f"
$arCharactersTemp[32][1]="0,-1;0,-2;0,-3;0,-4;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-1,-5;-2,0;-2,-2;-2,-3;-3,0;-3,-2;-3,-3;"

$arCharactersTemp[33][0]="g"
$arCharactersTemp[33][1]="0,-1;-1,-2;-1,-3;-2,-4;-3,-1;-3,-4;-4,-1;-4,-4;-5,-1;-5,-2;-5,-3;"

$arCharactersTemp[34][0]="h"
$arCharactersTemp[34][1]="0,-1;0,-2;0,-3;0,-4;0,-5;-1,-1;-1,-2;-1,-4;-2,-1;-2,-2;-3,-1;-4,0;-4,-1;-4,-2;-4,-3;-4,-4;-4,-5;"

$arCharactersTemp[35][0]="i"
$arCharactersTemp[35][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;"

$arCharactersTemp[36][0]="j"
$arCharactersTemp[36][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;"

$arCharactersTemp[37][0]="k"
$arCharactersTemp[37][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;-1,-1;-1,-3;-2,0;-2,-4;-3,0;-3,-5;"

$arCharactersTemp[38][0]="l"
$arCharactersTemp[38][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;-1,-6;-2,-6;"

$arCharactersTemp[39][0]="m"
$arCharactersTemp[39][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;-1,0;-2,0;-3,0;-3,-1;-3,-2;-3,-3;-3,-4;-3,-5;-3,-6;-4,0;-5,0;-6,0;-6,-1;-6,-2;-6,-3;-6,-4;-6,-5;-6,-6;"

$arCharactersTemp[40][0]="n"
$arCharactersTemp[40][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;-1,-1;-2,-2;-2,-3;-3,-3;-3,-4;-4,0;-4,-1;-4,-2;-4,-3;-4,-4;-4,-5;-5,0;-5,-1;-5,-2;-5,-3;-5,-4;-5,-5;-5,-6;"

$arCharactersTemp[41][0]="o"
$arCharactersTemp[41][1]="0,-1;0,-2;0,-3;-1,-2;-1,-3;-1,-4;-2,-2;-2,-4;-2,-5;-3,0;-3,-1;-3,-2;-3,-3;-3,-4;-3,-5;-4,-2;-4,-4;-4,-5;-5,-2;-5,-4;-6,0;-6,-1;-6,-2;-6,-3;"

$arCharactersTemp[42][0]="p"
$arCharactersTemp[42][1]="0,-3;0,-5;-1,0;-1,-3;-2,0;-2,-3;-3,0;-3,-1;-3,-2;"

$arCharactersTemp[43][0]="q"
$arCharactersTemp[43][1]="0,-1;0,-2;0,-3;-1,-4;-2,-5;-3,-3;-3,-4;-3,-5;-3,-6;-4,-4;-5,0;-5,-4;-6,0;-6,-1;-6,-2;-6,-3;"

$arCharactersTemp[44][0]="r"
$arCharactersTemp[44][1]="0,-2;0,-3;-1,-2;-1,-3;-2,0;-2,-3;-3,0;-3,-1;-3,-2;-3,-4;-4,-5;"

$arCharactersTemp[45][0]="s"
$arCharactersTemp[45][1]="0,-4;-1,0;-1,-1;-1,-4;-1,-5;-2,-1;-2,-5;-3,-2;-3,-5;-4,-3;"

$arCharactersTemp[46][0]="t"
$arCharactersTemp[46][1]="0,-1;-1,-1;-2,-1;-3,-1;-3,-2;-3,-3;-3,-4;-3,-5;-3,-6;-4,-1;-5,-1;-6,-1;"

$arCharactersTemp[47][0]="u"
$arCharactersTemp[47][1]="0,-1;0,-2;0,-3;0,-4;-1,-5;-3,-6;-4,-6;-5,-5;-6,0;-6,-1;-6,-2;-6,-3;-6,-4;"

$arCharactersTemp[48][0]="v"
$arCharactersTemp[48][1]="0,-1;-1,-1;-1,-2;-2,-3;-2,-4;-3,-5;-3,-6;-4,-3;-4,-4;-5,-1;-5,-2;-6,0;"

$arCharactersTemp[49][0]="w"
$arCharactersTemp[49][1]="0,-1;0,-2;-1,-3;-1,-4;-2,-5;-2,-6;-3,-2;-3,-3;-3,-5;-3,-6;-4,-3;-4,-4;-4,-5;-5,-1;-5,-2;-5,-3;-5,-5;-5,-6;-6,-1;-6,-6;-7,-3;-7,-4;-8,-1;-8,-2;-8,-3;-9,-1;"

$arCharactersTemp[50][0]="x"
$arCharactersTemp[50][1]="0,-5;-1,-1;-1,-4;-2,-2;-2,-3;-3,-2;-3,-3;-4,-1;-4,-4;-5,0;-5,-5;-6,0;"

$arCharactersTemp[51][0]="y"
$arCharactersTemp[51][1]="-1,0;-2,-1;-3,-2;-3,-4;-3,-5;-4,-2;-5,-1;-6,0;-7,0;"

$arCharactersTemp[52][0]="z"
$arCharactersTemp[52][1]="-1,0;-1,-5;-1,-6;-2,0;-2,-3;-2,-4;-2,-6;-3,-2;-3,-6;-4,0;-4,-1;-4,-6;-5,0;-5,-6;"

$arCharactersTemp[53][0]="1"
$arCharactersTemp[53][1]="0,-1;0,-2;0,-3;0,-4;0,-5;0,-6;0,-7;"

$arCharactersTemp[54][0]="2"
$arCharactersTemp[54][1]="0,-1;0,-6;-1,0;-1,-1;-1,-5;-1,-6;-2,-4;-2,-5;-2,-6;-3,-3;-3,-4;-3,-6;-4,0;-4,-1;-4,-2;-4,-3;-4,-6;-5,0;-5,-1;-5,-6;"

$arCharactersTemp[55][0]="3"
$arCharactersTemp[55][1]="0,-1;-1,0;-1,-5;-1,-6;-1,-7;-2,0;-2,-3;-2,-7;-3,0;-3,-2;-3,-3;-4,0;-4,-1;-4,-3;-4,-4;-4,-7;-5,0;-5,-4;-5,-5;-5,-6;"

$arCharactersTemp[56][0]="4"
$arCharactersTemp[56][1]="-1,0;-2,0;-3,0;-4,0;-4,-1;-4,-2;-5,0;-6,0;"

$arCharactersTemp[57][0]="5"
$arCharactersTemp[57][1]="0,-2;0,-3;-1,0;-1,-1;-1,-2;-1,-3;-1,-4;-2,0;-2,-4;-3,0;-3,-4;-4,0;-4,-1;-4,-3;-4,-4;-5,-1;-5,-2;-5,-3;"

$arCharactersTemp[58][0]="6"
$arCharactersTemp[58][1]="-1,0;-1,-1;-1,-2;-2,-2;-3,-2;-3,-3;-4,-2;-5,0;-5,-1;"

$arCharactersTemp[59][0]="7"
$arCharactersTemp[59][1]="-1,0;-2,0;-2,-6;-2,-7;-3,-4;-3,-5;-4,0;-4,-1;-4,-2;-4,-3;-5,0;"

$arCharactersTemp[60][0]="8"
$arCharactersTemp[60][1]="0,-3;0,-4;0,-5;-1,0;-1,-1;-1,-2;-1,-3;-1,-5;-1,-6;-2,-2;-2,-6;-2,-7;-3,-1;-3,-2;-3,-6;-4,0;-4,-1;-4,-3;-4,-4;-4,-5;-4,-6;-5,-4;-7,0;-7,-1;-8,0;-8,-1;-8,-2;-9,-3;-9,-6;-10,-3;-10,-4;-10,-5;-11,-2;-11,-3;-12,0;-12,-1;-12,-2;"

$arCharactersTemp[61][0]="9"
$arCharactersTemp[61][1]="0,-1;-1,0;-1,-1;-1,-2;-2,-3;-2,-6;-3,-3;-3,-4;-3,-5;-4,-2;-4,-3;-5,0;-5,-1;-5,-2;"

$arCharactersTemp[62][0]="0"
$arCharactersTemp[62][1]="0,-1;0,-2;0,-3;-1,0;-1,-4;-2,-3;-2,-4;-2,-5;-3,-2;-3,-5;-4,-1;-4,-5;-4,-6;-5,0;-6,0;-6,-5;-7,0;-7,-3;-7,-4;-8,0;-8,-1;-8,-2;-8,-3;"

Const $arCharacters = $arCharactersTemp

 

when I run it it shows me a random string "3293.16804612238" or "3224.85298748378" and shows an Ok button....