Text farblich verschwinden lassen

[captain third]

ääänd thewinner iiiis Sunny

2 zeilen weniger macht gleich momentaner sieger beim puregolf

[DrShrek]

Es geht auf jeden Fall noch kürzer!

Code: Alles auswählen

InitSprite() 
OpenScreen(640,480,16,"Farb verschwinden test") 
InitKeyboard() 
Repeat 
ExamineKeyboard() 
For i=255 To 0 Step -5 
StartDrawing(ScreenOutput()) 
Locate(300,300) 
BackColor(0,0,0)
FrontColor(i,i,i) 
DrawText("Dies ist ein Verschwindibus test :D") 
StopDrawing() 
FlipBuffers() 
Delay(50) 
Next 
Until KeyboardPushed(#PB_Key_Escape) 

Die Frage ist allerdings:
Was sind die Regeln für dieses PureGolf Turnier?

[freedimension]

Es geht auf jeden Fall noch kürzer!

Hast recht:

Code: Alles auswählen

InitSprite()
OpenScreen(640,480,16,"Farb verschwinden test")
InitKeyboard()
Repeat
ExamineKeyboard()
StartDrawing(ScreenOutput())
Locate(300,300)
BackColor(0,0,0)
c=255-i%255
FrontColor(c,c,c)
DrawText("Dies ist ein Verschwindibus test :D")
StopDrawing()
FlipBuffers()
Delay(50)
i+5
Until KeyboardPushed(1)

Die Frage ist allerdings:
Was sind die Regeln für dieses PureGolf Turnier?

Wer gewinnt bekommt wahlweise einen Ford focus TDI oder eine Weltreise von captain third

[nicolaus]

na da mach ich doch mal mit.

Code: Alles auswählen

InitSprite() 
OpenScreen(640,480,16,"Farb verschwinden test") 
InitKeyboard() 
Repeat 
ExamineKeyboard() 
StartDrawing(ScreenOutput()) 
Locate(300,300) 
BackColor(0,0,0) 
FrontColor(255-I%255,255-I%255,255-I%255) 
DrawText("Dies ist ein Verschwindibus test :D") 
StopDrawing() 
FlipBuffers() 
Delay(50) 
I+5 
Until KeyboardPushed(1)

Bekomme ich jetzt das ticket für die Weltreise

[DrShrek]

Geht immer noch kürzer!

Code: Alles auswählen

InitSprite()
OpenScreen(640,480,16,"Farb verschwinden test")
InitKeyboard()
Repeat
ExamineKeyboard()
StartDrawing(ScreenOutput())
Locate(300,300)
BackColor(0,0,0)
FrontColor(255-i%255,255-i%255,255-i%255)
DrawText("Dies ist ein Verschwindibus test :D")
StopDrawing()
FlipBuffers()
Delay(50)
i+5
Until KeyboardPushed(1)

[nicolaus]

Geht immer noch kürzer!

Code: Alles auswählen

InitSprite()
OpenScreen(640,480,16,"Farb verschwinden test")
InitKeyboard()
Repeat
ExamineKeyboard()
StartDrawing(ScreenOutput())
Locate(300,300)
BackColor(0,0,0)
FrontColor(255-i%255,255-i%255,255-i%255)
DrawText("Dies ist ein Verschwindibus test :D")
StopDrawing()
FlipBuffers()
Delay(50)
i+5
Until KeyboardPushed(1)

ich war schneller

[DrShrek]

...ich war schneller

'Was hams die jungen Leut aber auch eilig heut.'

[nicolaus]

...ich war schneller

'Was hams die jungen Leut aber auch eilig heut.'

glaub mir das mit jung hat sich bei mir schon seit ner weile erledigt

[captain third]

na toll ihr habt euren spaß und ich muss die reise bezahln??? wisst ihr was???ich kanns am kürzesten

Code: Alles auswählen

End

lol

[freedimension]

Jungs, hier geht's um die Anzahl an Zeichen und nicht um die der Zeilen