PureGolf mit Scrollender Matrix

Batze · Beitrag von **Batze** » 10.02.2006 18:06

Ja, wenns gleich aussieht ist es das selbe, hab ich ja nun gelernt.

; 520 Zeichen
W=800
H=600
F=10
Dim A.Point(80,60)

Macro R(n)
  Random(n)
EndMacro

For i=0 To 60
  For j=0 To 80
    With A(j,i)
      \x=R(250)
      \y=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(\y),\x<<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)\y
        G.c = A(j,i-1)\x
        With A(j,i)
          \x = G-R(1)
        EndWith
      ElseIf i+R(1)=0
        With A(j,i)
          \y=R(222)+33
          \x=R(250)
        EndWith
      EndIf
    Next
  Next
 
Wend

520

MVXA · Beitrag von **MVXA** » 10.02.2006 18:52

Code: Alles auswählen

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

Macro R(n)
  Random(n)
EndMacro

For i=0 To 60
  For j=0 To 80
    With A(j,i)
      \x=R(250)
      \y=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(\y),\x<<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)\y
        G.c = A(j,i-1)\x
        A(j,i)\x = G-R(1)
      ElseIf i+R(1)=0
        With A(j,i)
          \y=R(222)+33
          \x=R(250)
        EndWith
      EndIf
    Next
  Next
Wend

508

freedimension · Beitrag von **freedimension** » 10.02.2006 20:19

489

Code: Alles auswählen

W=800 
F=10 
Dim A.Point(80,60) 

Macro R(n) 
  Random(n) 
EndMacro 

Macro Q
  A(j, i
EndMacro


For i=0 To 60 
  For j=0 To 80 
     With Q) 
       \y=R(222)+33
       \x=R(250)
     EndWith 
  Next
Next

InitSprite()
OpenScreen(W,W-200,32,"")

While GetAsyncKeyState_(27)=0
  StartDrawing(ScreenOutput())
  For i=0 To 60
    For j=0 To 80
      With Q)
        DrawText(j*F,i*F,Chr(\y),\x<<8,0)
      EndWith
    Next
  Next
  StopDrawing()
  FlipBuffers()

  i-1
  While i+1
    j=80
    While j+1
      If i And R(1)=0
        s.c=Q-1)\y
        G.c=Q-1)\x
        Q)\x=G-R(1)
      ElseIf i+R(1)=0
        With Q)
          \y=R(222)+33
          \x=R(250)
        EndWith
      EndIf
      j-1
    Wend
    i-1
  Wend
Wend

Batze · Beitrag von **Batze** » 11.02.2006 01:40

Code: Alles auswählen

; 444 Zeichen
Dim A.Point(80,60)

Macro R(n)
  Random(n)
EndMacro
Macro Q
  A(j, i
EndMacro
Macro Z
    Q)\y=R(222)+33
    Q)\x=R(250)
EndMacro

For i=0 To 60
  For j=0 To 80
    Z
  Next
Next

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

While GetAsyncKeyState_(27)=0
  StartDrawing(ScreenOutput())
  For i=0 To 60
    For j=0 To 80
      DrawText(j*10,i*10,Chr(Q)\y),Q)\x<<8,0)
    Next
  Next
  StopDrawing()
  FlipBuffers()

  i-1
  While i+1
    j=80
    While j+1
      If i And R(1)=0
        s.c=Q-1)\y
        G.c=Q-1)\x
        Q)\x=G-R(1)
      ElseIf i+R(1)=0
        Z
      EndIf
      j-1
    Wend
    i-1
  Wend
Wend

444

Laurin · Beitrag von **Laurin** » 11.02.2006 01:50

Batze hat geschrieben:
Code: Alles auswählen
      ElseIf i+R(1)=0
        Z
      EndIf

Was'n das? Fehlt da was?

Edit: Hat sich erledigt. Ist ein Macro. Hm.. die Dinger gehen mir jetzt schon aufn Keks

Batze · Beitrag von **Batze** » 11.02.2006 02:01

So sollte man sie ja auch nicht verwenden.
Kein Mensch sollte da dermaßen aussagelose Namen wählen.

freedimension · Beitrag von **freedimension** » 11.02.2006 10:54

439

Code: Alles auswählen

Dim A.Point(80,60)

Macro R(n)
  Random(n)
EndMacro
Macro Q
  A(j, i
EndMacro
Macro Z
    Q)\y=R(222)+33
    Q)\x=R(250)
EndMacro

For i=0 To 60
  For j=0 To 80
    Z
  Next
Next

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

While GetAsyncKeyState_(27)=0
  StartDrawing(ScreenOutput())
  For i=0 To 60
    For j=0 To 80
      DrawText(j*10,i*10,Chr(Q)\y),Q)\x<<8,0)
    Next
  Next
  StopDrawing()
  FlipBuffers()

  While i
    i-1 
    j=80
    While j+1
      If i And R(1)=0 
        s.c=Q-1)\y 
        G.c=Q-1)\x 
        Q)\x=G-R(1) 
      ElseIf i+R(1)=0 
        Z 
      EndIf 
      j-1 
    Wend 
  Wend 
Wend

freedimension · Beitrag von **freedimension** » 11.02.2006 11:36

419

Code: Alles auswählen

Dim A.Point(80,60)

Macro Q
  A(j, i
EndMacro

For i=0 To 60
  For j=0 To 80
    Q)\y=Random(222)+33
    Q)\x=Q)\y
  Next
Next

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

While GetAsyncKeyState_(27)=0
  StartDrawing(ScreenOutput())
  For i=0 To 60
    For j=0 To 80
      DrawText(j*10,i*10,Chr(Q)\y),Q)\x<<8,0)
    Next
  Next
  StopDrawing()
  FlipBuffers()
  While i
    i-1
    j=80
    While j+1
      If i And Random(1)=0
        s.c=Q-1)\y
        G.c=Q-1)\x
        Q)\x=G-Random(1)
      ElseIf i=0
        Q)\x=Random(250)
      EndIf
      j-1
    Wend
  Wend
Wend

Die 400 schaffen wir auch noch

helpy · Beitrag von **helpy** » 11.02.2006 12:28

freedimension hat geschrieben:419

Die 400 schaffen wir auch noch

Den Code [c]s.c=Q-1)\y[/c] kannst Du auch gleich löschen, denn [c]s.c[/c] wird ja sonst nirgends mehr verwendet .... wozu war denn das ursprünglich?

Dann bist Du auch schon auf 409

freedimension · Beitrag von **freedimension** » 11.02.2006 12:54

helpy hat geschrieben:
freedimension hat geschrieben:419

Die 400 schaffen wir auch noch
Den Code [c]s.c=Q-1)\y[/c] kannst Du auch gleich löschen, denn [c]s.c[/c] wird ja sonst nirgends mehr verwendet .... wozu war denn das ursprünglich?

Dann bist Du auch schon auf 409

Stimmt, du hast Recht. Aber die Ehre überlasse ich dir.

409 Zeichen für helpy.