Qbasicnews.com

Full Version: The Not So Impossible Challenge: Screen Saver Contest!
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3
Ok. This is for QB only. Make the most creative Screen Saver you can think of. I kept my promise this time.

Rules:
-Must Respond to either Mouse or Keyboard input then Exits
-Must be less than 25 lines of Code.
-Be Creative! If more than one entry that satisfies the requisits about then I will be judging based on this!

Think your up to this one? Big Grin
Big Grin ScreenSaver?? In QB?? as long as it need not be .SCR, I'm in, I can make those easy.. in under 16 Lines, but 25 is fare,. :wink:
Just wondering:
1. when is the next 7 line screensaver contest starting up?
2. Will Jelly be taking part again? Wink
Can one line contain more than one command?

-shiftLynx
[syntax="qbasic"]REM $INCLUDE: 'QB.BI'
DIM inregs AS RegType
DIM outregs AS RegType
SCREEN 13
r = 1: rv = 1
inregs.ax = 0: CALL INTERRUPT(&H33, inregs, outregs)
inregs.ax = 3: CALL INTERRUPT(&H33, inregs, outregs): ox = outregs.cx: oy = outregs.dx
DO
FOR c = 1 TO 110
CIRCLE (160, 100), r, c
r = r + rv
IF r > 320 THEN r = 1: rv = INT(RND * 10) + 1
IF INKEY$ <> "" THEN END
inregs.ax = 3: CALL INTERRUPT(&H33, inregs, outregs)
IF ox <> outregs.cx AND y <> outregs.dx THEN END
WAIT &H3DA, 8
NEXT
LOOP UNTIL INKEY$ <> ""[/syntax]

Smile This complies whith current set rules, 18Lines and Mouse support!!

Enjoy this, :wink: ,...
Ok, if there is more then 1 entry the Rules say that I will be judging on cretivity, But something is more creative if it is made in fewer lines...remember that...so if you make something that's equally good as a 25 line one in 7 lines then the 7 lined one is the winner.

Note YOU MAY NOT use the ":" to make more than 1 command on a line. However something like Dim A as integer, B as integer is accepted.

Does that answer everyones question?
Rattra's program is not accepted.

1. It uses ":"
2. It will give my computer screen burn after a while. (The idea is to save the screen) Big Grin
Smile Note, you should have set the ":" rule at the start, now I have to go back in reprogram..

Also, bright colors don't destroy the screen, its when a image is setting still for hours, and most modern screens refresh every some many times a sec so screensaver now exist only for decoration...

Banning me for the ":" I agree, but bright colors are another, screen savers are to keep the screen in motion and not let a standing image burn the screen,... now that the deffinition of "Screen Saver" is strait, I'll go rewrite mine above... :wink:
For anyone newish who is interested in the current thread, this older thread might be of interest.

http://forum.qbasicnews.com/viewtopic.php?t=1876

Cheers and I look forward to seeing what you all come up with.

Joe
Smile Okay, under new rules this complies:

[syntax="qbasic"]REM $INCLUDE: 'QB.BI'
DIM inregs AS RegType
DIM outregs AS RegType
SCREEN 13
r = 1
rv = 1
inregs.ax = 0
CALL INTERRUPT(&H33, inregs, outregs)
inregs.ax = 3
CALL INTERRUPT(&H33, inregs, outregs)
ox = outregs.cx
oy = outregs.dx
DO
FOR c = 1 TO 110
CIRCLE (160, 100), r, c
r = r + rv
IF r > 320 THEN r = 1
rv = INT(RND * 10) + 1
IF INKEY$ <> "" THEN END
inregs.ax = 3
CALL INTERRUPT(&H33, inregs, outregs)
IF ox <> outregs.cx AND y <> outregs.dx THEN END
WAIT &H3DA, 8
NEXT
LOOP UNTIL INKEY$ <> ""[/syntax]

As for bright colors Mitth, I have a comment above telling why its wrong to judge aganst 'em.. :wink: [/code]
Pages: 1 2 3