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
Antoni Gual
Forum Regular


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

PostPosted: 08 Feb 2003 17:14    Post subject: Reply with quote

I would add to the list the non-standard pinwheel by wizardlife
And off course Glenn's nihilist demo is the winer! rolling_smile.gif
_________________
Antoni
Back to top
View user's profile Send private message Visit poster's website
qbasicmaster
New Member


Joined: 08 Feb 2003
Posts: 1
Location: UK

PostPosted: 08 Feb 2003 18:37    Post subject: Easy saver Reply with quote

I have made a screen saver but dont know how to stop it!!!!
This is the code
Code:
strt: CLS
SCREEN 13
LINE (1, 1)-(153, 360), 3, BF
LINE (153, 360)-(360, 153), 4, BF
GOTO strt

Only 4 lines but need to know how to stop it.
See ya!
QBmaster icon_lol.gif
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
ak00ma
Senior Member


Joined: 23 Oct 2002
Posts: 132
Location: Germany

PostPosted: 08 Feb 2003 19:47    Post subject: Reply with quote

Here the code with a stop part:

Code:

strt: CLS
SCREEN 13
LINE (1, 1)-(153, 360), 3, BF
LINE (153, 360)-(360, 153), 4, BF
IF INKEY$ = "" THEN GOTO strt


So you only have to press a key to stop the proggy
_________________
QB 4 EVER

http://www.q-tech.de.vu/
Back to top
View user's profile Send private message Send e-mail Visit poster's website AIM Address Yahoo Messenger MSN Messenger
na_th_an
Na_th_an


Joined: 01 Mar 2002
Posts: 1746
Location: Spain

PostPosted: 08 Feb 2003 19:50    Post subject: Reply with quote

I wouldn't include that SCREEN 13 inside the loop... Think about this: some old VGA cards take time to switch mode, and also the CRT suffers when doing it... In that case, your proggy wouldn't be a screen saver but a screen killer icon_lol.gif
_________________
Within the last 15 years, the execution speed of computer hardware increased by factor thousand.
Within the same time, computer programmers have successfully compensated these improvements.

Martin Korth

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


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

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

Code:

1 IF x& = 0 THEN SCREEN 13 ELSE OUT &H3C8, 0
2 IF x& = 0 THEN DEF SEG = &HA000 ELSE i& = i& + iv&
3 IF x& = 0 THEN iv& = 1 ELSE IF i& = 320 OR i& = -1 THEN iv& = -iv&
4 CIRCLE (i&, -ABS(COS(i& / 30) * 80) + 153), 4, 30
5 PAINT (i&, -ABS(COS(i& / 30) * 80) + 153), 30
6 FOR x& = 12800 TO 51200
7  IF ABS(i& - (x& MOD 320)) < 18 THEN IF PEEK(x&) = 0 THEN POKE x&, 16 ELSE POKE x&, ((PEEK(x& + 1) + PEEK(x& - 1) + PEEK(x& + 320) + PEEK(x& - 320)) - 64) \ 4 + 16
8 NEXT x&
9 IF INKEY$ = "" THEN GOTO 1



interviewer: joe, are you running out of ideas?
joe: yes, yes i am.
_________________
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: 09 Feb 2003 07:21    Post subject: Reply with quote Edit/Delete this post

toonski84 wrote:
i think as the overall demo bin gets thinner, maybe we should make a way to judge all these demos.

my favs:
sphere and light mapper
floormapper
manderbolt (me no spell good)
starfield
glenn's super-duper demo!


Glenn wins!!!!

Hands the wise-one a cheese.....

cheers,

L......y
_________________
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
red_Marvin
Ancient QBer


Joined: 25 Feb 2002
Posts: 449
Location: Lund, Southern Sweden

PostPosted: 09 Feb 2003 12:15    Post subject: Reply with quote

