Language Pilot
Date: | 04/20/05 |
Author: | Akira Kida |
URL: | n/a |
Comments: | 1 |
Info: | n/a |
Score: | (2.89 in 9 votes) |
R: PILOT version of 99 Bottles of Beer : hacked by Akira KIDA, <SDI00379@niftyserve.or.jp> C:BOTTLES=99 U:*BEERS *LOOP T:$T of beer on the wall, $T. T:Take one down, pass it around. C:BOTTLES=BOTTLES-1 U:*BEERS T:$T on the wall. T: J(BOTTLES>0):*LOOP E: *BEERS C(BOTTLES=0):$T=No more bottles C(BOTTLES=1):$T=1 bottle C(BOTTLES>1):$T=#BOTTLES bottles E:
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
William F. Davis said on 08/08/07 05:24:24
The first TYPE statement should read...
T:$T of beer on the wall, $T of beer.
The last "of beer" part was missing
from Akira Kida's example.
Also, if it runs too fast, place an
ACCEPT statement before the JUMP statement
so you can press ENTER between verses.
For example:
T:
A:
J(BOTTLES>0):*LOOP
E:
Personally, I've always thought PILOT could
be much more than it has been. It's a little
language that just didn't get the fan fair that
it should have. It's an ideal language for text
adventures, being it's easy to structure the
rooms, and entry matching.