Project_subworld - GameCreators Forum

Author

Message

Slooper

21

Years of Service

User Offline

Joined: 13th Feb 2003

Location: Sweden

Posted: 20th Nov 2004 06:17

Link

Okay I am starting a project here I am nearly a noob and also from sweden so i am not so good at english but i am going to do my best to be understod.

This project is to make an First Person Shooter. And I am going to need a lot of help. So I do as this, I am going to try make the most of the coding myself, and the rest that i can´t solve on my own hand I am going to ask at this place of the forum. of curse everyone that helps me get an answer are going to be on the Credits in the game. (if the game ever will be finished)

I am going to set up an homepage for the project to http://www.sloopernine.com but it is linked to my private swedish site for the moment, but it will be up later.

Nothing more to tell for the moment.

You never fail, only make mistakes.

Back to top

Profile PM Email Website

Slooper

21

Years of Service

User Offline

Joined: 13th Feb 2003

Location: Sweden

Posted: 20th Nov 2004 06:20 Edited at: 20th Nov 2004 06:24

Link

I started with borrowing the code from an exapmle in dbp. the problem i have is the jump as long i press the spacekey the camera jumps higher and higher, any soloution?

Rem Project: project_subworld
Rem Created: 2004-11-18 15:39:03

Rem ***** Main Source File *****

remstart load image for loading
load image "mediagfxloader.tga", 1
load image "mediagfxiconb.tga", 2
sprite 1,120,200,1
sprite 2,400,200,2
set sprite 1, backsave = 0, transparency = 0
set sprite 2, backsave = 0, transparency = 0
remend

rem settings:
sync on : sync rate 0 : color backdrop rgb(0,0,64) : backdrop on
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Loading prompt
sync : center text screen width()/2,screen height()/2,"LOADING" : sync
rem Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
rem load level
load bsp "medialevelsmp1ikzdm1.pk3","ikzdm1.bsp"
set bsp camera collision 1,0,0.75,0
set bsp collision threshhold 1,0.001
rem Main loop
do
rem Control camera automatically
control camera using arrowkeys 0,0.1,1
rem Apply simple gravity to camera
position camera camera position x(),camera position y()-0.5,camera position z()
rem jump
if spacekey()=1 then position camera camera position x(),camera position y()+5.0,camera position z()
rem Show Framerate
text 20,screen height()-40,desc$
fps$="DBPro Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
rem Update screen
sync
rem End loop
loop

+ Code Snippet

Rem Project: project_subworld
Rem Created: 2004-11-18 15:39:03

Rem ***** Main Source File *****

remstart load image for loading
load image "mediagfxloader.tga", 1
load image "mediagfxiconb.tga", 2
sprite 1,120,200,1
sprite 2,400,200,2
set sprite 1, backsave = 0, transparency = 0
set sprite 2, backsave = 0, transparency = 0
remend

rem settings:
sync on : sync rate 0 : color backdrop rgb(0,0,64) : backdrop on
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Loading prompt
sync : center text screen width()/2,screen height()/2,"LOADING" : sync
rem Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
rem load level
load bsp "medialevelsmp1ikzdm1.pk3","ikzdm1.bsp"
set bsp camera collision 1,0,0.75,0
set bsp collision threshhold 1,0.001
rem Main loop
do
rem Control camera automatically
control camera using arrowkeys 0,0.1,1
rem Apply simple gravity to camera
position camera camera position x(),camera position y()-0.5,camera position z()
rem jump
if spacekey()=1 then position camera camera position x(),camera position y()+5.0,camera position z()
rem Show Framerate
text 20,screen height()-40,desc$
fps$="DBPro Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
rem Update screen
sync
rem End loop
loop

You never fail, only make mistakes.

Back to top

Profile PM Email Website

Slooper

21

Years of Service

User Offline

Joined: 13th Feb 2003

Location: Sweden

Posted: 20th Nov 2004 09:27 Edited at: 20th Nov 2004 09:49

Link

okay now the jump-problem is not the biggest problem, I have made an logo to have when the game loading, and i want it to rotate but when i tried it rotated around its upper left corner. but i want it to rotate around its middle, is that possible?

Rem Project: project_subworld
Rem Created: 2004-11-18 15:39:03

Rem ***** Main Source File *****

remstart load image for loading
load image "mediagfxloader.tga", 1
load image "mediagfxiconb.tga", 2
sprite 1,120,200,1
sprite 2,400,200,2
set sprite 1, backsave = 0, transparency = 0
set sprite 2, backsave = 0, transparency = 0
remend

