+- 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: 1 key challenge revisited (/thread-8179.html)
1 key challenge revisited - Z!re - 10-02-2005
Challenge:
Make a game that uses only one key as input
Rules:
QB or FB
NO mouse
Game must be driven by one key only
Game menus can have multiple key inputs or mouse
Game end key does not count into the one key limit
Key to bring up menu or pause does not count into the one key limit
Multiple entries are allowed
Sources and all needed binaries must be included in any release (need hosting?: www.fileanchor.com)
Judging:
Vote, for most entertaining/best/etc/yadda yadda
Time:
Challenge ends at November 8th, with a 7 day vote before QB Express.
1 key challenge revisited - red_Marvin - 10-02-2005
I'll try to enter this one, right now I have no ideas, and I have a feeling
that free time might be a problem in the immediate future, but, well see.
EDIT: No I will not participate in this one, I seem to lack programming
motivation in general...
1 key challenge revisited - Dio - 10-03-2005
this is the first thing that came to mind: (which evadently is usally a bad thing)
FB:
Code:
? "RULES:"
? "press the space bar when you are over a gap."
? "to exit, press Esc key"
dim cb(1000)
sleep 5000
screen 13,,,1:randomize timer
line (0,0)-(319,199),2,b
for y = 0 to 197 step 2
line (0,y)-(319,y),2
x = int((314-4+1)*rnd+4)
if y > 0 then line (x-2,y)-(x+4,y),0
next
for y = 197 to 198
for x = 1 to 318 step 2
if x = 1 and y = 198 then x = x +1
pset (x,y),15
next
next
get (1,197)-(318,198),cb
x = 1:y = 1
windowtitle "I rule!"
dc = 15
do
setmouse 0,0,0
if y = 197 or y = 198 then locate 8,16:print "YOU WIN!" :SLEEP :END
ox = x
if a = 0 then x = x + 1:if x = 319 then a = 1
if a = 1 then x = x - 1:if x = 1 then a = 0
for dlay = 0 to 10000000:next
pset (ox,y),bgd:pset (x,y),dc
press$ = inkey$
if press$ = chr$(27) then end
if press$ = " " then
if point (x,y+1) = bgd then pset (x,y),bgd:y = y +2 :goto 1
if point (x,y+1) <> bgd then
cc = point (0,0)
select case cc
case 2
for cy = 0 to 199
for cx = 0 to 319
if point (cx,cy) = 2 then pset (cx,cy),44
if point (cx,cy) = 0 then pset (cx,cy),15:dc = 0:bgd = 15
next
next
put (1,197),cb,pset
case 44
for cy = 0 to 199
for cx = 0 to 319
if point (cx,cy) = 44 then pset (cx,cy),4:dc = 15:bgd = 0
if point (cx,cy) = 15 then pset (cx,cy),0:
next
next
put (1,197),cb,pset
case 4
locate 8,16:? "YOU LOSE!":SLEEP :end
end select
end if
end if
1
loopedit: update
edit: i'm really obsessive as it turns out.
1 key challenge revisited - urger - 10-03-2005
I'll be entering this compo (have some work to do before I have something to show)
That game you posted there looks interesting, but it's far to small in windowed mode to play
1 key challenge revisited - moochthemonkey - 10-03-2005
Are brain waves allowed to play the game?
If so...I might be able to enter a challenge for the first time..
1 key challenge revisited - Dio - 10-03-2005
Quote:That game you posted there looks interesting, but it's far to small in windowed mode to play
yeah i know, that's what Alt + Enter are for.
speaking of which, how would i get it to open fullscreen automatically?
1 key challenge revisited - Anonymous - 10-03-2005
Code:
screen 13, , , 11 key challenge revisited - Rattrapmax6 - 10-03-2005
Quote:Code:screen 13, , , 1
That game sucks.... :lol:
j/k (I know you was showing Dio full screen mode...) :rotfl:
1 key challenge revisited - rpgfan3233 - 10-03-2005
Quote:What are you talking about!? You can make up whatever imaginary game you want from a blank screen! :-PCha0s Wrote:Code:screen 13, , , 1
That game sucks.... :lol:
j/k (I know you was showing Dio full screen mode...) :rotfl:
1 key challenge revisited - Z!re - 10-03-2005
Quote:It doesent use a key for input, it's dissqualified!Rattrapmax6 Wrote:What are you talking about!? You can make up whatever imaginary game you want from a blank screen! :-PCha0s Wrote:Code:screen 13, , , 1
That game sucks.... :lol:
j/k (I know you was showing Dio full screen mode...) :rotfl: