I'm confused.. and prb hopeless - GameCreators Forum

Author

Message

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 16th Nov 2010 16:13

Link

I'm trying to make a game where the player has to jump from one platform to another to reach the end. Each platform that the player lands on can change the player properties (e.g. increase the player's jump height, increase their speed etc.), however DB doesn't seem to recognize my code.

I have tried

+ Code Snippet

 
if object collision (1,3)
  inc object speed (1) + 2
  endif

and it doesn't seem to work, the player's speed still stays the same.

I have also tried

+ Code Snippet

if object collision (1,3)
    then upkey() move object 1,2
  endif

but DB doesn't recognize the command even though that is part of my movement code.

Can someone please explain to me the appropriate way to code what I want? I also need help with increasing the jump height as I'm not sure how to approach that either.

Here is the code I have so far (I borrowed the jump code from someone here on the forums)

sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32

//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

make object plain 2, 50, 50
make object collision box 2, -22, -22, -22, 22, 2, 22, 22
point object 2, 0, -50, 0
position object 2, 0, -3.5, 0

make object plain 3, 50, 50
make object collision box 3, -22, -22, -22, 22, 2, 22, 22
point object 3, 0, -50, 0
position object 3, 0, -3.5, 60

//main program loop
do
  //movement
  if upkey() then move object 1, .3
  if downkey() then move object 1, -.1
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
  
  //reposition player to the 1st platform after a fall
  if object position y (1) < -10 then position object 1, 0,50,0 
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

//collision detection
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.9
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
  endif

//Camera setup
  if y# < -100
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
    y# = 100
    grav# = 0
  endif

position object 1, x#, y#, z#

set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 6, 4, 25, 0
  point camera object position x(1), object position y(1), object position z(1)

sync
loop

+ Code Snippet

sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32


//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

make object plain 2, 50, 50
make object collision box 2, -22, -22, -22, 22, 2, 22, 22
point object 2, 0, -50, 0
position object 2, 0, -3.5, 0

make object plain 3, 50, 50
make object collision box 3, -22, -22, -22, 22, 2, 22, 22
point object 3, 0, -50, 0
position object 3, 0, -3.5, 60


//main program loop
do
  //movement
  if upkey() then move object 1, .3
  if downkey() then move object 1, -.1
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
  
  //reposition player to the 1st platform after a fall
  if object position y (1) < -10 then position object 1, 0,50,0 
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

  //collision detection
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.9
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  

  //Camera setup
  if y# < -100
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
    y# = 100
    grav# = 0
  endif

  position object 1, x#, y#, z#

  set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 6, 4, 25, 0
  point camera object position x(1), object position y(1), object position z(1)




  sync
loop

Thanks in advance!

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 17th Nov 2010 02:43

Link

You need to assign the movement of the player to a variable or variables. It could be done like this:

+ Code Snippet

(early in the code)
speed# = .3  
(in the main game loop)
if upkey() then move object 1, speed#

if object collision (1,3) = 1 and speed# < 1.2
  inc speed#,.3
endif

For the downkey() movement, just take the value of speed# and divide by -3.

I'm not at my comp now or I could provide some more coding suggestions, but this should at least get you going.

Back to top

Profile PM Email

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 17th Nov 2010 05:55

Link

Thnks LBFN!

There is a slight problem with the movement though, the player cube stutters when the speed is changed.. it goes back to normal when the player leaves the platform which increases its speed

This is what I have so far (if anyone has a suggestion for a better jump implementation I'm all ears too)

sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32

//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

make object plain 2, 50, 50
make object collision box 2, -22, -22, -22, 22, 2, 22, 22
point object 2, 0, -50, 0
position object 2, 0, -3.5, 0

make object plain 3, 50, 50
make object collision box 3, -22, -22, -22, 22, 2, 22, 22
point object 3, 0, -50, 0
position object 3, 0, -3.5, 90

make object plain 4, 50, 50
make object collision box 4, -22, -22, -22, 22, 2, 22, 22
point object 4, 0, -50, 0
position object 4, 40, -3.5, 170

//speed variable
speed# = .3

//main program loop
do
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
  
  //reposition player to the 1st platform after a fall
  if object position y (1) < -10 then position object 1, 0,50,0 
  
  
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

//collision detection
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.9
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //Movement power up for platform 3
  if object collision (1,3) = 1 
  speed# = .9
  else speed# = .3
  endif
  
 if object collision (1,3) = 1
  dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.7
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
endif

//Camera setup
  if y# < -100
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
    y# = 100
    grav# = 0
  endif

position object 1, x#, y#, z#

set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

sync
loop

+ Code Snippet

sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32


//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

make object plain 2, 50, 50
make object collision box 2, -22, -22, -22, 22, 2, 22, 22
point object 2, 0, -50, 0
position object 2, 0, -3.5, 0

make object plain 3, 50, 50
make object collision box 3, -22, -22, -22, 22, 2, 22, 22
point object 3, 0, -50, 0
position object 3, 0, -3.5, 90

make object plain 4, 50, 50
make object collision box 4, -22, -22, -22, 22, 2, 22, 22
point object 4, 0, -50, 0
position object 4, 40, -3.5, 170

//speed variable
speed# = .3

//main program loop
do
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
  
  //reposition player to the 1st platform after a fall
  if object position y (1) < -10 then position object 1, 0,50,0 
  
  
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

  //collision detection
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.9
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //Movement power up for platform 3
  if object collision (1,3) = 1 
  speed# = .9
  else speed# = .3
  endif
  
 if object collision (1,3) = 1
  dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.7
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
endif

  //Camera setup
  if y# < -100
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
    y# = 100
    grav# = 0
  endif

  position object 1, x#, y#, z#

  set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)




  sync
loop

Back to top

Profile PM

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 17th Nov 2010 11:13

Link

*Update*

i added a text to show up everytime the cube collides with the platform and it seems as tho the reason for the stuttering was because the collision between the player and the plain was constantly going on and off.

can someone please help to explain why it is so? I have updated my code (platforms arent arranged properly yet) a bit and here it is

sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32

//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

//Setting up platforms
for t = 2 to 14
make object plain t, 50, 50
make object collision box t, -22, -22, -22, 22, 2, 22, 22
point object t, 0, -50, 0 
next t

make object plain 15, 10, 10
make object collision box 15, -3, -3, -3, 3, 2, 3, 3
point object 15, 0, -50, 0

`Positioning the platforms
position object 2, 0, -3.5, 0
position object 3, 0, -3.5, 90 `Speed increase - 3
position object 4, 40, -3.5, 170 `Speed increase -8
position object 5, 40, -3.5, 250 `speed increase -11
position object 6, -10, -3.5, 340 `jump increase -4
position object 7, 40, 3.5, 170 `Jump Increase -7
position object 8, 0, 3.5, 460 `jump increase -10
position object 9, 40, -3.5, 536 `jump increase -12
position object 10, 25, -3.5, 536 `5
position object 11, 40, -3.5, 170 `6
position object 12, 40, -3.5, 170 `13
position object 13, 40, -3.5, 170 `14
position object 14, 40, -3.5, 170 `end
position object 15, 0, 20, 400 `timer increase

//speed variable
speed# = .3

//make the timer variable.
Timer#=6000

