Буквально сегодня утром, наткнулся я на пост посвящённый 99 бутылкам.

И решил я проверить, а смогу ли я реализовать такую вот "программку" на фаровских макросах.

Реализовал.

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: Постоянный адрес | Комментарии