Seite 5 von 10
Verfasst: 11.02.2006 15:49
von 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
Verfasst: 11.02.2006 16:08
von 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
Verfasst: 11.02.2006 16:14
von Sylvia
Wow ! Gut nachgedacht...!
Verfasst: 11.02.2006 16:41
von 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
Verfasst: 11.02.2006 16:46
von Batze
Ja, eigentlich ist es falsch.
Obwohl es natürlich nicht schlecht aussieht.
Verfasst: 11.02.2006 17:00
von 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
Verfasst: 11.02.2006 18:03
von 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
Verfasst: 11.02.2006 18:15
von 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
Verfasst: 11.02.2006 18:15
von AndyX
TAB gilt nicht zum Beenden. es soll es Escape bleiben. Außerdem soll zu Anfang alles bereits gefüllt sein.
Verfasst: 11.02.2006 18:16
von 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