И решил я проверить, а смогу ли я реализовать такую вот "программку" на фаровских макросах.
Реализовал.
macro:post ShiftF4 $text "99 bottles of beer in the wall.txt" CtrlEnter
$if (Dialog)
CtrlEnter CtrlA CtrlD
$end
CtrlHome
$MMode 1
%b = 99;
%s = "s";
$while(%b>0)
$if (%b==1)
%s="";
$end
%string = %b+" bottle"+%s+" of beer on the wall, "+%b+" bottle"+%s+ " of beer";
$text %string
Enter
$text "Take one and pass it around"
Enter
%b=%b-1;
$if (%b!=0)
%string= %b+" bottle"+%s+" of beer on the wall";
$text %string
Enter Enter
$end
sleep(10)
$end
msgbox("No more bottles of beer on the wall.",
"No more bottles of beer...\nGo to the store and buy some more...",
1)
Просто, как не знаю что. Хотя и с парочкой подводных камней, почему-то $text %b+" bottle" работать не захотело.
ЗЫЖ Запускать легко, просто из коммандной строки, при установленном плагине FarCommands. В 1.70 работать не должен, как минимум команда sleep появилась слегка позже.
about:Kildor: Постоянный адрес | Комментарии