Lightning Globe

[SierraKen]

I've been working on a new lightning globe program. It's just something fun I'm messing around with. But like usual, I think I got it down and then something really weird happens. The program stops completely or it's trapped in a loop somewhere and I can't figure it out. It's a very small program and any help is appreciated, thanks. It makes 1 lightning bolt from the center to where you click your mouse on the globe. Then it stops! LOL I have no idea why yet. You can see that I'm even testing it at the bottom of the program to see if the whole program stops or what, and it does. I do that with 2 LOCATE lines. I mean, the program keeps going (somewhere) but it doesn't reach the bottom of the program after you make 1 lightning bolt first. Is there some focus command I don't know about using the mouse? Oh also for some reason, instead of making a white circle on the globe, it makes a white square, with a CIRCLE command??? lol

Code: QB64: [Select]

1. _TITLE "Lightning Globe by Ken G."
2. SCREEN _NEWIMAGE(800, 600, 32)
3. x = 400
4. y = 300
5. c = 0
6. st = 2
7. FOR sz = 1 TO 200 STEP .25
8.     c = c + .05
9.     CIRCLE (x, y), sz, _RGB32(c, c, c)
10. NEXT sz
11. c = 0
12. FOR sz = 1 TO 30 STEP .25
13.     c = c + .005
14.     CIRCLE (x, y), sz, _RGB32(c, c, c)
15. NEXT sz
16.  
17. 'Main Loop
18.  
19. go:
20. mouseWheel = 0
21. DO WHILE _MOUSEINPUT
22.     handx = _MOUSEX
23.     handy = _MOUSEY
24.     mouseLeftButton = _MOUSEBUTTON(1)
25.     mouseRightButton = _MOUSEBUTTON(2)
26.     mouseMiddleButton = _MOUSEBUTTON(3)
27.     mouseWheel = mouseWheel + _MOUSEWHEEL
28. LOOP
29. IF mouseLeftButton = -1 THEN
30.     IF POINT(handx, handy) <> _RGB32(0, 0, 0) THEN
31.         RANDOMIZE TIMER
32.         lxx = (RND * 60) + 370
33.         lyy = (RND * 60) + 270
34.         DO
35.             oldlx = lxx
36.             oldly = lyy
37.             IF lxx < handx THEN dxx = 10
38.             IF lxx > handx THEN dxx = -10
39.             IF lyy < handy THEN dyy = 10
40.             IF lyy > handy THEN dyy = -10
41.             RANDOMIZE TIMER
42.             dx = (RND * 8) - 4
43.             dy = (RND * 8) - 4
44.             lxx = lxx + dx
45.             lyy = lyy + dy
46.             lxx = lxx + dxx
47.             lyy = lyy + dyy
48.             IF POINT(lxx, lyy) = _RGB32(0, 0, 0) THEN
49.                 FOR sz = 1 TO 10 STEP .5
50.                     CIRCLE (handx, handy), sz, _RGB32(255, 255, 255)
51.                 NEXT sz
52.                 _DELAY .02
53.                 GOTO nex:
54.             END IF
55.             LINE (oldlx, oldly)-(lxx, lyy), _RGB32(255, 255, 255)
56.         LOOP
57.     END IF
58. END IF
59. nex:
60. LOCATE 2, 1: PRINT ttt: ttt = ttt + 1
61. LOCATE 1, 1: PRINT handx, handy, mouseLeftButton
62. GOTO go:
63. 'Going back to the start of Main Loop.
64.  
65.  

[SierraKen]

Nevermind, LOL I found the problem..... I added a _LIMIT 50 at the bottom loop and it's making the last line non-stop because the globe is 3D, not 2D, and I was thinking the lightning would go to the edge of the globe but it doesn't of course. LOL Will try to fix it...

[bplus]

Hi Ken, man I gave up trying to fix yours, here's mine to break!

Code: QB64: [Select]

