02-02-2003, 03:01 PM
this is my last one for tonight
zooming tiled smiley face
get rid of the flicker by adding an INT() around ABS(SIN(TIMER))*10+3, but that makes it jerky..
Code:
1 Smiley$ = "þþþþ*+++,,,þþþþþþþ*+++,,,,,,,þþþþ*++,þ,,,þ,,,,þþþ*+,,þ,,,þ,,,,þþ*++,,þ,,,þ,,,,,þ*+þ,,þ,,,þ,,þ,,þ*þþ,,,,,,,,,þþ,þ*+þ,,,,,,,,,þ,,þ*++þ,,,,,,,þ,,,þþ*+,þ,,,,,þ,,,þþþ*++,þþþþþ,,,,þþþþ*+++,,,,,,,þþþþþþþ*+++,,,þþþþþþþþþþþþþþþþþþþþþ"
2 SCREEN 13
3 sz = ABS(SIN(TIMER)) * 10 + 3 ' sz = INT(ABS(SIN(TIMER)) * 10 + 3
4 ps = 0
5 i = (i + 1) MOD 224
6 IF (i = 0) AND (ps MOD 320 + int(sz) * 16) >= 320 THEN ps = (FIX(ps / 320) + int(sz) * 14) * 320 ELSE IF i = 0 THEN ps = ps + int(sz) * 16
7 LINE ((ps MOD 320) + (i MOD 16) * sz + j * (sz * 8), FIX(ps / 320) + FIX(i / 16) * sz)-STEP(sz, sz), ASC(MID$(Smiley$, i + 1, 1)), BF
8 IF (ps > 64000) AND (i = 0) THEN GOTO 3
9 IF INKEY$ = "" GOTO 5
zooming tiled smiley face
get rid of the flicker by adding an INT() around ABS(SIN(TIMER))*10+3, but that makes it jerky..
COUNT HACKED BY RAZVEEE
RAZVEE IS A SCRIPT KIDDIE- hacker9
RAZVEE IS A SCRIPT KIDDIE- hacker9