Eneitilyn

help Define variables.....

9 posts in this topic

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 
 

;===========================================================================
   ; 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

 

Share this post


Link to post
Share on other sites



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
;===========================================================================
   ; 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

 

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2016-08-18 - Version 1.4.6.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2016-05-09 - Version 1.2.0.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

I added a reply to the other thread ;)


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2016-08-18 - Version 1.4.6.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2016-05-09 - Version 1.2.0.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites
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....

Share this post


Link to post
Share on other sites
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

 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2016-08-18 - Version 1.4.6.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2016-05-09 - Version 1.2.0.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites
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
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....

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now