Qbasicnews Forum Index Qbasicnews
Back to QbasicNews.com
QBOHO
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups 
 ProfileProfile   You have no new messagesYou have no new messages   Log out [ relsoft ]Log out [ relsoft ] 

Challenge....
Goto page Previous  1, 2, 3, 4, 5, 6, 7, 8  Next
 
Post new topic   Reply to topic    Qbasicnews Forum Index -> Challenges
View previous topic :: View next topic  
Author Message
Generic
New Member


Joined: 11 Nov 2002
Posts: 17
Location: UK

PostPosted: 03 Feb 2003 00:49    Post subject: rotozoomer Reply with quote

Ack, guys, I just couldn't help myself...

6-line Rotozoomer:

Code:

SCREEN 13
1  ang = ang + .08725
scale = scale + (SGN(SIN(ang)) / 10)
2 p& = (p& + 1) AND 65535
PSET (p& MOD 320, (p& - (p& MOD 320)) \ 320), (((((p& MOD 320) - 160) * COS(ang) - (((p& - (p& MOD 320)) / 320) - 100) * SIN(ang)) * scale) AND 63) OR ((((((p& - (p& MOD 320)) / 320) - 100) * COS(ang) + ((p& MOD 320) - 160) * SIN(ang)) * scale) AND  _
63)
IF p& = 65535 THEN GOTO 1 ELSE GOTO 2


Meh, could be a lot better. Maybe someone should do a text-mode version :)
Back to top
View user's profile Send private message
toonski84
I hold this place together


Joined: 31 May 2002
Posts: 977
Location: Melbourne, Florida

PostPosted: 03 Feb 2003 01:12    Post subject: Reply with quote

text mode graphic demos are always fun icon_smile.gif

