Sprite Movement To Mouse on Release

Author

Message

TheViking

12

Years of Service

User Offline

Joined: 16th Feb 2012

Location:

Posted: 6th Jun 2014 01:51 Edited at: 6th Jun 2014 06:29

Link

Hey All,

Just been getting stuck on some sprite movement issues.

I had either two options of how I would do sprite movement:
1) click on the sprite and drag, creating a path to follow, when released the sprite moves in that direction.

OR

2) Simply click and release then the sprite moves to that location.

I have tried many things but none seem to work well. The click and drag using mouse joints is nice, however I don't want sprite rotation, (which can still be done easily) but also don't want gravity applied.

Essentially, I'm working at a point and click adventure. (OLD SCHOOL STYLE)

I'll have to figure out pathfinding eventually, but for now, just moving the sprite on angles not just left/right would be great! any suggestions on how?

Thanks!

EDIT:

Ok, I got a kind of crappy movement going. I know the code is not very logical, however it's a start. However, now I'm kind of stumped on how to get the coordinates working right. The sprite moves to where the mouse is, but, the background scrolls too, which pushes it beyond the end point. I know its a simple fix, but can't see it. Here's the code:

//MOVEMENT
//When Finger Pressed
If GetPointerState()=1
    //GETS WHERE YOU PRESSED
    PressX# = ScreenToWorldX( GetPointerX())
    PressY# = ScreenToWorldY( GetPointerY())
    //Offset to Center of Sprite
    SpriteX# = GetSpriteX(10000) + 75
    SpriteY# = GetSpriteY(10000) + 220
    SlopeY# = PressY#-SpriteY#
    SlopeX# = PressX#-SpriteX#
    //Resulting Position
    SX# = ScreenToWorldX( GetSpriteX(10000) + SlopeX#)
    SY# = ScreenToWorldY( GetSpriteY(10000) + SlopeY#)
Endif

