Type maus
	Field ImageNormal
	Field ImageScrollen
End Type

Function maus_ini.maus(ImageUrlNormal$, ImageUrlScrollen$)
	maus.maus = New maus
	maus\ImageNormal = LoadImage(ImageUrlNormal)
	MaskImage maus\ImageNormal, 255, 0, 255
	maus\ImageScrollen = LoadImage(ImageUrlScrollen)
	MaskImage maus\ImageScrollen, 255, 0, 255
	Return maus
End Function

Function maus_zeichnen(maus.maus)
	If MouseDown(2) And (game_zustand = game_run Or game_zustand = game_KartenEditor_run) 
		DrawImage maus\ImageScrollen, MouseX(), MouseY()
	Else
		DrawImage maus\ImageNormal, MouseX(), MouseY()
	EndIf
End Function

Function maus_loeschen(maus.maus)
	If maus <> Null
		Delete maus
	EndIf
End Function

aktueller_speicher= AvailVidMem()
;um zu prüfen wie viel speicher du hast, benutze: totalvidmem()