"Among Us" Ejection Screen

[FellippeHeitor]

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
8. END TYPE
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
15. NEXT
16.  
17. DO UNTIL _SCREENEXISTS: _LIMIT 1: LOOP
18.  
19. start = TIMER
20. message$ = "Player was not The Impostor."
21.  
22. _TITLE "Ejection screen"
23.  
24. DO
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
56. LOOP
57.  
58. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
59.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
60. END FUNCTION
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
89. END SUB
90.  

[SpriggsySpriggs]

DUDE! That's awesome! I love that game!

[SpriggsySpriggs]

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
8. END TYPE
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
15. NEXT
16.  
17. DO UNTIL _SCREENEXISTS: _LIMIT 1: LOOP
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.  
26. DO
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
55. LOOP
56. _SNDCLOSE eject
57.  
58. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
59.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
60. END FUNCTION
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
89. END SUB

[Pete]

Thumbs down. I like star ships that don't drive sideways!

Pete :D

[SpriggsySpriggs]

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
8. END TYPE
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
15. NEXT
16.  
17. DO UNTIL _SCREENEXISTS: _LIMIT 1: LOOP
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. DO
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
58. LOOP
59. _SNDCLOSE eject
60.  
61. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
62.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
63. END FUNCTION
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
92. END SUB

[Pete]

I'd eject that crewman, too. It looks like he ate all the replicator donuts!

Pete

[SpriggsySpriggs]

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
8. END TYPE
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
15. NEXT
16.  
17. DO UNTIL _SCREENEXISTS: _LIMIT 1: LOOP
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. DO
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
62. LOOP
63. _AUTODISPLAY
64.  
65. _FREEIMAGE crewmate
66. _SNDSTOP (eject)
67. _SNDCLOSE (eject)
68.  
69. CLS
70. SCREEN _LOADIMAGE("among-us-defeat.jpg", 32)
71. DIM d AS LONG
72. d = _SNDOPEN("defeat.mp3")
73.  
74. _SNDPLAY (d)
75.  
76. DO
77. LOOP UNTIL INKEY$ <> ""
78.  
79. _SNDSTOP (d)
80.  
81. _SNDCLOSE (d)
82.  
83. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
84.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
85. END FUNCTION
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
114. END SUB

[FellippeHeitor]

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
8. END TYPE
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
15. NEXT
16.  
17. DO UNTIL _SCREENEXISTS: _LIMIT 1: LOOP
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. DO
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
62. _AUTODISPLAY
63.  
64. _FREEIMAGE crewmate
65. _SNDSTOP (eject)
66. _SNDCLOSE (eject)
67.  
68. CLS
69. SCREEN _LOADIMAGE("among-us-defeat.jpg", 32)
70. DIM d AS LONG
71. d = _SNDOPEN("defeat.mp3")
72.  
73. _SNDPLAY (d)
74.  
75. DO
76. LOOP UNTIL INKEY$ <> ""
77.  
78. _SNDSTOP (d)
79.  
80. _SNDCLOSE (d)
81.  
82. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
83.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
84. END FUNCTION
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
113. END SUB
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))
140. END SUB
141.  
142.  
143.  

[FellippeHeitor]

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
8. END TYPE
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
15. NEXT
16.  
17. DO UNTIL _SCREENEXISTS: _LIMIT 1: LOOP
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.  
30. DO
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.  
80. CLS
81. endScreen = _LOADIMAGE("among-us-defeat.jpg", 32)
82. DIM d AS LONG
83. d = _SNDOPEN("defeat.mp3")
84.  
85. _SNDPLAY (d)
86.  
87. start = TIMER
88. fadeIn = 3
89.  
90. DO
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
99. LOOP UNTIL _KEYHIT
100.  
101. _SNDSTOP (d)
102.  
103. _SNDCLOSE (d)
104. SYSTEM
105.  
106. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
107.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
108. END FUNCTION
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
137. END SUB
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))
164. END SUB
165.  
166.  

[bplus]

Hey did this game come out after C-virus? Everybody wears masks?

[FellippeHeitor]

It's a 2018 game that rose to fame now during the pandemic. About the masks, well, they're astronaut suits.

[bplus]

Spacemen? No these guys hangout at the corner

 

Compare:

 

Astronauts:

 

     ;-))

[SpriggsySpriggs]

Perfect!