PureBoard

Verfasst: **11.02.2006 18:32**

Ok, ich gebe auf

Verfasst: **11.02.2006 18:41**

Wo bleibt mein ewiger Konkurrent Stefan ?

Verfasst: **11.02.2006 18:44**

Habs mir nochmal überlegt...300 !

Code: Alles auswählen

b=9601 
Dim A(b) 

For i=0 To b 
  A(i)=Random(222)+33 
Next 
InitSprite() 
OpenScreen(800,600,8,"") 

While GetAsyncKeyState_(27)=0 
  StartDrawing(ScreenOutput()) 
  i=b/2 
  While i 
    j=i*2
    x=j+1 
    DrawText(i%80*10,i/8,Chr(A(j)),A(x)<<8,0) 
    a=Random(250) 
    If i>79 
      If a&1 
        A(x)=A(j-79) 
      EndIf 
    Else 
      A(x)=a 
    EndIf 
    i-1 
  Wend 
  StopDrawing() 
  FlipBuffers() 
Wend

Verfasst: **11.02.2006 19:02**

Code: Alles auswählen

; 293 Zeichen
b=9601
Dim A(b)

For i=0 To b
  A(i)=Random(222)+33
Next
InitSprite()
OpenScreen(800,600,8,"")

While GetKeyState_(27)
  StartDrawing(ScreenOutput())
  i=b/2
  While i
    j=i*2
    x=j+1
    DrawText(i%80*10,i/8,Chr(A(j)),A(x)<<8,0)
    a=Random(250)
    If i>79
      If a&1
        A(x)=A(j-79)
      EndIf
    Else
      A(x)=a
    EndIf
    i-1
  Wend
  StopDrawing()
  FlipBuffers()
Wend

293

Verfasst: **11.02.2006 19:15**

Das is aber nicht so berauschend

Verfasst: **11.02.2006 19:17**

wie?
geht nicht?

Verfasst: **11.02.2006 19:18**

Einmal und nie wieder

Verfasst: **11.02.2006 19:21**

So sollte es gehn:

Code: Alles auswählen

GetKeyState_(27)&$80=0

Verfasst: **11.02.2006 19:22**

Ist aber länger.
Drück mal Escape und starte dann.

Verfasst: **11.02.2006 19:24**

Das ist mir schon klar, aber irgendwie nicht wirklich schön...
Aber ich bin ja keen Schiri

PureBoard

PureGolf mit Scrollender Matrix