« previous next »
Pages: [1]   Go Down

Author Topic: Number Game  (Read 4272 times)

0 Members and 1 Guest are viewing this topic.

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Number Game
« on: January 09, 2019, 12:12:44 pm »
Super Simple, Super simplistic number guessing game. Anybody recognize where it came from?
Code: QB64: [Select]
  1. 'Number Guessing Game
  2. 'Cobalt 2019/1/2
  3.  
  4. '-------------setup------------------------------
  5. TYPE Game_Data
  6.  Wins AS _BYTE
  7.  Losses AS _BYTE
  8.  Face AS _BYTE
  9.  Trys AS _BYTE
  10.  Happiness AS _BYTE
  12.  
  13. SCREEN _NEWIMAGE(640, 480, 32)
  14. Numbers& = _NEWIMAGE(640, 480, 32)
  15. _PRINTSTRING (0, 0), "0 1 2 3 4 5 6 7 8 9", Numbers&
  16. DIM SHARED Pic(16, 16) AS DOUBLE '_UNSIGNED LONG
  17. DIM SHARED G AS Game_Data
  18. CONST TRUE = -1, FALSE = NOT TRUE
  19. CONST HAPPY = 1, ANGRY = 2, Neutral = 0
  21. Ani& = _FREETIMER
  22. ON TIMER(Ani&, .33) Animate_Face
  23. _DELAY .05
  24. _TITLE "WHOs GREATER!"
  25. '------------------------------------------------
  26. 'Face Data FF,FR,FL,FH,FAR,FAL,W1,W2
  27. DATA 10,2016,2064,5160,4488,4488,4104,4104,4104,2064,2016,9,2016,2064,4360,4104,7688,4104,4104,2064,2016
  28. DATA 9,2016,2064,4232,4104,4216,4104,4104,2064,2016,11,2016,2640,4104,5160,6120,6120,6120,5064,4104,2064,2016
  29. DATA 12,992,1040,2096,4192,5824,4224,4264,4344,4104,4104,2064,2016,12,1984,2080,3088,1544,872,264,5384,7944,4104,4104,2064,2016
  30. DATA 10,2016,2064,4680,4104,4488,4104,4104,4104,2064,2016,9,2016,2064,5160,4104,4488,4104,4104,2064,2016
  31. '-----------Load Face Data-----------------------
  32. FOR J%% = 1 TO 8
  33.  READ L%%
  34.  FOR i%% = 1 TO L%%
  35.   shift%% = (16 - L%%) \ 2 'center image in 16 lines
  36.   READ Pic(J%%, i%% + shift%%)
  37.   Pic(J%%, i%% + shift%%) = _SHL(Pic(J%%, i%% + shift%%), 8) 'center image in 32 rows
  40. '------------------------------------------------
  41. Pick_Numbs NumbA%%, NumbB%%
  42. '--------------side A Number---------------------
  43. _PUTIMAGE (32, 64)-STEP(32, 64), Numbers&, _DISPLAY, (16 * NumbA%%, 0)-STEP(8, 16)
  44. '------------------------------------------------
  45. '--------------Side B Number---------------------
  46. '_PUTIMAGE (288, 64)-STEP(32, 64), Numbers&, _DISPLAY, (16 * NumbB%%, 0)-STEP(8, 16)
  47. '------------------------------------------------
  48.  
  49. '------------------Main Game Loop----------------
  50. _PRINTSTRING (75, 330), "Using Left\Right Arrow keys Pick which number will be Greater"
  51. Dot_Display 4, 447, 350, 2, _RGB32(16, 212, 96)
  52. Dot_Display 5, 0, 350, 2, _RGB32(224, 16, 32)
  53. TIMER(Ani&) ON
  54. G.Happiness = 0
  56.  
  57.  _DELAY .25
  58.  IF face_frame%% = 7 THEN face_frame%% = 8 ELSE face_frame%% = 7
  60.   CASE 27
  61.    ExitFlag%% = TRUE
  62.   CASE 19200 'left
  63.    '------------------CHOOSE LEFT-----------------
  64.    G.Trys = G.Trys + 1
  65.    Dot_Display 2, 80, 64, 5, _RGB32(128, 128, 128)
  66.    TIMER(Ani&) OFF
  67.    _DELAY .33
  68.    TIMER(Ani&) ON
  69.    _PUTIMAGE (588, 64)-STEP(32, 64), Numbers&, _DISPLAY, (16 * NumbB%%, 0)-STEP(8, 16)
  70.    IF NumbA%% > NumbB%% THEN
  71.     G.Face = HAPPY
  72.     G.Wins = G.Wins + 1
  73.     G.Happiness = G.Happiness + 1
  74.     _DELAY 2.5
  75.    ELSE
  76.     G.Face = ANGRY
  77.     G.Losses = G.Losses + 1
  78.     G.Happiness = G.Happiness - 1
  79.     _DELAY 2.5
  80.    END IF
  81.    LINE (0, 0)-(639, 320), _RGB32(0, 0, 0), BF
  82.    Pick_Numbs NumbA%%, NumbB%%
  83.    _PUTIMAGE (32, 64)-STEP(32, 64), Numbers&, _DISPLAY, (16 * NumbA%%, 0)-STEP(8, 16)
  84.    G.Face = Neutral
  85.    '---------------------------------------------
  86.   CASE 19712 'right
  87.    '----------------CHOOSE RIGHT------------------
  88.    G.Trys = G.Trys + 1
  89.    Dot_Display 3, 80, 64, 5, _RGB32(128, 128, 128)
  90.    TIMER(Ani&) OFF
  91.    _DELAY .33
  92.    TIMER(Ani&) ON
  93.    _PUTIMAGE (588, 64)-STEP(32, 64), Numbers&, _DISPLAY, (16 * NumbB%%, 0)-STEP(8, 16)
  94.    IF NumbB%% > NumbA%% THEN
  95.     G.Face = HAPPY
  96.     G.Wins = G.Wins + 1
  97.     G.Happiness = G.Happiness + 1
  98.     _DELAY 2.5
  99.    ELSE
  100.     G.Face = ANGRY
  101.     G.Losses = G.Losses + 1
  102.     G.Happiness = G.Happiness - 1
  103.     _DELAY 2.5
  104.    END IF
  105.    LINE (0, 0)-(639, 320), _RGB32(0, 0, 0), BF
  106.    Pick_Numbs NumbA%%, NumbB%%
  107.    _PUTIMAGE (32, 64)-STEP(32, 64), Numbers&, _DISPLAY, (16 * NumbA%%, 0)-STEP(8, 16)
  108.    G.Face = Neutral
  109.    '---------------------------------------------
  110.  
  112.  Display_Happiness
  113.  '-------------------after 5 go's check how player did----------
  114.  IF G.Trys = 5 THEN G.Trys = 0
  115.  '--------------------------------------------------------------
  117. LOOP UNTIL ExitFlag%%
  118. '------------------------------------------------
  119.  
  120. '-------------Dot Matrix display-----------------
  121. '32x16- 16 LONG integers
  122. SUB Dot_Display (image%%, X%, Y%, Scale%%, Colr~&)
  123.  FOR J%% = 1 TO 16
  124.   Yloc% = Y% + (3 * Scale%%) * J%%
  125.   FOR I%% = 31 TO 0 STEP -1 'Read Bits
  126.    Xloc% = X% + (3 * Scale%%) * (31 - I%%)
  127.    IF Pic(image%%, J%%) AND 2 ^ I%% THEN 'Dot is Lit
  128.     LINE (Xloc%, Yloc%)-STEP(2 * Scale%%, 2 * Scale%%), Colr~&, BF
  129.    ELSE 'Dot is Off
  130.     LINE (Xloc%, Yloc%)-STEP(2 * Scale%%, 2 * Scale%%), _RGB32(16, 12, 16), BF
  131.    END IF
  132.   NEXT I%%
  133.  NEXT J%%
  135. '------------------------------------------------
  136. '-----------------32Bit PRNG---------------------
  137. FUNCTION RND32~& ()
  138.  High~& = INT(RND * (2 ^ 16)) 'upper 16 bits
  139.  Low~% = INT(RND * (2 ^ 16)) 'lower 16 bits
  140.  RND32~& = _SHL(High~&, 16) + Low~%
  142. '------------------------------------------------
  143.  
  144. '------------Create Face data values-------------
  145. FUNCTION MakeData~& (SHFL%%, Lins%%)
  146.  FOR i%% = 0 TO Lins%%
  147.   READ t%%
  148.   IF t%% THEN result~& = result~& + 2 ^ i%%
  149.  NEXT i%%
  150.  result~& = _SHL(result~&, SHFL%%)
  151.  MakeData~& = result~&
  153. '------------------------------------------------
  154. '------------Change Face animations--------------
  155. SUB Animate_Face
  156.  STATIC face_frame%%
  157.  SELECT CASE G.Face
  158.   CASE Neutral
  159.    IF face_frame%% = 7 THEN face_frame%% = 8 ELSE face_frame%% = 7
  160.   CASE HAPPY
  161.    IF face_frame%% = 1 THEN face_frame%% = 4 ELSE face_frame%% = 1
  162.   CASE ANGRY
  163.    IF face_frame%% = 5 THEN face_frame%% = 6 ELSE face_frame%% = 5
  165.  Dot_Display face_frame%%, 80, 64, 5, _RGB32(128, 128, 128)
  167. '------------------------------------------------
  168. '------------------pick new numbers--------------
  169. SUB Pick_Numbs (NumbA%%, NumbB%%)
  170.  NumbA%% = INT(RND * 9) + 1
  171.  DO 'make sure 2 different numbers chosen
  172.   NumbB%% = INT(RND * 9) + 1
  173.  LOOP UNTIL NumbB%% <> NumbA%%
  175. '------------------------------------------------
  176. '---------------Happiness Scale------------------
  177. SUB Display_Happiness
  178.  IF G.Happiness > 0 THEN vals%% = 1 ELSE vals%% = -1
  179.  LINE (192, 350)-(447, 450), _RGB32(0, 0, 0), BF
  180.  FOR i%% = 0 TO 0 + G.Happiness STEP vals%%
  181.   LINE (320 + i%%, 350)-(320 + i%%, 450), _RGB32(127 - i%%, 127 + i%%, 0)
  182.  NEXT i%%
  184. '------------------------------------------------
  185.  

there are a few aspects that I haven't buttoned up yet, meter flips when reaching 128\-128 for example.
but been wanting to get my first output of 2019 up for a few days now.
Logged
Granted after becoming radioactive I only have a half-life!

FellippeHeitor

  • Guest
Re: Number Game
« Reply #1 on: January 09, 2019, 12:17:15 pm »
Tamagotchi! That was adorable, Cobalt!
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Number Game
« Reply #2 on: January 09, 2019, 12:52:27 pm »
Maybe I need a new IDE, my IDE know not  _SHL command. Is this a new command?
Logged

FellippeHeitor

  • Guest
Re: Number Game
« Reply #3 on: January 09, 2019, 12:56:17 pm »
It is. Try the dev build. Here's what's new so far:

https://www.qb64.org/forum/index.php?topic=304.msg2554#msg2554
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Number Game
« Reply #4 on: January 09, 2019, 12:57:45 pm »
Aha! Thank you Fellippe.
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Number Game
« Reply #5 on: January 09, 2019, 01:01:22 pm »
Yes, cute!
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Number Game
« Reply #6 on: January 09, 2019, 01:11:48 pm »
So again, nice work, Cobalt!
Logged
Pages: [1]   Go Up
« previous next »