My solution for the play object command not working

Author

Message

Section 812

18

Years of Service

User Offline

Joined: 24th Feb 2008

Location:

Posted: 23rd Feb 2012 06:08 Edited at: 23rd Feb 2012 14:32

Link

I recently had a problem with the play object command not working or freezing on a single frame so I turned to the forum to find a solution but found others with the same problem and other work arounds did not suit my needs, so I came up with this function to solve my problem.
Now I'm sure someone has done this but did not share with the community, and to them I say shame on you!

+ Code Snippet

function playobject(obj,start#,end#)
frame = object frame(obj)+2
 loop object obj,start#,end#
 if frame = end# then stop object obj
 
endfunction

add this function to your loop and then just use the command "playobject(object number, start frame, end frame)"
in your do "do" section

Back to top

Profile PM Email Website

Hodgey

16

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 23rd Feb 2012 07:21

Link

I'm afraid we can't just copy/paste the code and use it. It will require adapting as not all of us have a variable called 'death' or want object '3' to play but nevertheless, it's good to see you contributing to the community .

Back to top

Profile PM Email

Section 812

18

Years of Service

User Offline

Joined: 24th Feb 2008

Location:

Posted: 23rd Feb 2012 14:34

Link

OOPS! your right Hodgey, thanks.

Re edited first post

Back to top

Profile PM Email Website

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 23rd Feb 2012 14:44

Link

I find it easier to just control my object frames manually, lets me set the speed, interpolation, animation transitions etc etc. Don't use or mimic Play Object, it limits you and limits how smooth your animations can look. For example, I often set the interpolation high then sharply reduce it when changing the animation, say from standing still to running.

For example, similar to your function, but no need for looping animations, just setting the frame...

+ Code Snippet

function playobject(obj,start#,end#,speed#)
frame# = object frame(obj)+speed#
if frame#<start# then frame#=start#
if frame#>end# then frame#=end#
set object frame obj,frame#
endfunction

+ Code Snippet

function loopobject(obj,start#,end#,speed#)
frame# = object frame(obj)+speed#
if frame#<start# then frame#=end#
if frame#>end# then frame#=start#
set object frame obj,frame#
endfunction

One benefit of this is that you can reverse animations really easily, just use a negative value in the speed parameter, and have it limit the frame for the start and end. Also, if you pause the game, you just don't call the object update functions, so they won't keep looping even when the game is paused, or while your doing 2D stuff for instance.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Millenium7

21

Years of Service

User Offline

Joined: 13th Dec 2004

Location:

Posted: 23rd Feb 2012 16:26

Link

Quote: "I find it easier to just control my object frames manually"

be careful with this. I havn't tested it myself but came across a thread discussing it. Apparently DBPro actually loops through all animation frames when setting it manually. So if you set the frame to 120, it does not instantly jump to 120. It goes frame 1,2,3,4....119,120 in the background until it finds the right one. Something to do with how the .x format works?

The result is this is noticeably slower than simply calling the loop/play object commands. And it gets progressively worse as the frame number goes up

Back to top

Profile PM Email

SoftMotion3D

AGK Developer

20

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 23rd Feb 2012 18:21 Edited at: 23rd Feb 2012 18:22

Link

play object command??? it works fine... whats the problem with it??

edit: animation freezing..... humm... what application are you using that develops a .x or 3ds that freezes? As even my own application works fine and have never had such problems...

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 23rd Feb 2012 22:14 Edited at: 23rd Feb 2012 22:17

Link

Here's how I've been doing it with all of my projects:

rem -----------------------------------------------------------
rem Animation - Controls animations of objects
rem by TheComet
rem -----------------------------------------------------------

rem -----------------------------------------------------------
rem Constants
rem -----------------------------------------------------------

#constant AnimationMax 100

rem -----------------------------------------------------------
rem User Defined Types
rem -----------------------------------------------------------

type AnimationVT
   logging as integer
endtype

type AnimationAT
   active as integer
   CurrentFrame# as float
   StartFrame# as float
   EndFrame# as float
   Speed# as float
   Obj as word
endtype

rem -----------------------------------------------------------
rem Initialise
rem -----------------------------------------------------------

function InitAnimation()

rem debug
   DebugOutput(0 , "Initialising Animation, max="+str$(AnimationMax))

rem -----------------------------------------------------------
   rem global variables
   rem -----------------------------------------------------------

global Animation as AnimationVT

rem -----------------------------------------------------------
   rem global arrays
   rem -----------------------------------------------------------

global dim Animation(AnimationMax) as AnimationAT

endfunction

function PlayObject(Obj , StartFrame# , EndFrame# , Speed#)

rem local variables
   local n as integer

rem logging
   if Animation.logging = 1 then AddTextToConsole("PlayObject "+str$(Obj)+", "+str$(StartFrame#)+", "+str$(EndFrame#)+", "+str$(Speed#) , 0xFFFFFFFF , 1 , 0)

rem find free slot
   for n = 0 to AnimationMax
      if Animation(n).active = 0 then exit
   next n

rem no free slot found
   if n = AnimationMax + 1
      if Animation.logging = 1 then AddTextToConsole("No free slot!" , 0xFFFF0000 , 2 , 0)
      exitfunction
   endif

rem set frame
   set object frame Obj , StartFrame#

rem set values
   Animation(n).active        = 2
   Animation(n).Obj           = Obj
   Animation(n).StartFrame#   = StartFrame#
   Animation(n).EndFrame#     = EndFrame#
   Animation(n).CurrentFrame# = StartFrame#
   Animation(n).Speed#        = Speed#

endfunction

function LoopObject(Obj , StartFrame# , EndFrame# , Speed#)

rem local variables
   local n as integer

rem logging
   if Animation.logging = 1 then AddTextToConsole("LoopObject "+str$(Obj)+", "+str$(StartFrame#)+", "+str$(EndFrame#)+", "+str$(Speed#) , 0xFFFFFFFF , 1 , 0)

rem find free slot
   for n = 0 to AnimationMax
      if Animation(n).active = 0 then exit
   next n

rem no free slot found
   if n = AnimationMax + 1
      if Animation.logging = 1 then AddTextToConsole("No free slot!" , 0xFFFF0000 , 2 , 0)
      exitfunction
   endif

rem set frame
   set object frame Obj , StartFrame#

rem set values
   Animation(n).active        = 3
   Animation(n).Obj           = Obj
   Animation(n).StartFrame#   = StartFrame#
   Animation(n).EndFrame#     = EndFrame#
   Animation(n).CurrentFrame# = StartFrame#
   Animation(n).Speed#        = Speed#

endfunction

function StopObject(Obj)

rem local variables
   local n as integer

rem logging
   if Animation.logging = 1 then AddTextToConsole("StopObject "+str$(Obj) , 0xFFFFFFFF , 1 , 0)

rem find animation index of object
   for n = 0 to AnimationMax
      if Animation(n).Obj = Obj then exit
   next n

rem not found
   if n = AnimationMax + 1
      if Animation.logging = 1 then AddTextToConsole("Object not active!" , 0xFFFF0000 , 2 , 0)
      exitfunction
   endif

rem make sure animation is active
   if Animation(n).active = 0
      if Animation.logging = 1 then AddTextToConsole("Animation "+str$(n)+" not active!" , 0xFFFF0000 , 2 , 0)
      exitfunction
   endif

rem set frame
   if object exist(Animation(n).Obj)
      set object frame Animation(n).Obj , Animation(n).CurrentFrame#
   endif

rem stop object
   Animation(n).active  = 0
   Animation(n).Obj     = 0

endfunction

function ObjectPlaying(Obj)

rem local variables
   local n as integer

rem logging
   if Animation.logging = 1 then AddTextToConsole("ObjectPlaying "+str$(Obj) , 0xFFFFFFFF , 1 , 0)

rem find animation index of object
   for n = 0 to AnimationMax
      if Animation(n).Obj = Obj then exit
   next n

rem not found
   if n = AnimationMax + 1
      if Animation.logging = 1 then AddTextToConsole("Object not playing!" , 0xFFFF0000 , 2 , 0)
      exitfunction 0
   endif

rem make sure animation is active
   if Animation(n).active = 0
      if Animation.logging = 1 then AddTextToConsole("Animation "+str$(n)+" not active!" , 0xFFFF0000 , 2 , 0)
      exitfunction 0
   endif

rem playing or not
   if Animation(n).active = 1 then exitfunction 0

endfunction 1

function ObjectFrame(Obj)

rem local variables
   local n as integer
   local f# as float

rem logging
   if Animation.logging = 1 then AddTextToConsole("ObjectFrame "+str$(Obj) , 0xFFFFFFFF , 1 , 0)

rem find animation index of object
   for n = 0 to AnimationMax
      if Animation(n).Obj = Obj then exit
   next n

rem not found
   if n = AnimationMax + 1
      if Animation.logging = 1 then AddTextToConsole("Object not active!" , 0xFFFF0000 , 2 , 0)
      exitfunction 0.0
   endif

rem make sure animation is active
   if Animation(n).active = 0
      if Animation.logging = 1 then AddTextToConsole("Animation "+str$(n)+" not active!" , 0xFFFF0000 , 2 , 0)
      exitfunction 0.0
   endif

rem return value
   f# = Animation(n).CurrentFrame#

endfunction f#

function ControlAnimation()

rem local variables
   local n as integer

rem loop through all active animations
   for n = 0 to AnimationMax
      if Animation(n).active > 1

rem increment frame
         inc Animation(n).CurrentFrame# , Animation(n).Speed#

rem play object
         if Animation(n).active = 2

rem animation reaches end
            if Animation(n).CurrentFrame# > Animation(n).EndFrame#
               Animation(n).CurrentFrame# = Animation(n).EndFrame#
               Animation(n).active = 1
            endif
            if Animation(n).CurrentFrame# < Animation(n).StartFrame#
               Animation(n).CurrentFrame# = Animation(n).StartFrame#
               Animation(n).active = 1
            endif
         endif

rem loop object
         if Animation(n).active = 3

rem animation reaches end
            if Animation(n).CurrentFrame# > Animation(n).EndFrame#
               Animation(n).CurrentFrame# = Animation(n).StartFrame#
            endif
            if Animation(n).CurrentFrame# < Animation(n).StartFrame#
               Animation(n).CurrentFrame# = Animation(n).EndFrame#
            endif
         endif

rem update object frame
         if object exist(Animation(n).Obj)
            set object frame Animation(n).Obj , Animation(n).CurrentFrame#
         else
            StopObject(Animation(n).Obj)
         endif

endif
   next n

endfunction

+ Code Snippet

rem -----------------------------------------------------------
rem Animation - Controls animations of objects
rem by TheComet
rem -----------------------------------------------------------

rem -----------------------------------------------------------
rem Constants
rem -----------------------------------------------------------

#constant AnimationMax 100

rem -----------------------------------------------------------
rem User Defined Types
rem -----------------------------------------------------------

type AnimationVT
   logging as integer
endtype

type AnimationAT
   active as integer
   CurrentFrame# as float
   StartFrame# as float
   EndFrame# as float
   Speed# as float
   Obj as word
endtype

rem -----------------------------------------------------------
rem Initialise
rem -----------------------------------------------------------

function InitAnimation()

   rem debug
   DebugOutput(0 , "Initialising Animation, max="+str$(AnimationMax))

   rem -----------------------------------------------------------
   rem global variables
   rem -----------------------------------------------------------

   global Animation as AnimationVT

   rem -----------------------------------------------------------
   rem global arrays
   rem -----------------------------------------------------------

   global dim Animation(AnimationMax) as AnimationAT

endfunction

function PlayObject(Obj , StartFrame# , EndFrame# , Speed#)

   rem local variables
   local n as integer

   rem logging
   if Animation.logging = 1 then AddTextToConsole("PlayObject "+str$(Obj)+", "+str$(StartFrame#)+", "+str$(EndFrame#)+", "+str$(Speed#) , 0xFFFFFFFF , 1 , 0)

   rem find free slot
   for n = 0 to AnimationMax
      if Animation(n).active = 0 then exit
   next n

   rem no free slot found
   if n = AnimationMax + 1
      if Animation.logging = 1 then AddTextToConsole("No free slot!" , 0xFFFF0000 , 2 , 0)
      exitfunction
   endif

   rem set frame
   set object frame Obj , StartFrame#

   rem set values
   Animation(n).active        = 2
   Animation(n).Obj           = Obj
   Animation(n).StartFrame#   = StartFrame#
   Animation(n).EndFrame#     = EndFrame#
   Animation(n).CurrentFrame# = StartFrame#
   Animation(n).Speed#        = Speed#

endfunction

function LoopObject(Obj , StartFrame# , EndFrame# , Speed#)

   rem local variables
   local n as integer

   rem logging
   if Animation.logging = 1 then AddTextToConsole("LoopObject "+str$(Obj)+", "+str$(StartFrame#)+", "+str$(EndFrame#)+", "+str$(Speed#) , 0xFFFFFFFF , 1 , 0)

   rem find free slot
   for n = 0 to AnimationMax
      if Animation(n).active = 0 then exit
   next n

   rem no free slot found
   if n = AnimationMax + 1
      if Animation.logging = 1 then AddTextToConsole("No free slot!" , 0xFFFF0000 , 2 , 0)
      exitfunction
   endif

   rem set frame
   set object frame Obj , StartFrame#

   rem set values
   Animation(n).active        = 3
   Animation(n).Obj           = Obj
   Animation(n).StartFrame#   = StartFrame#
   Animation(n).EndFrame#     = EndFrame#
   Animation(n).CurrentFrame# = StartFrame#
   Animation(n).Speed#        = Speed#

endfunction

function StopObject(Obj)

   rem local variables
   local n as integer

   rem logging
   if Animation.logging = 1 then AddTextToConsole("StopObject "+str$(Obj) , 0xFFFFFFFF , 1 , 0)

   rem find animation index of object
   for n = 0 to AnimationMax
      if Animation(n).Obj = Obj then exit
   next n

   rem not found
   if n = AnimationMax + 1
      if Animation.logging = 1 then AddTextToConsole("Object not active!" , 0xFFFF0000 , 2 , 0)
      exitfunction
   endif

   rem make sure animation is active
   if Animation(n).active = 0
      if Animation.logging = 1 then AddTextToConsole("Animation "+str$(n)+" not active!" , 0xFFFF0000 , 2 , 0)
      exitfunction
   endif

   rem set frame
   if object exist(Animation(n).Obj)
      set object frame Animation(n).Obj , Animation(n).CurrentFrame#
   endif

   rem stop object
   Animation(n).active  = 0
   Animation(n).Obj     = 0

endfunction

function ObjectPlaying(Obj)

   rem local variables
   local n as integer

   rem logging
   if Animation.logging = 1 then AddTextToConsole("ObjectPlaying "+str$(Obj) , 0xFFFFFFFF , 1 , 0)

   rem find animation index of object
   for n = 0 to AnimationMax
      if Animation(n).Obj = Obj then exit
   next n

   rem not found
   if n = AnimationMax + 1
      if Animation.logging = 1 then AddTextToConsole("Object not playing!" , 0xFFFF0000 , 2 , 0)
      exitfunction 0
   endif

   rem make sure animation is active
   if Animation(n).active = 0
      if Animation.logging = 1 then AddTextToConsole("Animation "+str$(n)+" not active!" , 0xFFFF0000 , 2 , 0)
      exitfunction 0
   endif

   rem playing or not
   if Animation(n).active = 1 then exitfunction 0

endfunction 1

function ObjectFrame(Obj)

   rem local variables
   local n as integer
   local f# as float

   rem logging
   if Animation.logging = 1 then AddTextToConsole("ObjectFrame "+str$(Obj) , 0xFFFFFFFF , 1 , 0)

   rem find animation index of object
   for n = 0 to AnimationMax
      if Animation(n).Obj = Obj then exit
   next n

   rem not found
   if n = AnimationMax + 1
      if Animation.logging = 1 then AddTextToConsole("Object not active!" , 0xFFFF0000 , 2 , 0)
      exitfunction 0.0
   endif

   rem make sure animation is active
   if Animation(n).active = 0
      if Animation.logging = 1 then AddTextToConsole("Animation "+str$(n)+" not active!" , 0xFFFF0000 , 2 , 0)
      exitfunction 0.0
   endif

   rem return value
   f# = Animation(n).CurrentFrame#

endfunction f#

function ControlAnimation()

   rem local variables
   local n as integer

   rem loop through all active animations
   for n = 0 to AnimationMax
      if Animation(n).active > 1

         rem increment frame
         inc Animation(n).CurrentFrame# , Animation(n).Speed#

         rem play object
         if Animation(n).active = 2

            rem animation reaches end
            if Animation(n).CurrentFrame# > Animation(n).EndFrame#
               Animation(n).CurrentFrame# = Animation(n).EndFrame#
               Animation(n).active = 1
            endif
            if Animation(n).CurrentFrame# < Animation(n).StartFrame#
               Animation(n).CurrentFrame# = Animation(n).StartFrame#
               Animation(n).active = 1
            endif
         endif

         rem loop object
         if Animation(n).active = 3

            rem animation reaches end
            if Animation(n).CurrentFrame# > Animation(n).EndFrame#
               Animation(n).CurrentFrame# = Animation(n).StartFrame#
            endif
            if Animation(n).CurrentFrame# < Animation(n).StartFrame#
               Animation(n).CurrentFrame# = Animation(n).EndFrame#
            endif
         endif

         rem update object frame
         if object exist(Animation(n).Obj)
            set object frame Animation(n).Obj , Animation(n).CurrentFrame#
         else
            StopObject(Animation(n).Obj)
         endif

      endif
   next n

endfunction

Call InitAnimation() before your main loop and put ControlAnimation() in your main loop.

I should probably add this to my library of functions for you guys.

[EDIT] Just noticed that there are some functions in the code specifically for my project. You'll have to comment them out for this to work.

TheComet

TimePlan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

Section 812

18

Years of Service

User Offline

Joined: 24th Feb 2008

Location:

Posted: 23rd Feb 2012 23:27

Link

Now this is what I would have like to have found in the first place.
I only found 3 posts that pertained to my exact problem when I went to search for the solution, so I knew that not everyone had the problem.
I only wanted the play object command for my purpose, didn't need to interpolate or change speed but these things will be handy for a future project.

why do I only want that? Its G14 classified, and you don't have clearance. LOL

@ SMD_3D Interactive :I cant explain how or why I had this problem as I had done the play object command in a separate application with no other code to see If I had some conflicting code but I still ended up with the same result. mabe I have a damaged or incomplete library in my DBPro or something.

all that aside, I've not had to post in this section before and I want to Thank you all for your comments and methods and not spilling gasoline on me while I smoke.

humor = 0
do
if humor<0
dontlaugh=1
endif

Back to top

Profile PM Email Website

Mage

Valued Member

19

Years of Service

User Offline

Joined: 3rd Feb 2007

Location:

Posted: 27th Feb 2012 03:27 Edited at: 27th Feb 2012 03:37

Link

Your object is probably not looping at End# try changing it to catch values above End# also.

+ Code Snippet

function playobject(obj,start#,end#)
frame = object frame(obj)+2
 loop object obj,start#,end#
 if frame => end# then stop object obj
 
endfunction

Loop Object command (and play object) can advance the literal frame past the final frame specified if the second last frame is close but not quite at the end.

Also what Van B wrote is important:

Quote: "I find it easier to just control my object frames manually..."

In addition to the reason he gave, if you sync more that one camera, like when using advanced shaders, animations will update/advance when ever a camera is synced. This is a problem when you need to sync several times for each time the screen is updated/synced. It can cause rapid and irregular animation speeds unless you manually control object animations.

Quote: "Millenium7 Said:
be careful with this. I havn't tested it myself but came across a thread discussing it. Apparently DBPro actually loops through all animation frames when setting it manually. So if you set the frame to 120, it does not instantly jump to 120. It goes frame 1,2,3,4....119,120 in the background until it finds the right one. Something to do with how the .x format works?"

Never seen this happen with the "Set Object Frame" command. Could this be a very old and fixed bug?

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / My solution for the play object command not working