1. _TITLE "Lightning Globe" 'B+ 2019-09-05
2. SCREEN _NEWIMAGE(800, 600, 32)
3. _SCREENMOVE 300, 60
4. COLOR &HFF00BBFF
5. DO
6.     CLS
7.     CIRCLE (400, 300), 30, &HFF202040
8.     PAINT (400, 300), &HFF202040
9.     CIRCLE (400, 300), 200, &HFFFFFFFF
10.     PAINT (400, 300), &H16FFFFFF, &HFFFFFFFF
11.  
12.     WHILE _MOUSEINPUT: WEND
13.     mx = _MOUSEX: my = _MOUSEY: MB = _MOUSEBUTTON(1)
14.     a = _ATAN2(my - 300, mx - 400)
15.     IF MB THEN
16.         'from random point of circle
17.         LINE (0, 0)-(_WIDTH, _HEIGHT), &H88FFFFFF, BF
18.         _DISPLAY
19.         CLS
20.         CIRCLE (400, 300), 30, &HFF202040
21.         PAINT (400, 300), &HFF202040
22.         IF ((mx - 400) ^ 2 + (my - 300) ^ 2) ^ .5 > 200 THEN
23.             rx = 400 + 200 * COS(a): ry = 300 + 200 * SIN(a)
24.         ELSE
25.             rx = mx: ry = my
26.         END IF
27.         a = _PI(2) * RND
28.         gx = 400 + 30 * COS(a): gy = 300 + 30 * SIN(a)
29.         Lightning rx, ry, gx, gy, 100
30.         CIRCLE (400, 300), 200, &HFFFFFFFF
31.         PAINT (400, 300), &H16FFFFFF, &HFFFFFFFF
32.         _DELAY .001
33.     END IF
34.     _LIMIT 100
35.     _DISPLAY
36. LOOP
37.  
38. SUB Lightning (xx1, yy1, xx2, yy2, dd)
39.     x1 = xx1: y1 = yy1: x2 = xx2: y2 = yy2: d = dd
40.     IF d < 5 THEN
41.         COLOR _RGB(225, 225, 245)
42.         LINE (x1, y1)-(x2, y2)
43.     ELSE
44.         mx = (x2 + x1) / 2
45.         my = (y2 + y1) / 2
46.         mx = mx + -.5 * RND * d * .4 * rand&&(-5, 5)
47.         my = my + -.5 * RND * d * .4 * rand&&(-5, 5)
48.         Lightning x1, y1, mx, my, d / 2
49.         Lightning x2, y2, mx, my, d / 2
50.     END IF
51. END SUB
52.  
53. FUNCTION rand&& (lo&&, hi&&)
54.     rand&& = INT(RND * (hi&& - lo&& + 1)) + lo&&
55. END FUNCTION
56.  
57.  
58.  

[SierraKen]

LOL I did it! I made the Lightning Globe I wanted to make to begin with. You can even hold down the mouse button on the globe and it makes different lightning to your mouse pointer. It could use a little sprucing up, like I removed the POINT command to where you click at and just made a IF/THEN for a make-believe box around the globe. I still don't know exactly how to use POINT with IF/THEN statements. It didn't seem to work when I tried it like this: a& = POINT(x,y) : IF a& <> _RGB32(0,0,0) THEN  .... Or instead of the _RGB32(0,0,0) do you just use 0 ? Anyways, please check out my new Lightning Globe. Use the mouse to click it. Esc ends the program.

Code: QB64: [Select]

1. _TITLE "Lightning Globe by Ken G. - Use Mouse and Left Mouse Button On the Globe. Esc to end."
2. _LIMIT 100
3. SCREEN _NEWIMAGE(800, 600, 32)
4. x = 400
5. y = 300
6. c = 1
7. st = 2
8. go:
9. a$ = INKEY$
10. IF a$ = CHR$(27) THEN END
11. _LIMIT 200
12. FOR sz = 1 TO 200 STEP .25
13.     c = c + .05
14.     CIRCLE (x, y), sz, _RGB32(c, c, c)
15. NEXT sz
16. c = 0
17. FOR sz = 1 TO 30 STEP .25
18.     c = c + .005
19.     CIRCLE (x, y), sz, _RGB32(c, c, c)
20. NEXT sz
21.  
22. mouseWheel = 0
23. DO WHILE _MOUSEINPUT
24.     handx = _MOUSEX
25.     handy = _MOUSEY
26.     mouseLeftButton = _MOUSEBUTTON(1)
27.     mouseRightButton = _MOUSEBUTTON(2)
28.     mouseMiddleButton = _MOUSEBUTTON(3)
29.     mouseWheel = mouseWheel + _MOUSEWHEEL
30. LOOP
31. _LIMIT 200
32. IF mouseLeftButton = -1 THEN
33.     IF handx < 600 AND handx > 200 AND handy > 100 AND handy < 500 THEN
34.         RANDOMIZE TIMER
35.         lxx = (RND * 60) + 370
36.         lyy = (RND * 60) + 270
37.         DO
38.             _LIMIT 300
39.             oldlx = lxx
40.             oldly = lyy
41.             IF lxx < handx THEN dxx = 10
42.             IF lxx > handx THEN dxx = -10
43.             IF lyy < handy THEN dyy = 10
44.             IF lyy > handy THEN dyy = -10
45.             RANDOMIZE TIMER
46.             dx = (RND * 8) - 4
47.             dy = (RND * 8) - 4
48.             lxx = lxx + dx
49.             lyy = lyy + dy
50.             lxx = lxx + dxx
51.             lyy = lyy + dyy
52.             LINE (oldlx, oldly)-(lxx, lyy), _RGB32(255, 255, 255)
53.             ttt = ttt + 1
54.             IF ttt > 20 THEN GOTO nex:
55.         LOOP
56.     END IF
57. END IF
58. nex:
59. ttt = 0
60. RANDOMIZE TIMER
61. lxx2 = (RND * 60) + 370
62. lyy2 = (RND * 60) + 270
63. RANDOMIZE TIMER
64. lxx3 = (RND * 200) + 270
65. lyy3 = (RND * 200) + 170
66. RANDOMIZE TIMER
67. lxx4 = (RND * 60) + 370
68. lyy4 = (RND * 60) + 270
69. RANDOMIZE TIMER
70. lxx5 = (RND * 200) + 270
71. lyy5 = (RND * 200) + 170
72.  
73.  
74. DO
75.     _LIMIT 200
76.     oldlx2 = lxx2
77.     oldly2 = lyy2
78.     oldlx4 = lxx4
79.     oldly4 = lyy4
80.     IF lxx2 < lxx3 THEN dxx = 10
81.     IF lxx2 > lxx3 THEN dxx = -10
82.     IF lyy2 < lyy3 THEN dyy = 10
83.     IF lyy2 > lyy3 THEN dyy = -10
84.  
85.     IF lxx4 < lxx5 THEN dxx2 = 10
86.     IF lxx4 > lxx5 THEN dxx2 = -10
87.     IF lyy4 < lyy5 THEN dyy2 = 10
88.     IF lyy4 > lyy5 THEN dyy2 = -10
89.     RANDOMIZE TIMER
90.     dx = (RND * 8) - 4
91.     dy = (RND * 8) - 4
92.     RANDOMIZE TIMER
93.     dx2 = (RND * 8) - 4
94.     dy2 = (RND * 8) - 4
95.     lxx2 = lxx2 + dx
96.     lyy2 = lyy2 + dy
97.     lxx2 = lxx2 + dxx
98.     lyy2 = lyy2 + dyy
99.     lxx4 = lxx4 + dx2
100.     lyy4 = lyy4 + dy2
101.     lxx4 = lxx4 + dxx2
102.     lyy4 = lyy4 + dyy2
103.     LINE (oldlx2, oldly2)-(lxx2, lyy2), _RGB32(155, 155, 155)
104.     LINE (oldlx4, oldly4)-(lxx4, lyy4), _RGB32(155, 155, 155)
105.     ttt2 = ttt2 + 1
106.     IF ttt2 > 10 THEN GOTO nex2:
107. LOOP
108.  
109. nex2:
110. LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
111. ttt2 = 0
112. _DISPLAY
113. GOTO go:
114. 'Going back to the start of Main Loop.
115.  
116.  

