Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: FellippeHeitor on September 27, 2020, 06:00:01 pm

Title: "Among Us" Ejection Screen
Post by: FellippeHeitor on September 27, 2020, 06:00:01 pm
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2.  
  3. TYPE object
  4.     x AS SINGLE
  5.     y AS SINGLE
  6.     size AS SINGLE
  7.     speed AS SINGLE
  9.  
  10. DIM SHARED star(1 TO 100) AS object
  11. FOR i = 1 TO 100
  12.     star(i).x = -_WIDTH + (RND * _WIDTH * 2)
  13.     star(i).y = RND * _HEIGHT
  14.     star(i).size = RND * 2
  16.  
  18.  
  19. start = TIMER
  20. message$ = "Player was not The Impostor."
  21.  
  22. _TITLE "Ejection screen"
  23.  
  25.     CLS
  26.  
  27.     FOR i = 1 TO 100
  28.         IF star(i).x > _WIDTH THEN
  29.             star(i).x = -1
  30.             star(i).y = RND * _HEIGHT
  31.         END IF
  32.         star(i).x = star(i).x + star(i).size
  33.         CircleFill star(i).x, star(i).y, star(i).size, _RGB32(255)
  34.     NEXT
  35.  
  36.     fadeIn = 3
  37.     IF TIMER - start > fadeIn AND TIMER - lastChar > .05 THEN
  38.         lastChar = TIMER
  39.         IF chars <= LEN(message$) THEN
  40.             chars = chars + 1
  41.             FOR j = 0 TO 2000
  42.                 _SNDRAW SIN(j) / 100
  43.             NEXT
  44.             FOR j = 0 TO 350
  45.                 _SNDRAW 0
  46.             NEXT
  47.         END IF
  48.     ELSE
  49.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, map(TIMER - start, 0, fadeIn, 255, 0)), BF
  50.     END IF
  51.     m$ = LEFT$(message$, chars)
  52.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(m$)) / 2, _HEIGHT / 2 - 8), m$
  53.  
  54.     _DISPLAY
  55.     _LIMIT 30
  57.  
  58. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  59.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  61.  
  62. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  63.     ' CX = center x coordinate
  64.     ' CY = center y coordinate
  65.     '  R = radius
  66.     '  C = fill color
  67.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  68.     DIM X AS INTEGER, Y AS INTEGER
  69.     Radius = ABS(R)
  70.     RadiusError = -Radius
  71.     X = Radius
  72.     Y = 0
  73.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  74.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  75.     WHILE X > Y
  76.         RadiusError = RadiusError + Y * 2 + 1
  77.         IF RadiusError >= 0 THEN
  78.             IF X <> Y + 1 THEN
  79.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  80.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  81.             END IF
  82.             X = X - 1
  83.             RadiusError = RadiusError - X * 2
  84.         END IF
  85.         Y = Y + 1
  86.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  87.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  88.     WEND
  90.  
