Graphics 1280,1024
SetBuffer BackBuffer()



;Variable BILD muss nur einmal mit dem Handle vom Image geladen werden
bild = LoadAnimImage("ichkleinformat2.png", 24, 30, 0, 3)
bild2 = LoadAnimImage("ichkleinformat3.png", 24, 30, 0, 3)
bild3= LoadImage("ichkleinformat5.png")
bild4=LoadAnimImage("ichkleinformat.png",24,30,0,3)
bild5=LoadAnimImage("ichkleinformat4.png",24,30,0,3)
zimmer=LoadImage("meinzimmer.png")
auto=LoadImage("auto1.png")
zimmer=1
auto=2

MaskImage bild, 32, 156, 0
MaskImage bild2, 32, 156, 0
MaskImage bild3, 32, 156, 0
MaskImage bild4, 32, 156, 0
MaskImage bild5, 32, 156, 0
MaskImage zimmer,255,255,255
;Hier wird (wie von Xeres beschrieben) eine Framebegrenzung eingestellt
timer=CreateTimer(10)



Repeat



Color 0,0,0
FlushKeys
 If KeyDown(203)=0 And KeyDown(205)=0 And KeyDown(200)=0 And KeyDown(208)=0 Then
DrawImage bild3,410+x,450+y
EndIf


If x>347 Then auto=2
If x<347 Then zimmer=1

If auto=2 Then
DrawImage auto,1,1
EndIf
 If zimmer=1 Then
DrawImage zimmer,200,400
 EndIf





If KeyDown(205) n=(n+1) Mod 3 x=x+5 DrawImage bild, 410+x, 450+y,n 

If KeyDown(203) n=(n+1) Mod 3 x=x-5 DrawImage bild2, 410+x, 450+y,n
If KeyDown(200) n=(n+1) Mod 3 y=y-5 DrawImage bild4, 410+x, 450+y,n
If KeyDown(208) n=(n+1) Mod 3 y=y+5 DrawImage bild5, 410+x, 450+y,n

If KeyDown(208)=1 Then KeyDown(203)=0 And KeyDown(205)=0
If KeyDown(205)=1 Then KeyDown(200)=0 And KeyDown(208)=0
If KeyDown(203)=1 Then KeyDown(208)=0 And KeyDown(200)=0
If KeyDown(200)=1 Then KeyDown(203)=0 And KeyDown(205)=0


If x>347
;Hier wird auf Maximal der eingestellten Framebegrenzung gewartet
WaitTimer(timer)

;Filp mit 0 als Parameter wartet nicht mehr auf VSync und entlastet den Prozessor ENORM
Flip 0
Cls
Until KeyHit(1)
End

If KeyDown(208)=1 Then KeyDown(203)=0 And KeyDown(205)=0
If KeyDown(205)=1 Then KeyDown(200)=0 And KeyDown(208)=0
If KeyDown(203)=1 Then KeyDown(208)=0 And KeyDown(200)=0
If KeyDown(200)=1 Then KeyDown(203)=0 And KeyDown(205)=0