Sprite move to point - GameCreators Forum

Author

Message

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 16th Mar 2014 10:43

Link

Hi

I'm trying to move a sprite to a point, but I don't know why it doesn't work (it work on my purebasic code, but not with AppGameKit code ^^)

Do you know how I can move a sprite to a point (x,y) ?

Thank you.

SetVirtualResolution(600, 800)

global spr
spr = CreateSprite(0)

global x, y

do
    if GetRawKeyPressed(27) = 1
        exit
    endif

if GetPointerPressed() = 1
        mx = GetPointerX()
        my = GetPointerY()
    endif

MoveToward(mx, my, 2)
    print(str(mx) +"/" +str(my))
    print(str(x) +"/" +str(y))

/*
    aa = 1
    If (not aa = 2)
        PRINT("this will not print")
    endif
    */

sync( )

loop

function GetAngle(x1, y1, x2, y2)
    result = ATanFull(x1 - x2, y1 - y2)
endfunction result

function MargeEntre(a, b, n)
    if a >= b - n and a <= b + n
        a = b
    endif
endfunction

function MoveToward(ciblx,cibly,speed)

// methode 1
    if (x = ciblx)
    else
        x = x + Sin(ATan2((cibly - y),(ciblx- x)))* speed
    endif
    if (y = cibly)
    else
        y = y + sin(ATan2((cibly - y),(ciblx- x)))* speed
        // I have tried that, but it doesn't work better
        //y = y + Cos(ATan2((cibly - y),(ciblx- x)))* speed
    endif

// methode 2
    // Another technic, but the result isn't fine
    /*
    If y < cibly  And x = ciblx
        y = y + speed
        direction = 0
    ElseIf  y >  cibly And x = ciblx
        y = y - speed
        direction = 4
    ElseIf  x < ciblx And y < cibly
        y = y + speed
        x = x + speed
        direction = 1
    ElseIf x < ciblx And  y >  cibly
         y = y -  speed
         x =  x +  speed
        direction = 3
    ElseIf x < ciblx And  y =  cibly
         x = x +  speed
        direction = 2
    ElseIf  x >  ciblx And y < cibly
         y = y +  speed
         x =  x -  speed
        direction = 7
    ElseIf  x >  ciblx And y >  cibly
         y = y -  speed : x =  x -  speed
        direction = 5
    ElseIf  x >  ciblx And y =  cibly
         x = x -  speed
        direction = 6
    EndIf
    */

MargeEntre(x, ciblx, 2)
    MargeEntre(y, cibly, 2)

angle = GetAngle(ciblx, cibly, GetSpriteX(spr), GetSpriteY(spr))
    SetSpriteAngle(spr, angle)
    SetSpritePosition(spr, x, y)
endfunction

+ Code Snippet

SetVirtualResolution(600, 800)

global spr
spr = CreateSprite(0)

global x, y


do
    if GetRawKeyPressed(27) = 1
        exit
    endif

    if GetPointerPressed() = 1
        mx = GetPointerX()
        my = GetPointerY()
    endif

    MoveToward(mx, my, 2)
    print(str(mx) +"/" +str(my))
    print(str(x) +"/" +str(y))

    /*
    aa = 1
    If (not aa = 2)
        PRINT("this will not print")
    endif
    */

    sync( )

loop


function GetAngle(x1, y1, x2, y2)
    result = ATanFull(x1 - x2, y1 - y2)
endfunction result

function MargeEntre(a, b, n)
    if a >= b - n and a <= b + n
        a = b
    endif
endfunction

function MoveToward(ciblx,cibly,speed)

    // methode 1
    if (x = ciblx)
    else
        x = x + Sin(ATan2((cibly - y),(ciblx- x)))* speed
    endif
    if (y = cibly)
    else
        y = y + sin(ATan2((cibly - y),(ciblx- x)))* speed
        // I have tried that, but it doesn't work better
        //y = y + Cos(ATan2((cibly - y),(ciblx- x)))* speed
    endif

    // methode 2
    // Another technic, but the result isn't fine
    /*
    If y < cibly  And x = ciblx
        y = y + speed
        direction = 0
    ElseIf  y >  cibly And x = ciblx
        y = y - speed
        direction = 4
    ElseIf  x < ciblx And y < cibly
        y = y + speed
        x = x + speed
        direction = 1
    ElseIf x < ciblx And  y >  cibly
         y = y -  speed
         x =  x +  speed
        direction = 3
    ElseIf x < ciblx And  y =  cibly
         x = x +  speed
        direction = 2
    ElseIf  x >  ciblx And y < cibly
         y = y +  speed
         x =  x -  speed
        direction = 7
    ElseIf  x >  ciblx And y >  cibly
         y = y -  speed : x =  x -  speed
        direction = 5
    ElseIf  x >  ciblx And y =  cibly
         x = x -  speed
        direction = 6
    EndIf
    */

    MargeEntre(x, ciblx, 2)
    MargeEntre(y, cibly, 2)

    angle = GetAngle(ciblx, cibly, GetSpriteX(spr), GetSpriteY(spr))
    SetSpriteAngle(spr, angle)
    SetSpritePosition(spr, x, y)
endfunction

Another question : I don't understand how does work the "not" code.
In that code, it could be print the line, isn't it ?

+ Code Snippet

 aa = 1
    If not (aa = 2)
        PRINT("this will not print")
    endif

So why it doesn't print ?

Thank you for your answer

.

http://www.dracaena-studio.com

Back to top

Profile PM Website

Cliff Mellangard 3DEGS

Developer

18

Years of Service

User Offline

Joined: 20th Feb 2006

Location: Sweden