rem settings:
sync on : sync rate 0 : color backdrop rgb(0,0,0) : backdrop on
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Loading prompt
sync
load image "mediagfxloader.tga",1 : paste image 1,110,200
load image "mediagfxiconb.tga",2 : paste image 2,380,200
sync
rem recolor backdrop
color backdrop RGB(0,128,0)
remstart Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
remend

rem load level
load bsp "medialevelsmp1ikzdm1.pk3","ikzdm1.bsp"
set bsp camera collision 1,0,0.75,0
set bsp collision threshhold 1,0.001

rem load model
load object "mediamodelstestplayer_20.3DS",1
play object 1
loop object 1
scale object 1,100,100,100
position object 1,0,0,0
rotate object 1,0,180,0
set bsp object collision 1,1,0.75,0
rem Main loop
do

rem control player
 if upkey()=1 then move object 1,4
 if downkey()=1 then move object 1,-4
 if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-4)
 if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+4)
rem Control camera automatically

rem testcamera
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
a#=object angle y(1)
d#=250.0
h#=185.0
s#=50.0
set camera to follow x#,y#,z#,a#,d#,h#,s#,1

rem Apply simple gravity to camera
position camera camera position x(),camera position y()-0.5,camera position z()
rem jump
if spacekey()=1 then position camera camera position x(),camera position y()+5.0,camera position z()
rem Show Framerate
text 20,screen height()-40,desc$
fps$="Test of amount Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
rem Update screen
sync
rem End loop
loop

+ Code Snippet

Rem Project: project_subworld
Rem Created: 2004-11-18 15:39:03

Rem ***** Main Source File *****

remstart load image for loading
load image "mediagfxloader.tga", 1
load image "mediagfxiconb.tga", 2
sprite 1,120,200,1
sprite 2,400,200,2
set sprite 1, backsave = 0, transparency = 0
set sprite 2, backsave = 0, transparency = 0
remend

rem settings:
sync on : sync rate 0 : color backdrop rgb(0,0,0) : backdrop on
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Loading prompt
sync
load image "mediagfxloader.tga",1 : paste image 1,110,200
load image "mediagfxiconb.tga",2 : paste image 2,380,200
sync
rem recolor backdrop
color backdrop RGB(0,128,0)
remstart Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
remend


rem load level
load bsp "medialevelsmp1ikzdm1.pk3","ikzdm1.bsp"
set bsp camera collision 1,0,0.75,0
set bsp collision threshhold 1,0.001

rem load model
load object "mediamodelstestplayer_20.3DS",1
play object 1
loop object 1
scale object 1,100,100,100
position object 1,0,0,0
rotate object 1,0,180,0
set bsp object collision 1,1,0.75,0
rem Main loop
do

rem control player
 if upkey()=1 then move object 1,4
 if downkey()=1 then move object 1,-4
 if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-4)
 if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+4)
rem Control camera automatically

rem testcamera
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
a#=object angle y(1)
d#=250.0
h#=185.0
s#=50.0
set camera to follow x#,y#,z#,a#,d#,h#,s#,1

rem Apply simple gravity to camera
position camera camera position x(),camera position y()-0.5,camera position z()
rem jump
if spacekey()=1 then position camera camera position x(),camera position y()+5.0,camera position z()
rem Show Framerate
text 20,screen height()-40,desc$
fps$="Test of amount Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
rem Update screen
sync
rem End loop
loop

Attached the logo with this subject

You never fail, only make mistakes.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Slooper

21

Years of Service

User Offline

Joined: 13th Feb 2003

Location: Sweden

Posted: 20th Nov 2004 22:11

Link

Got another big problem now, the animation wont start when i walk forward it starts just after i release the arrowbutton I think i have to make some sort of for loop but not really shure huw to do it can someone please help me with the problems here, I have no soloutions on these problems i have writed here. Please someone help me if ya know how I can solve these problems. I would really be glad

Rem Project: project_subworld
Rem Created: 2004-11-18 15:39:03

Rem ***** Main Source File *****

remstart load image for loading
load image "media\gfx\loader.tga", 1
load image "media\gfx\iconb.tga", 2
sprite 1,120,200,1
sprite 2,400,200,2
set sprite 1, backsave = 0, transparency = 0
set sprite 2, backsave = 0, transparency = 0
remend

rem settings:
sync on : sync rate 50 : color backdrop rgb(0,0,0) : backdrop on
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Loading prompt
sync
load image "media\gfx\loader.tga",1 : paste image 1,110,200
load image "media\gfx\iconb.tga",2 : paste image 2,380,200
sync
rem recolor backdrop
color backdrop RGB(0,128,0)
remstart Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
remend

