Langeweile, Partikeleffekte in 430 Zeichen

[PureLust]

Hier mal eine Mixtur aus Kevins und NTQs Varianten in 318 Zeichen:

Code: Alles auswählen

OpenConsole():EnableGraphicalConsole(1):a=25:Dim p.d(a,5):Macro q(k):p(i,k):EndMacro:While 1:ClearConsole():For i=0 To a:q(0)+q(2):q(1)+q(3):q(3)+0.09:If q(1)<a:ConsoleLocate(q(0),q(1)):Print("."):Else:q(0)=38:q(1)=10:q(2)=Random(99)/40-1:q(3)=Random(99)/40-1:q(4)=65+Random(a):q(5)=Random(15):EndIf:Next:Delay(a):Wend

[NicTheQuick]

Oh, da hast du aber was übersehen.
Ein Mixtur ergäbe nämlich nur 284 Zeichen:

Code: Alles auswählen

OpenConsole():EnableGraphicalConsole(1):a=25:Dim p.d(a,3):Macro q(k):p(i,k):EndMacro:While 1:ClearConsole():For i=0 To a:q(0)+q(2):q(1)+q(3):q(3)+0.09:If q(1)<a:ConsoleLocate(q(0),q(1)):Print("."):Else:q(0)=38:q(1)=10:q(2)=Random(90)/45-1:q(3)=Random(90)/45-1:EndIf:Next:Delay(a):Wend

[Blackskyliner]

Kompressionsrate: 66% Soweit ich das richtig gerechnet habe

Das ist einfach nur krass

Ich warte auf die nächste intuitive Vereinfachung

[NicTheQuick]

Naja, Farben und verschiedene Zeichen gibt es ja schon nicht mehr. Von richtiger Kompression kann man da eigentlich nicht mehr reden.

[PureLust]

Naja, Farben und verschiedene Zeichen gibt es ja schon nicht mehr. Von richtiger Kompression kann man da eigentlich nicht mehr reden.

Wieso? Farben und verschiedene Zeichen hatte das "Original" von KeauHou doch auch nicht drin.

[KeauHou]

Meine erste Version mit Farbe und versch. Zeichen hab ich in der Shoutbox der Purebasic-Lounge gepostet. Davon ist die etwas kleinere ohne Farbge entstanden, die ihr hier um die Größe zu drücken vergewaltigt