Qbasicnews.com
September 15, 2019, 11:53:31 PM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: [1] 2 3
  Print  
Author Topic: 1 key challenge revisited  (Read 20362 times)
Z!re
*/-\*
*****
Posts: 4599


« on: October 02, 2005, 12:40:37 PM »

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.
Logged
red_Marvin
Na_th_an
*****
Posts: 1509



WWW
« Reply #1 on: October 02, 2005, 01:35:30 PM »

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


EDIT: No I will not participate in this one, I seem to lack programming
motivation in general...
Logged

/post]
Dio
I hold this place together
*****
Posts: 874



« Reply #2 on: October 02, 2005, 07:17:47 PM »

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

quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
urger
Wandering Guru
***
Posts: 337



« Reply #3 on: October 02, 2005, 10:37:37 PM »

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 Sad
Logged

his sig left intentionally blank
moochthemonkey
I hold this place together
*****
Posts: 801



« Reply #4 on: October 03, 2005, 12:34:32 AM »

Are brain waves allowed to play the game?

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

quote="na_th_an"]
Greenday, Spice Girls... Can you tell the difference?
[/quote]
Dio
I hold this place together
*****
Posts: 874



« Reply #5 on: October 03, 2005, 04:01:26 AM »

Quote from: "urger"
That game you posted there looks interesting, but it's far to small in windowed mode to play Sad


yeah i know, that's what Alt + Enter are for. Wink

speaking of which, how would i get it to open fullscreen automatically?
Logged

quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
Anonymous
Guest
« Reply #6 on: October 03, 2005, 04:22:50 AM »

Code:
screen 13, , , 1
Logged
Rattrapmax6
__/--\__
*****
Posts: 2577



WWW
« Reply #7 on: October 03, 2005, 01:52:54 PM »

Quote from: "Cha0s"
Code:
screen 13, , , 1


That game sucks....  :lol:

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

Kevin (x.t.r.GRAPHICS)

rpgfan3233
Ancient Guru
****
Posts: 617



« Reply #8 on: October 03, 2005, 01:59:44 PM »

Quote from: "Rattrapmax6"
Quote from: "Cha0s"
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
Logged

974277320612072617420666C61696C21 (Hexadecimal for those who don't know)
Z!re
*/-\*
*****
Posts: 4599


« Reply #9 on: October 03, 2005, 02:18:04 PM »

Quote from: "rpgfan3233"
Quote from: "Rattrapmax6"
Quote from: "Cha0s"
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!
Logged
Rattrapmax6
__/--\__
*****
Posts: 2577



WWW
« Reply #10 on: October 03, 2005, 02:23:50 PM »

Quote from: "Z!re"
Quote from: "rpgfan3233"
Quote from: "Rattrapmax6"
Quote from: "Cha0s"
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!


 :lol: [yoda]Only one key there is, no more, no less.[/yoda]
Logged

Kevin (x.t.r.GRAPHICS)

whitetiger0990
__/--\__
*****
Posts: 2964



WWW
« Reply #11 on: October 03, 2005, 06:21:21 PM »

Simple solution
Code:
screen 13, , , 1
do:loop until inkey$="g"




Hehe I'll think of a game. I was going to enter the old one but didn't
Logged


[size=10]Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.[/size]
KiZ
__/--\__
*****
Posts: 2879


WWW
« Reply #12 on: October 03, 2005, 06:37:28 PM »

Quote from: "whitetiger0990"
I was going to enter the old one but didn't


Me too :) I had an awesome game called the running man, where you had to make a man jump over obstacles while running. Pretty tricky, but fun none the less :D
Logged
urger
Wandering Guru
***
Posts: 337



« Reply #13 on: October 03, 2005, 06:44:09 PM »

Rules question:
Could mouse clicks be used as the "one key" if only the status of the mouses buttons were monitored?  Positioning of the mouse wouldn't matter, only the fact that it was clicked.
Logged

his sig left intentionally blank
whitetiger0990
__/--\__
*****
Posts: 2964



WWW
« Reply #14 on: October 03, 2005, 09:37:53 PM »

Couldn't you easily replace that with a keyboard key?
Logged


[size=10]Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.[/size]
Pages: [1] 2 3
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!