//Main

//変数指定
//編成オブジェクト
VarTrain ObjTrain1
VarTrain ObjTrain2

VarTrain ObjActiveTrain

//イベントID
Var VarTID1
Var VarTID2

//Activeな編成
Var VarTactTrain
Var VarDrawObject
Var TimerID

//キー指定
//編成選択
SetEventKey this Tactive1 VarTID1 Q
SetEventKey this Tactive2 VarTID2 W

//変数初期設定
get ObjTrain1 "A"
get ObjTrain2 "B"

set VarTactTrain 1
set VarDrawObject 0


//編成選択
BeginFunc Tactive1
	set VarTactTrain 1
	set VarDrawObject 1
	call this MtdSetTrain
EndFunc

BeginFunc Tactive2
	set VarTactTrain 2
	set VarDrawObject 1
	call this MtdSetTrain
EndFunc

//編成選択
BeginFunc MtdSetTrain
	ifeq VarTactTrain 1
		get ObjActiveTrain ObjTrain1
		SetActiveTrain ObjTrain1
		ifeq VarDrawObject 1
			DrawVar ObjTrain1
		endif
	endif
	ifeq VarTactTrain 2
		get ObjActiveTrain ObjTrain2
		SetActiveTrain ObjTrain2
		ifeq VarDrawObject 1
			DrawVar ObjTrain2
		endif
	endif
EndFunc

BeginFunc MtdChekActiveTrain
	set VarDrawObject 0
	SetEventAfter this MtdSetTrain TimerID 10
EndFunc