;===============================================================================
;
; Beschreibung:     Diese Funktion speichert 16bit Graustufen in eine von Metin2 lesbare
;					Heightmap um und speichert diese unter dem angegebenen Pfad
; Parameter(s):
;					$array - Das zu übergebene Array mit den RGB Farben
;					$path - Der Datenpfad, wo die einzelnen Raws gespeichert werden sollen
;					$qx - Gibt die größe in 131px große Quadrate an(X)
;					$qy - Gibt die größe in 131px große Quadrate an(Y)
;
; Rückgabe:
;					1: erfolgreich
;					0: error (siehe Errors)
; Errors:
;					0: alles in Ordnung
;					1: Quadrat error
;					2: datei error
;					3: Array error
; Author(s):        Mario2323 ([GA]Mario von NRGMetin2)
; Note(s):			Konvertierung von allen Bilddatein in Raw datein
;===============================================================================
Func _savefile($array, $path, $qx, $qy)
	Local $filetext
	ProgressOn("Progress Bar", "Speichere Raw in : " & $qx & " x " & $qy & "", " Quadrate. 0 %")
	$index = $qx - 1
	$index2 = $qy - 1
	For $xx = 1 To $qx
		For $xy = 1 To $qy
			For $zeile = ($xx * 130 - 130 + $xx - 1) To (130 * $xx + $xx - 1)
				For $spalte = ($xy * 130 - 130 + $xy - 1) To (130 * $xy + $xy - 1) ;2 Byte = ein pixel
					$dec = Dec($array[$zeile][$spalte])
					$c = $dec / 256 / 256 / 256
					$bit16 = $c * 256
					$lowbyte = 0
					$highbyte = $bit16
					$filetext &= Chr($lowbyte) & Chr($highbyte)
				Next
			Next
			DirCreate($path & "00" & ($xx - 1) & "00" & ($xy - 1))
			$Datei = FileOpen($path & "00" & ($xx - 1) & "00" & ($xy - 1) & "/height.raw", 18) ;binärmodus lesen
			FileWrite($Datei, $filetext)
			FileClose($Datei)
			Local $filetext = ""
			ProgressSet(Int(100 * ($xx + $xy) / ($qx + $qy)), Int(100 * ($xx + $xy) / ($qx + $qy)) & " %")
		Next

	Next
	ProgressOff()
EndFunc   ;==>_savefile