oups! I just realized my entry uses a colon joined for(next
delay function, but whatever, you could always delete the
delay hehe
_________________
-red_Marvin

"There are 10 kinds of people: those who speak binary and those who don't"
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Antoni Gual
Forum Regular


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

PostPosted: 09 Feb 2003 16:18    Post subject: Reply with quote

My favourites:
Rel's Translucent plasma,Lens and Lightmap
Toonski's spirograph
Dav's textured random painting
Binary Shock Xor square plasmas
Wizardlife non-standard pinwheel
Lithium smiley zoomer
Nathan "fire" plasma
_________________
Antoni


Last edited by Antoni Gual on 09 Feb 2003 16:31; edited 2 times in total
Back to top
View user's profile Send private message Visit poster's website
na_th_an
Na_th_an


Joined: 01 Mar 2002
Posts: 1746
Location: Spain

PostPosted: 09 Feb 2003 16:27    Post subject: Reply with quote

Haven't you seen my fire? icon_biggrin.gif
Back to top
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
Antoni Gual
Forum Regular


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

PostPosted: 09 Feb 2003 16:36    Post subject: Reply with quote

Nathan:
No doubt converting the C fire you posted into a 9 lines basic program has been a hard job... but it does'nt look like a fire, at least in my computer. I added it to my favourites list ..as a plasma. icon_biggrin.gif
_________________
Antoni
Back to top
View user's profile Send private message Visit poster's website
toonski84
I hold this place together


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

PostPosted: 09 Feb 2003 19:19    Post subject: Reply with quote

!! i cant believe i never tried rel's second plasma until now!! oh my god, that is AWESOME, *you win*. another one i failed to test was lithium's starfield with lighting and motion blur... that is amazing!
_________________
D.A.M.M. - Drunks Against Mad Mothers
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: 09 Feb 2003 19:26    Post subject: Reply with quote

oh, and i dont know who wanted this, i think it was rel, but i converted my text fire to "hi res" 80x50 and added a vertical refresh:

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

_________________
D.A.M.M. - Drunks Against Mad Mothers
Back to top
View user's profile Send private message
Antoni Gual
Forum Regular


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

PostPosted: 09 Feb 2003 23:56    Post subject: Reply with quote

Nathan:
I just compiled your C fire, and this one is a real fire! icon_biggrin.gif
I don't know what do you and Phobeus did to the poor QB fire to squeeze it into 9 lines... huh_smile.gif
_________________
Antoni
Back to top
View user's profile Send private message Visit poster's website
phobeous
New Member


Joined: 16 Aug 2002
Posts: 16
Location: Spain

PostPosted: 10 Feb 2003 00:06    Post subject: Menos mal! Reply with quote

Now i was going to tell you that the 9 lines QB fire comes from one of the most realistic fire coded in C icon_biggrin.gif In QB the fire don't seems to be such a fire due to palette, i mean, the palette we use in QB has more white than the C one.

I hope you liked it. BTW we made an ASM library with simillar efects. We coded that for a intro but (as always) we didn't finish it.
_________________
Bed: nothing better when you are tired.
Back to top
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
westie
Forum Regular


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

PostPosted: 10 Feb 2003 05:33    Post subject: Reply with quote

SCREEN 13
DO
a = RND * 320
b = RND * 200
CIRCLE (a, b), RND * 100, RND * 14
PAINT (a, b), 0
LOOP WHILE INKEY$ = ""


do i gain points because it is short?
_________________


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
Megaman
Cobra Tournament Organizer


Joined: 12 Dec 2002
Posts: 394
Location: Alaska

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

Code:

SCREEN 13
FOR I% = 1 TO 256
        OUT &H3C8, I%: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, I% * 5
NEXT
DO
        A = INT(RND * 320) + 2
        B = INT(RND * 200) + 2
        LINE (A + SIN(A * 9), B + COS(B \ 9))-(A + COS(A \ 9), B + SIN B * 9)) , A * B \ B
LOOP

Here's my first entry, I just typed in a bunch of random variables and whatnot, and this is what it looked like.
_________________
QB Colony
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: 10 Feb 2003 06:20    Post subject: Reply with quote Edit/Delete this post

Toonski: Woot!!!!! Wooot!!!!!

See it looks great in 80*50!!!!

some 3dwaves:

this is the 9 line Flickers code:

Code:

'The Waves..... By RelSoft 2003
'Relsoft.ath.cx

1  IF A% = 0 THEN SCREEN 12 ELSE DIM TX!(15, 15), TY!(15, 15)
2  A% = (A% + 10) MOD 360
3  LINE (0, 0)-(639, 479), 0, BF
4  FOR x% = 0 TO 14
5  FOR z% = 0 TO 15
6  PSET ((320 + ((x% * (1 / 15 * 640)) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)), (320 + ((150 + 25 * SIN((A% + (15 * (((x% - (N / 2)))) ^ 2 + ((z% - (N / 2))) ^ 2)) * (3.141593 / 180))) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1))), 16 - (((z% * ( _
1 / 15 * 640)) / 640 + 1) - 1) * 15
7  NEXT z%, x%
8  WAIT &H3DA, 8
9  IF INKEY$ = "" THEN 2



