What is the best way to animate and Move my object

Author

Message

Jonk

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: East of Java

Posted: 13th Jan 2014 16:48

Link

I am trying to move an player object and play the correct coresponding animation frames. I would like to also animate the object when it is not moving but I am having problems. Also how do I setup anmimations for key combinations ie forward and right?

player1move:

`player idle
`loop object player1,1490,1513

if keystate(17)
play object player1,1970,1986
move object player1helper,-player1speed#
endif

if keystate(31)
play object player1,1970,1986
move object player1helper,player1speed#
endif

if keystate(32)
play object player1,782,801
move object left player1helper,player1speed#
endif

if keystate(30)
play object player1,762,781
move object right player1helper,player1speed#
endif

return

"There are no perfect ideas only perfect intentions"

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th Jan 2014 18:08 Edited at: 13th Jan 2014 18:11

Link

Hi there
We can make a trick. We can SET OBJECT FRAME to force our object to play exactly the part of the animation we need for each KEY .Take a look to the attached example.

+ Code Snippet

autocam off
sync on
load object "miko_walk.x",1
xrotate object 1,-90
set object cull 1,0
fra= total object frames(1)      rem we find out the quantity of frames that has our animation

position camera 150,140,300
point camera 0,0,0
do
set cursor 0,0
print fra

rem forcing the object to play manually each frame of the walking cycle
if inkey$()="w" then fr=fr+20
if inkey$()="s" then fr=fr-20
if fr>6720 then fr=0
if fr<0 then fr=6720

set object frame 1,fr


sync
loop

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

Jonk

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: East of Java

Posted: 14th Jan 2014 11:14

Link

Thanks chafari
that code seems to work well but i was wondering if there is a way to slow the frame rate? I did try the sleep command but it gave me drastic hits on my fps.

+ Code Snippet

autocam off
set display mode 1024,768,32
sync on
load object "player.x",1
load image "player.dds",1
texture object 1,1
fra= total object frames(1)      rem we find out the quantity of frames that has our animation
color backdrop 0
position object 1,0,-20,100

do

set cursor 0,0
print fra
print "fps = " + str$ ( screen fps ( ) )

rem forcing the object to play manually each frame of the walking cycle
if inkey$()="w"                 `forward
fr=fr+1   
if fr>1986 then fr=1970         `forward frames
if fr<1970 then fr=1986
endif

if inkey$()="s"                 `backwards
fr=fr-1  
if fr<1970 then fr=1986
if fr>1986 then fr=1970
endif
  
if inkey$()="d"                 `stride left frames
fr=fr+1 
if fr>801 then fr=782
if fr<782 then fr=801
endif

if inkey$()="a"                 `stride right frames
fr=fr+1 
if fr>801 then fr=782
if fr<782 then fr=801           
endif

set object frame 1,fr

sync
loop

"There are no perfect ideas only perfect intentions"

Attachments

Login to view attachments

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Jan 2014 15:15 Edited at: 14th Jan 2014 15:30

Link

You need something like a timer. Try this:

autocam off
set display mode 1024,768,32
sync on
load object "player.x",1
load image "player.dds",1

texture object 1,1
fra= total object frames(1)      rem we find out the quantity of frames that has our animation
color backdrop 0
position object 1,0,-20,100
speed=15  rem )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
fr=0
do

set cursor 0,0
print fra
if f>5500 then f=1
if f<0 then f=5500
print "fps = " + str$ ( screen fps ( ) )

rem forcing the object to play manually each frame of the walking cycle
if inkey$()="w"                 `forward
   f=f+1
   if f>speed then f=1:fr=fr+1
   if fr>1986 then fr=1970         `forward frames
   if fr<1970 then fr=1986
endif

if inkey$()="s"                 `backwards
   f=f-1
   if f<1 then f=speed:fr=fr-1
   if fr<1970 then fr=1986
   if fr>1986 then fr=1970
endif

if inkey$()="d"                 `stride left frames
   f=f+1
   if f>speed then f=1:fr=fr+1
   if fr>801 then fr=782
   if fr<782 then fr=801
endif

if inkey$()="a"                 `stride right frames
   f=f-1
   if f<1 then f=speed:fr=fr-1
   if fr>801 then fr=782
   if fr<782 then fr=801
