Stick with me

[bplus]

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:
4. CLS
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
10. NEXT
11. WHILE _MOUSEINPUT: WEND
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)
15. _DISPLAY
16. _LIMIT 30
17. GOTO haha
18.  

[SierraKen]

Bplus, I hope you got this idea from my Inform game. lol

[bplus]

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

[SierraKen]

LOL! Awesome. :)

[OldMoses]

Nice hand/eye coordination exercise there.

[bplus]

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

[bplus]

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:
5. CLS
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
10. END IF
11. IF DontStickMe THEN
12.     LINE (bx - 50, by - 50)-STEP(100, 100), &HFFFFFFFF, BF
13. ELSE
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
18. END IF
19. WHILE _MOUSEINPUT: WEND
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
27. END IF
28. _TITLE "Score now is: " + STR$(hits - 2 * (TIMER - start) \ 1)
29. _DISPLAY
30. _LIMIT 30
31. GOTO haha
32.  
33.