[SierraKen]

Yours is pretty cool B+. But why the flashing all around screen? I like how you have 2 lightning bolts instead of my 1 that the user makes. I might spruce mine up some.

[bplus]

But why the flashing all around screen?

Drama

[SierraKen]

Ah OK cool... so visual effects. :)

Try out mine and tell me what you think. I used a lot of what you taught me, like the fade out with RGB32 constantly erasing the screen. Man, back in the old days with the older computers, that was unheard of pretty much. So programs like this were incredibly harder to erase everything. I posted mine above.

[bplus]

Ken, you are coming along nicely keep trying new things to get practice with them. You have ambitions beyond your experience which is great motivator, don't give up on arrays and SUBs these are power tools that will help you achieve your vision. Learning mouse is great!

For polling the mouse ie, getting updates of location and mouse buttons do this:

Code: QB64: [Select]

1.    WHILE _MOUSEINPUT: WEND ' <<<<<<<<<<<<<<<<<<<<<<< empty loop, because that is all you need!
2.     mx = _MOUSEX: my = _MOUSEY: MB = _MOUSEBUTTON(1) '<<<< right after store states of mouse
3.  

Now IF you need wheel info, THEN  put something inside the WHILE _MOUSEINPUT: WEND loop.

[FellippeHeitor]

Drama

🤣

[SMcNeill]

Hi Ken, man I gave up trying to fix yours, here's mine to break!

Code: QB64: [Select]

