Posts: 3,288
Threads: 167
Joined: Nov 2001
Bouncing Spheremaped ball...
Code: '"The Lens" by Relsoft
'Relsoft.ath.cx
1 SCREEN 13
2 IF xx% = 0 THEN xx% = 3 + INT(RND * 260) ELSE IF xv% = 0 THEN xv% = -1 + INT(RND * 2)
3 IF (xx% <= 1 AND xv% < 0) OR (xx% >= 319 AND xv% > 0) THEN xv% = -xv% ELSE xx% = xx% + xv%
4 yy% = 100 - ABS(SIN(((xx% * 3) * 3.141593 / 180))) * 160
5 FOR yt% = 0 TO 99
6 FOR xt% = 0 TO 99
7 IF (((xt% - 50) * (xt% - 50)) + ((yt% - 50) * (yt% - 50))) < (2500 - 900) THEN PSET (xx% + xt%, yy% + yt%), (((((((20 - SQR(2500 - (((xt% - 50) * (xt% - 50)) + ((yt% - 50) * (yt% - 50)))))) * ((xt% - 50) / SQR(2500 - (((xt% - 50) * (xt% - 50)) + ( _
(yt% - 50) * (yt% - 50))))))) + xt% + xx%) AND 15) OR (((((20 - SQR(2500 - (((xt% - 50) * (xt% - 50)) + ((yt% - 50) * (yt% - 50)))))) * ((yt% - 50) / SQR(2500 - (((xt% - 50) * (xt% - 50)) + ((yt% - 50) * (yt% - 50)))))) + yt% + yy%) AND 15)) + 16 _
ELSE PSET (xx% + xt%, yy% + yt%), 0
8 NEXT xt%, yt%
9 IF INKEY$ = "" THEN 2
;*)
Posts: 115
Threads: 6
Joined: Feb 2003
wow nice 1 rel, very cool!
very F***ing song remains the same
To everyone who sucks-up for the fame
Out of strength you know we speak the truth
Every trend that dies is living proof
MasterMinds Software
Posts: 1,080
Threads: 87
Joined: Feb 2002
I don't know much about peek/pokes memory adresses but here's
my screensaver:
Code: 1 RANDOMIZE TIMER
2 SCREEN 12
3 c = INT(RND * 14) + 1
4 IF POINT(0) < 0 OR POINT(0) > 640 OR POINT(1) < 0 OR POINT(1) > 480 THEN CLS
5 IF POINT(0) < 0 OR POINT(0) > 640 OR POINT(1) < 0 OR POINT(1) > 480 THEN PSET (320, 240), c
6 DRAW "ta" + STR$(INT(RND * 720) - 360) + "u" + STR$(INT(RND * 50) + 5)
7 CIRCLE (POINT(0), POINT(1)), RND * 10, c
8 FOR b = 0 TO 1000: NEXT
9 IF INKEY$ = "" THEN GOTO 3
/post]
Posts: 3,368
Threads: 195
Joined: Jan 2003
heh, just what I wanted Rel.
What about a 3D pong game with that 9-line sphere? Might be a good idea...
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."
Visit www.neobasic.net to see rubbish in all its finest.
Posts: 3,288
Threads: 167
Joined: Nov 2001
Quote:heh, just what I wanted Rel.
What about a 3D pong game with that 9-line sphere? Might be a good idea...
In 9 lines?????!!!!!
Yer kidding me!!!!!
Code: 'Lightmapping by RelSoft 2003
'Http://RelSoft.ath.cx
'Sorry about this not being able to compile ;*(
'BC sez: "expression too complex" Guess Qb has its limits after all!!!
1 IF I& = 0 THEN SCREEN 13 ELSE IF I& < 256 THEN PALETTE I&, 65536 * (I& \ 4) + 256 * (I& \ 4) + (I& \ 4)
2 I& = (I& + 1) AND &H7FFFFFFF
3 Var$ = "" + CHR$(100 + COS((I& MOD 360) * 3.141593 / 180) * 100) + CHR$(60 + SIN((I& MOD 360) * 3.141593 / 180) * 60)
4 FOR yy% = 0 TO 99
5 FOR xx% = 0 TO 99
6 H2% = ((xx% - 50) * (xx% - 50) + (yy% - 50) * (yy% - 50))
7 IF (H2% < 2500) AND (I& > 255) THEN PSET (100 + (ASC(MID$(Var$, 1, 1)) - 100) + xx%, 60 + (ASC(MID$(Var$, 2, 1)) - 60) + yy%), (((255 - (SQR(H2%) * (SQR(SQR(H2%))))) + ((((ASC(MID$(Var$, 1, 1)) - 100) + xx%) OR ((ASC(MID$(Var$, 2, 1)) - 60) + yy%) _
) AND 127)) \ 2) * -((((255 - (SQR(H2%) * (SQR(SQR(H2%))))) + ((((ASC(MID$(Var$, 1, 1)) - 100) + xx%) OR ((ASC(MID$(Var$, 2, 1)) - 60) + yy%)) AND 127)) \ 2) > 0) ELSE IF (I& > 255) THEN PSET (100 + (ASC(MID$(Var$, 1, 1)) - 100) + xx%, 60 + (ASC( _
MID$(Var$, 2, 1)) - 60) + yy%), 0
8 NEXT xx%, yy%
9 IF INKEY$ = "" THEN 1
Posts: 115
Threads: 6
Joined: Feb 2003
Finally some lightmapping!!!!
3d pong with a spheremapped ball in 9 lines?? your crazy!
very F***ing song remains the same
To everyone who sucks-up for the fame
Out of strength you know we speak the truth
Every trend that dies is living proof
MasterMinds Software
Posts: 2,020
Threads: 24
Joined: Jun 2002
good lord rel, you're making us all feel bad about our programming abilities
anyhow here's a cheesy little blur demo i made last night:
Code: 1 SCREEN 13
2 IF i& = 0 THEN SCREEN 13 ELSE OUT &H3C8, 0
3 IF i& = 0 THEN DEF SEG = &HA000 ELSE LINE (RND * 280 + 20, RND * 159 + 20)-(RND * 280 + 20, RND * 159 + 20), 255', B
4 FOR i& = 6400 TO 57600
5 IF i& < 7168 THEN OUT &H3C9, (i& - 6400) \ 12
6 POKE i&, (PEEK(i& - 1) + PEEK(i& + 1)) / 2
7 NEXT i&
8 LINE (RND * 280 + 20, RND * 159 + 20)-(RND * 280 + 20, RND * 159 + 20), 0', B
9 IF INKEY$ = "" THEN GOTO 3
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
Posts: 115
Threads: 6
Joined: Feb 2003
i uploaded a better version of the 9 line pong, removed about 90% of the flicker, so ya go grab a new copy
very F***ing song remains the same
To everyone who sucks-up for the fame
Out of strength you know we speak the truth
Every trend that dies is living proof
MasterMinds Software
Posts: 3,288
Threads: 167
Joined: Nov 2001
Whoooooooaaaaa!!!!!!!
WU LINES!!!!!!!
Don't worry, I'm averaging about 30 mins for the effect and about 3 hours fitting it in nine lines!!!!!
BTW the Lightmapping took me 4 hours last saturday. :*)
Great job guys!!!!!
Toonkski: is there any possibitity for your kewl text fire to be converted to :
Screen 0:width 80,50 ?
it would kick ass!!!!
Posts: 2,020
Threads: 24
Joined: Jun 2002
not if i can beat you to it
obviously ye has never tried to compress a wu line
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
|