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
biskbart
New Member


Joined: 26 Sep 2001
Posts: 3

PostPosted: 13 Feb 2003 07:09    Post subject: A compil Reply with quote

I decided to compil nearly all the programs in a ZIP file because it was not very useful. You can find it on
biskbart.free.fr
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: 13 Feb 2003 21:07    Post subject: Reply with quote

To have the right to do it you must post a demo! icon_wink.gif
_________________
Antoni
Back to top
View user's profile Send private message Visit poster's website
relsoft
Sanzo


Joined: 05 Nov 2001
Posts: 764
Location: Philippines

PostPosted: 14 Feb 2003 05:21    Post subject: Reply with quote Edit/Delete this post

Yay!!! Biskbart's alive!!!!!

:*)

Post dude!!!

rolling_smile.gif
_________________
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
Neo
Neo Deus Ex Machina


Joined: 09 Aug 2002
Posts: 328
Location: The Netherlands

PostPosted: 14 Feb 2003 11:33    Post subject: Reply with quote

HEY icon_cool.gif finally I see him somewhere LoL

mmmmrh hrmmmm, *looks on HD*, I still have his cool Demo for the QB Demo Contest 2001. However, the Piano tune gets more irritating...
_________________
___=== Neo ===___
___=== Deus ===___
___=== Ex ===___
___=== Machina ===___

neo.gif Go for some programming action!

BlindCoding
Back to top
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
BlueKeyboard
Surfing Keyboard


Joined: 19 Apr 2002
Posts: 322

PostPosted: 14 Feb 2003 12:38    Post subject: Reply with quote

Here is my "impossible circle" icon_biggrin.gif.
Code:

1 SCREEN 13
2 M$ =  "19171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031"
3 DO
4 FOR A! = 0 TO 25 STEP .01
5 FOR Y% = 0 TO 15
6 FOR X% = 0 TO 15
7 PSET (160 + COS(A!) * 50 + X%, 100 + SIN(A!) * 50 + Y%), VAL(MID$(M$, ((Y% * 2) * 16) + (X% * 2) + 1, 2))
8 NEXT X%, Y%, A!
9 LOOP

_________________
Visit Blind Coding
Back to top
View user's profile Send private message Send e-mail Visit poster's website
biskbart
New Member


Joined: 26 Sep 2001
Posts: 3

PostPosted: 14 Feb 2003 12:40    Post subject: That's ok Reply with quote

An ugly fire effect. Sorry

Code:

1 SCREEN 13
2 DEF SEG = &HA000
3 FOR I& = 50000 TO 63999 + 640
4 IF I& < 50768 THEN OUT &H3C9, (I& - 50000) \ 12
5 IF I& > 63950 THEN POKE 63999 + RND * 640, 250
6 POKE I&, (PEEK(I&) + PEEK(I& + 319) + PEEK(I& + 320) + PEEK(I& + 321)) * .235
7 NEXT I&
8 IF INKEY$ = "" THEN 30
Back to top
View user's profile Send private message Visit poster's website
Agamemnus
Guru


Joined: 15 Jan 2003
Posts: 260

PostPosted: 15 Feb 2003 01:51    Post subject: Reply with quote

Key,
It's obviously not a circle.


It's 2 interlocked rings.

BTW,

Where's the exit condition?

bikbart,
Line 3.
_________________
"Life is on the edge of Chaos" -- Carl Sagan
Back to top
View user's profile Send private message Send e-mail AIM Address
someone42
Member


Joined: 30 Jan 2003
Posts: 24

PostPosted: 15 Feb 2003 08:05    Post subject: Reply with quote

Hey all those graphic demos are real good, especially since they only take up 9 lines!

Anyways here's mine:


