need help with functions please - GameCreators Forum

Author

Message

ultimate skimmer

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: u.s.a

Posted: 10th Jun 2004 04:24 Edited at: 10th Jun 2004 04:31

Link

hello everybody i am realy new to darkbasic so here goes. i am trying to get a sphere to move around on the screen with other object around to interact with. but i cant get the chase camera to work. i used mostly code from the tutorials but when ever i try to run the program it says "run time error at line 26. program ran into a function declaration at line 26." and it wont work. i know the solution is probably simple but i have been trying realy hard to fix it but i cant. thank you for any help.
p.s. i am using dark basic classic

ultimate skimmer

Back to top

Profile PM Email

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 10th Jun 2004 05:08

Link

move your function code to the bottom of the page, after the do-loop block

* DBP_NETLIB_v1.2 - NOW WITH VARIABLE WATCHER! * Click Logo

Back to top

Profile PM

ultimate skimmer

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: u.s.a

Posted: 10th Jun 2004 05:28

Link

haha oh my god thank you very much i cant believe it was thet simple lol

ultimate skimmer

Back to top

Profile PM Email

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 10th Jun 2004 05:47

Link

don't worry - it will get more difficult as you go

good luck

* DBP_NETLIB_v1.2 - NOW WITH VARIABLE WATCHER! * Click Logo

Back to top

Profile PM

ultimate skimmer

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: u.s.a

Posted: 12th Jun 2004 03:47

Link

hi again now i have another problem. i am trying to code my own camera but i am having problems.once i fix all of the problems the editor says i have when i try to run the program it will just open and close. i have tried alot of different things and nothing will fix it. thanks in advance

ultimate skimmer

Back to top

Profile PM Email

ultimate skimmer

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: u.s.a

Posted: 12th Jun 2004 04:10

Link

oh yeah i just got a site with free webs so if anybody could tell me how to upload files onto it tha would help because it is realy stupid right now
http://www.freewebs.com/ultraklhipster/

ultimate skimmer

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 12th Jun 2004 10:21

Link

Okay,

The first thing you have to remember is that variables in functions are LOCAL unless they have been defined as GLOBAL. (Or defined as arrays in DBC.)

What I mean is, you have a;

position camera y_1 + 20,z_1 + 20,x_1

command in the function but the values of y_1, z_1, and x_1 are all ZERO when you enter the function, because have not declared them as;

GLOBAL X_1, Y_1, Z_1

in the upper part of the program. Thus your camera will never move beyond the values of 20, 20, 0.

If you're using DBC use the line of;

DIM X(1), Y(1), Z(1)

and in the function use;

position camera y(1) + 20,z(1) + 20,x(1)

this will solve your problem...
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

ultimate skimmer

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: u.s.a

Posted: 12th Jun 2004 18:35 Edited at: 12th Jun 2004 18:51

Link

it still just exits after the screen turns black and it doesnt tell me that there are any errors
by the way i am using bark basic classic

here is the updated code

sync on
sync rate 30