//main program loop
do
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
  
  //reposition player to the 1st platform after a fall
  if object position y (1) < -10 then position object 1, 0,50,0 
  
  //This is the timer system
	Timer#=Timer#-1
	`What to do when the timer reaches 0
	If Timer#=<0 
			do
			set cursor screen width()/2,screen height()/2
			set text size 35
			set text font "times new roman"
			text 100,250, "TOO LATE"
			text 100,350, "YOU HAVE RUN OUT OF TIME"
			end#=end#+1
			if end#=>100 then end
			sync
		loop
	endif
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

//collision detection
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.9
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //speed increase platforms
  for t = 3 to 5
  if object collision (1,t) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  next t

//Jump increase platforms
  for t = 6 to 9
  if object collision (1,t) = 1
  dec x#, get object collision x()
    down# = get object collision y()
    if down#
    if spacekey() and down# < 0
       grav# = -.9
     else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
    set cursor 5,40
    print "Jump Height Increased!"
 endif
 next t
 
 //Timer increase
 if object collision (1,3)
 timer# = timer# + 100
 endif

//Camera setup
  if y# < -100
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
    y# = 100
    grav# = 0
  endif

position object 1, x#, y#, z#

set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

set cursor 5,5
 print "TIME LEFT: ", timer#

sync
loop

+ Code Snippet

sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32


//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

//Setting up platforms
for t = 2 to 14
make object plain t, 50, 50
make object collision box t, -22, -22, -22, 22, 2, 22, 22
point object t, 0, -50, 0 
next t

make object plain 15, 10, 10
make object collision box 15, -3, -3, -3, 3, 2, 3, 3
point object 15, 0, -50, 0

`Positioning the platforms
position object 2, 0, -3.5, 0
position object 3, 0, -3.5, 90 `Speed increase - 3
position object 4, 40, -3.5, 170 `Speed increase -8
position object 5, 40, -3.5, 250 `speed increase -11
position object 6, -10, -3.5, 340 `jump increase -4
position object 7, 40, 3.5, 170 `Jump Increase -7
position object 8, 0, 3.5, 460 `jump increase -10
position object 9, 40, -3.5, 536 `jump increase -12
position object 10, 25, -3.5, 536 `5
position object 11, 40, -3.5, 170 `6
position object 12, 40, -3.5, 170 `13
position object 13, 40, -3.5, 170 `14
position object 14, 40, -3.5, 170 `end
position object 15, 0, 20, 400 `timer increase

//speed variable
speed# = .3

//make the timer variable.
Timer#=6000

//main program loop
do
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
  
  //reposition player to the 1st platform after a fall
  if object position y (1) < -10 then position object 1, 0,50,0 
  
  //This is the timer system
	Timer#=Timer#-1
	`What to do when the timer reaches 0
	If Timer#=<0 
			do
			set cursor screen width()/2,screen height()/2
			set text size 35
			set text font "times new roman"
			text 100,250, "TOO LATE"
			text 100,350, "YOU HAVE RUN OUT OF TIME"
			end#=end#+1
			if end#=>100 then end
			sync
		loop
	endif
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

  //collision detection
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.9
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //speed increase platforms
  for t = 3 to 5
  if object collision (1,t) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  next t

  
  //Jump increase platforms
  for t = 6 to 9
  if object collision (1,t) = 1
  dec x#, get object collision x()
    down# = get object collision y()
    if down#
    if spacekey() and down# < 0
       grav# = -.9
     else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
    set cursor 5,40
    print "Jump Height Increased!"
 endif
 next t
 
 //Timer increase
 if object collision (1,3)
 timer# = timer# + 100
 endif

  //Camera setup
  if y# < -100
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
    y# = 100
    grav# = 0
  endif

  position object 1, x#, y#, z#

  set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

 set cursor 5,5
 print "TIME LEFT: ", timer#


  sync
loop

Back to top

Profile PM

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 17th Nov 2010 15:50

Link

*Update 2*

I am also having trouble with the speed up platforms, when i try

+ Code Snippet

//speed increase platforms
  for t = 3 to 5
  if object collision (1,t) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  next t

it doesn't seem to work and when I input it manually

+ Code Snippet

 //Movement power up for platform 3-5
  if object collision (1,3) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  
  if object collision (1,4) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  
  if object collision (1,5) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif

it only works on the last object, albeit still with the jarring effect because collision is not working properly.

What am I doing wrong? Is it the placement of the code within the loop or something like that? I have tried putting the code in different areas but to no avail, I have also tried subtle variations of the code but all don't work either.

Here is my full code

sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32

//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

//Setting up platforms
for t = 2 to 14
make object plain t, 50, 50
make object collision box t, -22, -22, -22, 22, 2, 22, 22
point object t, 0, -50, 0 
next t

`make object plain 15, 10, 10
`make object collision box 15, -3, -3, -3, 3, 2, 3, 3
`point object 15, 0, -50, 0

`Positioning the platforms
position object 2, 0, -3.5, 0 `start
position object 3, -70, -3.5, 60 `Speed increase - 3
position object 4, 70, -3.5, 235 `Speed increase - 8
position object 5, -100, -3.5, 315 `Speed Increase - 11
position object 6, 70, -3.5, 60 `jump increase - 4
position object 7, -70, -3.5, 220 `Jump Increase -7
position object 8, 90, -3.5, 315 `jump increase -10
position object 9, -100, -3.5, 395 `jump increase -12
position object 10, -70, -3.5, 140 `5
position object 11, 70, -3.5, 155 `6
position object 12, 70, -3.5, 410 `13
position object 13, 25, -3.5, 480 `14
position object 14, -55, -3.5, 490 `end
`position object 15, 0, 20, 400 `timer increase - 9

//color platforms
color object 2, rgb (144,238,144)
color object 10, rgb (144,238,144)
color object 11, rgb (144,238,144)
color object 12, rgb (144,238,144)
color object 13, rgb (144,238,144)
color object 3, rgb (135,206,235)
color object 4, rgb (135,206,235)
color object 5, rgb (135,206,235)
color object 6, rgb (205,000,000)
color object 7, rgb (205,000,000)
color object 8, rgb (205,000,000)
color object 9, rgb (205,000,000)
color object 14, rgb (255,127,000)

//speed variable
speed# = .3

//make the timer variable.
Timer#=1500

//main program loop
do

//movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1.3
  if leftkey() then yrotate object 1, object angle y(1)-1.3
  
  //reposition player to the 1st platform after a fall
  if object position y (1) < -10 then position object 1, 0,50,0 
  
  //This is the timer system
	Timer#=Timer#-1
	`What to do when the timer reaches 0
	If Timer#=<0 
			do
			set cursor screen width()/2,screen height()/2
			set text size 35
			set text font "times new roman"
			text 100,250, "TOO LATE"
			text 100,350, "YOU HAVE RUN OUT OF TIME"
			end#=end#+1
			if end#=>100 then end
			sync
		loop
	endif
  
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

//Jumping
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.6
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //Movement power up for platform 3-5
  if object collision (1,3) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  
  if object collision (1,4) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  
  if object collision (1,5) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  
  
  //Jump power up platforms
  for t = 6 to 9
  if object collision (1,t) = 1
  dec x#, get object collision x()
    down# = get object collision y()
    if down#
    if spacekey() and down# < 0
       grav# = -.9
     else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
    set cursor 5,40
    print "Jump Height Increased!"
 endif
 next t
 
 //Timer increase
 `if object collision (1,15)
 `timer# = timer# + 100
 `endif

//Winning Condition
 if object collision (1,14)
 set cursor screen width()/2,screen height()/2
 set text size 25
 set text font "times new roman"
 text 100,250, "WELL DONE, PRESS ANY KEY TO EXIT"
 wait key
 exit
 endif

//Camera setup
  if y# < -100
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
    y# = 100
    grav# = 0
  endif

position object 1, x#, y#, z#

set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

set cursor 5,5
 print "TIME LEFT: ", timer#

sync
loop

+ Code Snippet

sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32


//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

//Setting up platforms
for t = 2 to 14
make object plain t, 50, 50
make object collision box t, -22, -22, -22, 22, 2, 22, 22
point object t, 0, -50, 0 
next t

`make object plain 15, 10, 10
`make object collision box 15, -3, -3, -3, 3, 2, 3, 3
`point object 15, 0, -50, 0

