Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

AppGameKit Classic Chat / any Bike/Car physics Setup outhere?

Author

Message

haliop

User Banned

Posted: 2nd Mar 2014 21:29

im trying to figure out how to create a car or a bike with a physics setup attached so the wheels will bounce like effect like in a real motorcycle.. my problem is that i dont understand physics joints like what is the diffrence between them ?
maybe theres a sample code somewhere here that i dont know about.. |

thank you for your time.

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

The Zoq2

14

Years of Service

User Offline

Joined: 4th Nov 2009

Location: Linköping, Sweden

Posted: 2nd Mar 2014 22:33

http://www.iforce2d.net/b2dtut/introduction has some really good information about most things relating to box 2d.

Say ONE stupid thing and it ends up as a forum signature forever. - Neuro Fuzzy

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 3rd Mar 2014 08:40

you can imagination than all parts are made with small pieces of elastic.
i can show u a image later.
similar bridge builder.

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

TrezSoft

AGK Tool Maker

11

Years of Service

User Offline

Joined: 8th Nov 2012

Location: UK

Posted: 3rd Mar 2014 23:44

Depends how complex you want to make it and how good you are at setting up joints etc. I created an importer for rube the box2d editor made by iforce2d T1 and T2.

http://forum.thegamecreators.com/?m=forum_view&t=209686&b=41

I have a sample of the rube truck online ( sorry its not AppGameKit as its an HTML5 example)

http://trezsoft.de/rubemonkeyignition01.html

iforce2d also have a bike sample https://www.iforce2d.net/rube/loaders/javascript/ select the bike sample from the combo box.

Stuart

Back to top

Profile PM Email Website

easter bunny

11

Years of Service

User Offline

Joined: 20th Nov 2012

Playing: Dota 2

Posted: 4th Mar 2014 00:11

