Graphics 800,600
SetBuffer BackBuffer()

Const MAXX#=5000
Const MAXY#=5000
Const MAXDEPTH#=30
Const MAXTEXT=10
Const SCALE#=3

Global NewSTARTX#=400
Global NewSTARTY#=300
Global akttext=0
Global dir=1,switches=0

Local fps,time,loop
Local xdir=1
Local ydir=1
Local timer=CreateTimer(80)
Local font=LoadFont(\"Courier\",24,False,False,False)
SetFont font

Dim tex$(MAXTEXT)
tex$(0)=\"High!\"
tex$(1)=\"nett oder?\"
tex$(2)=\"Ich mach mal\"
tex$(3)=\"bißchen\"
tex$(4)=\"Werbung :\"
tex$(5)=\"Kauft Egon Ice\"
tex$(6)=\"das Game das einfach\"
tex$(7)=\"jeder braucht...\"
tex$(8)=\"Gugg nich so,\"
tex$(9)=\"kauf Egon Ice!\"
tex$(10)=\"Rewind Selecta!!!\"

Dim img_text(MAXTEXT)
For i=0 To MAXTEXT
	img_text(i)=CreateImage(StringWidth(tex$(i)),StringHeight(Tex$(i)))
	SetBuffer ImageBuffer(img_text(i))
	Color(0,255,0):	Text 0,0,tex$(i),0,0
	MaskImage img_text(i),0,0,0
	SetBuffer BackBuffer()
Next

Type Tstar
	Field x#
	Field y#
	Field z#
	Field speed#
End Type

Type Ttext
	Field x#
	Field y#
	Field z#
	Field speed#
End Type

Function create_star.Tstar(x#,y#,z#,speed#)
	Vstar.Tstar=New Tstar
	Vstar\x#=x#
	Vstar\y#=y#
	Vstar\z#=z#
	Vstar\speed#=speed#
	Return Vstar
End Function

Function init_stars(count)
	For i=1 To count
		create_star(Rand(-MAXX,MAXX),Rand(-MAXY,MAXY),Rand(1,MAXDEPTH),0.05)
	Next 
End Function

Function update_stars()
	For Vstar.Tstar=Each Tstar
		If Vstar\z#<0 Then
			Vstar\x#=Rand(-MAXX,MAXX)
			Vstar\y#=Rand(-MAXY,MAXY)
			Vstar\z#=MAXDEPTH
		Else 	
			Vstar\z#=Vstar\z#-Vstar\speed#
		End If 	
	Next
End Function

Function draw_stars()
	For Vstar.Tstar=Each Tstar
		If Vstar\z>1 Then 
			tx#=Vstar\x#/Vstar\z#+NewSTARTX
			ty#=Vstar\y#/Vstar\z#+NewSTARTY
			tx2#=Vstar\x#/(Vstar\z#-0.3)+NewSTARTX
			ty2#=Vstar\y#/(Vstar\z#-0.3)+NewSTARTY
			Color(255*(MAXDEPTH#-Vstar\z#)/MAXDEPTH#,255*(MAXDEPTH#-Vstar\z#)/MAXDEPTH#,255*(MAXDEPTH#-Vstar\z#)/MAXDEPTH#)
			Line(tx,ty,tx2,ty2)
		End If 	
	Next 
End Function

Function create_text(x#,y#,z#,speed#)
	Vtext.Ttext=New Ttext
	Vtext\x#=x#
	Vtext\y#=y#
	Vtext\z#=z#
	Vtext\speed#=speed#
End Function 

Function init_text(nr)
	Delete Each Ttext 
	width=ImageWidth(img_text(nr))
	height=ImageHeight(img_text(nr))
	SetBuffer ImageBuffer(img_text(nr))
	LockBuffer ImageBuffer(img_text(nr))
	For x=0 To width-1
		For y=0 To height-1
			col=ReadPixelFast(x,y)
			If (col And $FF00)/$100=252 Then
				create_text((x-(width/2))*MAXDEPTH/SCALE,(y-(height/2))*MAXDEPTH/SCALE,MAXDEPTH,Rnd(0.1,0.2))
			End If 
		Next
	Next 	
	UnlockBuffer ImageBuffer(img_text(nr))
	SetBuffer BackBuffer()
End Function 

Function update_text()
	count=0
	gesamt=0
	If dir=1 Then 
		For Vtext.Ttext=Each Ttext
			If Vtext\z#<=2 Then
				Vtext\z#=2
				;Vtext\z#=1
				;Delete Vtext
				count=count+1
			Else
				If Vtext\z#>2 Then Vtext\z#=Vtext\z#-(Vtext\speed#)
			End If
			gesamt=gesamt+1
		Next
		If count=gesamt Then dir=1-dir:switches=switches+1
	Else
		For Vtext.Ttext=Each Ttext
			If Vtext\z#>=30 Then
				Delete Vtext
				count=count+1
			Else
				If Vtext\z#<30 Then Vtext\z#=Vtext\z#+(Vtext\speed#)
			End If
			gesamt=gesamt+1
		Next
		If count=gesamt Then dir=1-dir:switches=switches+1
	End If 	
	If switches=2 Then 
		akttext=akttext+1
		If akttext>MAXTEXT Then akttext=0
		init_text(akttext)
		switches=0
	End If 	
End Function

Function draw_text()
	For Vtext.Ttext=Each Ttext
		tx#=Vtext\x#/(Vtext\z#)+NewSTARTX#
		ty#=Vtext\y#/(Vtext\z#)+NewSTARTY#
		Color(Int(255*(MAXDEPTH#-Vtext\z#)/MAXDEPTH#),Int(255*(MAXDEPTH#-Vtext\z#)/MAXDEPTH#),0)
		Rect tx#-1,ty#-1,2,2,1
		Rect tx#-(MAXDEPTH#-Vtext\z#)/Vtext\z#/SCALE#,ty#-(MAXDEPTH#-Vtext\z#)/Vtext\z#/SCALE#,2*(MAXDEPTH#-Vtext\z#)/Vtext\z#/SCALE#,2*(MAXDEPTH#-Vtext\z#)/Vtext\z#/SCALE#,1
	Next
End Function


init_stars(500)
init_text(0)

While Not KeyHit(1)

	Cls
	draw_stars()
	update_stars()
	draw_text()
	update_text()
	
	NewSTARTX=NewSTARTX+xdir
	NewSTARTY=NewSTARTY+ydir
	If NewSTARTX<150 Or NewSTARTX>649 Then xdir=-xdir 
	If NewSTARTY<150 Or NewSTARTY>449 Then ydir=-ydir

	loop=loop+1:If MilliSecs()-1000>time Then fps=loop:loop=0:time=MilliSecs()
	Text 10,10,\"FPS: \"+fps

	Flip 0
	WaitTimer(timer)

Wend
End