Posts: 503
Threads: 31
Joined: Feb 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?
i]"But...it was so beautifully done"[/i]
Posts: 2,404
Threads: 153
Joined: Jan 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:
Kevin (
x.t.r.GRAPHICS)
Posts: 1,688
Threads: 119
Joined: Jun 2003
Just wondering:
1. when is the next 7 line screensaver contest starting up?
2. Will Jelly be taking part again?
Jumping Jahoolipers!
Posts: 320
Threads: 9
Joined: Dec 2004
Can one line contain more than one command?
-shiftLynx
img]http://www.cdsoft.co.uk/misc/shiftlynx.png[/img]
Posts: 2,404
Threads: 153
Joined: Jan 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: ,...
Kevin (
x.t.r.GRAPHICS)
Posts: 503
Threads: 31
Joined: Feb 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?
i]"But...it was so beautifully done"[/i]
Posts: 503
Threads: 31
Joined: Feb 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)
i]"But...it was so beautifully done"[/i]
Posts: 2,404
Threads: 153
Joined: Jan 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:
Kevin (
x.t.r.GRAPHICS)
Posts: 358
Threads: 15
Joined: May 2003
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
Posts: 2,404
Threads: 153
Joined: Jan 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]
Kevin (
x.t.r.GRAPHICS)