glife/locations/Menu.Add

# Menu.Add
if $ARGS[0] = '' or $ARGS[1] = '':exit
!----------
if $ARGS[1] = '---' or lcase($ARGS[1]) = 'separator':
	dynamic "$otg_Menyu_<<$ARGS[0]>>[]='-:-'"
	exit
end
!----------
ARGS[10] = arrsize('ARGS')
if ARGS[10] < 3: $ARGS[2] = ''
if ARGS[10] < 4: $ARGS[3] = ''
!----------
$ARGS[0] = 'otg_Menyu_<<$ARGS[0]>>'
$ARGS[1] = replace($ARGS[1],'''','''''')
if $ARGS[2] <> '':$ARGS[2] = ':'+replace($ARGS[2],'''','''''')
if $ARGS[3] <> '':$ARGS[3] = replace($ARGS[3],'''','''''')
!----------
dynamic "
	$<<$ARGS[0]>>[]='<<$ARGS[1]>>:menu.Treatment<<$ARGS[2]>>'
	$<<$ARGS[0]>>_Parameters[str(arrsize('<<$ARGS[0]>>'))+'_W']='<<$ARGS[1]>>'
	$<<$ARGS[0]>>_Parameters[str(arrsize('<<$ARGS[0]>>'))+'_F']='<<$ARGS[3]>>'
"
!----------
$ARGS[3] = ''
if ARGS[10] > 4:
	ARGS[11] = 4
	:otg_menyu_metka_1
	if ARGS[11] < ARGS[10]:
		if $ARGS[ARGS[11]] <> '':
			$ARGS[3] += ','''+replace($ARGS[ARGS[11]],'''','''''')+''''
		else
			if ARGS[ARGS[11]] <> 0:
				$ARGS[3] += ','+str(ARGS[ARGS[11]])
			else
				$ARGS[3] += ','''''
			end
		end
		ARGS[11] += 1
		jump 'otg_menyu_metka_1'
	end
end
!----------
dynamic "
$<<$ARGS[0]>>_Parameters[str(arrsize('<<$ARGS[0]>>'))+'_P'] = '<<replace($ARGS[3],'''','''''')>>'
"
--- Menu.Add ---------------------------------