Seite 3 von 10
Verfasst: 10.02.2006 18:06
von Batze
Ja, wenns gleich aussieht ist es das selbe, hab ich ja nun gelernt.
Code: Alles auswählen
; 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
Verfasst: 10.02.2006 18:52
von MVXA
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
Verfasst: 10.02.2006 20:19
von freedimension
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
Verfasst: 11.02.2006 01:40
von Batze
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
Verfasst: 11.02.2006 01:50
von Laurin
Was'n das? Fehlt da was?
Edit: Hat sich erledigt. Ist ein Macro. Hm.. die Dinger gehen mir jetzt schon aufn Keks
Verfasst: 11.02.2006 02:01
von Batze
So sollte man sie ja auch nicht verwenden.
Kein Mensch sollte da dermaßen aussagelose Namen wählen.
Verfasst: 11.02.2006 10:54
von freedimension
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
Verfasst: 11.02.2006 11:36
von freedimension
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
Verfasst: 11.02.2006 12:28
von helpy
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
Verfasst: 11.02.2006 12:54
von freedimension
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.