//スクリプトマクロ　基本マクロ

%init
//システム標準状態に初期化

//各種動作を停止
	bg stop
	cg stop
	fg stop
	eg stop

	bg delay
	cg delay
	fg delay
	eg delay

	blur
	mosaic
	pl stop
	pl after
	pl raster
	particle stop
	effstop

	wait

//イメージの解放
	bg
	cg
	fg
	eg
	wait
//イメージの表示位置や表示状態の初期化
	bg shift 0 0
	bg def

	cg shift 0 0
	cg def

	fg shift 0 0
	fg def

	eg shift 0 0
	eg def

//プレーン関係の初期化
	pl
	wait	//プレーンそのものの初期化の後なので念のためwait
	pl shift 0 0

//drawとwipeの基本フレーム数設定
	drawdef 15
	wipedef 40

	wait

//---------------------------------------------------------------------------

%move_DU01
//うなずき
	cg %1[0] spline 15,@,@+20 10,@,@

//----------------------------------------------------------------------

%quake_01
	pl %1[1] quake %2[4],0,10 %2[4],0,-10 %2[4],10,0 %2[4],-10,0 %2[4],0,5 %2[4],0,-5 %2[4],5,0 %2[4],-5,0 %2[4],0,0
	wait
	pl %1[1] pos @ @

%quake_02
	pl %1[1] quake %2[4],0,20 %2[4],0,-20 %2[4],20,0 %2[4],-20,0 %2[4],0,10 %2[4],0,-10 %2[4],10,0 %2[4],-10,0 %2[4],0,5 %2[4],0,-5 %2[4],5,0 %2[4],-5,0 %2[4],0,0
	wait
	pl %1[1] pos @ @