Seite 2 von 2
Re: Langeweile, Partikeleffekte in 430 Zeichen
Verfasst: 08.06.2010 04:41
von 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
Re: Langeweile, Partikeleffekte in 430 Zeichen
Verfasst: 08.06.2010 08:32
von 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
Re: Langeweile, Partikeleffekte in 430 Zeichen
Verfasst: 08.06.2010 19:10
von Blackskyliner
Kompressionsrate: 66% Soweit ich das richtig gerechnet habe
Das ist einfach nur krass
Ich warte auf die nächste intuitive Vereinfachung
Re: Langeweile, Partikeleffekte in 430 Zeichen
Verfasst: 08.06.2010 20:27
von NicTheQuick
Naja, Farben und verschiedene Zeichen gibt es ja schon nicht mehr. Von richtiger Kompression kann man da eigentlich nicht mehr reden.
Re: Langeweile, Partikeleffekte in 430 Zeichen
Verfasst: 08.06.2010 20:52
von PureLust
NicTheQuick hat geschrieben: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.
Re: Langeweile, Partikeleffekte in 430 Zeichen
Verfasst: 08.06.2010 22:02
von 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