1. _TITLE "Lightning Globe" 'B+ 2019-09-05
2. SCREEN _NEWIMAGE(800, 600, 32)
3. _SCREENMOVE 300, 60
4. COLOR &HFF00BBFF
5. DO
6.     CLS
7.     CIRCLE (400, 300), 30, &HFF202040
8.     PAINT (400, 300), &HFF202040
9.     CIRCLE (400, 300), 200, &HFFFFFFFF
10.     PAINT (400, 300), &H16FFFFFF, &HFFFFFFFF
11.  
12.     WHILE _MOUSEINPUT: WEND
13.     mx = _MOUSEX: my = _MOUSEY: MB = _MOUSEBUTTON(1)
14.     a = _ATAN2(my - 300, mx - 400)
15.     IF MB THEN
16.         'from random point of circle
17.         LINE (0, 0)-(_WIDTH, _HEIGHT), &H88FFFFFF, BF
18.         _DISPLAY
19.         CLS
20.         CIRCLE (400, 300), 30, &HFF202040
21.         PAINT (400, 300), &HFF202040
22.         IF ((mx - 400) ^ 2 + (my - 300) ^ 2) ^ .5 > 200 THEN
23.             rx = 400 + 200 * COS(a): ry = 300 + 200 * SIN(a)
24.         ELSE
25.             rx = mx: ry = my
26.         END IF
27.         a = _PI(2) * RND
28.         gx = 400 + 30 * COS(a): gy = 300 + 30 * SIN(a)
29.         Lightning rx, ry, gx, gy, 100
30.         CIRCLE (400, 300), 200, &HFFFFFFFF
31.         PAINT (400, 300), &H16FFFFFF, &HFFFFFFFF
32.         _DELAY .001
33.     END IF
34.     _LIMIT 100
35.     _DISPLAY
36. LOOP
37.  
38. SUB Lightning (xx1, yy1, xx2, yy2, dd)
39.     x1 = xx1: y1 = yy1: x2 = xx2: y2 = yy2: d = dd
40.     IF d < 5 THEN
41.         COLOR _RGB(225, 225, 245)
42.         LINE (x1, y1)-(x2, y2)
43.     ELSE
44.         mx = (x2 + x1) / 2
45.         my = (y2 + y1) / 2
46.         mx = mx + -.5 * RND * d * .4 * rand&&(-5, 5)
47.         my = my + -.5 * RND * d * .4 * rand&&(-5, 5)
48.         Lightning x1, y1, mx, my, d / 2
49.         Lightning x2, y2, mx, my, d / 2
50.     END IF
51. END SUB
52.  
53. FUNCTION rand&& (lo&&, hi&&)
54.     rand&& = INT(RND * (hi&& - lo&& + 1)) + lo&&
55. END FUNCTION
56.  
57.  
58.  

Here's mine, in about half the code, without any of that fancy math to get lost in. ;D

Take a look at how simple this little lightning zapper is, and see if you guys understand how it works.  I honestly don't think you can get any simpler than this little concept:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(640, 480, 32)
2. DIM Kolor AS _UNSIGNED LONG
3. CONST LevelOfVariance = 5 'Change this value to have fun with the strength of the "draw" to target.
4. DO
5.     _LIMIT 60
6.     CLS
7.     CIRCLE (320, 240), 20, &HFFAAAAAA
8.     PAINT (320, 240), &HFFAAAAAA
9.     WHILE _MOUSEINPUT: WEND
10.     IF _MOUSEBUTTON(1) THEN
11.         StartX = 320: StartY = 240: EndX = _MOUSEX: EndY = _MOUSEY
12.         Kolor = &HFF000000 + INT(RND * &H1000000)
13.         COLOR Kolor
14.         DO UNTIL StartX = EndX AND StartY = EndY
15.             CoinToss = RND * 100 'The strength of "draw" which pulls the lightning to the target.
16.             IF CoinToss < LevelOfVariance THEN 'Higher values meander less and go directly to the target.
17.                 XChange = SGN(EndX - StartX) '-1,0,1, drawn always towards the mouse
18.                 YChange = SGN(EndY - StartY)
19.             ELSE
20.                 XChange = INT(RND * 3) - 1 '-1, 0, or 1, drawn in a random direction to let the lightning wander
21.                 YChange = INT(RND * 3) - 1
22.             END IF
23.             StartX = StartX + XChange
24.             StartY = StartY + YChange
25.             PSET (StartX, StartY), Kolor
26.         LOOP
27.     END IF
28.     _DISPLAY
29. LOOP

[SierraKen]

Thanks B+, I added your Mouse code to a Notepad. Yeah, I should use SUB's more, etc... hard to teach an old dog new tricks :).

Steve that's really awesome! I wonder if there's a way to make a window a circle instead of a rectangle, I never seen one all these years I think.

[bplus]

Hi Ken,

You can make a peep hole in a rectangle screen...

Oh man! Steve's got my mind in the gutter at IRC ;-P

Hey Ken, try out IRC!

[SierraKen]

Here is an updated version of mine. I enhanced it by making 2 lightning bolts at 25% of the time. Seems like more often, but that's what I set it on. I also sped it up some and added a glow to the entire globe when you make a lightning bolt. I still don't know the math to make the bolts 100% inside the globe. I tried a POINT command along with the mouse button click, but no luck. For some reason is squeezes through and still makes a bolt outside the globe even farther than what I have now. So I went back with the invisible box around the globe.
B+, yeah I been to the IRC room 3 times now, it's pretty cool. :)

Code: QB64: [Select]