`Positioning the platforms
position object 2, 0, -3.5, 0 `start
position object 3, -70, -3.5, 60 `Speed increase - 3
position object 4, 70, -3.5, 235 `Speed increase - 8
position object 5, -100, -3.5, 315 `Speed Increase - 11
position object 6, 70, -3.5, 60 `jump increase - 4
position object 7, -70, -3.5, 220 `Jump Increase -7
position object 8, 90, -3.5, 315 `jump increase -10
position object 9, -100, -3.5, 395 `jump increase -12
position object 10, -70, -3.5, 140 `5
position object 11, 70, -3.5, 155 `6
position object 12, 70, -3.5, 410 `13
position object 13, 25, -3.5, 480 `14
position object 14, -55, -3.5, 490 `end
`position object 15, 0, 20, 400 `timer increase - 9

//color platforms
color object 2, rgb (144,238,144)
color object 10, rgb (144,238,144)
color object 11, rgb (144,238,144)
color object 12, rgb (144,238,144)
color object 13, rgb (144,238,144)
color object 3, rgb (135,206,235)
color object 4, rgb (135,206,235)
color object 5, rgb (135,206,235)
color object 6, rgb (205,000,000)
color object 7, rgb (205,000,000)
color object 8, rgb (205,000,000)
color object 9, rgb (205,000,000)
color object 14, rgb (255,127,000)

//speed variable
speed# = .3

//make the timer variable.
Timer#=1500

//main program loop
do

 
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1.3
  if leftkey() then yrotate object 1, object angle y(1)-1.3
  
  //reposition player to the 1st platform after a fall
  if object position y (1) < -10 then position object 1, 0,50,0 
  
  //This is the timer system
	Timer#=Timer#-1
	`What to do when the timer reaches 0
	If Timer#=<0 
			do
			set cursor screen width()/2,screen height()/2
			set text size 35
			set text font "times new roman"
			text 100,250, "TOO LATE"
			text 100,350, "YOU HAVE RUN OUT OF TIME"
			end#=end#+1
			if end#=>100 then end
			sync
		loop
	endif
  
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

  //Jumping
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.6
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //Movement power up for platform 3-5
  if object collision (1,3) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  
  if object collision (1,4) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  
  if object collision (1,5) = 1
  set cursor 5,20
  print "Speed Increased!" 
  speed# = .9
  else speed# = .3
  endif
  
  
  //Jump power up platforms
  for t = 6 to 9
  if object collision (1,t) = 1
  dec x#, get object collision x()
    down# = get object collision y()
    if down#
    if spacekey() and down# < 0
       grav# = -.9
     else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
    set cursor 5,40
    print "Jump Height Increased!"
 endif
 next t
 
 //Timer increase
 `if object collision (1,15)
 `timer# = timer# + 100
 `endif

 //Winning Condition
 if object collision (1,14)
 set cursor screen width()/2,screen height()/2
 set text size 25
 set text font "times new roman"
 text 100,250, "WELL DONE, PRESS ANY KEY TO EXIT"
 wait key
 exit
 endif

  //Camera setup
  if y# < -100
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
    y# = 100
    grav# = 0
  endif

  position object 1, x#, y#, z#

  set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

 set cursor 5,5
 print "TIME LEFT: ", timer#


  sync
loop

The best part is, when I colour the platforms they don't work either. I really hope someone would take the time out to help me, I'm at my wits end and the frustration is killing me

.

Thanks again in advance

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 17th Nov 2010 16:30

Link

Okay, I was working on it when you posted again. Here is what I have so far. It is aggravating, in that certain platforms will not allow the player to jump.

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, November 17, 2010

Rem ***** Main Source File *****
sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32

//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

ScreenWidth = screen width()    : ScreenHeight = screen height()
TotalPlatforms = 14  // be sure to add to this and to the data at PF_Data when you add more platforms 
gosub SetupPlatforms

//speed variable
speed# = .3

//make the timer variable.
time = 6000

//main program loop
do
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
   //reposition player to the 1st platform after a fall
  if object position y (1) < -10
    position object 1, 0,50,0 
    speed# = 0.3
    grav# = 0.0
  endif
  
  //This is the timer system
    Time = Time - 1
    `What to do when the timer reaches 0
    If Time <= 0 
        FinalTimer = timer() + 1500 
        set text size 35
        set text font "times new roman"   
        xpos = ScreenWidth / 2 : ypos = ScreenHeight / 2    
        repeat
            center text xpos,250, "TOO LATE"
            center text xpos,350, "YOU HAVE RUN OUT OF TIME"
            sync
        until timer() > FinalTimer
    endif
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

gosub CheckCollision
  
 
 //Timer increase
` if object collision (1,3)
`    time = time + 100
` endif

//Camera setup
  if y# < -100
  
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
   ` y# = 100
    `grav# = 0.0
  endif
  
  position object 1, x#, y#, z#

set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

gosub Debug

sync
loop
end

SetupPlatforms:
//Setting up platforms
for t = 2 to TotalPlatforms
    make object plain t, 50, 50
    make object collision box t, -22, -22, -22, 22, 2, 22, 22
    point object t, 0, -50, 0 
next t

make object plain 15, 10, 10
make object collision box 15, -3, -3, -3, 3, 2, 3, 3
point object 15, 0, -50, 0

//Positioning the platforms
restore PF_Data
for pf = 1 to TotalPlatforms
    read obj,x#,y#,z#
    position object obj,x#,y#,z#
NEXT
remstart
position object 2, 0, -3.5, 0
position object 3, 0, -3.5, 90 `Speed increase - 3
position object 4, 40, -3.5, 170 `Speed increase -8
position object 5, 40, -3.5, 250 `speed increase -11
position object 6, -10, -3.5, 340 `jump increase -4
position object 7, 40, 3.5, 170 `Jump Increase -7
position object 8, 0, 3.5, 460 `jump increase -10
position object 9, 40, -3.5, 536 `jump increase -12
position object 10, 25, -3.5, 536 `5
position object 11, 40, -3.5, 170 `6
position object 12, 40, -3.5, 170 `13
position object 13, 40, -3.5, 170 `14
position object 14, 40, -3.5, 170 `end
position object 15, 0, 20, 400 `timer increase
remend

return

CheckCollision:
//collision detection
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
 `   if down#
      if spacekey() :`and down# < 0
        grav# = -.9
      else
        grav# = 0
      endif
  `  endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //speed increase platforms
  for t = 3 to 5
    if object collision (1,t) = 1 and speed# <> .9
        SpeedIncreasedTimer = timer() + 1500
        speed# = .9
    endif
  next t

//Jump increase platforms
  for t = 6 to 9
  if object collision (1,t) = 1
    dec x#, get object collision x()
    down# = get object collision y()
`    if down# < 0.0
        if spacekey() and grav# <> -.9
            grav# = -.9
            JumpHeightIncreasedTimer = timer() + 1500
        else
            grav# = 0
        endif
 `   endif
    dec y#, down#
    dec z#, get object collision z()
 endif
 next t

return

Debug:
 if SpeedIncreasedTimer > timer() then text 5,20,"Speed Increased!" 
 if JumpHeightIncreasedTimer > timer() then text 5,40,"Jump Height Increased!"
 text 5,5,"TIME LEFT: " + str$(time)
 text 5,100,"object pos y(1) = " + str$(object position y(1))

return

PF_Data:
` platform ObjectNumber,x#, y#, z#
data 2,0.0,-3.5,0.0
data 3,0.0,-3.5,90.0
data 4,40.0,-3.5,170.0
data 5,40.0,-3.5,250.0
data 6,-10.0,-3.5,340.0
data 7,40.0,3.5,170.0
data 8,0.0,3.5,460.0
data 9,40.0,-3.5,536.0
data 10,25.0,-3.5,536.0
data 11,40.0,-3.5,170.0
data 12,40.0,-3.5,170.0
data 13,40.0,-3.5,170.0
data 14,40.0,-3.5,170.0
data 15,0.0,20.0,400.0

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, November 17, 2010

Rem ***** Main Source File *****
sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32


//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

ScreenWidth = screen width()    : ScreenHeight = screen height()
TotalPlatforms = 14  // be sure to add to this and to the data at PF_Data when you add more platforms 
gosub SetupPlatforms

//speed variable
speed# = .3

//make the timer variable.
time = 6000 

//main program loop
do
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
   //reposition player to the 1st platform after a fall
  if object position y (1) < -10
    position object 1, 0,50,0 
    speed# = 0.3
    grav# = 0.0
  endif
  
  //This is the timer system
    Time = Time - 1
    `What to do when the timer reaches 0
    If Time <= 0 
        FinalTimer = timer() + 1500 
        set text size 35
        set text font "times new roman"   
        xpos = ScreenWidth / 2 : ypos = ScreenHeight / 2    
        repeat
            center text xpos,250, "TOO LATE"
            center text xpos,350, "YOU HAVE RUN OUT OF TIME"
            sync
        until timer() > FinalTimer
    endif
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

  gosub CheckCollision
  
 
 //Timer increase
