1 key challenge revisited

[Z!re]

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.

[red_Marvin]

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...

[Dio]

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
loop

edit: update
edit: i'm really obsessive as it turns out.

[urger]

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

[moochthemonkey]

Are brain waves allowed to play the game?

If so...I might be able to enter a challenge for the first time..

[Dio]

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?

[Anonymous]

Code:

screen 13, , , 1

[Rattrapmax6]

Code:

screen 13, , , 1

That game sucks.... :lol:

j/k (I know you was showing Dio full screen mode...) :rotfl:

[rpgfan3233]

Code:

screen 13, , , 1

That game sucks.... :lol:

j/k (I know you was showing Dio full screen mode...) :rotfl:

What are you talking about!? You can make up whatever imaginary game you want from a blank screen! :-P

[Z!re]

Code:

screen 13, , , 1

That game sucks.... :lol:

j/k (I know you was showing Dio full screen mode...) :rotfl:

What are you talking about!? You can make up whatever imaginary game you want from a blank screen! :-P

It doesent use a key for input, it's dissqualified!