Title: Re: "Among Us" Ejection Screen
Post by: SpriggsySpriggs on September 27, 2020, 06:04:24 pm
DUDE! That's awesome! I love that game!
Title: Re: "Among Us" Ejection Screen
Post by: SpriggsySpriggs on September 27, 2020, 06:29:47 pm
Hehehe I had to do it... I used my recording program and grabbed a snippet of audio from the game when you eject someone so you can use it for the text being written to the screen.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2.  
  3. TYPE object
  4.     x AS SINGLE
  5.     y AS SINGLE
  6.     size AS SINGLE
  7.     speed AS SINGLE
  9.  
  10. DIM SHARED star(1 TO 100) AS object
  11. FOR i = 1 TO 100
  12.     star(i).x = -_WIDTH + (RND * _WIDTH * 2)
  13.     star(i).y = RND * _HEIGHT
  14.     star(i).size = RND * 2
  16.  
  18.  
  19. start = TIMER
  20. message$ = "Player was not The Impostor."
  21.  
  22. _TITLE "Ejection screen"
  23. DIM eject AS LONG
  24. eject = _SNDOPEN("eject.wav")
  25.  
  27.     CLS
  28.  
  29.     FOR i = 1 TO 100
  30.         IF star(i).x > _WIDTH THEN
  31.             star(i).x = -1
  32.             star(i).y = RND * _HEIGHT
  33.         END IF
  34.         star(i).x = star(i).x + star(i).size
  35.         CircleFill star(i).x, star(i).y, star(i).size, _RGB32(255)
  36.     NEXT
  37.     fadeIn = 3
  38.     IF TIMER - start > fadeIn AND TIMER - lastChar > .05 THEN
  39.         IF x = 0 THEN
  40.             _SNDPLAY (eject)
  41.             x = 1
  42.         END IF
  43.         lastChar = TIMER
  44.         IF chars <= LEN(message$) THEN
  45.             chars = chars + 1
  46.         END IF
  47.     ELSE
  48.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, map(TIMER - start, 0, fadeIn, 255, 0)), BF
  49.     END IF
  50.     m$ = LEFT$(message$, chars)
  51.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(m$)) / 2, _HEIGHT / 2 - 8), m$
  52.  
  53.     _DISPLAY
  54.     _LIMIT 30
  56. _SNDCLOSE eject
  57.  
  58. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  59.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  61.  
  62. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  63.     ' CX = center x coordinate
  64.     ' CY = center y coordinate
  65.     '  R = radius
  66.     '  C = fill color
  67.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  68.     DIM X AS INTEGER, Y AS INTEGER
  69.     Radius = ABS(R)
  70.     RadiusError = -Radius
  71.     X = Radius
  72.     Y = 0
  73.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  74.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  75.     WHILE X > Y
  76.         RadiusError = RadiusError + Y * 2 + 1
  77.         IF RadiusError >= 0 THEN
  78.             IF X <> Y + 1 THEN
  79.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  80.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  81.             END IF
  82.             X = X - 1
  83.             RadiusError = RadiusError - X * 2
  84.         END IF
  85.         Y = Y + 1
  86.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  87.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  88.     WEND
Title: Re: "Among Us" Ejection Screen
Post by: Pete on September 27, 2020, 06:48:30 pm
Thumbs down. I like star ships that don't drive sideways!

Pete :D
Title: Re: "Among Us" Ejection Screen
Post by: SpriggsySpriggs on September 27, 2020, 07:03:53 pm
And another little edit haha:
 

This time it shoots a green crewmate across the screen first :) I'd make him rotate if I knew how.
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2.  
  3. TYPE object
  4.     x AS SINGLE
  5.     y AS SINGLE
  6.     size AS SINGLE
  7.     speed AS SINGLE
  9.  
  10. DIM SHARED star(1 TO 100) AS object
  11. FOR i = 1 TO 100
  12.     star(i).x = -_WIDTH + (RND * _WIDTH * 2)
  13.     star(i).y = RND * _HEIGHT
  14.     star(i).size = RND * 2
  16.  
  18.  
  19. start = TIMER
  20. message$ = "Player was not The Impostor."
  21.  
  22. _TITLE "Ejection screen"
  23. DIM eject AS LONG
  24. DIM crewmate AS LONG
  25. crewmate = _LOADIMAGE("crewmate (Custom).png", 32)
  26. eject = _SNDOPEN("eject.wav")
  27.  
  29.     coord1 = coord1 + 4
  30.     CLS
  31.  
  32.     FOR i = 1 TO 100
  33.         IF star(i).x > _WIDTH THEN
  34.             star(i).x = -1
  35.             star(i).y = RND * _HEIGHT
  36.         END IF
  37.         star(i).x = star(i).x + star(i).size
  38.         CircleFill star(i).x, star(i).y, star(i).size, _RGB32(255)
  39.     NEXT
  40.     fadeIn = 3
  41.     IF TIMER - start > fadeIn AND TIMER - lastChar > .05 THEN
  42.         IF x = 0 THEN
  43.             _SNDPLAY (eject)
  44.             x = 1
  45.         END IF
  46.         lastChar = TIMER
  47.         IF chars <= LEN(message$) THEN
  48.             chars = chars + 1
  49.         END IF
  50.     ELSE
  51.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, map(TIMER - start, 0, fadeIn, 255, 0)), BF
  52.     END IF
  53.     m$ = LEFT$(message$, chars)
  54.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(m$)) / 2, _HEIGHT / 2 - 8), m$
  55.     _PUTIMAGE (coord1, 250), crewmate, 0
  56.     _DISPLAY
  57.     _LIMIT 30
  59. _SNDCLOSE eject
  60.  
  61. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  62.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  64.  
  65. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  66.     ' CX = center x coordinate
  67.     ' CY = center y coordinate
  68.     '  R = radius
  69.     '  C = fill color
  70.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  71.     DIM X AS INTEGER, Y AS INTEGER
  72.     Radius = ABS(R)
  73.     RadiusError = -Radius
  74.     X = Radius
  75.     Y = 0
  76.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  77.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  78.     WHILE X > Y
  79.         RadiusError = RadiusError + Y * 2 + 1
  80.         IF RadiusError >= 0 THEN
  81.             IF X <> Y + 1 THEN
  82.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  83.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  84.             END IF
  85.             X = X - 1
  86.             RadiusError = RadiusError - X * 2
  87.         END IF
  88.         Y = Y + 1
  89.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  90.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  91.     WEND
Title: Re: "Among Us" Ejection Screen
Post by: Pete on September 27, 2020, 07:13:07 pm
I'd eject that crewman, too. It looks like he ate all the replicator donuts!

Pete
Title: Re: "Among Us" Ejection Screen
Post by: SpriggsySpriggs on September 27, 2020, 07:34:39 pm
And another edit: This time, with a defeat screen and the sound of defeat:

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2.  
  3. TYPE object
  4.     x AS SINGLE
  5.     y AS SINGLE
  6.     size AS SINGLE
  7.     speed AS SINGLE
  9.  
  10. DIM SHARED star(1 TO 100) AS object
  11. FOR i = 1 TO 100
  12.     star(i).x = -_WIDTH + (RND * _WIDTH * 2)
  13.     star(i).y = RND * _HEIGHT
  14.     star(i).size = RND * 2
  16.  
  18.  
  19. start = TIMER
  20. message$ = "Player was not The Impostor."
  21.  
  22. _TITLE "Ejection screen"
  23. DIM eject AS LONG
  24. DIM crewmate AS LONG
  25. crewmate = _LOADIMAGE("crewmate (Custom).png", 32)
  26. eject = _SNDOPEN("eject.wav")
  27.  
  29.     coord1 = coord1 + 4
  30.     CLS
  31.  
  32.     FOR i = 1 TO 100
  33.         IF star(i).x > _WIDTH THEN
  34.             star(i).x = -1
  35.             star(i).y = RND * _HEIGHT
  36.         END IF
  37.         star(i).x = star(i).x + star(i).size
  38.         CircleFill star(i).x, star(i).y, star(i).size, _RGB32(255)
  39.     NEXT
  40.     fadeIn = 3
  41.     IF TIMER - start > fadeIn AND TIMER - lastChar > .05 THEN
  42.         IF x = 0 THEN
  43.             _SNDPLAY (eject)
  44.             x = 1
  45.         END IF
  46.         lastChar = TIMER
  47.         IF chars <= LEN(message$) THEN
  48.             chars = chars + 1
  49.         END IF
  50.     ELSE
  51.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, map(TIMER - start, 0, fadeIn, 255, 0)), BF
  52.     END IF
  53.     m$ = LEFT$(message$, chars)
  54.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(m$)) / 2, _HEIGHT / 2 - 8), m$
  55.     IF coord1 < _WIDTH THEN
  56.         _PUTIMAGE (coord1, 250), crewmate, 0
  57.     ELSE
  58.         EXIT DO
  59.     END IF
  60.     _DISPLAY
  61.     _LIMIT 30
  64.  
  65. _FREEIMAGE crewmate
  66. _SNDSTOP (eject)
  67. _SNDCLOSE (eject)
  68.  
  70. SCREEN _LOADIMAGE("among-us-defeat.jpg", 32)
  72. d = _SNDOPEN("defeat.mp3")
  73.  
  75.  
  78.  
  80.  
  82.  
  83. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  84.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  86.  
  87. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  88.     ' CX = center x coordinate
  89.     ' CY = center y coordinate
  90.     '  R = radius
  91.     '  C = fill color
  92.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  93.     DIM X AS INTEGER, Y AS INTEGER
  94.     Radius = ABS(R)
  95.     RadiusError = -Radius
  96.     X = Radius
  97.     Y = 0
  98.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  99.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  100.     WHILE X > Y
  101.         RadiusError = RadiusError + Y * 2 + 1
  102.         IF RadiusError >= 0 THEN
  103.             IF X <> Y + 1 THEN
  104.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  105.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  106.             END IF
  107.             X = X - 1
  108.             RadiusError = RadiusError - X * 2
  109.         END IF
  110.         Y = Y + 1
  111.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  112.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  113.     WEND

