Author Topic: Competition  (Read 15853 times)

0 Members and 1 Guest are viewing this topic.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
Re: Competition
« Reply #15 on: October 03, 2021, 03:11:42 pm »
The difficulty with 'one button' could all go away by using one simple neural interface... Am I wrong? (bplus... say nothing... lol)
Logic is the beginning of wisdom.

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • Steve’s QB64 Archive Forum
Re: Competition
« Reply #16 on: October 03, 2021, 03:37:51 pm »
Here’s an idea for a one-button Halloween game:  CANDY SUBMARINE!


Gameplay involves using the spacebar to inflate or deflate the ballasts on a sub to make it go up and down.  The game is naturally a side scroller, which ceaselessly scrolls automatically.

The goal is to grab the various candies that have spilled overboard off a massive Halloween cargo ship in a storm and sunk into the ocean.

The challenge comes in maintaining your oxygen levels (it refills to 100% when you’re at the surface, decreases every second fully submerged), and avoiding the hazards of the deep — sharks, octopuses, squids, old war world ii mines…

Salvage all the candy you possibly can on the CANDY SUBMARINE!!



As you can probably tell, I’ve been working on writing and publishing my next book again…. At the moment I’m stuck in “creative mode”, instead of “technical mode” — that comes during the editing phase of the story, pre-publishing.   Right now, I can brainstorm a thousand game ideas…. I’m just not in the right stage of mind to actually sit down and program them.  LOL!!

Feel free to make use of any idea I share that one of you guys might want to take a run at making.  😉
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • Steve’s QB64 Archive Forum
Re: Competition
« Reply #17 on: October 03, 2021, 04:23:29 pm »
CURSE MASTER!

You’re a witch with a goal!  Curse all the kids on Halloween night!

Gameplay is again a simple continual side scroller as you fly over the kids heads on your broom.

Kids come in four variations: boy/girl, young/old

To curse them, you have to use the right magic while they’re on the screen…

young boys require a press-hold-press action of the spacebar.
young girls are hold-press-press.
older boys are hold-press-hold.
Older girls are press-hold-hold.

Presses are generated by a quick up and down of the space bar.
Holds require the spacebar to go down for 0.2 seconds or more, then up.

You have a set amount of magic to curse an increasing number of children each level.  As you progress, number of children increases per level, and so does your flying speed.  Magic is renewed at the start of each new level.

Can you be the witch who curses the most children?  Will you become The Curse Master?!!
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • Steve’s QB64 Archive Forum
Re: Competition
« Reply #18 on: October 03, 2021, 04:45:40 pm »
HILLBILLY HORSESHOES

A one-click game based off one we used to play here on the farm after the fall harvest, so it fits the Halloween theme somewhat.  Now what we used to do involved a lot of drinking and spinning…. You grab a horseshoe, spin around in a circle and toss!!  Whichever idiot lost had to drink a shot of fresh green apple shine!

Needless to say, it’s a Redneck Classic!  Drinking and hurling heavy iron projectiles!  What can go wrong??

To save you guys from learning, a one-click version of this would be simple:

Place two targets on the screen.  Your goal is to hit as close to that target as possible.  To do so, the player avatar stands behind their horseshoe and spins in a circle building up momentum.  When ready, release the shoe and aim for the heavens!

Gameplay:

Press the spacebar to spin.  The longer you hold it, the faster you spin and the farther the horseshoe travels.
Release to hurl in that direction, at that speed, and see how close you get to the target!

Bonus points for killing spectators!
Even more points if they’re on your side!
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • Steve’s QB64 Archive Forum
Re: Competition
« Reply #19 on: October 03, 2021, 05:05:05 pm »
Here’s an idea @bplus might enjoy making: WORD BUMP

Take a dictionary to gather a list of words. 
Scroll one across the screen from left to right.
As it passed the center target area of the screen, you can hit the spacebar to BUMP out a letter to make a new word.

For example: PETE scrolls across the screen.  As the T crosses the target, you hit the spacebar and bump it out to spell PEE.  1 word made via bumping!

The word then scrolls across the screen a second time.  Bump the first E and make PET!

For a secondary challenge, you can form words with the discard letters as well.

Example: Word is BPLUS…

Bump the S, U, and B to make SUB!

You can form words from left to right, or from right to left, but the game ends when you fail to form a new word  from either direction on your turn.

