Voting
Category
real language
Bookmarking
Language Far macrolanguage
| Date: | 04/17/08 |
| Author: | Kildor |
| URL: | http://kildor.mirandaim.ru/ |
| Comments: | 0 |
| Info: | http://farmanager.com |
| Score: |  (2.67 in 3 votes) |
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)
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments