MasterGy is looking for ideas to implement ("i suffer")

[bplus]

If the world weren't flat Flappy could fly around the pipes :-))

[Pete]

Put a moose in thar and sum cross hairs an ye got youself a real fun shootin game, varmint!

 - Sam

[bplus]

Put a moose in thar and sum cross hairs an ye got youself a real fun shootin game, varmint!

 - Sam

Or maybe a horse that looks allot like somebodies else logo, and don't horse around by shooting at them, race them.

[Pete]

Hey, I could program that in SCREEN 0. Of course it would be a horse's ascii.

Pete

[MasterGy]

infinite space illusion .control WASD and mouse

Code: QB64: [Select]

1. RANDOMIZE TIMER
2. DIM col(99) AS _INTEGER64, tris(19999, 10), points(19999, 10), cam(19), me(19)
3. dim_s = 1000 'size of space
4. max_vol = .4 'kocka darabszam a dim_s-hez kepest szazalekban
5. d_min = 4 'csucs min
6. d_max = 7 'csucs max
7. r_min = 50 'legkisebb sugar
8. r_max = 50 'legnagyobb_sugar
9. rot_min = 1 / 100 'forgatas min sebesseg
10. rot_max = 2 / 100 'forgatas max sebesseg
11. sp_kalib = 3
12. sp_min = .5 * sp_kalib
13. sp_max = 2.5 * sp_kalib
14.  
15. crash = 1
16. text_c = 50
17. text_d = 150
18. text_m = 7
19. text_col = 70
20.  
21. msenx = .05 'mouse sensitive XY
22. msenz = .08 'mouse sensitive Z
23.  
24. pre_calc = 2 'calculation for step multiplier impact test
25. stepping = 10 'movement speed
26. max_couch = 70 'correct angle of impact tolerance
27. zoom_calib = .01
28. zoom_xy = 20 * zoom_calib '_maptriangle multiplier XY
29. zoom_distance = 60 * zoom_calib 'maptriangle multiplier Z (as large as fisheye optics)
30.  
31.  
32.  
33.  
34. pip180 = _PI / 180
35.  
36. '-------------------------------------------------------------------------------------------------------------------------------------------------------
37.  
38. 'creating textures
39. FOR t = 0 TO text_col - 1: col(t) = _RGB32(256 * RND(1), 256 * RND(1), 256 * RND(1)): NEXT t 'set object colors
40. DIM text(text_c - 1)
41. FOR t = 0 TO text_c - 1: temp = _NEWIMAGE(text_d, text_d, 32): _DEST temp: CLS
42.     LINE (text_m, text_m)-(text_d - 1 - text_m, text_d - 1 - text_m), col(INT(text_col * RND(1))), BF
43.     text(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
44. NEXT t
45.  
46. 'creating 3d points
47. DIM ob(9999, 19)
48. DO WHILE volume_sum < dim_s ^ 3 / 100 * max_vol
49.  
50.     DO: re = 0: 'hova, es mekkora ?
51.         ob(a_ob, 0) = INT(d_min + (d_max - d_min) * RND(1)) 'resolution 360/da degree horisontal DA
52.         ob(a_ob, 1) = INT(d_min + (d_max - d_min) * RND(1)) 'resolution 360/db degree vertical     DB
53.         ob(a_ob, 2) = points 'start ponits
54.         ob(a_ob, 3) = r_min + (r_max - r_min) * RND(1) 'sugar
55.         FOR t = 4 TO 6: ob(a_ob, t) = ob(a_ob, 3) + (dim_s - ob(a_ob, 3) * 2) * RND(1): NEXT t
56.         IF a_ob THEN
57.             FOR t = 0 TO a_ob - 1
58.                 dis1 = ((ob(a_ob, 4) - ob(t, 4)) ^ 2 + (ob(a_ob, 5) - ob(t, 5)) ^ 2 + (ob(a_ob, 6) - ob(t, 6)) ^ 2)
59.                 dis2 = (ob(a_ob, 3) + ob(t, 3)) ^ 2
60.                 re = re OR (dis2 > dis1)
61.             NEXT t
62.         END IF
63.     LOOP WHILE re
64.     FOR t = 7 TO 9: ob(a_ob, t) = rot_min + (rot_max - rot_min) * RND(1): NEXT t 'random rotating arrow,speed
65.     FOR t = 10 TO 12: ob(a_ob, t) = 360 * RND(1): NEXT t 'actual rotate
66.     ob(a_ob, 14) = 360 * RND(1) 'radA arrow random
67.     ob(a_ob, 15) = 360 * RND(1) 'radB arrow random
68.     ob(a_ob, 16) = sp_min + (sp_max - sp_min) * RND(1) 'random speed
69.  
70.  
71.     'creating squares
72.     FOR da2 = 0 TO ob(a_ob, 0) - 2: FOR db2 = 0 TO ob(a_ob, 1) - 2
73.             p0 = da2 * ob(a_ob, 1) + db2 + ob(a_ob, 2): p1 = p0 + 1: p2 = p0 + ob(a_ob, 1): p3 = p2 + 1: text_act = INT(text_c * RND(1))
74.             tris(triangles, 0) = 1: tris(triangles, 1) = p0: tris(triangles, 2) = p1: tris(triangles, 3) = p2: tris(triangles, 4) = 0: tris(triangles, 5) = 0
75.             tris(triangles, 6) = text_d - 1: tris(triangles, 7) = 0: tris(triangles, 8) = 0: tris(triangles, 9) = text_d - 1: tris(triangles, 10) = text_act
76.             triangles = triangles + 1
77.             tris(triangles, 0) = 1: tris(triangles, 1) = p3: tris(triangles, 2) = p1: tris(triangles, 3) = p2: tris(triangles, 4) = text_d - 1
78.             tris(triangles, 5) = text_d - 1: tris(triangles, 6) = text_d - 1: tris(triangles, 7) = 0: tris(triangles, 8) = 0: tris(triangles, 9) = text_d - 1: tris(triangles, 10) = text_act
79.             triangles = triangles + 1
80.     NEXT db2, da2
81.  
82.     points = points + ob(a_ob, 0) * ob(a_ob, 1)
83.     volume_sum = volume_sum + (4 * ob(a_ob, 3) ^ 3 * _PI / 3)
84.     a_ob = a_ob + 1
85. LOOP
86.  
87.  
88.  
89.  
90. mon = _NEWIMAGE(_DESKTOPWIDTH, _DESKTOPHEIGHT, 32): SCREEN mon: _FULLSCREEN: _DEST mon
91.  
92.  
93.  
94.  
95. DO: _LIMIT 100
96.  
97.     'control
98.     kw = _KEYDOWN(119) OR _MOUSEBUTTON(1): ks = _KEYDOWN(115) OR _MOUSEBUTTON(2): ka = _KEYDOWN(97): kd = _KEYDOWN(100): et_ir = (ABS(ka OR kd OR kw) OR -ABS(ks))
99.     ir = 0: IF inv_me10 = -1 THEN SWAP ka, kd
100.     FOR elt1 = 0 TO max_couch STEP 2: FOR elt2 = 0 TO 360 STEP 12: IF ir = 0 THEN
101.                 elt_xy = SIN(elt2 * pip180) * elt1: elt_z = COS(elt2 * pip180) * elt1
102.                 szog_xy_elt = -90 * ABS(ka) + 90 * ABS(kd): szog_xy = me(10) + (szog_xy_elt + elt_xy) * pip180: szog_z = me(11) + pip180 * (90 + elt_z)
103.                 irx = -SIN(szog_xy) * COS(szog_z): iry = -COS(szog_xy) * COS(szog_z): irz = SIN(szog_z): ir = et_ir: multi = stepping * ir * pre_calc * 2
104.                 multi = stepping * ir / max_couch * (max_couch - elt1): me(0) = me(0) + irx * multi: me(1) = me(1) + iry * multi
105.     me(2) = me(2) + irz * multi: END IF: NEXT elt2, elt1
106.  
107.     mousex = 0: mousey = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: WEND: me(11) = me(11) + mousey / 7 * msenz
108.     me(11) = me(11) - 2 * _PI * ABS(me(11) > 2 * _PI): me(11) = me(11) + 2 * _PI * ABS(me(11) < 0): inv_me10 = 1: IF me(11) < _PI THEN inv_me10 = -1
109.     me(10) = me(10) + mousex / 5 * msenx * inv_me10
110.  
111.  
112.     FOR t = 0 TO 2
113.         IF me(t) < 0 THEN me(t) = me(t) + dim_s
114.         IF me(t) > dim_s - 1 THEN me(t) = me(t) - dim_s
115.     NEXT t
116.  
117.  
118.  
119.  
120.     'calculating objection points
121.     FOR act_ob = 0 TO a_ob - 1
122.         FOR da2 = 0 TO ob(act_ob, 0) - 1: dega = (360 / (ob(act_ob, 0) - 1) * da2) * pip180
123.             FOR db2 = 0 TO ob(act_ob, 1) - 1: degb = (180 / (ob(act_ob, 1) - 1) * db2) * pip180
124.                 ap = da2 * ob(act_ob, 1) + db2 + ob(act_ob, 2)
125.                 x1 = SIN(degb) * COS(dega): y1 = SIN(degb) * SIN(dega): z1 = COS(degb)
126.                 x2 = (x1 * COS(ob(act_ob, 12))) - (y1 * SIN(ob(act_ob, 12))): y2 = (x1 * SIN(ob(act_ob, 12))) + (y1 * COS(ob(act_ob, 12)))
127.                 x3 = (x2 * COS(ob(act_ob, 11))) - (z1 * SIN(ob(act_ob, 11))): z2 = (x2 * SIN(ob(act_ob, 11))) + (z1 * COS(ob(act_ob, 11)))
128.                 y3 = (y2 * COS(ob(act_ob, 10))) - (z2 * SIN(ob(act_ob, 10))): z3 = (y2 * SIN(ob(act_ob, 10))) + (z2 * COS(ob(act_ob, 10)))
129.                 points(ap, 1) = x3 * ob(act_ob, 3) + ob(act_ob, 4)
130.                 points(ap, 2) = y3 * ob(act_ob, 3) + ob(act_ob, 5)
131.                 points(ap, 3) = z3 * ob(act_ob, 3) + ob(act_ob, 6)
132.     NEXT db2, da2, act_ob
133.  
134.  
135.  
136.  
137.  
138.     'calculating view
139.     me(5) = 0
140.     cam(0) = me(0) - SIN(me(10) - 180 * pip180) * me(3) / 2
141.     cam(1) = me(1) - COS(me(10) - 180 * pip180) * me(3) / 2
142.     cam(2) = me(2) + me(5) / 4
143.     cam(3) = me(10)
144.     cam(4) = me(11)
145.     cosrotz = COS(cam(3)): sinrotz = SIN(cam(3)): cosrotx = COS(cam(4)): sinrotx = SIN(cam(4))
146.  
147.     nei = 1
148.     FOR cx = -nei TO nei: cx2 = cx * dim_s: FOR cy = -nei TO nei: cy2 = cy * dim_s: FOR cz = -nei TO nei: cz2 = cz * dim_s
149.  
150.                 FOR actual_point = 0 TO points - 1: IF points(actual_point, 1) THEN
151.                         px = points(actual_point, 1) - cam(0) + cx2
152.                         py = points(actual_point, 2) - cam(1) + cy2
153.                         pz2 = points(actual_point, 3) - cam(2) + cz2
154.                         px3 = px * cosrotz - py * sinrotz: py2 = px * sinrotz + py * cosrotz: py3 = py2 * cosrotx - pz2 * sinrotx: pz3 = py2 * sinrotx + pz2 * cosrotx
155.                 points(actual_point, 4) = -px3 * zoom_xy: points(actual_point, 5) = -py3 * zoom_xy: points(actual_point, 6) = -pz3 * zoom_distance: END IF: NEXT actual_point
156.  
157.                 'drawing triangles
158.                 FOR actual_triangle = 0 TO triangles - 1
159.                     wx1 = points(tris(actual_triangle, 1), 4): wy1 = points(tris(actual_triangle, 1), 5): wz1 = points(tris(actual_triangle, 1), 6)
160.                     wx2 = points(tris(actual_triangle, 2), 4): wy2 = points(tris(actual_triangle, 2), 5): wz2 = points(tris(actual_triangle, 2), 6)
161.                     wx3 = points(tris(actual_triangle, 3), 4): wy3 = points(tris(actual_triangle, 3), 5): wz3 = points(tris(actual_triangle, 3), 6)
162.                     sx1 = tris(actual_triangle, 4): sy1 = tris(actual_triangle, 5)
163.                     sx2 = tris(actual_triangle, 6): sy2 = tris(actual_triangle, 7)
164.                     sx3 = tris(actual_triangle, 8): sy3 = tris(actual_triangle, 9)
165.  
166.  
167.                     _MAPTRIANGLE (sx1, sy1)-(sx2, sy2)-(sx3, sy3), text(tris(actual_triangle, 10)) TO(wx1, wy1, wz1)-(wx2, wy2, wz2)-(wx3, wy3, wz3), , _SMOOTH
168.  
169.                 NEXT actual_triangle
170.     NEXT cz, cy, cx
171.     _DISPLAY: CLS
172.  
173.     'moving/rotating objects
174.     FOR act_ob = 0 TO a_ob - 1
175.         FOR t = 0 TO 2: ob(act_ob, 10 + t) = ob(act_ob, 10 + t) + ob(act_ob, 7 + t): NEXT t 'rotating
176.  
177.         DO
178.             ar(0) = SIN(ob(act_ob, 15)) * COS(ob(act_ob, 14)): ar(1) = SIN(ob(act_ob, 15)) * SIN(ob(act_ob, 14)): ar(2) = COS(ob(act_ob, 15))
179.             FOR t = 0 TO 2
180.                 poss(t) = ob(act_ob, 4 + t) + ar(t) * ob(act_ob, 16)
181.                 IF poss(t) < 0 THEN poss(t) = poss(t) + dim_s
182.                 IF poss(t) > dim_s THEN poss(t) = poss(t) - dim_s
183.             NEXT t
184.             re = 0
185.             IF crash THEN
186.  
187.                 FOR an = 0 TO a_ob - 1: IF an = act_ob THEN _CONTINUE
188.                     dis2 = (ob(an, 3) + ob(act_ob, 3))
189.                     IF ABS(poss(0) - ob(an, 4)) > dis2 THEN _CONTINUE
190.                     IF ABS(poss(1) - ob(an, 5)) > dis2 THEN _CONTINUE
191.                     IF ABS(poss(2) - ob(an, 6)) > dis2 THEN _CONTINUE
192.                     dis1 = SQR((poss(0) - ob(an, 4)) ^ 2 + (poss(1) - ob(an, 5)) ^ 2 + (poss(2) - ob(an, 6)) ^ 2)
193.                     re = (dis2 > dis1): IF re THEN EXIT FOR
194.                 NEXT an
195.  
196.                 IF re THEN
197.                     ob(act_ob, 14) = 360 * RND(1) 'radA arrow random
198.                     ob(act_ob, 15) = 360 * RND(1) 'radB arrow random
199.                     ob(act_ob, 16) = sp_min + (sp_max - sp_min) * RND(1) 'random speed
200.                     FOR t = 7 TO 9: ob(act_ob, t) = rot_min + (rot_max - rot_min) * RND(1): NEXT t 'random rotating arrow,speed
201.                 END IF
202.             END IF
203.         LOOP WHILE re
204.  
205.         FOR t = 0 TO 2: ob(act_ob, 4 + t) = poss(t): NEXT t
206.  
207.     NEXT act_ob
208.  
209. LOOP
210.  
211.  
212.  
213.  
214.  

[bplus]

@MasterGy  That! is an interesting start to something but something is a bit off, not sure what, are you sensing it?

Plus I am giving giving you a ticket for all the double, triple, quadruple, quin... parking you are doing here:

Code: QB64: [Select]

1.     'control
2.     kw = _KEYDOWN(119) OR _MOUSEBUTTON(1): ks = _KEYDOWN(115) OR _MOUSEBUTTON(2): ka = _KEYDOWN(97): kd = _KEYDOWN(100): et_ir = (ABS(ka OR kd OR kw) OR -ABS(ks))
3.     ir = 0: IF inv_me10 = -1 THEN SWAP ka, kd
4.     FOR elt1 = 0 TO max_couch STEP 2: FOR elt2 = 0 TO 360 STEP 12: IF ir = 0 THEN
5.                 elt_xy = SIN(elt2 * pip180) * elt1: elt_z = COS(elt2 * pip180) * elt1
6.                 szog_xy_elt = -90 * ABS(ka) + 90 * ABS(kd): szog_xy = me(10) + (szog_xy_elt + elt_xy) * pip180: szog_z = me(11) + pip180 * (90 + elt_z)
7.                 irx = -SIN(szog_xy) * COS(szog_z): iry = -COS(szog_xy) * COS(szog_z): irz = SIN(szog_z): ir = et_ir: multi = stepping * ir * pre_calc * 2
8.                 multi = stepping * ir / max_couch * (max_couch - elt1): me(0) = me(0) + irx * multi: me(1) = me(1) + iry * multi
9.     me(2) = me(2) + irz * multi: END IF: NEXT elt2, elt1
10.  

LOL!

szog? has me irx'd elt kw'd, pip180 at least! ;-))

