@create Example Vendor=10
@lock Example Vendor=*R3-F2|*EconomyWiz
@USE Example Vendor=%r%b%bExample Vendor 1.0%r%b%b[repeat(-,18)]%r%b%bYou buy things from it.%r%b%bIf you're lucky, it won't take your credits without spitting out%r%b%bthe 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%rTo 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