Title: Re: "Among Us" Ejection Screen
Post by: FellippeHeitor on September 27, 2020, 10:36:31 pm
Now with rotation:

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2.  
  3. TYPE object
  4.     x AS SINGLE
  5.     y AS SINGLE
  6.     size AS SINGLE
  7.     speed AS SINGLE
  9.  
  10. DIM SHARED star(1 TO 100) AS object
  11. FOR i = 1 TO 100
  12.     star(i).x = -_WIDTH + (RND * _WIDTH * 2)
  13.     star(i).y = RND * _HEIGHT
  14.     star(i).size = RND * 2
  16.  
  18.  
  19. start = TIMER
  20. message$ = "Player was not The Impostor."
  21.  
  22. _TITLE "Ejection screen"
  23. DIM eject AS LONG
  24. DIM crewmate AS LONG
  25. crewmate = _LOADIMAGE("crewmate (Custom).png", 32)
  26. eject = _SNDOPEN("eject.wav")
  27.  
  29.     coord1 = coord1 + map(coord1, 0, _WIDTH, 15, 4)
  30.     CLS
  31.  
  32.     FOR i = 1 TO 100
  33.         IF star(i).x > _WIDTH THEN
  34.             star(i).x = -1
  35.             star(i).y = RND * _HEIGHT
  36.         END IF
  37.         star(i).x = star(i).x + star(i).size
  38.         CircleFill star(i).x, star(i).y, star(i).size, _RGB32(255)
  39.     NEXT
  40.     fadeIn = 3
  41.     IF TIMER - start > fadeIn AND TIMER - lastChar > .05 THEN
  42.         IF x = 0 THEN
  43.             _SNDPLAY (eject)
  44.             x = 1
  45.         END IF
  46.         lastChar = TIMER
  47.         IF chars <= LEN(message$) THEN
  48.             chars = chars + 1
  49.         END IF
  50.     ELSE
  51.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, map(TIMER - start, 0, fadeIn, 255, 0)), BF
  52.     END IF
  53.     m$ = LEFT$(message$, chars)
  54.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(m$)) / 2, _HEIGHT / 2 - 8), m$
  55.     IF coord1 < _WIDTH THEN
  56.         crewMateAngle = crewMateAngle + 2
  57.         RotoZoom3 coord1, 250, crewmate, 1, 1, _D2R(crewMateAngle)
  58.     END IF
  59.     _DISPLAY
  60.     _LIMIT 30
  61. LOOP UNTIL TIMER - start > 8
  63.  
  64. _FREEIMAGE crewmate
  65. _SNDSTOP (eject)
  66. _SNDCLOSE (eject)
  67.  
  69. SCREEN _LOADIMAGE("among-us-defeat.jpg", 32)
  71. d = _SNDOPEN("defeat.mp3")
  72.  
  74.  
  77.  
  79.  
  81.  
  82. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  83.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  85.  
  86. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  87.     ' CX = center x coordinate
  88.     ' CY = center y coordinate
  89.     '  R = radius
  90.     '  C = fill color
  91.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  92.     DIM X AS INTEGER, Y AS INTEGER
  93.     Radius = ABS(R)
  94.     RadiusError = -Radius
  95.     X = Radius
  96.     Y = 0
  97.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  98.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  99.     WHILE X > Y
  100.         RadiusError = RadiusError + Y * 2 + 1
  101.         IF RadiusError >= 0 THEN
  102.             IF X <> Y + 1 THEN
  103.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  104.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  105.             END IF
  106.             X = X - 1
  107.             RadiusError = RadiusError - X * 2
  108.         END IF
  109.         Y = Y + 1
  110.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  111.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  112.     WEND
  114.  
  115. SUB RotoZoom3 (X AS LONG, Y AS LONG, Image AS LONG, xScale AS SINGLE, yScale AS SINGLE, radianRotation AS SINGLE)
  116.     ' This assumes you have set your drawing location with _DEST or default to screen.
  117.     ' X, Y - is where you want to put the middle of the image
  118.     ' Image - is the handle assigned with _LOADIMAGE
  119.     ' xScale, yScale - are shrinkage < 1 or magnification > 1 on the given axis, 1 just uses image size.
  120.     ' These are multipliers so .5 will create image .5 size on given axis and 2 for twice image size.
  121.     ' radianRotation is the Angle in Radian units to rotate the image
  122.     ' note: Radian units for rotation because it matches angle units of other Basic Trig functions
  123.     '       and saves a little time converting from degree.
  124.     '       Use the _D2R() function if you prefer to work in degree units for angles.
  125.  
  126.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE ' simple arrays for x, y to hold the 4 corners of image
  127.     DIM W&, H&, sinr!, cosr!, i&, x2&, y2& '   variables for image manipulation
  128.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  129.     px(0) = -W& / 2: py(0) = -H& / 2 'left top corner
  130.     px(1) = -W& / 2: py(1) = H& / 2 ' left bottom corner
  131.     px(2) = W& / 2: py(2) = H& / 2 '  right bottom
  132.     px(3) = W& / 2: py(3) = -H& / 2 ' right top
  133.     sinr! = SIN(-radianRotation): cosr! = COS(-radianRotation) ' rotation helpers
  134.     FOR i& = 0 TO 3 ' calc new point locations with rotation and zoom
  135.         x2& = xScale * (px(i&) * cosr! + sinr! * py(i&)) + X: y2& = yScale * (py(i&) * cosr! - px(i&) * sinr!) + Y
  136.         px(i&) = x2&: py(i&) = y2&
  137.     NEXT
  138.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  139.     _MAPTRIANGLE _SEAMLESS(0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  141.  
  142.  
  143.  
Title: Re: "Among Us" Ejection Screen
Post by: FellippeHeitor on September 27, 2020, 10:52:05 pm
Fine tuned:
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2.  
  3. TYPE object
  4.     x AS SINGLE
  5.     y AS SINGLE
  6.     size AS SINGLE
  7.     speed AS SINGLE
  9.  
  10. DIM SHARED star(1 TO 100) AS object
  11. FOR i = 1 TO 100
  12.     star(i).x = -_WIDTH + (RND * _WIDTH * 2)
  13.     star(i).y = RND * _HEIGHT
  14.     star(i).size = RND * 2
  16.  
  18.  
  19. start = TIMER
  20. message$ = "Player was not The Impostor."
  21.  
  22. _TITLE "Ejection screen"
  23. DIM eject AS LONG
  24. DIM crewmate AS LONG
  25. crewmate = _LOADIMAGE("crewmate (Custom).png", 32)
  26. eject = _SNDOPEN("eject.wav")
  27.  
  28. coord1 = -(_WIDTH(crewmate) * 3)
  29.  
  31.     CLS
  32.  
  33.     FOR i = 1 TO 100
  34.         IF star(i).x > _WIDTH THEN
  35.             star(i).x = -1
  36.             star(i).y = RND * _HEIGHT
  37.         END IF
  38.         star(i).x = star(i).x + star(i).size
  39.         CircleFill star(i).x, star(i).y, star(i).size, _RGB32(255)
  40.     NEXT
  41.     fadeIn = 3
  42.     IF TIMER - start > fadeIn / 2 THEN
  43.         coord1 = coord1 + map(coord1, 0, _WIDTH, 10, 4)
  44.         crewMateAngle = crewMateAngle + 2
  45.     END IF
  46.  
  47.     IF TIMER - start > fadeIn THEN
  48.         IF TIMER - lastChar > .05 THEN
  49.             IF x = 0 THEN
  50.                 _SNDPLAY (eject)
  51.                 x = 1
  52.             END IF
  53.             lastChar = TIMER
  54.             IF chars <= LEN(message$) THEN
  55.                 chars = chars + 1
  56.             END IF
  57.         END IF
  58.     END IF
  59.  
  60.     m$ = LEFT$(message$, chars)
  61.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(m$)) / 2, _HEIGHT / 2 - 8), m$
  62.     IF coord1 < _WIDTH + _WIDTH(crewmate) THEN
  63.         RotoZoom3 coord1, 250, crewmate, 1, 1, _D2R(crewMateAngle)
  64.     END IF
  65.  
  66.     IF TIMER - start < fadeIn THEN
  67.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, map(TIMER - start, 0, fadeIn, 255, 0)), BF
  68.     ELSEIF TIMER - start > 8 THEN
  69.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, map(TIMER - start, 8, 10, 0, 255)), BF
  70.     END IF
  71.  
  72.     _DISPLAY
  73.     _LIMIT 30
  74. LOOP UNTIL TIMER - start > 10
  75.  
  76. _FREEIMAGE crewmate
  77. _SNDSTOP (eject)
  78. _SNDCLOSE (eject)
  79.  
  81. endScreen = _LOADIMAGE("among-us-defeat.jpg", 32)
  83. d = _SNDOPEN("defeat.mp3")
  84.  
  86.  
  87. start = TIMER
  88. fadeIn = 3
  89.  
  91.     CLS
  92.     _PUTIMAGE , endScreen
  93.     IF TIMER - start < fadeIn THEN
  94.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, map(TIMER - start, 0, fadeIn, 255, 0)), BF
  95.     END IF
  96.  
  97.     _DISPLAY
  98.     _LIMIT 30
  100.  
  102.  
  105.  
  106. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  107.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  109.  
  110. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  111.     ' CX = center x coordinate
  112.     ' CY = center y coordinate
  113.     '  R = radius
  114.     '  C = fill color
  115.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  116.     DIM X AS INTEGER, Y AS INTEGER
  117.     Radius = ABS(R)
  118.     RadiusError = -Radius
  119.     X = Radius
  120.     Y = 0
  121.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  122.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  123.     WHILE X > Y
  124.         RadiusError = RadiusError + Y * 2 + 1
  125.         IF RadiusError >= 0 THEN
  126.             IF X <> Y + 1 THEN
  127.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  128.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  129.             END IF
  130.             X = X - 1
  131.             RadiusError = RadiusError - X * 2
  132.         END IF
  133.         Y = Y + 1
  134.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  135.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  136.     WEND
  138.  
  139. SUB RotoZoom3 (X AS LONG, Y AS LONG, Image AS LONG, xScale AS SINGLE, yScale AS SINGLE, radianRotation AS SINGLE)
  140.     ' This assumes you have set your drawing location with _DEST or default to screen.
  141.     ' X, Y - is where you want to put the middle of the image
  142.     ' Image - is the handle assigned with _LOADIMAGE
  143.     ' xScale, yScale - are shrinkage < 1 or magnification > 1 on the given axis, 1 just uses image size.
  144.     ' These are multipliers so .5 will create image .5 size on given axis and 2 for twice image size.
  145.     ' radianRotation is the Angle in Radian units to rotate the image
  146.     ' note: Radian units for rotation because it matches angle units of other Basic Trig functions
  147.     '       and saves a little time converting from degree.
  148.     '       Use the _D2R() function if you prefer to work in degree units for angles.
  149.  
  150.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE ' simple arrays for x, y to hold the 4 corners of image
  151.     DIM W&, H&, sinr!, cosr!, i&, x2&, y2& '   variables for image manipulation
  152.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  153.     px(0) = -W& / 2: py(0) = -H& / 2 'left top corner
  154.     px(1) = -W& / 2: py(1) = H& / 2 ' left bottom corner
  155.     px(2) = W& / 2: py(2) = H& / 2 '  right bottom
  156.     px(3) = W& / 2: py(3) = -H& / 2 ' right top
  157.     sinr! = SIN(-radianRotation): cosr! = COS(-radianRotation) ' rotation helpers
  158.     FOR i& = 0 TO 3 ' calc new point locations with rotation and zoom
  159.         x2& = xScale * (px(i&) * cosr! + sinr! * py(i&)) + X: y2& = yScale * (py(i&) * cosr! - px(i&) * sinr!) + Y
  160.         px(i&) = x2&: py(i&) = y2&
  161.     NEXT
  162.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  163.     _MAPTRIANGLE _SEAMLESS(0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  165.  
  166.  
Title: Re: "Among Us" Ejection Screen
Post by: bplus on September 27, 2020, 11:38:46 pm
Hey did this game come out after C-virus? Everybody wears masks?
Title: Re: "Among Us" Ejection Screen
Post by: FellippeHeitor on September 27, 2020, 11:39:34 pm
It's a 2018 game that rose to fame now during the pandemic. About the masks, well, they're astronaut suits.
Title: Re: "Among Us" Ejection Screen
Post by: bplus on September 27, 2020, 11:45:01 pm
Spacemen? No these guys hangout at the corner

 


Compare:

 



Astronauts:

 


     ;-))
Title: Re: "Among Us" Ejection Screen
Post by: SpriggsySpriggs on September 28, 2020, 01:50:55 am
Perfect!
Text Only | Text with Attachments