Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on December 09, 2019, 05:01:44 pm

Title: Cats and Mouse Game
Post by: SierraKen on December 09, 2019, 05:01:44 pm
Using the code from my other thread called Mouse Trail, I was able to make this game within a few hours today. Half-way through it I remembered that B+ made a very similar game just like this months ago so I decided to just make my own version. I'll post a picture of the game below too. You control the mouse with your mouse away from the 2 big cats to try to eat the cheese. The speed of the cats increases at a gradual rate as the game goes on. I use an equation to make the speed also go higher if your mouse dies so it won't start over from the slowest speed again. Instead it uses the score you had for the speed for the next mouse. When you start out, the cats are off the screen so it takes a few seconds to see you and chase you.  All of the text is in the title bar. When all your players are used up, press Enter to start again, which it says in the title bar. Unless you are super good, the game only lasts a couple minutes or so, feel free to change anything in the code to suite your needs. I tried my hardest to make the mouse and cats look good. :)
There is no extra file, just the code below, and the picture I'm about to post here. Have fun and tell me what you think of it, thanks. Also, thank you to b+ and SMcNeill for some help.

Code: QB64: [Select]
  1. 'Cats and Mouse Game by Ken G.
  2. 'Written on Dec. 9, 2019.
  3. 'Thank you to b+ and SMcNeill from the QB64.org forum for some help!
  4.  
  5. _TITLE "Cats and Mouse Game - by Ken G. - Use mouse to get to the cheese before a cat gets you."
  6. DisplayScreen = _NEWIMAGE(800, 600, 32)
  7. WorkScreen = _NEWIMAGE(800, 600, 32)
  8. MouseScreen = _NEWIMAGE(800, 600, 32)
  9. begin:
  10. score = 0
  11. speed = 1
  13. SCREEN DisplayScreen
  14. player = 20
  15. start:
  16. IF score > 0 THEN speed = INT(score / 1000)
  17. xx = 400: yy = 1000
  18. xx2 = 0: yy2 = 1000
  20.     _LIMIT 100
  22.         mouseX = _MOUSEX
  23.         mouseY = _MOUSEY
  24.         mouseLeftButton = _MOUSEBUTTON(1)
  25.         mouseRightButton = _MOUSEBUTTON(2)
  26.         mouseMiddleButton = _MOUSEBUTTON(3)
  27.     LOOP
  28.     _SOURCE WorkScreen: _DEST WorkScreen
  29.     'Draw on your work screen.
  30.     IF mouseX > xx THEN xx = xx + speed
  31.     IF mouseY > yy THEN yy = yy + speed
  32.     IF mouseX > xx2 THEN xx2 = xx2 + speed
  33.     IF mouseX > yy2 THEN yy2 = yy2 + speed
  34.     IF mouseX < xx THEN xx = xx - speed
  35.     IF mouseY < yy THEN yy = yy - speed
  36.     IF mouseX < xx2 THEN xx2 = xx2 - speed
  37.     IF mouseX < yy2 THEN yy2 = yy2 - speed
  38.     speed = speed + .001
  39.     IF speed > 10000 THEN speed = 10000
  40.     'Check to see if a cat got to your mouse.
  41.     FOR tt = -50 TO 50
  42.         IF mouseX + tt > xx - 1 AND mouseX + tt < xx + 101 AND mouseY + tt > yy - 1 AND mouseY + tt < yy + 101 THEN player = player - 1: LINE (xx, yy)-(xx + 100, yy + 100), _RGB32(255, 0, 0), BF: SOUND 200, .2: GOTO start:
  43.         IF mouseX + tt > xx2 - 1 AND mouseX + tt < xx2 + 101 AND mouseY + tt > yy2 - 1 AND mouseY + tt < yy2 + 101 THEN player = player - 1: LINE (xx2, yy2)-(xx2 + 100, yy2 + 100), _RGB32(255, 0, 0), BF: SOUND 200, .2: GOTO start:
  44.     NEXT tt
  45.     b = b + 1
  46.     IF b / 1000 = INT(b / 1000) THEN
  47.         again2:
  48.         RANDOMIZE TIMER
  49.         bx = RND * 780
  50.         by = RND * 580
  51.         b = 0
  52.     END IF
  53.     'Draw cheese.
  54.     LINE (bx, by)-(bx + 50, by + 50), _RGB32(255, 255, 127), BF
  55.     CIRCLE (bx + 15, by + 15), 10, _RGB32(222, 188, 127)
  56.     PAINT (bx + 15, by + 15), _RGB32(222, 188, 127)
  57.     CIRCLE (bx + 30, by + 30), 7, _RGB32(222, 188, 127)
  58.     PAINT (bx + 30, by + 30), _RGB32(222, 188, 127)
  59.  
  60.     'Check to see if you got the cheese.
  61.     FOR tt = -50 TO 50
  62.         IF mouseX + tt > bx - 1 AND mouseX + tt < bx + 51 AND mouseY + tt > by - 1 AND mouseY + tt < by + 51 THEN
  63.             score = score + 100
  64.             LINE (bx, by)-(bx + 50, by + 50), _RGB32(0, 0, 0), BF
  65.             FOR snd = 500 TO 850 STEP 50
  66.                 SOUND snd, .2
  67.             NEXT snd
  68.             GOTO again2:
  69.         END IF
  70.     NEXT tt
  71.     IF player < 1 THEN player = 0
  72.     score$ = STR$(score)
  73.     player$ = STR$(player)
  74.     ti$ = "Cats and Mouse Game - by Ken G. - - Score: " + score$ + "            Players: " + player$
  75.     _TITLE ti$
  76.     IF player < 1 THEN
  77.         _TITLE ti$ + "   Game Over - Press Enter To Play Again"
  78.         INPUT ag$
  79.         GOTO begin:
  80.     END IF
  81.     'First Cat
  82.     'head
  83.     LINE (xx, yy)-(xx + 100, yy + 100), _RGB32(255, 188, 127), BF
  84.     'ears
  85.     LINE (xx, yy)-(xx + 20, yy - 20), _RGB32(255, 188, 127)
  86.     LINE (xx + 20, yy - 20)-(xx + 40, yy), _RGB32(255, 188, 127)
  87.     PAINT (xx + 20, yy - 5), _RGB32(255, 188, 127)
  88.     LINE (xx + 60, yy)-(xx + 80, yy - 20), _RGB32(255, 188, 127)
  89.     LINE (xx + 80, yy - 20)-(xx + 100, yy), _RGB32(255, 188, 127)
  90.     PAINT (xx + 80, yy - 5), _RGB32(255, 188, 127)
  91.     'eyes
  92.     CIRCLE (xx + 30, yy + 20), 15, _RGB32(255, 255, 255), , , .5
  93.     PAINT (xx + 30, yy + 20), _RGB32(255, 255, 255)
  94.     CIRCLE (xx + 30, yy + 20), 5, _RGB32(255, 0, 0)
  95.     PAINT (xx + 30, yy + 20), _RGB32(255, 0, 0)
  96.     CIRCLE (xx + 70, yy + 20), 15, _RGB32(255, 255, 255), , , .5
  97.     PAINT (xx + 70, yy + 20), _RGB32(255, 255, 255)
  98.     CIRCLE (xx + 70, yy + 20), 5, _RGB32(255, 0, 0)
  99.     PAINT (xx + 70, yy + 20), _RGB32(255, 0, 0)
  100.  
  101.     'mouth
  102.     CIRCLE (xx + 50, yy + 70), 20, _RGB32(255, 0, 0), , , .5
  103.     PAINT (xx + 50, yy + 70), _RGB32(255, 0, 0)
  104.     'nose
  105.     CIRCLE (xx + 45, yy + 50), 4, _RGB32(0, 0, 0)
  106.     PAINT (xx + 45, yy + 50), _RGB32(0, 0, 0)
  107.     CIRCLE (xx + 55, yy + 50), 4, _RGB32(0, 0, 0)
  108.     PAINT (xx + 55, yy + 50), _RGB32(0, 0, 0)
  109.     'whiskers
  110.     LINE (xx + 20, yy + 50)-(xx - 20, yy + 30), _RGB32(255, 255, 255)
  111.     LINE (xx + 20, yy + 50)-(xx - 20, yy + 50), _RGB32(255, 255, 255)
  112.     LINE (xx + 20, yy + 50)-(xx - 20, yy + 70), _RGB32(255, 255, 255)
  113.     LINE (xx + 80, yy + 50)-(xx + 120, yy + 30), _RGB32(255, 255, 255)
  114.     LINE (xx + 80, yy + 50)-(xx + 120, yy + 50), _RGB32(255, 255, 255)
  115.     LINE (xx + 80, yy + 50)-(xx + 120, yy + 70), _RGB32(255, 255, 255)
  116.  
  117.     'Second Cat
  118.     'head
  119.     LINE (xx2, yy2)-(xx2 + 100, yy2 + 100), _RGB32(255, 188, 127), BF
  120.     'ears
  121.     LINE (xx2, yy2)-(xx2 + 20, yy2 - 20), _RGB32(255, 188, 127)
  122.     LINE (xx2 + 20, yy2 - 20)-(xx2 + 40, yy2), _RGB32(255, 188, 127)
  123.     PAINT (xx2 + 20, yy2 - 5), _RGB32(255, 188, 127)
  124.     LINE (xx2 + 60, yy2)-(xx2 + 80, yy2 - 20), _RGB32(255, 188, 127)
  125.     LINE (xx2 + 80, yy2 - 20)-(xx2 + 100, yy2), _RGB32(255, 188, 127)
  126.     PAINT (xx2 + 80, yy2 - 5), _RGB32(255, 188, 127)
  127.     'eyes
  128.     CIRCLE (xx2 + 30, yy2 + 20), 15, _RGB32(255, 255, 255), , , .5
  129.     PAINT (xx2 + 30, yy2 + 20), _RGB32(255, 255, 255)
  130.     CIRCLE (xx2 + 30, yy2 + 20), 5, _RGB32(255, 0, 0)
  131.     PAINT (xx2 + 30, yy2 + 20), _RGB32(255, 0, 0)
  132.     CIRCLE (xx2 + 70, yy2 + 20), 15, _RGB32(255, 255, 255), , , .5
  133.     PAINT (xx2 + 70, yy2 + 20), _RGB32(255, 255, 255)
  134.     CIRCLE (xx2 + 70, yy2 + 20), 5, _RGB32(255, 0, 0)
  135.     PAINT (xx2 + 70, yy2 + 20), _RGB32(255, 0, 0)
  136.  
  137.     'mouth
  138.     CIRCLE (xx2 + 50, yy2 + 70), 20, _RGB32(255, 0, 0), , , .5
  139.     PAINT (xx2 + 50, yy2 + 70), _RGB32(255, 0, 0)
  140.     'nose
  141.     CIRCLE (xx2 + 45, yy2 + 50), 4, _RGB32(0, 0, 0)
  142.     PAINT (xx2 + 45, yy2 + 50), _RGB32(0, 0, 0)
  143.     CIRCLE (xx2 + 55, yy2 + 50), 4, _RGB32(0, 0, 0)
  144.     PAINT (xx2 + 55, yy2 + 50), _RGB32(0, 0, 0)
  145.     'whiskers
  146.     LINE (xx2 + 20, yy2 + 50)-(xx2 - 20, yy2 + 30), _RGB32(255, 255, 255)
  147.     LINE (xx2 + 20, yy2 + 50)-(xx2 - 20, yy2 + 50), _RGB32(255, 255, 255)
  148.     LINE (xx2 + 20, yy2 + 50)-(xx2 - 20, yy2 + 70), _RGB32(255, 255, 255)
  149.     LINE (xx2 + 80, yy2 + 50)-(xx2 + 120, yy2 + 30), _RGB32(255, 255, 255)
  150.     LINE (xx2 + 80, yy2 + 50)-(xx2 + 120, yy2 + 50), _RGB32(255, 255, 255)
  151.     LINE (xx2 + 80, yy2 + 50)-(xx2 + 120, yy2 + 70), _RGB32(255, 255, 255)
  152.  
  153.  
  154.     _SOURCE MouseScreen
  155.     'Draw your mouse.
  156.     'body
  157.     CIRCLE (mouseX, mouseY), 50, _RGB32(172, 61, 0), , , .5
  158.     PAINT (mouseX, mouseY), _RGB32(172, 61, 0)
  159.     'eye
  160.     CIRCLE (mouseX - 25, mouseY - 20), 5, _RGB32(255, 255, 255), , , .5
  161.     PAINT (mouseX - 25, mouseY - 20), _RGB32(255, 255, 255)
  162.     CIRCLE (mouseX - 27, mouseY - 20), 2, _RGB32(0, 0, 0)
  163.     PAINT (mouseX - 27, mouseY - 20), _RGB32(0, 0, 0)
  164.     'nose
  165.     CIRCLE (mouseX - 50, mouseY), 5, _RGB32(105, 6, 0)
  166.     PAINT (mouseX - 50, mouseY), _RGB32(105, 6, 0)
  167.     'mouth
  168.     CIRCLE (mouseX - 30, mouseY + 15), 10, _RGB32(255, 0, 0), , , .35
  169.     PAINT (mouseX - 30, mouseY + 15), _RGB32(255, 0, 0)
  170.     'tail
  171.     LINE (mouseX + 49, mouseY)-(mouseX + 85, mouseY), _RGB32(172, 61, 0)
  172.     'ear
  173.     CIRCLE (mouseX - 20, mouseY - 31), 7, _RGB32(172, 61, 0), , , 1.75
  174.     PAINT (mouseX - 20, mouseY - 31), _RGB32(172, 61, 0)
  175.  
  176.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, 30), BF
  177.     _PUTIMAGE , WorkScreen, DisplayScreen
  178.     _PUTIMAGE , MouseScreen, DisplayScreen
  179.     _DISPLAY
  181.  

 
Title: Re: Cats and Mouse Game
Post by: bplus on December 09, 2019, 05:22:20 pm
Ha, cute!
Title: Re: Cats and Mouse Game
Post by: SierraKen on December 09, 2019, 05:33:23 pm
LOL Thanks :). These kinds of games and programs keep my mind going. :) And in this one I learned that to start the enemies from off the screen, which you guys have told me before. That way they won't be right on you as it starts.
Title: Re: Cats and Mouse Game
Post by: Pete on December 09, 2019, 06:00:14 pm
11,700 first try. Is that a lot??? Towards the end, it gets almost as hard as getting cheese on a coupon sale at Trader Joe's. Yeah, just try dodging those catty women, hungry for Gouda.

Nice effects. I liked it. I might even go as far to say... Gouda job! (My fellow Italian friend, Tempo, might not see that one as a pun.  Oh well.

Pete
 
Title: Re: Cats and Mouse Game
Post by: SierraKen on December 09, 2019, 06:08:55 pm
ROFL Thanks Pete! Dang, 11,700! You are way better than I am. lol
Text Only | Text with Attachments