View
previous topic :: View
next topic |
Author |
Message |
red_Marvin Ancient QBer

Joined:
25 Feb 2002 Posts: 449 Location: Lund, Southern
Sweden
|
Posted: 23 Feb
2003 16:51 Post
subject: |
|
|
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 |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 23 Feb
2003 17:53 Post
subject: |
|
|
hey, that's pretty dank,
red marvin! "green boxes" is an
understatement! _________________ D.A.M.M. - Drunks
Against Mad Mothers | |
Back
to top |
|
 |
red_Marvin Ancient QBer

Joined:
25 Feb 2002 Posts: 449 Location: Lund, Southern
Sweden
|
Posted: 23 Feb
2003 18:11 Post
subject: |
|
|
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 |
|
 |
na_th_an Na_th_an

Joined:
01 Mar 2002 Posts: 1746 Location: Spain
|
Posted: 23 Feb
2003 18:15 Post
subject: |
|
|
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 |
|
 |
red_Marvin Ancient QBer

Joined:
25 Feb 2002 Posts: 449 Location: Lund, Southern
Sweden
|
Posted: 23 Feb
2003 18:21 Post
subject: |
|
|
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 |
|
 |
|
Stop
watching this topic
|
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
|