#CameraAF_for_T-01A.mscr2010/03/28##################### 
#T-01AのカメラのAFボタンとシャッターを一緒にしたもの．
#ランドスケープ（右回転）とポートレート対応．
#カメラが起動していなかったら回転するようにしました．
#スクリプトショートカットを作って，それをボタンに当ててください．
#
#By『喫茶店の部屋』　管理人　喫茶店
#	http://umedaizu.blog.shinobi.jp/
#
#SwitcCase文でテキトーに作ったため汚いです．
########################################

If(Screen("portrait"))
	x=0
	EndIf
If(Screen("landscape"))
	x=1
	EndIf	
#######もし「カメラ」が起動していたらAF+シャッター．
If(WndActive("カメラ"))

	Switch(x)
	Case(0)
		MouseDown(100,750)
		Sleep(1200)
		SendSpecial(195)
	Case(1)
		MouseDown(750,100)
		Sleep(1200)
		SendSpecial(195)
		EndSwitch
########「カメラ」が起動していなかったら回転．
Else
	
	Switch(x)
	Case(0)
		Rotate(270)
	Case(1)
		Rotate(0)
	EndSwitch
EndIf