Hallo,
Beim Anmelden bei Nexon muss jeder eines dieser Bildchen "lösen":
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
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