Book Vendor

A book vendor, based on code by Deus Ex Machina.

@create Book Vendor
@set Book Vendor = OPAQUE
@set Book Vendor = STICKY
@set Book Vendor = MONITOR
@PAYMENT Book Vendor=You drop the requisite amount into the man's hand.
@set Book Vendor/PAYMENT=no_command
@OPAYMENT Book Vendor=gives some money to the old man.
@set Book Vendor/OPAYMENT=no_command
@APAYMENT Book Vendor=@emit The old man makes a gesture, and [get(Book Vendor/SELECTION_BV)] appears before you.
@set Book Vendor/APAYMENT=no_command
@DESCRIBE Book Vendor=A diminutive old man sits hunched on a cushion before you. He has dark skin, slightly slanted eyes, and long white hair and beard. Finally appearing to notice you, he says:%r"Ask me for VEND HELP if you desire to know of our services."%r
@set Book Vendor/DESCRIBE=no_command visual
@ODESCRIBE Book Vendor=stares at the old man.
@set Book Vendor/ODESCRIBE=no_command
&HELP_BV Book Vendor=$vend*help:@pemit %N=The old man says:%R"For a list of my wares, ask me for the VEND MENU.%rOnce you have chosen the object of your desire ask me to SELECT (#)%rI will then request that you give me the correct amount for it.%rRemember to @CHOWN your new book to yourself, or doubtles some rogue will spirit it away in the night."
&MENU_BV Book Vendor=$vend menu:@pemit %N=The old man presents you with a list of his wares. %r # %tITEM%t%t%t%tCOST%r***************************************%r<1>%tBook Of Blood (vol 1) %t(13)%r<2>%tStar Book%t%t%t(13)%R<3>%tBook of Lilith%t%t(13)%r<4>%tNecronomicon%t%t(13)%r<5>%tCyberMagick%t%t%t(13)%rSELECT (#) to choose the item you wish to purchase.
&SELECT_BV Book Vendor=$select *:@select %0=1,{&SELECTION_BV Book Vendor= Book of Blood (volume 1);@cost Book Vendor=13;say Please give me 13 pennies to purchase this item.;@clone #394},2,{&SELECTION_BV Book Vendor = Star Book;@cost Book Vendor=13;say Please give me 13 pennies to purchase this item.;@clone #436 },3,{&SELECTION_BV Book Vendor = Book of Lilith;@cost Book Vendor=13;say Please give me 13 pennies to purchase this item.;@clone #751 },4,{&SELECTION_BV Book Vendor = Necronomicon;@cost Book Vendor=13;say Please give me 13 pennies to purchase this item.;@clone #759 },5,{&SELECTION_BV Book Vendor = CyberMagick;@cost Book Vendor=13;say Please give me 13 pennies to purchase this item.;@clone #767 },say Please select from choices 1-5. We have no other items available for sale at this moment.
@set Book Vendor/COST=no_command
@set Book Vendor=!no_command

Return to MUSH Code Page