MY way of doing animations,WORKS FAST

Author

Message

pc nerd

User Banned

Posted: 18th Apr 2009 07:07

OK, sorry for the caps but i figured i was a good call as ever sence i have been here i have read over and over about 2 animations at the same time, now im not talking about runing and shooting at the same time. im talking about doing one animation then another right after that one then returning to my last one. also i have it to a timed animation feture. so you can play one animation.
idle
then if you standing there for to long your player or anyother modle will swich animations per your time.

my guy here idles, then he will dance, then he will rool around, then he will creep intill i move him then he resorts back to walking.

here is my coad, i finley after 4 weeks figured this out and thought i would share it.

Rem *****************************************************************************************
Rem ********                             PLAYER ANIMATIONS                          *********
Rem *****************************************************************************************
rem idle animation
if animestate#= 0
loop object 2,2862,3061
endif
rem walk animation
if animestate#= 1
loop object 2,235,259
endif
rem run animation
if animestate#= 2
loop object 2,3693,3712
endif
rem attack 1 animation
if animestate#= 3
loop object 2,2583,2633
endif
rem jump animation
if animestate#= 4
loop object 2,2497,2519
endif
rem dance animation
if animestate#= 5
loop object 2,3061,3640
endif
set object interpolation 2,50
rem bannah slip animation
if animestate#= 6
loop object 2,2633,2708
endif
rem creep animation
if animestate#= 7
loop object 2,2708,2862
endif

set object interpolation 2,50
Rem *****************************************************************************************
Rem ********                             PLAYER ANIMATIONS loops                    *********
Rem *****************************************************************************************

if animation#=0
animestate#= 0
frame#=frame#+1
set object speed 2,100
endif

if frame#=500
frame#=0
animation#=5
endif

if animation#=1
animestate#=1
set object speed 2,100
endif
if keystate(200)=0 and object looping (2)=animestate#= 1
animation#=0
endif

if animation#=5
animestate#= 5
SC_updateObject 2
frame5#=frame5#+1
set cursor 400,400
print \"IM BORED. PLAY ME!\"
set object speed 2,100
endif

if frame5#=300
frame5#=0
animation#=6
endif

if MOUSECLICK()=1 and keystate(200)=1
animclick=1
endif

if animclick=1
animation#=11
endif

if MOUSECLICK()=1
animation#=3
endif

if animation#=3
animestate#= 3
SC_updateObject 2
frame3#=frame3#+1
play sound 6
set object speed 2,100
endif

if frame3#=30
frame3#=0
animation#=0
endif

if keystate(57)=1
play sound 3
animation#=4
endif

if animation#=4
animestate#= 4
SC_updateObject 2
frame4#=frame4#+1
set object speed 2,100
endif

if frame4#=30
frame4#=0
animation#=0
endif

if animation#=6
animestate#= 6
SC_updateObject 2
frame6#=frame6#+1
SET CURSOR 400,500
PRINT \"WOOPS!!!!!!!!!!\"
set object speed 2,100
endif

if frame6#=50
frame6#=0
animation#=7
endif

if animation#=7
animestate#= 7
SC_updateObject 2
frame7#=frame7#+1
SET CURSOR 400,500
PRINT \"WOOPS!!!!!!!!!!\"
set object speed 2,100
endif

if frame7#=100
frame7#=0
animation#=0
endif

if animation#=11
animestate#= 3
SC_updateObject 2
frame8#=frame8#+1
play sound 6
set object speed 2,100
endif

if frame8#=30
frame8#=0
animclick=0
endif

if keystate(200)=1 AND ENERGY#=10 then move object 2,-0.6:move camera 0,0.1:animation#=1
if keystate(200)=1 AND ENERGY#=20 then move object 2,-0.7:move camera 0,0.7:animation#=1
if keystate(200)=1 AND ENERGY#=30 then move object 2,-0.8:move camera 0,0.8:animation#=1
if keystate(200)=1 AND ENERGY#=40 then move object 2,-0.9:move camera 0,0.9:animation#=1
if keystate(200)=1 AND ENERGY#=50 then move object 2,-1:move camera 0,1:animation#=1
if keystate(200)=1 AND ENERGY#=60 then move object 2,-1.1:move camera 0,1.1:animation#=1
if keystate(200)=1 AND ENERGY#=70 then move object 2,-1.2:move camera 0,1.2:animation#=1
if keystate(200)=1 AND ENERGY#=80 then move object 2,-1.5:move camera 0,1.5:animation#=1
if keystate(200)=1 AND ENERGY#=90 then move object 2,-1.8:move camera 0,1.8:animation#=1
if keystate(200)=1 AND ENERGY#=100 then move object 2,-2:move camera 0,2:set object speed 2,90:animation#=1
if keystate(200)=1 AND keystate(19)=1 AND SC_ObjectCollision(2,123)=1  then move object 2,-3:move camera 0,3:set object speed 2,130:SHOES#=SHOES#-1:paste image 1,595,1,1:set cursor 760,30:print \"SHOES ENERGY {\",SHOES#:animestate#= 2