here, i seriously cleaned up my fire demo, and it runs a bajillion (i've confirmed this with tests) times faster. no funky tricks either

Code:

1 SCREEN 13
2 FOR x% = 0 TO 127
3 PALETTE x%, x% \ 2
4 NEXT x%
5 DEF SEG = &HA7D0
6 FOR x% = 31999 TO 0 STEP -1
7 IF x% >= 31680 THEN POKE x%, CINT(RND * 127) ELSE POKE x%, (PEEK(x% + 320) + PEEK(x% + 319) + PEEK(x% + 321) + PEEK(x%) + PEEK(x% + 640)) \ 5
8 NEXT x%
9 IF INKEY$ = "" THEN GOTO 5

_________________
D.A.M.M. - Drunks Against Mad Mothers
Back to top
View user's profile Send private message
Dav
Webmaster


Joined: 08 Sep 2001
Posts: 200
Location: USA

PostPosted: 03 Feb 2003 03:58    Post subject: Reply with quote

Cool one! icon_smile.gif

- Dav
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Nexinarus
New Member


Joined: 01 Oct 2002
Posts: 7
Location: New Zealand

PostPosted: 03 Feb 2003 05:18    Post subject: Heh Reply with quote

Im trying to make a decent one, my first one (7 lines) is funny lol, it sucks i think.. quite random.. im not gonna post it icon_wink.gif.

(DAMNIT) Whats left to make? someone gimmi an idea?

(edit).. I decided to make a 3d rotating pyramid, LOL, here it (hopefully) is:
(edit).. Damnit i mistyped a number, oops, now it works.

Code:

1 SCREEN 13
2 LINE (160, 90)-((SIN(((TIMER * 10) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 10) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((TIMER * 10) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
3 LINE (160, 90)-((SIN(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415 / 180) * 150) / (COS(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
4 LINE (160, 90)-((SIN(((((TIMER * 10) MOD 360) + 240) MOD 360) * 3.1415 / 180) * 150) / (COS(((((TIMER * 10) MOD 360) + 240) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((((TIMER * 10) MOD 360) + 240) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
5 LINE ((SIN(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415 / 180) * 150) / (COS(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)-((SIN(((TIMER * 10) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 10) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((TIMER * 10) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
6 LINE -((SIN(((((TIMER * 10) MOD 360) + 240) MOD 360) * 3.1415 / 180) * 150) / (COS(((((TIMER * 10) MOD 360) + 240) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((((TIMER * 10) MOD 360) + 240) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
7 LINE -((SIN(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415 / 180) * 150) / (COS(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
8 CLS
9 GOTO 2

_________________
-Nexinarus-


Last edited by Nexinarus on 03 Feb 2003 10:12; edited 1 time in total
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
relsoft
Sanzo


Joined: 05 Nov 2001
Posts: 764
Location: Philippines

PostPosted: 03 Feb 2003 06:35    Post subject: Reply with quote Edit/Delete this post

Kewl!!!!!

I have made 3 fx here last night.

1. A 3d(no hacks) rotating sphere

2. a rotozoomer(but Generic beat me to it)

3. A raycaster..... Yes, but its still 13 lines long. :*(

Here's the 3d rotator. I could add some camera action but its slow already...


Code:


'Relsoft presents.... The Sphere 2003
'Could've made this 7 lines but darn QB!!! it won't let me cut 'n paste
'properly... ;*(

1 IF RotX = 0 THEN SCREEN 12 ELSE A! = (A! + .04) * -(A! < 6.283186)
2 FOR S% = 1 TO 11
3 FOR P% = 1 TO 20
4 RotX! = (((140 * SIN(3.141593 / 11 * S%) * SIN(6.283186 / 20 * P%))) * (COS(A!) * COS(A!)) + ((140 * SIN(3.141593 / 11 * S%) * COS(6.283186 / 20 * P%))) * (COS(A!) * -SIN(A!) + SIN(A!) * SIN(A!) * COS(A!)) + ((140 * COS(3.141593 / 11 * S%))) * (- _
SIN(A!) * -SIN(A!) + COS(A!) * SIN(A!) * COS(A!)))
5 RotY! = (((140 * SIN(3.141593 / 11 * S%) * SIN(6.283186 / 20 * P%))) * (COS(A!) * SIN(A!)) + ((140 * SIN(3.141593 / 11 * S%) * COS(6.283186 / 20 * P%))) * (COS(A!) * COS(A!) + SIN(A!) * SIN(A!) * SIN(A!)) + ((140 * COS(3.141593 / 11 * S%))) * (- _
SIN(A!) * COS(A!) + COS(A!) * SIN(A!) * SIN(A!)))
6 IF ((((140 * SIN(3.141593 / 11 * S%) * SIN(6.283186 / 20 * P%))) * (-SIN(A!)) + ((140 * SIN(3.141593 / 11 * S%) * COS(6.283186 / 20 * P%))) * (SIN(A!) * COS(A!)) + ((140 * COS(3.141593 / 11 * S%))) * (COS(A!) * COS(A!)))) <= 0 THEN PSET ((256 *  _
RotX! / (256)) + 320, -(256 * RotY! / (256)) + 240), ((S% + P%) AND 15) + 1
7 NEXT P%, S%
8 LINE (0, 0)-(639, 479), 0, BF
9 IF INKEY$ = "" THEN 1



B4 I go, it has hidden face removal....

:*)
_________________
Medium or Rare?




Mysite:
Genso' Junkyard
Our game: Frantic Journey

New FJ Screenies:
http://polacka.xepher.net/
Back to top
View user's profile Send private message Send e-mail Visit poster's website AIM Address Yahoo Messenger MSN Messenger
Nexinarus
New Member


Joined: 01 Oct 2002
Posts: 7
Location: New Zealand

PostPosted: 03 Feb 2003 10:36    Post subject: 3d rotating cube, in 8 lines, suck this =) Reply with quote

My 3d rotating cube (with bs's help)

NOTE: Please copy into notepad and save as a bas file, then load into qb (1.1, 4.5, 7.1, it shouldnt matter).

edit: this is the improved version by BinarySHOCK who made it not flicker heh.
Code:
1 SCREEN 7, 0, 1, 0
2 FOR a = 0 TO 3
3 LINE ((SIN(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)-((SIN(((TIMER * 20 + _
a * 90 + 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
4 LINE ((SIN(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, -100 / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)-((SIN(((TIMER * 20 _
+ a * 90 + 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, -100 / (COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
5 LINE ((SIN(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)-((SIN(((TIMER * 20 + _
a * 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, -100 / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
6 NEXT
7 PCOPY 1, 0
8 CLS
9 IF INKEY$ = "" THEN GOTO 2


this is the version with no pcopy and is VERY flickery, but 1 line smaller =).
Code:
1 SCREEN 13
2 FOR a = 0 TO 3
3 LINE ((SIN(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)-((SIN(((TIMER * 20 + _
a * 90 + 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
4 LINE ((SIN(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, -100 / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)-((SIN(((TIMER * 20 _
+ a * 90 + 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, -100 / (COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
5 LINE ((SIN(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)-((SIN(((TIMER * 20 + _
a * 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, -100 / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150)
6 NEXT
7 CLS
8 IF INKEY$ = "" THEN GOTO 2

_________________
-Nexinarus-


Last edited by Nexinarus on 03 Feb 2003 18:27; edited 1 time in total
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
BinarySHOCK
New Member


Joined: 03 Feb 2003
Posts: 14

PostPosted: 03 Feb 2003 11:23    Post subject: Pixel Scrolling Pattern Reply with quote

umm ya just like it sayz... not very good but i'm bored so ya...

1 SCREEN 13
2 DEFINT A-Z
3 FOR Ix = 0 TO 319
4 FOR Iy = 0 TO 199
5 PSET (Ix, Iy), ((Ix - L) XOR (Iy + L)) * 2
6 NEXT Iy, Ix
7 L = (L + 1) AND 255
8 PALETTE L, (255 - L) \ 4
9 IF INKEY$ = "" THEN 3
_________________
Yesterday don't mean sh*t cuz tommorow is the day you'll have to face.
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
BinarySHOCK
New Member


Joined: 03 Feb 2003
Posts: 14

PostPosted: 03 Feb 2003 12:01    Post subject: Another 1 Reply with quote

This 1 looks really stupid for a few seconds until the palette gets fully changed icon_razz.gif so please wait for that..


1 SCREEN 13
2 DEFINT A-Z
3 FOR Ix = 0 TO 319
4      FOR Iy = 0 TO 199
5           PSET (Ix, Iy), ((Ix - L) XOR (Iy + L)) Xor ((Ix + L) XOR (Iy - L))
6      NEXT Iy, Ix
7      L = (L + 1) AND 255
8      PALETTE L, (255 - L) \ 4
9 IF INKEY$ = "" THEN 3
_________________
Yesterday don't mean sh*t cuz tommorow is the day you'll have to face.
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
toonski84
I hold this place together


Joined: 31 May 2002
Posts: 977
Location: Melbourne, Florida

PostPosted: 03 Feb 2003 12:04    Post subject: Reply with quote

on the contrary, the palette transformation looks pretty cool icon_biggrin.gif
_________________
D.A.M.M. - Drunks Against Mad Mothers
Back to top
View user's profile Send private message
Agamemnus
Guru


Joined: 15 Jan 2003
Posts: 260

PostPosted: 03 Feb 2003 12:51    Post subject: Reply with quote

Nexinarius, it doesn't paste that because it's above the 256 line limit. huh_smile.gif Manual copy?

(edit) Can you make the sphere bounce around, Rel? You can save 1 line by using a string instead of a variable...

You can also save a line by converting the FORs to string addition.. MAYBE.

I like dat first one a lot BinaryShock. icon_smile.gif

For the second one the palette transformation is a bit too.. dramatic. I changed it a little, but it's 11 lines. icon_frown.gif

[code]
1 SCREEN 13
2 DEFINT A-Z
3 L = (L + 1) AND 255
4 PALETTE L, (255 - L) \ 4
5 IF L = 0 THEN GOTO 6 ELSE GOTO 3
6 FOR ix = 1 TO 399
7 FOR iy = 1 TO 199
8 PSET (ix, iy), ((ix - L) XOR (iy + L)) XOR ((ix + L) XOR (iy - L))
9 NEXT iy, ix
10 L = (L + 1) AND 255
11 IF INKEY$ <> "" THEN SCREEN 0 ELSE GOTO 6
[code]
_________________
"Life is on the edge of Chaos" -- Carl Sagan


Last edited by Agamemnus on 03 Feb 2003 13:21; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail AIM Address
BinarySHOCK
New Member


Joined: 03 Feb 2003
Posts: 14

PostPosted: 03 Feb 2003 13:10    Post subject: Fire, 8 lines Reply with quote

1 SCREEN 13
2 FOR Iy% = 199 TO 170 STEP -1
3 IF (POINT(Ix%, Iy%) + POINT(Ix% - 1, Iy%) + POINT(Ix% + 1, Iy%) + POINT(Ix%, Iy% - 1) + POINT(Ix%, Iy% + 1)) > 10 THEN PSET (Ix%, Iy% - 1), (POINT(Ix%, Iy%) + POINT(Ix% - 1, Iy%) + POINT(Ix% + 1, Iy%) + POINT(Ix%, Iy% - 1) + POINT(Ix%, Iy% + 1 _
)) \ 5 - 2
4 NEXT
5 IF INT(RND * 2) = 1 THEN PSET (Ix%, 199), 255 ELSE PSET (Ix%, 199), 0
6 Ix% = (Ix% + 1) MOD 320
7 PALETTE Ix% AND 255, (Ix% AND 255) \ 4
8 IF LEN(INKEY$) = 0 THEN 2

heh incase you didn't kno, all that point stuff needs to be on 1 line icon_razz.gif if you remove the PALETTE it would be in 7, but then it looks kinda umm ya not like fire.

thank you, agamenus.
_________________
Yesterday don't mean sh*t cuz tommorow is the day you'll have to face.
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
Dav
Webmaster


Joined: 08 Sep 2001
Posts: 200
Location: USA

PostPosted: 03 Feb 2003 17:37    Post subject: Reply with quote

Had some more time to waste and make something.

I'm not sure where I got the idea for this one. It's nothing special -- but I did try to avoid the so called cheap hacks for once. Makes it more challenging(sic?) to come up with something decent.

A rainbow-paint-spray-runner-type of thing...

Code:

1 SCREEN 13
2 x% = RND * 320
3 y% = RND * 200
4 w% = INT(RND * 2) + 1
5 c% = INT(RND * 2) - 1
6 IF c% = 0 THEN c% = 1
7 IF w% = 1 THEN x% = x% + c% ELSE y% = y% + c%
8 IF INKEY$ = "" THEN PSET (x%, y%), 15 + y% + INT(RND * 6) ELSE END
9 IF x% < 1 OR y% < 1 OR x% > 320 OR y% > 200 THEN GOTO 2 ELSE GOTO 4
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Nexinarus
New Member


Joined: 01 Oct 2002
Posts: 7
Location: New Zealand

PostPosted: 03 Feb 2003 18:34    Post subject: Reply with quote

Ok, Agamemnus, try:
-copying the text to windows clipboard
-paste it into notepad and save as a bas file
-now it should run fine, i just tested it on qb4.5 and it worked. (yea the lines are massive lol, its the only way i could think of :p
_________________
-Nexinarus-
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
Antoni Gual
Forum Regular


Joined: 08 Dec 2002
Posts: 90
Location: Barcelona, Spain

PostPosted: 03 Feb 2003 20:47    Post subject: Reply with quote

Binary Shock: Fine XOR effects! The second one is just incredible!

Rel: Incedible sphere! Do you really have a raycaster in 13 lines? Post it please......

Dav: I like these "handcrafted" textures. A very fine effect

Generic: Excuse me, i could not resist the temptation icon_smile.gif

Code:

' OPTIMIZED  :) rotozoomer in 9 lines by Antoni Gual
1 SCREEN 13
2 ANG = ANG + .08
3 CS% = COS(ANG) * ABS(SIN(ANG)) * 128
4 ss% = SIN(ANG) * ABS(SIN(ANG)) * 128
5 FOR Y% = -100 TO 99
6 FOR X% = -160 TO 159
7 PSET (X% + 160, Y% + 100), (((X% * CS% - Y% * ss%) AND (Y% * CS% + X% * ss%)) \ 128)
8 NEXT X%, Y%
9 IF LEN(INKEY$) = 0 THEN 2

bounce_smile.gif
_________________
Antoni
Back to top
View user's profile Send private message Visit poster's website
Antoni Gual
Forum Regular


Joined: 08 Dec 2002
Posts: 90
Location: Barcelona, Spain

PostPosted: 03 Feb 2003 21:09    Post subject: Am I becoming blind? Reply with quote

Is Rel's sphere program is hiding points in the back face?...icon_eek.gif

Ok, I think we should all give up...icon_cry.gif You are the winner, Rel!

But I will continue sending progs just for fun! bounce_smile.gif
_________________
Antoni
Back to top
View user's profile Send private message Visit poster's website
Dav
Webmaster


Joined: 08 Sep 2001
Posts: 200
Location: USA

PostPosted: 03 Feb 2003 22:49    Post subject: Reply with quote

Probably my last one for a while...

I was messing with the blue ball saver, resulting in these weird, warped green space gems...

Code:

1  FOR a = -1 TO 63
2    IF a = -1 THEN SCREEN 13 ELSE PALETTE a, a * 256
3  NEXT
4  x% = INT(RND * 320)
5  y% = INT(RND * 200)
6  FOR z% = RND * 63 + 1 TO 1 STEP -1
7    IF INKEY$ = "" THEN CIRCLE (x%, y%), z%, -z% + 64, , , INT(RND * 320) * RND * .1 ELSE END
8    IF z% > 1 THEN PAINT (x%, y%), -z% + 64 ELSE GOTO 4
9  NEXT


- Dav
Back to top
View user's profile Send private message Send e-mail Visit poster's website
toonski84
I hold this place together


Joined: 31 May 2002
Posts: 977
Location: Melbourne, Florida

PostPosted: 04 Feb 2003 01:12    Post subject: Reply with quote

be careful what you wish for, generic... i've modified my fire to work in text mode icon_smile.gif

Code:
1 OUT &H3C8, 0
2 FOR i = 0 TO 18
3 IF i = 18 THEN CLS  ELSE IF i MOD 3 = 0 THEN OUT &H3C9, (i \ 3) * 10 ELSE OUT &H3C9, 0
4 NEXT i
5 DEF SEG = &HB800
6 FOR x% = 3999 TO 2080 STEP -2
7 IF x% > 3840 THEN POKE x%, CINT(RND) * 80 ELSE POKE x%, ((PEEK(x% + 160) + PEEK(x% + 162) + PEEK(x% + 158) + PEEK(x% + 320) * 1.2) / 5)
8 NEXT
9 IF INKEY$ = "" THEN GOTO 5


dav, i've learned cheap hacks are a good thing icon_smile.gif
_________________
D.A.M.M. - Drunks Against Mad Mothers
Back to top
View user's profile Send private message
BinarySHOCK
New Member


Joined: 03 Feb 2003
Posts: 14

PostPosted: 04 Feb 2003 03:18    Post subject: Reply with quote

agamemnus: i agree about the palette transformation, but i couldn't think of a way to keep it under 9 lines any other way icon_frown.gif

toonski84: text mode fire heh really cool icon_wink.gif i'd like to see some text mode plasma if any1's up to the challenge.

rel: *please* post that raycaster!

heh this has been the most fun i've had in a while.
_________________
Yesterday don't mean sh*t cuz tommorow is the day you'll have to face.
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
toonski84
I hold this place together


Joined: 31 May 2002
Posts: 977
Location: Melbourne, Florida

PostPosted: 04 Feb 2003 03:21    Post subject: Reply with quote

i think i had some non-nine-line text-mode plasma on my hd that someone made. i'll check it out tomorrow.
_________________
D.A.M.M. - Drunks Against Mad Mothers
Back to top
View user's profile Send private message
BinarySHOCK
New Member


Joined: 03 Feb 2003
Posts: 14

PostPosted: 04 Feb 2003 03:45    Post subject: Reply with quote

ya i've got a copy of that 2, heh it's really cool icon_razz.gif
_________________
Yesterday don't mean sh*t cuz tommorow is the day you'll have to face.
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
westie
Forum Regular


Joined: 04 Dec 2002
Posts: 55
Location: syd, aus

PostPosted: 04 Feb 2003 04:15    Post subject: Reply with quote

SCREEN 13
DO
PSET (RND * 400, RND * 400), 10
LOOP UNTIL INKEY = "Q"

CTRL + SHIFT + BREAK to exit


just a quicky
_________________


go the mighty maggies.
(thanks yakstorm)

i regularly visit a rugby league version of these forums. i have amassed almost 2k worth of messages.
Back to top
View user's profile Send private message MSN Messenger
BinarySHOCK
New Member


Joined: 03 Feb 2003
Posts: 14

PostPosted: 04 Feb 2003 05:46    Post subject: Reply with quote

SCREEN 13
DO
LINE -(RND * 319, RND * 199), INT(RND * 15) + 1
FOR I = 0 TO 5
WAIT 986, 8
WAIT 986, 8, 8
NEXT
LOOP Until Len(Inkey$)

oh ya time to go old sk00l hehe icon_smile.gif
if it runs way to slow just umm adjust the I for-loop
_________________
Yesterday don't mean sh*t cuz tommorow is the day you'll have to face.
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
toonski84
I hold this place together


Joined: 31 May 2002
Posts: 977
Location: Melbourne, Florida

PostPosted: 04 Feb 2003 06:49    Post subject: Reply with quote

hey, who here likes spirographs?

Code:

1 SCREEN 12
2 RANDOMIZE TIMER
3 vars& = (INT(RND * 99) + 1) * 10000 + (INT(RND * 99) + 1) * 100 + (INT(RND * 99) + 1)
4 FOR t = 0 TO 100 STEP .1
5 LINE -((((vars& \ 100) MOD 100) + (vars& \ 10000)) * COS(t) - ((vars& \ 10000) + (vars& MOD 100)) * COS(((((vars& \ 100) MOD 100) + (vars& \ 10000)) / (vars& \ 10000)) * t) + 320, (((vars& \ 100) MOD 100) + (vars& \ 10000)) * SIN(t) - ((vars& \  _
10000) + (vars& MOD 100)) * SIN(((((vars& \ 100) MOD 100) + (vars& \ 10000)) / (vars& \ 10000)) * t) + 240)
6 NEXT t
7 SLEEP 1
8 CLS
9 IF INKEY$ <> "q" THEN GOTO 2

_________________
D.A.M.M. - Drunks Against Mad Mothers
Back to top
View user's profile Send private message
relsoft
Sanzo


Joined: 05 Nov 2001
Posts: 764
Location: Philippines

PostPosted: 04 Feb 2003 07:00    Post subject: Re: Am I becoming blind? Reply with quote Edit/Delete this post

Antoni Gual wrote:
Is Rel's sphere program is hiding points in the back face?...icon_eek.gif

Ok, I think we should all give up...icon_cry.gif You are the winner, Rel!

But I will continue sending progs just for fun! bounce_smile.gif


Yeah, it hides teh points in the back-face but the hack I made would only work on spherical figures and the like.

Bah!!! Nothing beats yer floormapper!!!!

Nother one...

Code:


'3d vortex......2003
'Http://Relsoft.Ath.cx
'Here's my take on the starfield stuff...


1 IF I% = 0 THEN SCREEN 13 ELSE DIM Dist!(200), Rot!(200)
2 I% = (I% + 1) MOD 200
3 IF J% < 257 THEN J% = (J% + 1)
4 PSET (Dist!(I%) * COS(Rot!(I%) / 56.32716) + 160, Dist!(I%) * SIN(Rot!(I%) / 56.32716) + 100), 0
5 Rot!(I%) = (Rot!(I%) + .5 * (Dist!(I%) / 50)) * -(Rot!(I%) <= 360)
6 IF Dist!(I%) < 0 OR Dist!(I%) > 170 THEN Rot!(I%) = RND * 360
7 IF Dist!(I%) < 0 OR Dist!(I%) > 170 THEN Dist!(I%) = RND * 170 ELSE Dist!(I%) = Dist!(I%) - (2 - (Dist!(I%) / 150))
8 IF J% > 255 THEN PSET (Dist!(I%) * COS(Rot!(I%) / 56.32716) + 160, Dist!(I%) * SIN(Rot!(I%) / 56.32716) + 100), Dist!(I%) + 50 ELSE PALETTE J%, 65536 * (J% \ 4) + 256 * (J% \ 4) + (63 - (J% \ 4))
9 IF INKEY$ = "" THEN 2





It's a 3d blackhole!!!
_________________
Medium or Rare?




Mysite:
Genso' Junkyard
Our game: Frantic Journey

New FJ Screenies:
http://polacka.xepher.net/
Back to top
View user's profile Send private message Send e-mail Visit poster's website AIM Address Yahoo Messenger MSN Messenger
relsoft
Sanzo


Joined: 05 Nov 2001
Posts: 764
Location: Philippines

PostPosted: 04 Feb 2003 07:02    Post subject: Reply with quote Edit/Delete this post

Yet another one...

Code:


'Colors galore!!!!
'http://Relsoft.ath.cx
'borrowed Narf's Out4pal hack!!!

1 RANDOMIZE TIMER
2 IF dir% = 0 THEN SCREEN 13 ELSE i& = (i& + 1) AND &H7FFFFFFF
3  dir% = 1 + INT(RND * 4)
4  IF dir% = 1 THEN y% = y% - (-(dir% = 1)) * -(y% > 0) ELSE y% = y% + (-(dir% = 3)) * -(y% < 200)
5  IF dir% = 2 THEN x% = x% - (-(dir% = 2)) * -(x% > 0) ELSE x% = x% + (-(dir% = 4)) * -(x% < 320)
6 IF (i& AND 1) = 0 THEN LINE (x%, y%)-(x% + (dir% = 2), y% + (dir% = 1)), POINT(x%, y%) + 1 ELSE LINE (320 - x%, 200 - y%)-(320 - x% + (dir% = 4), 200 - y% + (dir% = 3)), POINT(320 - x%, 200 - y%) + 1
7 IF (i& AND 1) = 0 THEN LINE (320 - x%, y%)-(320 - x% + (dir% = 2), y% + (dir% = 1)), POINT(320 - x%, y%) + 1 ELSE LINE (x%, 200 - y%)-(x% + (dir% = 4), 200 - y% + (dir% = 3)), POINT(x%, 200 - y%) + 1
8 OUT (&H3C9 + ((i& AND 3) = 0)), (((i& AND 3) = 0) * -((i& \ 4) AND 255)) - (((i& AND 3) <> 0) * 31) - ((((i& AND 3) <> 0) * 31) * SIN((((i& \ 4) AND 255) + (((i& AND 3) - 1) * 85) + 200 * SIN((i& \ 1024) / (81 - (10 * (i& AND 3))))) * 3.1415926# / _
64))
9 IF INKEY$ = "" THEN 2




BTW, I have that raycaster but its in 13 lines... I won't have time to edit it until Saturday but I will post it here Saturday...

More to come later....
_________________
Medium or Rare?




Mysite:
Genso' Junkyard
Our game: Frantic Journey

New FJ Screenies:
http://polacka.xepher.net/
Back to top
View user's profile Send private message Send e-mail Visit poster's website AIM Address Yahoo Messenger MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    Qbasicnews Forum Index -> Challenges All times are GMT
Goto page Previous  1, 2, 3, 4, 5, 6, 7, 8  Next
Page 4 of 8
Stop watching this topic
 
Jump to:  
You can post new topics in this forum
You can reply to topics in this forum
You can edit your posts in this forum
You can delete your posts in this forum
You can vote in polls in this forum


Powered by phpBB 2.0.4 © 2001, 2002 phpBB Group