PureGolf mit Scrollender Matrix

[Sylvia]

318

Code: Alles auswählen

Macro Q 
  A(i*2 
EndMacro 
b=4799 
Dim A(b*3) 

For i=0 To b 
  Q)=Random(222)+33 
Next 

InitSprite() 
OpenScreen(800,600,32,"") 

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

[HeX0R]

305

Code: Alles auswählen

Macro Q
  A(i*2
EndMacro
b=4799
Dim A(b*3)

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

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

[Sylvia]

Wow ! Gut nachgedacht...!

[freedimension]

Da würde ich gerne Einspruch einlegen: Batze und Ich haben stets darauf geachtet, dass der Bildschirm von Anfang an gefüllt ist, so wie eben auch das Original

[Batze]

Ja, eigentlich ist es falsch.
Obwohl es natürlich nicht schlecht aussieht.

[Green Snake]

Code: Alles auswählen

Macro Q 
  A(i*2 
EndMacro 
b=4799 
Dim A(b*3) 

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

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

304

[Sylvia]

303 !

Künftig wird mit TAB beendet

Code: Alles auswählen

Macro Q 
  A(i*2 
EndMacro 
b=4799 
Dim A(b*3) 

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

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

[HeX0R]

300 (und Bildschirm is von Anfang an gefüllt )

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_(9)=0
  StartDrawing(ScreenOutput())
  i=b/2
  While i
    j=i*2
    DrawText(i%80*10,i/8,Chr(A(j)),A(j+1)<<8,0)
    a=Random(250)
    If i>79
      If a&1
        A(j+1)=A(j-79)
      EndIf
    Else
      A(j+1)=a
    EndIf
    i-1
  Wend
  StopDrawing()
  FlipBuffers()
Wend

[AndyX]

TAB gilt nicht zum Beenden. es soll es Escape bleiben. Außerdem soll zu Anfang alles bereits gefüllt sein.

[HeX0R]

Dann 301

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
    DrawText(i%80*10,i/8,Chr(A(j)),A(j+1)<<8,0)
    a=Random(250)
    If i>79
      If a&1
        A(j+1)=A(j-79)
      EndIf
    Else
      A(j+1)=a
    EndIf
    i-1
  Wend
  StopDrawing()
  FlipBuffers()
Wend