` if object collision (1,3)
`    time = time + 100
` endif

  //Camera setup
  if y# < -100
  
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
   ` y# = 100
    `grav# = 0.0
  endif
  
  position object 1, x#, y#, z#

  set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

  gosub Debug
 

  sync
loop
end

SetupPlatforms:
//Setting up platforms
for t = 2 to TotalPlatforms
    make object plain t, 50, 50
    make object collision box t, -22, -22, -22, 22, 2, 22, 22
    point object t, 0, -50, 0 
next t

make object plain 15, 10, 10
make object collision box 15, -3, -3, -3, 3, 2, 3, 3
point object 15, 0, -50, 0

//Positioning the platforms
restore PF_Data
for pf = 1 to TotalPlatforms
    read obj,x#,y#,z#
    position object obj,x#,y#,z#
NEXT
remstart
position object 2, 0, -3.5, 0
position object 3, 0, -3.5, 90 `Speed increase - 3
position object 4, 40, -3.5, 170 `Speed increase -8
position object 5, 40, -3.5, 250 `speed increase -11
position object 6, -10, -3.5, 340 `jump increase -4
position object 7, 40, 3.5, 170 `Jump Increase -7
position object 8, 0, 3.5, 460 `jump increase -10
position object 9, 40, -3.5, 536 `jump increase -12
position object 10, 25, -3.5, 536 `5
position object 11, 40, -3.5, 170 `6
position object 12, 40, -3.5, 170 `13
position object 13, 40, -3.5, 170 `14
position object 14, 40, -3.5, 170 `end
position object 15, 0, 20, 400 `timer increase
remend

return

CheckCollision:
//collision detection
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
 `   if down#
      if spacekey() :`and down# < 0
        grav# = -.9
      else
        grav# = 0
      endif
  `  endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //speed increase platforms
  for t = 3 to 5
    if object collision (1,t) = 1 and speed# <> .9
        SpeedIncreasedTimer = timer() + 1500
        speed# = .9
    endif
  next t

  
  //Jump increase platforms
  for t = 6 to 9
  if object collision (1,t) = 1
    dec x#, get object collision x()
    down# = get object collision y()
`    if down# < 0.0
        if spacekey() and grav# <> -.9
            grav# = -.9
            JumpHeightIncreasedTimer = timer() + 1500
        else
            grav# = 0
        endif
 `   endif
    dec y#, down#
    dec z#, get object collision z()
 endif
 next t


return


Debug:
 if SpeedIncreasedTimer > timer() then text 5,20,"Speed Increased!" 
 if JumpHeightIncreasedTimer > timer() then text 5,40,"Jump Height Increased!"
 text 5,5,"TIME LEFT: " + str$(time)
 text 5,100,"object pos y(1) = " + str$(object position y(1))


return


PF_Data:
` platform ObjectNumber,x#, y#, z#
data 2,0.0,-3.5,0.0
data 3,0.0,-3.5,90.0
data 4,40.0,-3.5,170.0
data 5,40.0,-3.5,250.0
data 6,-10.0,-3.5,340.0
data 7,40.0,3.5,170.0
data 8,0.0,3.5,460.0
data 9,40.0,-3.5,536.0
data 10,25.0,-3.5,536.0
data 11,40.0,-3.5,170.0
data 12,40.0,-3.5,170.0
data 13,40.0,-3.5,170.0
data 14,40.0,-3.5,170.0
data 15,0.0,20.0,400.0

As you can see, I have made several edits.

Back to top

Profile PM Email

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 18th Nov 2010 05:43

Link

Thanks LBFN, I greatly appreciate your help however the can't jump on certain platforms is pretty much a game breaker so I can't incorporate your suggestions. I've been looking at your code and can't quite understand what you have done with the platforms and stuff (real noob me..

).

I'm really trying to understand why the bugs in my game exist, because I have previously used the code that is causing these known bugs in my other games and they worked fine there.

These are my current known bugs:
- speed up only working on last speed up platform
- collision is on and off when the player cube is on a platform
- this has resulted in the removal of the timer extension platform
- colour not appearing on platforms
- when the race is finished the there is no text displaying the winning message

And here is my code again, I amended the speed up platform code but its still not working

sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32

//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

//Setting up platforms
for t = 2 to 14
make object plain t, 50, 50
make object collision box t, -22, -22, -22, 22, 2, 22, 22
point object t, 0, -50, 0 
next t

`make object plain 15, 10, 10
`make object collision box 15, -3, -3, -3, 3, 2, 3, 3
`point object 15, 0, -50, 0

`Positioning the platforms
position object 2, 0, -3.5, 0 `start
position object 3, -70, -3.5, 60 `Speed increase - 3
position object 4, 70, -3.5, 235 `Speed increase - 8
position object 5, -100, -3.5, 315 `Speed Increase - 11
position object 6, 70, -3.5, 60 `jump increase - 4
position object 7, -70, -3.5, 220 `Jump Increase -7
position object 8, 90, -3.5, 315 `jump increase -10
position object 9, -100, -3.5, 395 `jump increase -12
position object 10, -70, -3.5, 140 `5
position object 11, 70, -3.5, 155 `6
position object 12, 70, -3.5, 410 `13
position object 13, 25, -3.5, 480 `14
position object 14, -55, -3.5, 490 `end
`position object 15, 0, 20, 400 `timer increase - 9

//color platforms
color object 2, rgb (144,238,144)
color object 10, rgb (144,238,144)
color object 11, rgb (144,238,144)
color object 12, rgb (144,238,144)
color object 13, rgb (144,238,144)
color object 3, rgb (135,206,235)
color object 4, rgb (135,206,235)
color object 5, rgb (135,206,235)
color object 6, rgb (205,000,000)
color object 7, rgb (205,000,000)
color object 8, rgb (205,000,000)
color object 9, rgb (205,000,000)
color object 14, rgb (255,127,000)

//speed variable
speed# = .3

//make the timer variable.
Timer#=3500

//main program loop
do

//movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1.3
  if leftkey() then yrotate object 1, object angle y(1)-1.3
  
  //reposition player to the 1st platform after a fall
  if object position y (1) < -10 then position object 1, 0,50,0 
  
  //This is the timer system
	Timer#=Timer#-1
	`What to do when the timer reaches 0
	If Timer#=<0 
			do
			set cursor screen width()/2,screen height()/2
			set text size 35
			set text font "times new roman"
			text 100,250, "TOO LATE"
			text 100,350, "YOU HAVE RUN OUT OF TIME"
			end#=end#+1
			if end#=>100 then end
			sync
		loop
	endif
  
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

//Jumping
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.6
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //Movement power up for platform 3-5
  for x = 3 to 5
  if object collision (1,x) > 0
  speed# = .9
  set cursor 5,20
  print "Speed Increased!"
  else speed# = .3
  endif
  next x
  
  //Jump power up platforms
  for t = 6 to 9
  if object collision (1,t) = 1
  dec x#, get object collision x()
    down# = get object collision y()
    if down#
    if spacekey() and down# < 0
       grav# = -.9
     else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
    set cursor 5,40
    print "Jump Height Increased!"
 endif
 next t
 
 //Timer increase
 `if object collision (1,15)
 `timer# = timer# + 100
 `endif

//Winning Condition
 if object collision (1,14)
 set cursor screen width()/2,screen height()/2
 set text size 25
 set text font "times new roman"
 text 100,250, "WELL DONE, PRESS ANY KEY TO EXIT"
 wait key
 exit
 endif

//Camera setup
  if y# < -100
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
    y# = 100
    grav# = 0
  endif

position object 1, x#, y#, z#

set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

set cursor 5,5
 print "TIME LEFT: ", timer#

sync
loop

+ Code Snippet

sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32


//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

//Setting up platforms
for t = 2 to 14
make object plain t, 50, 50
make object collision box t, -22, -22, -22, 22, 2, 22, 22
point object t, 0, -50, 0 
next t

`make object plain 15, 10, 10
`make object collision box 15, -3, -3, -3, 3, 2, 3, 3
`point object 15, 0, -50, 0

`Positioning the platforms
position object 2, 0, -3.5, 0 `start
position object 3, -70, -3.5, 60 `Speed increase - 3
position object 4, 70, -3.5, 235 `Speed increase - 8
position object 5, -100, -3.5, 315 `Speed Increase - 11
position object 6, 70, -3.5, 60 `jump increase - 4
position object 7, -70, -3.5, 220 `Jump Increase -7
position object 8, 90, -3.5, 315 `jump increase -10
position object 9, -100, -3.5, 395 `jump increase -12
position object 10, -70, -3.5, 140 `5
position object 11, 70, -3.5, 155 `6
position object 12, 70, -3.5, 410 `13
position object 13, 25, -3.5, 480 `14
position object 14, -55, -3.5, 490 `end
`position object 15, 0, 20, 400 `timer increase - 9

//color platforms
color object 2, rgb (144,238,144)
color object 10, rgb (144,238,144)
color object 11, rgb (144,238,144)
color object 12, rgb (144,238,144)
color object 13, rgb (144,238,144)
color object 3, rgb (135,206,235)
color object 4, rgb (135,206,235)
color object 5, rgb (135,206,235)
color object 6, rgb (205,000,000)
color object 7, rgb (205,000,000)
color object 8, rgb (205,000,000)
color object 9, rgb (205,000,000)
color object 14, rgb (255,127,000)

//speed variable
speed# = .3

//make the timer variable.
Timer#=3500

//main program loop
do

 
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1.3
  if leftkey() then yrotate object 1, object angle y(1)-1.3
  
  //reposition player to the 1st platform after a fall
  if object position y (1) < -10 then position object 1, 0,50,0 
  
  //This is the timer system
	Timer#=Timer#-1
	`What to do when the timer reaches 0
	If Timer#=<0 
			do
			set cursor screen width()/2,screen height()/2
			set text size 35
			set text font "times new roman"
			text 100,250, "TOO LATE"
			text 100,350, "YOU HAVE RUN OUT OF TIME"
			end#=end#+1
			if end#=>100 then end
			sync
		loop
	endif
  
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

  //Jumping
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
    if down#
      if spacekey() and down# < 0
        grav# = -.6
      else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //Movement power up for platform 3-5
  for x = 3 to 5
  if object collision (1,x) > 0
  speed# = .9
  set cursor 5,20
  print "Speed Increased!"
  else speed# = .3
  endif
  next x
  
  //Jump power up platforms
  for t = 6 to 9
  if object collision (1,t) = 1
  dec x#, get object collision x()
    down# = get object collision y()
    if down#
    if spacekey() and down# < 0
       grav# = -.9
     else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
    set cursor 5,40
    print "Jump Height Increased!"
 endif
 next t
 
 //Timer increase
 `if object collision (1,15)
 `timer# = timer# + 100
 `endif

 //Winning Condition
 if object collision (1,14)
 set cursor screen width()/2,screen height()/2
 set text size 25
 set text font "times new roman"
 text 100,250, "WELL DONE, PRESS ANY KEY TO EXIT"
 wait key
 exit
 endif

  //Camera setup
  if y# < -100
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
    y# = 100
    grav# = 0
  endif

  position object 1, x#, y#, z#

  set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

 set cursor 5,5
 print "TIME LEFT: ", timer#


  sync
loop

Anyone kind enough to point out my errors?

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 18th Nov 2010 15:15

Link

Quote: "Thanks LBFN, I greatly appreciate your help however the can't jump on certain platforms is pretty much a game breaker so I can't incorporate your suggestions. "

The problem was in the collision check for 6 - 9. This code fixes it:

+ Code Snippet

 //Jump increase platforms
  for t = 6 to 9
  if object collision (1,t) = 1
    dec x#, get object collision x()
    down# = get object collision y()
    if down# 
        if spacekey() and down# < 0
          if grav# <> -.9
            grav# = -.9
            JumpHeightIncreasedTimer = timer() + 1500
           endif
        else
            grav# = 0
        endif
    endif
    dec y#, down#
    dec z#, get object collision z()
 endif
 next t

I hesitate to spend the time to try and help you if you will not implement the suggestions I make.

Back to top

Profile PM Email

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 18th Nov 2010 15:38

Link

Hey LBFN, didn't mean to upset you.. I really appreciate you taking the time out to help me.

I would actually like to decrease the speed and jump when the player is not on the respective platform. I tried

+ Code Snippet

 for t = 3 to 5
    if object collision (1,t) = 1 and speed# <> .9
        SpeedIncreasedTimer = timer() + 1500
        speed# = .9
        else
        speed# = .1
    endif
  next t

but this breaks the speed increase, is there a better way to do this?

Once again, really appreciate your help!!

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 18th Nov 2010 15:57

Link

Quote: "Hey LBFN, didn't mean to upset you.. I really appreciate you taking the time out to help me."

Okay. By you presenting your updated code without anything that I did in it, it came across as it was being tossed aside and my effort was in vain. I like to help others, but if I do, I want them to at least consider what I am suggesting.

Anyway, the code here will cause the speed to be at .1 unless you are colliding with platforms 3 through 5, which is most of the time. There are different ways to handle this. Some ideas:
1. You could implement a timer that allows the speed increase for a certain amount of time. You could maybe change the player's color while at fast speed or perhaps place a second timer showing the time left for high speed. I don't recommend this one, but wanted to throw it out as a suggestion.
2. You could allow the speed increase to continue the rest of the game.
3. You could have the speed go back to normal if a different platform is collided with.

Back to top

Profile PM Email

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 18th Nov 2010 16:32

Link

Quote: "
Okay. By you presenting your updated code without anything that I did in it, it came across as it was being tossed aside and my effort was in vain. I like to help others, but if I do, I want them to at least consider what I am suggesting."

Sorry it was pretty rude of me in hindsight and it was a noob mistake.. Won't happen again while I'm here..

I have taken your advice on board and amended the speed code

+ Code Snippet

//speed increase platforms
  for t = 6 to 15
  if object collision (1,t) = 1 and speed# > .3 
  speed# = .3
  endif
  next t
  
  for t = 3 to 5
    if object collision (1,t) = 1 and speed# <> .9
        SpeedIncreasedTimer = timer() + 1500
        speed# = .5
    endif
  next t

works well enough, thanks to you

Now I'm trying to colour code the platforms so the player is aware of which platform provides which power up.. I have inserted the code for that before,inside and after the main loop but the platforms are still grey.. Is there a trick to this? my code is real simple and straightforward

+ Code Snippet

//color platforms
color object 2, rgb (144,238,144)
color object 10, rgb (144,238,144)
color object 11, rgb (144,238,144)
color object 12, rgb (144,238,144)
color object 13, rgb (144,238,144)
color object 3, rgb (135,206,235)
color object 4, rgb (135,206,235)
color object 5, rgb (135,206,235)
color object 6, rgb (205,000,000)
color object 7, rgb (205,000,000)
color object 8, rgb (205,000,000)
color object 9, rgb (205,000,000)
color object 14, rgb (255,127,000)

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 18th Nov 2010 16:47 Edited at: 18th Nov 2010 17:06

Link

We are going to need to get on the same page with the code. I will see if I can implement your changes with mine to make it work.

As to coloring the platforms, try SET OBJECT AMBIENCE ObjectNumber,rgb(red,green, blue) [plug in the same RGB values used to color them) after you color them. It should work.

Back to top

Profile PM Email

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 18th Nov 2010 17:18

Link

Tried your suggestion but i must be doing it wrong because it doesn't work.. I feel like a broken record here I'm so sorry for being hopeless.. I tried adding in the SET OBJECT AMBIENCE ObjectNumber,rgb(red,green, blue) and turned off the `color object 2, rgb but still no luck on the colour..

Anyway to facilitate your understanding of what i have done here is the updated code in full

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, November 17, 2010

Rem ***** Main Source File *****
sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32

//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

ScreenWidth = screen width()    : ScreenHeight = screen height()
TotalPlatforms = 14  // be sure to add to this and to the data at PF_Data when you add more platforms 
gosub SetupPlatforms

//speed variable
speed# = .3

//make the timer variable.
time = 3000

//main program loop
do
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
   //reposition player to the 1st platform after a fall
  if object position y (1) < -10
    position object 1, -0,20,0 
    speed# = 0.3
    grav# = 0.0
  endif
  
 
  //This is the timer system
    Time = Time - 1
    `What to do when the timer reaches 0
    If Time <= 0 
        FinalTimer = timer() + 1500 
        set text size 35
        set text font "times new roman"   
        xpos = ScreenWidth / 2 : ypos = ScreenHeight / 2    
        repeat
            center text xpos,250, "TOO LATE"
            center text xpos,350, "YOU HAVE RUN OUT OF TIME"
            sync
        until timer() > FinalTimer
    endif
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

gosub CheckCollision
  
 
 //Timer increase
if object collision (1,15) 
	set cursor 30,50
    print "Timer Increased to a max of 3000!"
		if Time < 2900
    	Time = Time + 100
    	endif
endif

//Winning Condition
 if object collision (1,14)
 set cursor screen width()/2,screen height()/2
 set text size 25
 set text font "times new roman"
 text 100,250, "WELL DONE, PRESS ANY KEY TO EXIT"
 wait key
 exit
 endif
 
 set cursor 10,35
 print "Current Speed: ", speed#
 set cursor 10,65
 print "Current Jump: " , grav#

//Camera setup
  if y# < -100
  
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
   ` y# = 100
    `grav# = 0.0
  endif
  
  position object 1, x#, y#, z#

set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

gosub Debug

sync
loop
end

SetupPlatforms:
//Setting up platforms
for t = 2 to TotalPlatforms
    make object plain t, 50, 50
    make object collision box t, -22, -22, -22, 22, 2, 22, 22
    point object t, 0, -50, 0 
next t

make object plain 15, 10, 10
make object collision box 15, -3, -3, -3, 3, 2, 3, 3
point object 15, 0, -50, 0

//Positioning the platforms
restore PF_Data
for pf = 1 to TotalPlatforms
    read obj,x#,y#,z#
    position object obj,x#,y#,z#
NEXT

return

CheckCollision:
//collision detection
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
 `   if down#
      if spacekey() :`and down# < 0
        grav# = -.6
      else
        grav# = 0
      endif
  `  endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //speed increase platforms
  for t = 6 to 15
  if object collision (1,t) = 1 and speed# > .3 
  speed# = .3
  endif
  next t
  
  for t = 3 to 5
    if object collision (1,t) = 1 and speed# <> .9
        SpeedIncreasedTimer = timer() + 1500
        speed# = .5
    endif
  next t

//Jump increase platforms
  for t = 6 to 9
  if object collision (1,t) = 1
  dec x#, get object collision x()
    down# = get object collision y()
    if down#
    if spacekey() and down# < 0
       grav# = -.9
     else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
    set cursor 10,50
    print "Jump Height Increased!"
 endif
 next t

return

Debug:
 if SpeedIncreasedTimer > timer() then text 5,20,"Speed Increased!" 
 if JumpHeightIncreasedTimer > timer() then text 5,40,"Jump Height Increased!"
 text 5,5,"TIME LEFT: " + str$(time)
 text 5,100,"object pos y(1) = " + str$(object position y(1))

return

PF_Data:
` platform ObjectNumber,x#, y#, z#
data 2,0.0,-3.5,0.0
data 3, -70.0, -3.5, 60.0
data 4,60.0, -3.5, 235.0
data 5,-80.0, -3.5, 315.0
data 6,70.0, -3.5, 60.0
data 7,-60.0, -3.5, 220.0
data 8,90.0, -3.5, 315.0
data 9,-100.0, -3.5, 395.0
data 10,-70.0, -3.5, 140.0
data 11,70.0, -3.5, 155.0
data 12,70.0, -3.5, 410.0
data 13,25.0, -3.5, 480.0
data 14,-55.0, -3.5, 490.0
data 15,0.0,5.0,250.0

`SET OBJECT AMBIENCE 2,rgb (144,238,144)
`SET OBJECT AMBIENCE 10, rgb (144,238,144)
//color platforms
`color object 2, rgb (144,238,144)
`color object 10, rgb (144,238,144)
`color object 11, rgb (144,238,144)
`color object 12, rgb (144,238,144)
`color object 13, rgb (144,238,144)
`color object 3, rgb (135,206,235)
`color object 4, rgb (135,206,235)
`color object 5, rgb (135,206,235)
`color object 6, rgb (205,000,000)
`color object 7, rgb (205,000,000)
`color object 8, rgb (205,000,000)
`color object 9, rgb (205,000,000)
`color object 14, rgb (255,127,000)

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, November 17, 2010

Rem ***** Main Source File *****
sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32


//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

ScreenWidth = screen width()    : ScreenHeight = screen height()
TotalPlatforms = 14  // be sure to add to this and to the data at PF_Data when you add more platforms 
gosub SetupPlatforms

//speed variable
speed# = .3

//make the timer variable.
time = 3000 

//main program loop
do
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
   //reposition player to the 1st platform after a fall
  if object position y (1) < -10
    position object 1, -0,20,0 
    speed# = 0.3
    grav# = 0.0
  endif
  
 
  //This is the timer system
    Time = Time - 1
    `What to do when the timer reaches 0
    If Time <= 0 
        FinalTimer = timer() + 1500 
        set text size 35
        set text font "times new roman"   
        xpos = ScreenWidth / 2 : ypos = ScreenHeight / 2    
        repeat
            center text xpos,250, "TOO LATE"
            center text xpos,350, "YOU HAVE RUN OUT OF TIME"
            sync
        until timer() > FinalTimer
    endif
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

  gosub CheckCollision
  
 
 //Timer increase
if object collision (1,15) 
	set cursor 30,50
    print "Timer Increased to a max of 3000!"
		if Time < 2900
    	Time = Time + 100
    	endif
endif

//Winning Condition
 if object collision (1,14)
 set cursor screen width()/2,screen height()/2
 set text size 25
 set text font "times new roman"
 text 100,250, "WELL DONE, PRESS ANY KEY TO EXIT"
 wait key
 exit
 endif
 
 set cursor 10,35
 print "Current Speed: ", speed#
 set cursor 10,65
 print "Current Jump: " , grav#
  

  //Camera setup
  if y# < -100
  
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
   ` y# = 100
    `grav# = 0.0
  endif
  
  position object 1, x#, y#, z#

  set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

  gosub Debug
 

  sync
loop
end

SetupPlatforms:
//Setting up platforms
for t = 2 to TotalPlatforms
    make object plain t, 50, 50
    make object collision box t, -22, -22, -22, 22, 2, 22, 22
    point object t, 0, -50, 0 
next t

make object plain 15, 10, 10
make object collision box 15, -3, -3, -3, 3, 2, 3, 3
point object 15, 0, -50, 0

//Positioning the platforms
restore PF_Data
for pf = 1 to TotalPlatforms
    read obj,x#,y#,z#
    position object obj,x#,y#,z#
NEXT

return

CheckCollision:
//collision detection
  if object collision(1, 0)
    dec x#, get object collision x()
    down# = get object collision y()
 `   if down#
      if spacekey() :`and down# < 0
        grav# = -.6
      else
        grav# = 0
      endif
  `  endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
  //speed increase platforms
  for t = 6 to 15
  if object collision (1,t) = 1 and speed# > .3 
  speed# = .3
  endif
  next t
  
  for t = 3 to 5
    if object collision (1,t) = 1 and speed# <> .9
        SpeedIncreasedTimer = timer() + 1500
        speed# = .5
    endif
  next t

  
  
  //Jump increase platforms
  for t = 6 to 9
  if object collision (1,t) = 1
  dec x#, get object collision x()
    down# = get object collision y()
    if down#
    if spacekey() and down# < 0
       grav# = -.9
     else
        grav# = 0
      endif
    endif
    dec y#, down#
    dec z#, get object collision z()
    set cursor 10,50
    print "Jump Height Increased!"
 endif
 next t

return


Debug:
 if SpeedIncreasedTimer > timer() then text 5,20,"Speed Increased!" 
 if JumpHeightIncreasedTimer > timer() then text 5,40,"Jump Height Increased!"
 text 5,5,"TIME LEFT: " + str$(time)
 text 5,100,"object pos y(1) = " + str$(object position y(1))


return


PF_Data:
` platform ObjectNumber,x#, y#, z#
data 2,0.0,-3.5,0.0
data 3, -70.0, -3.5, 60.0
data 4,60.0, -3.5, 235.0
data 5,-80.0, -3.5, 315.0
data 6,70.0, -3.5, 60.0
data 7,-60.0, -3.5, 220.0
data 8,90.0, -3.5, 315.0
data 9,-100.0, -3.5, 395.0
data 10,-70.0, -3.5, 140.0
data 11,70.0, -3.5, 155.0
data 12,70.0, -3.5, 410.0
data 13,25.0, -3.5, 480.0
data 14,-55.0, -3.5, 490.0
data 15,0.0,5.0,250.0


`SET OBJECT AMBIENCE 2,rgb (144,238,144)
`SET OBJECT AMBIENCE 10, rgb (144,238,144)
//color platforms
`color object 2, rgb (144,238,144)
`color object 10, rgb (144,238,144)
`color object 11, rgb (144,238,144)
`color object 12, rgb (144,238,144)
`color object 13, rgb (144,238,144)
`color object 3, rgb (135,206,235)
`color object 4, rgb (135,206,235)
`color object 5, rgb (135,206,235)
`color object 6, rgb (205,000,000)
`color object 7, rgb (205,000,000)
`color object 8, rgb (205,000,000)
`color object 9, rgb (205,000,000)
`color object 14, rgb (255,127,000)

Note I have also changed the jump increase code back to my original as it behaved like how I wanted it to (just wanted increased jump for the duration of the player on that platform) despite the collisions going on and off.

I am going to bed now as it is 3.15am here in Melbourne, Australia. So many thanks for your generous help and I will take a look at this post again tom when I get up.

Cheers LBFN!

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 18th Nov 2010 17:35

Link

It's funny, I was working with another coder the other day and found out he is from Australia also. You know you're a serious coder when you are still up at 3:15am working on something.

Anyway, I had been working on combining the code into one also. Take a look at this:

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, November 17, 2010

Rem ***** Main Source File *****
sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32

//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

ScreenWidth = screen width()    : ScreenHeight = screen height()
TotalPlatforms = 14  // be sure to add to this and to the data at PF_Data when you add more platforms 
gosub SetupPlatforms

//speed variable
speed# = .3

//make the timer variable.
time = 6000 
GameOver = 0 : TimeToGo = 0
//main program loop
repeat
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
   //reposition player to the 1st platform after a fall
  if object position y (1) < -10
    position object 1, 0,50,0 
    speed# = 0.3
    grav# = 0.0
  endif
  
  //This is the timer system
    Time = Time - 1
    `What to do when the timer reaches 0
    If Time <= 0 
        FinalTimer = timer() + 1500 
        set text size 35
        set text font "times new roman"   
        xpos = ScreenWidth / 2 : ypos = ScreenHeight / 2    
        repeat
            center text xpos,250, "TOO LATE"
            center text xpos,350, "YOU HAVE RUN OUT OF TIME"
            sync
        until timer() > FinalTimer
        GameOver = 1
    endif
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

gosub CheckCollision
  
 
  //Camera setup
  if y# < -100
  
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
   ` y# = 100
    `grav# = 0.0
  endif
  
  position object 1, x#, y#, z#

set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

gosub Debug
  if GameOver > 0 then gosub HandleGameOVer
 
  sync
until TimeToGo > 0
end

SetupPlatforms:
//Setting up platforms
for t = 2 to TotalPlatforms
    make object plain t, 50, 50
    make object collision box t, -22, -22, -22, 22, 2, 22, 22
    point object t, 0, -50, 0 
next t

make object plain 15, 10, 10
make object collision box 15, -3, -3, -3, 3, 2, 3, 3
point object 15, 0, -50, 0

//Positioning the platforms
restore PF_Data
for pf = 1 to TotalPlatforms
    read obj,x#,y#,z#,red,green,blue
    position object obj,x#,y#,z#
    color object obj,rgb(red,green,blue)
    set object ambience obj,rgb(red,green,blue)
NEXT

return

CheckCollision:
//collision detection
CollObj = object collision(1,0)
  if CollObj > 0
    dec x#, get object collision x()
    down# = get object collision y()
 `   if down#
      if spacekey() :`and down# < 0
        grav# = -.9
      else
        grav# = 0
      endif
  `  endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
 //speed increase platforms
  for t = 6 to 15
    if CollObj = t and speed# > .3 : `object collision (1,t) = 1 and speed# > .3 
      speed# = .3
    endif
  next t
  
  for t = 3 to 5
    if CollObj = t and speed# <> .9 : `object collision (1,t) = 1 and speed# <> .9
        SpeedIncreasedTimer = timer() + 1500
        speed# = .5
    endif
  next t
  
  //Jump increase platforms
  for t = 6 to 9
  if CollObj = t : `object collision (1,t) = 1
    dec x#, get object collision x()
    down# = get object collision y()
    if down# 
        if spacekey() and down# < 0
          if grav# <> -.9
            grav# = -.9
            JumpHeightIncreasedTimer = timer() + 1500
           endif
        else
            grav# = 0
        endif
    endif
    dec y#, down#
    dec z#, get object collision z()
 endif
 next t

If CollObj = 15 then GameOver = 2 : ` player has reached the end

return

HandleGameOver:
Select GameOver
    case 1
        FinalTimer = timer() + 2000 
        set text size 35
        set text font "times new roman"   
        xpos = ScreenWidth / 2 : ypos = ScreenHeight / 2    
        repeat
            center text xpos,250, "TOO LATE"
            center text xpos,350, "YOU HAVE RUN OUT OF TIME"
            sync
        until timer() > FinalTimer
        TimeToGo = 1
     endcase
    case 2
        FinalTimer = timer() + 2500 
        set text size 35
        set text font "times new roman"   
        xpos = ScreenWidth / 2 : ypos = ScreenHeight / 2    
        repeat
            center text xpos,250, "You did it, congratulations!"
            center text xpos,350, "Your skills are incredible!"
            sync
        until timer() > FinalTimer
        TimeToGo = 2
    endcase
` at this point, you could give the user the option to restart the game, or you could
` load in a new level if they succeeded
 
EndSelect

return

Debug:
 if SpeedIncreasedTimer > timer() then text 5,20,"Speed Increased!" 
 if JumpHeightIncreasedTimer > timer() then text 5,40,"Jump Height Increased!"
 text 5,5,"TIME LEFT: " + str$(time)
` text 5,100,"object pos y(1) = " + str$(object position y(1))
 text 5,120,"CollObj = " + str$(CollObj)

return

PF_Data:
` platform ObjectNumber,x#, y#, z#
data 2,0.0,-3.5,0.0,144,238,144
data 3,-70, -3.5, 60,135,206,235
data 4,70, -3.5, 235,135,206,235
data 5,-100, -3.5, 315,135,206,235
data 6,70, -3.5, 60,205,000,000
data 7,-70, -3.5, 220,205,000,000
data 8,90, -3.5, 315,205,000,000
data 9,-100, -3.5, 395,205,000,000
data 10,-70, -3.5, 140,144,238,144
data 11,70, -3.5, 155,144,238,144
data 12,70, -3.5, 410,144,238,144
data 13,25, -3.5, 480,144,238,144
data 14,-55.0, -3.5, 490.0,255,127,000
data 15,-55, -3.5, 450,255,0,255

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, November 17, 2010

Rem ***** Main Source File *****
sync on
sync rate 60

hide mouse
autocam off
set display mode 800, 640, 32


//setting up player cube
make object cube 1, 2
color object 1, rgb(0, 0, 255)
position object 1, 0, 50, 0
make object collision box 1, -1.4., -1.4, -1.4, 1.4, 1.4, 1.4, 0

ScreenWidth = screen width()    : ScreenHeight = screen height()
TotalPlatforms = 14  // be sure to add to this and to the data at PF_Data when you add more platforms 
gosub SetupPlatforms

//speed variable
speed# = .3

//make the timer variable.
time = 6000 
GameOver = 0 : TimeToGo = 0
//main program loop
repeat
  //movement
  if upkey() then move object 1, speed#
  if downkey() then move object 1, -speed#
  if rightkey() then yrotate object 1, object angle y(1)+1
  if leftkey() then yrotate object 1, object angle y(1)-1
   //reposition player to the 1st platform after a fall
  if object position y (1) < -10
    position object 1, 0,50,0 
    speed# = 0.3
    grav# = 0.0
  endif
  
  //This is the timer system
    Time = Time - 1
    `What to do when the timer reaches 0
    If Time <= 0 
        FinalTimer = timer() + 1500 
        set text size 35
        set text font "times new roman"   
        xpos = ScreenWidth / 2 : ypos = ScreenHeight / 2    
        repeat
            center text xpos,250, "TOO LATE"
            center text xpos,350, "YOU HAVE RUN OUT OF TIME"
            sync
        until timer() > FinalTimer
        GameOver = 1
    endif
  
  //Gravity
  x# = object position x(1)
  y# = object position y(1)
  dec y#, grav#
  inc grav#, .01
  z# = object position z(1)

  gosub CheckCollision
  
 
  //Camera setup
  if y# < -100
  
    position camera camera position x(), 100 + camera position y() - y# , camera position z()
   ` y# = 100
    `grav# = 0.0
  endif
  
  position object 1, x#, y#, z#

  set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 20, 15, 5, 0
  point camera object position x(1), object position y(1), object position z(1)

  gosub Debug
  if GameOver > 0 then gosub HandleGameOVer
 
  sync
until TimeToGo > 0
end

SetupPlatforms:
//Setting up platforms
for t = 2 to TotalPlatforms
    make object plain t, 50, 50
    make object collision box t, -22, -22, -22, 22, 2, 22, 22
    point object t, 0, -50, 0 
next t

make object plain 15, 10, 10
make object collision box 15, -3, -3, -3, 3, 2, 3, 3
point object 15, 0, -50, 0

//Positioning the platforms
restore PF_Data
for pf = 1 to TotalPlatforms
    read obj,x#,y#,z#,red,green,blue
    position object obj,x#,y#,z#
    color object obj,rgb(red,green,blue)
    set object ambience obj,rgb(red,green,blue)
NEXT


return

CheckCollision:
//collision detection
CollObj = object collision(1,0)
  if CollObj > 0
    dec x#, get object collision x()
    down# = get object collision y()
 `   if down#
      if spacekey() :`and down# < 0
        grav# = -.9
      else
        grav# = 0
      endif
  `  endif
    dec y#, down#
    dec z#, get object collision z()
  endif
  
 //speed increase platforms
  for t = 6 to 15
    if CollObj = t and speed# > .3 : `object collision (1,t) = 1 and speed# > .3 
      speed# = .3
    endif
  next t
  
  for t = 3 to 5
    if CollObj = t and speed# <> .9 : `object collision (1,t) = 1 and speed# <> .9
        SpeedIncreasedTimer = timer() + 1500
        speed# = .5
    endif
  next t
  
  //Jump increase platforms
  for t = 6 to 9
  if CollObj = t : `object collision (1,t) = 1
    dec x#, get object collision x()
    down# = get object collision y()
    if down# 
        if spacekey() and down# < 0
          if grav# <> -.9
            grav# = -.9
            JumpHeightIncreasedTimer = timer() + 1500
           endif
        else
            grav# = 0
        endif
    endif
    dec y#, down#
    dec z#, get object collision z()
 endif
 next t

If CollObj = 15 then GameOver = 2 : ` player has reached the end

return

HandleGameOver:
Select GameOver
    case 1
        FinalTimer = timer() + 2000 
        set text size 35
        set text font "times new roman"   
        xpos = ScreenWidth / 2 : ypos = ScreenHeight / 2    
        repeat
            center text xpos,250, "TOO LATE"
            center text xpos,350, "YOU HAVE RUN OUT OF TIME"
            sync
        until timer() > FinalTimer
        TimeToGo = 1
     endcase
    case 2
        FinalTimer = timer() + 2500 
        set text size 35
        set text font "times new roman"   
        xpos = ScreenWidth / 2 : ypos = ScreenHeight / 2    
        repeat
            center text xpos,250, "You did it, congratulations!"
            center text xpos,350, "Your skills are incredible!"
            sync
        until timer() > FinalTimer
        TimeToGo = 2
    endcase
` at this point, you could give the user the option to restart the game, or you could
` load in a new level if they succeeded
 
EndSelect

return

Debug:
 if SpeedIncreasedTimer > timer() then text 5,20,"Speed Increased!" 
 if JumpHeightIncreasedTimer > timer() then text 5,40,"Jump Height Increased!"
 text 5,5,"TIME LEFT: " + str$(time)
` text 5,100,"object pos y(1) = " + str$(object position y(1))
 text 5,120,"CollObj = " + str$(CollObj)

return


PF_Data:
` platform ObjectNumber,x#, y#, z#
data 2,0.0,-3.5,0.0,144,238,144
data 3,-70, -3.5, 60,135,206,235
data 4,70, -3.5, 235,135,206,235
data 5,-100, -3.5, 315,135,206,235
data 6,70, -3.5, 60,205,000,000
data 7,-70, -3.5, 220,205,000,000
data 8,90, -3.5, 315,205,000,000
data 9,-100, -3.5, 395,205,000,000
data 10,-70, -3.5, 140,144,238,144
data 11,70, -3.5, 155,144,238,144
data 12,70, -3.5, 410,144,238,144
data 13,25, -3.5, 480,144,238,144
data 14,-55.0, -3.5, 490.0,255,127,000
data 15,-55, -3.5, 450,255,0,255

I am using plane 15 for the final goal. The planes all show their colors properly, and everything seems to work okay. Take a look and see if there is anything you want changed. It also shows the current object that is being collided with - this was only put in to help me and is for debugging purposes.

If you run out of time, it will tell you and then end. If you reach plane 15, it congratulates you and ends.

Back to top

Profile PM Email

gormee

14

Years of Service

User Offline

Joined: 10th Oct 2010

Location:

Posted: 19th Nov 2010 05:36

Link

Hey wow, the game works great now! Really appreciate your help LBFN! Unfortunately I have to concentrate on my sch work now, I don't have much time to refine this idea further.

Might try another idea again when all my assignments have been handed in next week. I'm trying rapid prototyping because its encouraged by my teachers (I'm studying to be a game designer).

Thanks again for all your advice!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / I'm confused.. and prb hopeless