newmenu trigger
menuitem [invisible]				[BTmm = -1; showmenu trigger2]
menuitem [a carrot]					[BTmm = 23; showmenu trigger2]
menuitem [switch #1]				[BTmm = 24; showmenu trigger2]
menuitem [switch #2]				[BTmm = 25; showmenu trigger2]
menuitem [door #1]					[BTmm = 26; showmenu trigger2]
menuitem [door #2]					[BTmm = 27; showmenu trigger2]
menuitem [door #3]					[BTmm = 28; showmenu trigger2]

newmenu trigger2
menuitem [animation loop]						[BTtt = 0; showmenu trigger3]
menuitem [trigger once (popback)]				[BTtt = 1; showmenu trigger3]
menuitem [trigger once (popback & rumble)]		[BTtt = 2; showmenu trigger3]
menuitem [trigger once]							[BTtt = 3; showmenu trigger3]
menuitem [trigger once (rumble)]				[BTtt = 4; showmenu trigger3]
menuitem [trigger multiple (popback)]			[BTtt = 5; showmenu trigger3]
menuitem [trigger multiple (popback & rumble)]	[BTtt = 6; showmenu trigger3]
menuitem [trigger multiple]						[BTtt = 7; showmenu trigger3]
menuitem [trigger multiple (rumble)]			[BTtt = 8; showmenu trigger3]
menuitem [door (open once)]						[BTtt = 9; showmenu trigger3]
menuitem [door (auto close)]					[BTtt = 10; showmenu trigger3]
menuitem [door (locked)]						[BTtt = 11; showmenu trigger3]
menuitem [vanishing trigger]					[BTtt = 12; showmenu trigger3]
menuitem [vanishing trigger (rumble)]			[BTtt = 13; showmenu trigger3]
menuitem [End Of Level Trigger]					[BTtt = 29; showmenu trigger3]

build_trigger = [newent mapmodel $BTmm $BTtt $BTti]

newmenu trigger3
loop i 9 [
	tjt = (concat Trigger (concatword # $i))
	tjc = (concat BTti "=" $i ";" "build_trigger")
	menuitem $tjt $tjc 
]