+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QbasicNews.Com (http://qbasicnews.com/newforum/forum-3.html)
+--- Forum: Challenges (http://qbasicnews.com/newforum/forum-10.html)
+--- Thread: The Not So Impossible Challenge: Screen Saver Contest! (/thread-6261.html)
The Not So Impossible Challenge: Screen Saver Contest! - Mitthrawnuruodo - 02-27-2005
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?
The Not So Impossible Challenge: Screen Saver Contest! - Rattrapmax6 - 02-27-2005
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:
The Not So Impossible Challenge: Screen Saver Contest! - barok - 02-27-2005
Just wondering:
1. when is the next 7 line screensaver contest starting up?
2. Will Jelly be taking part again?
The Not So Impossible Challenge: Screen Saver Contest! - shiftLynx - 02-27-2005
Can one line contain more than one command?
-shiftLynx
The Not So Impossible Challenge: Screen Saver Contest! - Rattrapmax6 - 02-27-2005
[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]
This complies whith current set rules, 18Lines and Mouse support!!Enjoy this, :wink: ,...
The Not So Impossible Challenge: Screen Saver Contest! - Mitthrawnuruodo - 02-27-2005
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?
The Not So Impossible Challenge: Screen Saver Contest! - Mitthrawnuruodo - 02-27-2005
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)
The Not So Impossible Challenge: Screen Saver Contest! - Rattrapmax6 - 02-27-2005
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:
Just - Mango - 02-27-2005
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
The Not So Impossible Challenge: Screen Saver Contest! - Rattrapmax6 - 02-27-2005
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]