load object "c:\harry potter untitled\harrypotter chamber of death.3ds",1
load object "c:\harry potter untitled\harry potter wand.3ds",2
load object "c:\harry potter untitled\harry potter broom color and center.3ds",3
load object "c:\harry potter untitled\harry potter basic hut.3ds",4
load object "c:\harry potter untitled\golden snitcj.3ds",5
load object "c:\harry potter untitled\house table for great hall.3ds",6
make object sphere 7,5
xrotate object 3,9
dim x(1)
dim y(1)
dim z(1)
x(1)= object position x(7) :y(1)=(get ground height(1,x_1#,z_1#)) L:z(1)= object position z(7)

ay_1#=object angle y(7)

control=0

make matrix 1,10000,10000,10,10
position object 1,300,0,300
position object 2,40,10,30
position object 3,70,5,70
position object 4,750,0,500
position object 5,100,7,1000
position object 6,600,100,600
position object 7,100,0,100
fog on
fog distance 1000
fog color rgb(100,100,100)

do
if control=0
camera_movement()
check_collisions()
endif
sync
loop

function camera_movement()
if upkey()=1 then move object 7,3
if downkey()=1 then move object 7,-3
point camera x_1,y_1,z_1
position camera y(1) + 20,z(1) + 20,x(1)
endfunction

function broom_control()
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
endfunction

function check_collisions()
collision=object collision(3,7)
if collision=1 then control=1
endfunction

+ Code Snippet

sync on
sync rate 30


load object "c:\harry potter untitled\harrypotter chamber of death.3ds",1
load object "c:\harry potter untitled\harry potter wand.3ds",2
load object "c:\harry potter untitled\harry potter broom color and center.3ds",3
load object "c:\harry potter untitled\harry potter basic hut.3ds",4
load object "c:\harry potter untitled\golden snitcj.3ds",5
load object "c:\harry potter untitled\house table for great hall.3ds",6
make object sphere 7,5
xrotate object 3,9
dim x(1)
dim y(1)
dim z(1)
x(1)= object position x(7) :y(1)=(get ground height(1,x_1#,z_1#)) L:z(1)= object position z(7)

ay_1#=object angle y(7)

control=0

make matrix 1,10000,10000,10,10
position object 1,300,0,300
position object 2,40,10,30
position object 3,70,5,70
position object 4,750,0,500
position object 5,100,7,1000
position object 6,600,100,600
position object 7,100,0,100
fog on
fog distance 1000
fog color rgb(100,100,100)

do
if control=0
camera_movement()
check_collisions()
endif
sync
loop

function camera_movement()
if upkey()=1 then move object 7,3
if downkey()=1 then move object 7,-3
point camera x_1,y_1,z_1
position camera y(1) + 20,z(1) + 20,x(1)
endfunction

function broom_control()
if upkey()=1 then move object 3,3
if downkey()=1 then move object 3,-3
endfunction

function check_collisions()
collision=object collision(3,7)
if collision=1 then control=1
endfunction

ultimate skimmer

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 13th Jun 2004 00:13

Link

You have an error in this line

+ Code Snippet

x(1)= object position x(7) :y(1)=(get ground height(1,x_1#,z_1#)) L:z(1)= object position z(7)
..................................................................^

You also haven't updated the following line to use the array values

+ Code Snippet

point camera x_1,y_1,z_1

*** Coming soon - Network Plug-in - Check my site for info ***
For free Plug-ins, source and the Interface library for Visual C++ 6, .NET and now for Dev-C++ http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

ultimate skimmer

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: u.s.a

Posted: 13th Jun 2004 00:53

Link

thank you ianm but it still wont work it just turns the screen black and then just returns to the editor and it says that there is no errors and i am also positive that the file names are correct if that matters. i also changed my code and took out some stuff like the broom control and collisions but it still doesnt work so i have no idea what it could be.

sync on
sync rate 30

load object "c:\harry potter untitled\harrypotter chamber of death.3ds",1
load object "c:\harry potter untitled\harry potter wand.3ds",2
load object "c:\harry potter untitled\harry potter broom color and center.3ds",3
load object "c:\harry potter untitled\harry potter basic hut.3ds",4
load object "c:\harry potter untitled\golden snitcj.3ds",5
load object "c:\harry potter untitled\house table for great hall.3ds",6
load object "c:\harry potter untitled\simple character.3ds",7
dim x(1)
dim y(1)
dim z(1)
x(1)= object position x(7)
y(1)=(get ground height(1,x_1#,z_1#))
z(1)= object position z(7)
ay_1#=object angle y(7)
make matrix 1,10000,10000,10,10
position object 1,3000,0,3000
position object 2,400,10,300
position object 3,70,5,70
position object 4,7500,0,5000
position object 5,100,7,1000
position object 6,6000,100,6000
position object 7,100,0,1000
fog on
fog distance 1000
fog color rgb(100,100,100)

do
camera_movement()
sync
loop

function camera_movement()
if upkey()=1 then move object 7,3
if downkey()=1 then move object 7,-3
point camera x(1),y(1),z(1)
position camera y(1) + 20,z(1) + 20,x(1)
endfunction

+ Code Snippet

sync on
sync rate 30


load object "c:\harry potter untitled\harrypotter chamber of death.3ds",1
load object "c:\harry potter untitled\harry potter wand.3ds",2
load object "c:\harry potter untitled\harry potter broom color and center.3ds",3
load object "c:\harry potter untitled\harry potter basic hut.3ds",4
load object "c:\harry potter untitled\golden snitcj.3ds",5
load object "c:\harry potter untitled\house table for great hall.3ds",6
load object "c:\harry potter untitled\simple character.3ds",7
dim x(1)
dim y(1)
dim z(1)
x(1)= object position x(7)
y(1)=(get ground height(1,x_1#,z_1#))
z(1)= object position z(7)
ay_1#=object angle y(7)
make matrix 1,10000,10000,10,10
position object 1,3000,0,3000
position object 2,400,10,300
position object 3,70,5,70
position object 4,7500,0,5000
position object 5,100,7,1000
position object 6,6000,100,6000
position object 7,100,0,1000
fog on
fog distance 1000
fog color rgb(100,100,100)

do
camera_movement()
sync
loop

function camera_movement()
if upkey()=1 then move object 7,3
if downkey()=1 then move object 7,-3
point camera x(1),y(1),z(1)
position camera y(1) + 20,z(1) + 20,x(1)
endfunction

ultimate skimmer

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 13th Jun 2004 01:37

Link

Okay,

The first error I got with this code was that the "matrix didn't exist" in line 18 -- or at that point where you attempt to get the ground height. Move your "make matrix" up above the get height one, or move the get height to below the make matrix.

Second; I had to turn off (or rem out) the fog stuff. I did this mostly to make certain I see the entire horizon, thus not limiting any view of the world you've created.

Third; I don't know why you call the function "move camera" because it doesn't really move the camera, but does move the object the camera is supposedly looking at. Since you never change the values of x(1), y(1) or z(1) the camera remains fixed while object 7 moves.

And fourth, I had to load my own object files in order to run this, for which I loaded some static forms from the library of DBC. This is what made me wait until I had the time to look up the files before attempting to run the code.

Fifth; Given the positioning supplied by the code it took a "long time" for object 7 to move close enough to the camera for me to actually see it, where it showed up on the screen as working.

And finally, if the screen goes black for you and remains as such, I propose that you do not have direct-x installed, or it is not installed correctly. I had this problem when I first ran the free download, such that I had to re-install direct-x for I could see anything.

Hope this helps...
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

ultimate skimmer

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: u.s.a

Posted: 13th Jun 2004 01:58 Edited at: 13th Jun 2004 02:00

Link

the make matrix thing made it so i could finaly see the matrix and the program didnt close out.now i just have to work out how to fix the other problems. thank you SandraD
p.s. i call the function move camera because i am trying to make the camera follow object 7 like a chase cam

ultimate skimmer

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 13th Jun 2004 03:03 Edited at: 13th Jun 2004 03:06

Link

Ah...

In that case I propose you use the following code, to set the camera where you want it;

x(1)=object position x(7)
y(1)=object position y(7)
z(1)=object position z(7)
position camera x(1)+20, z(1)+20, y(1)
point camera x(1), y(1), z(1)

this will follow the moving object I believe....
S.

(I'll have to try it myself.)

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 13th Jun 2004 03:32

Link

Okay,

After playing with the different perspectives and all I've come up with the following code;

+ Code Snippet

function camera_movement()
if upkey()=1 then move object 7,3
if downkey()=1 then move object 7,-3
x(1)= object position x(7)
y(1)=(get ground height(1,x_1#,z_1#))
z(1)= object position z(7)
point camera x(1),y(1),z(1)
position camera x(1) + 20,y(1) + 20,z(1)
endfunction

though the distance of +20 is "a little close" on object 7 this does follow the thing, so there ya go...

good luck!
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

ultimate skimmer

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: u.s.a

Posted: 13th Jun 2004 04:28

Link

wow thank you so much that helped alot ive been trying to get the camera to follow something for about a week now and it finaly works.

ultimate skimmer

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 13th Jun 2004 07:10 Edited at: 13th Jun 2004 07:10

Link

Glad to be of help...

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Soy Cocktail

20

Years of Service

User Offline

Joined: 23rd Dec 2003

Location:

Posted: 13th Jun 2004 13:25 Edited at: 13th Jun 2004 13:26

Link

may be a little late to post a camera movement function, but i recently made my own it takes perimiters so you can set which camer follows which object

+ Code Snippet

function controlcam(obj,cam)
 play object obj
if upkey()=1 then move object obj,1
if downkey()=1 then move object obj,-1
if leftkey()=1 then yrotate object obj,wrapvalue(object angle y(obj)+2)
if rightkey()=1 then  yrotate object obj,wrapvalue(object angle y(obj)-2)
if mousex()=>1000 then ang#=wrapvalue(ang#-2)
if mousex()=<100 then ang#=wrapvalue(ang#+2)
if height# < 1000
 if mousey()=<100 then height#=height#+1
endif
if height#>100
 if mousey()=>700 then height#=height#-1
endif
set camera to follow cam,object position x(obj),0,object position z(obj),ang#,400,height#,1,1
point camera cam,object position x(obj),0,object position z(obj)
endfunction

when the mouse is at the edges of the screen in 1024x768x32 display mode it moves the camera around the object

global ang#=1.0
global height#=500.0
needs to be above your main loop for dbpro and variable arrays for dbc

Back to top

Profile PM

ultimate skimmer

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: u.s.a

Posted: 14th Jun 2004 02:03 Edited at: 14th Jun 2004 02:08

Link

thank you johny tightlips it is not to late to post a camera function at least not for me ,now i know even more abou cameras. but i cant get the camera to rotate when it hits the right edge of the screen or when it hits the bottom but oh well i guess that is just something for me to work on

ultimate skimmer

Back to top

Profile PM Email

Soy Cocktail

20

Years of Service

User Offline

Joined: 23rd Dec 2003

Location:

Posted: 14th Jun 2004 15:08

Link

well in Dark Basic Professional add global ang#=1.0 at the top of your code before your loops

in Darb Basic Classic use variable arrays suc as Dim ang#(1) : ang#(1)=1.0 and change anything in the function called ang# to ang#(1)

the code was written in Dark Basic Professional

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / need help with functions please