Re: a coding challenge from the coding train

[TempodiBasic]

@Bplus
? what do you mean?

Left & Right Arrows = do nothing
Up &Down Arrows = Increase/Decrease Worp

 but at Worp 0  the Enterprise is stopped in the sky among the stars.... No normal speed?
:-O what will Captain Kirk think of this ?

[david_uwi]

Yes like pete I remember doing this in QB4.5 screen 12. I've found my program from 2006. I've had to put in a delay loop as it was going too fast.

Code: QB64: [Select]

1. SCREEN 12
2. DEFLNG B, G, R
3. DATA 0,0,0,16,16,16,20,20,20,24,24,24,28,28,28,32,32,32,36,36,36
4. DATA 40,40,40,44,44,44,48,48,48,56,56,56,63,63,63
5. FOR i = 0 TO 11
6.     READ b, g, r
7.     PALETTE i, b * 65536 + g * 256 + r
8. NEXT i
9. 'INPUT "# of stars"; ns
10. ns = 1000
11. CLS
12. DIM x(ns), y(ns), n(ns)
13. FOR i = 1 TO ns
14.     x(i) = RND * 640
15.     y(i) = RND * 480
16.     n(i) = RND * 50
17. NEXT i
18. WHILE INKEY$ <> CHR$(27)
19.     FOR k = 1 TO ns
20.         n(k) = n(k) + 1
21.         m = INT(n(k) / 42)
22.         IF m > 3 THEN m = 3
23.         c = INT(n(k) / 5) + 1
24.         IF c > 11 THEN c = 11
25.         FOR j = -m TO m
26.             FOR i = ABS(j) - m TO m - ABS(j)
27.                 PSET (x(k) + i, y(k) + j), 0
28.             NEXT i
29.         NEXT j
30.         n(k) = n(k) + 1
31.         yi = 240 - y(k)
32.         xi = 320 - x(k)
33.         yi = SGN(yi) * ABS(yi) ^ 1.2
34.         xi = SGN(xi) * ABS(xi) ^ 1.2
35.         x(k) = x(k) - xi * .03: y(k) = y(k) - yi * .03
36.         FOR j = -m TO m
37.             FOR i = ABS(j) - m TO m - ABS(j)
38.                 PSET (x(k) + i, y(k) + j), c
39.             NEXT i
40.         NEXT j
41.         IF y(k) < -20 OR y(k) > 500 OR x(k) < -60 OR x(k) > 700 THEN
42.             x(k) = 160 + (RND * 320)
43.             y(k) = RND * 240 + 120
44.             n(k) = 0
45.         END IF
46.     NEXT k
47.     FOR i9 = 1 TO 3000000: NEXT i9 'delay loop
48. WEND

[FellippeHeitor]

Instead of a FOR delay, use _DELAY or, preferably, _LIMIT:

Code: QB64: [Select]

1. _LIMIT 30 'block will run at ~30fps