;Initialisierung
screenshot_index=-1
screenshot_start=False
gfx_w=GraphicsWidth()
gfx_h=GraphicsHeight()

;in Hauptschleife
If screenshot_start Then ;Wenn Spieler Screenshot machen will
	img=CreateImage(gfx_w,gfx_h)
	CopyRect 0,0,gfx_w,gfx_h,0,0,FrontBuffer(),ImageBuffer(img)
	screenshot_file=WriteFile("screenshot.bmp")
	screenshot_index=0
	screenhot_start=False
EndIf

If screenshot_index<>-1 Then
	;Hier kommt die Kunst: Nämlich die Farbwerte auf unserem img als bmp speichern
	;Weiß nicht genau wie, aber sollte eigentlich möglich sein, da bmp ja für jeden pixel einfach die Farbe speichert, ähnlich wie es BB auch macht in seinen Buffern
	
	screenshot_index=screenshot_index+1
	If 	screenshot_index>=gfx_h Then
		screenshot_index=-1
		FreeImage img
		CloseFile screenshot_file
	EndIf
EndIf

Global breite=640,hoehe=480
;Datensatz = CreateBank(breite*hoehe*3)

Function BmpLaden(Dateiname$,Datensatz) 
	; Prüfen ob die Datei existiert 
	If Dateiname = "" Then Return 0 
	stream = ReadFile(Dateiname) 
	If Not Stream Then RuntimeError "Bilddatei nicht gefunden!" 
	
	; Header und Dataheader überspringen
	SeekFile (stream,54)
	
	; Bilddaten einlesen   
	For i= 0 To  (breite*hoehe*3)-1
		PokeByte  Datensatz,i, ReadByte (Stream)
	Next
End Function

Function BmpZeichnen (Datensatz,VerschiebungX=0,VerschiebungY=0)
	i=0
	LockBuffer BackBuffer()
	For y =hoehe-1 To  0 Step -1
		For x = 0 To breite-1
			b = PeekByte (Datensatz,i)
			i=i+1
			g = PeekByte (Datensatz,i)
			i=i+1
			r = PeekByte (Datensatz,i)
			i=i+1    
			
			rgb=a*$1000000 + r*$10000 + g*$100 + b
			WritePixelFast   x+VerschiebungX,y+VerschiebungY,rgb, BackBuffer()        
		Next
	Next
	UnlockBuffer BackBuffer()
End Function

Function BmpSpeichern (Datensatz,Pfad$="Test.bmp")
	Stream = WriteFile (Pfad)
	
	WriteByte Stream,66 ;Asci-code für B
	WriteByte Stream,77 ;Asci-code für M, BM = Dateikennung
	
	; Header und Dataheader schreiben
	WriteInt Stream,230454 ;Dateigrösse
	WriteInt Stream,0;Reserved 
	WriteInt Stream,54;BMPstart
	WriteInt Stream,40 ;InfoHeadergrösse
	WriteInt Stream,640;Bitmapbreite->------------------------------auch über eingabe!!
	WriteInt Stream,480 ;Bitmaphoehe
	WriteShort Stream,1;FlaechenAnzahl
	WriteShort Stream,24;BitsProPixel
	WriteInt Stream,0 ;Kompression
	WriteInt Stream,230400 ;BMPDatenanzahl
	WriteInt Stream,3780;XPixelProMeter
	WriteInt Stream,3780;YPixelProMeter
	WriteInt Stream,0 ;AnzahlgebrauchterFarben
	WriteInt Stream,0;AnzahlWichtigerFarben
	
	;Bilddaten schreiben
	For i = 0 To (breite*hoehe*3)-1
		WriteByte Stream,PeekByte(Datensatz,i)
	Next 
	
	CloseFile Stream
End Function