How many words can you form??
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
Re: Competition
« Reply #20 on: October 03, 2021, 05:14:04 pm »
@bplus
yes it is not so near to Missile Command (fine!)
as you can see from the source code posted here
Code: QB64: [Select]
  1. DECLARE SUB CentrarTexto (t$, y%)
  2.  
  3.  
  4. menu:
  5. Color 10, 0
  6. CentrarTexto "ÛÛÛÛÛÛ»           ÛÛÛÛÛÛÛ» ÛÛ» ÛÛ»", 2
  7. CentrarTexto "ÛÛÉÍÍÛÛ» ÛÛ»  ÛÛ» ÛÛÉÍÍÍͼ ÛÛº ÛÛº", 3
  8. CentrarTexto "ÛÛÛÛÛÛɼ ÛÛº  ÛÛº ÛÛÛÛÛÛÛ» ÛÛÛÛÛÛº", 4
  9. CentrarTexto "ÛÛÉÍÍÛÛ» ÛÛº  ÛÛº ÈÍÍÍÍÛÛº ÛÛÉ ÛÛº", 5
  10. CentrarTexto "ÛÛÛÛÛÛɼ ÛÛÛÛÛÛÛº ÛÛÛÛÛÛÛº ÛÛº ÛÛº", 6
  11. CentrarTexto "ÈÍÍÍÍͼ  ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼ Èͼ Èͼ", 7
  12. CentrarTexto "BOMBER - BOMBER - BOMBER - BOMBER", 8
  13. CentrarTexto "Ayuda a Bush en su mision de matar inocentes por el mundo!", 10
  14. CentrarTexto "Pero ten cuidado! La gente cada vez corre mas rapido...", 11
  15. CentrarTexto "Y tu helicoptero tambien!", 12
  16.  
  17. CentrarTexto "La unica tecla necesaria es Arriba (para dejar bombas).", 13
  18. CentrarTexto "Este programa esta hecho 100% en Qbasic, y es un poco aburrido...", 14
  19.  
  20. Play "o2 l16 df+af+df+af+df+af+df+af+eac+aeac+aeac+aeac+adf+bf+df+bf+df+bf+df+bf+d-f+ap16 d-f+ap16 d-f+ap16 d-f+aa"
  21. CentrarTexto "(Presione cualquier tecla para continuar, ESC para salir)", 20
  22.  
  23.         Case Chr$(27)
  24.             End
  25.     End Select
  26.  
  27. bombas = 50
  28. ac = 16000
  29. columna = 1
  30. linea = 3
  31. lineaa = 3
  32. x = 0
  33. mn = 30
  34. op = 4
  35. dd = 1
  36. we = 0
  37.  
  38.  
  39.     If dd = 1 Then
  40.         Color 31
  41.         CentrarTexto "Afghanistan", 10
  42.     End If
  43.  
  44.     If dd = 2 Then
  45.         Color 31
  46.         CentrarTexto "Irak", 10
  47.     End If
  48.  
  49.     If dd = 3 Then
  50.         Color 31
  51.         CentrarTexto "Iran", 10
  52.     End If
  53.  
  54.     If dd = 4 Then
  55.         Color 31
  56.         CentrarTexto "Arabia Saudita", 10
  57.     End If
  58.  
  59.     If dd = 5 Then
  60.         Color 31
  61.         CentrarTexto "Venezuela", 10
  62.     End If
  63.  
  64.     If dd = 6 Then
  65.         Color 31
  66.         CentrarTexto "Colombia", 10
  67.     End If
  68.  
  69.     If dd = 7 Then
  70.         Color 31
  71.         CentrarTexto "Brasil", 10
  72.     End If
  73.  
  74.     If dd = 8 Then
  75.         Color 31
  76.         CentrarTexto "Cuba", 10
  77.     End If
  78.  
  79.     If dd = 9 Then
  80.         Color 31
  81.         CentrarTexto "Uruguay", 10
  82.     End If
  83.  
  84.     If dd = 10 Then
  85.         Color 31
  86.         CentrarTexto "India", 10
  87.     End If
  88.  
  89.     If dd = 11 Then
  90.         Color 31
  91.         CentrarTexto "Libia", 10
  92.     End If
  93.  
  94.     If dd = 12 Then
  95.         Color 31
  96.         CentrarTexto "Sudafrica", 10
  97.     End If
  98.  
  99.     If dd = 13 Then
  100.         Color 31
  101.         CentrarTexto "Alemania", 10
  102.     End If
  103.  
  104.     If dd = 14 Then
  105.         Color 31
  106.         CentrarTexto "Japon", 10
  107.     End If
  108.  
  109.     If dd = 15 Then
  110.         Color 31
  111.         CentrarTexto "Rusia", 10
  112.     End If
  113.  
  114.  
  115.     If bombas = 0 Then
  116.         Color 4
  117.         CentrarTexto "Sin municiones!", 12
  118.         op = op - 1
  119.         bombas = 50
  120.         Do While InKey$ = ""
  121.         Loop
  122.     End If
  123.  
  124.     Color 12
  125.     Locate 1, 1
  126.     Print "Nivel: "
  127.     Locate 1, 8
  128.     Print dd
  129.  
  130.     If op = 0 Then
  131.         Color 2, 0
  132.         Cls
  133.         CentrarTexto "Perdiste!", 12
  134.         Do While InKey$ = ""
  135.         Loop
  136.         Sleep
  137.         GoTo menu
  138.     End If
  139.  
  140.     Locate 1, 30
  141.     Color 9
  142.     Print "Oportunidades:"
  143.     Locate 1, 45
  144.     Print op
  145.  
  146.     Locate 1, 60
  147.     Color 10
  148.     Print "Bombas:"
  149.     Locate 1, 69
  150.     Print bombas
  151.  
  152.     If we = 15 Then
  153.         Color 30
  154.         CentrarTexto "Ultimo Nivel!", 12
  155.     End If
  156.  
  157.     If we = 16 Then
  158.         Color 4, 0
  159.         Cls
  160.         Color 15
  161.         CentrarTexto "È=XO", 10
  162.         Color 4
  163.         CentrarTexto "*", 14
  164.         Color 10
  165.         Locate 23, 45
  166.         Print ""
  167.         Locate 23, 46
  168.         Print ""
  169.         Locate 23, 33
  170.         Print ""
  171.         Locate 23, 34
  172.         Print ""
  173.         Color 9
  174.         CentrarTexto "ÉÍÍÍÍÍÍ»", 16
  175.         CentrarTexto "ºÍþÍþÍþº", 17
  176.         CentrarTexto "ºþÍþÍþͺ", 18
  177.         CentrarTexto "ºÍþÍþÍþº", 19
  178.         CentrarTexto "ºþÍþÍþͺ", 20
  179.         CentrarTexto "ºÍþÍþÍþº", 21
  180.         CentrarTexto "ºþÍþÍþͺ", 22
  181.         CentrarTexto "ºÍþÍÛÍþº", 23
  182.         Color 28
  183.         CentrarTexto "Congratulations!", 1
  184.         Color 2
  185.         CentrarTexto "Lo has hecho, ahora todo el petroleo del mundo es de Bush!", 3
  186.         CentrarTexto "Los Bush vuelven a ganar... Pero no se si felicitarte", 4
  187.         CentrarTexto "por matar gente... Que deberia hacer?", 5
  188.         CentrarTexto "Ganaste! GRACIAS POR JUGAR!", 6
  189.         Play "T120 O2 L4"
  190.         Play "F8 D8 <B- >D F B-2 >D8 C8 <B- D E F2 F8 F8 >D. C8 <B-"
  191.         Play "A2 G8 A8 B- B- F D <B- >F8 D8 <B- >D F B-2 >D8 C8"
  192.         Play "<B- D E F2 F8 F8 >D. C8 <B- A2 G8 A8 B- B- F D <B-"
  193.         Play ">>D8 D8 D D E- F2. E-8 D8 C C D E-2 E- D2 C8 <B-8"
  194.         Play "A2 G8 A8 B- D E F2 F B- B- B-8 A8 G G G"
  195.         Play ">C E-8 D8 C8 <B-8 B- A2 P4"
  196.         Play "F8 F8 B-. >C8 D8 E-8 F2 <B-8 >C8 D. E-8 C <B-2"
  197.  
  198.         GoTo menu
  199.     End If
  200.  
  201.     If m = 1 Then
  202.         lineaa = lineaa + 1
  203.  
  204.  
  205.         If lineaa = 23 Then
  206.             If tipitoc = mn Then
  207.                 Color 9
  208.                 CentrarTexto "                                    ", 10
  209.                 Color 4
  210.                 CentrarTexto "Le diste!", 10
  211.                 Play "o3 l15 cc < b > cc < b > cc < b > cc < b > c < b > c < bffeffeffeffefefg"
  212.                 dd = dd + 1
  213.                 we = we + 1
  214.                 bombas = 50
  215.             End If
  216.  
  217.             If tipitoc = sd Then
  218.                 we = we + 1
  219.                 dd = dd + 1
  220.                 ac = ac - 1000
  221.                 Color 9
  222.                 CentrarTexto "                                    ", 10
  223.                 Color 4
  224.                 CentrarTexto "Le diste!", 10
  225.                 bombas = 50
  226.                 Play "o3 l15 cc < b > cc < b > cc < b > cc < b > c < b > c < bffeffeffeffefefg"
  227.             End If
  228.  
  229.             If tipitoc = fd Then
  230.                 Color 4
  231.                 ac = ac - 1000
  232.                 Color 9
  233.                 CentrarTexto "                                    ", 10
  234.                 Color 4
  235.                 CentrarTexto "Le diste!", 10
  236.                 dd = dd + 1
  237.                 we = we + 1
  238.                 Play "o3 l15 cc < b > cc < b > cc < b > cc < b > c < b > c < bffeffeffeffefefg"
  239.                 bombas = 50
  240.             End If
  241.  
  242.  
  243.             m = 2
  244.             lineaa = 2
  245.         End If
  246.  
  247.         Locate lineaa, tipitoc
  248.         Color 4
  249.         Print "*"
  250.     End If
  251.  
  252.     Color 15, 9
  253.     columna = columna + 1
  254.     If columna = 78 Then
  255.         columna = 1
  256.     End If
  257.     Locate linea, columna
  258.     Print "È=XO"
  259.     Beep
  260.  
  261.     For i = 1 To ac
  262.     Next i
  263.  
  264.     Cls
  265.     vuelta:
  266.  
  267.     If we = 1 Then
  268.         we = 2
  269.     End If
  270.  
  271.     If x = 1 Then
  272.         Color x
  273.         Locate 23, z
  274.         Print ""
  275.         Locate 23, zy
  276.         Print ""
  277.         Locate 23, zu
  278.         Print ""
  279.         Locate 23, zi
  280.         Print ""
  281.         Locate 23, zo
  282.         Print ""
  283.     End If
  284.  
  285.         Case Chr$(0) + Chr$(72)
  286.             tipitoc = columna
  287.             m = 1
  288.             bombas = bombas - 1
  289.         Case Chr$(27)
  290.             End
  291.     End Select
  292.  
  293.  
  294.     h = Int(Rnd * 2) + 1
  295.     sd = mn + 1
  296.     fd = mn + 2
  297.  
  298.     If h = 1 Then
  299.         mn = mn + 1
  300.         sd = sd + 1
  301.         fd = fd + 1
  302.     End If
  303.     If h = 2 Then
  304.         mn = mn - 1
  305.     End If
  306.  
  307.     If mn = 0 Then
  308.         mn = mn + 1
  309.     End If
  310.  
  311.     Color we
  312.     Locate 23, mn
  313.     Print ""
  314.  
  315.     If mn = 0 Then
  316.         mn = mn + 1
  317.     End If
  318.  
  319.     If mn = 70 Then
  320.         mn = mn - 1
  321.     End If
  322.  
  323.  
  324. Sub CentrarTexto (t$, y%)
  325.     xnum% = (80 - Len(t$)) / 2
  326.     xspc% = Int((80 - Len(t$)) / 2)
  327.     If y% = 0 Then Print Tab(xspc%); t$: Exit Sub
  328.     Locate y%, xnum%: Print t$
  329.     '
  330.  
  331.  

