Posts: 300
Threads: 16
Joined: Apr 2022
Reputation:
51
I was aiming for a negative reputation, a nice red, but we're in too deep now
Posts: 3,927
Threads: 175
Joined: Apr 2022
Reputation:
214
(09-19-2023, 06:54 PM)vince Wrote: I was aiming for a negative reputation, a nice red, but we're in too deep now
And normally I'd aim to please but I don't think so now, it is too late, so sorry ;(
b = b + ...
Posts: 300
Threads: 16
Joined: Apr 2022
Reputation:
51
new mod
Code: (Select All) sw = 1024
sh = 480
dim shared m
m = 20
screen _newimage(sw, sh+1, 32)
do
t = t + 0.02
m = 25+20*sin(t)
cls
tri 0, sh, sw/2, 0, sw, sh, 10
_display
_limit 50
loop
sleep
system
sub tri(x1,y1, x2,y2, x3,y3, n)
if n < 1 then exit sub
'line (x1,y1)-(x2,y2)
'line -(x3,y3)
'line -(x1,y1)
cx = (x1 + x3)/2
cy = (y1 + y3)/2
'line (cx, cy) - (x2, y2), _rgb(255,0,0)
a = _atan2(y3-y1, x3-x1)
d = sqr((cy - y2)^2 + (cx - x2)^2)
w = d*tan(sqr(n)/m)
nx = 1*(w)*cos(a)
ny = 1*(w)*sin(a)
line (cx, cy)-step(nx, ny),_rgb(255,255,0)
line -(x2, y2),_rgb(255,255,0)
line (cx, cy)-step(-nx, -ny),_rgb(255,255,0)
line -(x2, y2),_rgb(255,255,0)
line (x1,y1)-(x3,y3),_rgb(255,255,0)
tri x1,y1, cx - nx, cy - ny, x2, y2, n - 1
tri x3,y3, cx + nx, cy + ny, x2, y2, n - 1
end sub
Posts: 3,927
Threads: 175
Joined: Apr 2022
Reputation:
214
Oh that's nice! Glad to see you're still kick'n! ;-)
b = b + ...
Posts: 98
Threads: 1
Joined: Jun 2023
Reputation:
3
I'm with bplus, good to see have another one out. vince is me or you are doing a story between classic starfield and new mod? It looks like when you traveled to the end of the starfield you found this portal to go through. Does this means more programs to come? Hope you liked some of the fun links I done here. Just don't take this seriously.
Posts: 300
Threads: 16
Joined: Apr 2022
Reputation:
51
because I will lose this soon enough
Code: (Select All) sw = 800
sh = 600
screen _newimage(sw, sh, 32)
x = sw/2
y = sh/2
vx = 0
vy = 0
do
if _keydown(19200) then vx = vx - 3
if _keydown(19712) then vx = vx + 3
if _keydown(18432) then vy = vy - 3
if _keydown(20480) then vy = vy + 3
x = x + vx
y = y + vy
if vx > 0 then vx = vx - 1
if vy > 0 then vy = vy - 1
if vx < 0 then vx = vx + 1
if vy < 0 then vy = vy + 1
cls
line (x, y) - step(100, 100), _rgb(255,255,0),bf
_limit 30
_display
loop until _keyhit = 27
system
Posts: 3,927
Threads: 175
Joined: Apr 2022
Reputation:
214
02-16-2024, 02:27 PM
(This post was last modified: 02-16-2024, 02:33 PM by bplus.)
Interesting don't see any jerkiness with acceleration using vx, vy.
Here is one I don't want to lose, now that I've got it figured out for minimal lines and processing:
Code: (Select All) sw = 800: sh = 600
Screen _NewImage(sw, sh, 32)
x = sw / 2: y = sh / 2
Do
Cls
kh& = _KeyHit
x = x + -5 * (kh& = 19200) * (x > 0) + 5 * (kh& = 19712) * (x < sw)
y = y + -5 * (kh& = 18432) * (y > 0) + 5 * (kh& = 20480) * (y < sh)
Line (x - 50, y - 50)-Step(100, 100), _RGB(255, 255, 0), BF
_Limit 300 ' 10 is too choppy 30 OK? 300! doesn't seem 10 X's faster than 30
_Display
Loop Until kh& = 27
System
How boring never allowed outside the box
You can replace all 5's will variable v for velocity and maybe for acceleration too if you want.
b = b + ...
Posts: 300
Threads: 16
Joined: Apr 2022
Reputation:
51
fixed window resizing on my favourite game
Posts: 54
Threads: 1
Joined: Apr 2022
Reputation:
7
02-17-2024, 03:04 AM
(This post was last modified: 06-05-2024, 09:06 AM by Sprezzo.)
-----
Posts: 3,927
Threads: 175
Joined: Apr 2022
Reputation:
214
(02-17-2024, 03:04 AM)Sprezzo Wrote: love it. this is the most infuriating game in the universe.
Well I'd take my hacker skills and keep fixing it until it was fun!
b = b + ...
|