Getting a sprite to move directly to the mouse.

Author

Message

77!M

19

Years of Service

User Offline

Joined: 26th Mar 2007

Location:

Posted: 27th Mar 2007 02:28

Link

Basically, when you click the mouse the sprite needs to 'walk' to where the mouse has been clicked. I can only get the sprite to move along the horizontal/virtical/diagonal axis which is close to what I want, but not quite. I would prefer it if the sprite would go directly to the mouse, whatever angle it is.
Here is my code.

+ Code Snippet

LOAD IMAGE "player.bmp",1 `<----YOULL NEED A IMAGE FOR HERE
playerx = 600
playery = 350
sprite 1, playerx,playery,1
Do
  if mouseclick() = 1
         if playerx+16 < mousex()
            playerx = playerx + 2
            sprite 1, playerx,playery,1
         endif
         if playerx+16 > mousex()
            playerx = playerx - 2
            sprite 1, playerx,playery,1
         endif
         if playery+16 < mousey()
            playery = playery + 2
            sprite 1, playerx,playery,1
         endif
         if playery+16 > mousey()
            playery = playery - 2
            sprite 1, playerx,playery,1
         endif
  endif
loop

Sorry that it's a little messy, I'm just testing out possibilities.

Any suggestions would be ideal. I'm making a really basic top-down RPG. Oh, and I'm using DarkBASIC PRO.
(I had a quick scan of a few pages on the forum and couldnt see anything that helped, so I'd appreciate any ideas or thoughts)

Thanks
-Will

Back to top

Profile PM

aluseus GOD

19

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 27th Mar 2007 05:38

Link

Simple...
Make an algorithm with trigonometry to find the angle, then use this code snippet...

(horizontal speed variable) = sin(angle)
(vertical speed variable) = -cos(angle)

If you're patient, I'll give you the code...

Back to top

Profile PM Email Website

77!M

19

Years of Service

User Offline

Joined: 26th Mar 2007

Location:

Posted: 27th Mar 2007 15:30

Link

Sounds good.. only my maths.. well, the less said about it the better. I would definatly appreciate it if you could provide the code as I havn't a clue with trigonometry.

Back to top

Profile PM

aluseus GOD

19

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 27th Mar 2007 18:57

Link

Working on it right now. I have some glitch where division by 0 occurs, so I have to fix that first...

Back to top

Profile PM Email Website

Dave1974

21

Years of Service

User Offline

Joined: 1st Aug 2004

Location:

Posted: 28th Mar 2007 00:20

Link

Hi Guys.

I will need this for my own program, so I came up with this.

sync on
sync rate 60

box 0,0,31,31,rgb(255,128,128),rgb(128,255,128),rgb(128,128,255),rgb(255,128,255)
get image 1,0,0,31,31,0
playerx# = 600
playery# = 350
speed = 4

lclick = 0

do
    cls
    print "Player   X ";playerx#
    print "Player   Y ";playery#
    print "Distance X ";distx#
    print "Distance Y ";disty#
    print "Distance R ";dist
    sprite 1,playerx#,playery#,1

` Detect mouse press
    if lclick < 2 and mouseclick() = 1
        inc lclick
    else
        if mouseclick() = 0 then lclick = 0
    endif

if lclick = 1
      ` Calculate distance vectors from mouse
        distx# = mousex() - (playerx# + 16)
        disty# = mousey() - (playery# + 16)

` Check if further than allowed by speed
        if abs(distx#) > speed or abs(disty#) > speed
          ` Store max distance and scale distance vectors down
            if abs(distx#) > abs(disty#)
                dist = abs(distx#)
                disty# = disty# / abs(distx#)
                distx# = distx# / abs(distx#)
            else
                dist = abs(disty#)
                distx# = distx# / abs(disty#)
                disty# = disty# / abs(disty#)
            endif
        endif
    endif

` Move player and decrease max distance
    if dist > 0
        playerx# = playerx# + speed * distx#
        playery# = playery# + speed * disty#
        dec dist, speed
    else
        playerx# = int(playerx#)
        playery# = int(playery#)
    endif

sync
loop

end

+ Code Snippet

sync on
sync rate 60

box 0,0,31,31,rgb(255,128,128),rgb(128,255,128),rgb(128,128,255),rgb(255,128,255)
get image 1,0,0,31,31,0
playerx# = 600
playery# = 350
speed = 4

lclick = 0

do
    cls
    print "Player   X ";playerx#
    print "Player   Y ";playery#
    print "Distance X ";distx#
    print "Distance Y ";disty#
    print "Distance R ";dist
    sprite 1,playerx#,playery#,1

  ` Detect mouse press
    if lclick < 2 and mouseclick() = 1
        inc lclick
    else
        if mouseclick() = 0 then lclick = 0
    endif

    if lclick = 1
      ` Calculate distance vectors from mouse
        distx# = mousex() - (playerx# + 16)
        disty# = mousey() - (playery# + 16)

      ` Check if further than allowed by speed
        if abs(distx#) > speed or abs(disty#) > speed
          ` Store max distance and scale distance vectors down
            if abs(distx#) > abs(disty#)
                dist = abs(distx#)
                disty# = disty# / abs(distx#)
                distx# = distx# / abs(distx#)
            else
                dist = abs(disty#)
                distx# = distx# / abs(disty#)
                disty# = disty# / abs(disty#)
            endif
        endif
    endif

  ` Move player and decrease max distance
    if dist > 0
        playerx# = playerx# + speed * distx#
        playery# = playery# + speed * disty#
        dec dist, speed
    else
        playerx# = int(playerx#)
        playery# = int(playery#)
    endif


    sync
loop

end

Hope this helps.

Back to top

Profile PM

77!M

19

Years of Service

User Offline

Joined: 26th Mar 2007

Location:

Posted: 28th Mar 2007 01:18

Link

Ah thats sweet! Thank you very much

Thanks also aluseus GOD for any effort you put in, shame the other chap got there first eh!

-Will

Back to top

Profile PM

aluseus GOD

19

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 28th Mar 2007 06:12

Link

It's okay. I gave up after it kept messing up with a variety of unsolvable problems...
Yeah. I'm testing his, see what it does, cause I need this too!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

2D All the way! / Getting a sprite to move directly to the mouse.