About competition: it is a good thing ASCII + one keyboard Key for all the game + Halloween theme (colors and  NPCs and User)
IMHO it need to define what is the game.... splashscreen/title  and or music and or sounds and or options panel and or hall of fame and or kind/type of game   any or a specified group [text game?, ASCII graphic ? Shooter? puzzle? Adventure? Dugeon? race? Fight?etc etc]
Programming isn't difficult, only it's  consuming time and coffee

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
Re: Competition
« Reply #21 on: October 03, 2021, 05:25:12 pm »
@SMcNeill
Great Steve! Your brainstorm is releasing good fruits:
1-  WORD BUMP 1.0
2-  WORD BUMP 2.0
3-  HILLBILLY HORSESHOES
4-  CURSE MASTER!
5-  CANDY SUBMARINE!

who do take one of these ideas of Steve to develop and so he shares credits with Steve?
Programming isn't difficult, only it's  consuming time and coffee

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Competition
« Reply #22 on: October 03, 2021, 08:30:38 pm »
Quote
As you can probably tell, I’ve been working on writing and publishing my next book again…. At the moment I’m stuck in “creative mode”, instead of “technical mode” — that comes during the editing phase of the story, pre-publishing.   Right now, I can brainstorm a thousand game ideas…. I’m just not in the right stage of mind to actually sit down and program them.  LOL!!

