03-14-2024, 07:00 PM (This post was last modified: 03-14-2024, 07:05 PM by Marcus.)
I managed to do some 3D related things last week, stuff that can help make the kind of games that 1micha.elok is working on. The s3d library used here is far from ready, fast or useful. But I think I'll stick to the 3D path for a while and see what's possible.
Edit You might need to install n7 version 24.03.10 for this to compile and run this without any crashes ...
(03-14-2024, 07:00 PM)Marcus Wrote: ... The s3d library used here ....
You might need to install n7 version 24.03.10 ...
TEST DRIVE
Three different themes on the racing game : winter, tropical, night click the image to zoom in
Control :
- movement : LEFT, RIGHT
- speed : UP, DOWN
- stop : SPACE
- theme selection : 1 = winter, 2 = tropical, 3 = night
- quit : ESC
- music,sound off : S
'========================================
' TEST DRIVE
'
' Control :
' - movement : LEFT, RIGHT
' - speed : UP, DOWN
' - stop : SPACE
' - theme selection : 1 = winter
' 2 = tropical
' 3 = night
' - quit : ESC
' - music,sound off : S
'
' Note :
' This game is just a proof of concept.
' There are still some tasks left opened.
' (collision, road track, finish line, etc.)
'
' Acknowledgements :
' This game would not be possible without
' 1. Marcus for New Libraries
' -s3d.n7 library, required version N7_240310
' -racing.n7, example how to use s3d library
' -SquareWave(), sfx.n7 library
' -DrawImageTransformed()
' 2. Johnno for every valuable suggestion
' 3. Sprites
' - https://pngtree.com/so/steering-wheel
' - https://opengameart.org/content/25d-racing-resources
' 4. Music and Acceleration Sound https://pixabay.com
'==============================================
'-----------------
' INITIALIZATION
'-----------------
' Marcus : A library that I'm working on, not finished at all, don't use it!
' Micha : Oops...sorry, I use it :)
include "assets/s3d.n7"
S3D_SetView(primary, rad(90), 0.1, 20)' Set up 3d view.
S3D_SetDirectMode(true) 'true = draw from back to front manually
include "assets/soundtune.n7"
include "assets/transform.n7"
#win32
'#dbg
set window "TEST DRIVE", 320, 240, false, 2
set redraw off
'color definition
white = [255,255,255]
white_alpha = [255,255,255,255]
gray = [218,218,218]
green = [0,200,0]
black = [50,50,50]
red = [255,0,0]
'misc initial values
projected = dim(4) ' Don't want to spawn too many tables in a game loop, reused for calculations.
lastTick = clock()
theme = 1 ;t1 = 1; t2=0; t3=0
playtune = 1
play music back.music_,1 'looping
timestart = 0
'-----------
' MAIN LOOP
'-----------
while not keydown(KEY_ESCAPE, true)
'Music and Sound control
if keydown(KEY_S,true) then
stop music back.music_
free music back.music_
playtune=0
endif
'delta time
t = clock(); dt = (t - lastTick)/1000; lastTick = t
'player position in z
player.z = player.z + player.speed*dt
' calculate camera y
if int(player.z) < sizeof(road) - 2
k = player.z%1
player.y = (1 - k)*road[int(player.z)].y + k*road[int(player.z) + 1].y - 0.5
else
player.y = road[sizeof(road) - 1].y - 0.5
endif
'player's control
if keydown(KEY_LEFT) then
player.x = player.x - player.speed*dt
player.wheel = 90+10
timestart = clock()
endif
if keydown(KEY_RIGHT) then
player.x = player.x + player.speed*dt
player.wheel = 90+5
timestart = clock()
endif
timeduration = (clock() - timestart)/1000
if timeduration > 0.5 then player.wheel = 0
if keydown(KEY_UP,true) and player.speed<12 then
player.speed = player.speed + 1
if playtune=1 then; play sound player.gas,1; endif
endif
if keydown(KEY_DOWN,true) and player.speed>=1 then
player.speed = player.speed - 1
if playtune=1 then; play sound player.gas,1; endif
endif
if player.speed > 1 then
player.speed = player.speed - 0.001
endif
if keydown(KEY_SPACE,true) player.speed = 0
'draw background image
set color white; draw image back[theme], 0, -80 - player.y*player.speed
for i = int(player.z) + 20 to int(player.z)
if i < sizeof(road) - 2
strips = strips + 1
' Do we need to fill with snow color to hide distant objects?
S3D_Project(projected, 0, road[i + 1].y, i + 1)
y0 = round(projected[1])
S3D_Project(projected, 0, road[i].y, i)
y1 = round(projected[1])
if y1 > y0
if not didFill
didFill = true
fills = fills + 1
set color land[theme]
draw rect 0, y0, width(primary), height(primary) - y0, true
set color white
endif
else
didFill = false
endif
' Draw road.
x0 = road[i].x
x1 = road[i + 1].x
set color white
S3D_Texture(road[theme].img)
S3D_Vertex(x0 - 2, road[i].y, i, 0, road.height_)
S3D_Vertex(x0 + 2, road[i].y, i, road.width_, road.height_)
S3D_Vertex(x1 + 2, road[i + 1].y, i + 1, road.width_, 0)
S3D_Vertex(x1 - 2, road[i + 1].y, i + 1, 0, 0)
' Draw sprites.
' Fade in.
z = (i + 1) - player.z
if z > 15
a = ((20 - z)/5)*255
set color white_alpha
endif
if i%20 = 0
S3D_Texture(tunnel[theme])
S3D_Vertex(road[i].x - 5, road[i].y + 0.2, i, 0, height(tunnel[1]))
S3D_Vertex(road[i].x + 5, road[i].y + 0.2, i, width(tunnel[1]), height(tunnel[1]))
S3D_Vertex(road[i].x + 5, road[i].y - 3.5, i, width(tunnel[1]), 0)
S3D_Vertex(road[i].x - 5, road[i].y - 3.5, i, 0, 0)
else
if i%2 = 0
S3D_Texture(tree[theme])
x = x0 - 2.5
S3D_Vertex(x - 0.4, road[i].y, i, 0, height(tree[theme]))
S3D_Vertex(x + 0.4, road[i].y, i, width(tree[theme]), height(tree[theme]))
S3D_Vertex(x + 0.4, road[i].y - 1, i, width(tree[theme]), 0)
S3D_Vertex(x - 0.4, road[i].y - 1, i, 0, 0)
else
S3D_Texture(tree[theme])
x = x0 + 2.5
S3D_Vertex(x - 0.4, road[i].y, i, 0, height(tree[theme]))
S3D_Vertex(x + 0.4, road[i].y, i, width(tree[theme]), height(tree[theme]))
S3D_Vertex(x + 0.4, road[i].y - 1, i, width(tree[theme]), 0)
S3D_Vertex(x - 0.4, road[i].y - 1, i, 0, 0)
endif
endif
endif
next
S3D_End()
'---------------------------------------------------------------------------------
'theme
set color red
set caret 250,190; wln "Theme"
draw rect 250,210,20,20,t1
draw rect 270,210,20,20,t2
draw rect 290,210,20,20,t3
if keydown(KEY_1,true) then 'winter
theme = 1; if playtune=1 then PlayTune(1)
t1=1;t2=0;t3=0
endif
if keydown(KEY_2,true) then 'tropical
theme = 2; if playtune=1 then PlayTune(1)
t1=0;t2=1;t3=0
endif
if keydown(KEY_3,true) then 'night
theme = 3; if playtune=1 then PlayTune(1)
t1=0;t2=0;t3=1
endif
'Speedometer
set color red; set caret 46,170; wln round(player.speed)
angle = player.speed*30
y = height(primary)-50
set color red
draw ellipse 50,y,40,40 ; draw ellipse 50,y,41,41
draw ellipse 50,y,5,5,1
draw line 49,y-1, 49+30*cos(rad(80+angle)),y-1+30*sin(rad(80+angle))
draw line 50,y , 50+30*cos(rad(80+angle)),y+30*sin(rad(80+angle))
draw line 51,y+1, 51+30*cos(rad(80+angle)),y+1+30*sin(rad(80+angle))
'Draw Player
set color white; Draw(player.img,170,220,player.wheel)
redraw
wait 1
wend
'-----------
' FUNCTIONS
'-----------
function Draw(img,x,y,a)
' DrawImageTransformed(image, x, y, scale_x, scaleY, angle, pivot_x, pivot_y)
' Parameter :
' image = .png format
' (x,y) = location of the image in the screen coordinates
' scale_x, scale_y = scale the image's size
' angle = in radian.
' (pivot_x, pivot_y) = center point of the image. E.g:(0,0) = top left.
x = x; y = y ; s = 1; a=a; px = width(img)/2; py = height(img)/2
DrawImageTransformed(img, x,y, s, s, a, px, py)
endfunc
03-15-2024, 09:38 PM (This post was last modified: 03-15-2024, 09:49 PM by Marcus.)
(03-15-2024, 11:35 AM)1micha.elok Wrote:
(03-14-2024, 07:00 PM)Marcus Wrote: ... The s3d library used here ....
You might need to install n7 version 24.03.10 ...
TEST DRIVE
Three different themes on the racing game : winter, tropical, night
click the image to zoom in
Control :
- movement : LEFT, RIGHT
- speed : UP, DOWN
- stop : SPACE
- theme selection : 1 = winter, 2 = tropical, 3 = night
- quit : ESC
- music,sound off : S
'========================================
' TEST DRIVE
'
' Control :
' - movement : LEFT, RIGHT
' - speed : UP, DOWN
' - stop : SPACE
' - theme selection : 1 = winter
' 2 = tropical
' 3 = night
' - quit : ESC
' - music,sound off : S
'
' Note :
' This game is just a proof of concept.
' There are still some tasks left opened.
' (collision, road track, finish line, etc.)
'
' Acknowledgements :
' This game would not be possible without
' 1. Marcus for New Libraries
' -s3d.n7 library, required version N7_240310
' -racing.n7, example how to use s3d library
' -SquareWave(), sfx.n7 library
' -DrawImageTransformed()
' 2. Johnno for every valuable suggestion
' 3. Sprites
' - https://pngtree.com/so/steering-wheel
' - https://opengameart.org/content/25d-racing-resources
' 4. Music and Acceleration Sound https://pixabay.com
'==============================================
'-----------------
' INITIALIZATION
'-----------------
' Marcus : A library that I'm working on, not finished at all, don't use it!
' Micha : Oops...sorry, I use it :)
include "assets/s3d.n7"
S3D_SetView(primary, rad(90), 0.1, 20)' Set up 3d view.
S3D_SetDirectMode(true) 'true = draw from back to front manually
include "assets/soundtune.n7"
include "assets/transform.n7"
#win32
'#dbg
set window "TEST DRIVE", 320, 240, false, 2
set redraw off
'color definition
white = [255,255,255]
white_alpha = [255,255,255,255]
gray = [218,218,218]
green = [0,200,0]
black = [50,50,50]
red = [255,0,0]
'misc initial values
projected = dim(4) ' Don't want to spawn too many tables in a game loop, reused for calculations.
lastTick = clock()
theme = 1 ;t1 = 1; t2=0; t3=0
playtune = 1
play music back.music_,1 'looping
timestart = 0
'-----------
' MAIN LOOP
'-----------
while not keydown(KEY_ESCAPE, true)
'Music and Sound control
if keydown(KEY_S,true) then
stop music back.music_
free music back.music_
playtune=0
endif
'delta time
t = clock(); dt = (t - lastTick)/1000; lastTick = t
'player position in z
player.z = player.z + player.speed*dt
' calculate camera y
if int(player.z) < sizeof(road) - 2
k = player.z%1
player.y = (1 - k)*road[int(player.z)].y + k*road[int(player.z) + 1].y - 0.5
else
player.y = road[sizeof(road) - 1].y - 0.5
endif
'player's control
if keydown(KEY_LEFT) then
player.x = player.x - player.speed*dt
player.wheel = 90+10
timestart = clock()
endif
if keydown(KEY_RIGHT) then
player.x = player.x + player.speed*dt
player.wheel = 90+5
timestart = clock()
endif
timeduration = (clock() - timestart)/1000
if timeduration > 0.5 then player.wheel = 0
if keydown(KEY_UP,true) and player.speed<12 then
player.speed = player.speed + 1
if playtune=1 then; play sound player.gas,1; endif
endif
if keydown(KEY_DOWN,true) and player.speed>=1 then
player.speed = player.speed - 1
if playtune=1 then; play sound player.gas,1; endif
endif
if player.speed > 1 then
player.speed = player.speed - 0.001
endif
if keydown(KEY_SPACE,true) player.speed = 0
'draw background image
set color white; draw image back[theme], 0, -80 - player.y*player.speed
for i = int(player.z) + 20 to int(player.z)
if i < sizeof(road) - 2
strips = strips + 1
' Do we need to fill with snow color to hide distant objects?
S3D_Project(projected, 0, road[i + 1].y, i + 1)
y0 = round(projected[1])
S3D_Project(projected, 0, road[i].y, i)
y1 = round(projected[1])
if y1 > y0
if not didFill
didFill = true
fills = fills + 1
set color land[theme]
draw rect 0, y0, width(primary), height(primary) - y0, true
set color white
endif
else
didFill = false
endif
' Draw road.
x0 = road[i].x
x1 = road[i + 1].x
set color white
S3D_Texture(road[theme].img)
S3D_Vertex(x0 - 2, road[i].y, i, 0, road.height_)
S3D_Vertex(x0 + 2, road[i].y, i, road.width_, road.height_)
S3D_Vertex(x1 + 2, road[i + 1].y, i + 1, road.width_, 0)
S3D_Vertex(x1 - 2, road[i + 1].y, i + 1, 0, 0)
' Draw sprites.
' Fade in.
z = (i + 1) - player.z
if z > 15
a = ((20 - z)/5)*255
set color white_alpha
endif
if i%20 = 0
S3D_Texture(tunnel[theme])
S3D_Vertex(road[i].x - 5, road[i].y + 0.2, i, 0, height(tunnel[1]))
S3D_Vertex(road[i].x + 5, road[i].y + 0.2, i, width(tunnel[1]), height(tunnel[1]))
S3D_Vertex(road[i].x + 5, road[i].y - 3.5, i, width(tunnel[1]), 0)
S3D_Vertex(road[i].x - 5, road[i].y - 3.5, i, 0, 0)
else
if i%2 = 0
S3D_Texture(tree[theme])
x = x0 - 2.5
S3D_Vertex(x - 0.4, road[i].y, i, 0, height(tree[theme]))
S3D_Vertex(x + 0.4, road[i].y, i, width(tree[theme]), height(tree[theme]))
S3D_Vertex(x + 0.4, road[i].y - 1, i, width(tree[theme]), 0)
S3D_Vertex(x - 0.4, road[i].y - 1, i, 0, 0)
else
S3D_Texture(tree[theme])
x = x0 + 2.5
S3D_Vertex(x - 0.4, road[i].y, i, 0, height(tree[theme]))
S3D_Vertex(x + 0.4, road[i].y, i, width(tree[theme]), height(tree[theme]))
S3D_Vertex(x + 0.4, road[i].y - 1, i, width(tree[theme]), 0)
S3D_Vertex(x - 0.4, road[i].y - 1, i, 0, 0)
endif
endif
endif
next
S3D_End()
'---------------------------------------------------------------------------------
'theme
set color red
set caret 250,190; wln "Theme"
draw rect 250,210,20,20,t1
draw rect 270,210,20,20,t2
draw rect 290,210,20,20,t3
if keydown(KEY_1,true) then 'winter
theme = 1; if playtune=1 then PlayTune(1)
t1=1;t2=0;t3=0
endif
if keydown(KEY_2,true) then 'tropical
theme = 2; if playtune=1 then PlayTune(1)
t1=0;t2=1;t3=0
endif
if keydown(KEY_3,true) then 'night
theme = 3; if playtune=1 then PlayTune(1)
t1=0;t2=0;t3=1
endif
'Speedometer
set color red; set caret 46,170; wln round(player.speed)
angle = player.speed*30
y = height(primary)-50
set color red
draw ellipse 50,y,40,40 ; draw ellipse 50,y,41,41
draw ellipse 50,y,5,5,1
draw line 49,y-1, 49+30*cos(rad(80+angle)),y-1+30*sin(rad(80+angle))
draw line 50,y , 50+30*cos(rad(80+angle)),y+30*sin(rad(80+angle))
draw line 51,y+1, 51+30*cos(rad(80+angle)),y+1+30*sin(rad(80+angle))
'Draw Player
set color white; Draw(player.img,170,220,player.wheel)
redraw
wait 1
wend
'-----------
' FUNCTIONS
'-----------
function Draw(img,x,y,a)
' DrawImageTransformed(image, x, y, scale_x, scaleY, angle, pivot_x, pivot_y)
' Parameter :
' image = .png format
' (x,y) = location of the image in the screen coordinates
' scale_x, scale_y = scale the image's size
' angle = in radian.
' (pivot_x, pivot_y) = center point of the image. E.g:(0,0) = top left.
x = x; y = y ; s = 1; a=a; px = width(img)/2; py = height(img)/2
DrawImageTransformed(img, x,y, s, s, a, px, py)
endfunc
This is really cool
Edit Note that the s3d library will go through many changes before I release it for real. But your program will of course continue to function with the test version of the library that you've used now.
Really impressive, especially considering that you did everything in 9 days (I normally manage about 10% of any project in that sort of time ).
I did get an error message pop up after a couple of minutes - it seems to relate to the S3D drawing routine, so may be useful to you and Marcus:
(03-16-2024, 01:19 PM)kevin Wrote: Really impressive, especially considering that you did everything in 9 days (I normally manage about 10% of any project in that sort of time ).
I did get an error message pop up after a couple of minutes - it seems to relate to the S3D drawing routine, so may be useful to you and Marcus:
All the best ... Kevin
All the credit, the trophy, and the award for this achievement should go to Marcus, thanks to him that he did every kind of impossible things such as curved road, texture mapping and all the awesome new libraries .... He inspires me that there are endless possibilities, beyond human imagination in game programming.
My part was just a small part of the game, just code a piece of steering wheel and speed ... and the brake to stop the car
True... Marcus is the source of the Rotation and Scaling routine... But, who was it that used that routine to create the first version of the game? "My part was just a small part of the game"... Without the initial "small part" there probably would not be a game. We are a forum. We are here to help. Ultimately this is 'your' game... I personally am impressed that you have done SO much in such a short time! Imagine what you could do if you had assigned yourself even more time?
).
