The Not So Impossible Challenge: Screen Saver Contest! - Printable Version +- 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-28-2005 Sorry Rattra that was a hindsight....So is this one: You MAY use BLOAD and what your BLOADing (from the file) does not count against you. As for the colors....I taken your arguement and decided that you can have as many colors as you want, otherwise it would be unconsitutional to my challenge. I like your program, I've also noticed the lack of others. -Issues: --Rattra's: ----1. After about 10 sec. of running time, the program slows A LOT down. This error will count against you in the final judging. (Hint: Something to do with INKEY$). This Challenge will end Next Sat. at 11:59 GMT -5 (That's Standard Eastern Time [you and me Rattra and Pete]). If no other entries are provided then the compition will end with the first entry to be passed in. The Not So Impossible Challenge: Screen Saver Contest! - relsoft - 02-28-2005 Quote:Just wondering: Jelly sucks!!!! He sucks big time!!!! The Not So Impossible Challenge: Screen Saver Contest! - Rattrapmax6 - 02-28-2005 :o *Is very scared, ^^^ Rel's does brillant screens in just 7lines Oh well... Hmm, slow? It changes speed randomly, or is suppose to. :wink: ,.. It does 1 stroke to set a back round, then speeds up, slows down,. hope you played it long enough to get all that... :roll: The Not So Impossible Challenge: Screen Saver Contest! - barok - 03-01-2005 It's not really a program thing, it's a windows thing. I'm not completely sure, but I think that if running a dos program, if there is no user input after like 5 seconds, the program slows down to conserve the cpu. User input speeds it back up again. The Not So Impossible Challenge: Screen Saver Contest! - Z!re - 03-01-2005 Quote:1. After about 10 sec. of running time, the program slows A LOT down. This error will count against you in the final judging.Oh, right... So, we suffer because you have a crappy system configuration? Real nice judging, really nice... Rattr, same thing, fix your system. It's windows XP changing the priority for DOS programs. RTFM. The Not So Impossible Challenge: Screen Saver Contest! - shiftLynx - 03-01-2005 My entry: Electricity [syntax="QBASIC"] declare sub setpal(c%, r%, g%, b%) randomize timer screen 13 for i% = 0 to 31 setpal(i%, 0, 0, i% * 2) next i% do x% = abs(x% + int(rnd * 2) + (-1 * int(rnd * 2))) mod 319 y% = abs(y% + int(rnd * 2) + (-1 * int(rnd * 2))) mod 199 pset(x%, y%), int(rnd * 30) + 1 pset((159 + (x% + int(rnd * 2) + (-1 * int(rnd * 2)))) mod 319, (99 + (y% + int(rnd * 2) + (-1 * int(rnd * 2)))) mod 199), int(rnd * 30) + 1 pset((319 - (x% + int(rnd * 2) + (-1 * int(rnd * 2)))) mod 319, (199 - (y% + int(rnd * 2) + (-1 * int(rnd * 2)))) mod 199), int(rnd * 30) + 1 wait &H3DA, 8 if int(bg!) > 0 then bg! = bg! - 0.5 setpal(0, 0, 0, int(bg!)) end if if int(rnd * 500) = 1 then bg! = 25 loop while inkey$ = "" sub setpal(c%, r%, g%, b%) out &H3C8, c% out &H3C9, r% out &H3C9, g% out &H3C9, b% end sub [/syntax] -shiftLynx The Not So Impossible Challenge: Screen Saver Contest! - Mitthrawnuruodo - 03-01-2005 Yes but you have an error. QB want's setpal(i%, 0, 0, i% *2) to be equal to something. So it wouldn't run. Ummm just to be clear, this contest is NOT to make an accual screen saver for windows. But to make a program that is like a screen saver in its abilities. BTW Z!re and all. INKEY$ is responsable for the slow down somewhere in the program. If that wasn't in there then it would be fine except for the lack of keyboard input. The Not So Impossible Challenge: Screen Saver Contest! - Mitthrawnuruodo - 03-01-2005 Rattra I fixed your porblem. Get rid of line 19 and it will work fine. The Not So Impossible Challenge: Screen Saver Contest! - Rattrapmax6 - 03-01-2005 :???: Do I have to resubmit then? heh heh? EDIT: take the ( ) of of the setpal, or put CALL b4 setpal... see. if like this: setpal i%, i, i, i% ' What ever you had, its done like that CALL setpal(i%, i, i%) 'is done like that,. see? Good luck, great screen svr Shift! :wink: The Not So Impossible Challenge: Screen Saver Contest! - Mitthrawnuruodo - 03-01-2005 ya. ... :normal: .... .... ... :lol: Of course not! |