PureGolf mit Scrollender Matrix

[Sylvia]

Einspruch.

Das funktioniert genau 1x. Dann ist aus !


Gilt das jetzt oder nicht ??

[Batze]

Es ist noch verwendbar.
Musst nur mit 2x Escape beenden.
Das stört doch keinen.

[Sylvia]

TAB hat als ESC-Ersatz nicht gegolten.

Dann gilt 2xESC wohl schon lange nicht, oder ?

Deshalb hier : 299

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 GetKeyState_(27)&$80=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(255) 
    If i>79 
      If a&1 
        A(x)=A(j-79) 
      EndIf 
    Else 
      A(x)=a 
    EndIf 
    i-1 
  Wend 
  StopDrawing() 
  FlipBuffers() 
Wend 

[Stefan]

297

Code: Alles auswählen

b=9601 
Dim A(InitSprite()) 

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

While GetKeyState_(27)>>1=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(255) 
    If i>79 
      If a&1 
        A(x)=A(j-79) 
      EndIf 
    Else 
      A(x)=a 
    EndIf 
    i-1 
  Wend 
  StopDrawing() 
  FlipBuffers() 
Wend 

[Sylvia]

Dim A(InitSprite()) --> Systemvoraussetzungen beachten

295

Code: Alles auswählen

Dim A(InitSprite())    

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

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

Jetzt wird die Luft aber verdammt dünn...ich glaube, wir sind schon im All

[Batze]

Code: Alles auswählen

Dim A(InitSprite())   

OpenScreen(800,600,8,"")

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

292

[Sylvia]

Ok Leute, hat Spass gemacht mit euch zu spielen.
Beim nächsten mal bekommt ihr wieder eine Chance

289

Code: Alles auswählen

Dim A(InitSprite())    

OpenScreen(800,600,8,"") 

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

[Batze]

Code: Alles auswählen

; 283
Dim A(InitSprite())   

OpenScreen(800,600,8,"")

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

283
Und das +33 kann man nicht weglassen

[Sylvia]

Schon mal was von 'shiften' gehört ?

279

Code: Alles auswählen

Dim A(InitSprite())    

OpenScreen(800,600,8,"") 

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

[Batze]

habs doch gewußt.
Das geht nicht Sylvia, ist schließlich das selbe wie * 32.
Sieht man auch, wenn man es kompiliert. Dann hast du weniger Zeichen.