glife/locations/Menu.Call

# Menu.Call
if $ARGS[0] = '': exit
!----------
ARGS[10] = arrsize('otg_Menyu_<<$ARGS[0]>>')
if ARGS[10] = 0: exit
!----------
$otg_Menu_Current = 'otg_Menyu_<<$ARGS[0]>>'
killvar 'otg_Menyu_Vyzyvaemoe'
killvar 'otg_Menu_Compliance'
!----------
ARGS[11] = 0
:otg_menyu_metka_2
if ARGS[11] < ARGS[10]:
	dynamic "
		$ARGS[0] = $<<$otg_Menu_Current>>_Parameters['<<ARGS[11]+1>>_In']
		if $ARGS[0] = '':
			$otg_Menyu_Vyzyvaemoe[] = $<<$otg_Menu_Current>>[<<ARGS[11]>>]
			otg_Menu_Compliance[] = <<ARGS[11]+1>>
		else
			if dyneval($ARGS[0])<>0:
				$otg_Menyu_Vyzyvaemoe[] = $<<$otg_Menu_Current>>[<<ARGS[11]>>]
				otg_Menu_Compliance[] = <<ARGS[11]+1>>
			end
		end
	"
	ARGS[11] += 1
	!----------
	jump 'otg_menyu_metka_2'
end
!----------
otg_Menu_Time = 0
dynamic "
	<<$otg_Menu_Current>>_Selected = 0
	<<$otg_Menu_Current>>_VybrannyyPunkt = 0
	<<$otg_Menu_Current>>_Time = MSECSCOUNT
"
!----------
menu 'otg_Menyu_Vyzyvaemoe'
!----------
dynamic "
	if <<$otg_Menu_Current>>_Selected = 0:
		<<$otg_Menu_Current>>_Time = MSECSCOUNT-<<$otg_Menu_Current>>_Time
		$ARGS[0] = $<<$otg_Menu_Current>>_ModuliSobyty['failure of the choice']
		if $ARGS[0]<>'': dynamic $ARGS[0]
	else
		$ARGS[0] = $<<$otg_Menu_Current>>_ModuliSobyty['after selection processing']
		if $ARGS[0]<>'': dynamic $ARGS[0],$<<$otg_Menu_Current>>_Parameters[str(<<$otg_Menu_Current>>_VybrannyyPunkt)+'_W']"+dyneval("$Result = $<<$otg_Menu_Current>>_Parameters[str(<<$otg_Menu_Current>>_VybrannyyPunkt)+'_P']")+"
	end
"
!----------
killvar 'otg_Menyu_Tekuschee'
killvar 'otg_Menyu_Vyzyvaemoe'
killvar 'otg_Menu_Compliance'
!----------
Result = dyneval("Result = otg_Menyu_<<$ARGS[0]>>_Selected")
--- Menu.Call ---------------------------------