1. _TITLE "Lightning Globe by Ken G. - Use Mouse and Left Mouse Button On the Globe. Esc to end."
2. _LIMIT 100
3. SCREEN _NEWIMAGE(800, 600, 32)
4. x = 400
5. y = 300
6. c = 1
7. st = 2
8. l = 500
9. go:
10. a$ = INKEY$
11. IF a$ = CHR$(27) THEN END
12. _LIMIT 200
13. FOR sz = 1 TO 200 STEP .25
14.     c = c + .05 + r
15.     CIRCLE (x, y), sz, _RGB32(c, c, c)
16. NEXT sz
17. c = 0
18. FOR sz = 1 TO 30 STEP .25
19.     c = c + .005
20.     CIRCLE (x, y), sz, _RGB32(c, c, c)
21. NEXT sz
22.  
23. WHILE _MOUSEINPUT: WEND
24. handx = _MOUSEX: handy = _MOUSEY: MB = _MOUSEBUTTON(1)
25. _LIMIT 200
26.  
27. IF l > 500 THEN l = 500
28. IF l < 50 THEN l = 50
29. IF MB = -1 THEN
30.     IF handx < 600 AND handx > 200 AND handy > 100 AND handy < 500 THEN
31.         r = .1
32.         RANDOMIZE TIMER
33.         lxx = (RND * 60) + 370
34.         lyy = (RND * 60) + 270
35.         RANDOMIZE TIMER
36.         lxxx = (RND * 60) + 370
37.         lyyy = (RND * 60) + 270
38.         bolts = INT(RND * 100) + 1
39.         DO
40.             _LIMIT 500
41.             oldlx = lxx
42.             oldly = lyy
43.             oldlxx = lxxx
44.             oldlyy = lyyy
45.             IF lxx < handx THEN dxx = 10
46.             IF lxx > handx THEN dxx = -10
47.             IF lyy < handy THEN dyy = 10
48.             IF lyy > handy THEN dyy = -10
49.             IF lxxx < handx THEN dxxx = 10
50.             IF lxxx > handx THEN dxxx = -10
51.             IF lyyy < handy THEN dyyy = 10
52.             IF lyyy > handy THEN dyyy = -10
53.             RANDOMIZE TIMER
54.             dx = (RND * 8) - 4
55.             dy = (RND * 8) - 4
56.             RANDOMIZE TIMER
57.             dxxxx = (RND * 8) - 4
58.             dyyyy = (RND * 8) - 4
59.             lxx = lxx + dx
60.             lyy = lyy + dy
61.             lxx = lxx + dxx
62.             lyy = lyy + dyy
63.             lxxx = lxxx + dxxxx
64.             lyyy = lyyy + dyyyy
65.             lxxx = lxxx + dxxx
66.             lyyy = lyyy + dyyy
67.             LINE (oldlx, oldly)-(lxx, lyy), _RGB32(255, 255, 255)
68.             IF bolts > 75 THEN LINE (oldlxx, oldlyy)-(lxxx, lyyy), _RGB32(255, 255, 255)
69.             ttt = ttt + 1
70.             IF ttt > 20 THEN GOTO nex:
71.         LOOP
72.     END IF
73. END IF
74. r = 0
75. nex:
76. ttt = 0
77. RANDOMIZE TIMER
78. lxx2 = (RND * 60) + 370
79. lyy2 = (RND * 60) + 270
80. RANDOMIZE TIMER
81. lxx3 = (RND * 200) + 270
82. lyy3 = (RND * 200) + 170
83. RANDOMIZE TIMER
84. lxx4 = (RND * 60) + 370
85. lyy4 = (RND * 60) + 270
86. RANDOMIZE TIMER
87. lxx5 = (RND * 200) + 270
88. lyy5 = (RND * 200) + 170
89.  
90.  
91. DO
92.     _LIMIT 500
93.     oldlx2 = lxx2
94.     oldly2 = lyy2
95.     oldlx4 = lxx4
96.     oldly4 = lyy4
97.     IF lxx2 < lxx3 THEN dxx = 10
98.     IF lxx2 > lxx3 THEN dxx = -10
99.     IF lyy2 < lyy3 THEN dyy = 10
100.     IF lyy2 > lyy3 THEN dyy = -10
101.  
102.     IF lxx4 < lxx5 THEN dxx2 = 10
103.     IF lxx4 > lxx5 THEN dxx2 = -10
104.     IF lyy4 < lyy5 THEN dyy2 = 10
105.     IF lyy4 > lyy5 THEN dyy2 = -10
106.     RANDOMIZE TIMER
107.     dx = (RND * 8) - 4
108.     dy = (RND * 8) - 4
109.     RANDOMIZE TIMER
110.     dx2 = (RND * 8) - 4
111.     dy2 = (RND * 8) - 4
112.     lxx2 = lxx2 + dx
113.     lyy2 = lyy2 + dy
114.     lxx2 = lxx2 + dxx
115.     lyy2 = lyy2 + dyy
116.     lxx4 = lxx4 + dx2
117.     lyy4 = lyy4 + dy2
118.     lxx4 = lxx4 + dxx2
119.     lyy4 = lyy4 + dyy2
120.     LINE (oldlx2, oldly2)-(lxx2, lyy2), _RGB32(155, 155, 155)
121.     LINE (oldlx4, oldly4)-(lxx4, lyy4), _RGB32(155, 155, 155)
122.     ttt2 = ttt2 + 1
123.     IF ttt2 > 10 THEN GOTO nex2:
124. LOOP
125.  
126. nex2:
127. LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
128. ttt2 = 0
129. _DISPLAY
130. GOTO go:
131. 'Going back to the start of Main Loop.
132.  