I used many of those resources when making Ryder, If you want, I can give you some help on setting it up. The main thing that got me is that when you make the Revolve joints around the bike body (for the wheels), you set them up in world coordinates (ie. they're not relative to the sprites)

Audacia Games - Facebook

Back to top

Profile PM Email

haliop

User Banned

Posted: 4th Mar 2014 07:32

easter it will help alot of you show a sample
i use line joints and they are not so good....

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

easter bunny

11

Years of Service

User Offline

Joined: 20th Nov 2012

Playing: Dota 2

Posted: 4th Mar 2014 07:51

Sure, here's my spaghetti code:

you.body=CreateSprite(img.mask) `Motorbike shape (invisible, does the physics)
         SetSpriteSize(you.body,1416/60,772/60)
         SetSpritePosition(you.body,strtX#,strtY#) `Start x/y positions of bike (preset)
         SetSpritePhysicsOn(you.body,2)
         SetSpriteShape(you.body,3)
         SetSpritePhysicsAngularDamping(you.body,1)
         SetspriteVisible(you.body,0)

you.over=Createsprite(img.greycycle) `Overlay, no physics
         SetSpriteSize(you.over,1416/60,772/60)
         SetSpritePosition(you.over,strtX#,strtY#)
         SetSpriteColorAlpha(you.over,150)

you.frontw=CreateSprite(img.rwheel) `Front Wheel, attached to front of you.body
         SetSpriteShape(you.frontw,1)
         SetSpritePosition(you.frontw,strtX#+(1245/60)-4.5,strtY#+(670/60)-4.5)
         SetSpriteSize(you.frontw,9,9)
         SetSpritePhysicsOn(you.frontw,2)

you.backw=CreateSprite(img.rwheel) `Back Wheel, attached to back of you.body
         SetSpriteShape(you.backw,1)
         SetSpritePosition(you.backw,strtX#+(180/60)-4.5,strtY#+(700/60)-4.5)
         SetSpriteSize(you.backw,9,9)
         SetSpritePhysicsOn(you.backw,2)

SetSpritePhysicsMass(you.body,8)
         SetSpritePhysicsMass(you.frontw,3)
         SetSpritePhysicsMass(you.backw,2.5)

you.j1=CreateRevoluteJoint(you.body,you.frontw,strtX#+(1245/60),strtY#+(670/60),0)
         you.j2=CreateRevoluteJoint(you.body,you.backw,strtX#+(180/60),strtY#+(700/60),0)

         you.body=CreateSprite(img.mask) `Motorbike shape (invisible, does the physics)
         SetSpriteSize(you.body,1416/60,772/60)
         SetSpritePosition(you.body,strtX#,strtY#) `Start x/y positions of bike (preset)
         SetSpritePhysicsOn(you.body,2)
         SetSpriteShape(you.body,3)
         SetSpritePhysicsAngularDamping(you.body,1)
         SetspriteVisible(you.body,0)

         you.over=Createsprite(img.greycycle) `Overlay, no physics
         SetSpriteSize(you.over,1416/60,772/60)
         SetSpritePosition(you.over,strtX#,strtY#)
         SetSpriteColorAlpha(you.over,150)

         you.frontw=CreateSprite(img.rwheel) `Front Wheel, attached to front of you.body
         SetSpriteShape(you.frontw,1)
         SetSpritePosition(you.frontw,strtX#+(1245/60)-4.5,strtY#+(670/60)-4.5)
         SetSpriteSize(you.frontw,9,9)
         SetSpritePhysicsOn(you.frontw,2)

         you.backw=CreateSprite(img.rwheel) `Back Wheel, attached to back of you.body
         SetSpriteShape(you.backw,1)
         SetSpritePosition(you.backw,strtX#+(180/60)-4.5,strtY#+(700/60)-4.5)
         SetSpriteSize(you.backw,9,9)
         SetSpritePhysicsOn(you.backw,2)


         SetSpritePhysicsMass(you.body,8)
         SetSpritePhysicsMass(you.frontw,3)
         SetSpritePhysicsMass(you.backw,2.5)


         you.j1=CreateRevoluteJoint(you.body,you.frontw,strtX#+(1245/60),strtY#+(670/60),0)
         you.j2=CreateRevoluteJoint(you.body,you.backw,strtX#+(180/60),strtY#+(700/60),0)

Ha! see if you can figure that out

Audacia Games - Facebook

Back to top

Profile PM Email

haliop

User Banned

Posted: 4th Mar 2014 08:01

Thank you So much will sit on it right now see if i can figure it out . thank you easter bunny.

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

haliop

User Banned

Posted: 4th Mar 2014 08:23

Easter, now im adding velocity changes to the body to make it move..
but sometimes it will flip the car and im stuck with my wheels upwards..

any suggestion on how to make the car gain speed without using SetSpritePhysicsVelocity ?

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

haliop

User Banned

Posted: 4th Mar 2014 08:28

maybe i should use motors ?

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

TrezSoft

AGK Tool Maker

11

Years of Service

User Offline

Joined: 8th Nov 2012

Location: UK

Posted: 4th Mar 2014 09:19

Motors will probably not give you the effect you are looking for. You should just be able to apply angular velocity to the wheels (not the chassis).

SetSpritePhysicsAngularVelocity(iSpriteIndex,velocity#)

or

SetSpritePhysicsAngularImpulse( iSpriteIndex, impulse )

You will need to cap the velocity at some point else your vehicle is going to end up on its back a lot.

This may also be worth a read https://www.iforce2d.net/b2dtut/constant-speed

Personally I think you was on the right track using the line joint. AppGameKit does not have the new box2d wheel joint type but you can combine a Distance joint and a Line joint to get the same effect.

If you want to try this Create a distance joint and then create a line joint using the same parameters. This will give you the basic wheel suspension and the wheel rotation.

Back to top

Profile PM Email Website

easter bunny

11

Years of Service

User Offline

Joined: 20th Nov 2012

Playing: Dota 2

Posted: 4th Mar 2014 09:34

I used motors for Ryder

Audacia Games - Facebook

Back to top

Profile PM Email

haliop

User Banned

Posted: 4th Mar 2014 14:29

how do i use motor joint ?

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

TrezSoft

AGK Tool Maker

11

Years of Service

User Offline

Joined: 8th Nov 2012

Location: UK

Posted: 4th Mar 2014 14:36

If you are using revolute joints you just need to turn the motor On and set the speed and force as required:

SetJointMotorOn( iJointIndex, speed, maxForce )

Back to top

Profile PM Email Website

haliop

User Banned

Posted: 4th Mar 2014 14:40

using SetSpritePhysicsAngularVelocity will reach a velocity of 37 or -37 but i need it to be faster... so that might not do the trick or am i forgetting something ?

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

haliop

User Banned

Posted: 4th Mar 2014 14:52

also using motor will get to top 37 angular velocity which is pretty slow... hmm

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

TrezSoft

AGK Tool Maker

11

Years of Service

User Offline

Joined: 8th Nov 2012

Location: UK

Posted: 4th Mar 2014 15:03

I did not know it had a limit but that's 37 degrees rotation per time step at 60 or 30 steps per second that's pretty fast !. Check the Mass of your objects, double check gravity is set correctly and make sure you have enough force / torque. Also make sure you do not have the angular damping set too high as this may apply too much friction to the wheel rotation.

Back to top

Profile PM Email Website

haliop

User Banned

Posted: 4th Mar 2014 20:29

im getting there , but still it seams very odd it cannot climb on simple obstacles like stairs where each stair is just 1 on 1 size..
sometimes it just seams like its just hanging there where both front and back wheel are at angular velocity of 10... so i must be missing something...
this is what i have to move the car

function UpdateCar()
    if GetDirectionY() > 0
        if speed > -10
        speed = speed -1
        //if GetSpritePhysicsAngularVelocity(cback)> -100
        //SetSpritePhysicsVelocity(cback,GetSpritePhysicsVelocityX(cback)-10,5)
        SetJointMotorOn( bj, speed, 1000 )
        SetJointMotorOn( fj, speed, 1000 )
            //SetSpritePhysicsAngularVelocity(cback,-10)

        //endif
        //SetSpritePhysicsForce( cback, -1, 0, 0, 0 )

        endif

    elseif GetDirectionY() < 0

        if speed < 10
        speed = speed+1
       SetJointMotorOn( bj, speed, 1000)
        SetJointMotorOn( fj, speed, 1000 )

        //if GetSpritePhysicsAngularVelocity(cback) < 100
        //SetSpritePhysicsAngularVelocity(cback,10)
        //SetSpritePhysicsVelocity(cback,GetSpritePhysicsVelocityX(cback)+10,5)
       // endif
       endif
    endif
endfunction

bj = back joint
fj = front joint

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

TrezSoft

AGK Tool Maker

11

Years of Service

User Offline

Joined: 8th Nov 2012

Location: UK

Posted: 4th Mar 2014 21:09

Hard to tell from your description any chance you can post the code or some images. Its sounds like you are have friction issues ! try adding a little friction to your wheel fixtures. You probably have circle fixtures for the wheels with no suspension and a simple square fixture block you are trying to climb over. Depends on how much stuff this vehicle is going to have to climb over but you probably need to add some some fixtures around the tyres to get some kind of grip and/or add wheel joints like I suggested using a line joint and a distant joint. Take a look at the bike example in the link below you can zoom in on the bike to see the wheel nobles on the rear tyre. Also look at the front wheel this is a line / distance joint creating the suspension.https://www.iforce2d.net/rube/loaders/javascript/ Take a look at the truck sample using the same link , this is more complex as its using soft body physics to simulate the tyres.

Back to top

Profile PM Email Website

haliop

User Banned

Posted: 4th Mar 2014 21:39

i tried line and distance together and everything jumped around

this is the car setup i forgot to add it before

function CreateCar()
if GetSpriteExists(cBody)= 1 then DeleteSprite(cBody)
cBody = CreateSprite(0)
SetSpriteSize(cBody,5,2)
setSpritePositionbyOffset(cBody,px#,py#)
SetSpritePhysicsOn(cBody,2)
if GetSpriteExists(cfront)= 1 then DeleteSprite(cfront)
cFront = CreateSprite(0)
SetSpriteSize(cFront,3,3)
SetSpritePositionByOffset(cFront,GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cFront,2)
SetSpriteShape(cFront,1)
SetSpritePhysicsAngularDamping( cFront, 0.1 )
fj =CreateRevoluteJoint(cBody, cFront, GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2, 0 )
if GetSpriteExists(cBack)= 1 then DeleteSprite(cBack)
cBack = CreateSprite(0)
SetSpriteSize(cBack,3,3)
SetSpritePositionByOffset(cBack,GetSpriteXbyOffset(cBody)-3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cBack,2)
SetSpriteShape(cBack,1)
SetSpritePhysicsAngularDamping( cBack, 0.1 )
bj =CreateRevoluteJoint( cBody, cBack, GetSpriteXbyOffset(cBody)-3.5, GetSpriteYByOffset(cBody)+2,0)
SetSpritePhysicsMass(cbody,8)
SetSpritePhysicsMass(cfront,1)
SetSpritePhysicsMass(cback,1)
endfunction


function CreateCar()
if GetSpriteExists(cBody)= 1 then DeleteSprite(cBody)
cBody = CreateSprite(0)
SetSpriteSize(cBody,5,2)
setSpritePositionbyOffset(cBody,px#,py#)
SetSpritePhysicsOn(cBody,2)
if GetSpriteExists(cfront)= 1 then DeleteSprite(cfront)
cFront = CreateSprite(0)
SetSpriteSize(cFront,3,3)
SetSpritePositionByOffset(cFront,GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cFront,2)
SetSpriteShape(cFront,1)
SetSpritePhysicsAngularDamping( cFront, 0.1 )
fj =CreateRevoluteJoint(cBody, cFront, GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2, 0 )
if GetSpriteExists(cBack)= 1 then DeleteSprite(cBack)
cBack = CreateSprite(0)
SetSpriteSize(cBack,3,3)
SetSpritePositionByOffset(cBack,GetSpriteXbyOffset(cBody)-3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cBack,2)
SetSpriteShape(cBack,1)
SetSpritePhysicsAngularDamping( cBack, 0.1 )
bj =CreateRevoluteJoint( cBody, cBack, GetSpriteXbyOffset(cBody)-3.5, GetSpriteYByOffset(cBody)+2,0)
SetSpritePhysicsMass(cbody,8)
SetSpritePhysicsMass(cfront,1)
SetSpritePhysicsMass(cback,1)
endfunction

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

haliop

User Banned

Posted: 4th Mar 2014 21:42

btw i can see the tires you are talking about (bike sample) .. yeah i guess that will help , i will try to add them right now..

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

haliop

User Banned

Posted: 4th Mar 2014 22:16

car setup after adding little boxes on the wheels ..

function CreateCar()
if GetSpriteExists(cBody)= 1 then DeleteSprite(cBody)
cBody = CreateSprite(0)
SetSpriteSize(cBody,5,2)
setSpritePositionbyOffset(cBody,px#,py#)
SetSpritePhysicsOn(cBody,2)
if GetSpriteExists(cfront)= 1 then DeleteSprite(cfront)
cFront = CreateSprite(0)
SetSpriteSize(cFront,3,3)
SetSpritePositionByOffset(cFront,GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cFront,2)
SetSpriteShape(cFront,1)
SetSpritePhysicsAngularDamping( cFront, 0.1 )
fj =CreateRevoluteJoint(cBody, cFront, GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2, 0 )
if GetSpriteExists(cBack)= 1 then DeleteSprite(cBack)
cBack = CreateSprite(0)
SetSpriteSize(cBack,3,3)
SetSpritePositionByOffset(cBack,GetSpriteXbyOffset(cBody)-3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cBack,2)
SetSpriteShape(cBack,1)
SetSpritePhysicsAngularDamping( cBack, 0.1 )
bj =CreateRevoluteJoint( cBody, cBack, GetSpriteXbyOffset(cBody)-3.5, GetSpriteYByOffset(cBody)+2,0)
SetSpritePhysicsMass(cbody,8)
SetSpritePhysicsMass(cfront,1)
SetSpritePhysicsMass(cback,1)
SetSpritePhysicsFriction( cBack, 1 )

for i = 1 to 10
    cBackF[i] = CreateSprite(0)
    SetSpriteSize(cBackF[i],1,1)
    SetSpriteAngle(cBackF[i],36*i)
    SetSpritePositionByOffset(cBackF[i],GetSpriteXByOffset(cBack),GetspriteYByOffset(cBack))
    SetSpritePhysicsOn(cBackF[i],2)
    MoveSprite(cBackF[i],2)
    bb = CreateWeldJoint(cBack,cBackF[i],GetSpriteXbyOffset(cBack),GetSpriteYbyOffset(cBack),1)
next i

for i = 1 to 10
    cFrontF[i] = CreateSprite(0)
    SetSpriteSize(cFrontF[i],1,1)
    SetSpriteAngle(cFrontF[i],36*i)
    SetSpritePositionByOffset(cFrontF[i],GetSpriteXByOffset(cFront),GetspriteYByOffset(cFront))
    SetSpritePhysicsOn(cFrontF[i],2)
    MoveSprite(cFrontF[i],2)
    bb = CreateWeldJoint(cFront,cfrontF[i],GetSpriteXbyOffset(cFront),GetSpriteYbyOffset(cFront),0)
next i

endfunction

function CreateCar()
if GetSpriteExists(cBody)= 1 then DeleteSprite(cBody)
cBody = CreateSprite(0)
SetSpriteSize(cBody,5,2)
setSpritePositionbyOffset(cBody,px#,py#)
SetSpritePhysicsOn(cBody,2)
if GetSpriteExists(cfront)= 1 then DeleteSprite(cfront)
cFront = CreateSprite(0)
SetSpriteSize(cFront,3,3)
SetSpritePositionByOffset(cFront,GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cFront,2)
SetSpriteShape(cFront,1)
SetSpritePhysicsAngularDamping( cFront, 0.1 )
fj =CreateRevoluteJoint(cBody, cFront, GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2, 0 )
if GetSpriteExists(cBack)= 1 then DeleteSprite(cBack)
cBack = CreateSprite(0)
SetSpriteSize(cBack,3,3)
SetSpritePositionByOffset(cBack,GetSpriteXbyOffset(cBody)-3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cBack,2)
SetSpriteShape(cBack,1)
SetSpritePhysicsAngularDamping( cBack, 0.1 )
bj =CreateRevoluteJoint( cBody, cBack, GetSpriteXbyOffset(cBody)-3.5, GetSpriteYByOffset(cBody)+2,0)
SetSpritePhysicsMass(cbody,8)
SetSpritePhysicsMass(cfront,1)
SetSpritePhysicsMass(cback,1)
SetSpritePhysicsFriction( cBack, 1 )


for i = 1 to 10
    cBackF[i] = CreateSprite(0)
    SetSpriteSize(cBackF[i],1,1)
    SetSpriteAngle(cBackF[i],36*i)
    SetSpritePositionByOffset(cBackF[i],GetSpriteXByOffset(cBack),GetspriteYByOffset(cBack))
    SetSpritePhysicsOn(cBackF[i],2)
    MoveSprite(cBackF[i],2)
    bb = CreateWeldJoint(cBack,cBackF[i],GetSpriteXbyOffset(cBack),GetSpriteYbyOffset(cBack),1)
next i

for i = 1 to 10
    cFrontF[i] = CreateSprite(0)
    SetSpriteSize(cFrontF[i],1,1)
    SetSpriteAngle(cFrontF[i],36*i)
    SetSpritePositionByOffset(cFrontF[i],GetSpriteXByOffset(cFront),GetspriteYByOffset(cFront))
    SetSpritePhysicsOn(cFrontF[i],2)
    MoveSprite(cFrontF[i],2)
    bb = CreateWeldJoint(cFront,cfrontF[i],GetSpriteXbyOffset(cFront),GetSpriteYbyOffset(cFront),0)
next i

endfunction

but still the car isnt strong enough

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

TrezSoft

AGK Tool Maker

11

Years of Service

User Offline

Joined: 8th Nov 2012

Location: UK

Posted: 4th Mar 2014 22:17

Multiple joints tend to be hard to set up by hand that's why I changed over to using rube and created the importer for AGK. If you send me over the images I can create you a physics body with suspension etc but you will need to use the importer to create the body or translate all the parameters by hand. The line joint / Distance joint combo needs the anchor points and local axis in exactly the right position to work. Motor torque needs to be approx 20, Frequency 8 and Damping ratio 0.8. For the tyres i create a script in rube to create the bumps on the wheels but you could do the same sort of thing in AGK. Create the body of the wheel using a circle fixture and then add an addition fixture on the outside of the circle. Then duplicate the fixture around the circle fixture remembering to rotate it.

Back to top

Profile PM Email Website

TrezSoft

AGK Tool Maker

11

Years of Service

User Offline

Joined: 8th Nov 2012

Location: UK

Posted: 4th Mar 2014 22:23

Sorry I keep saying fixtures but AppGameKit calls them shapes, add fixtures to create the bumps don't make lots of bodies and weld them together ( well you can do it that way but you may have other issues).

What happens if you increase the maxforce on the motor ? add a couple of zeros to test if that's the issue.

Back to top

Profile PM Email Website

haliop

User Banned

Posted: 5th Mar 2014 07:08

i dont know what the problem is
ive added little fixtures to the wheel and welded them together
it works better now but not as much as i want

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

haliop

User Banned

Posted: 5th Mar 2014 07:14

Trez i dont have an image to it yet cause i don't know what kind of car or bike i want and i want to keep the possibilities open
can you write down all the attributes i need to change in order to get it to work?
such as friction/ damping/ etc..
i just need one to work and i'll keep going from there
thank you for your time.

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

easter bunny

11

Years of Service

User Offline

Joined: 20th Nov 2012

Playing: Dota 2

Posted: 5th Mar 2014 07:33 Edited at: 5th Mar 2014 07:34

Here's a working motorbike demo that I whipped together for you.

Create a new project (landscape)

Main.agc

SetVirtualresolution(150,100)

SetPhysicsDebugOn()

body=CreateSprite(0)
SetSpriteSize(body,30,15)
SetSpritePosition(body,20,20)
SetSpritePhysicsOn(body,2)
SetSpritePhysicsAngularDamping(body,1)

frontw=CreateSprite(0)
SetSpriteShape(frontw,1)
SetSpritePosition(frontw,20+1-4.5,20+14-4.5) `Offset x,1 y,14
SetSpriteSize(frontw,9,9)
SetSpritePhysicsOn(frontw,2)
SetSpritePhysicsFriction(frontw,5)

backw=CreateSprite(0)
SetSpriteShape(backw,1)
SetSpritePosition(backw,50-1-4.5,20+14-4.5) `Offset x,29 y,14
SetSpriteSize(backw,9,9)
SetSpritePhysicsOn(backw,2)
SetSpritePhysicsFriction(backw,5)

rj1=CreateRevoluteJoint(body,frontw,20+1,20+14,0)
rj2=CreateRevoluteJoint(body,backw,50-1,20+14,0)

SetSpriteVisible(body,0)
SetSpriteVisible(frontw,0)
SetSpriteVisible(backw,0)

rem The Easter Bunny Did It!
do
    if GetRawMouseLeftState()
        SetJointMotorOn(rj1,50,500)
    else
        SetJointMotorOFf(rj1)
    endif
    if GetRawMouseRightState()
        SetJointMotorOn(rj2,-50,500)
    else
        SetJointMotorOFf(rj2)
    endif
    Print("Use Left/Right mouse buttons")
    Sync()
loop

SetVirtualresolution(150,100)

SetPhysicsDebugOn()

body=CreateSprite(0)
SetSpriteSize(body,30,15)
SetSpritePosition(body,20,20)
SetSpritePhysicsOn(body,2)
SetSpritePhysicsAngularDamping(body,1)

frontw=CreateSprite(0)
SetSpriteShape(frontw,1)
SetSpritePosition(frontw,20+1-4.5,20+14-4.5) `Offset x,1 y,14
SetSpriteSize(frontw,9,9)
SetSpritePhysicsOn(frontw,2)
SetSpritePhysicsFriction(frontw,5)

backw=CreateSprite(0)
SetSpriteShape(backw,1)
SetSpritePosition(backw,50-1-4.5,20+14-4.5) `Offset x,29 y,14
SetSpriteSize(backw,9,9)
SetSpritePhysicsOn(backw,2)
SetSpritePhysicsFriction(backw,5)

rj1=CreateRevoluteJoint(body,frontw,20+1,20+14,0)
rj2=CreateRevoluteJoint(body,backw,50-1,20+14,0)

SetSpriteVisible(body,0)
SetSpriteVisible(frontw,0)
SetSpriteVisible(backw,0)


rem The Easter Bunny Did It!
do
    if GetRawMouseLeftState()
        SetJointMotorOn(rj1,50,500)
    else
        SetJointMotorOFf(rj1)
    endif
    if GetRawMouseRightState()
        SetJointMotorOn(rj2,-50,500)
    else
        SetJointMotorOFf(rj2)
    endif
    Print("Use Left/Right mouse buttons")
    Sync()
loop

Setup.agc

rem
rem ----------*** AGK Setup File ***----------
rem
rem NOTE: This file is used by the core binary
rem to configure basic  setup values  required
rem prior to execution of the  AGC source code.
rem No spaces allowed beyond this point:

rem Window title (delete to hide window bar)
title=Motorbike GAme

rem Specify the initial device width
width=960

rem Specify the initial device height
height=640

// Specify whether to use fullscreen mode
fullscreen=0

Audacia Games - Facebook

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 5th Mar 2014 08:37

hmm, not finished but i had began an example with our code for test.

rem
rem AGK Application 108 19
rem MR

rem Landscape App
SetDisplayAspect( 16.0/9.0 )
SetVirtualresolution(100,100)
SetPhysicsDebugOn()

global speed
global bj
global fj
dim cBackF[10]
dim cFrontF[10]

global px#
global py#
px#=50
py#=50

CreateCar()

on=1

do
 Print("hello car, use up/down keys")
UpdateCar()
 Sync()
loop
end

function UpdateCar()
    if GetDirectionY() > 0
        if speed > -10
        speed = speed -1
        //if GetSpritePhysicsAngularVelocity(cback)> -100
        //SetSpritePhysicsVelocity(cback,GetSpritePhysicsVelocityX(cback)-10,5)
        SetJointMotorOn( bj, speed, 10000 )
        SetJointMotorOn( fj, speed, 10000 )
            //SetSpritePhysicsAngularVelocity(cback,-10)

//endif
        //SetSpritePhysicsForce( cback, -1, 0, 0, 0 )

endif

elseif GetDirectionY() < 0

if speed < 10
        speed = speed+1
        SetJointMotorOn( bj, speed, 10000)
        SetJointMotorOn( fj, speed, 10000 )

//if GetSpritePhysicsAngularVelocity(cback) < 100
        //SetSpritePhysicsAngularVelocity(cback,10)
        //SetSpritePhysicsVelocity(cback,GetSpritePhysicsVelocityX(cback)+10,5)
       // endif
       endif
    endif
endfunction

function CreateCar()
if GetSpriteExists(cBody)= 1 then DeleteSprite(cBody)

cBody = CreateSprite(0)
SetSpriteSize(cBody,5,2)
setSpritePositionbyOffset(cBody,px#,py#)
SetSpritePhysicsOn(cBody,2)
if GetSpriteExists(cfront)= 1 then DeleteSprite(cfront)

cFront = CreateSprite(0)
SetSpriteSize(cFront,3,3)
SetSpritePositionByOffset(cFront,GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cFront,2)
SetSpriteShape(cFront,1)
SetSpritePhysicsAngularDamping( cFront, 0.1 )
fj =CreateRevoluteJoint(cBody, cFront, GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2, 0 )

if GetSpriteExists(cBack)= 1 then DeleteSprite(cBack)
cBack = CreateSprite(0)
SetSpriteSize(cBack,3,3)
SetSpritePositionByOffset(cBack,GetSpriteXbyOffset(cBody)-3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cBack,2)
SetSpriteShape(cBack,1)
SetSpritePhysicsAngularDamping( cBack, 0.1 )

bj =CreateRevoluteJoint( cBody, cBack, GetSpriteXbyOffset(cBody)-3.5, GetSpriteYByOffset(cBody)+2,0)

SetSpritePhysicsMass(cbody,8)
SetSpritePhysicsMass(cfront,1)
SetSpritePhysicsMass(cback,1)

SetSpritePhysicsFriction( cBack, 1 )

sprb=createsprite(0)
setspritesize(sprb,100,10)
setspriteposition(sprb,0,90)
SetSpritePhysicsOn(sprb,1)
setspriteangle(sprb,25)

if 1=0 // <<<---

//???
    for i = 1 to 10
        cBackF[i] = CreateSprite(0)
        SetSpriteSize(cBackF[i],1,1)
        SetSpriteAngle(cBackF[i],36*i)
        SetSpritePositionByOffset(cBackF[i],GetSpriteXByOffset(cBack),GetspriteYByOffset(cBack))
        SetSpritePhysicsOn(cBackF[i],2)
        MoveSprite(cBackF[i],2)
        bb = CreateWeldJoint(cBack,cBackF[i],GetSpriteXbyOffset(cBack),GetSpriteYbyOffset(cBack),1)
    next i

for i = 1 to 10
        cFrontF[i] = CreateSprite(0)
        SetSpriteSize(cFrontF[i],1,1)
        SetSpriteAngle(cFrontF[i],36*i)
        SetSpritePositionByOffset(cFrontF[i],GetSpriteXByOffset(cFront),GetspriteYByOffset(cFront))
        SetSpritePhysicsOn(cFrontF[i],2)
        MoveSprite(cFrontF[i],2)
        bb = CreateWeldJoint(cFront,cfrontF[i],GetSpriteXbyOffset(cFront),GetSpriteYbyOffset(cFront),0)
    next i

endif

endfunction

function MoveSprite(spr,x)

//???

endfunction

rem
rem AGK Application 108 19
rem MR

rem Landscape App
SetDisplayAspect( 16.0/9.0 )
SetVirtualresolution(100,100)
SetPhysicsDebugOn()

global speed
global bj
global fj
dim cBackF[10]
dim cFrontF[10]

global px#
global py#
px#=50
py#=50

CreateCar()

on=1

do
 Print("hello car, use up/down keys")
UpdateCar()
 Sync()
loop
end

function UpdateCar()
    if GetDirectionY() > 0
        if speed > -10
        speed = speed -1
        //if GetSpritePhysicsAngularVelocity(cback)> -100
        //SetSpritePhysicsVelocity(cback,GetSpritePhysicsVelocityX(cback)-10,5)
        SetJointMotorOn( bj, speed, 10000 )
        SetJointMotorOn( fj, speed, 10000 )
            //SetSpritePhysicsAngularVelocity(cback,-10)

        //endif
        //SetSpritePhysicsForce( cback, -1, 0, 0, 0 )

        endif

    elseif GetDirectionY() < 0

        if speed < 10
        speed = speed+1
        SetJointMotorOn( bj, speed, 10000)
        SetJointMotorOn( fj, speed, 10000 )

        //if GetSpritePhysicsAngularVelocity(cback) < 100
        //SetSpritePhysicsAngularVelocity(cback,10)
        //SetSpritePhysicsVelocity(cback,GetSpritePhysicsVelocityX(cback)+10,5)
       // endif
       endif
    endif
endfunction

function CreateCar()
if GetSpriteExists(cBody)= 1 then DeleteSprite(cBody)

cBody = CreateSprite(0)
SetSpriteSize(cBody,5,2)
setSpritePositionbyOffset(cBody,px#,py#)
SetSpritePhysicsOn(cBody,2)
if GetSpriteExists(cfront)= 1 then DeleteSprite(cfront)

cFront = CreateSprite(0)
SetSpriteSize(cFront,3,3)
SetSpritePositionByOffset(cFront,GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cFront,2)
SetSpriteShape(cFront,1)
SetSpritePhysicsAngularDamping( cFront, 0.1 )
fj =CreateRevoluteJoint(cBody, cFront, GetSpriteXbyOffset(cBody)+3.5,GetSpriteYByOffset(cBody)+2, 0 )

if GetSpriteExists(cBack)= 1 then DeleteSprite(cBack)
cBack = CreateSprite(0)
SetSpriteSize(cBack,3,3)
SetSpritePositionByOffset(cBack,GetSpriteXbyOffset(cBody)-3.5,GetSpriteYByOffset(cBody)+2)
SetSpritePhysicsOn(cBack,2)
SetSpriteShape(cBack,1)
SetSpritePhysicsAngularDamping( cBack, 0.1 )

bj =CreateRevoluteJoint( cBody, cBack, GetSpriteXbyOffset(cBody)-3.5, GetSpriteYByOffset(cBody)+2,0)

SetSpritePhysicsMass(cbody,8)
SetSpritePhysicsMass(cfront,1)
SetSpritePhysicsMass(cback,1)

SetSpritePhysicsFriction( cBack, 1 )

sprb=createsprite(0)
setspritesize(sprb,100,10)
setspriteposition(sprb,0,90)
SetSpritePhysicsOn(sprb,1)
setspriteangle(sprb,25)

if 1=0 // <<<---

    //???
    for i = 1 to 10
        cBackF[i] = CreateSprite(0)
        SetSpriteSize(cBackF[i],1,1)
        SetSpriteAngle(cBackF[i],36*i)
        SetSpritePositionByOffset(cBackF[i],GetSpriteXByOffset(cBack),GetspriteYByOffset(cBack))
        SetSpritePhysicsOn(cBackF[i],2)
        MoveSprite(cBackF[i],2)
        bb = CreateWeldJoint(cBack,cBackF[i],GetSpriteXbyOffset(cBack),GetSpriteYbyOffset(cBack),1)
    next i

    for i = 1 to 10
        cFrontF[i] = CreateSprite(0)
        SetSpriteSize(cFrontF[i],1,1)
        SetSpriteAngle(cFrontF[i],36*i)
        SetSpritePositionByOffset(cFrontF[i],GetSpriteXByOffset(cFront),GetspriteYByOffset(cFront))
        SetSpritePhysicsOn(cFrontF[i],2)
        MoveSprite(cFrontF[i],2)
        bb = CreateWeldJoint(cFront,cfrontF[i],GetSpriteXbyOffset(cFront),GetSpriteYbyOffset(cFront),0)
    next i

endif

endfunction

function MoveSprite(spr,x)

    //???

endfunction

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

haliop

User Banned

Posted: 6th Mar 2014 11:25

sorry about the delay..
i think that the major problem i had was with friction adding it a value of 5 is really making everything run better.

but i have encountered another problem
when i weld diffrent sprites using CreateWeldJoint they "welded" sprites will not always stay in place and sometimes move around
any other method using physics to place something on top of the other? or maybe i use weld not the right way , i will example code later.

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

TrezSoft

AGK Tool Maker

11

Years of Service

User Offline

Joined: 8th Nov 2012

Location: UK

Posted: 6th Mar 2014 11:31

Great to hear you have it working

If you need multiple bodies to create an object you are best to use multiple fixtures(Shapes)unless you need a joint for some reason.

Create you base shape and then add shapes as required AddSpriteShapeBox, AddSpriteShapePolygon etc to the same sprite.

Stuart

Back to top

Profile PM Email Website

haliop

User Banned

Posted: 6th Mar 2014 13:10

aha! so this is how its done! thank you

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

haliop

User Banned

Posted: 7th Mar 2014 09:32

Thank you everyone i got it working flawlessly

http://forum.thegamecreators.com/?m=forum_view&t=198467&b=22

Back to top

Profile

Back to top

Login to post a reply

Server time is: 2024-05-03 01:44:13
Your offset time is: 2024-05-03 01:44:13