//Generated by BehavEd

rem ( "diagonal elevator moves up to the top" );

affect ( "diag1", /*@AFFECT_TYPE*/ FLUSH )
{
	dowait ( "up" );

	task ( "up" )
	{
		use ( "diag1switch" );
		use ( "diagbottomstart" );
		wait ( 500.000 );
		move ( $tag( "diagup", ORIGIN)$, < 0.000 0.000 0.000 >, 7000.000 );
		use ( "diagloop" );
		wait ( 6500.000 );
		use ( "diagtopstop" );
		wait ( 500.000 );
		use ( "diagloop" );
		use ( "diag1caulkact" );
	}

}