Seite 4 von 10
Verfasst: 11.02.2006 13:27
von freedimension
397
Code: Alles auswählen
u=80
v=256
Dim A.Point(u,u)
Macro Q
A(j, i
EndMacro
For m=0 To u*u
i=m%u
j=m/u
Q)\y=Random(v)
Q)\x=Q)\y
Next
InitSprite()
OpenScreen(800,600,32,"")
While GetAsyncKeyState_(27)=0
StartDrawing(ScreenOutput())
For m=0 To u*u-1
i=m%u
j=m/u
DrawText(j*10,i*10,Chr(Q)\y),Q)\x*v,0)
Next
StopDrawing()
FlipBuffers()
While i
i-1
j=u
While j+1
If i And Random(1)=0
G.c=Q-1)\x
Q)\x=G-Random(1)
ElseIf i=0
Q)\x=Random(v)
EndIf
j-1
Wend
Wend
Wend
Verfasst: 11.02.2006 13:55
von HeX0R
352
Code: Alles auswählen
Macro Q
A(i*2
EndMacro
Dim A(9600)
For i=0 To 4799
Q)=Random(222)+33
Q+1)=Q)
Next
InitSprite()
OpenScreen(800,600,32,"")
While GetAsyncKeyState_(27)=0
StartDrawing(ScreenOutput())
For i=0 To 4799
DrawText(i%80*10,i/80*10,Chr(Q)),Q+1)<<8,0)
Next
StopDrawing()
FlipBuffers()
While i
i-1
If i>159 And Random(1)=0
Q+1)=Q-159)-Random(1)
ElseIf i<160
Q+1)=Random(250)
EndIf
Wend
Wend
Verfasst: 11.02.2006 13:58
von HeX0R
Edit:346
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
Q+1)=Q)
Next
InitSprite()
OpenScreen(800,600,32,"")
While GetAsyncKeyState_(27)=0
StartDrawing(ScreenOutput())
For i=0 To b
DrawText(i%80*10,i/80*10,Chr(Q)),Q+1)<<8,0)
Next
StopDrawing()
FlipBuffers()
While i
i-1
If i>159
If Random(1)=0
Q+1)=Q-159)-Random(1)
EndIf
Else
Q+1)=Random(250)
EndIf
Wend
Wend
Verfasst: 11.02.2006 14:43
von Sylvia
337
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
Q+1)=Q)
Next
InitSprite()
OpenScreen(800,600,32,"")
While GetAsyncKeyState_(27)=0
StartDrawing(ScreenOutput())
For i=0 To b
DrawText(i%80*10,i/80*10,Chr(Q)),Q+1)<<8,0)
Next
StopDrawing()
FlipBuffers()
While i
i-1
a=Random(250)
If i>159
If a&1=0
Q+1)=Q-159)-a&1
EndIf
Else
Q+1)=a
EndIf
Wend
Wend
Verfasst: 11.02.2006 14:52
von HeX0R
333
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
Q+1)=Q)
Next
InitSprite()
OpenScreen(800,600,32,"")
While GetAsyncKeyState_(27)=0
StartDrawing(ScreenOutput())
For i=0 To b
DrawText(i%80*10,i/80*10,Chr(Q)),Q+1)<<8,0)
Next
StopDrawing()
FlipBuffers()
While i
i-1
a=Random(250)
If i>159
If a&1=0
Q+1)=Q-159)
EndIf
Else
Q+1)=a
EndIf
Wend
Wend
Verfasst: 11.02.2006 14:52
von Batze
Code: Alles auswählen
; 333 Zeichen
Macro Q
A(i*2
EndMacro
b=4799
Dim A(b*3)
For i=0 To b
Q)=Random(222)+33
Q+1)=Q)
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>159
If a&1=0
Q+1)=Q-159)-a&1
EndIf
Else
Q+1)=a
EndIf
Wend
Wend
Jetzt schon die zweite Schnapszahl.
Vordrängler Hexor
Verfasst: 11.02.2006 14:54
von Batze
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
Q+1)=Q)
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>159
If a&1=0
Q+1)=Q-159)
EndIf
Else
Q+1)=a
EndIf
Wend
Wend
329
Verfasst: 11.02.2006 14:56
von Sylvia
Ich Idiot !
Verfasst: 11.02.2006 14:56
von HeX0R
327
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
Q+1)=Q)
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>159
If a&1
Q+1)=Q-159)
EndIf
Else
Q+1)=a
EndIf
Wend
Wend
Verfasst: 11.02.2006 15:22
von HeX0R
325
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
Q+1)=Q)
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