RO-fan

Как в макросе заставить работать "pause @rand (4, 8)".
И можно-ли чтобы @rand выдавала не только целые значения, но и значения с десятичной частью (к примеру 5.13, 6.28, 4.33, etc).

А ты значала разберись, работает ли pause с дробными значениями!

Кора далеко, проверить не могу работатет pause с дробными или нет.
Если пауза не работает с дробными, то второй вопрос снимается, но остается открытым первый...

Ну... как насчет взять скажем числа 400...800 и поделить на 100?

Минуты две вникал и не понял как это поможет...
Дело в том что pause не работает с другими командами\переменными
Допустим возьмем следующее:
$i = 10
pause $i
log i$

через секунду получаем запись в консоле "10"
Берем значение 40, 100, тоже самое запись через секунду в консоль вылетает, т.е. паузы на 10, 40, 100 секунд нету.

Может конечно я туплю, но максимум до чего я додумался это вызывать другой макрос...
call rand_pause_4_8 Но как вернутся обратно?

@eval вообще видел когда-нибудь?

@eval (<аргумент>)
оценивает данный <параметр>

@eval (<argument>)
evaluates the given <argument>

что там, что там - непонятно что делает...
смотрю примеры макросов,
примерно такое должно работать?
pause @eval (@rand (4,8))

зачем тогда @eval, почему @rand напрямую не может сообщить время паузы?

...а вообще что-то и у меня не выходит...

"eval" все пучком вычисляет, но... пауза не меняется. О_о

Плакалъ (изврат, но работает):

Код: Выделить всё

macro izvrat {
	$i = 1
	$maxi = @rand (4, 8)
	while ($i <= $maxi) as looop
		log shit!
		pause 1
		$i++
	end looop
}

А вот это не работает. Почему?...

Код: Выделить всё

macro sss {
	$i = 15
	log $i now pause...
	pause $i
	#^^^ don't worked
	pause @eval( $i )
	#^^^ don't worked too
	log ...end pause $i
}

Нашел решение.
Открываем plugins\macro\Script.pm

находим

##########################################
# pause command
} elsif ($line =~ /^pause/) {
my ($tmp) = $line =~ /^pause\s+(\d+)/;
if (defined $tmp) {$self->{timeout} = $tmp}
$self->{line}++;

меняем на

##########################################
# pause command
} elsif ($line =~ /^pause\s+/) {
my ($tmp) = $line =~ /^pause\s+(.*)/;
my $result = parseCmd($tmp);
if (defined $result) {$self->{timeout} = $result}
$self->{line}++;

всё: pause @rand; pause $i - работает
времени до конца оттестить не было, так что могут выскочить баги...

Еррр, чувак, мне как челу не понимающему перловские разборки, поясни плз смысл изменения!

(Или - не сам делал?)

ЗЗЫ: На будущее, плззззз, сначал тесть, патом выкладуй!

Делал сам на основе других команд,
в перле тоже непонимаю ничего, но плагиат с других комманд рулит.
Взял команду лог и попытался разобратся почему она понимает переменные, а pause нет.

тут все пляшется от parseCmd

не уверен насчет того что выделено жирным, что это грамотно записано

} elsif ($line =~ /^pause\s+/) {
my ($tmp) = $line =~ /^pause\s+(.*)/;

но при тесте ранд и подстановке переменно все работает...
приеду домой буду дальше тестить...

Если запашет успешно, пиши телегу Анарчо (автору макро-плагина), пусть правит!

Хотелось бы чтоб знающие перл описали правильно я сделал то что выделил или нет?

demm
ЫЫ. Как знающий слегка перл. Скажу. ПРАВИЛЬНО. И даже стоит телегу автору написать чтоб доделал.