Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on November 13, 2019, 04:14:04 pm

Title: Stick with me
Post by: bplus on November 13, 2019, 04:14:04 pm
Ever wonder how cats score points when they start chasing a laser beam? ;-))
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32) 'Stick with me.bas 2019-11-13 as per Ken's Inform
  2. start = TIMER
  3. haha:
  5. cnt = cnt + 1
  6. IF cnt MOD 20 = 1 THEN bx = RND * 800: by = RND * 600
  7. FOR r = 100 TO 0 STEP -10
  8.     IF r \ 10 MOD 2 THEN c~& = &HFFFF0000 ELSE c~& = &HFFFFFFFF
  9.     LINE (bx - r / 2, by - r / 2)-STEP(r, r), c~&, BF
  12. mx = _MOUSEX: my = _MOUSEY
  13. IF ((mx - bx) ^ 2 + (my - by) ^ 2) ^ .5 < 50 THEN hits = hits + 1
  14. _TITLE "Stick with me: " + STR$(hits - 2 * (TIMER - start) \ 1)
  17. GOTO haha
  18.  
Title: Re: Stick with me
Post by: SierraKen on November 13, 2019, 06:23:23 pm
Bplus, I hope you got this idea from my Inform game. lol
Title: Re: Stick with me
Post by: bplus on November 13, 2019, 11:04:43 pm
Quote from: SierraKen on November 13, 2019, 06:23:23 pm
Bplus, I hope you got this idea from my Inform game. lol

Sort a, "as per Ken's Inform" it started out as what I imagined it might be like, then I improved on that by getting rid of clicking and made scoring based on time. Didn't notice you only moved the target when the mouse was entering it.

Then I realized I was acting just like a cat trying to catch a light beam. ;-))
Title: Re: Stick with me
Post by: SierraKen on November 13, 2019, 11:33:05 pm
LOL! Awesome. :)
Title: Re: Stick with me
Post by: OldMoses on November 22, 2019, 07:30:41 am
Nice hand/eye coordination exercise there.
Title: Re: Stick with me
Post by: bplus on November 22, 2019, 10:59:34 am
Ha! Isn't this the basic essence of every shooter game? The cat chasing a light beam... oh wait! I have an idea for mod!

stay tuned...
Title: Re: Stick with me
Post by: bplus on November 22, 2019, 11:34:47 am
A "BUT Don't Stick ME!"  mod!

Code: QB64: [Select]
  1. _TITLE "Stick with me but Don't Stick ME." 'b+ mod 2019-11-22
  2. SCREEN _NEWIMAGE(800, 600, 32) 'Stick with me.bas 2019-11-13 as per Ken's Inform
  3. start = TIMER
  4. haha:
  6. cnt = cnt + 1
  7. IF cnt MOD 20 = 1 THEN
  8.     bx = RND * 800: by = RND * 600
  9.     IF RND < .25 THEN DontStickMe = -1 ELSE DontStickMe = 0
  11. IF DontStickMe THEN
  12.     LINE (bx - 50, by - 50)-STEP(100, 100), &HFFFFFFFF, BF
  14.     FOR r = 100 TO 0 STEP -10
  15.         IF r \ 10 MOD 2 THEN c~& = &HFFFF0000 ELSE c~& = &HFFFFFFFF
  16.         LINE (bx - r / 2, by - r / 2)-STEP(r, r), c~&, BF
  17.     NEXT
  20. mx = _MOUSEX: my = _MOUSEY
  21. IF ((mx - bx) ^ 2 + (my - by) ^ 2) ^ .5 < 50 THEN
  22.     IF DontStickMe THEN
  23.         BEEP: hits = hits - 20
  24.     ELSE
  25.         hits = hits + 2
  26.     END IF
  28. _TITLE "Score now is: " + STR$(hits - 2 * (TIMER - start) \ 1)
  31. GOTO haha
  32.  
  33.  
Text Only | Text with Attachments