#
# Pretty.Sample
#
# This file is an example of prettified source code taken directly
# from the example vendor on sw2.  (I added the @USE later to show how
# the leading " works.  Prettify doesn't bother with that at this
# point.)
#
# A TF log file (with /set wraplog=off) was piped through prettify
# as in 
#     prettify <tf.sample >pretty.sample
#
# I quote these back in with
#    /quote !"unprettify <pretty.sample"
#
-
@create Example Vendor=10
-
@lock Example Vendor=*R3-F2|*EconomyWiz
-
@USE Example Vendor=
"
"  Example Vendor 1.0
"  ------------------
"  You buy things from it.
"  If you're lucky, it won't take your credits without spitting out
"  the goods.
-
&EPAY_BLAH Example Vendor=
  You buy a blah from the foobar vendor thing.
-
&EPAY Example Vendor=
  You buy something from the testvendor.
-
&AEPAY_BLAH Example Vendor=
  @emit Yippee! %N bought a Blah (TM)!
-
&OEPAY_BLAH Example Vendor=
  just bought a blah. Lucky fellow.
-
&OEPAY Example Vendor=
  Testvendor's default eopay.
-
&AEPAY Example Vendor=
  @emit Booga booga!
-
&ECOST_BLAH Example Vendor=
  1
-
&ECON_CREDITS Example Vendor=
  8
-
@set Example Vendor/ECON_CREDITS = no_inherit
-
&ECOST Example Vendor=
  0
-
@Desc Example Vendor=%rThis is an example vendor.%r[u(menu)]
-
&NOTES1 Example Vendor=
  This is a very, very simple vendor.
-
&MENU Example Vendor=
  %r
  %b%b
    [
      ljust(%chITEM%cn,10)
    ]
    [
      rjust(%chCOST%cn,5)
    ]
  %r
  %b%b
    [
      iter(lattr(me/ecost_*),%r
      %b%b
        [
          setq(0,capstr(lcstr(edit(##,ECOST_,))))
        ]
        [
          ljust(%q0,10)
        ]
        [
          rjust(v(ecost_%q0),5)
        ]
      )
    ]
  %r
  %r
  To purchase an item from this vendor, try: %chebuy vendor=<item>%cn, as
  \ in %chebuy vendor=blah%cn
-
&EPAY_FOO Example Vendor=
  You buy a foo from the vendor.
-
&ECOST_FOO Example Vendor=
  5
-
&OEPAY_FOO Example Vendor=
  just bought a foo. How silly.
-
&AEPAY_FOO Example Vendor=
  @emit Boo! %N bought a foo!
-
&DO_PAYME Example Vendor=$payowner:
  @switch %#=owner(me),
    {
      epay %N=
        [
          v(econ_credits)
        ]
    }
  ,
    {
      @emit A shrill alarm sounds from the vending machine, and %N skulks
      \ away.
    }
-
@set Example Vendor=VISUAL
-
@set Example Vendor=PARENT_OK
-