rem load level
load bsp "media\levels\mp1\ikzdm1.pk3","ikzdm1.bsp"
load object "media\models\test\tree.3ds",2 : position object 2,35,0,0
set bsp camera collision 1,0,0.75,0
set bsp collision threshhold 1,0.001

rem load model
load object "media\models\test\player_20.3DS",1
rem play object 1
rem loop object 1
scale object 1,100,100,100
position object 1,0,0,0
yrotate object 1,180
fix object pivot 1
set bsp object collision 1,1,0.75,0
rem Main loop
_back:
do

rem control player
gosub _walkanim

rem camera control
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
a#=object angle y(1)
d#=300.0
h#=150.0
s#=50.0
set camera to follow x#,y#,z#,a#,d#,h#,s#,1
rem Apply simple gravity to camera and player
position camera camera position x(),camera position y()-0.5,camera position z()
position object 1, object position x(1),object position y(1)-1,object position z(1)
rem jump
if spacekey()=1 then position object 1 ,object position x(1),object position y(1)+5.0,object position z(1)
rem Show Framerate
text 20,screen height()-40,desc$
fps$="Test of amount Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
rem Update screen
sync
rem End loop
loop
end

rem control player
_walkanim:
walk=0

if upkey()=1 then move object 1,4 : walk=1
 if downkey()=1 then moveaction=2 : move object 1,-4
 if leftkey()=1 then moveaction=3 : yrotate object 1,wrapvalue(object angle y(1)-3)
 if rightkey()=1 then moveaction=4 : yrotate object 1,wrapvalue(object angle y(1)+3)

if walk=1 then play object 1
 if walk=2 then play object 1
 if walk=3 then play object 1
 if walk=4 then play object 1
return

+ Code Snippet

Rem Project: project_subworld
Rem Created: 2004-11-18 15:39:03

Rem ***** Main Source File *****

remstart load image for loading
load image "media\gfx\loader.tga", 1
load image "media\gfx\iconb.tga", 2
sprite 1,120,200,1
sprite 2,400,200,2
set sprite 1, backsave = 0, transparency = 0
set sprite 2, backsave = 0, transparency = 0
remend

rem settings:
sync on : sync rate 50 : color backdrop rgb(0,0,0) : backdrop on
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Loading prompt
sync
load image "media\gfx\loader.tga",1 : paste image 1,110,200
load image "media\gfx\iconb.tga",2 : paste image 2,380,200
sync
rem recolor backdrop
color backdrop RGB(0,128,0)
remstart Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
remend


rem load level
load bsp "media\levels\mp1\ikzdm1.pk3","ikzdm1.bsp"
load object "media\models\test\tree.3ds",2 : position object 2,35,0,0
set bsp camera collision 1,0,0.75,0
set bsp collision threshhold 1,0.001

rem load model
load object "media\models\test\player_20.3DS",1
rem play object 1
rem loop object 1
scale object 1,100,100,100
position object 1,0,0,0
yrotate object 1,180
fix object pivot 1
set bsp object collision 1,1,0.75,0
rem Main loop
_back:
do

rem control player
gosub _walkanim

 rem camera control
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
a#=object angle y(1)
d#=300.0
h#=150.0
s#=50.0
set camera to follow x#,y#,z#,a#,d#,h#,s#,1
rem Apply simple gravity to camera and player
position camera camera position x(),camera position y()-0.5,camera position z()
position object 1, object position x(1),object position y(1)-1,object position z(1)
rem jump
if spacekey()=1 then position object 1 ,object position x(1),object position y(1)+5.0,object position z(1)
rem Show Framerate
text 20,screen height()-40,desc$
fps$="Test of amount Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
rem Update screen
sync
rem End loop
loop
end

rem control player
_walkanim:
walk=0

 if upkey()=1 then move object 1,4 : walk=1
 if downkey()=1 then moveaction=2 : move object 1,-4
 if leftkey()=1 then moveaction=3 : yrotate object 1,wrapvalue(object angle y(1)-3)
 if rightkey()=1 then moveaction=4 : yrotate object 1,wrapvalue(object angle y(1)+3)

 if walk=1 then play object 1
 if walk=2 then play object 1
 if walk=3 then play object 1
 if walk=4 then play object 1
return

You never fail, only make mistakes.

Back to top

Profile PM Email Website

Slooper

21

Years of Service

User Offline

Joined: 13th Feb 2003

Location: Sweden

Posted: 20th Nov 2004 23:21

Link

Is there noone out here on the forum that can help me? Please I really need help

You never fail, only make mistakes.

Back to top

