crzyrbl wrote:kevin's done it again!
hmm...I guess he tried out animated sprites
Moderator: tr1p1ea
Code: Select all
AxesOff
real(0
For(X,8,15
For(Y,0,7
Pxl-On(Y,X
End
End
StorePic 0
real(0
{8,1}->dim([A]
While 1
2rand->[A](1,1
2rand->[A](2,1
real(4,2,2,1
2rand->[A](3,1
2rand->[A](4,1
real(4,2,2,1
2rand->[A](5,1
2rand->[A](6,1
real(4,2,2,1
2rand->[A](7,1
2rand->[A](8,1
real(4,2,2,0
real(2,0,0,0,1,8,11,12,0,8,0,0,1
End
Code: Select all
AxesOff
real(0
For(X,8,15
For(Y,0,7
Pxl-On(Y,X
End
End
StorePic 0
real(0
abs(randM(8,30)).2->[A]
While 1
For(A,0,18
real(4,2,2,1
real(4,2,2,1
real(4,2,2,1
real(4,2,2,0
real(2,0,A,0,30,8,11,12,0,8,0,0,1
End
End