+ Code Snippet

Rem *****************************************************************************************
Rem ********                             PLAYER ANIMATIONS                          *********
Rem *****************************************************************************************
rem idle animation
if animestate#= 0
loop object 2,2862,3061
endif
rem walk animation
if animestate#= 1
loop object 2,235,259
endif
rem run animation
if animestate#= 2
loop object 2,3693,3712
endif
rem attack 1 animation
if animestate#= 3
loop object 2,2583,2633
endif
rem jump animation
if animestate#= 4
loop object 2,2497,2519
endif
rem dance animation
if animestate#= 5
loop object 2,3061,3640
endif
set object interpolation 2,50
rem bannah slip animation
if animestate#= 6
loop object 2,2633,2708
endif
rem creep animation
if animestate#= 7
loop object 2,2708,2862
endif


set object interpolation 2,50
Rem *****************************************************************************************
Rem ********                             PLAYER ANIMATIONS loops                    *********
Rem *****************************************************************************************


if animation#=0
animestate#= 0
frame#=frame#+1
set object speed 2,100
endif

if frame#=500
frame#=0
animation#=5
endif


if animation#=1
animestate#=1
set object speed 2,100
endif
if keystate(200)=0 and object looping (2)=animestate#= 1
animation#=0
endif

if animation#=5
animestate#= 5
SC_updateObject 2
frame5#=frame5#+1
set cursor 400,400
print \"IM BORED. PLAY ME!\"
set object speed 2,100
endif

if frame5#=300
frame5#=0
animation#=6
endif

if MOUSECLICK()=1 and keystate(200)=1
animclick=1
endif

if animclick=1
animation#=11
endif

if MOUSECLICK()=1
animation#=3
endif

if animation#=3
animestate#= 3
SC_updateObject 2
frame3#=frame3#+1
play sound 6
set object speed 2,100
endif

if frame3#=30
frame3#=0
animation#=0
endif

if keystate(57)=1
play sound 3
animation#=4
endif

if animation#=4
animestate#= 4
SC_updateObject 2
frame4#=frame4#+1
set object speed 2,100
endif

if frame4#=30
frame4#=0
animation#=0
endif

if animation#=6
animestate#= 6
SC_updateObject 2
frame6#=frame6#+1
SET CURSOR 400,500
PRINT \"WOOPS!!!!!!!!!!\"
set object speed 2,100
endif

if frame6#=50
frame6#=0
animation#=7
endif

if animation#=7
animestate#= 7
SC_updateObject 2
frame7#=frame7#+1
SET CURSOR 400,500
PRINT \"WOOPS!!!!!!!!!!\"
set object speed 2,100
endif

if frame7#=100
frame7#=0
animation#=0
endif

if animation#=11
animestate#= 3
SC_updateObject 2
frame8#=frame8#+1
play sound 6
set object speed 2,100
endif

if frame8#=30
frame8#=0
animclick=0
endif

if keystate(200)=1 AND ENERGY#=10 then move object 2,-0.6:move camera 0,0.1:animation#=1
if keystate(200)=1 AND ENERGY#=20 then move object 2,-0.7:move camera 0,0.7:animation#=1
if keystate(200)=1 AND ENERGY#=30 then move object 2,-0.8:move camera 0,0.8:animation#=1
if keystate(200)=1 AND ENERGY#=40 then move object 2,-0.9:move camera 0,0.9:animation#=1
if keystate(200)=1 AND ENERGY#=50 then move object 2,-1:move camera 0,1:animation#=1
if keystate(200)=1 AND ENERGY#=60 then move object 2,-1.1:move camera 0,1.1:animation#=1
if keystate(200)=1 AND ENERGY#=70 then move object 2,-1.2:move camera 0,1.2:animation#=1
if keystate(200)=1 AND ENERGY#=80 then move object 2,-1.5:move camera 0,1.5:animation#=1
if keystate(200)=1 AND ENERGY#=90 then move object 2,-1.8:move camera 0,1.8:animation#=1
if keystate(200)=1 AND ENERGY#=100 then move object 2,-2:move camera 0,2:set object speed 2,90:animation#=1
if keystate(200)=1 AND keystate(19)=1 AND SC_ObjectCollision(2,123)=1  then move object 2,-3:move camera 0,3:set object speed 2,130:SHOES#=SHOES#-1:paste image 1,595,1,1:set cursor 760,30:print \"SHOES ENERGY {\",SHOES#:animestate#= 2

