Grelle Farben als Scherz- oder Discoprogramm
Übersicht
BlitzBasic Allgemein
BlackTermi |
 Di, Jul 12, 2005 16:21Antworten mit Zitat 
|
|
|---|---|---|
| hmm das steht ja schon am anfang der seite.... | ||
|
Devils Child |
Di, Jul 12, 2005 18:20 Antworten mit Zitat
|
|---|---|---|
|
Code: [AUSKLAPPEN] .b:ClsColor Rnd(255),Rnd(255),Rnd(255):Flip:Cls:Goto b
..da hätt ich was längeres: Code: [AUSKLAPPEN] width = 1280.000 height = 1024.000 depth = 32.000 windowmode = 1.000 graphics3d width, height, depth, windowmode repeat a = rand(0, 255) b = rand(0, 255) c = rand(0, 255) clsColor a, b, c Flip Cls if keydown(1) = true then goto ende forever ende: endgraphics clscolor 0, 0, 0 cls länger bekommt es keiner hin 
|
||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
|
MCWulf |
Di, Jul 12, 2005 19:35 Antworten mit Zitat
|
|---|---|---|
|
lol.. länger bekomm ichs locker hin! bin zur zu faul es zu schreiben (bzw mir den code erstellen zu lassen..)
Würden ca 8293648957440 Zeilen werden (ein ziemlich genauer wert!) man macht es so: if randr = 1 and randg = 1 and randb = 1 then color 1,1,1 plot 0,0 plot 0,1 plot 0,2 ... plot 0,767 plot 0,768 plot 1,0 plot 1,1 plot 1,2 ... plot 640,766 plot 640,767 plot 640,768 endif if randr = 1 and randg = 1 and randb = 2 then color 1,1,2 plot 0,0 plot 0,1 plot 0,2 ... plot 0,767 plot 0,768 plot 1,0 plot 1,1 plot 1,2 ... plot 640,766 plot 640,767 plot 640,768 endif if randr = 1 and randg = 1 and randb =3 then color 1,1,3 plot 0,0 plot 0,1 plot 0,2 ... plot 0,767 plot 0,768 plot 1,0 plot 1,1 plot 1,2 ... plot 640,766 plot 640,767 plot 640,768 endif ... if randr =255 and randg = 255 and randb = 255 then color 1,1,1 plot 0,0 plot 0,1 plot 0,2 ... plot 0,767 plot 0,768 plot 1,0 plot 1,1 plot 1,2 ... plot 640,766 plot 640,767 plot 640,768 endif Fertig! 
|
||
|
Jan_Ehemaliger Admin |
Mi, Jul 13, 2005 7:33 Antworten mit Zitat
|
|---|---|---|
|
@alfadur, hm wo ist da der anreiz.
naja, ich werde auf jeden fall kein längeres posten. |
||
| between angels and insects | ||
|
|
Devils Child |
Mi, Jul 13, 2005 14:27 Antworten mit Zitat
|
|---|---|---|
|
ja mcwulf, du hast den vogel abgeschssen!
ps: writepixelfast ist länger vom namen her, als plot, und wenn du ne höhere auflösung nimmst hast du gleine einige milliönchen zeilen mehr. aber mein giga code ist doch geil, oder. vorallem find ich das gut, wo da die graphics mit floats# gesetted werden 
edit: und du hast die schleife vergessen! wenn du den code anstat in ne schleife zu packen einfach mal 1000000 mal untereinander klatscht, wird er noch länger! |
||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
|
Alfadur |
Mi, Jul 13, 2005 14:53 Antworten mit Zitat
|
|---|---|---|
| huiuiui, leute, das sollte ein scherz sein ... | ||
| A Cray is the only computer that runs an endless loop in less than four hours. | ||
|
|
Devils Child |
Mi, Jul 13, 2005 18:57 Antworten mit Zitat
|
|---|---|---|
|
huuuuuiiii, alf, das von mir und mcwulf auch
|
||
|
*X-Ware Member*
Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN |
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group