« previous next »
Pages: [1]   Go Down

Author Topic: Merry Christmas QB64.org Forum!  (Read 3583 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Merry Christmas QB64.org Forum!
« 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.  
« Last Edit: December 23, 2019, 03:30:23 pm by SierraKen »
Logged

Offline AndyA

  • Newbie
  • Posts: 73
    • View Profile
Re: Merry Christmas QB64.org Forum!
« Reply #1 on: December 23, 2019, 10:35:41 pm »
@Sierra Ken

Thanks for gift!

Merry Christmas!
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Merry Christmas QB64.org Forum!
« Reply #2 on: December 24, 2019, 07:35:05 am »
Thank You, SierraKen. Merry Christmas!  Petr
Logged
Pages: [1]   Go Up
« previous next »