Code:
' Explosion screensaver by someone42
1 SCREEN 13
2 DIM p(255) AS LONG, A AS STRING * 4104
3 IF x& = 0 THEN CLS  ELSE IF x& MOD 256 = 0 THEN PALETTE USING p(0)
4 IF x& < 128 AND x& > 0 THEN p(x&) = ((64 - x& * 2 + 1) AND NOT (((64 - x& * 2 + 1) AND &HFF00) \ 256)) * 65536 + ((95 - x&) AND &H3F AND NOT (((95 - x&) AND &HFF00) \ 256) OR (((x& - 32) AND &H3F00) \ 256)) * 256 + ((256 - 2 * x& - 1) AND &H3F OR  _
(((x& - 96) AND &H3F00) \ 256)) ELSE IF x& > 639 AND ((x& - 384) \ 256) > ((x& - 384) AND 255) THEN p((x& - 384) AND 255) = ((NOT SGN(p((x& - 384) AND 255) - &H40000)) AND (p((x& - 384) AND 255) - &H40000) AND &H3F0000) + ((NOT SGN((p((x& - 384) AND _
255) AND &HFF00) - 1024)) AND (p((x& - 384) AND 255) - 1024) AND &H3F00) + ((NOT SGN((p((x& - 384) AND 255) AND 255) - 4)) AND (p((x& - 384) AND 255) - 4) AND 63)
5 IF x& < 384 AND x& > 127 THEN MID$(A, (x& - 128) * 16 + 1, 24) = MKS$(RND * 6.28318 - 3.14159) + MKS$(RND / 2) + MKI$(CVS(MID$(A, 1, 4)) * 3259.496) + MKI$(CVS(MID$(A, 5, 4)) * 12800 - 6400) + MKI$(SIN(CVS(MID$(A, (x& - 128) * 16 + 1, 4))) * CVS( _
MID$(A, (x& - 128) * 16 + 5, 4)) * 512) + MKI$(COS(CVS(MID$(A, (x& - 128) * 16 + 1, 4))) * CVS(MID$(A, (x& - 128) * 16 + 5, 4)) * 384) + MKS$(RND * 6.28318 - 3.14159) + MKS$(RND / 2)
6 IF x& > 383 THEN MID$(A, ((x& - 384) AND 255) * 16 + 9, 8) = MKI$(CVI(MID$(A, ((x& - 384) AND 255) * 16 + 9, 2)) + CVI(MID$(A, ((x& - 384) AND 255) * 16 + 13, 2))) + MKI$(CVI(MID$(A, ((x& - 384) AND 255) * 16 + 11, 2)) + CVI(MID$(A, ((x& - 384)  _
MOD 256) * 16 + 15, 2))) + MKI$(CVI(MID$(A, ((x& - 384) MOD 256) * 16 + 13, 2)) * .98) + MKI$(CVI(MID$(A, ((x& - 384) MOD 256) * 16 + 15, 2)) * .98)
7 IF x& > 383 AND (x& - 384) MOD 256 <> 0 THEN CIRCLE ((CVI(MID$(A, ((x& - 384) AND 255) * 16 + 9, 2)) + 10240) / 64, (CVI(MID$(A, ((x& - 384) AND 255) * 16 + 11, 2)) + 12800) / 64), 1, (x& - 384) \ 256
8 x& = (x& + 1) MOD 32897
9 IF INKEY$ = "" THEN 3


