ATTENTION PLEASE!!! Movement in my game

Author

Message

Mr X

18

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 12th Feb 2006 20:13 Edited at: 12th Feb 2006 20:21

Link

Hi all.
Ive got an idea for how I would like the movement to be in my 3d merchant game. The idea of the game is simple: You travel between planets and trade. The problem is that I came up with an idea about how to move the ship in a simple way, but Ive got no idea about how to do it. The idea is that when you want to travel to a planet, you dubbleclick on the planet (in the 3d space) with the mouse and then the ship will do the rest itself. It will turn until its facing the planet and then move to it. The tricky part is how to do it.

1. How do you make so the ship will know when its facing the planet?

2. How do you make so the ship turns in the right direction (if the planet is on its left side it turns left and if its on the right side it turns right)?

Thanks for your time.

Back to top

Profile PM Email

SimSmall

20

Years of Service

User Offline

Joined: 7th Aug 2004

Location: United Kingdom

Posted: 12th Feb 2006 21:07

Link

I can answer part 1:

I'll use "A" for your ship and "B" For the planet you want to look at...

after testing the double-click condition:

point object A,object position x(B),object position y(B),object position z(B)

alternatively, to make a smooth turn (instead of the instant turn as above)

test the double-click condition, and if true, set a variable. such as: turn = 1
and then...

if turn = 1
point object A,curveangle(object position x(B),camera angle x(),C),curveangle(object position y(B),camera angle y(),C),curveangle(object position z(B),camera angle z(),C)
endif

this needs to be part of a loop otherwise it will turn part of the way to the planet, then stop turning

C needs to be a whole number, try experimenting with this for yourself to get a turning speed you're happy with...

Back to top

Profile PM Email

Yskonyn

21

Years of Service

User Offline

Joined: 19th Dec 2002

Location: Netherlands

Posted: 12th Feb 2006 23:58

Link

Eventhough ___ was kind enough to help you on your way, I personally think it's quite rude to use caps in your topic title.
If you think you will gain attention by doing this, you might find yourself dissapointed in the long run, because people either start a flame or just ignore your post as a whole.

Good luck with your project, though.

Yskonyn - (Waiting for Hands On DBP Programming Vol. 1)
"It's better to wish down here you were up, then to wish up there you were down."

Back to top

Profile PM Email

x1b

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location:

Posted: 13th Feb 2006 01:32

Link

I'm guessing that you dont get much attention at home. Thus the caps.

- Do it, Do it Right, Do it right now..

Back to top

Profile PM

Mr X

18

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 13th Feb 2006 10:34 Edited at: 13th Feb 2006 11:14

Link

Quote: "Eventhough ___ was kind enough to help you on your way, I personally think it's quite rude to use caps in your topic title.
If you think you will gain attention by doing this, you might find yourself dissapointed in the long run, because people either start a flame or just ignore your post as a whole."

Quote: "I'm guessing that you dont get much attention at home. Thus the caps."

Lol, only thought it might make people look threw the post. Didnt know it was considered rude. Guess I was wrong.

Back to top

Profile PM Email

Chris Franklin

19

Years of Service

User Offline

Joined: 2nd Aug 2005

Location: UK

Posted: 13th Feb 2006 13:12

Link

It's more considered shouting

Theme park simulator 15% Currently making object selection

Back to top

Profile PM Website

Mr X

18

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 13th Feb 2006 18:28 Edited at: 13th Feb 2006 18:30

Link

Ok, Ive tested it, but it doesent work. The ship turns instanly but I want it to when you dubbleclick I want it to turn smothly until its facing the planet, and then move to it. This is my code (I copies directly from ___´s post):