Posted: 16th Mar 2014 12:09 Edited at: 16th Mar 2014 12:10

Link

Try this instead.

+ Code Snippet

aa = 1
    If aa <> 2
        PRINT("this will not print")
    endif

Here is a function to get the angle.

+ Code Snippet

function Point_TO(x#,y#,x2#,y2#)
    new_angle# = atanfull(x2#-x#,y2#-y#)
endfunction new_angle#

Here is how to move it towards.

+ Code Snippet

UnitX#=UnitX# + (cos(UnitAng#) * (6.0*GFT#))
UnitY#=UnitY# + (sin(UnitAng#) * (6.0*GFT#))
setspritepositionByOffset(spr6,UnitX# * PathFinder_Scale+PathFinder_Scale/2),UnitY# * PathFinder_Scale+PathFinder_Scale/2))

I hope it makes sense as I cut it out of my ai sample.

Android 2.3 , ZTE Skate , 480x800 , 800 mhz , Samsung Galaxy Y , 240x320 , 832 mhz , Sony ericson arc 480x854 , 1 ghz
Android 4.0 , Dmtech 3g 9738B , 1024x768 , 9.7 inches , 1.2 ghz

Back to top

Profile PM Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 16th Mar 2014 12:44

Link

you should use # or as float for variables that use decimal places.

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

Back to top

Profile PM Email

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 16th Mar 2014 16:05 Edited at: 16th Mar 2014 16:06

Link

Thanks for your answers, I have found.
Here is the correct code :

SetVirtualResolution(480,480)

global spr
spr = CreateSprite(0)

global x, y, mx, my as float

do

if GetRawKeyPressed(27) = 1
        exit
    endif

if GetPointerstate() = 1
        mx = GetPointerX()
        my = GetPointerY()
    endif

MoveToward(mx, my, 6)

print(str(mx) +"/" +str(my))
    print(str(x) +"/" +str(y))

sync( )

loop

function GetAngle(x1, y1, x2, y2)
    result = ATanFull(x1 - x2, y1 - y2)
endfunction result

function MoveToward(ciblx, cibly, speed)

if x <> ciblx or  y <> cibly
            angle = GetAngle(ciblx, cibly, GetSpriteX(spr), GetSpriteY(spr))
            SetSpriteAngle(spr, angle)

if x <> ciblx
            x = x + cos(ATan2((cibly - y),(ciblx - x)))* speed
            if abs(x - ciblx) <= speed
                x = ciblx
            endif

endif

if y <> cibly
            y = y + sin(ATan2((cibly - y),(ciblx - x)))* speed
            if abs(y - cibly) <= speed
                y = cibly
            endif

endif

SetSpritePosition(spr, x, y)

endif

endfunction

+ Code Snippet

SetVirtualResolution(480,480)

global spr
spr = CreateSprite(0)

global x, y, mx, my as float

do

    if GetRawKeyPressed(27) = 1
        exit
    endif

    if GetPointerstate() = 1
        mx = GetPointerX()
        my = GetPointerY()
    endif

    MoveToward(mx, my, 6)

    print(str(mx) +"/" +str(my))
    print(str(x) +"/" +str(y))

    sync( )

loop


function GetAngle(x1, y1, x2, y2)
    result = ATanFull(x1 - x2, y1 - y2)
endfunction result

function MoveToward(ciblx, cibly, speed)

    if x <> ciblx or  y <> cibly
            angle = GetAngle(ciblx, cibly, GetSpriteX(spr), GetSpriteY(spr))
            SetSpriteAngle(spr, angle)

        if x <> ciblx
            x = x + cos(ATan2((cibly - y),(ciblx - x)))* speed
            if abs(x - ciblx) <= speed
                x = ciblx
            endif

        endif

        if y <> cibly
            y = y + sin(ATan2((cibly - y),(ciblx - x)))* speed
            if abs(y - cibly) <= speed
                y = cibly
            endif

        endif

        SetSpritePosition(spr, x, y)

    endif

endfunction

Thanks

http://www.dracaena-studio.com

Back to top

Profile PM Website

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 16th Mar 2014 19:14

Link

Your GetAngle function needs to make the inputs as floats and the result needs to be a float as well. What you have now makes them integer values.

+ Code Snippet

function GetAngle(x1#, y1#, x2#, y2#)
    result# = ATanFull(x1# - x2#, y1# - y2#)
endfunction result#

And, in the MoveToward function you also need to declare the input variables as floats. And the angle variable needs to be a float as well.

+ Code Snippet

function MoveToward(ciblx as float, cibly as float, speed as float)

    if x <> ciblx or  y <> cibly
            angle# = GetAngle(ciblx, cibly, GetSpriteX(spr), GetSpriteY(spr))
            SetSpriteAngle(spr, angle#)

        if x <> ciblx
            x = x + cos(ATan2((cibly - y),(ciblx - x)))* speed
            if abs(x - ciblx) <= speed
                x = ciblx
            endif

        endif

        if y <> cibly
            y = y + sin(ATan2((cibly - y),(ciblx - x)))* speed
            if abs(y - cibly) <= speed
                y = cibly
            endif

        endif

        SetSpritePosition(spr, x, y)

    endif

endfunction

Cheers,
Ancient Lady
AGK Community Tester and AppGameKit Master

Back to top

Profile PM

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 17th Mar 2014 10:08

Link

Hi

Thank you ancient lady for this correction

.

http://www.dracaena-studio.com

Back to top

Profile PM Website

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 18th Mar 2014 03:08

Link

Always glad to help (as long as it actually did

).

Cheers,
Ancient Lady
AGK Community Tester and AppGameKit Master

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / Sprite move to point