03-31-2003, 06:14 PM
Pages: 1 2
03-31-2003, 10:23 PM
Hmmm..., let me give you a clue:
It's "moving"...
Hmmm, hard to tell without telling too much... .
It's "moving"...
Hmmm, hard to tell without telling too much... .
05-27-2003, 12:52 AM
Quote:Here's a more difficult one ...:roll:.
Code:SCREEN &HF - 2
A$="16171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031"
: DO: FOR D% = 0 TO 9: FOR C% = 0 TO 15: IF B% = &HFE + 1 THEN B% = 0
LINE (C% * (10 + (5 + (2 * 2) + 1)), D% * (10 + (5 + (2 * 2) + 1)))-((C% * (10 + (5 + (2 * 2) + 1))) + 19, (D% * (10 + (5 + (2 * 2) + 1))) + 19), B% + VAL(MID$(A$, ((D% * 2) * (4 * 4)) + (C% * (4 - 2)) + 1, (-4 + 6))), BF: NEXT C%, D%: WAIT &H3DA, 8: B% = B% - (4 - 5): LOOP
Hmm, is this accurate?
Code:
SCREEN 13
A$="16171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031161718192021222324252627282930311617181920212223242526272829303116171819202122232425262728293031"
DO
FOR D% = 0 TO 9
FOR C% = 0 TO 15
IF B% = &HFE + 1 THEN B% = 0
LINE (C% * 20, D% * 20)-((C% * 20) + 19, (D% * 20) + 19), B% + VAL(MID$(A$, (D% * 32) + (C% * 2) + 1, 2)), BF
NEXT C%, D%
WAIT &H3DA, 8
B% = B% + 1
LOOP
Basically it will draw every colour from 16 to 31 over and over on the screen, and it will "scroll" them from right to left. You just kinda made the equations needlessly complicated LOL
Pages: 1 2