very odd. code supplied. - GameCreators Forum

Author

Message

Snafu

22

Years of Service

User Offline

Joined: 25th Jun 2003

Location:

Posted: 6th Jul 2004 08:57

Link

can someone take a look at this code and tell me what on earth is happening?

Every time I try to run the program it bombs out.

My main project file contains:

#include init.dba
#include graphics.dba
#include spritemovement.dba
#include gameloop.dba

init.dba at the moment simply sets the resolution
graphics.dba loads the appropriate images

those two i can confirm work fine.

here's the contents of spritemovement.dba

+ Code Snippet

function F_Spritemove(SP_Number as integer, direction as string, velocity as integer)

x_position = sprite x(sp_number)
y_position = sprite y(sp_number)
sprite_image = SPRITE IMAGE(sp_number)

   select direction
      case "up" : y_position = y_position - velocity : endcase
      case "down" : y_position = y_position + velocity : endcase
      case "left" : x_position = x_position - velocity : endcase
      case "right" : x_position = x_position + velocity : endcase
   endselect

sprite sp_number, x_position, y_position, sprite_image

endfunction

and here's the contents of gameloop.dba

+ Code Snippet

rem // Set Temporary Variables
xpos = 15
ypos = 400

rem // Begin Game Loop
while spacekey()=0

REM // Display text on screen

   cls
   text 1,1, "Press space key to exit"
   SET CURSOR 1,50 : print "FPS: "; screen fps()
   SET CURSOR 1,70 : print "x: "; xpos; "y: "; ypos

REM // Position Sprites
   SPRITE 1, xpos, ypos, 1
   sprite 2, 690,400,1

REM // Make Second Sprite transparent
   SET SPRITE alpha 2, 200


REM // Movement Controls
REM F_Spritemove(SP_Number as integer, direction as string, velocity as integer)


REM if leftkey()=1 then f_spritemove(1,"left",1)
   if rightkey()=1 and xpos < 690 then xpos=xpos + 1

REM // Sprite Collision Routine
   Collide=SPRITE COLLISION(1, 2)
   if Collide = 1
      text 1,20, "COLLISION DETECTED!!!"
   endif

endwhile

As you can see it's in very early stages.. but.. what the f**k?

btw there is NOTHING in the other two .dba files causing this problem. putting a rem before the #include spritemovement.dba makes the 'game' run.

- Steve

Back to top

Profile PM

ToXic

23

Years of Service

User Offline

Joined: 8th Sep 2002

Location: Australia

Posted: 6th Jul 2004 09:25 Edited at: 6th Jul 2004 09:28

Link

The only thing with your code that I can see is the variables
xpos,ypos will not be updated with the function, or any changes
made with the function will be reset with xpos,ypos.

rem // Set Temporary Variables
xpos = 15
ypos = 400
cls rgb(255,0,0)
get image 1,10,10,50,50,1
SPRITE 1, xpos, ypos, 1

rem // Begin Game Loop
while spacekey()=0

REM // Display text on screen

cls
   text 1,1, "Press space key to exit"
   SET CURSOR 1,50 : print "FPS: "; screen fps()
   SET CURSOR 1,70 : print "x: "; xpos; "y: "; ypos

REM // Position Sprites
   SPRITE 1, Sprite X(1), Sprite Y(1), 1
   sprite 2, 100,80,1

REM // Make Second Sprite transparent
   SET SPRITE alpha 2, 200

REM // Movement Controls
REM F_Spritemove(SP_Number as integer, direction as string, velocity as integer)

if leftkey()=1 then f_spritemove(1,"left",1)
   if rightkey()=1 then f_spritemove(1,"right",1)
   if upkey()=1 then f_spritemove(1,"up",1)
   if downkey()=1 then f_spritemove(1,"down",1)

REM // Sprite Collision Routine
   Collide=SPRITE COLLISION(1, 2)
   if Collide = 1
      text 1,20, "COLLISION DETECTED!!!"
   endif

endwhile

function F_Spritemove(SP_Number as integer, direction as string, velocity as integer)

x_position = sprite x(sp_number)
y_position = sprite y(sp_number)
sprite_image = SPRITE IMAGE(sp_number)

select direction
      case "up" : y_position = y_position - velocity : endcase
      case "down" : y_position = y_position + velocity : endcase
      case "left" : x_position = x_position - velocity : endcase
      case "right" : x_position = x_position + velocity : endcase
   endselect

sprite sp_number, x_position, y_position, sprite_image

endfunction

+ Code Snippet

rem // Set Temporary Variables
xpos = 15
ypos = 400
cls rgb(255,0,0)
get image 1,10,10,50,50,1
SPRITE 1, xpos, ypos, 1

rem // Begin Game Loop
while spacekey()=0

REM // Display text on screen

   cls
   text 1,1, "Press space key to exit"
   SET CURSOR 1,50 : print "FPS: "; screen fps()
   SET CURSOR 1,70 : print "x: "; xpos; "y: "; ypos

REM // Position Sprites
   SPRITE 1, Sprite X(1), Sprite Y(1), 1
   sprite 2, 100,80,1

REM // Make Second Sprite transparent
   SET SPRITE alpha 2, 200


REM // Movement Controls
REM F_Spritemove(SP_Number as integer, direction as string, velocity as integer)


   if leftkey()=1 then f_spritemove(1,"left",1)
   if rightkey()=1 then f_spritemove(1,"right",1)
   if upkey()=1 then f_spritemove(1,"up",1)
   if downkey()=1 then f_spritemove(1,"down",1)

REM // Sprite Collision Routine
   Collide=SPRITE COLLISION(1, 2)
   if Collide = 1
      text 1,20, "COLLISION DETECTED!!!"
   endif