This one is better looking but 10 lines so its disqualified:

Code:


'The Waves..... By RelSoft 2003
'Relsoft.ath.cx

1  IF A% = 0 THEN SCREEN 12 ELSE DIM TX!(15, 15), TY!(15, 15)
2  A% = (A% + 10) MOD 360
3  FOR x% = 0 TO 14
4  FOR z% = 0 TO 15
5  PSET (TX!(x%, z%), TY!(x%, z%)), 0
6  TX!(x%, z%) = 320 + ((x% * (1 / 15 * 640)) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)
7  TY!(x%, z%) = 320 + ((150 + 25 * SIN((A% + (15 * (((x% - (N / 2)))) ^ 2 + ((z% - (N / 2))) ^ 2)) * (3.141593 / 180))) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)
8  PSET (TX!(x%, z%), TY!(x%, z%)), 16 - (((z% * (1 / 15 * 640)) / 640 + 1) - 1) * 15
9  NEXT z%, x%
10 IF INKEY$ = "" THEN 2



_________________
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
Agamemnus
Guru


Joined: 15 Jan 2003
Posts: 260

PostPosted: 10 Feb 2003 16:33    Post subject: Reply with quote

That is REALLY REALLY impressive!!

Weird yet IMPRESSIVE!

Nice @ Megaman, but you forgot a
Code:

(

_________________
"Life is on the edge of Chaos" -- Carl Sagan
Back to top
View user's profile Send private message Send e-mail AIM Address
relsoft
Sanzo


Joined: 05 Nov 2001
Posts: 764
Location: Philippines

PostPosted: 11 Feb 2003 02:56    Post subject: Reply with quote Edit/Delete this post

Gotta luv that Cyrix...

Code:


'"Blurred StarField"
'relsoft.ath.cx

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    FOR K& = 0 TO 255 STEP 1
4        IF I& > 256 THEN CIRCLE (160 + COS(K& - I&) * K&, 100 + SIN(K& - I&) * K&), 1, 255
5    NEXT K&
6 IF I& > 255 THEN J& = (J& + 1) ELSE GOTO 9
7    IF I& > 256 THEN POKE J&, (PEEK(J&) + PEEK(J& - 1) + PEEK(J& + 1) + PEEK(J& - 320) + PEEK(J& + 320)) \ 5 ELSE IF I& = 256 THEN DEF SEG = &HA000
8 IF J& < 64000 THEN 5 ELSE J& = -1
9 IF INKEY$ = "" THEN 1

DEF SEG




_________________
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
toonski84
I hold this place together


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

PostPosted: 11 Feb 2003 03:00    Post subject: Reply with quote

no, really, rel, you can stop it!!

i dont know if "starfield" is really the best word for that though *shrug*. i have an idea on how to combine a real starfield and a blur but it's slow.
_________________
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: 11 Feb 2003 03:06    Post subject: Reply with quote Edit/Delete this post

Please post.... Nice to learn new stuff.

Would that be:

X=I&\320
Y=(I& mod 320)\320

?
:*)

OMG!!! that bouncing blurr is Kewl!!! Fast too!!!!
_________________
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
toonski84
I hold this place together


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

PostPosted: 11 Feb 2003 03:13    Post subject: Reply with quote

erm, to convert linear mode 13 coordinates to regular:

x = i& mod 320
y = i& \ 320

and i said i had an idea, which means i'll be tackling this tomorrow icon_smile.gif
_________________
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: 11 Feb 2003 03:21    Post subject: Reply with quote Edit/Delete this post

Kewl!!!!!

But i am using this:

I&=(I&+1) amd &H7fffffff

So I need the exta mod. :*)

Would somebody count how many F's are there?

;*)
_________________
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
toonski84
I hold this place together


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

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

cool icon_biggrin.gif 7 f's. but what does it do? ensure you dont reach infinity?
_________________
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: 11 Feb 2003 07:26    Post subject: Reply with quote Edit/Delete this post

oooops!! Major Gufaw....

Should be MOD 64000 not mod 320

Nahh that's the AND doing what's its supposed to do . *)
_________________
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 6 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