PureGolf mit Scrollender Matrix

[Batze]

@nco2: Sorry, das macht nicht das selbe, ist nicht gültig. Das wär ungerecht für mich und NTQ, die wir das so schön umgechrieben haben.
Das Delay(1) ist schließlich auch quatsch.
Edit: Sehe ein, dass NCO2 Recht hatte und hab meinen längeren Code gelöscht.

[Kiffi]

Code: Alles auswählen

If InitSprite()=0
  Z(OpenGL)
E
If InitKeyboard()=0
  Z(die Tastatur)
E
If OpenScreen(W,H,32,"Matrix")=0
  Z(keinen Screen)
E

korrekterweise müssten diese Abfragen ein '[c]End[/c]' beinhalten.

Grüße ... Kiffi

[nco2k]

@Batze
na wenn du meinst, warte am besten einfach mal ab und du wirst sehen, wie sich der code entwickeln wird.

edit: und ach ja wegen Delay() es gibt einen neuen flag für FlipBuffers() welcher cpu schonend arbeitet in fullscreen, konnte ich aber nicht benützen, da irgendwie keine konstante vorhanden ist und ich nicht blind tippen wollte. deswegen habe ich das Delay() auch weggemacht und ausserdem wie NTQ schon einmal sagte, ist das verbraten der cpu erlaubt.

@Kiffi
eben, deswegen ist es ja so sinnlos.

c ya,
nco2k

[AndyX]

Sorry das 'End' sollte eigentlich dazugehören, hab es nur vergessen Aber ich denke es macht nichts wenn man es weglässt.

[NicTheQuick]

Natürlich macht das was.
Wenn nunmal kein DirectX oder OpenGL verfügbar ist, kann kein Screen
geöffnet werden und alle Funktionen schlagen fehl. Und der Code sollte ja
nicht abstürzen.

[Batze]

Also AndyX, poste einen korrekten Code, dann fangen wir noch mal an.

[nco2k]

hä, wieso den, wo liegt das problem?! im anderen puregolf hat sich auch keiner beschwert, dass nicht überprüft wurde ob das fenster und die gadgetlist korrekt erstellt wurden.

c ya,
nco2k

[MLK]

finde ich auch unnötig die abfragen. geht ja schliesslich nicht um saubere programmierung und benutzerfreundliche abstürze.

[Batze]

ok, war ja nur ein Vorschlag.
Mein letzter Beitrag ist also ungültig, hab ihn mal gelöscht.

Dafür geht der Code in der Beta 2 nicht mehr.

[nco2k]

552

Code: Alles auswählen

Structure M
G.c
L.c
EndStructure

W=800
H=600
F=10
Global Dim A.M(80,60)

Macro R(n)
  Random(n)
EndMacro

For i=0 To 60
  For j=0 To 80
    With A(j,i)
      \G=R(250)
      \L=R(222)+33
    EndWith
  Next
Next

InitSprite()
OpenScreen(W,H,32,"")

While GetAsyncKeyState_(27)=0
  
  StartDrawing(ScreenOutput())
  For i=0 To 60
    For j=0 To 80
      With A(j,i)
        DrawText(j*F,i*F,Chr(\L),\G<<8,0)
      EndWith
    Next
  Next
  StopDrawing()
  FlipBuffers()
  
  For i=60 To 0 Step-1
    For j=80 To 0 Step-1
      If i And R(1)=0
        s.c = A(j,i-1)\L
        G.c = A(j,i-1)\G
        With A(j,i)
          \G = G-R(1)
        EndWith
      ElseIf i+R(1)=0
        With A(j,i)
          \L=R(222)+33
          \G=R(250)
        EndWith
      EndIf
    Next
  Next
  
Wend

gilt das? sieht für mich zumindest gleich aus.

c ya,
nco2k