endwhile

function F_Spritemove(SP_Number as integer, direction as string, velocity as integer)

x_position = sprite x(sp_number)
y_position = sprite y(sp_number)
sprite_image = SPRITE IMAGE(sp_number)

   select direction
      case "up" : y_position = y_position - velocity : endcase
      case "down" : y_position = y_position + velocity : endcase
      case "left" : x_position = x_position - velocity : endcase
      case "right" : x_position = x_position + velocity : endcase
   endselect

sprite sp_number, x_position, y_position, sprite_image

endfunction

ToXic.

Back to top

Profile PM Email

zenassem

23

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 6th Jul 2004 10:20 Edited at: 6th Jul 2004 10:24

Link

So far I have spotted this:

In the first snippet you are passing in SP_Number

but indside the function you are using:
sp_number

You need to change the case. (change sp_number to SP_Number)

Reason
sp_number does not equal SP_Number

sp_number in your code would always=0 which you do not have as a valid sprite number.

~Zen

Back to top

Profile PM Email

Snafu

22

Years of Service

User Offline

Joined: 25th Jun 2003

Location:

Posted: 6th Jul 2004 11:22

Link

Toxic, noted - but if you look you'll see that I was only looking to play with one key at the time. f_spritemove would never have been used because of:

[QUOTE]
REM if leftkey()=1 then f_spritemove(1,"left",1)
if rightkey()=1 and xpos < 690 then xpos=xpos + 1
[/QUOTE]

it's rem'd out while I was testing to see what was causing the program to just bomb out.

the program will not even stay on my screen for longer than a second now. It's as though it gives up when it tries to load the spritemove.dba file.

Zenassem: Thanks - I had no idea they were case sensitive.

- Steve

Back to top

Profile PM

Snafu

22

Years of Service

User Offline

Joined: 25th Jun 2003

Location:

Posted: 6th Jul 2004 11:50

Link

ok uh

my DB project closes when I use the 'function' command.

any ideas at all?

Back to top

Profile PM

zenassem

23

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 6th Jul 2004 11:57

Link

hmmm.

Everything looks ok.

try removing "_'s" (underscores) from your function names?

I had a problem with them

DBC or DBpro?

If dbpro
Is the function showing up in the IDE when you click on the functions button?
Are you using the latest ide 1.92b (i think?), it's seperate from the pathc updates?
Are you using the latest patch 5.4?
Are you using a 3rd party editor or the buit-in IDE (eg blueGUI, Twilight)

if DBC?
is it 1.13 enhanced?
are you using the default ide or a 3rd party? (eg DarkEdit, Codekeeper)

~Zen

Back to top

Profile PM Email

Snafu

22

Years of Service

User Offline

Joined: 25th Jun 2003

Location:

Posted: 6th Jul 2004 12:04

Link

btw, when I say 'project' I mean - compiled executable.

Im not doing well with this english language business tonight, such are the pains of 3am....

try removing "_'s" (underscores) from your function names?
Still bombs out even without those

dbpro

Is the function showing up in the IDE when you click on the functions button?
Yes.

Are you using the latest ide 1.92b (i think?), it's seperate from the pathc updates?
I wasn't. now I am, it still does the same.

Are you using the latest patch 5.4?
indeed I am.

are you using a 3rd party editor or the buit-in IDE (eg blueGUI, Twilight)
built in and notepad.

"function" causes my project to refuse to run and without that, DBPro is useless to me

- Steve

Back to top

Profile PM

zenassem

23

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 6th Jul 2004 12:13 Edited at: 6th Jul 2004 12:18

Link

Strange,

I can tell you for certain that the adjusted code snippet that toxic provided works 100% for me.

2 red boxes, input control, pretty close to pixel perfect collision.

So will his code snippet run for you?
(the one where the function is in the 1 .dba file)

Any other code give you a problem. Because then i could see it being a video card driver not up to the latest patch. Sprites in DBpro are flat 3d plains. But if that were the case you would have seen problems with other sprite code, not just functions.

Does the code work if you pull everything out of the function?
If that's the case you may need to repair your 5.4 install. People have had problems with it.

Btw, I think I saw someone else have problems with functions after 5.4 upgrade i just can't remember if it's in the Newcomers or DBpro board. I'm going to go look for it to see if it's the same thing that is happening to you.

Be back in a few minutes.

We'll get this sorted out.

~zen

Back to top

Profile PM Email

ToXic

23

Years of Service

User Offline

Joined: 8th Sep 2002

Location: Australia

Posted: 6th Jul 2004 15:01

Link

Have you tried to add the files using the files button on the
right of the editor, I think if you do this there is no need for the
#include command. but as Zen has said if my code will not run for you, re-install and start again.

ToXic.

Back to top

Profile PM Email

Snafu

22

Years of Service

User Offline

Joined: 25th Jun 2003

Location:

Posted: 6th Jul 2004 19:23

Link

No. As stated, the function command is causing my project to close. Even this simple little line anywhere in a project causes it to close.

function shiznit()
endfunction

Thanks Zen. I did have a quick search through but couldn't find anything relevant.

- Steve

Back to top

Profile PM

zenassem

23

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 6th Jul 2004 22:32

Link

Snafu,

Looks like we hit a "Snafu"! Very omniscient.

You might want to e-mail rich about this problem. I haven't seen this problem before.

It looks like you might need to re-install patch 5.4 using repair. If that doesn't work, you might have to remove DBpro ad reinstall it from scratch and then patch up to 5.4.

~Zen

Back to top

Profile PM Email

Sorry your browser is not supported!

2D All the way! / very odd. code supplied.