[SierraKen]

LOL!  Thank you Steve (SMcneill) for the math!! He gave it to me in the IRC room. It's a lot simpler than I thought using the _HPOT command to get the longer side of a right triangle! So I finally got it where you can't make the lightning outside of the globe. Although sometimes the lightning does go a little bit outside, but I will keep that there just for the brightness and mystery of the electricity.  :) So here is what I have. By the way, I was thinking a lot about this program last night and it might have been B+'s globe that he posted months ago that inspired me to make this. When I started this I didn't think about that, but later on I remembered his. Thanks B+ and Steve!

Code: QB64: [Select]

1. 'This program was made on Sept. 5, 2019 by Ken G.
2. 'Thank you to B+ and Steve for the inspiration and some help.
3. _TITLE "Lightning Globe by Ken G. - Use Mouse and Left Mouse Button On the Globe. Esc to end."
4. _LIMIT 100
5. SCREEN _NEWIMAGE(800, 600, 32)
6. x = 400
7. y = 300
8. c = 1
9. st = 2
10. l = 500
11. go:
12. a$ = INKEY$
13. IF a$ = CHR$(27) THEN END
14. _LIMIT 200
15. FOR sz = 1 TO 200 STEP .25
16.     c = c + .05 + r
17.     CIRCLE (x, y), sz, _RGB32(c, c, c)
18. NEXT sz
19. c = 0
20. FOR sz = 1 TO 30 STEP .25
21.     c = c + .005
22.     CIRCLE (x, y), sz, _RGB32(c, c, c)
23. NEXT sz
24.  
25. WHILE _MOUSEINPUT: WEND
26. handx = _MOUSEX: handy = _MOUSEY: MB = _MOUSEBUTTON(1)
27. _LIMIT 200
28.  
29. IF l > 500 THEN l = 500
30. IF l < 50 THEN l = 50
31. IF MB = -1 THEN
32.     'IF handx < 600 AND handx > 200 AND handy > 100 AND handy < 500 THEN
33.     IF _HYPOT(handx - 400, handy - 300) < 200 THEN
34.  
35.         r = .1
36.         RANDOMIZE TIMER
37.         lxx = (RND * 60) + 370
38.         lyy = (RND * 60) + 270
39.         RANDOMIZE TIMER
40.         lxxx = (RND * 60) + 370
41.         lyyy = (RND * 60) + 270
42.         bolts = INT(RND * 100) + 1
43.         DO
44.             _LIMIT 500
45.             oldlx = lxx
46.             oldly = lyy
47.             oldlxx = lxxx
48.             oldlyy = lyyy
49.             IF lxx < handx THEN dxx = 10
50.             IF lxx > handx THEN dxx = -10
51.             IF lyy < handy THEN dyy = 10
52.             IF lyy > handy THEN dyy = -10
53.             IF lxxx < handx THEN dxxx = 10
54.             IF lxxx > handx THEN dxxx = -10
55.             IF lyyy < handy THEN dyyy = 10
56.             IF lyyy > handy THEN dyyy = -10
57.             RANDOMIZE TIMER
58.             dx = (RND * 8) - 4
59.             dy = (RND * 8) - 4
60.             RANDOMIZE TIMER
61.             dxxxx = (RND * 8) - 4
62.             dyyyy = (RND * 8) - 4
63.             lxx = lxx + dx
64.             lyy = lyy + dy
65.             lxx = lxx + dxx
66.             lyy = lyy + dyy
67.             lxxx = lxxx + dxxxx
68.             lyyy = lyyy + dyyyy
69.             lxxx = lxxx + dxxx
70.             lyyy = lyyy + dyyy
71.             LINE (oldlx, oldly)-(lxx, lyy), _RGB32(255, 255, 255)
72.             IF bolts > 75 THEN LINE (oldlxx, oldlyy)-(lxxx, lyyy), _RGB32(255, 255, 255)
73.             ttt = ttt + 1
74.             IF ttt > 20 THEN GOTO nex:
75.         LOOP
76.     END IF
77. END IF
78. r = 0
79. nex:
80. ttt = 0
81. RANDOMIZE TIMER
82. lxx2 = (RND * 60) + 370
83. lyy2 = (RND * 60) + 270
84. RANDOMIZE TIMER
85. lxx3 = (RND * 200) + 270
86. lyy3 = (RND * 200) + 170
87. RANDOMIZE TIMER
88. lxx4 = (RND * 60) + 370
89. lyy4 = (RND * 60) + 270
90. RANDOMIZE TIMER
91. lxx5 = (RND * 200) + 270
92. lyy5 = (RND * 200) + 170
93.  
94.  
95. DO
96.     _LIMIT 500
97.     oldlx2 = lxx2
98.     oldly2 = lyy2
99.     oldlx4 = lxx4
100.     oldly4 = lyy4
101.     IF lxx2 < lxx3 THEN dxx = 10
102.     IF lxx2 > lxx3 THEN dxx = -10
103.     IF lyy2 < lyy3 THEN dyy = 10
104.     IF lyy2 > lyy3 THEN dyy = -10
105.  
106.     IF lxx4 < lxx5 THEN dxx2 = 10
107.     IF lxx4 > lxx5 THEN dxx2 = -10
108.     IF lyy4 < lyy5 THEN dyy2 = 10
109.     IF lyy4 > lyy5 THEN dyy2 = -10
110.     RANDOMIZE TIMER
111.     dx = (RND * 8) - 4
112.     dy = (RND * 8) - 4
113.     RANDOMIZE TIMER
114.     dx2 = (RND * 8) - 4
115.     dy2 = (RND * 8) - 4
116.     lxx2 = lxx2 + dx
117.     lyy2 = lyy2 + dy
118.     lxx2 = lxx2 + dxx
119.     lyy2 = lyy2 + dyy
120.     lxx4 = lxx4 + dx2
121.     lyy4 = lyy4 + dy2
122.     lxx4 = lxx4 + dxx2
123.     lyy4 = lyy4 + dyy2
124.     LINE (oldlx2, oldly2)-(lxx2, lyy2), _RGB32(155, 155, 155)
125.     LINE (oldlx4, oldly4)-(lxx4, lyy4), _RGB32(155, 155, 155)
126.     ttt2 = ttt2 + 1
127.     IF ttt2 > 10 THEN GOTO nex2:
128. LOOP
129.  
130. nex2:
131. LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
132. ttt2 = 0
133. _DISPLAY
134. GOTO go:
135. 'Going back to the start of Main Loop.
136.  
137.  

