Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on December 23, 2019, 03:27:06 pm

Title: Merry Christmas QB64.org Forum!
Post by: SierraKen on December 23, 2019, 03:27:06 pm
This morning I made this gift for you all to have for all the help you have done for me this year in learning about the language. Thank you!
Feel free to change anything you wish and re-post if you want. After it loads, press the Space Bar to re-decorate.

Code: QB64: [Select]
  1. _TITLE "Merry Christmas QB64.org Forum! - Press Space Bar To Re-Decorate."
  2. start:
  3. t = 0
  4. tt = 0
  5. _LIMIT 500
  7. picture& = _NEWIMAGE(800, 600, 32)
  8. SCREEN picture&
  9. 'Draw sky.
  11. sky = INT(RND * 200) + 55
  12. FOR sk = 0 TO 299
  13.     sky = sky + .25
  14.     IF sky > 255 THEN sky = 255
  15.     LINE (0, sk)-(800, sk), _RGB32(0, 0, sky)
  16. NEXT sk
  17. 'Draw ground.
  19. cc21 = INT(RND * 255)
  20. cc22 = INT(RND * 200)
  21. cc23 = INT(RND * 255)
  22. FOR cc = 300 TO 600
  23.     cc2 = cc2 + 1
  24.     LINE (0, cc)-(800, cc), _RGB32(cc21, cc22, cc23)
  25. NEXT cc
  26. y = 300
  28. c1 = INT(RND * 100) + 20
  29. c2 = INT(RND * 150) + 60
  30. c4 = c2
  31. c3 = INT(RND * 100) + 20
  32. 'Christmas Tree
  33. LINE (380, 520)-(420, 200), _RGB32(127, 255, 127), BF
  34. 'Right Side
  35. LINE (400, 180)-(475, 255), _RGB32(127, 255, 127)
  36. LINE (475, 255)-(420, 255), _RGB32(127, 255, 127)
  37. PAINT (430, 240), _RGB32(127, 255, 127)
  38. LINE (420, 255)-(495, 330), _RGB32(127, 255, 127)
  39. LINE (495, 330)-(420, 330), _RGB32(127, 255, 127)
  40. PAINT (430, 300), _RGB32(127, 255, 127)
  41. LINE (420, 330)-(515, 405), _RGB32(127, 255, 127)
  42. LINE (515, 405)-(420, 405), _RGB32(127, 255, 127)
  43. PAINT (500, 400), _RGB32(127, 255, 127)
  44. LINE (420, 405)-(535, 480), _RGB32(127, 255, 127)
  45. LINE (535, 480)-(420, 480), _RGB32(127, 255, 127)
  46. PAINT (430, 470), _RGB32(127, 255, 127)
  47. 'Left Side
  48. LINE (400, 180)-(325, 255), _RGB32(127, 255, 127)
  49. LINE (325, 255)-(380, 255), _RGB32(127, 255, 127)
  50. PAINT (350, 240), _RGB32(127, 255, 127)
  51. LINE (380, 255)-(305, 330), _RGB32(127, 255, 127)
  52. LINE (305, 330)-(380, 330), _RGB32(127, 255, 127)
  53. PAINT (350, 300), _RGB32(127, 255, 127)
  54. LINE (380, 330)-(285, 405), _RGB32(127, 255, 127)
  55. LINE (285, 405)-(380, 405), _RGB32(127, 255, 127)
  56. PAINT (300, 400), _RGB32(127, 255, 127)
  57. LINE (380, 405)-(265, 480), _RGB32(127, 255, 127)
  58. LINE (265, 480)-(380, 480), _RGB32(127, 255, 127)
  59. PAINT (300, 460), _RGB32(127, 255, 127)
  60. 'Tip
  61. PAINT (400, 195), _RGB32(127, 255, 127)
  62. 'Star
  63. LINE (390, 185)-(400, 160), _RGB32(255, 255, 255)
  64. LINE (400, 160)-(410, 185), _RGB32(255, 255, 255)
  65. LINE (410, 185)-(390, 170), _RGB32(255, 255, 255)
  66. LINE (390, 170)-(410, 170), _RGB32(255, 255, 255)
  67. LINE (410, 170)-(390, 185), _RGB32(255, 255, 255)
  68. 'tinsel
  69. amount = 250
  72.     tx = INT(RND * 800)
  73.     ty = INT(RND * 595) + 205
  74.     IF POINT(tx, ty) = _RGB32(127, 255, 127) THEN
  75.         tt = tt + 1
  76.         IF tt > amount THEN GOTO nex:
  77.         RANDOMIZE TIMER
  78.         tc1 = 244
  79.         tc2 = 244
  80.         tc3 = 244
  81.         sz2 = INT(RND * 8) + 3
  82.         FOR sz = .25 TO sz2 STEP .25
  83.             tc1 = tc1 + 1
  84.             tc2 = tc2 + 1
  85.             tc3 = tc3 + 1
  86.             LINE (tx, ty)-(tx, ty + sz), _RGB32(tc1, tc2, tc3)
  87.         NEXT sz
  88.     END IF
  90. nex:
  91.  
  92.  
  93. 'Random Ornaments
  94. amount2 = 50
  97.     ox = INT(RND * 800)
  98.     oy = INT(RND * 595) + 205
  99.     IF POINT(ox, oy) = _RGB32(127, 255, 127) THEN
  100.         t = t + 1
  101.         IF t > amount2 THEN GOTO nex2:
  102.         RANDOMIZE TIMER
  103.         co1 = INT(RND * 155) + 100
  104.         co2 = INT(RND * 155) + 100
  105.         co3 = INT(RND * 155) + 100
  106.         sz2 = INT(RND * 8) + 3
  107.         FOR sz = .25 TO sz2 STEP .25
  108.             co1 = co1 - 1
  109.             co2 = co2 - 1
  110.             co3 = co3 - 1
  111.             CIRCLE (ox, oy), sz, _RGB32(co1, co2, co3)
  112.         NEXT sz
  113.     END IF
  115. nex2:
  116. a$ = INKEY$
  117. IF a$ = " " THEN GOTO start:
  118. IF a$ = CHR$(27) THEN END
  119. GOTO nex2:
  120.  
Title: Re: Merry Christmas QB64.org Forum!
Post by: AndyA on December 23, 2019, 10:35:41 pm
@Sierra Ken

Thanks for gift!

Merry Christmas!
Title: Re: Merry Christmas QB64.org Forum!
Post by: Petr on December 24, 2019, 07:35:05 am
Thank You, SierraKen. Merry Christmas!  Petr
Text Only | Text with Attachments