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
Beginne jeden Tag als ob es Absicht wäre! BILDblog
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
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
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
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
; 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
333
Jetzt schon die zweite Schnapszahl.
Vordrängler Hexor
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
Zuletzt geändert von Batze am 11.02.2006 15:03, insgesamt 1-mal geändert.
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
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
Ich Idiot ! 