## Not what google gave me.by Ben (no login)"Listen to this, what you made is great. How do I program something? I do tutorials?" I don't know serbian, but I know a similar one, and it's defienatly has nothing to do with "how long". In reply to the person: For a good graphics tutorial I suggest TheBOB's tutorials: http://www.network54.com/Realm/page_files/QBZips.html And the rest I did is just math. After I wrote that one, I decided to make it a bit better and this is what I came up with: Is it better? you decide. RANDOMIZE TIMER SCREEN 9, , 1, 0 FOR i = 0 TO 15 PALETTE i, i OUT &H3C8, i OUT &H3C9, j OUT &H3C9, j OUT &H3C9, j j = j + 1 NEXT DO LINE (100, 0)-(250, 310), 0, BF m = m + 1 FOR i = 0 TO 320 y = 309 - i t = i / 10 x = SIN((t - m) * .2) * (t - (i / 7)) + 205 x1 = COS((t - m) * .2) * (t - (i / 7)) + 205 IF (x1 - x) > 0 THEN FOR j = 0 TO ((x1 + i / 10) - x + 10) \ 2 LINE ((x - 10) + j, y)-((x1 + i / 10) - j, y), j NEXT ELSE FOR j = 0 TO ((x + i / 10) - x1 + 10) \ 2 LINE ((x1 - 10) + j, y)-((x + i / 10) - j, y), j NEXT END IF ' x = INT(RND * -i / 7) + 205 ' x1 = INT(RND * i / 7) + 205 ' PSET (x, y), 12 ' PSET (x1, y), 12 NEXT 'k = 0 'FOR i = 75 TO 160 ' k = k + i \ 20 ' LINE (100 + (i AND 1), i + k)-(250, i + k), 0, , &H4444 'NEXT PCOPY 1, 0 WAIT &H3DA, 8, 8 WAIT &H3DA, 8 LOOP UNTIL INP(&H60) = 1 Posted on Mar 21, 2009, 12:02 PMRespond to this message Goto Forum Home |

Copyright © 1999-2018 Network54. All rights reserved. Terms of Use Privacy Statement |