Hehe sorry about the length - my original program was 52 lines and it took a lot of trouble to get it down to 9. Yeah and I know the IF...THEN...ELSE...IF...THEN thing is a really cheesy hack to fit more into one line, but there was no other way to do it. It may run a bit slow (it's about 6 times slower than the original, uncompressed program!)
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: 15 Feb 2003 15:59    Post subject: Reply with quote

hey, that's an awesome demo, someone42! got any other programs that arent 9 lines?
_________________
D.A.M.M. - Drunks Against Mad Mothers
Back to top
View user's profile Send private message
Lanzaa
Member


Joined: 28 Dec 2002
Posts: 20
Location: California, USA

PostPosted: 15 Feb 2003 16:31    Post subject: Reply with quote

hey i just wanted to point something out to bluekeyboard
use the "If inkey$ = "" goto 4" or what ever instead of do...loop

Code:
1 SCREEN 13
2 M$ =  "19171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031" 
4 FOR A! = 0 TO 25 STEP .01
5 FOR Y% = 0 TO 15
6 FOR X% = 0 TO 15
7 PSET (160 + COS(A!) * 50 + X%, 100 + SIN(A!) * 50 + Y%), VAL(MID$(M$, ((Y% * 2) * 16) + (X% * 2) + 1, 2))
8 NEXT X%, Y%, A!
9 If inkey$ = "" goto 4


cuts down a line of code which you can use and makes it so you can exit icon_cool.gif
_________________
The manual is God, Google is its mesenger
well sorta
Back to top
View user's profile Send private message MSN Messenger
someone42
Member


Joined: 30 Jan 2003
Posts: 24

PostPosted: 16 Feb 2003 04:59    Post subject: Reply with quote

Quote:
got any other programs that arent 9 lines?


Well, if you're talking about graphic demos, not really. But usually I just program bits and pieces of graphical/sound/network junk.
Of course that means I have over 200 files sitting in \QB45 icon_smile.gif

Well, here's another one based around the same concepts:
Code:
' Crackler screensaver by someone42
1 SCREEN 9
2 a$ = MKI$(320) + MKI$(175) + MKI$(1) + MKI$(1) + STRING$(12288, 0)
3 IF x& MOD 128 = 0 THEN MID$(a$, 1, 8) = MKI$(CVI(MID$(a$, 1, 2)) + CVI(MID$(a$, 5, 2))) + MKI$(CVI(MID$(a$, 3, 2)) + CVI(MID$(a$, 7, 2))) + MID$(a$, 5, 4)
4 IF x& MOD 128 = 0 THEN MID$(a$, 5, 4) = MKI$((2 * ((0 > CVI(MID$(a$, 1, 2))) OR (640 < CVI(MID$(a$, 1, 2)))) + 1) * CVI(MID$(a$, 5, 2))) + MKI$((2 * (0 > CVI(MID$(a$, 3, 2)) OR 350 < CVI(MID$(a$, 3, 2))) + 1) * CVI(MID$(a$, 7, 2)))
5 IF MID$(a$, x& * 12 + 19, 2) = STRING$(2, 0) THEN MID$(a$, x& * 12 + 9, 12) = MKI$((CVI(MID$(a$, 1, 2)) - 320) * 64) + MKI$((CVI(MID$(a$, 3, 2)) - 175) * 64) + MKI$(RND * 512 - 256) + MKI$(RND * 512 - 256) + MKI$(RND * 15 + 1) + MKI$(RND * 24 + 4) _
ELSE MID$(a$, x& * 12 + 9, 12) = MKI$(CVI(MID$(a$, x& * 12 + 9, 2)) + CVI(MID$(a$, x& * 12 + 13, 2))) + MKI$(CVI(MID$(a$, x& * 12 + 11, 2)) + CVI(MID$(a$, x& * 12 + 15, 2))) + MID$(a$, x& * 12 + 13, 6) + MKI$(CVI(MID$(a$, x& * 12 + 19, 2)) - 1)
6 IF MID$(a$, x& * 12 + 19, 2) <> STRING$(2, 0) THEN PSET (CVI(MID$(a$, x& * 12 + 9, 2)) \ 64 + 320, CVI(MID$(a$, x& * 12 + 11, 2)) \ 64 + 175), CVI(MID$(a$, x& * 12 + 17, 2))
7 PSET ((CVI(MID$(a$, x& * 12 + 9, 2)) - CVI(MID$(a$, x& * 12 + 13, 2))) \ 64 + 320, (CVI(MID$(a$, x& * 12 + 11, 2)) - CVI(MID$(a$, x& * 12 + 15, 2))) \ 64 + 175), 0
8 x& = (x& + 1) MOD 1024
9 IF INKEY$ = "" THEN 3
Back to top
View user's profile Send private message
BlueKeyboard
Surfing Keyboard


Joined: 19 Apr 2002
Posts: 322

PostPosted: 16 Feb 2003 15:46    Post subject: Reply with quote

Agamemnus wrote:

Key,
It's obviously not a circle.


It's 2 interlocked rings.


That is a circle....
Oh and just CTRL+Break.

lanzaa wrote:

hey i just wanted to point something out to bluekeyboard
use the "If inkey$ = "" goto 4" or what ever instead of do...loop

I know, it was 8 lines first, but I made it to 9 lines icon_biggrin.gif(but I don't know ....whyicon_smile.gif).
_________________
Visit Blind Coding
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: 16 Feb 2003 16:40    Post subject: Reply with quote

hahaha!! seriously, someone, that's awesome!!

how long have you been coding?
_________________
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: 17 Feb 2003 00:00    Post subject: Wirlpool Reply with quote

Code:

'Antoni Gual, from an idea  by Steve Nunnaly

1 IF i THEN CIRCLE (160, 100), i, (i MOD 16) + 32, , , .8 ELSE SCREEN 13
2 i = i + 1
3 IF i < 200 THEN GOTO 1 ELSE DIM b2%(5000)
4 w = (w + .3)
5 xmid = 140 + SIN(7 * w / 1000) * 110
6 ymid = 80 + SIN(11 * w / 1000) * 59
7 GET ((xmid - (SIN(w) * 28)), (ymid - (COS(w) * 20)))-((xmid - (SIN(w) * 28)) + 40, (ymid - (COS(w) * 20)) + 40), b2%
8 PUT ((xmid - (SIN(w - .04) * 27.16)), (ymid - (COS(w - .04) * 19.4))), b2%, PSET
9 IF LEN(INKEY$) = 0 THEN GOTO 4

_________________
Antoni
Back to top
View user's profile Send private message Visit poster's website
relsoft
Sanzo


Joined: 05 Nov 2001
Posts: 764
Location: Philippines

PostPosted: 17 Feb 2003 05:02    Post subject: Reply with quote Edit/Delete this post

Kewl Additions guys!!!

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

hmmmmm.......

icon_smile.gif
_________________
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
someone42
Member


Joined: 30 Jan 2003
Posts: 24

PostPosted: 17 Feb 2003 07:54    Post subject: Reply with quote

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? icon_biggrin.gif

Well, 42 was a random number chosen because "someone" was taken.
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: 17 Feb 2003 08:32    Post subject: Reply with quote

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

and @antoni: HOLY**** THAT IS AN AWESOME DEMO.
_________________
D.A.M.M. - Drunks Against Mad Mothers
Back to top
View user's profile Send private message
Neo
Neo Deus Ex Machina


Joined: 09 Aug 2002
Posts: 328
Location: The Netherlands

PostPosted: 17 Feb 2003 09:38    Post subject: Reply with quote

icon_eek.gif icon_eek.gif icon_eek.gif icon_eek.gif icon_eek.gif
WOW! There's good stuff here!

icon_redface.gif icon_redface.gif
Oops, didn't make a 9-line effect myself yet :-/ oops LoL
_________________
___=== Neo ===___
___=== Deus ===___
___=== Ex ===___
___=== Machina ===___

neo.gif Go for some programming action!

BlindCoding
Back to top
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
relsoft
Sanzo


Joined: 05 Nov 2001
Posts: 764
Location: Philippines

PostPosted: 18 Feb 2003 04:38    Post subject: Reply with quote Edit/Delete this post

Antoni: Whoaaa!!!!(again)

:*)
_________________
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
BlueKeyboard
Surfing Keyboard


Joined: 19 Apr 2002
Posts: 322

PostPosted: 18 Feb 2003 19:02    Post subject: Reply with quote

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 icon_razz.gif.
I couldn't fit the palette mod inside icon_frown.gif, 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

_________________
Visit Blind Coding
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: 18 Feb 2003 22:40    Post subject: Reply with quote

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*
_________________
D.A.M.M. - Drunks Against Mad Mothers
Back to top
View user's profile Send private message
BlueKeyboard
Surfing Keyboard


Joined: 19 Apr 2002
Posts: 322

PostPosted: 19 Feb 2003 20:37    Post subject: Reply with quote

It doesn't work? huh_smile.gif.
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

toonski84 wrote:
(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? icon_biggrin.gif.
_________________
Visit Blind Coding
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: 19 Feb 2003 23:14    Post subject: Reply with quote

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 icon_biggrin.gif

but, since i talked about it, run this:
x = 1
y = -(x < 2)
print y
y = -(x > 2)
print y
_________________
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: 22 Feb 2003 04:41    Post subject: Text mode rotozoomer Reply with quote

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
_________________
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
R@dioman
Senior Member


Joined: 16 May 2002
Posts: 182
Location: Winnipeg, Manitoba

PostPosted: 22 Feb 2003 04:44    Post subject: Reply with quote

Niiiiice!! icon_cool.gif
_________________
-This statement is false.
-I am a liar. In fact, I am lying right now.
-Is this a question?
Back to top
View user's profile Send private message
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 7 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