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
 
Post new topic   Reply to topic    Qbasicnews Forum Index -> Challenges
View previous topic :: View next topic  
Author Message
red_Marvin
Ancient QBer


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

PostPosted: 23 Feb 2003 16:51    Post subject: Reply with quote

What about this?

Code:
' Nineliner by red_Marvin:
' green boxes!
' runs smooth on a P90
' color number = 65536 * blue + 256 * green + red
'---ENJOY!---
'
1 RANDOMIZE TIMER
2 SCREEN 13
3 PALETTE n, n * 256
4 PALETTE 63 - n, n * 256
5 IF n = 32 THEN x = INT(RND * 32) * 10 ELSE n = n + 1
6 IF n < 32 THEN GOTO 3 ELSE y = INT(RND * 20) * 10
7 c = POINT(x, y)
8 IF c <= 0 THEN LINE (x, y)-(x + 9, y + 9), 63, B ELSE LINE (x, y)-(x + 9, y + 9), c - 1, B
9 IF INKEY$ = "" THEN GOTO 5


edit: Changed the code a little
_________________
-red_Marvin

"There are 10 kinds of people: those who speak binary and those who don't"


Last edited by red_Marvin on 24 Feb 2003 14:49; edited 1 time in total
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: 23 Feb 2003 17:53    Post subject: Reply with quote

hey, that's pretty dank, red marvin! "green boxes" is an understatement!
_________________
D.A.M.M. - Drunks Against Mad Mothers
Back to top
View user's profile Send private message
red_Marvin
Ancient QBer


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

PostPosted: 23 Feb 2003 18:11    Post subject: Reply with quote

what does dank mean?

anyway do anybody know why I can't PALETTE the colors above
63 in screen 13?
_________________
-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
na_th_an
Na_th_an


Joined: 01 Mar 2002
Posts: 1746
Location: Spain

PostPosted: 23 Feb 2003 18:15    Post subject: Reply with quote

You can palette the colours above 63. But beware, r, g or b must be 0-63. Maybe that was the fault.

Code:
PALETTE 127,4+256*20+65536*45


Is correct, for example.
_________________
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
red_Marvin
Ancient QBer


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

PostPosted: 23 Feb 2003 18:21    Post subject: Reply with quote

maybe that was the fault...
_________________
-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
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
Page 8 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