[SierraKen]

Here is the final version of my Lightning Globe (most likely). I made a stand and changed the colors of the electricity to a bright purple like the real ones are. I also made filled in circles to where the lightning begins in the center and larger ones where they end.

Code: QB64: [Select]

1. 'This program was made on Sept. 5, 2019 by Ken G.
2. 'Thank you to B+ and Steve for the inspiration and some help.
3. _TITLE "Lightning Globe by Ken G. - Use Mouse and Left Mouse Button On the Globe. Esc to end."
4. _SCREENMOVE 400, 60
5. SCREEN _NEWIMAGE(800, 600, 32)
6. x = 400
7. y = 300
8. c = 1
9. st = 2
10. go:
11. a$ = INKEY$
12. IF a$ = CHR$(27) THEN END
13. _LIMIT 1000
14. LINE (400, 300)-(150, 600), _RGB32(50, 50, 50)
15. LINE (400, 300)-(650, 600), _RGB32(50, 50, 50)
16. LINE (150, 600)-(650, 600), _RGB32(50, 50, 50)
17. PAINT (500, 580), _RGB32(50, 50, 50)
18.  
19. FOR sz = 1 TO 200 STEP .25
20.     c = c + .05 + r
21.     CIRCLE (x, y), sz, _RGB32(c, c / 2, c)
22. NEXT sz
23. c = 0
24. FOR sz = 1 TO 30 STEP .25
25.     c = c + .005
26.     CIRCLE (x, y), sz, _RGB32(c, c, c)
27. NEXT sz
28.  
29. WHILE _MOUSEINPUT: WEND
30. handx = _MOUSEX: handy = _MOUSEY: MB = _MOUSEBUTTON(1)
31.  
32. IF l > 500 THEN l = 500
33. IF l < 50 THEN l = 50
34.  
35. IF MB = -1 AND _HYPOT(handx - 400, handy - 300) < 200 THEN
36.     r = .1
37.     RANDOMIZE TIMER
38.     lxx = (RND * 60) + 370
39.     lyy = (RND * 60) + 270
40.     RANDOMIZE TIMER
41.     lxxx = (RND * 60) + 370
42.     lyyy = (RND * 60) + 270
43.     bolts = INT(RND * 100) + 1
44.     CIRCLE (lxx, lyy), 4, _RGB32(255, 245, 255)
45.     PAINT (lxx, lyy), _RGB32(255, 245, 255)
46.     IF bolts > 50 THEN
47.         CIRCLE (lxxx, lyyy), 4, _RGB32(255, 245, 255)
48.         PAINT (lxxx, lyyy), _RGB32(255, 245, 255)
49.     END IF
50.  
51.     DO
52.         _LIMIT 1000
53.         oldlx = lxx
54.         oldly = lyy
55.         oldlxx = lxxx
56.         oldlyy = lyyy
57.         IF lxx < handx THEN dxx = 10
58.         IF lxx > handx THEN dxx = -10
59.         IF lyy < handy THEN dyy = 10
60.         IF lyy > handy THEN dyy = -10
61.         IF lxxx < handx THEN dxxx = 10
62.         IF lxxx > handx THEN dxxx = -10
63.         IF lyyy < handy THEN dyyy = 10
64.         IF lyyy > handy THEN dyyy = -10
65.         RANDOMIZE TIMER
66.         dx = (RND * 8) - 4
67.         dy = (RND * 8) - 4
68.         RANDOMIZE TIMER
69.         dxxxx = (RND * 8) - 4
70.         dyyyy = (RND * 8) - 4
71.         lxx = lxx + dx
72.         lyy = lyy + dy
73.         lxx = lxx + dxx
74.         lyy = lyy + dyy
75.         lxxx = lxxx + dxxxx
76.         lyyy = lyyy + dyyyy
77.         lxxx = lxxx + dxxx
78.         lyyy = lyyy + dyyy
79.         LINE (oldlx, oldly)-(lxx, lyy), _RGB32(255, 230, 255)
80.         IF bolts > 50 THEN LINE (oldlxx, oldlyy)-(lxxx, lyyy), _RGB32(255, 230, 255)
81.         ttt = ttt + 1
82.         IF ttt > 20 THEN
83.             CIRCLE (lxx, lyy), 10, _RGB32(255, 245, 255)
84.             PAINT (lxx, lyy), _RGB32(255, 245, 255)
85.             GOTO nex:
86.         END IF
87.     LOOP
88. END IF
89. r = 0
90. nex:
91. ttt = 0
92. RANDOMIZE TIMER
93. lxx2 = (RND * 60) + 370
94. lyy2 = (RND * 60) + 270
95. RANDOMIZE TIMER
96. lxx3 = (RND * 200) + 270
97. lyy3 = (RND * 200) + 170
98. RANDOMIZE TIMER
99. lxx4 = (RND * 60) + 370
100. lyy4 = (RND * 60) + 270
101. RANDOMIZE TIMER
102. lxx5 = (RND * 200) + 270
103. lyy5 = (RND * 200) + 170
104.  
105. CIRCLE (lxx2, lyy2), 4, _RGB32(255, 245, 255)
106. PAINT (lxx2, lyy2), _RGB32(255, 245, 255)
107. CIRCLE (lxx4, lyy4), 4, _RGB32(255, 245, 255)
108. PAINT (lxx4, lyy4), _RGB32(255, 245, 255)
109.  
110. DO
111.     _LIMIT 1000
112.     oldlx2 = lxx2
113.     oldly2 = lyy2
114.     oldlx4 = lxx4
115.     oldly4 = lyy4
116.     IF lxx2 < lxx3 THEN dxx = 10
117.     IF lxx2 > lxx3 THEN dxx = -10
118.     IF lyy2 < lyy3 THEN dyy = 10
119.     IF lyy2 > lyy3 THEN dyy = -10
120.  
121.     IF lxx4 < lxx5 THEN dxx2 = 10
122.     IF lxx4 > lxx5 THEN dxx2 = -10
123.     IF lyy4 < lyy5 THEN dyy2 = 10
124.     IF lyy4 > lyy5 THEN dyy2 = -10
125.     RANDOMIZE TIMER
126.     dx = (RND * 8) - 4
127.     dy = (RND * 8) - 4
128.     RANDOMIZE TIMER
129.     dx2 = (RND * 8) - 4
130.     dy2 = (RND * 8) - 4
131.     lxx2 = lxx2 + dx
132.     lyy2 = lyy2 + dy
133.     lxx2 = lxx2 + dxx
134.     lyy2 = lyy2 + dyy
135.     lxx4 = lxx4 + dx2
136.     lyy4 = lyy4 + dy2
137.     lxx4 = lxx4 + dxx2
138.     lyy4 = lyy4 + dyy2
139.     LINE (oldlx2, oldly2)-(lxx2, lyy2), _RGB32(255, 161, 255)
140.     LINE (oldlx4, oldly4)-(lxx4, lyy4), _RGB32(255, 161, 255)
141.     ttt2 = ttt2 + 1
142.     IF ttt2 > 50 THEN
143.         CIRCLE (lxx2, lyy2), 8, _RGB32(255, 230, 255)
144.         PAINT (lxx2, lyy2), _RGB32(255, 230, 255)
145.         CIRCLE (lxx4, lyy4), 8, _RGB32(255, 230, 255)
146.         PAINT (lxx4, lyy4), _RGB32(255, 230, 255)
147.         GOTO nex2:
148.     END IF
149. LOOP
150.  
151. nex2:
152. LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
153. ttt2 = 0
154. _DISPLAY
155. GOTO go:
156. 'Going back to the start of Main Loop.
157.  
158.