[MasterGy]

I'll tell you honestly that I've gathered so many programs that I've just flipped through the controls and the display system. (copy/paste form 3d maze) The part of the program you copied is meant to make you go and hit a wall, so don’t stop, but look for the nearest direction. The larger the deviation, the slower the step will be. There is no space detection here, so there is no function for this part, but you can expand the program with space detection in an instant.

[MasterGy]

the larger the "try", so the deviation, the magnitude of the displacement, will be smaller. given by the "multi" variable. The drawing shows the operation in 2d, in the program in 3d.

  [ You are not allowed to view this attachment ]  

[MasterGy]

Here I wanted to see the spacecraft go and those rocks or planets, the bigger, the bigger their gravitational field. You can have fun with the mouse. The left mouse gives the gas to the spaceship. Here you can have fun with the landing, or when you pass a planet, you can feel how much you need to change the trajectory (drag your mouse) to avoid crashing. You can zoom with the mouse wheel.

Code: QB64: [Select]

1. RANDOMIZE TIMER
2. CONST pip180 = 3.141592654 / 180
3.  
4. global_speed = 1.5
5. space_grav = 15
6. space = 1000 'space size x-y
7. planets = 600
8. planetsize_min = 1
9. planetsize_max = 12
10. planet_dif = .05
11. cr_c_max = 199
12. zoom = 10
13. me_buffer_size = 5000
14.  
15. 'creating 2d planet
16. DIM cr(planets - 1, cr_c_max - 1, 1), cr_dat(planets - 1, 3), me_buffer(me_buffer_size - 1, 1)
17. 'cd_dat 0-x,1-y,2-size,3-polars
18. FOR aplanet = 0 TO planets - 1
19.     cr_dat(aplanet, 2) = planetsize_min + (planetsize_max - planetsize_min) * RND(1) 'planet size
20.     cr_l1 = (1 - planet_dif) * cr_dat(aplanet, 2)
21.     cr_l2 = (1 + planet_dif) * cr_dat(aplanet, 2)
22.     cr_dat(aplanet, 0) = space * RND(1) - space / 2 'X position
23.     cr_dat(aplanet, 1) = space * RND(1) - space / 2 'Y position
24.     cr_dat(aplanet, 3) = INT(cr_dat(aplanet, 2) * 6) 'polars
25.  
26.     FOR t = 0 TO cr_dat(aplanet, 3) - 1
27.         cr_r = cr_l1 + (cr_l2 - cr_l1) * RND(1)
28.         cr(aplanet, t, 0) = SIN(360 / cr_dat(aplanet, 3) * t * pip180) * cr_r
29.         cr(aplanet, t, 1) = COS(360 / cr_dat(aplanet, 3) * t * pip180) * cr_r
30. NEXT t, aplanet
31.  
32.  
33.  
34.  
35. me_x = 0 'my Xpos
36. me_y = 0 'my Ypos
37. me_a = 30 'my angle
38. me_size = 2 'arrow size
39. me_size_a = .4
40.  
41. mon = _NEWIMAGE(800, 600, 32): SCREEN mon: _FULLSCREEN: _MOUSEHIDE
42. centx = _WIDTH(mon) / 2: centy = _HEIGHT(mon) / 2
43.  
44.  
45. DO: _LIMIT 20
46.  
47.     'draw me
48.     y1 = centy - me_size / 2 * zoom
49.     y2 = y1 + me_size * zoom
50.     LINE (centx, y1)-(centx, y2)
51.     y2 = y1 + me_size_a * zoom
52.     LINE (centx, y1)-(centx - me_size_a * zoom, y2)
53.     LINE (centx, y1)-(centx + me_size_a * zoom, y2)
54.  
55.  
56.     'my position center, but where any object ?
57.  
58.     grav_x = 0: grav_y = 0: grav_active = 0
59.  
60.     FOR aplanet = 0 TO planets - 1
61.         angle1 = degree(me_x - cr_dat(aplanet, 0), me_y - cr_dat(aplanet, 1)) 'how many degree
62.         angle2 = angle1 + angle_me '+arrow
63.  
64.         distance = SQR((me_x - cr_dat(aplanet, 0)) ^ 2 + (me_y - cr_dat(aplanet, 1)) ^ 2)
65.  
66.         cr_cx = (SIN(angle2 * pip180)) * distance 'planet origo position on monitor
67.         cr_cy = (COS(angle2 * pip180)) * distance
68.  
69.         FOR t = 0 TO cr_dat(aplanet, 3)
70.             IF t = cr_dat(aplanet, 3) THEN t2 = 0 ELSE t2 = t
71.             px = cr(aplanet, t2, 0)
72.             py = cr(aplanet, t2, 1)
73.             angle_r = angle_me * pip180
74.             px2 = (px * COS(angle_r)) + (py * SIN(angle_r))
75.             py2 = (py * COS(angle_r)) - (px * SIN(angle_r))
76.             px = (px2 + cr_cx) * zoom + centx
77.             py = (py2 + cr_cy) * zoom + centy
78.             IF t THEN LINE (px, py)-(px_l, py_l)
79.             px_l = px: py_l = py
80.         NEXT t
81.  
82.         'gravity planet
83.         IF distance < space / 100 * space_grav THEN
84.             grav_active = grav_active + 1
85.             gravity = cr_dat(aplanet, 2) ^ 2 / distance ^ 2
86.             'IF gravity > .01 THEN gravity = .01
87.             grav_x = grav_x + SIN(angle1 * pip180) * gravity
88.             grav_y = grav_y + COS(angle1 * pip180) * gravity
89.  
90.         END IF
91.     NEXT aplanet
92.  
93.     'draw my way
94.     FOR a_buff = 0 TO me_buffer_size - 1: IF me_buffer(a_buff, 0) = 0 THEN _CONTINUE
95.         angle1 = degree(me_x - me_buffer(a_buff, 0), me_y - me_buffer(a_buff, 1)) 'how many degree
96.         angle2 = angle1 + angle_me '+arrow
97.  
98.         distance = SQR((me_x - me_buffer(a_buff, 0)) ^ 2 + (me_y - me_buffer(a_buff, 1)) ^ 2)
99.  
100.         cr_cx = (SIN(angle2 * pip180)) * distance 'planet origo position on monitor
101.         cr_cy = (COS(angle2 * pip180)) * distance
102.  
103.         PSET (centx + cr_cx * zoom, centy + cr_cy * zoom)
104.     NEXT a_buff
105.  
106.  
107.  
108.  
109.  
110.  
111.     'control
112.     mw = 0: mousex = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mw = mw + _MOUSEWHEEL: WEND: angle_me = angle_me + mousex
113.     IF _MOUSEBUTTON(1) THEN speed = speed + .05
114.     IF _MOUSEBUTTON(2) THEN speed = speed - .05
115.  
116.  
117.  
118.     'inertia vector
119.     speed = speed - .01 * SGN(speed)
120.     IF ABS(speed) > .5 THEN speed = .5 * SGN(speed)
121.  
122.  
123.     vector_x_my = -SIN(pip180 * angle_me) * speed * global_speed
124.     vector_y_my = -COS(pip180 * angle_me) * speed * global_speed
125.  
126.  
127.     'gravity vector
128.     angle_g = degree(grav_x, grav_y)
129.     strong = SQR((grav_x - me_x) ^ 2 + (grav_y - me_y) ^ 2): IF strong > 2 THEN strong = 2
130.     IF ABS(strong) > 1 THEN strong = 1 * SGN(strong)
131.     vector_x_grav = -SIN(pip180 * angle_g) * strong / 5 * global_speed
132.     vector_y_grav = -COS(pip180 * angle_g) * strong / 5 * global_speed
133.  
134.     'resulting vector
135.     me_x = me_x + vector_x_my + vector_x_grav
136.     me_y = me_y - vector_y_my + vector_y_grav
137.  
138.     IF me_x > space / 2 THEN me_x = me_x - space
139.     IF me_x < -space / 2 THEN me_x = me_x + space
140.     IF me_y > space / 2 THEN me_y = me_y - space
141.     IF me_y < -space / 2 THEN me_y = me_y + space
142.  
143.     me_buffer(me_buffer_a, 0) = me_x
144.     me_buffer(me_buffer_a, 1) = me_y
145.  
146.     me_buffer_a = me_buffer_a + 1: IF me_buffer_a = me_buffer_size THEN me_buffer_a = 0
147.  
148.     zoom = zoom + mw / 2
149.     IF zoom > 50 THEN zoom = 50
150.     IF zoom < .5 THEN zoom = .5
151.  
152.  
153.     'view
154.     _DISPLAY: CLS
155.     'LOCATE 1, 1
156.     'PRINT speed, SQR(grav_x ^ 2 + grav_y ^ 2)
157.     '    PRINT "grav_active:"; grav_active
158.  
159.  
160. LOOP
161.  
162.  
163. FUNCTION degree (a, b)
164.     qarany = (a + .00001) / (b + .00001): degree = honnan + ATN(qarany) / pip180
165.     IF 0 > b THEN degree = degree - 180
166.     IF degree < 0 THEN degree = degree + 360
167. END FUNCTION
168.  
169.  

