PureGolf mit Scrollender Matrix

[Sylvia]

Ok, ich gebe auf

[HeX0R]

Wo bleibt mein ewiger Konkurrent Stefan ?

[Sylvia]

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 

[Batze]

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

[HeX0R]

Das is aber nicht so berauschend

[Batze]

wie?
geht nicht?

[HeX0R]

Einmal und nie wieder

[HeX0R]

So sollte es gehn:

Code: Alles auswählen

GetKeyState_(27)&$80=0

[Batze]

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

[HeX0R]

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