dweeb

Back to top

Profile

feiting shadow

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 19th Apr 2009 05:56 Edited at: 19th Apr 2009 05:58

Link

You know, we have hundreds of people (even me), who code entire systems but completely avoid what you just coded... I think you are learning something valuable here!

You will need to upload the model so we can use your code, and/or the exe with media, but otherwise I like it. I can tell you researched a bit to get the animations to play right, even though your code seems a bit long... for example, the last part could be changed to:

+ Code Snippet

if keystate(200)
animation#=1

temp#=energy#/100 +0.5
 
if energy# <= 80
  move object 2, (-1)* temp#
  move camera 0, temp
 
 else if energy# = 80
   move object 2, -1.5
   move camera 0, 1.5
 else if energy# = 90
   move object 2, -1.8
   move camera 0, 1.8

 else
   move object 2, -2
   move camera 0, 2
 endif
 
endif
`Note: The reason I don't say if keystate(200)=1 is because keystate(200) automatically returns 0 if nothing is pressed, and 1 if it is, and I only need to see if something is pressed.
`so since anything other than 0 works, I only need to say if function() then... a shortcut I learned from Andre LaMothe's books

but don't worry about that if you're not in algebra yet. In fact, much kudos if you are doing this without any algebra, pretty good!

Can't wait to see what you program when you get good!

Signed
------

Back to top

Profile PM

pc nerd

User Banned

Posted: 19th Apr 2009 07:38 Edited at: 19th Apr 2009 08:34

Link

you wrote

lol, im not shure what to say to that

+ Code Snippet

You know, we have hundreds of people (even me), who code entire systems but completely avoid what you just coded

I have well passed math in my 35 years of life but i do see what you have done there, i dont know why i did not use the same algebra
you did but in all reality i was trying to figure out a good way to mix animations and every thing i wrote conflicks with dark basic pro. but in all respect i love the short way you broke down my coad and thanks. from now on i will try to use math in most my coad. i do try to think out side the box when im trying new things and i usually dont mind the time i spend, as far as uploading my media well i figured most people could just replace mine with theres.

thanks

EDIT:

but on the simple fact i would like my guy to move at an excact rate and not on a percent rate. I think this is just fine to use in my event to.

+ Code Snippet

if keystate(200)=1 AND ENERGY#=10 then move object 2,-0.6:move camera 0,0.1:animation#=1
if keystate(200)=1 AND ENERGY#=20 then move object 2,-0.7:move camera 0,0.7:animation#=1
if keystate(200)=1 AND ENERGY#=30 then move object 2,-0.8:move camera 0,0.8:animation#=1
if keystate(200)=1 AND ENERGY#=40 then move object 2,-0.9:move camera 0,0.9:animation#=1
if keystate(200)=1 AND ENERGY#=50 then move object 2,-1:move camera 0,1:animation#=1
if keystate(200)=1 AND ENERGY#=60 then move object 2,-1.1:move camera 0,1.1:animation#=1
if keystate(200)=1 AND ENERGY#=70 then move object 2,-1.2:move camera 0,1.2:animation#=1
if keystate(200)=1 AND ENERGY#=80 then move object 2,-1.5:move camera 0,1.5:animation#=1
if keystate(200)=1 AND ENERGY#=90 then move object 2,-1.8:move camera 0,1.8:animation#=1

dweeb

Back to top

Profile

feiting shadow

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 19th Apr 2009 08:53 Edited at: 19th Apr 2009 08:53

Link

yes, it is, but I noticed a pattern. In fact, your last two numbers are also patterns, broken apart by 0.2 (1.8 and 2.0).

In that case try the select: case : end case statements.
I thought you were younger because of the typo's you have, sorry about that.