endif

set object frame 1,fr

sync
loop

+ Code Snippet

autocam off
set display mode 1024,768,32
sync on
load object "player.x",1
load image "player.dds",1

texture object 1,1
fra= total object frames(1)      rem we find out the quantity of frames that has our animation
color backdrop 0
position object 1,0,-20,100
speed=15  rem )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
fr=0
do

set cursor 0,0
print fra
if f>5500 then f=1
if f<0 then f=5500
print "fps = " + str$ ( screen fps ( ) )

rem forcing the object to play manually each frame of the walking cycle
if inkey$()="w"                 `forward
   f=f+1
   if f>speed then f=1:fr=fr+1
   if fr>1986 then fr=1970         `forward frames
   if fr<1970 then fr=1986
endif

if inkey$()="s"                 `backwards
   f=f-1
   if f<1 then f=speed:fr=fr-1
   if fr<1970 then fr=1986
   if fr>1986 then fr=1970
endif

if inkey$()="d"                 `stride left frames
   f=f+1
   if f>speed then f=1:fr=fr+1
   if fr>801 then fr=782
   if fr<782 then fr=801
endif

if inkey$()="a"                 `stride right frames
   f=f-1
   if f<1 then f=speed:fr=fr-1
   if fr>801 then fr=782
   if fr<782 then fr=801
endif

set object frame 1,fr

sync
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 14th Jan 2014 16:01 Edited at: 14th Jan 2014 16:05

Link

Another way to do a timer could be as simple as:

+ Code Snippet

if timer()>t# then gosub MoveFrame:t#=timer()+???

The timer length (???) can be adjusted depending on which frames you're using. (Running may call for more speed than walking.)

The use of a subroutine here is just one example...
Most people seem to prefer functions, but I'm rather "laissez-faire" about it.

D.D.

Back to top

Profile PM

Jonk

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: East of Java

Posted: 15th Jan 2014 07:00

Link

Ok thanks for that, using the timer() expression seems to work well however I have another two problems now.

(1) if two buttons are pressed simultaneously eg "W" and "A" the animation stops. Idealy I would still like the forward animation to play.

(2) I would like to play a frame sequence when the object is not moving eg if no button is being pressed

do
    if timer()>t# 
            gosub player1move
            t#=timer()+17
    endif
    sync
loop

end

player1move:
       if keystate(32)                `stride left
           move object left player1helper,player1speed#
           inc fr 
           if fr>801 then fr=782
           if fr<782 then fr=801
        endif

if keystate(30)                `stride right
            move object right player1helper,player1speed#
            inc fr 
            if fr>781 then fr=762
            if fr<762 then fr=781
        endif

if keystate(17)                 `forward
            move object player1helper,-player1speed#
            inc fr   
            if fr>1986 then fr=1970      
            if fr<1970 then fr=1986
         endif