Luv those moments, good idea to write them down.


Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Competition
« Reply #23 on: October 03, 2021, 08:33:04 pm »
Quote
IMHO it need to define what is the game.... splashscreen/title  and or music and or sounds and or options panel and or hall of fame and or kind/type of game   any or a specified group [text game?, ASCII graphic ? Shooter? puzzle? Adventure? Dugeon? race? Fight?etc etc]

Might be over-thinking this just a bit @TempodiBasic having only the spacebar to press and screen 0 (non graphics) is pretty restrictive already.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Competition
« Reply #24 on: October 03, 2021, 10:55:44 pm »
@johnno56

I came up with genius solution for easier input of letters with spacebar. I have puzzle reworked but it needs your assets magic specially for Halloween Theme. It would be really cool if a ghostly voice read back the selected letters or 1 thru 4 digits for verification, plus, any other effects that Moo ha ha mind of yours may come up with.


Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
Re: Competition
« Reply #25 on: October 04, 2021, 12:39:21 am »
Hmm... Manipulating sound files; To make them sound 'creepy'; 26 letters and 4 digits; For a Halloween theme you say?

There is a clueless percentage of the Australian population that seems to want to 'acquire' that dubious celebration... But 'this' household does not and will not support those sugar-craving little urchins... Sorry. I digress... Discussion for another time...

