;Bildschirmschoner
;
;by Blitzmaster
;
;Parameter:
;    -  Wie schnell gewechselt wird (standart 30) [je höher, je langsamer] (nur 3-Stellige Zahlen)
;    -  Wieviele Punkte gezeichnet werden (standart 999) (nur 4-Stellige Zahlen)
;  Die Parameter sind OHNE Leerzeichen einzugeben, und in der richtigen reihenfolge
;  Wenn nur einer der beiden Parameter anzugeben ist, so muss der andere mit Leerzeichen gefüllt werden
;  Es sind jedoch keine weiteren Leerzeichen erlaubt
; z.B.:
;	0200900 ......Stellt die geschwindigkeit auf 20 und die Anzahl der Sterne auf 900
;
;viel Spaß mit diesem (unsinnigen) Werk 

Graphics 640,480,16,1
SetBuffer BackBuffer()

;Variablen festlegen
anzahlS = 999
wait = 30

;Parameter auslesen
parameters$ = CommandLine$()
anzahlp = Len(parameters$)
If anzahlp <> 7  And anzahlp <> 0 Then RuntimeError \"Fehler! Falsche Parameter\"
If Len(Trim$(parameters$)) = 4 Then
	anzahlS = Int(parameters$)
ElseIf Len(Trim$(paramters$)) = 3 Then
	wait = Int(parameters$)
EndIf



FlushMouse		
;Eigentliche Hauptschleife
Repeat
	Cls
	
	For I = 1 To anzahlS
		Color Rand(255),Rand(255),Rand(255)
		x = Rand(640)
		y = Rand(480)
		Plot x-1,y
		Plot x,y
		Plot x,y+1
		Plot x-1,y+1
	Next
	
	If MouseXSpeed() <> 0 Or MouseYSpeed() <> 0 Then
		Exit
	EndIf
	
	Delay wait
	Flip 
Until KeyDown(1)
End