if keystate(31)                `backwards
            move object player1helper,player1speed#
            dec fr  
            if fr<1970 then fr=1986
            if fr>1986 then fr=1970
        endif
set object frame player1,fr

return

+ Code Snippet

do
    if timer()>t# 
            gosub player1move
            t#=timer()+17
    endif
    sync
loop

end

player1move:
       if keystate(32)                `stride left
           move object left player1helper,player1speed#
           inc fr 
           if fr>801 then fr=782
           if fr<782 then fr=801
        endif

         if keystate(30)                `stride right
            move object right player1helper,player1speed#
            inc fr 
            if fr>781 then fr=762
            if fr<762 then fr=781
        endif 

        if keystate(17)                 `forward
            move object player1helper,-player1speed#
            inc fr   
            if fr>1986 then fr=1970      
            if fr<1970 then fr=1986
         endif

        if keystate(31)                `backwards
            move object player1helper,player1speed#
            dec fr  
            if fr<1970 then fr=1986
            if fr>1986 then fr=1970
        endif
set object frame player1,fr

return

"There are no perfect ideas only perfect intentions"

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 15th Jan 2014 11:01

Link

Quote: "if two buttons are pressed simultaneously eg "W" and "A" the animation stops"

You could put conditions for two pressed KEY:

if keystate(32) and keystate(31)
conditions
conditions
endif

We can put conditions also if no key is being pressed , and even randomly:

if rnd(2000)=20
conditions
endif

I'm not a grumpy grandpa

Back to top

Profile PM Email

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 17th Jan 2014 21:03 Edited at: 17th Jan 2014 21:08

Link

i prefer to have the key input set a state instead of having them directly control the ppsition and animation, then once you have processed all inputs, you can use the state to determine what to do and which animation to play.

say any movement key will set an 'isMoving' state to true, and the shift key will set an 'isSprinting' state to true.

after updating all states you can play the forward animation if any wasd key or combination was pressed, change it to a sprint animation if space was also pressed not because (keystate w and keystate a and keystate space) but rather because (isMoving and isSprinting) regardless of the specific keys used to set them.

this way you dont have to specify an if statement and work out logic for every possible combination, and you also retain information about the input after the fact to use throughout the program. this can be useful in a variety of ways including AI prediction and multiplayer networking among others.

i can post some code when i get home if you would like a more specific example.

Back to top

Profile PM Email Website

Jonk

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: East of Java

Posted: 18th Jan 2014 15:25

Link

Thanks Ortu I would very much like some example snippets if it is not to much trouble the idea you suggest sounds good. I'm gonna go and tinker with some code to test it out

"There are no perfect ideas only perfect intentions"

Back to top

Profile PM Email

Jonk

19

Years of Service

User Offline

Joined: 31st Jul 2005

Location: East of Java

Posted: 20th Jan 2014 13:22

Link

Ok I managed to get some code going that seems to work well.

I did what Ortu said and used the keystates to set a flag which then jumped to a routine that played the relevant animation and moved the object before setting the flag to off before the next cycle.

Rem ***** Main Source File *****
Rem Project: FRagem2
Rem Created: Saturday, January 11, 2014

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
set camera range 0.5, 100000
hide mouse
set ambient light 30

map=1
skybox=2
player1=3
player2=4
playercolisionbox=5
gun1=6
player1helper=7

mapimage=1
player1texture=2
player2texture=3
gun1image=4
movingoff=1
framespeed=40
player1speed#=0.5

load object "map1.x",map
load image "texture.bmp",mapimage
texture object map,mapimage
position object map,0,0,0
`****************************** Create Skybox
load object "skybox2.x",skybox
set object light skybox, 0
set object texture skybox, 3, 0
position object skybox, 1000,0, 4000
scale object skybox, 30000, 30000, 30000
`****************************** Create Player 1
load object "player.x",player1
load image "playercanada.dds",player1texture
scale object player1,12,12,12
texture object player1,player1texture
position object player1,0,-5,10
set object speed player1,40
fra= total object frames(player1)
set object cull player1,0
`loop object player1,1490,1513
`********************************  Create Gun
load object "gun.x",gun1
load Image "gun.dds",gun1image
zrotate object gun1,90
xrotate object gun1,-90
fix object pivot gun1
position object gun1,0,0,5
` ****************** make gun into limb and attatch to players hand
make mesh from object 1,gun1
add limb player1,72,1
texture limb player1,72,gun1image
link limb player1,33,72
delete object gun1
delete mesh 1
`****************** create player 1 helper object for collision detection
make object sphere player1helper,10
make mesh from object 1,player1helper
position object player1helper,0,3,58
`GHOST OBJECT ON player1helper,1
hide object player1helper
add limb player1helper,1,1
offset limb player1helper,1,0,0,10
scale limb player1helper,1,100,100,100
link limb player1helper,0,1
`hide limb player1,73

do
    gosub Info
    gosub player1lookupdate
    gosub player1move
    sync
loop

end

player1lookupdate:
`*********************************** outside view ******
`   position camera object position x(player1),object position y(player1)+5,object position z(player1)+15
`********************************** follow view *******************
    position camera LIMB POSITION x(player1helper,1),limb position y(player1helper,1),LIMB POSITION z(player1helper,1)
