#*****************************************************************************
*
* CLIMB UP TURNBUCKLES

#CLIMB_SPD	equ	5
 SUBR	dnk_climb_up_anim

	.word	ANI_SETMODE,MODE_UNINT | MODE_NOFACE | MODE_NOCONFINE | MODE_NOGRAVITY
	.word	ANI_ZEROVELS
	WL	ANI_SET_YVEL,4000h	;27000	




	.word	ANI_OFFSET,-5,-7,-15			;x,y,z

;Changing the -5 to a -7 causes a dramatic change in Y




	WL	#CLIMB_SPD,D2CT2A02
	.word	ANI_OFFSET,0,19h,0			;x,y,z
	WL	#CLIMB_SPD,D2CT2A07
	.word	ANI_OFFSET,0,9,0			;x,y,z
	WL	#CLIMB_SPD,D2CT2A09
	.word	ANI_OFFSET,0,>a,0			;x,y,z
	WL	#CLIMB_SPD,D2CT2A12
	.word	ANI_ZEROVELS

	.word	ANI_OFFSET,0,6,0			;x,y,z
	WL	#CLIMB_SPD,D2CT2B02
	.word	ANI_OFFSET,10,18h,0			;x,y,z
	WL	#CLIMB_SPD,D2CT2B04
	.word	ANI_OFFSET,-2,0dh,0			;x,y,z
	WL	#CLIMB_SPD,D2CT2B06

	.word	ANI_SETPLYRMODE,MODE_ONTURNBKL
	.word	ANI_SETMODE,MODE_UNINT | MODE_NOFACE | MODE_NOCONFINE | MODE_NOGRAVITY

	.word	ANI_OFFSET,2,0,0			;x,y,z
#repeat
	WL	#CLIMB_SPD,D2CT2C01
	WL	#CLIMB_SPD,D2CT2C03
	WL	#CLIMB_SPD,D2CT2C05
	WL	#CLIMB_SPD,D2CT2C07
	WL	#CLIMB_SPD,D2CT2C09
	WL	#CLIMB_SPD,D2CT2C11
	WL	#CLIMB_SPD,D2CT2C13
	WL	#CLIMB_SPD,D2CT2C15
	WL	#CLIMB_SPD,D2CT2C17
	WL	#CLIMB_SPD,D2CT2C19
	WL	#CLIMB_SPD,D2CT2C21
	WL	ANI_GOTO,#repeat