5 lines! Muhahahaa!!! :rotfl:
Code:
'5-line Wormhole by DefHo
'I'd put comments in but only one line actually does anything.
'Enjoy :)
1 i& = i& + 1 MOD 100000
2 FOR j% = 1 TO 200
3 IF i& = 1 THEN SCREEN 13 ELSE IF i& < 16 THEN CIRCLE (160, 200 - j% ^ .9 - i&), 10 + j% ^ 1.1, j%, , , .5 ELSE PALETTE j%, ABS(SIN((j% + (10000 - i&)) * .15)) * 63 'INT(((j% + (100000 - i&)) MOD 10) * 6.3)
4 NEXT
5 IF INKEY$ = "" THEN GOTO 1
I rule. :bounce:
:o Now I'm feeling sick......
can anyone post a link to defho's wormholes ive tried compiling in free basic but it doesnt seem to want to work so if there a link i would like to check it out
add
to
so that it doesn't make 200 screen 13s (in fb this makes the window flash alot) it should look like
Code:
3 IF i& = 1 AND j% = 1 THEN
[...]
Quote:can anyone post a link to defho's wormholes ive tried compiling in free basic but it doesnt seem to want to work so if there a link i would like to check it out
Here ya' go.
Quote:so that it doesn't make 200 screen 13s (in fb this makes the window flash alot) it should look like
Hmm... I hadn't thought of that. I used QB 7.1 and 200 screen 13's didn't flicker at all. I have yet to use Freebasic but it looks pretty cool.
Defho: Nice!!
Crazy things like:
1. Nine line water with plasma (QB only)
2. A lut based translucent plasma in ninelines(FB and QB)
3. A spheremapped ball in 8 lines (FB and QB)
4. A 3d sphere in 9 lines with backface culling
5. A morphing 3d helix in 9 lines
I would bet Antoni toenter this and amaze us all as usual.
:wink:
Quote:5 lines! Muhahahaa!!! :rotfl: Code:
'5-line Wormhole by DefHo
'I'd put comments in but only one line actually does anything.
'Enjoy :)
1 i& = i& + 1 MOD 100000
2 FOR j% = 1 TO 200
3 IF i& = 1 THEN SCREEN 13 ELSE IF i& < 16 THEN CIRCLE (160, 200 - j% ^ .9 - i&), 10 + j% ^ 1.1, j%, , , .5 ELSE PALETTE j%, ABS(SIN((j% + (10000 - i&)) * .15)) * 63 'INT(((j% + (100000 - i&)) MOD 10) * 6.3)
4 NEXT
5 IF INKEY$ = "" THEN GOTO 1
I rule. :bounce:
add a wav file saying "You are getting very sleepy, when i click my fingers you will be in a deep sleep...1...2...3...*sound of someone clicking there fingers" and i'm sure you will be able to turn us into zombies.
Nice wormholes.
Rel, ummm...yep, that is crazy. lol :lol:
So you have links to the code? I'd love to see them
Quote:add a wav file saying "You are getting very sleepy, when i click my fingers you will be in a deep sleep...1...2...3...*sound of someone clicking there fingers" and i'm sure you will be able to turn us into zombies.
Actually, if you stare at it for long enough and stop it, it will look like it's moving backwards... :o
Quote:So you have links to the code? I'd love to see them
Here. There's a lot of really cool stuff in there. The files named Jelly are Rel's.
:lol: Here is my 5liner,.. *gulp*
Code:
'5 line worm hole attemt
'by Kevin x.t.r.GRAPHICS
1 DO
2 s = s + 1
3 i = (i + 1)MOD 600
4 IF s = 1 THEN SCREEN 19, 32, 2, 1 ELSE IF i > 1 AND i < 550 THEN CIRCLE(400, 300), i, RGB(0,0,c) ELSE c = (c + 1) MOD 255
5 LOOP UNTIL INKEY$ <> ""
Heh heh, oh well...... :roll: