Why is this ball flying up? - GameCreators Forum

Author

Message

Kot

7

Years of Service

User Offline

Joined: 2nd Mar 2017

Location:

Posted: 29th Dec 2017 00:51

Link

This is really very noob question

I must have missed something really simple, but - why is this sphere flying up? I thought that it should stand still or, at most, fall down to the plane. Why doesn't it stop at the upper plane, but after some jerks continues going upward?

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Ustronie - PG2" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
setCameraRange(1,15,60000)
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

teren1=createobjectplane(2000,2000)
setobjectrotation(teren1,90,0,0)
SetObjectLightMode(teren1,1)
setobjectposition(teren1,-200,0,5000)

teren2=createobjectplane(2000,2000)
setobjectrotation(teren2,90,0,0)
SetObjectLightMode(teren2,1)
setobjectposition(teren2,-200,500,5000)

SetSkyBoxHorizonColor( 60,6,6 )
SetSkyBoxSkyColor( 3, 3, 40 ) 
SetSkyBoxVisible(1)

SetAmbientColor( 20,20,20 ) 	`tu jest oświetlenie całości; 0,0,0 wyłącza
SetSunDirection (-1,-1,0)
SetSunColor(40,30,50)
SetSunActive (1)

someSphere=createobjectsphere(20,12,12)
SetObjectPosition(someSphere, -375, 10, 5051)
setobjectscale (someSphere,0.3,0.3,0.3)

do
    rem Old position

oldx#=GetObjectX(someSphere)
 oldy#=GetObjectY(someSphere)
 oldz#=GetObjectZ(someSphere)

// set camera on your character
SetCameraPosition(1, GetObjectX(someSphere),GetObjectY(someSphere),GetObjectZ(someSphere))
//align camera rotation with character POV
SetCameraRotation( 1, 0,GetObjectAngleY(someSphere)-180 , 0)
//move the camera behind you
MoveCameraLocalZ(1, -80)
//move the camera up
MoveCameraLocalY( 1, 35 )

`
 rem New position
 newx#=GetObjectX(someSphere)
 newy#=GetObjectY(someSphere)
 newz#=GetObjectZ(someSphere)
 
 if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,10)>0

newx#=GetObjectRayCastSlideX(0)
  newy#=GetObjectRayCastSlideY(0)
  newz#=GetObjectRayCastSlideZ(0)
  SetObjectPosition(someSphere,newx#,newy#, newz#)

endif

Print( ScreenFPS() )
    printc ("x=")
    print(GetObjectX(someSphere))
    printc("z=")
    print (GetObjectZ(someSphere))
    printc ("y=")
    print (GetObjectY(someSphere))
    Sync()
loop

+ Code Snippet

// show all errors
SetErrorMode(2)



// set window properties
SetWindowTitle( "Ustronie - PG2" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
setCameraRange(1,15,60000)
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


teren1=createobjectplane(2000,2000)
setobjectrotation(teren1,90,0,0)
SetObjectLightMode(teren1,1)
setobjectposition(teren1,-200,0,5000)

teren2=createobjectplane(2000,2000)
setobjectrotation(teren2,90,0,0)
SetObjectLightMode(teren2,1)
setobjectposition(teren2,-200,500,5000)


SetSkyBoxHorizonColor( 60,6,6 )
SetSkyBoxSkyColor( 3, 3, 40 ) 
SetSkyBoxVisible(1)

SetAmbientColor( 20,20,20 ) 	`tu jest oświetlenie całości; 0,0,0 wyłącza
SetSunDirection (-1,-1,0)
SetSunColor(40,30,50)
SetSunActive (1)

someSphere=createobjectsphere(20,12,12)
SetObjectPosition(someSphere, -375, 10, 5051)
setobjectscale (someSphere,0.3,0.3,0.3)

do
    rem Old position

 oldx#=GetObjectX(someSphere)
 oldy#=GetObjectY(someSphere)
 oldz#=GetObjectZ(someSphere)


// set camera on your character
SetCameraPosition(1, GetObjectX(someSphere),GetObjectY(someSphere),GetObjectZ(someSphere))
//align camera rotation with character POV
SetCameraRotation( 1, 0,GetObjectAngleY(someSphere)-180 , 0)
//move the camera behind you
MoveCameraLocalZ(1, -80)
//move the camera up
MoveCameraLocalY( 1, 35 )


 `
 rem New position
 newx#=GetObjectX(someSphere)
 newy#=GetObjectY(someSphere)
 newz#=GetObjectZ(someSphere)
 
 if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,10)>0

  newx#=GetObjectRayCastSlideX(0)
  newy#=GetObjectRayCastSlideY(0)
  newz#=GetObjectRayCastSlideZ(0)
  SetObjectPosition(someSphere,newx#,newy#, newz#)

 endif


    Print( ScreenFPS() )
    printc ("x=")
    print(GetObjectX(someSphere))
    printc("z=")
    print (GetObjectZ(someSphere))
    printc ("y=")
    print (GetObjectY(someSphere))
    Sync()
loop

Back to top

Profile PM

PSY

Developer

7

Years of Service

User Offline

Joined: 3rd Jul 2016

Location: Laniakea Supercluster

Posted: 29th Dec 2017 15:46

Link

I've never used the slide commands, and I'm new to 3D, but I guess it's because the sphere is too close to the plane to run an ObjectSphereSlide with a radius of 10, so you get unwanted values.

I replaced 10 by 2.8 in the following line, and it works:
if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,2.8)>0

PSY LABS Games
Coders don't die, they just gosub without return

Back to top

Profile PM Website

Kot

7

Years of Service

User Offline

Joined: 2nd Mar 2017

Location:

Posted: 30th Dec 2017 10:28

Link

It's not the matter of the planes, because if you comment them out it still goes up like crazy

Looks like it checks for collision with itself or just magic

Yes, radius set to 2.8 works, but why?

It can't be that I'll have to manually look for radius each time I'll want to load an object

Back to top

Profile PM

Bengismo

6

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 30th Dec 2017 13:29

Link

The code doesnt make a lot of sense to me. What are you trying to do??

Your code checks for a collision between the sphere you have created (ID someSphere) and a sphere that is cast into the scene of radius 10 at the exact same position as your sphere. So they ALWAYS collide as one is in the SAME location as the other. The sphere cast then suggests a new set of position variables so that they dont collide which you assign as new position. The collision between your spherecast and the sphere you created is moving the sphere. (your spherecast is chasing your sphere out of the scene

)

Its not just the Y that varies, the X and z do too by a smaller amount.

If you dont want your sphere cast into the scene to collide with your object sphere then turn off its collision
SetObjectCollisionMode(someSphere,0) // this is to stop it interfering with the collision with the shpere cast into the scene

Back to top

Profile PM

Kot

7

Years of Service

User Offline

Joined: 2nd Mar 2017

Location:

Posted: 30th Dec 2017 20:46

Link

I'm trying to make a simple game that takes place in my home town. I Imported a map from OpenStreetMap to Blender and then exported into an .obj file and put a human figure into it. I extracted this piece of code trying to pinpoint why this object behaves this strange way. Thanks for your answer, it explained all that I thought is magic

I'm going back to learning now

Attachments

Login to view attachments

Back to top

Profile PM

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 31st Dec 2017 18:48

Link

The problem seems related with the SetObjectPosition. You need to pass the offsets instead

// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Ustronie - PG2" )
SetWindowSize( 1024, 768, 0 )
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
setCameraRange(1,15,60000)
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
teren1=createobjectplane(2000,2000)
setobjectrotation(teren1,90,0,0)
SetObjectLightMode(teren1,1)
setobjectposition(teren1,-200,0,5000)
 
teren2=createobjectplane(2000,2000)
setobjectrotation(teren2,90,0,0)
SetObjectLightMode(teren2,1)
setobjectposition(teren2,-200,500,5000)
 
SetSkyBoxHorizonColor( 60,6,6 )
SetSkyBoxSkyColor( 3, 3, 40 ) 
SetSkyBoxVisible(1)
 
SetAmbientColor( 20,20,20 )     `tu jest oświetlenie całości; 0,0,0 wyłącza
SetSunDirection (-1,-1,0)
SetSunColor(40,30,50)
SetSunActive (1)
 
someSphere=createobjectsphere(20,12,12)
SetObjectPosition(someSphere, -375, 10, 5051)
setobjectscale (someSphere,0.3,0.3,0.3)
 
do
    rem Old position
 
 oldx#=GetObjectX(someSphere)
 oldy#=GetObjectY(someSphere)
 oldz#=GetObjectZ(someSphere)
 
// set camera on your character
SetCameraPosition(1, GetObjectX(someSphere),GetObjectY(someSphere),GetObjectZ(someSphere))
//align camera rotation with character POV
SetCameraRotation( 1, 0,GetObjectAngleY(someSphere)-180 , 0)
//move the camera behind you
MoveCameraLocalZ(1, -80)
//move the camera up
MoveCameraLocalY( 1, 35 )
 
 rem New position
 newx#=GetObjectX(someSphere)
 newy#=GetObjectY(someSphere)
 newz#=GetObjectZ(someSphere)
 
 angle as float

if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,10)>0
	newx#=GetObjectRayCastSlideX(0)
	newy#=GetObjectRayCastSlideY(0)
	newz#=GetObjectRayCastSlideZ(0)
	// Just an example varying the offsets **********************
	SetObjectPosition(someSphere,newx#*cos(angle), newy#*sin(angle), newz#*sin(angle))
	angle =angle +0.5
 endif
 
 
    Print( ScreenFPS() )
    printc ("x=")
    print(GetObjectX(someSphere))
    printc("z=")
    print (GetObjectZ(someSphere))
    printc ("y=")
    print (GetObjectY(someSphere))
    Sync()
loop

+ Code Snippet

// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Ustronie - PG2" )
SetWindowSize( 1024, 768, 0 )
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
setCameraRange(1,15,60000)
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
teren1=createobjectplane(2000,2000)
setobjectrotation(teren1,90,0,0)
SetObjectLightMode(teren1,1)
setobjectposition(teren1,-200,0,5000)
 
teren2=createobjectplane(2000,2000)
setobjectrotation(teren2,90,0,0)
SetObjectLightMode(teren2,1)
setobjectposition(teren2,-200,500,5000)
 
SetSkyBoxHorizonColor( 60,6,6 )
SetSkyBoxSkyColor( 3, 3, 40 ) 
SetSkyBoxVisible(1)
 
SetAmbientColor( 20,20,20 )     `tu jest oświetlenie całości; 0,0,0 wyłącza
SetSunDirection (-1,-1,0)
SetSunColor(40,30,50)
SetSunActive (1)
 
someSphere=createobjectsphere(20,12,12)
SetObjectPosition(someSphere, -375, 10, 5051)
setobjectscale (someSphere,0.3,0.3,0.3)
 
do
    rem Old position
 
 oldx#=GetObjectX(someSphere)
 oldy#=GetObjectY(someSphere)
 oldz#=GetObjectZ(someSphere)
 
// set camera on your character
SetCameraPosition(1, GetObjectX(someSphere),GetObjectY(someSphere),GetObjectZ(someSphere))
//align camera rotation with character POV
SetCameraRotation( 1, 0,GetObjectAngleY(someSphere)-180 , 0)
//move the camera behind you
MoveCameraLocalZ(1, -80)
//move the camera up
MoveCameraLocalY( 1, 35 )
 
 rem New position
 newx#=GetObjectX(someSphere)
 newy#=GetObjectY(someSphere)
 newz#=GetObjectZ(someSphere)
 
 angle as float

 if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,10)>0
	newx#=GetObjectRayCastSlideX(0)
	newy#=GetObjectRayCastSlideY(0)
	newz#=GetObjectRayCastSlideZ(0)
	// Just an example varying the offsets **********************
	SetObjectPosition(someSphere,newx#*cos(angle), newy#*sin(angle), newz#*sin(angle))
	angle =angle +0.5
 endif
 
 
    Print( ScreenFPS() )
    printc ("x=")
    print(GetObjectX(someSphere))
    printc("z=")
    print (GetObjectZ(someSphere))
    printc ("y=")
    print (GetObjectY(someSphere))
    Sync()
loop

Happy new year

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Why is this ball flying up?

Attachments