What do you guys think of my intro. Here is the code:
Code:
If you would like, run it in the SourceCoder.
The randInt( commands are to make the intro randomized and unique each run through.
Code:
0->Xmin
94->Xmax
0->Ymax
~62->Ymin
AxesOff
ClrHome
ClrDraw
"MRDEW25"->Str1
length(Str1)->theta
1->A
DelVar Z
round((94-4theta)/2,0)->X
X+1->X
For(G,1,theta)
For(F,1,5)
sub(Str1,A,1)->Str2
Text(Z+4,X,Str2)
rand
Text(Z+4,X," "
If Z=24
Text(Z+4,X,Str2)
Z+6->Z
End
X+4->X
A+1->A
DelVar Z
End
randInt(18,24)->C
randInt(1,3)->Y:Y-2->Y
randInt(1,3)->Z:Z-2->Z
If Y!=Z
3->D
If abs(Y)=abs(Z)
1->D
If Y=Z
2->D
For(A,44,50,D)
Circle(A,~31,C,{[i]})
End
For(B,28,34,D)
Circle(47,~B,C,{[i]})
End
Pause
For(A,iPart(C/4),34)
iPart(32A/42)->B
Line((A-1),0,(A-1),~62,0)
Line((95-A),0,(95-A),~62,0)
Line(0,~(B-1),94,~(B-1),0)
Line(0,~(63-B),94,~(63-B),0)
End
For(A,1,500)
End
ClrHome
Output(1,1,"")
ReturnIf you would like, run it in the SourceCoder.
The randInt( commands are to make the intro randomized and unique each run through.
However, there are some optimizations that would make this intro a little more space resourceful. Here are just a couple: