[Only registered and activated users can see links. Click Here To Register...]
Hallo,
Beim Anmelden bei Nexon muss jeder eines dieser Bildchen "lösen":
[Only registered and activated users can see links. Click Here To Register...]
Wenn man aber etwas pöses vor hat, z.B. das Nexon Forum zu spammen (op "caeureporter") und nicht nach jedem gebannten Account wieder selbst einen erstellen zu müsse, dann macht es Sinn dafür ein Tool zu schreiben.
Gedacht, nach langer Zeit getan :)
[Only registered and activated users can see links. Click Here To Register...]
Das Tool ließt das Captcha ein, entfernt alle Farben, außer die 7, die in den Buchstaben enthalten sind und gleicht dann jeden Buchstaben mit seiner Datenbank ab. Sollte sich mal etwas an der Schriftart/Farbe etc. änder, ist im Sourcecode auch eine Funktion enthalten, welche das Tool die neue Situation lernen lässt.
Code:
Func _WriteToArray2($Anfang, $End, $Mid, $oldarry)
$if = 0
$i = 0
$x = 0
Dim $array[1][1]
For $iX = $Anfang To $End Step 1
For $iY = 0 To 49 Step 1
If Dec($oldarry[$iY][$iX]) = 0 Then
If Dec($oldarry[$iY][$iX - 1]) = 0 Then
If Dec($oldarry[$iY][$iX + 1]) = 0 Then
If $iY < 36 And Dec($oldarry[$iY + 1][$iX]) = 0 Then
If $iY > 15 And Dec($oldarry[$iY - 1][$iX]) = 0 Then
$if += 1
ReDim $array[$if + 1][2]
$array[$if][0] = $iX - $Mid
;_ArrayDisplay($array)
$array[$if][1] = $iY - 25
$array[0][0] = $if
Endif
EndIf
EndIf
EndIf
EndIf
;If Dec($oldarry[$iY][$iX]) <> 0 Then
;If Dec($oldarry[$iY][$iX + 1]) <> 0 Then
;If Dec($oldarry[$iY][$iX - 1]) <> 0 Then
;MsgBox(0, "Efs", "Y: " & $iY & " X: " & $iX & "MID: " & $Mid & "l" & 25)
;FileWrite("C:\Code.txt", "If Dec($bild[$MidY +" & $iY - 25 & "][$MidX +" & $iX - $Mid & "]) <> 0 Then" & @CRLF)
;FileWrite("C:\Code.txt", 'ConsoleWrite("' & StringTrimLeft(StringTrimRight($file_in, 4), 19) & '" & @crlf)' & @CRLF)
;$if += 1
;EndIf
;EndIf
;EndIf
$i += 1
Next
$i = 0
$x += 1
Next
;_ArrayDisplay($array)
FileWrite("C:\Code2.txt", "Dim $"& StringTrimLeft(StringTrimRight($file_in, 4), 19) &"XArray[" & $Array[0][0] & "] = [")
For $k2 = 1 to $array[0][0] step 1
FileWrite("C:\Code2.txt", ",'" & $array[$k2][0] & "'")
Next
FileWrite("C:\Code2.txt","]" & @CRLF)
FileWrite("C:\Code2.txt", "Dim $"& StringTrimLeft(StringTrimRight($file_in, 4), 19) &"YArray[" & $Array[0][0] & "] = [")
For $k2 = 1 to $array[0][0] step 1
FileWrite("C:\Code2.txt", ",'" & $array[$k2][1] & "'")
Next
FileWrite("C:\Code2.txt","]" & @CRLF)
FileWrite("C:\Code2.txt", "For $ia" & StringTrimLeft(StringTrimRight($file_in, 4), 19) & "= 0 to " & $Array[0][0] & " step 1" & @crlf & "If Dec($bild[$MidY + $"& StringTrimLeft(StringTrimRight($file_in, 4), 19) &"YArray[$ia" & StringTrimLeft(StringTrimRight($file_in, 4), 19) & "]][$MidX + $"& StringTrimLeft(StringTrimRight($file_in, 4), 19) &"XArray[$ia" & StringTrimLeft(StringTrimRight($file_in, 4), 19) & "]]) then" & @crlf & "$ia" & StringTrimLeft(StringTrimRight($file_in, 4), 19) &"="& $Array[0][0] & @crlf & "Else" & @crlf & "if $ia" & StringTrimLeft(StringTrimRight($file_in, 4), 19) & "= "& $Array[0][0]-1 & " Then Return '" & StringTrimLeft(StringTrimRight($file_in, 4), 19) & "'" & @CRLF & "EndIf" & @CRLF & "Next"& @CRLF)
start()
EndFunc ;==>_WriteToArray2
Hier noch der ganze Sourcecode:
Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=kaacombat.ico
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GDIPlus.au3>
#include <Array.au3>
#include <WinAPI.au3>
#include <Winhttp.au3>
#include <File.au3>
#include <string.au3>
#include <EditConstants.au3>
GUICreate("Nexon Captcha cracker - Lawliet!", 325, 105)
$pic1 = GUICtrlCreatePic("",10,10, 200, 50)
;GUICtrlCreateLabel("Captcha", 10, 30, 60, 25)
$oW = GUICtrlCreateButton("Ort wählen", 230, 20, 70, 30)
$CapLabel = GUICtrlCreateInput("", 10, 70, 200, 25, $ES_Readonly)
$cred = GUICtrlCreateLabel("[NX]Captcha Cracker" & @crlf & " by Lawliet!", 225, 70, 150, 25)
GUICtrlSetFont($cred, 7, 0,0, "Arial")
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
if $msg = $oW Then
global $File_in = FileOpenDialog("Wähle ein Captcha", "C:\", "*.gif Files (*.gif)")
GUICtrlSetImage($Pic1, $file_in)
Start()
EndIf
If $msg = -3 then Exit
WEnd
;$Timer = 0
;$FList = _FileListToArray("C:\Captchas\A-70-9\", "*.gif")
;MsgBox(0, "", $FList[0])
;FileDelete("C:\Code.txt")
;Start()
Func Start()
;$Timer += 1
;Global $file_in = "C:\Captchas\A-70-9\" & $FList[$Timer]
_GDIPlus_Startup()
;FileDelete("C:\Code.txt")
;FileDelete("C:\Captchas\Log.txt")
;FileDelete("C:\Captchas\Log2.txt")
Dim $pixelarray
TrayTip("", $file_in, 1)
;Global $file_in = FileOpenDialog("Bild wählen", "C:\Captchas\A-z0-9\", "Images (*.jpg;*.bmp;*.png;*.gif)")
;ShellExecute($file_in)
;Local $file_in = "C:\Captchas\AutoDownload\" & $Name & ".gif";FileOpenDialog("bild wählen", "C:\captchas\autodownload\", "Bilder (*.gif)");FileOpenDialog("Bild wählen", "C:\Captchas\", "Images (*.jpg;*.bmp;*.png;*.gif)")
;MsgBox(1, "0", $file_in)
_FileImageToArray($file_in, $pixelarray)
_GDIPlus_Shutdown()
_ArraySplitenew($pixelarray)
EndFunc ;==>Start
Func _FileImageToArray($filename, ByRef $aArray)
Local $Reslt, $stride, $format, $Scan0, $iW, $iH, $hImage
Local $v_Buffer, $width, $height
Local $i, $j
$hImage = _GDIPlus_ImageLoadFromFile($filename)
$iW = _GDIPlus_ImageGetWidth($hImage)
$iH = _GDIPlus_ImageGetHeight($hImage)
$Reslt = _GDIPlus_BitmapLockBits($hImage, 0, 0, $iW, $iH, $GDIP_ILMREAD, $GDIP_PXF32ARGB)
$width = DllStructGetData($Reslt, "width")
$height = DllStructGetData($Reslt, "height")
$stride = DllStructGetData($Reslt, "stride")
$format = DllStructGetData($Reslt, "format")
$Scan0 = DllStructGetData($Reslt, "Scan0")
Dim $aArray[$width][$height]
For $i = 0 To $iW - 1
For $j = 0 To $iH - 1
$v_Buffer = DllStructCreate("dword", $Scan0 + ($j * $stride) + ($i * 4))
$aArray[$i][$j] = Hex(DllStructGetData($v_Buffer, 1), 8)
Next
Next
_GDIPlus_BitmapUnlockBits($hImage, $Reslt)
_GDIPlus_ImageDispose($hImage)
Return
EndFunc ;==>_FileImageToArray
Func _getColotPixel($Image)
$colorcount = 0
For $b = 0 To UBound($Image, 2) - 1
For $i = 0 To UBound($Image) - 1
If $Image[$i][$b] = "FF0000FF" Then $colorcount += 1
Next
Next
MsgBox(1, "adw", $colorcount)
Return $colorcount
EndFunc ;==>_getColotPixel
Func _ArraySplitenew($bild)
Local $pixelcount, $bigZero = 0, $pixline, $pixelold, $iE = 0, $startC, $iS = 0
Dim $NewArry[50][200]
Dim $start[4]
Dim $End[9]
Dim $Anfang[9]
For $t = 0 To 6 Step 1
For $iX = 0 To 199 Step 1
For $iY = 0 To 49 Step 1
If $bild[$iX][$iY] = "FF0000FF" Then
$NewArry[$iY][$iX] = $bild[$iX][$iY]
EndIf
If $bild[$iX][$iY] = "FF3333FF" Then
$NewArry[$iY][$iX] = $bild[$iX][$iY]
EndIf
If $bild[$iX][$iY] = "FF6666CC" Then
$NewArry[$iY][$iX] = $bild[$iX][$iY]
EndIf
If $bild[$iX][$iY] = "FF6666CA" Then
$NewArry[$iY][$iX] = $bild[$iX][$iY]
EndIf
If $bild[$iX][$iY] = "FF64649e" Then
$NewArry[$iY][$iX] = $bild[$iX][$iY]
EndIf
If $bild[$iX][$iY] = "FF333399" Then
$NewArry[$iY][$iX] = $bild[$iX][$iY]
EndIf
If $bild[$iX][$iY] = "FF3333cc" Then
$NewArry[$iY][$iX] = $bild[$iX][$iY]
EndIf
If $bild[$iX][$iY] = "FF0033cc" Then
$NewArry[$iY][$iX] = $bild[$iX][$iY]
EndIf
If $bild[$iX][$iY] = "FF0000cc" Then
$NewArry[$iY][$iX] = $bild[$iX][$iY]
EndIf
Next
Next
Next
$start[0] = False
For $iY = 0 To 199 Step 1
For $iX = 0 To 49 Step 1
If $NewArry[$iX][$iY] = "FF0000cc" Then
If $start[0] = False Then
$start[1] = $NewArry[$iX][$iY]
$start[2] = $iX
$startC = $iX
$start[3] = $iY
EndIf
$start[0] = True
$pixelcount += 1
EndIf
If $NewArry[$iX][$iY] = "FF0000FF" Then
If $start[0] = False Then
$start[1] = $NewArry[$iX][$iY]
$start[2] = $iX
$startC = $iX
$start[3] = $iY
EndIf
$start[0] = True
$pixelcount += 1
EndIf
If $NewArry[$iX][$iY] = "FF3333FF" Then
If $start[0] = False Then
$start[1] = $NewArry[$iX][$iY]
$start[2] = $iX
$start[3] = $iY
EndIf
$start[0] = True
$pixelcount += 1
EndIf
If $NewArry[$iX][$iY] = "FF6666CC" Then
If $start[0] = False Then
$start[1] = $NewArry[$iX][$iY]
$start[2] = $iX
$start[3] = $iY
EndIf
$start[0] = True
$pixelcount += 1
EndIf
If $NewArry[$iX][$iY] = "FF6666CA" Then
If $start[0] = False Then
$start[1] = $NewArry[$iX][$iY]
$start[2] = $iX
$start[3] = $iY
EndIf
$start[0] = True
$pixelcount += 1
EndIf
If $NewArry[$iX][$iY] = "FF64649e" Then
If $start[0] = False Then
$start[1] = $NewArry[$iX][$iY]
$start[2] = $iX
$start[3] = $iY
EndIf
$start[0] = True
$pixelcount += 1
EndIf
If $NewArry[$iX][$iY] = "FF333399" Then
If $start[0] = False Then
$start[1] = $NewArry[$iX][$iY]
$start[2] = $iX
$start[3] = $iY
EndIf
$start[0] = True
$pixelcount += 1
EndIf
If $NewArry[$iX][$iY] = "FF3333cc" Then
If $start[0] = False Then
$start[1] = $NewArry[$iX][$iY]
$start[2] = $iX
$start[3] = $iY
EndIf
$start[0] = True
$pixelcount += 1
EndIf
If $NewArry[$iX][$iY] = "FF0033cc" Then
If $start[0] = False Then
$start[1] = $NewArry[$iX][$iY]
$start[2] = $iX
$start[3] = $iY
EndIf
$start[0] = True
$pixelcount += 1
EndIf
Next
If $start[2] > 0 Then
If $start[3] <> $startC Then
ConsoleWrite("Drin " & $start[3] & @CRLF)
$Anfang[$iS] = $start[3]
$iS += 1
EndIf
EndIf
$startC = $start[3]
If $pixelold > 0 Then
If $pixelcount = $pixelold Then
$End[$iE] = $iY
$start[0] = False
$iE += 1
_LogNumber($pixelcount)
$pixelcount = 0
EndIf
EndIf
$pixelold = $pixelcount
Next
$CapName = ""
For $lol = 0 To 7 Step 1
$Mid = _getCharMid($Anfang[$lol], $End[$lol])
;MsgBox(1, "Middle", $Mid[0])
$ret = _getChar($Mid[0], 25, $NewArry, $lol)
$CapName = $CapName & $ret
;_WriteToArray2($Anfang[$lol], $End[$lol], $Mid[0], $NewArry)
;_WriteToArray($Anfang[$lol], $End[$lol], $Mid[0], $NewArry)
Next
$CapName = StringUpper($CapName)
;If StringInStr($CapName, "_") > 0 Then start()
;MsgBox(0, "Captcha", "Captcha: " & $CapName)
GUICtrlSetData($CapLabel, $CapName)
;start()
EndFunc ;==>_ArraySplitenew
Func _LogNumber($number)
FileWrite("C:\Captchas\Log.txt", $number & @CRLF)
EndFunc ;==>_LogNumber
Func _getCharMid($start, $End)
Dim $Mid[2]
$Mid[0] = $start + ($End - $start) / 2
$Mid[1] = 25
$Mid[0] = Ceiling($Mid[0])
Return $Mid
EndFunc ;==>_getCharMid
Func _getChar($MidX, $MidY, $bild, $stelle)
$stelle = $stelle + 1
Dim $1XArray[128] = ['-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','0','0','0','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5']
Dim $1YArray[128] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-7','-6','-5','-3','-2','-1','0','1','-9','-8','-7','-6','-2','-9','-8','-7','-9','-8','-7','6','7','10','-9','-8','3','4','5','6','7','8','9','10','-9','-8','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $ia1= 0 to 128 step 1
If Dec($bild[$MidY + $1YArray[$ia1]][$MidX + $1XArray[$ia1]]) then
$ia1=128
Else
if $ia1= 127 Then Return '1'
EndIf
Next
Dim $2XArray[170] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $2YArray[170] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-3','-2','-1','0','1','-9','-8','-7','-2','-1','0','5','6','-9','-8','-7','-2','-1','0','5','6','-9','-8','-3','-2','-1','5','6','-9','-8','-3','-2','-1','4','5','6','-9','-4','-3','-2','4','5','6','-9','-4','-3','3','4','5','6','7','10','-9','2','3','4','5','6','7','8','9','10','-9','2','3','4','5','6','7','8','9','10','-9','1','2','3','4','5','6','7','8','9','10','-9','-8','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-6','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $ia2= 0 to 170 step 1
If Dec($bild[$MidY + $2YArray[$ia2]][$MidX + $2XArray[$ia2]]) then
$ia2=170
Else
if $ia2= 169 Then Return '2'
EndIf
Next
Dim $3XArray[172] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','1','1','1','1','1','2','2','2','2','2','2','3','3','3','3','3','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $3YArray[172] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-7','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-3','-2','-1','2','3','4','5','6','-9','-8','-3','-2','3','4','5','6','-9','-8','-3','-2','3','4','5','10','-9','-4','-3','3','4','10','-9','-4','-3','9','10','-9','-4','-3','8','9','10','-9','7','8','9','10','-9','6','7','8','9','10','-9','-8','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-6','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $ia3= 0 to 172 step 1
If Dec($bild[$MidY + $3YArray[$ia3]][$MidX + $3XArray[$ia3]]) then
$ia3=172
Else
if $ia3= 171 Then Return '3'
EndIf
Next
Dim $4XArray[149] = ['-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','0','0','0','0','0','1','1','1','1','1','2','2','2','2','2','3','3','3','3','3','3','4','4','4','4','4','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $4YArray[149] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','6','7','8','9','10','-9','-8','-7','-6','-5','-4','6','7','10','-9','-8','-7','-6','-5','-9','-8','-7','-6','1','-9','-8','-7','-1','10','-9','-8','8','9','10','-9','6','7','8','9','10','6','7','8','9','10','-1','0','1','6','7','8','9','10','-3','-2','-1','0','1','2','5','6','7','8','9','10','-9','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $ia4= 0 to 149 step 1
If Dec($bild[$MidY + $4YArray[$ia4]][$MidX + $4XArray[$ia4]]) then
$ia4=149
Else
if $ia4= 148 Then Return '4'
EndIf
Next
Dim $5XArray[145] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','1','1','1','1','2','2','2','2','2','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $5YArray[145] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','3','4','-9','-8','-7','-6','-5','-4','4','5','-9','-8','-7','-6','4','5','6','-9','-8','3','4','5','6','-9','2','3','4','5','6','-9','2','3','4','5','-9','1','2','3','4','5','10','-9','-4','1','2','3','4','10','-9','-4','9','10','-9','-4','8','9','10','-9','-4','7','8','9','10','-9','-4','-3','5','6','7','8','9','10','-9','-4','-3','-2','-1','3','4','5','6','7','8','9','10','-9','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $ia5= 0 to 145 step 1
If Dec($bild[$MidY + $5YArray[$ia5]][$MidX + $5XArray[$ia5]]) then
$ia5=145
Else
if $ia5= 144 Then Return '5'
EndIf
Next
Dim $6XArray[135] = ['-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','2','2','2','2','2','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6']
Dim $6YArray[135] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','10','-9','-8','-7','-6','-5','-4','-3','-2','-9','-8','-7','-6','-5','-4','-3','-9','-8','-7','-6','-5','-4','3','4','5','6','-9','-8','-7','-6','-5','3','4','5','6','-9','-8','-7','-6','2','3','4','5','6','-9','-8','-7','2','3','4','5','10','-9','-8','-7','2','3','4','10','-9','-8','-3','9','10','-9','-8','-4','-3','-2','8','9','10','-9','-4','-3','-2','7','8','9','10','-9','-8','-5','-4','-3','-2','-1','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','3','4','5','6','7','8','9','10']
For $ia6= 0 to 135 step 1
If Dec($bild[$MidY + $6YArray[$ia6]][$MidX + $6XArray[$ia6]]) then
$ia6=135
Else
if $ia6= 134 Then Return '6'
EndIf
Next
Dim $7XArray[216] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8']
Dim $7YArray[216] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-7','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-4','-3','-2','-1','0','1','2','3','10','-9','-4','-3','-2','-1','0','1','2','9','10','-9','-4','-3','-2','-1','0','7','8','9','10','-9','-4','-3','-2','-1','6','7','8','9','10','-9','-4','-3','-2','5','6','7','8','9','10','-9','-4','-3','4','5','6','7','8','9','10','-9','2','3','4','5','6','7','8','9','10','-9','1','2','3','4','5','6','7','8','9','10','-9','0','1','2','3','4','5','6','7','8','9','10','-9','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $ia7= 0 to 216 step 1
If Dec($bild[$MidY + $7YArray[$ia7]][$MidX + $7XArray[$ia7]]) then
$ia7=216
Else
if $ia7= 215 Then Return '7'
EndIf
Next
Dim $8XArray[131] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','1','1','1','1','1','2','2','2','2','2','3','3','3','3','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $8YArray[131] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-5','-9','-8','-7','-6','-9','-8','-7','4','5','6','-9','-8','-7','4','5','6','-9','-8','-3','3','4','5','6','-9','-8','-3','-2','3','4','5','-9','-4','-3','-2','4','10','-9','-4','-3','-2','10','-9','-4','-3','9','10','-9','8','9','10','-9','1','5','6','7','8','9','10','-9','-8','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $ia8= 0 to 131 step 1
If Dec($bild[$MidY + $8YArray[$ia8]][$MidX + $8XArray[$ia8]]) then
$ia8=131
Else
if $ia8= 130 Then Return '8'
EndIf
Next
Dim $9XArray[150] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $9YArray[150] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','-9','-8','-7','-6','-5','-4','-3','-2','2','3','4','5','6','7','-9','-8','-7','-6','-5','-4','3','4','5','6','-9','-8','-7','-6','-5','4','5','6','-9','-8','-7','-6','5','6','-9','-8','-7','5','-9','-8','-2','-1','0','5','10','-9','-8','-3','-2','-1','0','10','-9','-8','-4','-3','-2','-1','0','9','10','-9','-4','-3','-2','-1','0','8','9','10','-9','-4','-3','-2','-1','7','8','9','10','-9','-3','-2','-1','6','7','8','9','10','-9','5','6','7','8','9','10','-9','4','5','6','7','8','9','10','-9','-8','2','3','4','5','6','7','8','9','10','-9','-8','-7','-6','0','1','2','3','4','5','6','7','8','9','10']
For $ia9= 0 to 150 step 1
If Dec($bild[$MidY + $9YArray[$ia9]][$MidX + $9XArray[$ia9]]) then
$ia9=150
Else
if $ia9= 149 Then Return '9'
EndIf
Next
Dim $AXArray[163] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','4','4','4','5','5','6','6','7','7','7','7','7','7']
Dim $AYArray[163] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','6','7','8','9','10','-9','-8','-7','-6','-5','-4','6','7','8','9','10','-9','-8','-7','-6','-5','6','7','8','9','10','-9','-8','-7','-6','5','6','7','8','9','10','-9','-8','-7','0','9','10','-9','-8','10','-9','-8','-9','10','-9','-8','5','6','9','10']
For $iaA= 0 to 163 step 1
If Dec($bild[$MidY + $AYArray[$iaA]][$MidX + $AXArray[$iaA]]) then
$iaA=163
Else
if $iaA= 162 Then Return 'A'
EndIf
Next
Dim $BXArray[115] = ['-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','1','1','1','1','1','1','2','2','2','2','2','3','3','3','3','3','4','4','4','4','4','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $BYArray[115] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-5','-4','-3','-2','-1','-9','-8','-7','-6','-5','-9','-8','-7','5','6','7','-9','-8','4','5','6','7','-9','-1','4','5','6','-9','-3','-2','-1','4','5','6','-9','-4','-3','-2','-1','5','-9','-4','-3','-2','10','-9','-3','-2','9','10','-9','-8','8','9','10','-9','-8','2','7','8','9','10','-9','-8','1','2','3','6','7','8','9','10','-9','-8','-7','0','1','2','3','4','5','6','7','8','9','10']
For $iaB= 0 to 115 step 1
If Dec($bild[$MidY + $BYArray[$iaB]][$MidX + $BXArray[$iaB]]) then
$iaB=115
Else
if $iaB= 114 Then Return 'B'
EndIf
Next
Dim $CXArray[205] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8']
Dim $CYArray[205] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','-9','-8','-7','-6','-5','-4','-3','-9','-8','-7','-6','-5','-4','3','4','5','6','-9','-8','-7','-6','-5','2','3','4','5','6','-9','-8','-7','-6','1','2','3','4','5','6','-9','-8','-7','-6','0','1','2','3','4','5','6','-9','-8','-7','-1','0','1','2','3','4','5','10','-9','-8','-2','-1','0','1','2','3','4','10','-9','-8','-3','-2','-1','0','1','2','3','4','9','10','-9','-8','-4','-3','-2','-1','0','1','2','3','4','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iaC= 0 to 205 step 1
If Dec($bild[$MidY + $CYArray[$iaC]][$MidX + $CXArray[$iaC]]) then
$iaC=205
Else
if $iaC= 204 Then Return 'C'
EndIf
Next
Dim $DXArray[150] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $DYArray[150] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','10','-9','-8','-7','-6','-5','-4','-3','-2','-9','-8','-7','-6','-5','-9','-8','-7','6','-9','-8','3','4','5','6','-9','0','1','2','3','4','5','6','-9','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-3','-2','-1','0','1','2','3','4','5','10','-9','-8','-2','-1','0','1','2','3','4','5','10','-9','-8','-2','-1','0','1','2','3','4','10','-9','-8','-7','-1','0','1','2','3','9','10','-9','-8','-7','1','8','9','10','-9','-8','-7','-6','7','8','9','10','-9','-8','-7','-6','-5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','3','4','5','6','7','8','9','10']
For $iaD= 0 to 150 step 1
If Dec($bild[$MidY + $DYArray[$iaD]][$MidX + $DXArray[$iaD]]) then
$iaD=150
Else
if $iaD= 149 Then Return 'D'
EndIf
Next
Dim $EXArray[168] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8']
Dim $EYArray[168] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','10','-9','-8','-7','-6','-5','-4','-3','-2','-9','-8','-7','-6','-5','-9','-8','-7','6','-9','-8','3','4','5','6','-9','3','4','5','6','-9','-3','-2','3','4','5','6','-9','-4','-3','3','4','5','6','-9','-4','-3','3','4','5','6','-9','-4','-3','-2','3','4','5','6','-9','-4','-3','2','3','4','5','6','7','10','-9','-4','-3','2','3','4','5','6','7','8','9','10','-9','-4','-3','2','3','4','5','6','7','8','9','10','-9','-4','-3','1','2','3','4','5','6','7','8','9','10','-9','-5','-4','-3','-2','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iaE= 0 to 168 step 1
If Dec($bild[$MidY + $EYArray[$iaE]][$MidX + $EXArray[$iaE]]) then
$iaE=168
Else
if $iaE= 167 Then Return 'E'
EndIf
Next
Dim $FXArray[200] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8']
Dim $FYArray[200] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-5','-4','-3','-2','10','-9','-8','-7','-6','-5','9','10','-9','-8','-7','6','7','8','9','10','-9','-8','3','4','5','6','7','8','9','10','-9','3','4','5','6','7','8','9','10','-9','-3','2','3','4','5','6','7','8','9','10','-9','-4','-3','2','3','4','5','6','7','8','9','10','-9','-4','-3','2','3','4','5','6','7','8','9','10','-9','-4','-3','2','3','4','5','6','7','8','9','10','-9','-4','-3','2','3','4','5','6','7','8','9','10','-9','-4','-3','2','3','4','5','6','7','8','9','10','-9','-3','1','2','3','4','5','6','7','8','9','10','-9','-8','-3','-2','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iaF= 0 to 200 step 1
If Dec($bild[$MidY + $FYArray[$iaF]][$MidX + $FXArray[$iaF]]) then
$iaF=200
Else
if $iaF= 199 Then Return 'F'
EndIf
Next
Dim $GXArray[160] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8']
Dim $GYArray[160] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','10','-9','-8','-7','-6','-5','-4','-3','-2','-9','-8','-7','-6','-5','-4','-3','-9','-8','-7','-6','-5','-4','4','5','6','-9','-8','-7','-6','-5','5','6','-9','-8','-7','-6','0','5','6','-9','-8','-7','-1','0','5','6','-9','-8','-2','-1','5','10','-9','-8','-3','-2','-1','4','9','10','-9','-8','-4','-3','-2','-1','8','9','10','-9','-4','-3','-2','-1','8','9','10','-9','-4','-3','-2','-1','7','8','9','10','-9','-3','-2','-1','6','7','8','9','10','-9','-8','-3','-2','-1','5','6','7','8','9','10','-9','-8','-7','-3','-2','-1','4','5','6','7','8','9','10','-9','-8','-7','-6','-4','-3','-2','-1','0','3','4','5','6','7','8','9','10']
For $iaG= 0 to 160 step 1
If Dec($bild[$MidY + $GYArray[$iaG]][$MidX + $GXArray[$iaG]]) then
$iaG=160
Else
if $iaG= 159 Then Return 'G'
EndIf
Next
Dim $HXArray[235] = ['-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','9','9','9','9','9','9','9','9','9','9','9','9','9','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10']
Dim $HYArray[235] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-5','-4','-3','-2','10','-9','-8','-7','-6','-5','9','10','-9','-8','6','7','8','9','10','-9','5','6','7','8','9','10','-9','0','5','6','7','8','9','10','-9','-3','-2','-1','0','5','6','7','8','9','10','-9','-8','-6','-5','-4','-3','-2','-1','0','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','4','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','5','6','7','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','4','5','-9','-8','-7','-6','-5','-4','-3','-2','-1','-9','-8','-7','-6','-5','-4','-3','-2','10','-9','-8','-7','-6','-5','8','9','10','-9','-8','-7','5','6','7','8','9','10','-9','-8','2','3','4','5','6','7','8','9','10','-9','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iaH= 0 to 235 step 1
If Dec($bild[$MidY + $HYArray[$iaH]][$MidX + $HXArray[$iaH]]) then
$iaH=235
Else
if $iaH= 234 Then Return 'H'
EndIf
Next
Dim $IXArray[189] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-1','-1','0','0','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $IYArray[189] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-4','-3','-2','-1','0','1','-9','-4','-3','-2','-1','-9','-4','-9','5','-9','3','4','5','6','-9','-1','0','1','2','3','4','5','6','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iaI= 0 to 189 step 1
If Dec($bild[$MidY + $IYArray[$iaI]][$MidX + $IXArray[$iaI]]) then
$iaI=189
Else
if $iaI= 188 Then Return 'I'
EndIf
Next
Dim $JXArray[223] = ['-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8']
Dim $JYArray[223] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-4','-3','-2','-1','0','1','2','3','-9','-4','-3','-2','-1','0','1','10','-9','-4','-3','-2','-1','9','10','-9','8','9','10','-9','6','7','8','9','10','-9','3','4','5','6','7','8','9','10','-9','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iaJ= 0 to 223 step 1
If Dec($bild[$MidY + $JYArray[$iaJ]][$MidX + $JXArray[$iaJ]]) then
$iaJ=223
Else
if $iaJ= 222 Then Return 'J'
EndIf
Next
Dim $kXArray[179] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-2','-2','-2','-1','-1','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8']
Dim $kYArray[179] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-5','-4','-3','-2','10','-9','-8','-7','-6','-5','9','10','-9','-8','-7','6','7','8','9','10','-9','-8','7','8','9','10','-9','9','10','-9','10','-9','-8','-6','-5','-4','1','2','-9','-8','-7','-6','-5','1','2','3','4','-9','-8','-7','-6','0','1','2','3','4','5','-9','-8','-7','-1','0','1','2','3','4','5','6','7','10','-9','-8','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iak= 0 to 179 step 1
If Dec($bild[$MidY + $kYArray[$iak]][$MidX + $kXArray[$iak]]) then
$iak=179
Else
if $iak= 178 Then Return 'k'
EndIf
Next
Dim $lXArray[135] = ['-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5']
Dim $lYArray[135] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-5','-4','-3','-2','-9','-8','-7','-6','-5','-9','-8','-7','6','-9','-8','3','4','5','6','-9','-1','0','1','2','3','4','5','6','-9','-8','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','10']
For $ial= 0 to 135 step 1
If Dec($bild[$MidY + $lYArray[$ial]][$MidX + $lXArray[$ial]]) then
$ial=135
Else
if $ial= 134 Then Return 'l'
EndIf
Next
Dim $MXArray[193] = ['-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-2','-2','-1','-1','0','0','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','6','6','6','6','7','7','7','8','8','9','9','9','9','9','9','9','9','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10']
Dim $MYArray[193] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','6','7','8','9','10','-9','-8','-7','-6','-5','-4','4','5','7','-9','-8','-7','-9','-8','-9','-8','-9','10','-9','-8','-3','-2','-1','0','1','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','4','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','3','4','-9','-8','-7','-6','-9','-8','-7','-9','-8','-9','2','3','4','5','6','9','10','-9','-8','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iaM= 0 to 193 step 1
If Dec($bild[$MidY + $MYArray[$iaM]][$MidX + $MXArray[$iaM]]) then
$iaM=193
Else
if $iaM= 192 Then Return 'M'
EndIf
Next
Dim $nXArray[233] = ['-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-9','-9','-9','-9','-9','-9','-9','-9','-9','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','9','9','9','9','9','9','9','9','9','9','9','9','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10']
Dim $nYArray[233] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-5','-4','-3','-2','10','-9','-8','-7','-6','9','10','-9','-8','6','7','8','9','10','-9','3','4','5','6','7','8','9','10','-9','0','1','2','3','4','5','6','7','8','9','10','-9','2','3','4','5','6','7','8','9','10','-9','-8','3','4','5','6','7','8','9','10','-9','-8','-7','4','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-5','-4','-3','-2','10','-9','-8','-7','-6','-5','9','10','-9','-8','5','6','7','8','9','10','-9','3','4','5','6','7','8','9','10','-9','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $ian= 0 to 233 step 1
If Dec($bild[$MidY + $nYArray[$ian]][$MidX + $nXArray[$ian]]) then
$ian=233
Else
if $ian= 232 Then Return 'n'
EndIf
Next
Dim $oXArray[199] = ['-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9']
Dim $oYArray[199] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','9','10','-9','-8','-7','-6','-5','-4','-3','-2','10','-9','-8','-7','-6','-5','-4','-3','-9','-8','-7','-6','-5','-4','3','4','5','10','-9','-8','-7','-6','-5','1','2','3','4','5','6','-9','-8','-7','-6','0','1','2','3','4','5','6','-9','-8','-7','-1','0','1','2','3','4','5','6','-9','-8','-2','-1','0','1','2','3','4','5','6','-9','-8','-3','-2','-1','0','1','2','3','4','5','-9','-8','-4','-3','-2','-1','0','1','2','3','4','5','10','-9','-4','-3','-2','-1','0','1','2','3','4','9','10','-9','-4','-3','-2','-1','0','1','2','3','9','10','-9','-4','-3','-2','-1','0','1','2','8','9','10','-9','-4','-3','-2','-1','0','8','9','10','-9','-3','-2','7','8','9','10','-9','-8','5','6','7','8','9','10','-9','-8','3','4','5','6','7','8','9','10','-9','-8','2','3','4','5','6','7','8','9','10','-9','-8','-7','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iao= 0 to 199 step 1
If Dec($bild[$MidY + $oYArray[$iao]][$MidX + $oXArray[$iao]]) then
$iao=199
Else
if $iao= 198 Then Return 'o'
EndIf
Next
Dim $pXArray[180] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $pYArray[180] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-5','-4','-3','-2','10','-9','-8','-7','-6','-5','9','10','-9','-8','-7','6','7','8','9','10','-9','-8','4','5','6','7','8','9','10','-9','-1','4','5','6','7','8','9','10','-9','-3','-2','-1','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','4','5','6','7','8','9','10','-9','-4','-3','-2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','3','4','5','6','7','8','9','10','-9','2','3','4','5','6','7','8','9','10','-9','2','3','4','5','6','7','8','9','10','-9','-8','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-6','-5','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iap= 0 to 180 step 1
If Dec($bild[$MidY + $pYArray[$iap]][$MidX + $pXArray[$iap]]) then
$iap=180
Else
if $iap= 179 Then Return 'p'
EndIf
Next
Dim $qXArray[185] = ['-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-9','-9','-9','-9','-9','-9','-9','-9','-9','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','6','6','6','6','6','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','9','9','9','9','9','9','9','9','9','9','9','9','9']
Dim $qYArray[185] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','9','10','-9','-8','-7','-6','-5','-4','10','-9','-8','-7','-6','-5','10','-9','-8','-7','-6','0','1','2','3','4','5','-9','-8','-7','-6','-1','0','1','2','3','4','5','6','-9','-8','-7','-1','0','1','2','3','4','5','6','-9','-8','-2','-1','0','1','2','3','-9','-8','-3','-2','-1','0','1','2','-9','-8','-4','-3','-2','-1','0','1','2','10','-9','-3','-2','-1','0','1','2','3','-9','-4','-3','-2','-1','0','1','2','3','4','-9','-4','-3','-2','-1','0','1','2','3','4','5','-9','-4','-3','-2','-1','0','1','2','3','4','-9','-4','-3','-2','-1','0','1','2','3','-9','-3','-2','-1','0','1','2','8','9','-9','7','8','9','10','-9','-8','6','7','8','9','10','-9','-8','-7','5','6','7','8','9','10','-9','-8','-7','-6','2','3','4','5','6','7','8','9','10']
For $iaq= 0 to 185 step 1
If Dec($bild[$MidY + $qYArray[$iaq]][$MidX + $qXArray[$iaq]]) then
$iaq=185
Else
if $iaq= 184 Then Return 'q'
EndIf
Next
Dim $rXArray[140] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','1','1','1','1','1','1','2','2','2','2','3','3','3','3','3','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $rYArray[140] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','-9','-8','-7','-6','-5','-4','-3','-2','10','-9','-8','-7','-6','-5','9','10','-9','-8','-7','6','7','8','9','10','-9','-8','6','7','8','9','10','-9','-1','0','7','8','9','10','-9','-3','-2','-1','0','8','9','10','-9','-4','-3','-2','-1','0','9','10','-9','-4','-3','-2','-1','10','-9','-3','-2','-1','-9','-8','-2','4','5','-9','-8','4','5','6','10','-9','-8','-7','3','4','5','6','7','8','9','10','-9','-8','-7','-6','2','3','4','5','6','7','8','9','10','-9','-8','-7','-6','-5','0','1','2','3','4','5','6','7','8','9','10']
For $iar= 0 to 140 step 1
If Dec($bild[$MidY + $rYArray[$iar]][$MidX + $rXArray[$iar]]) then
$iar=140
Else
if $iar= 139 Then Return 'r'
EndIf
Next
Dim $sXArray[187] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','3','3','3','3','3','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8']
Dim $sYArray[187] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','1','2','3','4','5','6','7','-9','-8','-7','-6','-5','2','3','4','5','6','7','-9','-8','-7','-6','2','3','4','5','6','7','-9','-8','-7','3','4','5','6','7','-9','-8','-2','3','4','5','6','-9','-8','-3','-2','3','4','5','6','-9','-8','-4','-3','-2','3','4','5','10','-9','-4','-3','-2','4','10','-9','-4','-3','-2','10','-9','-4','-3','-2','-1','9','10','-9','-4','-3','-2','-1','8','9','10','-9','-5','-4','-3','-2','-1','0','5','6','7','8','9','10','-9','-8','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $ias= 0 to 187 step 1
If Dec($bild[$MidY + $sYArray[$ias]][$MidX + $sXArray[$ias]]) then
$ias=187
Else
if $ias= 186 Then Return 's'
EndIf
Next
Dim $tXArray[184] = ['-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $tYArray[184] = ['-9','-4','-3','-2','-1','0','1','2','3','4','-9','-4','-3','-2','-1','0','1','-9','-4','-3','-2','10','-9','9','10','-9','5','6','7','8','9','10','-9','3','4','5','6','7','8','9','10','-9','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iat= 0 to 184 step 1
If Dec($bild[$MidY + $tYArray[$iat]][$MidX + $tXArray[$iat]]) then
$iat=184
Else
if $iat= 183 Then Return 't'
EndIf
Next
Dim $uXArray[226] = ['-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9']
Dim $uYArray[226] = ['-9','-8','-7','-6','-5','-4','-3','-2','9','10','-9','-8','-7','-6','-5','10','-9','-8','-7','10','-9','-8','4','5','-9','0','1','2','3','4','5','6','-9','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','6','7','8','9','10','-9','-8','-7','-6','-5','5','6','7','8','9','10','-9','-8','-7','4','5','6','7','8','9','10','-9','-8','1','2','3','4','5','6','7','8','9','10','-9','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iau= 0 to 226 step 1
If Dec($bild[$MidY + $uYArray[$iau]][$MidX + $uXArray[$iau]]) then
$iau=226
Else
if $iau= 225 Then Return 'u'
EndIf
Next
Dim $vXArray[186] = ['-8','-8','-8','-7','-6','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $vYArray[186] = ['-9','-8','10','-9','-9','-9','-8','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','4','5','6','7','8','9','10','-9','-8','-7','-6','-5','2','3','4','5','6','7','8','9','10','-9','-8','-7','-6','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iav= 0 to 186 step 1
If Dec($bild[$MidY + $vYArray[$iav]][$MidX + $vXArray[$iav]]) then
$iav=186
Else
if $iav= 185 Then Return 'v'
EndIf
Next
Dim $wXArray[231] = ['-11','-11','-10','-9','-9','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-2','-2','-2','-1','-1','0','0','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','9','9','9','9','9','9','9','9','9','9','9','9','9','9','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','11','11','11','11','11','11','11','11','11','11','11','11','11','11','11','11','11','11']
Dim $wYArray[231] = ['-9','-8','-9','-9','10','-9','-8','-1','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','4','5','6','7','8','9','10','-9','-8','-7','-6','-5','5','10','-9','-8','-7','-6','-9','-8','-7','-9','-8','-9','10','-9','-8','-6','-2','-1','0','1','2','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','3','4','5','6','7','8','9','10','-9','-8','-7','-6','-5','1','2','3','4','5','6','7','8','9','10','-9','-8','-7','-6','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iaw= 0 to 231 step 1
If Dec($bild[$MidY + $wYArray[$iaw]][$MidX + $wXArray[$iaw]]) then
$iaw=231
Else
if $iaw= 230 Then Return 'w'
EndIf
Next
Dim $xXArray[270] = ['-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','2','2','2','2','2','2','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10']
Dim $xYArray[270] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','9','10','-9','-8','-7','-5','-4','-3','-2','-1','0','1','2','8','9','10','-9','-8','-3','-2','-1','0','1','2','7','8','9','10','-9','0','1','7','8','9','10','-9','6','7','8','9','10','-9','-8','5','6','7','8','9','10','-9','-8','-7','7','8','9','10','-9','-8','-7','-6','-5','-4','8','9','10','-9','-8','-7','-6','-5','-4','-3','10','-9','-8','-7','-6','-5','-4','-9','-8','-7','-6','-5','1','2','3','-9','-8','-7','-6','0','1','2','3','4','5','6','10','-9','-8','-7','-1','0','1','2','3','4','5','6','7','9','10','-9','-8','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iax= 0 to 270 step 1
If Dec($bild[$MidY + $xYArray[$iax]][$MidX + $xXArray[$iax]]) then
$iax=270
Else
if $iax= 269 Then Return 'x'
EndIf
Next
Dim $YXArray[203] = ['-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-5','-5','-5','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','0','0','0','0','0','0','0','1','1','1','1','1','1','1','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7']
Dim $YYArray[203] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','-9','-8','-3','-2','-1','0','1','2','3','4','5','6','-9','1','2','3','4','5','-9','-8','10','-9','-8','-7','8','9','10','-9','-8','-7','-6','-5','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','-2','-1','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','-3','4','5','6','7','8','9','10','-9','-8','-7','-6','-5','-4','3','4','5','6','7','8','9','10','-9','-8','-7','-6','-5','2','3','4','5','6','7','8','9','10','-9','-8','-7','-6','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iaY= 0 to 203 step 1
If Dec($bild[$MidY + $YYArray[$iaY]][$MidX + $YXArray[$iaY]]) then
$iaY=203
Else
if $iaY= 202 Then Return 'Y'
EndIf
Next
Dim $zXArray[245] = ['-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-11','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-10','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-9','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-8','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-7','-6','-6','-6','-6','-6','-6','-6','-6','-5','-5','-5','-5','-5','-5','-4','-4','-4','-4','-4','-4','-3','-3','-3','-3','-3','-3','-2','-2','-2','-2','-2','-2','-1','-1','-1','-1','-1','-1','0','0','0','0','0','0','0','1','1','1','1','1','1','1','2','2','2','2','2','2','2','2','3','3','3','3','3','3','3','3','3','4','4','4','4','4','4','4','4','4','4','4','5','5','5','5','5','5','5','5','5','5','5','5','5','5','6','6','6','6','6','6','6','6','6','6','6','6','6','6','6','7','7','7','7','7','7','7','7','7','7','7','7','7','7','7','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','8','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9','9','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10','10']
Dim $zYArray[245] = ['-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','4','-9','-8','-7','-6','-5','-4','-3','-2','-1','0','1','2','3','-9','-8','-7','-5','-4','-3','-2','-1','0','1','2','-9','-8','-4','-3','-2','-1','0','1','-9','-4','-3','-2','-1','0','-9','-4','-3','-2','-1','6','-9','-4','-3','-2','5','6','-9','-4','-3','4','5','6','-9','-4','3','4','5','6','-9','-4','2','3','4','5','6','-9','1','2','3','4','5','6','-9','0','1','2','3','4','5','6','-9','-1','0','1','2','3','4','5','6','-9','-1','0','1','2','3','4','5','6','7','10','-9','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10','-9','-8','-6','-5','-4','-3','-2','-1','0','1','2','3','4','5','6','7','8','9','10']
For $iaz= 0 to 245 step 1
If Dec($bild[$MidY + $zYArray[$iaz]][$MidX + $zXArray[$iaz]]) then
$iaz=245
Else
if $iaz= 244 Then Return 'z'
EndIf
Next
Return "_"
EndFunc ;==>_getChar
Func GenerateName($length, $Name = '')
If $length <= 0 Then Return $Name
Return GenerateName($length - 1, $Name & Chr(Random(Asc('a'), Asc('z'), 1)))
EndFunc ;==>GenerateName
Func _WriteToArray($Anfang, $End, $Mid, $oldarry)
$if = 0
$i = 0
$x = 0
For $iX = $Anfang To $End Step 1
For $iY = 0 To 49 Step 1
If Dec($oldarry[$iY][$iX]) = 0 Then
If Dec($oldarry[$iY][$iX - 1]) = 0 Then
If Dec($oldarry[$iY][$iX + 1]) = 0 Then
If $iY < 36 And Dec($oldarry[$iY + 1][$iX]) = 0 Then
If $iY > 15 And Dec($oldarry[$iY - 1][$iX]) = 0 Then
;MsgBox(0, "Efs", "Y: " & $iY & " X: " & $iX & "MID: " & $Mid & "l" & 25)
FileWrite("C:\Code.txt", "If Dec($bild[$MidY +" & $iY - 25 & "][$MidX +" & $iX - $Mid & "]) = 0 Then" & @CRLF)
$if += 1
EndIf
EndIf
EndIf
EndIf
EndIf
;If Dec($oldarry[$iY][$iX]) <> 0 Then
;If Dec($oldarry[$iY][$iX + 1]) <> 0 Then
;If Dec($oldarry[$iY][$iX - 1]) <> 0 Then
;MsgBox(0, "Efs", "Y: " & $iY & " X: " & $iX & "MID: " & $Mid & "l" & 25)
;FileWrite("C:\Code.txt", "If Dec($bild[$MidY +" & $iY - 25 & "][$MidX +" & $iX - $Mid & "]) <> 0 Then" & @CRLF)
;FileWrite("C:\Code.txt", 'ConsoleWrite("' & StringTrimLeft(StringTrimRight($file_in, 4), 19) & '" & @crlf)' & @CRLF)
;$if += 1
;EndIf
;EndIf
;EndIf
$i += 1
Next
$i = 0
$x += 1
Next
FileWrite("C:\Code.txt", 'Return "' & StringTrimLeft(StringTrimRight($file_in, 4), 19) & '"' & @CRLF)
For $k = 1 To $if Step 1
FileWrite("C:\Code.txt", 'Endif' & @CRLF)
Next
start()
EndFunc ;==>_WriteToArray
Func _WriteToArray2($Anfang, $End, $Mid, $oldarry)
$if = 0
$i = 0
$x = 0
Dim $array[1][1]
For $iX = $Anfang To $End Step 1
For $iY = 0 To 49 Step 1
If Dec($oldarry[$iY][$iX]) = 0 Then
If Dec($oldarry[$iY][$iX - 1]) = 0 Then
If Dec($oldarry[$iY][$iX + 1]) = 0 Then
If $iY < 36 And Dec($oldarry[$iY + 1][$iX]) = 0 Then
If $iY > 15 And Dec($oldarry[$iY - 1][$iX]) = 0 Then
$if += 1
ReDim $array[$if + 1][2]
$array[$if][0] = $iX - $Mid
;_ArrayDisplay($array)
$array[$if][1] = $iY - 25
$array[0][0] = $if
Endif
EndIf
EndIf
EndIf
EndIf
;If Dec($oldarry[$iY][$iX]) <> 0 Then
;If Dec($oldarry[$iY][$iX + 1]) <> 0 Then
;If Dec($oldarry[$iY][$iX - 1]) <> 0 Then
;MsgBox(0, "Efs", "Y: " & $iY & " X: " & $iX & "MID: " & $Mid & "l" & 25)
;FileWrite("C:\Code.txt", "If Dec($bild[$MidY +" & $iY - 25 & "][$MidX +" & $iX - $Mid & "]) <> 0 Then" & @CRLF)
;FileWrite("C:\Code.txt", 'ConsoleWrite("' & StringTrimLeft(StringTrimRight($file_in, 4), 19) & '" & @crlf)' & @CRLF)
;$if += 1
;EndIf
;EndIf
;EndIf
$i += 1
Next
$i = 0
$x += 1
Next
;_ArrayDisplay($array)
FileWrite("C:\Code2.txt", "Dim $"& StringTrimLeft(StringTrimRight($file_in, 4), 19) &"XArray[" & $Array[0][0] & "] = [")
For $k2 = 1 to $array[0][0] step 1
FileWrite("C:\Code2.txt", ",'" & $array[$k2][0] & "'")
Next
FileWrite("C:\Code2.txt","]" & @CRLF)
FileWrite("C:\Code2.txt", "Dim $"& StringTrimLeft(StringTrimRight($file_in, 4), 19) &"YArray[" & $Array[0][0] & "] = [")
For $k2 = 1 to $array[0][0] step 1
FileWrite("C:\Code2.txt", ",'" & $array[$k2][1] & "'")
Next
FileWrite("C:\Code2.txt","]" & @CRLF)
FileWrite("C:\Code2.txt", "For $ia" & StringTrimLeft(StringTrimRight($file_in, 4), 19) & "= 0 to " & $Array[0][0] & " step 1" & @crlf & "If Dec($bild[$MidY + $"& StringTrimLeft(StringTrimRight($file_in, 4), 19) &"YArray[$ia" & StringTrimLeft(StringTrimRight($file_in, 4), 19) & "]][$MidX + $"& StringTrimLeft(StringTrimRight($file_in, 4), 19) &"XArray[$ia" & StringTrimLeft(StringTrimRight($file_in, 4), 19) & "]]) then" & @crlf & "$ia" & StringTrimLeft(StringTrimRight($file_in, 4), 19) &"="& $Array[0][0] & @crlf & "Else" & @crlf & "if $ia" & StringTrimLeft(StringTrimRight($file_in, 4), 19) & "= "& $Array[0][0]-1 & " Then Return '" & StringTrimLeft(StringTrimRight($file_in, 4), 19) & "'" & @CRLF & "EndIf" & @CRLF & "Next"& @CRLF)
start()
EndFunc ;==>_WriteToArray2
;If Dec($bild[$MidY +1][$MidX +7]) = 0 Then