[Aurel]

wow that is fast mouse move progie
but how to close program ??? ESC not work???

[bplus]

@Aurel Alt + F4 works, something to keep in mind for all these people who want full screen and forget about escape.

@MasterGy  very interesting, thanks :)  Interesting is you are getting the direction of mouse moves without tan, atan, or atan2 and instead of changing direction of mouse you change whole orientation of screen which is disorienting ;-)) but I wonder if smoother than my mouse action shooter? Also nice is doing so much with so little code!

[FellippeHeitor]

It feels like this thread should have been several many separate threads. @MasterGy Maybe a new thread should be started if the new code has no correlation with the previous.

[bplus]

It feels like this thread should have been several many separate threads. @MasterGy Maybe a new thread should be started if the new code has no correlation with the previous.

What is in common is that when an artist suffers he gets creative just to cheer himself up.

You've got to admit these are some very creative cheers :)

[FellippeHeitor]

It would be a shame if this ended up containing several cool looking pieces of code-art but ended up buried under the cryptic title "i suffer".

Much like all your new "tools" end up buried under "another one for your toolbox".

With no clear description of what the thread/post actually contains, content gets lost - not that that's not already a characteristic of forum boards, but we could at least make it more easily searchable.

[SpriggsySpriggs]

I agree with Fellippe. This thread seems like it has taken a few different directions from when it was first created.