`********************************************************
    point camera object position x(player1helper),object position y(player1helper), object position z(player1helper)
    SET OBJECT TO OBJECT ORIENTATION player1,player1helper
    position object player1,object position x(player1helper),object position y(player1helper)-5, object position z(player1helper)

Oldplayer1AngleY# = player1AngleY#
    Oldplayer1AngleX# = player1AngleX#
    player1AngleY# = wrapvalue ( player1AngleY# + mousemovex ( ) * 0.4 )
    player1AngleX# = wrapvalue ( player1AngleX# + mousemovey ( ) * 0.4 )
    yrotate object player1helper,curveangle( player1AngleY#,Oldplayer1AngleY#, 24 )
    xrotate camera curveangle ( player1AngleX#, Oldplayer1AngleX#, 24 )
   
return

player1move: 
    if keystate(17) then forward=1                `forward
    if keystate(31) then backward=1                `backwards
    if keystate(30) then right=1             `stride right
    if keystate(32) then left=1               `stride left
    if keystate(17) and keystate(32) then forwardright=1
    if keystate(17) and keystate(30) then forwardleft=1
    if keystate(31) and keystate(30) then backwardright=1
    if keystate(31) and keystate(32) then backwardleft=1
 
    if forward=0 and backward=0 and right=0 and left=0 and forwardright=0 and forwardleft=0 and backwardright=0 and backwardleft=0 then idle=1
 
    if idle=1
    SET OBJECT SPEED player1,framespeed/3
    loop object player1,3722,3777
        `loop object player1,1490,1513
        idle=0
    endif
          
    if forwardright=1                  `Forwards and Right
        move object player1helper,-player1speed#/6
        move object left player1helper,player1speed#/6
        SET OBJECT SPEED player1,framespeed
        loop object player1,1560,1578
         gosub setmoveto0
    endif
            
    if forwardleft=1                  `Forwards and Left
        move object right player1helper,player1speed#/6
        move object player1helper,-player1speed#/6
        SET OBJECT SPEED player1,framespeed
        loop object player1,1540,1559
        gosub setmoveto0
    endif
       
    if backwardleft=1                  `Backward and Left
        move object left player1helper,player1speed#/6
        move object player1helper,player1speed#/6
        SET OBJECT SPEED player1,framespeed/2
        loop object player1,1560,1578
        gosub setmoveto0
    endif
       
    if backwardright=1                  `Backward and Right
        move object right player1helper,player1speed#/6
        move object player1helper,player1speed#/6
        SET OBJECT SPEED player1,framespeed/2
        loop object player1,1540,1559
        gosub setmoveto0
    endif
       
    if forward=1                 `forward
        move object player1helper,-player1speed#
        SET OBJECT SPEED player1,framespeed
        loop object player1,1970,1986
        gosub setmoveto0
    endif
         
    if backward=1                `backwards
        move object player1helper,player1speed#/6
        SET OBJECT SPEED player1,-framespeed/2
        loop object player1,1970,1986
        gosub setmoveto0
    endif
        
    if right=1                `stride right
        move object right player1helper,player1speed#/5
        SET OBJECT SPEED player1,framespeed
        loop object player1,1540,1559
        gosub setmoveto0
    endif

if left=1                  `stride left
        move object left player1helper,player1speed#/5
        SET OBJECT SPEED player1,framespeed
        loop object player1,1560,1578
        gosub setmoveto0
    endif
return

setmoveto0:
         forwardright=0
         forward=0
         backward=0
         right=0
         left=0
         forwardright=0
         forwardleft=0
         backwardleft=0
         backwardright=0
return

Info:
    SET CURSOR 0,10
    Print "Player 1 Position X Coordinates " + Str$(object position x(Player1))
    Print "Player 1 Position z Coordinates " + Str$(object position z(Player1))
    print "fps = " + str$ ( screen fps ( ) )
    Print "PLayer 1 Frame" +STR$(fra)
return

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: FRagem2
Rem Created: Saturday, January 11, 2014

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
set camera range 0.5, 100000
hide mouse
set ambient light 30

map=1
skybox=2
player1=3
player2=4
playercolisionbox=5
gun1=6
player1helper=7

mapimage=1
player1texture=2
player2texture=3
gun1image=4
movingoff=1
framespeed=40
player1speed#=0.5