//ON Finger Release
If GetPointerState() = 0
    If SX# > SpriteX#
        //Set Movement/Scroll Rate
        x# = x# + 3
        y# = y# + 3
        //If Reaches X Coord -- STOP
        If x# > SX#
            x# = SX#
        Endif
        //Background/Foreground Scroll Rate
        If x# < SX#
            posx1# = posx1# - 3
            posx2# = posx2# - 4
        Endif
        //If Reaches Y Coord -- STOP
        If y# > SY#
            y# = SY#
        Endif
        //If Sprite is Facing Left, Turn Right
        If LeftFace = 1
            LeftFace = 0
        Endif
    Endif
    If SX# < SpriteX#
        x# = x# - 3
        y# = y# - 3
        If x# < SX#
            x# = SX#
        Endif
        If x# > SX#
            posx1# = posx1# + 3
            posx2# = posx2# + 4
        Endif
        If y# < SY#
            y# = SY#
        Endif
        //If Sprite is Facing Right, Turn Left
        If LeftFace = 0
            LeftFace = 1
        Endif
    Endif
    //Flip Sprite - If Needed
    SetSpriteFlip(10000,LeftFace,0)
    //Move Character
    SetSpritePosition (10000,  ScreenToWorldX(X#),  ScreenToWorldY(Y#))
Endif

//Set Background Position
SetSpritePosition (1, ScreenToWorldX(posx1#), 0)
//Set Foreground Position
SetSpritePosition (2, ScreenToWorldX(posx2#), 0)
//Set Shade Position
SetSpritePosition (12000, ScreenToWorldX( GetPointerX()), ScreenToWorldY( GetPointerY()))

+ Code Snippet

//MOVEMENT
//When Finger Pressed
If GetPointerState()=1
    //GETS WHERE YOU PRESSED
    PressX# = ScreenToWorldX( GetPointerX())
    PressY# = ScreenToWorldY( GetPointerY())
    //Offset to Center of Sprite
    SpriteX# = GetSpriteX(10000) + 75
    SpriteY# = GetSpriteY(10000) + 220
    SlopeY# = PressY#-SpriteY#
    SlopeX# = PressX#-SpriteX#
    //Resulting Position
    SX# = ScreenToWorldX( GetSpriteX(10000) + SlopeX#)
    SY# = ScreenToWorldY( GetSpriteY(10000) + SlopeY#)
Endif

//ON Finger Release
If GetPointerState() = 0
    If SX# > SpriteX#
        //Set Movement/Scroll Rate
        x# = x# + 3
        y# = y# + 3
        //If Reaches X Coord -- STOP
        If x# > SX#
            x# = SX#
        Endif
        //Background/Foreground Scroll Rate
        If x# < SX#
            posx1# = posx1# - 3
            posx2# = posx2# - 4
        Endif
        //If Reaches Y Coord -- STOP
        If y# > SY#
            y# = SY#
        Endif
        //If Sprite is Facing Left, Turn Right
        If LeftFace = 1
            LeftFace = 0
        Endif
    Endif
    If SX# < SpriteX#
        x# = x# - 3
        y# = y# - 3
        If x# < SX#
            x# = SX#
        Endif
        If x# > SX#
            posx1# = posx1# + 3
            posx2# = posx2# + 4
        Endif
        If y# < SY#
            y# = SY#
        Endif
        //If Sprite is Facing Right, Turn Left
        If LeftFace = 0
            LeftFace = 1
        Endif
    Endif
    //Flip Sprite - If Needed
    SetSpriteFlip(10000,LeftFace,0)
    //Move Character
    SetSpritePosition (10000,  ScreenToWorldX(X#),  ScreenToWorldY(Y#))
Endif

//Set Background Position
SetSpritePosition (1, ScreenToWorldX(posx1#), 0)
//Set Foreground Position
SetSpritePosition (2, ScreenToWorldX(posx2#), 0)
//Set Shade Position
SetSpritePosition (12000, ScreenToWorldX( GetPointerX()), ScreenToWorldY( GetPointerY()))

Any hints on making this smoother/more accurate would be appreciated.

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 6th Jun 2014 11:11

Link

i use this for movement with a help of simple target sprite.

maybe u can disable SetPhysicsGravity ( 0, 0 )
disable rotate SetSpritePhysicsCanRotate ( iSpriteIndex, 0)

function PlayerInput()

//GetKeyboardExists() ???

//print(GetRawLastKey())

spr=Player.spr

k37=GetRawKeystate( 37 )
 k39=GetRawKeystate( 39 )

k38=GetRawKeystate( 38 )
 k40=GetRawKeystate( 40 )

k32=GetRawKeystate( 32 ) //Space

Force#=250-Player.Work
 if Force#<150.0 then Force#=150.0

//Player.Angle=Player.Angle + 45.0 / (screenfps()*1.0)
 //if Player.Angle>180.0 then Player.Angle=Player.Angle-180.0

//collision ist weg wenn man winkel setzt ??!!!
 //setspriteangle(spr,abs(sin(Player.Angle)*45.0))

ani=0

//--------------------------------- Joy

jfx#=getvirtualjoystickx(1)*Force#
 jfy#=getvirtualjoysticky(1)*Force#
 SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),jfx#,jfy#)
 if sqrt(jfx#*jfx# + jfy#*jfy#)>1
    ani=1
 endif

//--------------------------------- Goto  Mouse

//Click Goto mit Markierung wäre besser
 //Bei Maus halten verschieben
 //Dann hin laufen
 //Wenn da entfernen
 //Click aud X Sprite entfernen
 //Entfernung begrenzen evtl.

//Maus Click für Target An
 //Maus Click auf Target Sprite wieder aus

if getpointerpressed()=1
    mx#=getpointerx()
    my#=getpointery()
    mx#=screentoworldx(mx#)
    my#=screentoworldy(my#)
    hit=getspritehit(mx#,my#)
    if hit=Player.sprTarget or hit=Player.spr
        Setspritevisible(Player.sprTarget,0)
    else
        if Getspritevisible(Player.sprTarget)=0
            Setspritevisible(Player.sprTarget,1)
        endif
    endif
 endif

//Target verschieben wenn maus gehalten wird
 if getpointerstate()=1
  mx#=getpointerx()
  my#=getpointery()
  mx#=screentoworldx(mx#)
  my#=screentoworldy(my#)
  setspritepositionbyoffset(Player.sprTarget,mx#,my#)
 endif

//automatisch aus
 //wenn maus los und noch sichtbar
 if getpointerstate()=0 and getspritevisible(Player.sprTarget)=1
  //player im kreis vom ziel
  if getspriteincircle(Player.spr,getspritexbyoffset(Player.sprTarget),getspriteybyoffset(Player.sprTarget),2.5)=1
        //ziel unsichtbar
        Setspritevisible(Player.sprTarget,0)
        //spieler abbremsen
        setspritephysicsvelocity(Player.spr,getspritephysicsvelocityx(Player.spr)/2.0,getspritephysicsvelocityy(Player.spr)/2.0)
  endif
 endif

//hin bewegen wenn ziel sichtbar
 if Getspritevisible(Player.sprTarget)=1
  a#=getspriteangle(Player.sprTarget)
  a#=a#+ 45.0 / screenfps()
  if a#>360.0 then a#=a#-360.0
  setspriteangle(Player.sprTarget,a#)

mx#=getspritexbyoffset(Player.sprTarget)
  my#=getspriteybyoffset(Player.sprTarget)
  dx#=mx#-getspritexbyoffset(spr)
  dy#=my#-getspriteybyoffset(spr)
  l#=sqrt(dx#*dx# + dy#*dy#)
  if l#>0
   dx#=dx#/l#
   dy#=dy#/l#
   jfx#=dx#*Force#
   jfy#=dy#*Force#
   SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),jfx#,jfy#)
   if sqrt(jfx#*jfx# + jfy#*jfy#)>1
      ani=1
   endif
  endif
 endif
 //---------------------------------

//Links/Rechts
 if k37
    Player.L=1
    Player.R=0
    SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),-Force#,0)
    ani=1
 endif
 if k39
    Player.L=0
    Player.R=1
    SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr), Force#,0)
    ani=1
 endif

//Oben/Unten
 if k38
    SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),0,-Force#)
    ani=1
 endif
 if k40
    SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),0, Force#)
    ani=1
 endif

if ani=1
       PlayerAnimate()
 endif

//so ist doof
 //suchen welche steine in im umkreis sind, siehe collision
 if k32
    Player.pull=1
 else
    Player.pull=0
 endif

//Geschwindigkeit Begrenzen
 x#=getspritePhysicsVelocityx(spr)
 y#=getspritePhysicsVelocityy(spr)
 if x#> 40 then x#= 40
 if x#<-40 then x#=-40
 if y#> 40 then y#= 40
 if y#<-40 then y#=-40
 if Player.pull=1
  x#=0
  y#=0
 endif
 SetSpritePhysicsVelocity(spr,x#,y#)

endfunction

+ Code Snippet

function PlayerInput()

 //GetKeyboardExists() ???

 //print(GetRawLastKey())

 spr=Player.spr

 k37=GetRawKeystate( 37 )
 k39=GetRawKeystate( 39 )

 k38=GetRawKeystate( 38 )
 k40=GetRawKeystate( 40 )

 k32=GetRawKeystate( 32 ) //Space

 Force#=250-Player.Work
 if Force#<150.0 then Force#=150.0

 //Player.Angle=Player.Angle + 45.0 / (screenfps()*1.0)
 //if Player.Angle>180.0 then Player.Angle=Player.Angle-180.0

    //collision ist weg wenn man winkel setzt ??!!!
 //setspriteangle(spr,abs(sin(Player.Angle)*45.0))

 ani=0

 //--------------------------------- Joy

 jfx#=getvirtualjoystickx(1)*Force#
 jfy#=getvirtualjoysticky(1)*Force#
 SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),jfx#,jfy#)
 if sqrt(jfx#*jfx# + jfy#*jfy#)>1
    ani=1
 endif

 //--------------------------------- Goto  Mouse

 //Click Goto mit Markierung wäre besser
 //Bei Maus halten verschieben
 //Dann hin laufen
 //Wenn da entfernen
 //Click aud X Sprite entfernen
 //Entfernung begrenzen evtl.

 //Maus Click für Target An
 //Maus Click auf Target Sprite wieder aus

 if getpointerpressed()=1
    mx#=getpointerx()
    my#=getpointery()
    mx#=screentoworldx(mx#)
    my#=screentoworldy(my#)
    hit=getspritehit(mx#,my#)
    if hit=Player.sprTarget or hit=Player.spr
        Setspritevisible(Player.sprTarget,0)
    else
        if Getspritevisible(Player.sprTarget)=0
            Setspritevisible(Player.sprTarget,1)
        endif
    endif
 endif

 //Target verschieben wenn maus gehalten wird
 if getpointerstate()=1
  mx#=getpointerx()
  my#=getpointery()
  mx#=screentoworldx(mx#)
  my#=screentoworldy(my#)
  setspritepositionbyoffset(Player.sprTarget,mx#,my#)
 endif

 //automatisch aus
 //wenn maus los und noch sichtbar
 if getpointerstate()=0 and getspritevisible(Player.sprTarget)=1
  //player im kreis vom ziel
  if getspriteincircle(Player.spr,getspritexbyoffset(Player.sprTarget),getspriteybyoffset(Player.sprTarget),2.5)=1
        //ziel unsichtbar
        Setspritevisible(Player.sprTarget,0)
        //spieler abbremsen
        setspritephysicsvelocity(Player.spr,getspritephysicsvelocityx(Player.spr)/2.0,getspritephysicsvelocityy(Player.spr)/2.0)
  endif
 endif

 //hin bewegen wenn ziel sichtbar
 if Getspritevisible(Player.sprTarget)=1
  a#=getspriteangle(Player.sprTarget)
  a#=a#+ 45.0 / screenfps()
  if a#>360.0 then a#=a#-360.0
  setspriteangle(Player.sprTarget,a#)

  mx#=getspritexbyoffset(Player.sprTarget)
  my#=getspriteybyoffset(Player.sprTarget)
  dx#=mx#-getspritexbyoffset(spr)
  dy#=my#-getspriteybyoffset(spr)
  l#=sqrt(dx#*dx# + dy#*dy#)
  if l#>0
   dx#=dx#/l#
   dy#=dy#/l#
   jfx#=dx#*Force#
   jfy#=dy#*Force#
   SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),jfx#,jfy#)
   if sqrt(jfx#*jfx# + jfy#*jfy#)>1
      ani=1
   endif
  endif
 endif
 //---------------------------------

 //Links/Rechts
 if k37
    Player.L=1
    Player.R=0
    SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),-Force#,0)
    ani=1
 endif
 if k39
    Player.L=0
    Player.R=1
    SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr), Force#,0)
    ani=1
 endif

 //Oben/Unten
 if k38
    SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),0,-Force#)
    ani=1
 endif
 if k40
    SetSpritePhysicsForce(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),0, Force#)
    ani=1
 endif

 if ani=1
       PlayerAnimate()
 endif

 //so ist doof
 //suchen welche steine in im umkreis sind, siehe collision
 if k32
    Player.pull=1
 else
    Player.pull=0
 endif

 //Geschwindigkeit Begrenzen
 x#=getspritePhysicsVelocityx(spr)
 y#=getspritePhysicsVelocityy(spr)
 if x#> 40 then x#= 40
 if x#<-40 then x#=-40
 if y#> 40 then y#= 40
 if y#<-40 then y#=-40
 if Player.pull=1
  x#=0
  y#=0
 endif
 SetSpritePhysicsVelocity(spr,x#,y#)

endfunction

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon R7 265

Back to top

Profile PM Email

TheViking

12

Years of Service

User Offline

Joined: 16th Feb 2012

Location:

Posted: 7th Jun 2014 20:01

Link

Ok, I kind of have what I was looking for now. Just needed some tweaking. Thanks Markus, the Rotate and gravity seems to work great. Had to couple it with Turning on/off physics on the object once it got to where it needed, or it would just continuously follow the pointer after. But none the less, still lots to do on it, but I got the main issue resolved.

//MOVEMENT01
If GetPointerState() = 1
    If GetSpriteHitTest(13000, ScreenToWorldX(GetPointerX()), ScreenToWorldY(GetPointerY())) // > 12999
        ObjectDetect = 1
        Print ("Gas Cylinder")
    //Any Object It Can Touch Or Interact HERE when you press Down And Bring up Interaction Buttons
    Else
    If GetSpriteHitTest(11000, ScreenToWorldX(GetPointerX()), ScreenToWorldY(GetPointerY()))
        PressX# = ScreenToWorldX( GetPointerX())
        PressY# = ScreenToWorldY( GetPointerY())
        SpriteX# = GetSpriteX(11000) + 75
        SpriteY# = GetSpriteY(11000) + 220
        If Joint = 0
            CreateMouseJoint( 1, 11000, ScreenToWorldX(PressX#), ScreenToWorldY(PressY#), 1100000 )
            Joint = 1
        Endif
    Endif
    Endif
Endif

//ON Finger Release
If GetPointerState() = 0
    If GetSpriteHitTest(11000, ScreenToWorldX(GetPointerX()), ScreenToWorldY(GetPointerY()))
        Print ("Move Character")
    Endif
    If Joint > 0
        SetSpritePhysicsOn(11000,2)
        SetSpritePosition( 10000, GetSpriteX(11000)-30, GetSpriteY(11000)-130)
        SetJointMouseTarget(1,ScreenToWorldX(GetPointerX()), ScreenToWorldY(GetPointerY()))
        If GetSpriteHitTest(11000, ScreenToWorldX(GetPointerX()),ScreenToWorldY(GetPointerY()))
            Joint = 0
            DeleteJoint(1)
            SetSpritePhysicsOff(11000)
        Endif
    Endif
Endif

+ Code Snippet

//MOVEMENT01
If GetPointerState() = 1
    If GetSpriteHitTest(13000, ScreenToWorldX(GetPointerX()), ScreenToWorldY(GetPointerY())) // > 12999
        ObjectDetect = 1
        Print ("Gas Cylinder")
    //Any Object It Can Touch Or Interact HERE when you press Down And Bring up Interaction Buttons
    Else
    If GetSpriteHitTest(11000, ScreenToWorldX(GetPointerX()), ScreenToWorldY(GetPointerY()))
        PressX# = ScreenToWorldX( GetPointerX())
        PressY# = ScreenToWorldY( GetPointerY())
        SpriteX# = GetSpriteX(11000) + 75
        SpriteY# = GetSpriteY(11000) + 220
        If Joint = 0
            CreateMouseJoint( 1, 11000, ScreenToWorldX(PressX#), ScreenToWorldY(PressY#), 1100000 )
            Joint = 1
        Endif
    Endif
    Endif
Endif

//ON Finger Release
If GetPointerState() = 0
    If GetSpriteHitTest(11000, ScreenToWorldX(GetPointerX()), ScreenToWorldY(GetPointerY()))
        Print ("Move Character")
    Endif
    If Joint > 0
        SetSpritePhysicsOn(11000,2)
        SetSpritePosition( 10000, GetSpriteX(11000)-30, GetSpriteY(11000)-130)
        SetJointMouseTarget(1,ScreenToWorldX(GetPointerX()), ScreenToWorldY(GetPointerY()))
        If GetSpriteHitTest(11000, ScreenToWorldX(GetPointerX()),ScreenToWorldY(GetPointerY()))
            Joint = 0
            DeleteJoint(1)
            SetSpritePhysicsOff(11000)
        Endif
    Endif
Endif

Seems much shorter and simpler now. Thanks again.

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / Sprite Movement To Mouse on Release