AppTitle "Splittern"
Graphics 640,480
SetBuffer BackBuffer()
SeedRnd MilliSecs()
out = LoadFont("Tahoma",28,1,0,0)
SetFont out

Const display = 12
Const Splitterfilter# = 3.0
Const drift = 3
Const warten = 1800

Global wert,multi,r,g,b,umfang

Dim Banner$(display)

For i = 1 To display
Read Banner$(i)
Next
Data "Da mir nichts eingefallen ist,","Was ich hier als Text nehmen könnte,"
Data "Nehme ich die sieben Hügel Roms als Text","(Bei Langeweile mit Esc Beenden)"
Data "1. 'Kapitol'","2. 'Palatin'"
Data "3. 'Aventin'","4. 'Caelius'"
Data "5. 'Esquilin'","6. 'Quirinal'"
Data "7. 'Viminal'","Seht ihr, das ist doch toll. :3)"

Dim Farbe(display,3)
For i = 1 To display
detail = Rand(1,6)

Select detail
Case 1
Farbe(i,1) = 255
Farbe(i,2) = 0
Farbe(i,3) = 0
Case 2
Farbe(i,1) = 0
Farbe(i,2) = 255
Farbe(i,3) = 0
Case 3
Farbe(i,1) = 0
Farbe(i,2) = 0
Farbe(i,3) = 255
Case 4
Farbe(i,1) = 255
Farbe(i,2) = 0
Farbe(i,3) = 255
Case 5
Farbe(i,1) = 255
Farbe(i,2) = 255
Farbe(i,3) = 0
Case 6
Farbe(i,1) = 255
Farbe(i,2) = 155
Farbe(i,3) = 0
End Select
Next

umfang = 2000*display
Dim Anzeige(umfang,6,display)

For n = 1 To display
Color Farbe(n,1),Farbe(n,2),Farbe(n,3)
Text 320,100,Banner$(n),1,1

For y = 70 To 120
For x = 50 To 590

wert = ReadPixel(x,y)
r = (wert And $FF0000) /$10000
g = (wert And $FF00) /$100
b = wert And $FF
If r+g+b > 0 Then
Anzeige(multi,1,n) = x
Anzeige(multi,2,n) = y
Anzeige(multi,3,n) = Rand(3,6)
Anzeige(multi,0,n) = Rand(drift-drift*2,drift) ;x
Anzeige(multi,4,n) = Farbe(n,1)
Anzeige(multi,5,n) = Farbe(n,2)
Anzeige(multi,6,n) = Farbe(n,3)
multi = multi + 1
EndIf

Next
Next

Cls
Next

n = 0
Repeat
n = n + 1
Cls
Color Farbe(n,1),Farbe(n,2),Farbe(n,3)
Text 320,100,Banner$(n),1,1
Flip
Delay warten
For t = 1 To 75
Cls
For i = 1 To multi Step Splitterfilter
Plot Anzeige(i,1,n),Anzeige(i,2,n)
Anzeige(i,2,n) = Anzeige(i,2,n) + Anzeige(i,3,n) + Rand(0,4)
Anzeige(i,1,n) = Anzeige(i,1,n) + Anzeige(i,0,n)
If Anzeige(i,4,n) > 5 Then Anzeige(i,4,n) = Anzeige(i,4,n) - Rand(1,5)
If Anzeige(i,5,n) > 5 Then Anzeige(i,5,n) = Anzeige(i,5,n) - Rand(1,5)
If Anzeige(i,6,n) > 5 Then Anzeige(i,6,n) = Anzeige(i,6,n) - Rand(1,5)

Color 0,0,0
Rect 0,0,1,200
Color Anzeige(i,4,n),Anzeige(i,5,n),Anzeige(i,6,n)
Next

Flip
Cls
Next

Until KeyHit(1) Or n >= display
End

For y = 70 To 120 Step 2
For x = 50 To 590 Step 4