Profile PM Email Website

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 21st Nov 2004 18:35 Edited at: 21st Nov 2004 18:53

Link

You may want to start with some basic tutorials before jumping into this. Those all seem to be just simple flag setting problems or simple straight forward commands from the manual can help. You can fix the rotation of the sprite with the commands. Here is an example. Change the filename for one of your own. Press the space key to see it swap from corner to center rotation and positioning.

+ Code Snippet

sync on : sync rate 0
hide mouse
load image "grass2.bmp", 1
sprite 1,0,0,1

do
	rotate sprite 1,sprite angle(1)+.1
	if spacekey() = 1
		if skp = 0
			skp = 1
			offset sprite 1,sprite x(1)+(sprite width(1)/2),sprite y(1)+(sprite height(1)/2)
			sprite 1,(sprite width(1)/2),(sprite height(1)/2),1
		endif
	endif
	sync
loop

[edit] Also here is a very basic jump code. You will probably want to modify it so bsp collisions rest the jumping and falling for uneven floors and ceilings.

Rem Project: project_subworld
Rem Created: 2004-11-18 15:39:03

Rem ***** Main Source File *****

remstart load image for loading
load image "mediagfxloader.tga", 1
load image "mediagfxiconb.tga", 2
sprite 1,120,200,1
sprite 2,400,200,2
set sprite 1, backsave = 0, transparency = 0
set sprite 2, backsave = 0, transparency = 0
remend

rem settings:
sync on : sync rate 0 : color backdrop rgb(0,0,64) : backdrop on
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Loading prompt
sync : center text screen width()/2,screen height()/2,"LOADING" : sync
rem Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
rem load level
rem Main loop
make matrix 1,1000,1000,100,100
fall = 0

do
rem Control camera automatically
control camera using arrowkeys 0,0.1,1
rem Apply simple gravity to camera
newcamy# = camera position y()

if fall = 1
	position camera camera position x(),camera position y()-5.0,camera position z()
	oldcamy# = camera position y()
endif

if jump = 0
	if camera position y() = groundlevel#
		fall = 0
		if spacekey()=1
			jump = 1
		endif
	endif
	if fall = 0
		groundlevel# = camera position y()
	endif
endif

rem jump
if jump=1
	position camera camera position x(),camera position y()+5.0,camera position z()
	oldcamy# = camera position y()
endif

if camera position y() > groundlevel# + 40
	jump = 0
	fall = 1
endif

rem Show Framerate
text 20,screen height()-40,desc$
fps$="DBPro Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
rem Update screen
sync
rem End loop
loop

+ Code Snippet

Rem Project: project_subworld
Rem Created: 2004-11-18 15:39:03

Rem ***** Main Source File *****

remstart load image for loading
load image "mediagfxloader.tga", 1
load image "mediagfxiconb.tga", 2
sprite 1,120,200,1
sprite 2,400,200,2
set sprite 1, backsave = 0, transparency = 0
set sprite 2, backsave = 0, transparency = 0
remend

rem settings:
sync on : sync rate 0 : color backdrop rgb(0,0,64) : backdrop on
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Loading prompt
sync : center text screen width()/2,screen height()/2,"LOADING" : sync
rem Set camera
set camera range 0.1,5000
position camera 2,3,2
rotate camera 0,45,0
rem load level
rem Main loop
make matrix 1,1000,1000,100,100
fall = 0

do
rem Control camera automatically
control camera using arrowkeys 0,0.1,1
rem Apply simple gravity to camera
newcamy# = camera position y()

if fall = 1
	position camera camera position x(),camera position y()-5.0,camera position z()
	oldcamy# = camera position y()
endif



if jump = 0
	if camera position y() = groundlevel#
		fall = 0
		if spacekey()=1
			jump = 1
		endif
	endif
	if fall = 0
		groundlevel# = camera position y()
	endif
endif

rem jump
if jump=1
	position camera camera position x(),camera position y()+5.0,camera position z()
	oldcamy# = camera position y()
endif

if camera position y() > groundlevel# + 40
	jump = 0
	fall = 1
endif

rem Show Framerate
text 20,screen height()-40,desc$
fps$="DBPro Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
rem Update screen
sync
rem End loop
loop

Back to top

Profile PM Email

Slooper

21

Years of Service

User Offline

Joined: 13th Feb 2003

Location: Sweden

Posted: 22nd Nov 2004 16:01

Link

Thankyou very much i was afraid no one would help me. Do you want to be on the credits?

You never fail, only make mistakes.

Back to top

Profile PM Email Website

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 22nd Nov 2004 16:46

Link

That's not necessary. Happy to help where I can.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Project_subworld

Attachments