I am not a wizard, when it comes to sound files, but I can "give it a shot". Sounds (no pun intended) like fun...

Did you have a "background" track in mind (eg: graveyard sounds; music etc)?
Logic is the beginning of wisdom.

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
Re: Competition
« Reply #26 on: October 04, 2021, 02:37:27 am »
I tried programming Steve's Candy Submarine in SCREEN 0, but so far all I've got is a CANDY ASCII SUB.

     t
Pe   e
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Competition
« Reply #27 on: October 04, 2021, 08:41:21 am »
Hmm... Manipulating sound files; To make them sound 'creepy'; 26 letters and 4 digits; For a Halloween theme you say?
Yes  :)

There is a clueless percentage of the Australian population that seems to want to 'acquire' that dubious celebration... But 'this' household does not and will not support those sugar-craving little urchins... Sorry. I digress... Discussion for another time...
Remember Trick or Treat is 2 options, if you are not into rotting out children's teeth then you must treat them with a trick, something that will scare them away permanently eg, tell them how much coffee you drink every day! ;-))

I am not a wizard, when it comes to sound files, but I can "give it a shot". Sounds (no pun intended) like fun...
Did you have a "background" track in mind (eg: graveyard sounds; music etc)?
Nothing particular in my mind, I will leave it up to the Moo ha ha Dept.

I will post my Halloween Challenge game here with Screen 0 and start working on some graphics effects for Syntax where Screen 0 is not required. I found myself limited by weird color pallet of Screen 0 high red (12) looks pink to me.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
Re: Competition
« Reply #28 on: October 04, 2021, 09:21:13 am »
Fascinating. Trick OR treat, you say?

Ok. No sugar it is... My next question, in regards to 'Tricks', I wonder if it is illegal to set 'man traps' in Australia? I'm thinking of camouflaged, bamboo spiked, snake pits.... None of these woosie jumping spiders or meat-starved pit bulls.... Oh. Hang on. The parents may have developed an attachment to the little terrors and they may want them back... Ok. Scratch the woosie spiders...
Logic is the beginning of wisdom.

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • Steve’s QB64 Archive Forum
Re: Competition
« Reply #29 on: October 04, 2021, 09:53:46 am »
@bplus Remember, with _PALETTECOLOR, you can set your own custom colors for a SCREEN 0 program.  Might be important for setting the right tone for your game, since you're limited to a max of 16 colors.
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!