b=MilliSecs()



Graphics 1000,1000;
Unbenannt=LoadImage("unbenannt.bmp")
Unbenannt1=LoadImage("unbenannt1.bmp")
hintergrund=LoadImage("hintergrund.bmp")
HintergrundIII=LoadImage("HintergrundIII.bmp")
HintergrundII=LoadImage("HintergrundII.bmp")


x=500
y=500





blubb=PlayMusic("download.mp3")

Print"Drücke Leertaste zum starten";
WaitKey;
Cls;

SeedRnd MilliSecs()
e=Rnd(1,3)

If e=1
DrawImage hintergrund,1,1
EndIf


If e=2
DrawImage HintergrundIII,1,1
EndIf


If e=3
DrawImage HintergrundII,1,1
EndIf

c=MilliSecs;
d=b-c




SetBuffer BackBuffer()


While Not KeyHit(1);



If KeyDown(205) 
x=x+5
End If

 If KeyDown(203)
   x=x-5
 EndIf

If KeyDown(208)
y=y+5
EndIf

If KeyDown(200)
y=y-5
EndIf

SeedRnd MilliSecs()
a=Rnd(1,40)
If a=10
Color 1000,0,0
EndIf

If x>988 Then x=988
If x<0 Then x=0
If y>730 Then y=730
If y<0 Then y=0


SeedRnd MilliSecs()
a=Rnd(1,40)
If a=10
Color 1000,0,0
EndIf

If a=9
Color 0,1000,0
EndIf

If a=8
Color 0,0,1000
EndIf

If a=7
Color 1000,1000,0
EndIf


DrawImage Unbenannt,x,y


Flip
wend

for i = 1 to 10
print bla
blub()
next

for i = 1 to 10
    print bla
    blub()
next

;Timer mit 60 Hz (also 60mal pro sek) festlegen, kannst aber auch einen anderen Wert einsetzen
Global timer# = CreateTimer(60)    

;Anzahl der Schleifendurchläufe festlegen
AnzahlDurchlaeufe = 500            

;Hauptschleife wiederholen solange KeyHit(1) also Esc gedrückt wird danach Programm beenden       
While Not KeyHit(1)   

;die Schleife wo die Rechtecke gezeichnet werden         
For i = 1 To AnzahlDurchlaeufe   

;Verzögerung durch Timer erzeugen damit man das Zeichnen an sich auch sieht,
;wenn du die Zeile weg lässt, dann erscheint die Linie einfach scheinbar in einem Schritt
       WaitTimer(timer#)         
       
;Rechteck zeichnen, i wird als x-Wert des Rechtecks genutzt und wird pro Durchlauf um 1 erhöht           
   Rect(i, 235, 5, 5)         

;Schleifenende
Next   

;Hauptschleifenende                  
Wend                  
End