Also, I meant we all code everything about the game except the graphics and animations... I have to get to that myself regarding my engine or nobody's gonna think it even works... but um, could you upload the model so we can test it out? Also it seems you use sparky's DLL... I don't (bought darkPhys), but since it's free, I'll download it to try out your demonstration later, if you upload it that is.

Signed
------

Back to top

Profile PM

pc nerd

User Banned

Posted: 19th Apr 2009 09:42

Link

you said,
yes, it is, but I noticed a pattern. In fact, your last two numbers are also patterns, broken apart by 0.2 (1.8 and 2.0).

yea, i see that now, thanks for that

as far as the typo's i am sorry for that.

I also bought dark phisics but could not use it for the fact the timming in it really is hard on my pc. IM REALLY GLADE IT WAS AS I LEARNED ALOT FROM SPARKYS DLLS.

As for my modle well, I will not upload it here as i made the modle for the game im working on. but i will email it to you if you wish.the only thing i ask is not to let anyone have it as any modle will work with this animation set up. just change the animation number to yours. let me know and ill send it to you.

dweeb

Back to top

Profile

pc nerd

User Banned

Posted: 19th Apr 2009 11:15

Link

I would also like to add that you can also add other commands that hold value to the animation loops, like in the code bellow i put in my animation loops,,text to display during each animation, so the animations are timed so is any other condition you place in that loop for that time.

rem idle animation
if animestate#= 0
set object speed 2,100
loop object 2,2862,3061
endif
rem walk animation
if animestate#= 1
set object speed 2,100
loop object 2,3712,3741
endif
rem run animation
if animestate#= 2
set object speed 2,100
loop object 2,3693,3712
endif
rem attack 1 animation
if animestate#= 3
set object speed 2,100
loop object 2,2583,2633
endif
rem advanceforward animation
if animestate#= 4
set object speed 2,100
loop object 2,2497,2519
endif
rem dance animation
if animestate#= 5
SC_updateObject 2
set cursor 400,400
print "IM BORED. PLAY ME!"
set object speed 2,100
loop object 2,3061,3640
endif
rem bannah slip animation
if animestate#= 6
SC_updateObject 2
SET CURSOR 400,500
PRINT "WOOPS!!!!!!!!!!"
set object speed 2,100
loop object 2,2633,2708
endif
rem creep animation
if animestate#= 7
set object speed 2,100
loop object 2,2708,2862
endif
rem attackbigswipe animation
if animestate#= 8
set object speed 2,200
loop object 2,2519,2583
endif
rem rollfoward animation
if animestate#= 9
set object speed 2,100
loop object 2,3640,3693
endif
rem jump over animation
if animestate#= 10
set object speed 2,100
loop object 2,3806,3898
endif
rem fart animation
if animestate#= 11
set object speed 2,100
loop object 2,3893,3954
endif

+ Code Snippet

rem idle animation
if animestate#= 0
set object speed 2,100
loop object 2,2862,3061
endif
rem walk animation
if animestate#= 1
set object speed 2,100
loop object 2,3712,3741
endif
rem run animation
if animestate#= 2
set object speed 2,100
loop object 2,3693,3712
endif
rem attack 1 animation
if animestate#= 3
set object speed 2,100
loop object 2,2583,2633
endif
rem advanceforward animation
if animestate#= 4
set object speed 2,100
loop object 2,2497,2519
endif
rem dance animation
if animestate#= 5
SC_updateObject 2
set cursor 400,400
print "IM BORED. PLAY ME!"
set object speed 2,100
loop object 2,3061,3640
endif
rem bannah slip animation
if animestate#= 6
SC_updateObject 2
SET CURSOR 400,500
PRINT "WOOPS!!!!!!!!!!"
set object speed 2,100
loop object 2,2633,2708
endif
rem creep animation
if animestate#= 7
set object speed 2,100
loop object 2,2708,2862
endif
rem attackbigswipe animation
if animestate#= 8
set object speed 2,200
loop object 2,2519,2583
endif
rem rollfoward animation
if animestate#= 9
set object speed 2,100
loop object 2,3640,3693
endif
rem jump over animation
if animestate#= 10
set object speed 2,100
loop object 2,3806,3898
endif
rem fart animation
if animestate#= 11
set object speed 2,100
loop object 2,3893,3954
endif

dweeb

Back to top

Profile

Sorry your browser is not supported!

Newcomers DBPro Corner / MY way of doing animations,WORKS FAST