load object "map1.x",map
load image "texture.bmp",mapimage
texture object map,mapimage
position object map,0,0,0
`****************************** Create Skybox
load object "skybox2.x",skybox
set object light skybox, 0
set object texture skybox, 3, 0
position object skybox, 1000,0, 4000
scale object skybox, 30000, 30000, 30000
`****************************** Create Player 1
load object "player.x",player1
load image "playercanada.dds",player1texture
scale object player1,12,12,12
texture object player1,player1texture
position object player1,0,-5,10
set object speed player1,40
fra= total object frames(player1)
set object cull player1,0
`loop object player1,1490,1513
`********************************  Create Gun
load object "gun.x",gun1
load Image "gun.dds",gun1image
zrotate object gun1,90
xrotate object gun1,-90
fix object pivot gun1
position object gun1,0,0,5
` ****************** make gun into limb and attatch to players hand
make mesh from object 1,gun1
add limb player1,72,1
texture limb player1,72,gun1image
link limb player1,33,72
delete object gun1
delete mesh 1
`****************** create player 1 helper object for collision detection
make object sphere player1helper,10
make mesh from object 1,player1helper
position object player1helper,0,3,58
`GHOST OBJECT ON player1helper,1
hide object player1helper
add limb player1helper,1,1
offset limb player1helper,1,0,0,10
scale limb player1helper,1,100,100,100
link limb player1helper,0,1
`hide limb player1,73

do
    gosub Info
    gosub player1lookupdate
    gosub player1move
    sync
loop

end

player1lookupdate:
`*********************************** outside view ******
`   position camera object position x(player1),object position y(player1)+5,object position z(player1)+15
`********************************** follow view *******************
    position camera LIMB POSITION x(player1helper,1),limb position y(player1helper,1),LIMB POSITION z(player1helper,1)
`********************************************************
    point camera object position x(player1helper),object position y(player1helper), object position z(player1helper)
    SET OBJECT TO OBJECT ORIENTATION player1,player1helper
    position object player1,object position x(player1helper),object position y(player1helper)-5, object position z(player1helper)

    Oldplayer1AngleY# = player1AngleY#
    Oldplayer1AngleX# = player1AngleX#
    player1AngleY# = wrapvalue ( player1AngleY# + mousemovex ( ) * 0.4 )
    player1AngleX# = wrapvalue ( player1AngleX# + mousemovey ( ) * 0.4 )
    yrotate object player1helper,curveangle( player1AngleY#,Oldplayer1AngleY#, 24 )
    xrotate camera curveangle ( player1AngleX#, Oldplayer1AngleX#, 24 )
   
return

player1move: 
    if keystate(17) then forward=1                `forward
    if keystate(31) then backward=1                `backwards
    if keystate(30) then right=1             `stride right
    if keystate(32) then left=1               `stride left
    if keystate(17) and keystate(32) then forwardright=1
    if keystate(17) and keystate(30) then forwardleft=1
    if keystate(31) and keystate(30) then backwardright=1
    if keystate(31) and keystate(32) then backwardleft=1
 
    if forward=0 and backward=0 and right=0 and left=0 and forwardright=0 and forwardleft=0 and backwardright=0 and backwardleft=0 then idle=1
 
    if idle=1
    SET OBJECT SPEED player1,framespeed/3
    loop object player1,3722,3777
        `loop object player1,1490,1513
        idle=0
    endif
          
    if forwardright=1                  `Forwards and Right
        move object player1helper,-player1speed#/6
        move object left player1helper,player1speed#/6
        SET OBJECT SPEED player1,framespeed
        loop object player1,1560,1578
         gosub setmoveto0
    endif
            
    if forwardleft=1                  `Forwards and Left
        move object right player1helper,player1speed#/6
        move object player1helper,-player1speed#/6
        SET OBJECT SPEED player1,framespeed
        loop object player1,1540,1559
        gosub setmoveto0
    endif
       
    if backwardleft=1                  `Backward and Left
        move object left player1helper,player1speed#/6
        move object player1helper,player1speed#/6
        SET OBJECT SPEED player1,framespeed/2
        loop object player1,1560,1578
        gosub setmoveto0
    endif
       
    if backwardright=1                  `Backward and Right
        move object right player1helper,player1speed#/6
        move object player1helper,player1speed#/6
        SET OBJECT SPEED player1,framespeed/2
        loop object player1,1540,1559
        gosub setmoveto0
    endif
       
    if forward=1                 `forward
        move object player1helper,-player1speed#
        SET OBJECT SPEED player1,framespeed
        loop object player1,1970,1986
        gosub setmoveto0
    endif
         
    if backward=1                `backwards
        move object player1helper,player1speed#/6
        SET OBJECT SPEED player1,-framespeed/2
        loop object player1,1970,1986
        gosub setmoveto0
    endif
        
    if right=1                `stride right
        move object right player1helper,player1speed#/5
        SET OBJECT SPEED player1,framespeed
        loop object player1,1540,1559
        gosub setmoveto0
    endif 

    if left=1                  `stride left
        move object left player1helper,player1speed#/5
        SET OBJECT SPEED player1,framespeed
        loop object player1,1560,1578
        gosub setmoveto0
    endif
return

setmoveto0:
         forwardright=0
         forward=0
         backward=0
         right=0
         left=0
         forwardright=0
         forwardleft=0
         backwardleft=0
         backwardright=0
return

Info:
    SET CURSOR 0,10
    Print "Player 1 Position X Coordinates " + Str$(object position x(Player1))
    Print "Player 1 Position z Coordinates " + Str$(object position z(Player1))
    print "fps = " + str$ ( screen fps ( ) )
    Print "PLayer 1 Frame" +STR$(fra)
return

"There are no perfect ideas only perfect intentions"

Attachments

Login to view attachments

Back to top

Profile PM Email

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 22nd Jan 2014 07:43 Edited at: 22nd Jan 2014 08:10

Link

Sorry for the delay, it has been busy for me.

Good to see you working through it and get something working!

However, in your current code, you are still trying to work out every logical combination of key presses manually to set your states. You are being too specific with your states. The idea is not to have a separate state for each combination, but rather have more general states which can then be layered over each other to created greater complexity. Modularization.

For example, if you have a 'forward' state and a 'left' state, you don't need a 'forwardleft' state, you can test for forward+left by checking the first two.

Here is more in the way of what I was talking about, hopefully the code will explain it more clearly.

`first lets set up some UDT to hold our data
	
	type charStatusData
        	strafeLock 	as boolean
        	isMoving	as boolean
        	isSprinting	as boolean
		isCrouching	as boolean
	endtype	
	
	type charBaseData
        	x		as float
        	y 		as float
        	z 		as float
		facing 		as float 	`y angle char is pointing in
		heading 	as float 	`y angle char is moving in
        	obj 		as integer 	`object id of char	
	endtype	
	
    	type charData
		baseData 	as charBaseData
		status 		as charStatusData
    	endtype
	
	dim Chars() as charData
	
	`next lets setup a function to process inputs
	
	function getPlayerInput()

`reset status flags
		Chars(MY_CHAR).status.isMoving = 0
		Chars(MY_CHAR).status.isCrouching = 0
		Chars(MY_CHAR).status.isSprinting = 0

`get camera facing, this is needed to calculate movement and strafing directions.
		camYang = camera angle y()
		
		`gather input:

`w forward
		if keystate(17) = 1
			Chars(MY_CHAR).baseData.facing = camYang
			Chars(MY_CHAR).baseData.heading = camYang
			Chars(MY_CHAR).status.isMoving = 1
		endif

`s backward
		if keystate(31) = 1
			`if strafe locked, backstep
			if Chars(MY_CHAR).status.strafeLock = 1
				Chars(MY_CHAR).baseData.facing = camYang
				Chars(MY_CHAR).baseData.heading = wrapvalue(camYang + 180.0)
				Chars(MY_CHAR).status.isMoving = 1
			else
			`if not locked, turn
				Chars(MY_CHAR).baseData.facing = wrapvalue(camYang + 180.0)
				Chars(MY_CHAR).baseData.heading = wrapvalue(camYang + 180.0)
				Chars(MY_CHAR).status.isMoving = 1
			endif
		endif	
		
		`ctrl crouch
		if keystate(29) = 1
			Chars(MY_CHAR).status.isCrouching = 1
		endif

`shift sprint
		if keystate(42) = 1
			`cannot sprint while crouching
			if Chars(MY_CHAR).status.isCrouching = 0
				Chars(MY_CHAR).status.isSprinting = 1
			endif
		endif

`now that we have set our states, we can determine movement and animation:
		
		if Chars(MY_CHAR).status.isMoving = 1		
			`sprinting
			if Chars(MY_CHAR).status.isSprinting = 1	
				`move character in direction of Chars(MY_CHAR).baseData.heading at desired sprint speed
				`play sprinting move animation
			else
				if Chars(MY_CHAR).status.isCrouching = 1
					`move character in direction of Chars(MY_CHAR).baseData.heading at desired crouch speed
					`play crouched move animation
				else
					`move character in direction of Chars(MY_CHAR).baseData.heading at desired basic speed
					`play basic move animation
				endif
			endif
		else
			`char is not moving, play idle animation
		endif
	
	endfunction

+ Code Snippet

	
	`first lets set up some UDT to hold our data
	
	type charStatusData
        	strafeLock 	as boolean
        	isMoving	as boolean
        	isSprinting	as boolean
		isCrouching	as boolean
	endtype	
	
	type charBaseData
        	x		as float
        	y 		as float
        	z 		as float
		facing 		as float 	`y angle char is pointing in
		heading 	as float 	`y angle char is moving in
        	obj 		as integer 	`object id of char	
	endtype	
	
    	type charData
		baseData 	as charBaseData
		status 		as charStatusData
    	endtype
	
	dim Chars() as charData
	
	`next lets setup a function to process inputs
	
	function getPlayerInput()

		`reset status flags
		Chars(MY_CHAR).status.isMoving = 0
		Chars(MY_CHAR).status.isCrouching = 0
		Chars(MY_CHAR).status.isSprinting = 0

		`get camera facing, this is needed to calculate movement and strafing directions.
		camYang = camera angle y()
		
		`gather input:

		`w forward
		if keystate(17) = 1
			Chars(MY_CHAR).baseData.facing = camYang
			Chars(MY_CHAR).baseData.heading = camYang
			Chars(MY_CHAR).status.isMoving = 1
		endif

		`s backward
		if keystate(31) = 1
			`if strafe locked, backstep
			if Chars(MY_CHAR).status.strafeLock = 1
				Chars(MY_CHAR).baseData.facing = camYang
				Chars(MY_CHAR).baseData.heading = wrapvalue(camYang + 180.0)
				Chars(MY_CHAR).status.isMoving = 1
			else
			`if not locked, turn
				Chars(MY_CHAR).baseData.facing = wrapvalue(camYang + 180.0)
				Chars(MY_CHAR).baseData.heading = wrapvalue(camYang + 180.0)
				Chars(MY_CHAR).status.isMoving = 1
			endif
		endif	
		
		`ctrl crouch
		if keystate(29) = 1
			Chars(MY_CHAR).status.isCrouching = 1
		endif

		`shift sprint
		if keystate(42) = 1
			`cannot sprint while crouching
			if Chars(MY_CHAR).status.isCrouching = 0
				Chars(MY_CHAR).status.isSprinting = 1
			endif
		endif	

		`now that we have set our states, we can determine movement and animation:
		
		if Chars(MY_CHAR).status.isMoving = 1		
			`sprinting
			if Chars(MY_CHAR).status.isSprinting = 1	
				`move character in direction of Chars(MY_CHAR).baseData.heading at desired sprint speed
				`play sprinting move animation
			else
				if Chars(MY_CHAR).status.isCrouching = 1
					`move character in direction of Chars(MY_CHAR).baseData.heading at desired crouch speed
					`play crouched move animation
				else
					`move character in direction of Chars(MY_CHAR).baseData.heading at desired basic speed
					`play basic move animation
				endif
			endif
		else
			`char is not moving, play idle animation
		endif
	
	endfunction

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / What is the best way to animate and Move my object

Attachments

Attachments

Attachments