Qbasicnews.com
November 20, 2019, 12:07:02 PM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: 1 ... 10 11 [12] 13 14 15
  Print  
Author Topic: Challenge....  (Read 63573 times)
someone42
Member
*
Posts: 44


« Reply #165 on: February 17, 2003, 04:54:42 AM »

Quote
how long have you been coding?


Only a couple of years. I'm not a newbie to qb but I am a newbie to this forum.

Quote
I knew of "Someone" who likes to 42 people.....

And who has that? Cheesy

Well, 42 was a random number chosen because "someone" was taken.
Logged
toonski84
__/--\__
*****
Posts: 2567



« Reply #166 on: February 17, 2003, 05:32:10 AM »

ever read "hitchiker's guide to the galaxy?", someone?  42 is the answer to everything Wink  

and @antoni: HOLY**** THAT IS AN AWESOME DEMO.
Logged

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
Neo
Na_th_an
*****
Posts: 2150



« Reply #167 on: February 17, 2003, 06:38:30 AM »

Shocked  Shocked  Shocked  Shocked  Shocked
WOW! There's good stuff here!

 :oops:  :oops:
Oops, didn't make a 9-line effect myself yet :-/ oops LoL
Logged
relsoft
*/-\*
*****
Posts: 3927



WWW
« Reply #168 on: February 18, 2003, 01:38:36 AM »

Antoni: Whoaaa!!!!(again)

:*)
Logged

y smiley is 24 bit.


Genso's Junkyard:
http://rel.betterwebber.com/
BlueKeyboard
Wandering Guru
***
Posts: 337



WWW
« Reply #169 on: February 18, 2003, 04:02:57 PM »

Code:

1 SCREEN 13
'2 FOR I% = 0 TO 63 * 3 STEP 3
'3 FOR E% = 0 TO 3
'4 OUT &H3C6, &HFF
'5 OUT &H3C8, I% + E% + 1
'6 OUT &H3C9, 0
'7 OUT &H3C9, I% / 3
'8 OUT &H3C9, 0
'9 NEXT E%, I%
10 LINE (0, 0)-(319, 199), 0, BF
11 FOR I = 1 TO 359 STEP .09
12 PSET (160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), 2
13 NEXT
14 N% = N% + 1
15 GOTO 10
               
Dont stare at it too long  Tongue.
I couldn't fit the palette mod inside Sad, but if you run with it, change  
Code:

12 PSET (160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), 2
to
12 PSET (160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), I
Logged

toonski84
__/--\__
*****
Posts: 2567



« Reply #170 on: February 18, 2003, 07:40:44 PM »

palette mod dont work but if it did you could easily fit in there.  (two hints: you can use comparison operators in math expressions, and your for next group, and you can adjust the for next look to cover 768 values easy. *shuts up now*
Logged

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
BlueKeyboard
Wandering Guru
***
Posts: 337



WWW
« Reply #171 on: February 19, 2003, 05:37:42 PM »

It doesn't work?  :Huh:.
Are you sure you changed
12 PSET (160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), 2
to
12 PSET (160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), I

Quote from: "toonski84"
(two hints: you can use comparison operators in math expressions, and your for next group, and you can adjust the for next look to cover 768 values easy. *shuts up now*

Hmmmm, how? Cheesy.
Logged

toonski84
__/--\__
*****
Posts: 2567



« Reply #172 on: February 19, 2003, 08:14:42 PM »

Code:
1 IF i = 0 THEN SCREEN 13 ELSE OUT &H3C8, 0
2 LINE (0, 0)-(319, 199), 0, BF
3 FOR i = 1 TO 3590
4 IF i < 769 THEN OUT &H3C9, (((i - 1) MOD 3) AND 1) * ((i - 1) \ 3) \ 4
5 PSET (160 + COS((i / 10) + N%) * .1 * i, 100 + SIN(i / 10 + N%) * i / 10), i \ 10
6 NEXT
7 N% = N% + 1
8 WAIT &H3DA, 8
9 GOTO 2


turns out you didnt need any of that crap Cheesy

but, since i talked about it, run this:
x = 1
y = -(x < 2)
print y
y = -(x > 2)
print y
Logged

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
BinarySHOCK
Forum Regular
**
Posts: 117



WWW
« Reply #173 on: February 22, 2003, 01:41:05 AM »

oh ya...

1 Ang! = Ang! + .05
2 Var$ = MKI$(COS(Ang!) * SIN(Ang!) * 128) + MKI$(SIN(Ang!) * SIN(Ang!) * 128)
3 FOR Ix% = -40 TO 39
4      FOR Iy% = -13 TO 11
5           LOCATE Iy% + 14, Ix% + 41
6           COLOR (((((Ix% * CVI(MID$(Var$, 1, 2)) + Iy% * CVI(MID$(Var$, 3, 2))) XOR (Iy% * CVI(MID$(Var$, 1, 2)) - Ix% * CVI(MID$(Var$, 3, 2)))) \ 512)) AND 15)
7           PRINT CHR$(176);
8      NEXT Iy%, Ix%
9 IF LEN(INKEY$) = 0 THEN 1
Logged

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
R@dioman
Ancient QBer
****
Posts: 410



« Reply #174 on: February 22, 2003, 01:44:38 AM »

Niiiiice!! Cool
Logged

red_Marvin
Na_th_an
*****
Posts: 1509



WWW
« Reply #175 on: February 23, 2003, 01:51:15 PM »

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
Logged

/post]
toonski84
__/--\__
*****
Posts: 2567



« Reply #176 on: February 23, 2003, 02:53:09 PM »

hey, that's pretty dank, red marvin!  "green boxes" is an understatement!
Logged

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
red_Marvin
Na_th_an
*****
Posts: 1509



WWW
« Reply #177 on: February 23, 2003, 03:11:09 PM »

what does dank mean?

anyway do anybody know why I can't PALETTE the colors above
63 in screen 13?
Logged

/post]
na_th_an
*/-\*
*****
Posts: 8244



WWW
« Reply #178 on: February 23, 2003, 03:15:12 PM »

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.
Logged

SCUMM (the band) on Myspace!
ComputerEmuzone Games Studio
underBASIC, homegrown musicians
[img]http://www.ojodepez-fanzine.net/almacen/yoghourtslover.png[/i
red_Marvin
Na_th_an
*****
Posts: 1509



WWW
« Reply #179 on: February 23, 2003, 03:21:53 PM »

maybe that was the fault...
Logged

/post]
Pages: 1 ... 10 11 [12] 13 14 15
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!