'Randomnumbers.info für BlitzMax

'Benutzung:		zufallszahl=RealRand(start,ende)
'			zufallszahl[]=RealRands(start,ende,anzahl)
'Beschreibung:	Gibt eine/anzahl Zufallszahl/en von start bis ende zurück
'			Allerding muss für RealRand/s eine Internetverbindung bestehen

SuperStrict

Function RealRands:Int[](_start:Int,_End:Int,_count:Int)

	
	_count=Max(Min(_count,10000),0)
	_start=Max(Min(_start,1000000),-1000000)
	_End=Max(Min(_End,1000000),-1000000)
	
	Local stream:TStream=ReadStream("http::www.random.org/integers/?num="+_count+"&min="+_start+"&max="+_End+"&col=1&base=10&format=plain&rnd=new")
	If stream=Null Return Null

	Local numbers:Int[_count]
	
	For Local i:Int=1 To _count
		numbers[i-1]=Int(ReadLine(stream))
	Next

	CloseStream stream
	
	Return numbers
End Function
Function RealRand:Int(_start:Int,_End:Int)
	Return RealRands(_start,_End,1)[0]
End Function

Print RealRand(0,1000)