+ Code Snippet

  rem Click on the planet to select it
  if object in screen(2)
    if button(posx,object screen x(2)+50,object screen x(2)-50,posy,object screen y(2)+50,object screen y(2)-50)=1
      colour("red") : square(object screen x(2)-50,object screen x(2)+50,object screen y(2)-50,object screen y(2)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=2
      endif
    endif
  endif

  if object in screen(4)
    if button(posx,object screen x(4)+50,object screen x(4)-50,posy,object screen y(4)+50,object screen y(4)-50)=1
      colour("red") : square(object screen x(4)-50,object screen x(4)+50,object screen y(4)-50,object screen y(4)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=4
      endif
    endif
  endif

  rem Turn to planet
  if turn=1
    point object 1,curveangle(object position x(planet),camera angle x(),7),curveangle(object position y(planet),camera angle y(),7),curveangle(object position z(planet),camera angle z(),7)
  endif

Why wont it turn as I want it to turn?

EDIT:

The command "colour" is a function I made so I could change the colour easier of 2d things, like texts, lines etc. Just remove it if it trubbles you.

Back to top

Profile PM Email

SimSmall

20

Years of Service

User Offline

Joined: 7th Aug 2004

Location: United Kingdom

Posted: 13th Feb 2006 18:43

Link

Sorry, the idea was untested, it may be that the number I had as C needs to be something like 30, or it may be that I've completely missed something out... If I see what I've missed, I'll post the mistake - but I am a little tired today...

Back to top

Profile PM Email

Jerok

19

Years of Service

User Offline

Joined: 7th May 2005

Location: Mars. Wait a sec I\'m on MARS. OMG

Posted: 13th Feb 2006 19:20

Link

this isnt too hard the simplest way i think to do this would be...
1. create a small object(sphere would be the easiest) and position it at the ships position.
2.point the object towards the selected planet
3.get the angle of the object
4.check if the x and y angles of the object are greater or less then the these angles of your ship
5.increase or decrease the angles of your ship slowly untill they match that of the object
6.check if the angles are the same if they are move the object toward the planet.

ill make and post an example soon

Back to top

Profile PM

Mr X

18

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 13th Feb 2006 20:14

Link

An example would be nice, but wouldt the angle that points the ship to the planet be relative to where the ship is? I mean, its a complete 3d game, so the movement take place in complete 3d.

Quote: "Sorry, the idea was untested, it may be that the number I had as C needs to be something like 30, or it may be that I've completely missed something out... If I see what I've missed, I'll post the mistake - but I am a little tired today... "

The highest nr I tested with was 70, same effect. Thanks anyway, you tried to help and I appriciate that.

Back to top

Profile PM Email

Jerok

19

Years of Service

User Offline

Joined: 7th May 2005

Location: Mars. Wait a sec I\'m on MARS. OMG

Posted: 13th Feb 2006 20:30

Link

ok some of the turns are a bit weird but it works you just click on the object you want to move toward if it doesnt work at first move the mouse and clikc a few more times because the mouse has to be very near the center of the object to go
heres the code

autocam off
sync on
sync rate 60
`first we make our ship
make object box 10,1,1,3
`then we make our move object
make object sphere 99,.1
`then we position our camera
position camera 0,30,-30

`then we make our planets
for planet= 1 to 5
make object sphere planet,1
position object planet,rnd(10),rnd(10),rnd(10)
next planet
`now that thats done we can start our main loop
do
`first we need to get the ships position so we can position the object at its position
sx#=object position x(10)
sy#=object position y(10)
sz#=object position z(10)
`then we need to position the sphere at its position
position object 99,sx#,sy#,sz#
`then we are going to point the camera at the objects position
point camera sx#,sy#,sz#
`now we need to  chack which planet you will click
if choice#=0
for planet = 1 to 5
`now we check if your mouse is close enough to the object
if abs(object screen x(planet)-mousex())<1 and abs(object screen y(planet)-mousey())<1 and mouseclick()=1
choice#=planet
endif
`i know i didnt make it so you have to double click to go there but you can figure that out on your own(dont worry it easy)
next planet
endif
`now we start the moveing toward the planet stuff
`we start by chacking if you have made a choice
if choice#<>0
`if you have we will start by finding the selected planets position
px#=object position x(choice#)
py#=object position y(choice#)
pz#=object position z(choice#)
`then we will point the object toward the planet
point object 99,px#,py#,pz#
`now we get the angle of the object so we can make our ship point in that angle
oangx=object angle x(99)
oangy=object angle y(99)
`we dont need the z angle because that is just tilting the object which we dont need
`now we get the ships angle
sangx=object angle x(10)
sangy=object angle y(10)
`now we check wheather each angle of the object is greater or less then the ships and ajust the ships angle accordingly
if oangx>sangx then inc sangx,1
if oangx<sangx then dec sangx,1
if oangy>sangy then inc sangy,1
if oangy<sangy then dec sangy,1

`you can use the timer to regulate the speed in which these commands increase
`now we rotate the ship to the new angles
rotate object 10,sangx,sangy,0
`then we check when the ship is facing the planet
if sangx=oangx and sangy=oangy
`then we move it toward the planet
move object 10,1
endif
`now we are going to check when the object is at the planet
if abs(sx#-px#)<1 and abs(sy#-py#)<1 and abs(sz#-pz#)<1
`if we are at the planet we are going to set choice to 0 so you can chose another planet if you like
choice#=0
endif
endif
`now we sync and end the loop
sync
loop

+ Code Snippet

autocam off
sync on
sync rate 60
`first we make our ship
make object box 10,1,1,3
`then we make our move object
make object sphere 99,.1
`then we position our camera
position camera 0,30,-30

`then we make our planets
for planet= 1 to 5
make object sphere planet,1
position object planet,rnd(10),rnd(10),rnd(10)
next planet
`now that thats done we can start our main loop
do
`first we need to get the ships position so we can position the object at its position
sx#=object position x(10)
sy#=object position y(10)
sz#=object position z(10)
`then we need to position the sphere at its position
position object 99,sx#,sy#,sz#
`then we are going to point the camera at the objects position
point camera sx#,sy#,sz#
`now we need to  chack which planet you will click
if choice#=0
for planet = 1 to 5
`now we check if your mouse is close enough to the object
if abs(object screen x(planet)-mousex())<1 and abs(object screen y(planet)-mousey())<1 and mouseclick()=1
choice#=planet
endif
`i know i didnt make it so you have to double click to go there but you can figure that out on your own(dont worry it easy)
next planet
endif
`now we start the moveing toward the planet stuff
`we start by chacking if you have made a choice
if choice#<>0
`if you have we will start by finding the selected planets position
px#=object position x(choice#)
py#=object position y(choice#)
pz#=object position z(choice#)
`then we will point the object toward the planet
point object 99,px#,py#,pz#
`now we get the angle of the object so we can make our ship point in that angle
oangx=object angle x(99)
oangy=object angle y(99)
`we dont need the z angle because that is just tilting the object which we dont need
`now we get the ships angle
sangx=object angle x(10)
sangy=object angle y(10)
`now we check wheather each angle of the object is greater or less then the ships and ajust the ships angle accordingly
if oangx>sangx then inc sangx,1
if oangx<sangx then dec sangx,1
if oangy>sangy then inc sangy,1
if oangy<sangy then dec sangy,1

`you can use the timer to regulate the speed in which these commands increase
`now we rotate the ship to the new angles
rotate object 10,sangx,sangy,0
`then we check when the ship is facing the planet
if sangx=oangx and sangy=oangy
`then we move it toward the planet
move object 10,1
endif
`now we are going to check when the object is at the planet
if abs(sx#-px#)<1 and abs(sy#-py#)<1 and abs(sz#-pz#)<1
`if we are at the planet we are going to set choice to 0 so you can chose another planet if you like
choice#=0
endif
endif
`now we sync and end the loop
sync
loop

Back to top

Profile PM

Mr X

18

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 15th Feb 2006 13:47 Edited at: 15th Feb 2006 13:49

Link

Cant make it work

. The ship just turns and never stops. Whats wrong?

rem Click on the planet to select it
  if object in screen(2)
    if button(posx,object screen x(2)+50,object screen x(2)-50,posy,object screen y(2)+50,object screen y(2)-50)=1
      colour("red") : square(object screen x(2)-50,object screen x(2)+50,object screen y(2)-50,object screen y(2)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=2
      endif
    endif
  endif

if object in screen(4)
    if button(posx,object screen x(4)+50,object screen x(4)-50,posy,object screen y(4)+50,object screen y(4)-50)=1
      colour("red") : square(object screen x(4)-50,object screen x(4)+50,object screen y(4)-50,object screen y(4)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=4
      endif
    endif
  endif

rem Turn to planet
  if turn=1

rem Point the "Guider"
    point object 999,object position x(planet),object position y(planet),object position z(planet)

rem Get "Guider" angle
    theanglex=object angle x(999)
    theangley=object angle y(999)

rem Get ship angle
    shipanglex=object angle x(1)
    shipangley=object angle y(1)

rem Turn ship
    if theanglex<shipanglex then dec anx,1
    if theanglex>shipanglex then inc anx,1
    if theangley<shipangley then dec any,1
    if theangley>shipangley then inc any,1

rem Rotate the ship
    rotate object 1,anx,any,0

rem Move ship
    if shipanglex=theanglex and shipangley=shipangley then move object 1,0.5

endif

+ Code Snippet

  rem Click on the planet to select it
  if object in screen(2)
    if button(posx,object screen x(2)+50,object screen x(2)-50,posy,object screen y(2)+50,object screen y(2)-50)=1
      colour("red") : square(object screen x(2)-50,object screen x(2)+50,object screen y(2)-50,object screen y(2)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=2
      endif
    endif
  endif

  if object in screen(4)
    if button(posx,object screen x(4)+50,object screen x(4)-50,posy,object screen y(4)+50,object screen y(4)-50)=1
      colour("red") : square(object screen x(4)-50,object screen x(4)+50,object screen y(4)-50,object screen y(4)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=4
      endif
    endif
  endif

  rem Turn to planet
  if turn=1

    rem Point the "Guider"
    point object 999,object position x(planet),object position y(planet),object position z(planet)

    rem Get "Guider" angle
    theanglex=object angle x(999)
    theangley=object angle y(999)

    rem Get ship angle
    shipanglex=object angle x(1)
    shipangley=object angle y(1)

    rem Turn ship
    if theanglex<shipanglex then dec anx,1
    if theanglex>shipanglex then inc anx,1
    if theangley<shipangley then dec any,1
    if theangley>shipangley then inc any,1

    rem Rotate the ship
    rotate object 1,anx,any,0

    rem Move ship
    if shipanglex=theanglex and shipangley=shipangley then move object 1,0.5

  endif

Back to top

Profile PM Email

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 15th Feb 2006 16:19 Edited at: 15th Feb 2006 16:22

Link

Try this

+ Code Snippet

global TurnMe=0
global TempAngle1#=0.0
global TempAngle2#=0.0

if you clicky on the planet
   TempAngle1#=object angle y(Ship)
   point object Ship,object position x(Planet),object position y(Planet),object position z(Planet)
   TempAngle2#=object angle y(Ship)
   yrotate object Ship,TempAngle1#
   TurnMe=1
endif

if TurnMe=1
   yrotate object Ship,curveangle(TempAngle2#,object angle y(Ship),15)
   if object angle y(Ship)=TempAngle2# then TurnMe=0
endif

FunkyStickmen: Battle of the Races (1%)

Back to top

Profile PM Email

Mr X

18

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 15th Feb 2006 18:12

Link

Didnt work.

Back to top

Profile PM Email

Jerok

19

Years of Service

User Offline

Joined: 7th May 2005

Location: Mars. Wait a sec I\'m on MARS. OMG

Posted: 15th Feb 2006 18:14

Link

Mr.X mine works fine i dont know whats wrong with yours you might have to global the angles as integers(im not sure why) but image all's is probably easier.

Back to top

Profile PM

Mr X

18

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 15th Feb 2006 20:00 Edited at: 15th Feb 2006 20:06

Link

I know it works just fine, Ive tested your example, and thats whats so weared. It should work. But for some reason I cant make it to. I can test to make them global as intrigers... if I can figure out how (still a noob).

Ive tried to make it work. Maybe its some other part of the subrutine, Ive both some code to control the "autopilot" and some to make a manual control system. Here it is:

rem The ship
player:

rem Ship model
  select stats(1)
    case 1 : model$="Leithad (li-fr)" : endcase
    case 2 : model$="Deeiran (me-fr)" : endcase
    case 3 : model$="Juzzedn (he-fr)" : endcase
  endselect

rem The max cargo
  if stats(3)>stats(2) then stats(3)=stats(2)

rem Control ship
  rem Turn ship to right or left
  if leftkey()=1 then factor1=-2.5 : turn=0
  if rightkey()=1 then factor1=2.5 : turn=0
  if leftkey()=0 and rightkey()=0 then factor1=0

rem Turn ship up or down
  if upkey()=1 then factor2=2.5 : turn=0
  if downkey()=1 then factor2=-2.5 : turn=0
  if upkey()=0 and downkey()=0 then factor2=0

rem Move ship forward
  if keystate(50)=1 then moveship=1
  if keystate(49)=1 then moveship=0

if moveship=1 then move object 1,0.5

rem Ship angles
  angleship#=angleship#+factor1
  angleship2#=angleship2#+factor2

rem Angle the ship
  yrotate object 1,angleship#
  xrotate object 1,angleship2#

rem Click on the planet to select it
  if object in screen(2)
    if button(posx,object screen x(2)+50,object screen x(2)-50,posy,object screen y(2)+50,object screen y(2)-50)=1
      colour("red") : square(object screen x(2)-50,object screen x(2)+50,object screen y(2)-50,object screen y(2)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=2
      endif
    endif
  endif

if object in screen(4)
    if button(posx,object screen x(4)+50,object screen x(4)-50,posy,object screen y(4)+50,object screen y(4)-50)=1
      colour("red") : square(object screen x(4)-50,object screen x(4)+50,object screen y(4)-50,object screen y(4)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=4
      endif
    endif
  endif

rem Turn to planet
  if turn=1

rem Point the "Guider"
    point object 999,object position x(planet),object position y(planet),object position z(planet)

rem Get "Guider" angle
    theanglex=int(object angle x(999))
    theangley=int(object angle y(999))

rem Get ship angle
    shipanglex=int(object angle x(1))
    shipangley=int(object angle y(1))

rem Turn ship
    if theanglex<shipanglex then dec anx,1
    if theanglex>shipanglex then inc anx,1
    if theangley<shipangley then dec any,1
    if theangley>shipangley then inc any,1

if anx>360 then anx=0
    if anx<0 then anx=360
    if any>360 then any=0
    if any<0 then any=360

rem Rotate the ship
    rotate object 1,anx,any,0

rem Move ship
    if shipanglex=theanglex and shipangley=shipangley then moveship=1

endif

return

+ Code Snippet

rem The ship
player:

  rem Ship model
  select stats(1)
    case 1 : model$="Leithad (li-fr)" : endcase
    case 2 : model$="Deeiran (me-fr)" : endcase
    case 3 : model$="Juzzedn (he-fr)" : endcase
  endselect

  rem The max cargo
  if stats(3)>stats(2) then stats(3)=stats(2)

  rem Control ship
  rem Turn ship to right or left
  if leftkey()=1 then factor1=-2.5 : turn=0
  if rightkey()=1 then factor1=2.5 : turn=0
  if leftkey()=0 and rightkey()=0 then factor1=0

  rem Turn ship up or down
  if upkey()=1 then factor2=2.5 : turn=0
  if downkey()=1 then factor2=-2.5 : turn=0
  if upkey()=0 and downkey()=0 then factor2=0

  rem Move ship forward
  if keystate(50)=1 then moveship=1
  if keystate(49)=1 then moveship=0

  if moveship=1 then move object 1,0.5

  rem Ship angles
  angleship#=angleship#+factor1
  angleship2#=angleship2#+factor2

  rem Angle the ship
  yrotate object 1,angleship#
  xrotate object 1,angleship2#

  rem Click on the planet to select it
  if object in screen(2)
    if button(posx,object screen x(2)+50,object screen x(2)-50,posy,object screen y(2)+50,object screen y(2)-50)=1
      colour("red") : square(object screen x(2)-50,object screen x(2)+50,object screen y(2)-50,object screen y(2)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=2
      endif
    endif
  endif

  if object in screen(4)
    if button(posx,object screen x(4)+50,object screen x(4)-50,posy,object screen y(4)+50,object screen y(4)-50)=1
      colour("red") : square(object screen x(4)-50,object screen x(4)+50,object screen y(4)-50,object screen y(4)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=4
      endif
    endif
  endif

  rem Turn to planet
  if turn=1

    rem Point the "Guider"
    point object 999,object position x(planet),object position y(planet),object position z(planet)

    rem Get "Guider" angle
    theanglex=int(object angle x(999))
    theangley=int(object angle y(999))

    rem Get ship angle
    shipanglex=int(object angle x(1))
    shipangley=int(object angle y(1))

    rem Turn ship
    if theanglex<shipanglex then dec anx,1
    if theanglex>shipanglex then inc anx,1
    if theangley<shipangley then dec any,1
    if theangley>shipangley then inc any,1

    if anx>360 then anx=0
    if anx<0 then anx=360
    if any>360 then any=0
    if any<0 then any=360

    rem Rotate the ship
    rotate object 1,anx,any,0

    rem Move ship
    if shipanglex=theanglex and shipangley=shipangley then moveship=1

  endif

return

Is there something wrong?

EDIT:

I just found a part that was wrong:

+ Code Snippet

    rem Move ship
    if shipanglex=theanglex and shipangley=shipangley then moveship=1

should be

+ Code Snippet

    rem Move ship
    if shipanglex=theanglex and shipangley=theangley then moveship=1

. I fixed it, but it didnt work.

Back to top

Profile PM Email

Mr X

18

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 16th Feb 2006 17:07 Edited at: 16th Feb 2006 17:13

Link

Ok, Ive updated the code a little, and now it works much better. But not entierly. You see, the ship rotate until it has the right angle, and the moves, the only problem is that it does so in the wrong direction.

rem The ship
player:

rem Ship model
  select stats(1)
    case 1 : model$="Leithad (li-fr)" : endcase
    case 2 : model$="Deeiran (me-fr)" : endcase
    case 3 : model$="Juzzedn (he-fr)" : endcase
  endselect

rem The max cargo
  if stats(3)>stats(2) then stats(3)=stats(2)

rem Control ship
  rem Turn ship to right or left
  if leftkey()=1 then factor1=-2.5 : turn=0
  if rightkey()=1 then factor1=2.5 : turn=0
  if leftkey()=0 and rightkey()=0 then factor1=0

rem Turn ship up or down
  if upkey()=1 then factor2=2.5 : turn=0
  if downkey()=1 then factor2=-2.5 : turn=0
  if upkey()=0 and downkey()=0 then factor2=0

rem Move ship forward
  if keystate(50)=1 then moveship=1 : turn=0
  if keystate(49)=1 then moveship=0 : turn=0

if moveship=1 then move object 1,0.5

rem Ship angles
  angleship#=angleship#+factor1
  angleship2#=angleship2#+factor2

rem Angle the ship
  yrotate object 1,angleship#
  xrotate object 1,angleship2#

rem Click on the planet to select it
  if object in screen(2)
    if button(posx,object screen x(2)+50,object screen x(2)-50,posy,object screen y(2)+50,object screen y(2)-50)=1
      colour("red") : square(object screen x(2)-50,object screen x(2)+50,object screen y(2)-50,object screen y(2)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=2
      endif
    endif
  endif

if object in screen(4)
    if button(posx,object screen x(4)+50,object screen x(4)-50,posy,object screen y(4)+50,object screen y(4)-50)=1
      colour("red") : square(object screen x(4)-50,object screen x(4)+50,object screen y(4)-50,object screen y(4)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=4
      endif
    endif
  endif

rem Turn to planet
  if turn=1

rem Point the "Guider"
    point object 999,object position x(planet),object position y(planet),object position z(planet)

rem Get "Guider" angle
    theanglex=int(object angle x(999))
    theangley=int(object angle y(999))

rem Get ship angle
    shipanglex=int(object angle x(1))
    shipangley=int(object angle y(1))

rem Turn ship
    if theanglex<shipanglex then dec angleship2#,1
    if theanglex>shipanglex then inc angleship2#,1
    if theangley<shipangley then dec angleship#,1
    if theangley>shipangley then inc angleship#,1

if angleship2#>360 then angleship2#=0
    if angleship2#<0 then angleship2#=360
    if angleship#>360 then angleship#=0
    if angleship#<0 then angleship#=360

rem Rotate the ship
    yrotate object 1,angleship#
    xrotate object 1,angleship2#

rem Move ship
    if int(object angle x(1))=int(object angle x(999)) and int(object angle y(1))=int(object angle y(999)) then moveship=1 : turn=0

endif

return

+ Code Snippet

rem The ship
player:

  rem Ship model
  select stats(1)
    case 1 : model$="Leithad (li-fr)" : endcase
    case 2 : model$="Deeiran (me-fr)" : endcase
    case 3 : model$="Juzzedn (he-fr)" : endcase
  endselect

  rem The max cargo
  if stats(3)>stats(2) then stats(3)=stats(2)

  rem Control ship
  rem Turn ship to right or left
  if leftkey()=1 then factor1=-2.5 : turn=0
  if rightkey()=1 then factor1=2.5 : turn=0
  if leftkey()=0 and rightkey()=0 then factor1=0

  rem Turn ship up or down
  if upkey()=1 then factor2=2.5 : turn=0
  if downkey()=1 then factor2=-2.5 : turn=0
  if upkey()=0 and downkey()=0 then factor2=0

  rem Move ship forward
  if keystate(50)=1 then moveship=1 : turn=0
  if keystate(49)=1 then moveship=0 : turn=0

  if moveship=1 then move object 1,0.5

  rem Ship angles
  angleship#=angleship#+factor1
  angleship2#=angleship2#+factor2

  rem Angle the ship
  yrotate object 1,angleship#
  xrotate object 1,angleship2#

  rem Click on the planet to select it
  if object in screen(2)
    if button(posx,object screen x(2)+50,object screen x(2)-50,posy,object screen y(2)+50,object screen y(2)-50)=1
      colour("red") : square(object screen x(2)-50,object screen x(2)+50,object screen y(2)-50,object screen y(2)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=2
      endif
    endif
  endif

  if object in screen(4)
    if button(posx,object screen x(4)+50,object screen x(4)-50,posy,object screen y(4)+50,object screen y(4)-50)=1
      colour("red") : square(object screen x(4)-50,object screen x(4)+50,object screen y(4)-50,object screen y(4)+50) : colour("white")
      if mouseclick()=1
        turn=1
        planet=4
      endif
    endif
  endif

  rem Turn to planet
  if turn=1

    rem Point the "Guider"
    point object 999,object position x(planet),object position y(planet),object position z(planet)

    rem Get "Guider" angle
    theanglex=int(object angle x(999))
    theangley=int(object angle y(999))

    rem Get ship angle
    shipanglex=int(object angle x(1))
    shipangley=int(object angle y(1))

    rem Turn ship
    if theanglex<shipanglex then dec angleship2#,1
    if theanglex>shipanglex then inc angleship2#,1
    if theangley<shipangley then dec angleship#,1
    if theangley>shipangley then inc angleship#,1

    if angleship2#>360 then angleship2#=0
    if angleship2#<0 then angleship2#=360
    if angleship#>360 then angleship#=0
    if angleship#<0 then angleship#=360

    rem Rotate the ship
    yrotate object 1,angleship#
    xrotate object 1,angleship2#

    rem Move ship
    if int(object angle x(1))=int(object angle x(999)) and int(object angle y(1))=int(object angle y(999)) then moveship=1 : turn=0

  endif

return

Why does it move in the wrong direction?

EDIT:

The angle of the "Guider" (check the code) doesent change even if you are on the other side of the planet. And then the ship moves in the "Guiders" direction.

Back to top

Profile PM Email

Jerok

19

Years of Service

User Offline

Joined: 7th May 2005

Location: Mars. Wait a sec I\'m on MARS. OMG

Posted: 16th Feb 2006 18:55 Edited at: 16th Feb 2006 18:55

Link

im sorry i dont know whats wrong with your code it might have to do with the angleship# and angleship2# stuff but i really dont know

what version of darkbasic are you using(dbc or dbpro)

Back to top

Profile PM

Mr X

18

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 17th Feb 2006 16:52 Edited at: 17th Feb 2006 16:54

Link

The problem wasnt your code, the problem was that I forgot to position the "Guider" at the ships position, so it would always be in the same location and thereby always look at the planets with the same angle. THATS was what the problem was, not your code. Thanks for helping me, I appriciate it.

EDIT:

And to answer your question, I use DarkBASIC Pro.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / ATTENTION PLEASE!!! Movement in my game