"I'm loading Auction II version Beta 0.1.2 now! @action abort;atm;bid;chain;gamble;give;irs;owner;sell;status;unchain;shorthelp;longhelp;history;petprefs=here=tmp/exit1 @set $tmp/exit1=D @set bid=_/de:{eval:{list:desc/{&arg},this}} @fail bid={null:{lexec:_/fail.setup,this}} @set bid=_/func.fail#:13 @set bid=_/func.fail#/1:{if:{eq:{links:this},#-1}, @set bid=_/func.fail#/10: {tell: Only players may use this action.,me} @set bid=_/func.fail#/11: } @set bid=_/func.fail#/12: } @set bid=_/func.fail#/13:} @set bid=_/func.fail#/2: {tell: THIS ACTION IS NOT LINKED TO A NULL DESTINATION. THAT MUST BE FIXED BEFORE ANYTHING USEFUL WILL HAPPEN.,me} @set bid=_/func.fail#/3: @set bid=_/func.fail#/3:, @set bid=_/func.fail#/4: {if:{istype:me,player}, @set bid=_/func.fail#/5: {if:{eq:{&cmd},shorthelp},{lexec:func/shorthelp,this},{tell: This action is locked against you. Did you type 'shorthelp newbie' to learn the commands and discover the property you must set?,me}} @set bid=_/func.fail#/6: , @set bid=_/func.fail#/7: {if:{ne:{prop:_fail/{&cmd}#,this},}, @set bid=_/func.fail#/8: {lexec:_fail/{&cmd},this} @set bid=_/func.fail#/9: , @lock bid=_realperson?:yes&prefs/auctionclue:yes @set bid=_/sc:{null:{if:{ne:{midstr:{&arg},1},#},{lexec:func/{&cmd},this},{lexec:pound.func,this}}} @set bid=_auction/aa: /* AUCTION SPECIFIC THINGS GO HERE */ @set bid=_auction/auctioneer:Dina @set bid=_auction/running?#:5 @set bid=_auction/running?#/1:{if:{and: @set bid=_auction/running?#/2: {ne:{prop:_auction/slave,this},} @set bid=_auction/running?#/3: , @set bid=_auction/running?#/4: {lt:{subt:{secs},{prop:_auction/bid_time,this}},3600}} @set bid=_auction/running?#/5:,yes,no} @set bid=_authlist#:1 @set bid=_authsuper#:1 "Loading failure handling MPI. @set bid=_fail/aa: /* PUPPET HANDLING HAPPENS HERE */ @set bid=_fail/atm#:1 @set bid=_fail/atm#/1:{tell: Puppets can't actually use the ATM for you\, {name:{owner:me}}. It's feasable to make it do that\, or to just check your account information for you\, but that is more work than Dina felt like doing. Maybe it'll happen in some future release of the Auction II code\, but not as of Version {prop:_misc/ver,this}.,me} @set bid=_fail/gamble#:1 @set bid=_fail/gamble#/1:{tell: {prop:_misc/symbol,this} Puppets can't gamble\, {name:{owner:me}}. Nice try\, though. {prop:_misc/symbol,this},me} @set bid=_fail/irs#:9 @set bid=_fail/irs#/1:{if:{lcommon:{list:_authlist,this},{prop:_names/{name:{owner:me}},this}}, @set bid=_fail/irs#/2: {if:{&arg}, @set bid=_fail/irs#/3: {lexec:func/irs.single,this} @set bid=_fail/irs#/4: , @set bid=_fail/irs#/5: {lexec:func/irs.room,this} @set bid=_fail/irs#/6: } @set bid=_fail/irs#/7:, @set bid=_fail/irs#/8: {lexec:mesg/permission.denied,this} @set bid=_fail/irs#/9:} @set bid=_fail/longhelp#:9 @set bid=_fail/longhelp#/1:{if:{eq:{&arg},}, @set bid=_fail/longhelp#/2: {tell:{eval:{list:func/longhelp.text,this}},me} @set bid=_fail/longhelp#/3:, @set bid=_fail/longhelp#/4: {if:{eq:{prop:help/{&arg}.long#/,this},}, @set bid=_fail/longhelp#/5: {tell: Sorry\, I can't find a longhelp entry on '{&arg}'.,me} @set bid=_fail/longhelp#/6: , @set bid=_fail/longhelp#/7: {tell:{eval:{list:help/{&arg}.long,this}},me} @set bid=_fail/longhelp#/8: } @set bid=_fail/longhelp#/9:} @set bid=_fail/owner#:1 @set bid=_fail/owner#/1:{tell: -- Puppet support for owner isn't in yet. Bother {name:{owner:this}}. --,me} @set bid=_fail/petprefs#:1 @set bid=_fail/petprefs#/1:{tell: Puppets SHOULD be able to use this command. Remind Dina.,me} @set bid=_fail/shorthelp#:9 @set bid=_fail/shorthelp#/1:{if:{eq:{&arg},}, @set bid=_fail/shorthelp#/2: {tell:{eval:{list:desc/shorthelp,this}},me} @set bid=_fail/shorthelp#/3:, @set bid=_fail/shorthelp#/4: {if:{eq:{prop:help/{&arg}.short#/,this},}, @set bid=_fail/shorthelp#/5: {tell: Sorry\, I can't find a shorthelp entry on '{&arg}'.,me} @set bid=_fail/shorthelp#/6: , @set bid=_fail/shorthelp#/7: {tell:{eval:{list:help/{&arg}.short,this}},me} @set bid=_fail/shorthelp#/8: } @set bid=_fail/shorthelp#/9:} @set bid=_fail/status#:1 @set bid=_fail/status#/1:{tell: -- Puppet support for status isn't in yet. --,me} "Loading _misc directory. @set bid=_misc/aa: /* THIS IS SELF-EXPLANATORY, RIGHT? */ @set bid=_misc/arrive#:9 @set bid=_misc/arrive#/1:{null: /* THIS IS THE SILVER TAX CODE */ } @set bid=_misc/arrive#/2:{if:{ne:{prop:_player/{ref:me}/silvertax,this},{ftime:{prop:_money/silvertime,t @set bid=_misc/arrive#/3:his}}}, @set bid=_misc/arrive#/4: {lexec:_money/silvertaxfunc,this} @set bid=_misc/arrive#/5:} @set bid=_misc/arrive#/6: /* THIS RUNS THE AUCTIONEER MESSAGE CODE */ @set bid=_misc/arrive#/7:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=_misc/arrive#/8: {delay:1,{lit:{lexec:func/sell-mesg/func,this}}} @set bid=_misc/arrive#/9:} @set bid=_misc/auctioneer_percentage:5 @set bid=_misc/history?:yes @set bid=_misc/symbol: @set bid=_misc/ver:1.0.1 @set bid=_misc/verdate:24 August 2001 "Loading _money/ directory. @set bid=_money/aa: /* MONEY THINGS ARE REMEMBERED HERE */ @set bid=_money/ATM_delay:561600 @set bid=_money/ATM_limit:2000 @set bid=_money/ATM_output:100 @set bid=_money/currency_name:quatloos @set bid=_money/gamble.limit:100 @set bid=_money/gamble.silent?:yes @set bid=_money/gamble.wealth:750 @set bid=_money/goldtax:500 @set bid=_money/silvertax:5 @set bid=_money/silvertaxfunc#:13 @set bid=_money/silvertaxfunc#/1:{with:silver,_player/{ref:me}/silver, @set bid=_money/silvertaxfunc#/10: {store:{subt:{prop:{&silver},this},{div:{mult:{prop:{&silver},this},{prop:_money/silvertax,this}},100}},{&silver},this} @set bid=_money/silvertaxfunc#/11: } @set bid=_money/silvertaxfunc#/12: } @set bid=_money/silvertaxfunc#/13:}} @set bid=_money/silvertaxfunc#/2:{with:now,{ftime:{prop:_money/silvertime,this}}, @set bid=_money/silvertaxfunc#/3: {if:{eq:{prop:{&silver}tax,this},}, @set bid=_money/silvertaxfunc#/4: {store:{&now},{&silver}tax,this} @set bid=_money/silvertaxfunc#/5: , @set bid=_money/silvertaxfunc#/6: {while: @set bid=_money/silvertaxfunc#/7: {ne:{prop:{&silver}tax,this},{&now}} @set bid=_money/silvertaxfunc#/8: , @set bid=_money/silvertaxfunc#/9: {store:{mod:{add:{prop:{&silver}tax,this},1},53},{&silver}tax,this} @set bid=_money/silvertime:%W @set bid=_money/wealth#:4 @set bid=_money/wealth#/1:{add: @set bid=_money/wealth#/2: {prop:_player/{ref:me}/silver,this}, @set bid=_money/wealth#/3: {prop:_player/{ref:me}/gold,this} @set bid=_money/wealth#/4:} @set bid=_money/you_have#:1 @set bid=_money/you_have#/1:{if:{eq:{prop:_player/{ref:me}/silver,this},},0,{prop:_player/{ref:me}/silver,this}} silver{if:{ne:{prop:_player/{ref:me}/gold,this},}, and {prop:_player/{ref:me}/gold,this} gold} {prop:_money/currency_name,this} @set bid=_names/aa: /* PLAYER DBREFS ARE STORED HERE BY NAME FOR LOOKUP */ @set bid=_player/aa: /* PLAYER INFORMATION IS STORED HERE BY DBREF, */ @set bid=_player/ab: /* AND THEREFORE THE COMMENT IS AT THE BOTTOM... */ @set bid=_realperson?:{if:{istype:me,player},yes,no} "Loading descriptions. @set bid=desc/#:1 @set bid=desc/#/1: The Auction II action description is not working; specifically\, the {lit:{&arg}} variable is not processed correctly. Please tell {name:{owner:this}} immediately. @set bid=desc/aa: /* DESCRIPTION TEXT GOES HERE */ @set bid=desc/abort#:1 @set bid=desc/abort#/1: This command is used to abort an auction in progress. It may only be used by the auctioneer or the slave currenly being sold. @set bid=desc/atm#:1 @set bid=desc/atm#/1:{if:{istype:me,player}, The ATM will dispense some money to you periodically. Currently\, {name:me}\, you have {lexec:_money/you_have,this}. Your last withdrawal was at {ftime:%k:%M on %B %e,,{prop:_player/{ref:me}/ATM_last,this}}; you may get more money {lexec:func/atm.timing,this}.{if:{lmember:{list:_authlist,this},{ref:me}}, {lexec:desc/atm.histline,this}},{null:{lexec:_fail/atm,this}}} @set bid=desc/atm.histline#:8 @set bid=desc/atm.histline#/1:{nl} There is a small digital display window reading ' @set bid=desc/atm.histline#/2: {prop:func/atm.hist/Sunday#/,this}- @set bid=desc/atm.histline#/3: {prop:func/atm.hist/Monday#/,this}- @set bid=desc/atm.histline#/4: {prop:func/atm.hist/Tuesday#/,this}- @set bid=desc/atm.histline#/5: {prop:func/atm.hist/Wednesday#/,this}- @set bid=desc/atm.histline#/6: {prop:func/atm.hist/Thursday#/,this}- @set bid=desc/atm.histline#/7: {prop:func/atm.hist/Friday#/,this}- @set bid=desc/atm.histline#/8: {prop:func/atm.hist/Saturday#/,this}'. @set bid=desc/bid#:1 @set bid=desc/bid#/1:The 'bid' action has no appearance yet. @set bid=desc/chain#:1 @set bid=desc/chain#/1: {rand:desc/unchain.{if:{eq:{prop:_auction/chain,this},},no-}chain,this} @set bid=desc/gamble#:3 @set bid=desc/gamble#/1: To use the 'gamble' action, type 'gamble' with the number of {prop:_money/currency_name,this} you wish to bet. You have a chance of winning an equal amount of money or of losing what you gambled. @set bid=desc/gamble#/2: There are limits, though; you may not bet more than {prop:_money/gamble.limit,this} {prop:_money/currency_name,this} at once, nor may you bet if you have more than {prop:_money/gamble.wealth,this} {prop:_money/currency_name,this}. @set bid=desc/gamble#/3: The purpose of this feature is to allow the theoretical possibility of a poor bidder having enough money to buy an expensive slave. You are unlikely to become rich through gambling. @set bid=desc/give#:1 @set bid=desc/give#/1: Give allows one person to give gold {prop:_money/currency_name,this} to another person. (Silver {prop:_money/currency_name,this} can't be given away.) The syntax is 'give person number', as in 'give Dina 10'. Currently you have {if:{eq:{prop:_player/{ref:me}/gold,this},},zero,{prop:_player/{ref:me}/gold,this}} gold {prop:_money/currency_name,this} that you may give away if you wish. @set bid=desc/history#:1 @set bid=desc/history#/1: The history function looks very boring at the moment. @set bid=desc/irs#:1 @set bid=desc/irs#/1: The IRS command (for auctioneers only!) has no appearance. @set bid=desc/longhelp#:1 @set bid=desc/longhelp#/1:{list:help/longhelp.short,this} @set bid=desc/owner#:1 @set bid=desc/owner#/1:{list:mesg/owner.help,this} @set bid=desc/petprefs#:1 @set bid=desc/petprefs#/1:{eval:{list:help/petprefs.short,this}} @set bid=desc/sell#:5 @set bid=desc/sell#/1:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=desc/sell#/2: {eval:{list:desc/sell.auctioneer,this}} @set bid=desc/sell#/3:, @set bid=desc/sell#/4: The 'sell' action is a special auctioneer-only command of no use to others. @set bid=desc/sell#/5:}{nl} @set bid=desc/sell.auctioneer#:2 @set bid=desc/sell.auctioneer#/1:Looking at the sell action will give a special auctioneers' help...later\, when Dina gets around to writing it. @set bid=desc/sell.auctioneer#/2: That you are seeing this at all shows that you are allowed to do auctioneering here; the list of allowed auctioneers is {commas:{list:_authlist,this}, and ,a,{name:{&a}}}. @set bid=desc/shorthelp#:6 @set bid=desc/shorthelp#/1: ATM = This command gets you more money. @set bid=desc/shorthelp#/2: bid = This command is used to bid on a fur that is for sale. @set bid=desc/shorthelp#/3: status = Obviously, this will tell you what's going on. @set bid=desc/shorthelp#/4: @set bid=desc/shorthelp#/5: Shorthelp files are available for the topics: ATM, auctioneer, chain, easter eggs, gamble, give, history, longhelp, money, name, newbie, orientation, owner, petprefs, RTFM, and unchain.{if:{lmember:{list:_authlist,this},{ref:me}}, {name, newbie:me}\, auctioneers may also know about shorthelp sell and scams.} @set bid=desc/shorthelp#/6: When you're ready to know more, use the command 'longhelp'. @set bid=desc/spiff#:1 @set bid=desc/spiff#/1:{if:{lmember:{list:_authlist,this},{ref:me}}, The 'spiff' command is an auctioneer-only local spoof command; see 'longhelp spiff' for details\, okay?,I don't see that here.} @set bid=desc/status#:1 @set bid=desc/status#/1:{null:{lexec:func/status,this}} @set bid=desc/unchain#:2 @set bid=desc/unchain#/1: Unchain is the command used to remove a fur for the sales chain. The chained fur, that fur's registered owner if any, and the auctioneer all have the privilege of unchaining. @set bid=desc/unchain#/2: {rand:desc/unchain.{if:{eq:{prop:_auction/chain,this},},no-}chain,this} @set bid=desc/unchain.chain#:1 @set bid=desc/unchain.chain#/1: {commas:{prop:_auction/chain,this}} {if:{eq:{count:{prop:_auction/chain,this}},1},is,are} on the chain. @set bid=desc/unchain.no-chain#:1 @set bid=desc/unchain.no-chain#/1:There is nobody on the chain now. @set bid=desc/vote#:1 @set bid=desc/vote#/1: You are seeing the integrated Auction II vote desc; this isn't in just yet.\n /* THE VOTE COMMAND SHOULD BE IN Ver. 1.1 */ "Loading function MPI. This will take a while. @set bid=func/#:1 @set bid=func/#/1: Oops! This is not working; please tell {name:{owner:this}} that the command you gave is not processing {lit:{&cmd}} properly. @set bid=func/aa: /* ACTUAL FUNCTION CODE GOES HERE, OFTEN STRANGELY */ @set bid=func/abort#:14 @set bid=func/abort#/1:{if:{or: @set bid=func/abort#/10: {tell: There's no auction running right now\, {name:me}!,me} @set bid=func/abort#/11: } @set bid=func/abort#/12:, @set bid=func/abort#/13: {tell: Only the auctioneer and merchandise may abort an auction.,me} @set bid=func/abort#/14:} @set bid=func/abort#/2: {eq:{prop:_auction/auctioneer,this},{name:me}}, @set bid=func/abort#/3: {eq:{prop:_auction/slave,this},{name:me}}} @set bid=func/abort#/4:, @set bid=func/abort#/5: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/abort#/6: {store:,_auction/slave,this} @set bid=func/abort#/7: {store:0,_auction/high_bid,this} @set bid=func/abort#/8: {otell:{name:me} cancels the auction!,here,-1} @set bid=func/abort#/9: , @set bid=func/atm#:22 @set bid=func/atm#/1:{if:{gt:{add:{prop:_player/{ref:me}/silver,this},{prop:_player/{ref:me}/gold,this}},{prop:_money/ATM_limit,this}}, @set bid=func/atm#/10: } @set bid=func/atm#/11: {store:{add:{prop:_player/{ref:me}/silver,this},{prop:_money/ATM_output,this}},_player/{ref:me}/silver,this} @set bid=func/atm#/12: {if:{eq:{lexec:_auction/running?},no}, @set bid=func/atm#/13: {otell: {prop:_misc/symbol,this} {pronouns:%N} {rand:mesg/atm.osucc,this},here,-1} @set bid=func/atm#/14: , @set bid=func/atm#/15: {tell:{rand:mesg/ATM.withdrawal,this},me} @set bid=func/atm#/16: } @set bid=func/atm#/17: {store:{secs:},_player/{ref:me}/ATM_last,this} @set bid=func/atm#/18: {lexec:func/atm.history,this} @set bid=func/atm#/19: , @set bid=func/atm#/2: {tell:{rand:mesg/ATM.too_rich,this},me} @set bid=func/atm#/20: {tell:{rand:mesg/ATM.too_soon,this},me} @set bid=func/atm#/21: } @set bid=func/atm#/22:} @set bid=func/atm#/3:, @set bid=func/atm#/4: {if:{gt:{subt:{secs},{prop:_player/{ref:me}/ATM_last,this}},{prop:_money/ATM_delay,this}}, @set bid=func/atm#/5: {if:{eq:{prop:_player/{ref:me}/ATM_last,this},}, @set bid=func/atm#/6: {store:{ref:me},_names/{name:me},this} @set bid=func/atm#/7: NEW USER {null: NEW USER BONUS NOT ENABLED YET (for {name:me}),#151545} @set bid=func/atm#/8: {tell:{rand:mesg/ATM.new_user,this},me} @set bid=func/atm#/9: {otell: {prop:_misc/symbol,this} {name:me} is a new user; please be nice to {pronouns:%o,me}! {prop:_misc/symbol,this}} @set bid=func/atm.hist/Sun:231 @set bid=func/atm.hist/Sunday#:2 @set bid=func/atm.hist/Sunday#/1:Dina 15:55 @set bid=func/atm.hist/Sunday#/2:Lum 15:56 @set bid=func/atm.history#/1:{with:todaydir,func/atm.hist/{ftime:%A}#/, @set bid=func/atm.history#/10: {store:{name:me} {ftime:%R},{&todaydir}{prop:{&todaydir},this},this} @set bid=func/atm.history#/11:} @set bid=func/atm.history#/2: {if:{ne:{prop:func/atm.hist/{ftime:%a},this},{ftime:%j}}, @set bid=func/atm.history#/3: {with:n,{prop:{&todaydir},this}, @set bid=func/atm.history#/4: {while:{gt:{&n},1},{store:,{&todaydir}{&n},this}{dec:n}} @set bid=func/atm.history#/5: } @set bid=func/atm.history#/6: {store:0,{&todaydir},this} @set bid=func/atm.history#/7: {store:{ftime:%j},func/atm.hist/{ftime:%a},this} @set bid=func/atm.history#/8: } @set bid=func/atm.history#/9: {store:{add:{prop:{&todaydir},this},1},{&todaydir},this} @set bid=func/atm.timing#:10 @set bid=func/atm.timing#/1:{if:{lt:{secs}, @set bid=func/atm.timing#/10:} @set bid=func/atm.timing#/2: {add:{prop:_player/{ref:me}/atm_last,this},{prop:_money/atm_delay,this}}} @set bid=func/atm.timing#/3:, @set bid=func/atm.timing#/4: in {ltimestr:{subt:{add:{prop:_money/ATM_delay,this},{prop:_player/{ref:me}/atm_last,bid}},{secs}}} @set bid=func/atm.timing#/5:, @set bid=func/atm.timing#/6: now @set bid=func/atm.timing#/7: {if:{gt:{lexec:_money/wealth,this},{prop:_money/ATM_limit,this}}, @set bid=func/atm.timing#/8: \, but you are too wealthy to be given more silver @set bid=func/atm.timing#/9: } @set bid=func/bid#:27 @set bid=func/bid#/1:{if:{isnum:{&arg}}, @set bid=func/bid#/10: {store:{name:me},_auction/bidder,this} @set bid=func/bid#/11: {if:{prop:_names/{name:me},this},, @set bid=func/bid#/12: {store:{ref:me},_names/{name:me},this} @set bid=func/bid#/13: } @set bid=func/bid#/14: } @set bid=func/bid#/15: , @set bid=func/bid#/16: {tell:{rand:mesg/bid.too_low,this},me} @set bid=func/bid#/17: } @set bid=func/bid#/18: , @set bid=func/bid#/19: {tell:{rand:mesg/bid.no_auction,this},me} @set bid=func/bid#/2: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/bid#/20: } @set bid=func/bid#/21:, @set bid=func/bid#/22: {if:{eq:{&arg},}, @set bid=func/bid#/23: {tell:{rand:mesg/bid.help,this},me} @set bid=func/bid#/24: , @set bid=func/bid#/25: {tell: The bid action doesn't understand '{&arg}'.,me} @set bid=func/bid#/26: } @set bid=func/bid#/27:} @set bid=func/bid#/3: {if:{gt:{&arg},{prop:_auction/high_bid,this}}, @set bid=func/bid#/4: {if:{gt:{&arg},{lexec:_money/wealth,this}}, @set bid=func/bid#/5: {tell:{rand:mesg/bid.too_poor,this},me} @set bid=func/bid#/6: , @set bid=func/bid#/7: {otell: {prop:_misc/symbol,this} {rand:mesg/bid.bid,this} {prop:_misc/symbol,this},here,-1} @set bid=func/bid#/8: {store:{secs},_auction/bid_time,this} @set bid=func/bid#/9: {store:{&arg},_auction/high_bid,this} @set bid=func/chain#:25 @set bid=func/chain#/1:{if:{eq:{&arg},}, @set bid=func/chain#/10: {if:{ne:{prop:_petprefs,me},{tell: {prop:_misc/symbol,this} Your petprefs are updated! {prop:_misc/symbol,this},me}{prop:_player/{ref:me}/petprefs,this}},{store:{prop:_petprefs,me},_player/{ref:me}/petprefs,this}} @set bid=func/chain#/11: , @set bid=func/chain#/12: {otell: {prop:_misc/symbol,this} {name:me} puts {name:*{&arg}} onto the sales chain!,here,-1} @set bid=func/chain#/13: } @set bid=func/chain#/14: {tell: The current chain is {commas:{prop:_auction/chain,this}}.,me} @set bid=func/chain#/15: , @set bid=func/chain#/16: {tell: DEBUG: {name:me} is NOT allowed to chain {&arg}.,me} @set bid=func/chain#/17: } @set bid=func/chain#/18: , @set bid=func/chain#/19: {if:{eq:{midstr:{&arg},1},#}, @set bid=func/chain#/2: {tell: To add yourself to the chain\, type 'chain me'. For help\, type 'chain #help'.,me} @set bid=func/chain#/20: {tell:{eval:{list:mesg/chain.help,this}},me} @set bid=func/chain#/21: , @set bid=func/chain#/22: {tell: Hey\, I can't find the player '{&arg}'!,me} @set bid=func/chain#/23: } @set bid=func/chain#/24: } @set bid=func/chain#/25:} @set bid=func/chain#/3: {tell: {rand:desc/unchain.{if:{eq:{prop:_auction/chain,this},},no-}chain,this}} @set bid=func/chain#/4:, @set bid=func/chain#/5: {if:{or:{istype:*{&arg},player},{eq:{&arg},me}}, @set bid=func/chain#/6: {if:{lexec:func/chain.allowed?,this}, @set bid=func/chain#/7: {store:{lunion:{prop:_auction/chain,this},{name:{if:{ne:{&arg},me},*}{&arg}}},_auction/chain,this} @set bid=func/chain#/8: {if:{eq:{&arg},me}, @set bid=func/chain#/9: {otell: {prop:_misc/symbol,this} {name:me} puts {pronouns:%r} on the sales chain!,here,-1} @set bid=func/chain.allowed?#:6 @set bid=func/chain.allowed?#/1:{if:{or: @set bid=func/chain.allowed?#/2: {eq:{&arg},me}, @set bid=func/chain.allowed?#/3: {dbeq:*{&arg},me}, @set bid=func/chain.allowed?#/4: {smatch:{list:_authlist,this},*{ref:me}*}, @set bid=func/chain.allowed?#/5: {eq:{prop:_player/{prop:_names/{&arg},this}/owner,this},{ref:me}} @set bid=func/chain.allowed?#/6:},1} @set bid=func/gamble#:68 @set bid=func/gamble#/1:{null: /* FIRST WE HAVE IDIOT-PROOFING... */ } @set bid=func/gamble#/10: {if:{gt:{&myAg},{prop:_money/gamble.wealth,this}}, @set bid=func/gamble#/11: {tell:{rand:mesg/gamble.too-rich,this},me} @set bid=func/gamble#/12: , @set bid=func/gamble#/13: {if:{lt:{&arg},1}, @set bid=func/gamble#/14: {tell: You can't gamble {&arg} {prop:_money/currency_name,this}; that would be silly!,me} @set bid=func/gamble#/15: , @set bid=func/gamble#/16: {null: /* THE RESULT IS CALCULATED FIRST */ } @set bid=func/gamble#/17: {with:result,lose, @set bid=func/gamble#/18: {if:{eq:{dice:2},1}, @set bid=func/gamble#/19: {if:{eq:{dice:2},1}, @set bid=func/gamble#/2:{if:{isnum:{&arg}}, @set bid=func/gamble#/20: {set:result,win} @set bid=func/gamble#/21: } @set bid=func/gamble#/22: , @set bid=func/gamble#/23: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/gamble#/24: {if:{and: @set bid=func/gamble#/25: {lt:{&myAg},{prop:_auction/high_bid,this}}, @set bid=func/gamble#/26: {eq:{dice:2},1} @set bid=func/gamble#/27: }, @set bid=func/gamble#/28: {set:result,win} @set bid=func/gamble#/29: } @set bid=func/gamble#/3: {with:myAg,{prop:_player/{ref:me}/silver,this}, @set bid=func/gamble#/30: , @set bid=func/gamble#/31: {if:{lt:{&myAg},{dice:{prop:_money/gamble.wealth,this}}}, @set bid=func/gamble#/32: {set:result,win} @set bid=func/gamble#/33: } @set bid=func/gamble#/34: } @set bid=func/gamble#/35: } @set bid=func/gamble#/36: {null: /* THE ACTUAL WIN OR LOSS PROCESSING IS HERE */ } @set bid=func/gamble#/37: {if:{eq:{&result},win}, @set bid=func/gamble#/38: {null: /* WINNING */ } @set bid=func/gamble#/39: {store:{add:{&myAg},{&arg}},_player/{ref:me}/silver,this} @set bid=func/gamble#/4: {if:{gt:{&arg},{&myAg}}, @set bid=func/gamble#/40: {if:{and: @set bid=func/gamble#/41: {ne:{prop:_money/gamble.silent?,this},no}, @set bid=func/gamble#/42: {ne:{lexec:_auction/running?,this},yes}} @set bid=func/gamble#/43: , @set bid=func/gamble#/44: {tell: You win!,me} @set bid=func/gamble#/45: , @set bid=func/gamble#/46: {otell: {prop:_misc/symbol,this} {rand:mesg/gamble.win,this},here,-1} @set bid=func/gamble#/47: } @set bid=func/gamble#/48: , @set bid=func/gamble#/49: {null: /* LOSING */ } @set bid=func/gamble#/5: {tell: Hey! You can't gamble {&arg} silver when you only have {&myAg}!,me} @set bid=func/gamble#/50: {store:{subt:{&myAg},{&arg}},_player/{ref:me}/silver,this} @set bid=func/gamble#/51: {if:{and: @set bid=func/gamble#/52: {ne:{prop:_money/gamble.silent?,this},no}, @set bid=func/gamble#/53: {ne:{lexec:_auction/running?,this},yes}} @set bid=func/gamble#/54: , @set bid=func/gamble#/55: {tell: You lose! Too bad!,me} @set bid=func/gamble#/56: , @set bid=func/gamble#/57: {otell: {prop:_misc/symbol,this} {rand:mesg/gamble.loose,this},here,-1} @set bid=func/gamble#/58: } @set bid=func/gamble#/59: } @set bid=func/gamble#/6: , @set bid=func/gamble#/60: }{null: /* END RESULT [with] LOOP HERE &/ } @set bid=func/gamble#/61: {tell: You now have {prop:_player/{ref:me}/silver,this}.,me} @set bid=func/gamble#/62: } @set bid=func/gamble#/63: } @set bid=func/gamble#/64: } @set bid=func/gamble#/65: }} @set bid=func/gamble#/66:, @set bid=func/gamble#/67: {tell: Hey\, '{&arg}' isn't a number!} @set bid=func/gamble#/68:} @set bid=func/gamble#/7: {if:{gt:{&arg},{prop:_money/gamble.limit,this}}, @set bid=func/gamble#/8: {tell: You may not gamble more than {prop:_money/gamble.limit,this} {prop:_money/currency_name,this} at once.,me} @set bid=func/gamble#/9: , @set bid=func/give#:35 @set bid=func/give#/1:{if:{eq:{&arg},}, @set bid=func/give#/10: {set:target,{midstr:{&arg},1,{subt:{&space},1}}} @set bid=func/give#/11: {if:{isnum:{&gift}}, @set bid=func/give#/12: {if:{ne:{prop:_names/{&target},this},}, @set bid=func/give#/13: {with:targetdbref,{prop:_names/{&target},this}, @set bid=func/give#/14: {if:{gt:{abs:{&gift}},{prop:_player/{ref:me}/gold,this}}, @set bid=func/give#/15: {tell: {rand:mesg/give.too_poor,this},me} @set bid=func/give#/16: , @set bid=func/give#/17: {store:{subt:{prop:_player/{ref:me}/gold},{abs:{&gift}}}, @set bid=func/give#/18: _player/{ref:me}/gold,this} @set bid=func/give#/19: {store:{add:{&gift},{prop:_player/{&targetdbref}/gold,this}}, @set bid=func/give#/2: {tell:{eval:{list:desc/give,this}},me} @set bid=func/give#/20: _player/{&targetdbref}/gold,this} @set bid=func/give#/21: {otell:{rand:mesg/give.otell,this},here,-1} @set bid=func/give#/22: {tell: {rand:mesg/give.succ,this},me} @set bid=func/give#/23: } @set bid=func/give#/24: } @set bid=func/give#/25: , @set bid=func/give#/26: {tell: Hey\, I can't find any '{&target}' around here...,me} @set bid=func/give#/27: } @set bid=func/give#/28: , @set bid=func/give#/29: {tell: Hey\, '{&gift}' isn't a number!} @set bid=func/give#/3:, @set bid=func/give#/30: } @set bid=func/give#/31: }}} @set bid=func/give#/32: , @set bid=func/give#/33: {tell:{eval:{list:desc/give,this}},me} @set bid=func/give#/34: } @set bid=func/give#/35:} @set bid=func/give#/4: {if:{smatch:{&arg},* *}, @set bid=func/give#/5: {with:target,,{with:gift,,{with:space,-2, @set bid=func/give#/6: {while:{smatch:{midstr:{&arg},{&space}},[^ ]}, @set bid=func/give#/7: {set:space,{subt:{&space},1}} @set bid=func/give#/8: } @set bid=func/give#/9: {set:gift,{midstr:{&arg},{add:{&space},1},-1}} @set bid=func/history#:18 @set bid=func/history#/1:{if:{&arg}, @set bid=func/history#/10:, @set bid=func/history#/11: {tell: Recent history:{nl}{list:history/this.week,this},me} @set bid=func/history#/12: {with:total,, @set bid=func/history#/13: {foreach:sale,{list:history/this.week,this}, @set bid=func/history#/14: {set:total,{add:{&total},{sublist:{&sale},-1,-1, }}}}, @set bid=func/history#/15: {tell: {prop:history/this.week#,this} sales totaling {&total} {prop:_money/currency_name,this}; weekly high {sublist:{prop:history/high.for.week,this},-1,-1, }.,me} @set bid=func/history#/16: } @set bid=func/history#/17: } @set bid=func/history#/18:} @set bid=func/history#/2: {with:record, @set bid=func/history#/3: {filter:line,{list:history/last.week,this}{nl}{list:history/this.week,this},{smatch:{&line},*{&arg}*}}, @set bid=func/history#/4: {if:{&record}, @set bid=func/history#/5: {tell: Recent auction history of {&arg}:{nl}{&record},me} @set bid=func/history#/6: , @set bid=func/history#/7: {tell: There's no history of {&arg} on file.,me} @set bid=func/history#/8: } @set bid=func/history#/9: } @set bid=func/irs#:9 @set bid=func/irs#/1:{if:{lcommon:{list:_authlist,this},{ref:me}}, @set bid=func/irs#/2: {if:{&arg}, @set bid=func/irs#/3: {lexec:func/irs.single,this} @set bid=func/irs#/4: , @set bid=func/irs#/5: {lexec:func/irs.room,this} @set bid=func/irs#/6: } @set bid=func/irs#/7:, @set bid=func/irs#/8: {lexec:mesg/permission.denied,this} @set bid=func/irs#/9:} @set bid=func/irs.room#:20 @set bid=func/irs.room#/1:{with:no-record,, @set bid=func/irs.room#/10: {if:{lt:{add:{prop:{&ndir}ATM_last,this},{prop:_money/ATM_delay,this}},{secs}}, Y, N}) @set bid=func/irs.room#/11: ,me} @set bid=func/irs.room#/12: } @set bid=func/irs.room#/13: , @set bid=func/irs.room#/14: {set:no-record,{mklist:{&no-record},{name:{&n}}}} @set bid=func/irs.room#/15: } @set bid=func/irs.room#/16:} @set bid=func/irs.room#/17:{if:{ne:{&no-record},}, @set bid=func/irs.room#/18: {tell:{prop:_misc/symbol,this} The system has no records on {commas:{&no-record}, or }.,me} @set bid=func/irs.room#/19:} @set bid=func/irs.room#/2:{foreach:n,{lsort:{contents:here,player}}, @set bid=func/irs.room#/20:} @set bid=func/irs.room#/3: {if:{ne:{prop:_names/{name:{&n}},this},}, @set bid=func/irs.room#/4: {with:ndir,_player/{prop:_names/{name:{&n}},this}/, @set bid=func/irs.room#/5: {tell:{prop:_misc/symbol,this} {left:{name:{&n}} ,20,.} @set bid=func/irs.room#/6: {right: {prop:{&ndir}silver,this} S ,10,.} @set bid=func/irs.room#/7: {right: {if:{prop:{&ndir}gold,this},{prop:{&ndir}gold,this},0} G ,10,.} @set bid=func/irs.room#/8: {right: {add:{prop:{&ndir}silver,this},{prop:{&ndir}gold,this}} Total (ATM ,20,.} @set bid=func/irs.room#/9: {ftime:%R %b %d,,{prop:{&ndir}ATM_last,bid}} @set bid=func/irs.single#:14 @set bid=func/irs.single#/1:{if:{prop:_names/{&arg},this}, @set bid=func/irs.single#/10: {prop:{&mydir}ATM_last,this}}.,me} @set bid=func/irs.single#/11: } @set bid=func/irs.single#/12:, @set bid=func/irs.single#/13: {tell:{prop:_misc/symbol,this} There is no dbref lookup for {&arg}.,me} @set bid=func/irs.single#/14:} @set bid=func/irs.single#/2: {with:mydir,_player/{prop:_names/{&arg},this}/, @set bid=func/irs.single#/3: {tell:{prop:_misc/symbol,this} {name:{prop:_names/{&arg},this}} has {prop:{&mydir}silver,this} silver and @set bid=func/irs.single#/4: {if:{prop:{&mydir}gold,this} @set bid=func/irs.single#/5: , {prop:{&mydir}gold,this} gold @set bid=func/irs.single#/6: \, totalling {add:{prop:{&mydir}silver},{prop:{&mydir}gold}} {prop:_money/currency_name,this} @set bid=func/irs.single#/7: , no gold @set bid=func/irs.single#/8: }.,me} @set bid=func/irs.single#/9: {tell: {name:{prop:_names/{&arg},this}} last got money at {ftime:%R on %B %d,, @set bid=func/longhelp#:9 @set bid=func/longhelp#/1:{if:{eq:{&arg},}, @set bid=func/longhelp#/2: {tell:{eval:{list:func/longhelp.text,this}},me} @set bid=func/longhelp#/3:, @set bid=func/longhelp#/4: {if:{eq:{prop:help/{&arg}.long#/,this},}, @set bid=func/longhelp#/5: {tell: Sorry\, I can't find a longhelp entry on '{&arg}'.,me} @set bid=func/longhelp#/6: , @set bid=func/longhelp#/7: {tell:{eval:{list:help/{&arg}.long,this}},me} @set bid=func/longhelp#/8: } @set bid=func/longhelp#/9:} @set bid=func/longhelp.text#:6 @set bid=func/longhelp.text#/1: @set bid=func/longhelp.text#/2: Note: Soon there will actually be a long help screen here. @set bid=func/longhelp.text#/3: The full list of user commands is: ATM, abort, bid, chain, gamble, history, longhelp, owner, petprefs, shorthelp, status, unchain.{if:{lmember:{list:_authlist,this},{ref:me}}, You're also authorized to use the auctioneer-only commands irs and sell.} If you need guidance on a command, it's always worth trying looking at the command or typing that command and adding '#help'. @set bid=func/longhelp.text#/4: @set bid=func/longhelp.text#/5: You can get longhelp entries on the subjects chain, money, petprefs, privileges, taxes and to-do.{if:{lmember:{list:_authlist,this},{ref:me}}, As an auctioneer\, {name:me}\, you're also told about the entries for scams\, settings and spiff.} @set bid=func/longhelp.text#/6: @set bid=func/owner#:17 @set bid=func/owner#/1:{if:{eq:{&arg},}, @set bid=func/owner#/10: , @set bid=func/owner#/11: {tell: The person {name:*{&arg}} has no registered owner.,me} @set bid=func/owner#/12: } @set bid=func/owner#/13: , @set bid=func/owner#/14: {tell: No\, '{&arg}' isn't a player.,me} @set bid=func/owner#/15: } @set bid=func/owner#/16: } @set bid=func/owner#/17:} @set bid=func/owner#/2: {tell: This command requires an arguement. (Type 'owner #help' for help.),me} @set bid=func/owner#/3:, @set bid=func/owner#/4: {if:{eq:{midstr:{&arg},1},#}, @set bid=func/owner#/5: {list:mesg/owner.help,this} @set bid=func/owner#/6: , @set bid=func/owner#/7: {if:{istype:*{&arg},player}, @set bid=func/owner#/8: {if:{ne:{prop:_player/{prop:_names/{&arg},this}/owner,this},}, @set bid=func/owner#/9: {tell: {name:*{&arg}} is owned by {name:{prop:_player/{prop:_names/{&arg},this}/owner,this}}.,me} @set bid=func/petprefs#:27 @set bid=func/petprefs#/1:{if:{&arg}, @set bid=func/petprefs#/10: {if:{eq:{&arg},me}, @set bid=func/petprefs#/11: {tell: The 'petprefs me' support is going to be fancier later; for now\, just call yourself by name\, okay\, {name:me}?,me} @set bid=func/petprefs#/12: , @set bid=func/petprefs#/13: {if:{gt:{count:{&arg}, },1}, @set bid=func/petprefs#/14: {tell: The petprefs command can only handle one name at a time.,me} @set bid=func/petprefs#/15: , @set bid=func/petprefs#/16: {tell: I can't find anyone named '{&arg}'.,me} @set bid=func/petprefs#/17: } @set bid=func/petprefs#/18: } @set bid=func/petprefs#/19: } @set bid=func/petprefs#/2: {with:petnum,{prop:_names/{&arg},this}, @set bid=func/petprefs#/20: } @set bid=func/petprefs#/21:, @set bid=func/petprefs#/22: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/petprefs#/23: {tell: {with:pname,{prop:_auction/slave,this},{rand:mesg/petprefs.report,this}},me} @set bid=func/petprefs#/24: , @set bid=func/petprefs#/25: {tell:{eval:{list:help/petprefs.short,this}},me} @set bid=func/petprefs#/26: } @set bid=func/petprefs#/27:} @set bid=func/petprefs#/3: {if:{&petnum}, @set bid=func/petprefs#/4: {if:{prop:_player/{&petnum}/petprefs,this}, @set bid=func/petprefs#/5: {tell: {with:pname,{name:{&petnum}},{rand:mesg/petprefs.report,this}},me} @set bid=func/petprefs#/6: , @set bid=func/petprefs#/7: {tell: {name:{&petnum}} has no recorded petprefs.,me} @set bid=func/petprefs#/8: } @set bid=func/petprefs#/9: , @set bid=func/sell#:45 @set bid=func/sell#/1:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=func/sell#/10: , @set bid=func/sell#/11: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/sell#/12: {tell: You're not done selling {prop:_auction/slave,this} yet!,me} @set bid=func/sell#/13: , @set bid=func/sell#/14: {if:{istype:{&arg},player}, @set bid=func/sell#/15: {store:{name:*{&arg}},_auction/slave,this} @set bid=func/sell#/16: {store:0,_auction/high_bid,this} @set bid=func/sell#/17: {store:nobody,_auction/bidder,this} @set bid=func/sell#/18: {store:{secs},_auction/bid_time,this} @set bid=func/sell#/19: {otell:{rand:mesg/sell.for_sale,this},here,-1} @set bid=func/sell#/2: {if:{eq:{name:me},{prop:_auction/auctioneer,this}}, @set bid=func/sell#/20: {if:{prop:_player/{prop:_names/{&arg},this}/petprefs,this}, @set bid=func/sell#/21: {otell: {name:{&arg}} has these petprefs: {prop:_player/{prop:_names/{&arg},this}/petprefs,this},here,-1} @set bid=func/sell#/22: } @set bid=func/sell#/23: {tell:{rand:mesg/sell.slave,this},{&arg}} @set bid=func/sell#/24: , @set bid=func/sell#/25: {tell: I can't find the player '{&arg}' here.,me} @set bid=func/sell#/26: } @set bid=func/sell#/27: } @set bid=func/sell#/28: } @set bid=func/sell#/29: , @set bid=func/sell#/3: {null: /* I'M THE CURRENT AUCTIONEER /* } @set bid=func/sell#/30: {null: /* I'M NOT THE CURRENT AUCTIONEER /* } @set bid=func/sell#/31: {if:{eq:{&arg},}, @set bid=func/sell#/32: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/sell#/33: {tell:{rand:mesg/sell.busy,this},me} @set bid=func/sell#/34: , @set bid=func/sell#/35: {store:{name:me},_auction/auctioneer,this} @set bid=func/sell#/36: {otell:{rand:mesg/sell.new_auctioneer,this},here,-1} @set bid=func/sell#/37: } @set bid=func/sell#/38: , @set bid=func/sell#/39: {tell: You must take the gavel if you want to sell someone.,me} @set bid=func/sell#/4: {if:{eq:{&arg},}, @set bid=func/sell#/40: } @set bid=func/sell#/41: } @set bid=func/sell#/42:, @set bid=func/sell#/43: {lexec:mesg/permission.denied,this} @set bid=func/sell#/44: {tell: See the 'shorthelp auctioneer' file for more information.,me} @set bid=func/sell#/45:} @set bid=func/sell#/5: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/sell#/6: {lexec:func/sold,this} @set bid=func/sell#/7: , @set bid=func/sell#/8: {tell: You are already the auctioneer\, {name:me}.,me} @set bid=func/sell#/9: } @set bid=func/sell-conversion#:14 @set bid=func/sell-conversion#/1:{null: /* THIS PAYS AN AUCTIONEER IN SILVER-TO-GOLD CONVERSIONS */ } @set bid=func/sell-conversion#/10:, @set bid=func/sell-conversion#/11: {store:{add:{prop:{&aucdir}gold},{&payment}},{&aucdir}gold,this} @set bid=func/sell-conversion#/12: {store:{subt:{prop:{&aucdir}silver},{&payment}},{&aucdir}silver,this} @set bid=func/sell-conversion#/13:} @set bid=func/sell-conversion#/14:}} @set bid=func/sell-conversion#/2:{with:payment,{div:{mult:{prop:_auction/high_bid,this},{prop:_misc/auctioneer_percentage,this}},100}, @set bid=func/sell-conversion#/3:{with:aucdir,_player/{ref:me}/, @set bid=func/sell-conversion#/4:{null: DEBUG -- Auctioneer payment enabled ({prop:_misc/auctioneer_percentage,this}% of {prop:_auction/high_bid,this} for {&payment}).,me} @set bid=func/sell-conversion#/5:{if:{lt:{prop:{&aucdir}silver,this},{&payment}}, @set bid=func/sell-conversion#/6: {if:{gt:{prop:{&aucdir}silver,this},0}, @set bid=func/sell-conversion#/7: {store:{add:{prop:{&aucdir}silver,this},{prop:{&aucdir}gold,this}},{&aucdir}gold,this} @set bid=func/sell-conversion#/8: {store:0,{&aucdir}silver,this} @set bid=func/sell-conversion#/9: } @set bid=func/sell-mesg/func#:23 @set bid=func/sell-mesg/func#/1:{null:{if:{prop:func/sell-mesg/1/text,this}, @set bid=func/sell-mesg/func#/10: func/sell-mesg/{&m}/readby,this} @set bid=func/sell-mesg/func#/11: {inc:m} @set bid=func/sell-mesg/func#/12: }} @set bid=func/sell-mesg/func#/13: , @set bid=func/sell-mesg/func#/14: {if:{lmember:{prop:func/sell-mesg/{&n}/readby,this},{ref:me}},, @set bid=func/sell-mesg/func#/15: {tell: ,me} @set bid=func/sell-mesg/func#/16: {tell: {prop:_misc/symbol,this} Auctioneer message from {prop:func/sell-mesg/{&n}/text,this},me} @set bid=func/sell-mesg/func#/17: {store:{mklist:{prop:func/sell-mesg/{&n}/readby,this},{ref:me}}, @set bid=func/sell-mesg/func#/18: func/sell-mesg/{&n}/readby,this} @set bid=func/sell-mesg/func#/19: } @set bid=func/sell-mesg/func#/2: {with:n,1,{while:{prop:func/sell-mesg/{&n}/text,this}, @set bid=func/sell-mesg/func#/20: } @set bid=func/sell-mesg/func#/21: {inc:n} @set bid=func/sell-mesg/func#/22: }} @set bid=func/sell-mesg/func#/23:}} @set bid=func/sell-mesg/func#/3: {if:{lt:{mod:{add:{ftime:%j},{prop:func/sell-mesg/lifespan,this}},365},{prop:func/sell-mesg/{&n}/day,this}}, @set bid=func/sell-mesg/func#/4: {with:m,{&n},{while:{prop:func/sell-mesg/{&m}/text,this}, @set bid=func/sell-mesg/func#/5: {store:{prop:func/sell-mesg/{add:{&m},1}/day}, @set bid=func/sell-mesg/func#/6: func/sell-mesg/{&m}/day,this} @set bid=func/sell-mesg/func#/7: {store:{prop:func/sell-mesg/{add:{&m},1}/text}, @set bid=func/sell-mesg/func#/8: func/sell-mesg/{&m}/text,this} @set bid=func/sell-mesg/func#/9: {store:{prop:func/sell-mesg/{add:{&m},1}/readby}, @set bid=func/shorthelp#:9 @set bid=func/shorthelp#/1:{if:{eq:{&arg},}, @set bid=func/shorthelp#/2: {tell:{eval:{list:desc/shorthelp,this}},me} @set bid=func/shorthelp#/3:, @set bid=func/shorthelp#/4: {if:{eq:{prop:help/{&arg}.short#/,this},}, @set bid=func/shorthelp#/5: {tell: Sorry\, I can't find a shorthelp entry on '{&arg}'.,me} @set bid=func/shorthelp#/6: , @set bid=func/shorthelp#/7: {tell:{eval:{list:help/{&arg}.short,this}},me} @set bid=func/shorthelp#/8: } @set bid=func/shorthelp#/9:} @set bid=func/sold#:44 @set bid=func/sold#/1:{if:{eq:{prop:_auction/high_bid,this},0}, @set bid=func/sold#/10: , @set bid=func/sold#/11: {tell: You spent some gold on this sale\, {name:{&winref}}.,{&winref}} @set bid=func/sold#/12: {store: @set bid=func/sold#/13: {subt:{prop:_player/{&winref}/gold,this},{subt:{&bid},{&silver}}}, @set bid=func/sold#/14: _player/{&winref}/gold,this} @set bid=func/sold#/15: {store:0,_player/{&winref}/silver,this} @set bid=func/sold#/16: } @set bid=func/sold#/17: {with:owner, @set bid=func/sold#/18: {prop:_player/{prop:_names/{prop:_auction/slave,this},this}/owner,this} @set bid=func/sold#/19: , @set bid=func/sold#/2: {tell: You can't sell {prop:_auction/slave,this} yet; there's no bid!,me} @set bid=func/sold#/20: {if:{ne:{&owner},}, @set bid=func/sold#/21: {with:gold,{prop:_player/{&owner}/gold,this}, @set bid=func/sold#/22: {if:{lt:{&gold},{prop:_money/goldtax,this}}, @set bid=func/sold#/23: {store:{add:{&bid},{&gold}},_player/{&owner}/gold,this} @set bid=func/sold#/24: , @set bid=func/sold#/25: {store: @set bid=func/sold#/26: {add:{&gold},{div:{mult:{&bid},{prop:_money/goldtax,this}},{&gold}}}, @set bid=func/sold#/27: _player/{&owner}/gold,this} @set bid=func/sold#/28: {null: * DEBUG -- Gold tax happened; owner would get {&bid} before tax,#151545} @set bid=func/sold#/29: } @set bid=func/sold#/3:, @set bid=func/sold#/30: } @set bid=func/sold#/31: } @set bid=func/sold#/32: } @set bid=func/sold#/33: {if:{eq:{prop:_misc/history?,this},yes},{lexec:func/sold.history,this}} @set bid=func/sold#/34: {null: TEMP--THIS GOES BACK TO 'STORE' WHEN ACTION IS DONE @set bid=func/sold#/35: {prop:_auction/bidder,this} buys {prop:_auction/slave,this} for {&bid}., @set bid=func/sold#/36: _hist/{ftime:%y}/{ftime:%m-%d}/{ftime:%H%M},this @set bid=func/sold#/37: } @set bid=func/sold#/38: {if:{gt:{prop:_misc/auctioneer_percentage,this},0},{lexec:func/sell-conversion,this}} @set bid=func/sold#/39: {otell:{rand:mesg/sell.sold,this},here,-1} @set bid=func/sold#/4: {with:bid,{prop:_auction/high_bid,this}, @set bid=func/sold#/40: {store:,_auction/slave,this} @set bid=func/sold#/41: {store:,_auction/bidder,this} @set bid=func/sold#/42: {store:0,_auction/high_bid,this} @set bid=func/sold#/43: }}} @set bid=func/sold#/44:} @set bid=func/sold#/5: {with:winref,{prop:_names/{prop:_auction/bidder,this},this}, @set bid=func/sold#/6: {with:silver,{prop:_player/{&winref}/silver,this}, @set bid=func/sold#/7: {null: DEBUG: slave {prop:_auction/slave,this} bid {&bid} ref {&winref} silver {&silver},#151545} @set bid=func/sold#/8: {if:{gt:{&silver},{&bid}}, @set bid=func/sold#/9: {store:{subt:{&silver},{&bid}},_player/{&winref}/silver,this} @set bid=func/sold.history#:22 @set bid=func/sold.history#/1:{null: DEBUG: THE HISTORY FUNCTION IS NOT YET FULLY INSTALLED,me} @set bid=func/sold.history#/10: {delprop:history/this.week#,this} @set bid=func/sold.history#/11: {store:{ftime:{prop:_money/silvertime,this}},history/now,this} @set bid=func/sold.history#/12: {store:0,history/high.for.week,this} @set bid=func/sold.history#/13:} @set bid=func/sold.history#/14:{null: /* THIS BIT ADDS THE CURRENT SALE TO THE RECORD */ } @set bid=func/sold.history#/15:{store:{add:1,{prop:history/this.week#,this}},history/this.week#,this} @set bid=func/sold.history#/16:{store: @set bid=func/sold.history#/17: {ftime:%b %d\, %I:%M%p} {prop:_auction/bidder,this} bought {prop:_auction/slave,this} for {prop:_auction/high_bid,this}, @set bid=func/sold.history#/18: history/this.week#/{prop:history/this.week#,this},this @set bid=func/sold.history#/19:} @set bid=func/sold.history#/2:{if:{ne:{ftime:{prop:_money/silvertime,this}},{prop:history/now,this}}, @set bid=func/sold.history#/20: {if:{gt:{prop:_auction/high_bid,this},{prop:history/high.for.week,this}}, @set bid=func/sold.history#/21: {store:{prop:_auction/high_bid,this},history/high.for.week,this} @set bid=func/sold.history#/22: } @set bid=func/sold.history#/3: {null: /* THE HISTORY FILES NEED TO BE RESET FOR A NEW WEEK */ } @set bid=func/sold.history#/4: {delprop:history/last.week#,this} @set bid=func/sold.history#/5: {with:line,{prop:history/this.week#,this},{while:{&line}, @set bid=func/sold.history#/6: {store:{prop:history/this.week#/{&line},this},history/last.week#/{&line},this} @set bid=func/sold.history#/7: {dec:line} @set bid=func/sold.history#/8: }} @set bid=func/sold.history#/9: {store:{prop:history/this.week#,this},history/last.week#,this} @set bid=func/status#:27 @set bid=func/status#/1:{if:{eq:{&arg},}, @set bid=func/status#/10: {eq:{lexec:_auction/running?,this},yes} @set bid=func/status#/11: }, @set bid=func/status#/12: {lexec:func/status.auctioneer,this} @set bid=func/status#/13: } @set bid=func/status#/14:, @set bid=func/status#/15: {if:{or:{eq:{&arg},me},{not:{and: @set bid=func/status#/16: {lmember:{list:_authlist,this},{ref:me}}, @set bid=func/status#/17: {ne:{prop:_names/{&arg},this},}}}} @set bid=func/status#/18: , @set bid=func/status#/19: {tell: You have {lexec:_money/you_have,this}\, {name:me}; you last used the ATM {ftime:%k:%M on %A %B %e,,{prop:_player/{ref:me}/ATM_last,this}} and may get more {lexec:func/atm.timing,this}.,me} @set bid=func/status#/2: {if:{eq:{lexec:_auction/running?},yes}, @set bid=func/status#/20: {tell: You {with:o,{prop:_player/{ref:me}/owner,this},{if:{eq:{&o},},have no registered owner,are owned by {if:{eq:{&o},{name:me}},yourself,{name:{&o}}}}} and have {if:{eq:{prop:_player/{ref:me}/petprefs,this},},no petprefs.,the following petprefs:{nl} {prop:_player/{ref:me}/petprefs,this}},me} @set bid=func/status#/21: , @set bid=func/status#/22: {with:fur,{prop:_names/{&arg},this}, @set bid=func/status#/23: {tell: {name:{&fur}} has {prop:_player/{&fur}/silver,this} silver and {if:{eq:{prop:_player/{&fur}/gold,this},},0,{prop:_player/{&fur}/gold,this}} gold\, and last used the ATM {ftime:%k:%M on %A %B %e,,{prop:_player/{&fur}/ATM_last,this}}.,me} @set bid=func/status#/24: {tell: {name:{&fur}} ({&fur}) is {if:{eq:{prop:_player/{&fur}/owner,this},},unowned,owned by {name:{prop:_player/{&fur}/owner,this}}} and has {if:{eq:{prop:_player/{&fur}/petprefs,this},},no petprefs.,these petprefs:{nl} {prop:_player/{&fur}/petprefs,this}},me} @set bid=func/status#/25: } @set bid=func/status#/26: } @set bid=func/status#/27:} @set bid=func/status#/3: {tell:{rand:mesg/status.auction,this},me} @set bid=func/status#/4: , @set bid=func/status#/5: {tell: There is no auction running now.,me} @set bid=func/status#/6: } @set bid=func/status#/7: {tell: You have {lexec:_money/you_have,this}.,me} @set bid=func/status#/8: {if:{and: @set bid=func/status#/9: {eq:{name:me},{prop:_auction/auctioneer,this}}, @set bid=func/status.auctioneer#:7 @set bid=func/status.auctioneer#/1:{if:{ne:{prop:_auction/bidder,this},nobody}, @set bid=func/status.auctioneer#/2: {with:bidref,{prop:_names/{prop:_auction/bidder,this},this}, @set bid=func/status.auctioneer#/3: {tell: Bidder {name:{&bidref}} has {prop:_player/{&bidref}/silver,this} silver and {prop:_player/{&bidref}/gold,this} gold.,me} @set bid=func/status.auctioneer#/4: } @set bid=func/status.auctioneer#/5:, @set bid=func/status.auctioneer#/6: {tell: There is no bidder yet.,me} @set bid=func/status.auctioneer#/7:} @set bid=func/status.basic#:6 @set bid=func/status.basic#/1:{if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/status.basic#/2: {tell:{rand:mesg/status.auction,this},me} @set bid=func/status.basic#/3:, @set bid=func/status.basic#/4: {tell: There is no auction running now.,me} @set bid=func/status.basic#/5:} @set bid=func/status.basic#/6:{tell: You have {lexec:_money/you_have,this}.,me} @set bid=func/unchain#:28 @set bid=func/unchain#/1:{if:{istype:*{&arg},player}, @set bid=func/unchain#/10: {tell: The fur '{&arg}' can't be found on the chain.,me} @set bid=func/unchain#/11: } @set bid=func/unchain#/12:, @set bid=func/unchain#/13: {if:{ne:{&arg},}, @set bid=func/unchain#/14: {if:{eq:{&arg},me}, @set bid=func/unchain#/15: {if:{lmember:{prop:_auction/chain,this},{name:me}}, @set bid=func/unchain#/16: {store:{lremove:{prop:_auction/chain,this},{name:me}},_auction/chain,this} @set bid=func/unchain#/17: {otell:{name:me} takes {pronouns:%r} off the sales chain!,here,-1} @set bid=func/unchain#/18: , @set bid=func/unchain#/19: {tell: Hey! You aren't even on the chain!,me} @set bid=func/unchain#/2: {if:{lmember:{prop:_auction/chain,this},{&arg}}, @set bid=func/unchain#/20: } @set bid=func/unchain#/21: , @set bid=func/unchain#/22: {tell: Hey\, '{&arg}' isn't even a player!,me} @set bid=func/unchain#/23: } @set bid=func/unchain#/24: , @set bid=func/unchain#/25: {tell: The command 'unchain' is used to remove a fur from the sales chain. You must give the name of the fur you wish released.,me} @set bid=func/unchain#/26: {tell: {rand:desc/unchain.{if:{eq:{prop:_auction/chain,this},},no-}chain,this},me} @set bid=func/unchain#/27: } @set bid=func/unchain#/28:} @set bid=func/unchain#/3: {if:{lexec:func/chain.allowed?,this}, @set bid=func/unchain#/4: {store:{lremove:{prop:_auction/chain,this},{&arg}},_auction/chain,this} @set bid=func/unchain#/5: {otell:{name:me} takes {name:*{&arg}} off of the sales chain!,here,-1} @set bid=func/unchain#/6: , @set bid=func/unchain#/7: {tell: Sorry\, but {name:me} is not allowed to unchain {&arg}.,me} @set bid=func/unchain#/8: } @set bid=func/unchain#/9: , @set bid=func/vote#:1 @set bid=func/vote#/1:{tell: The Auction II vote feature is not yet installed.,me} "Loading help files. This may take a while, too. @set bid=help/atm.short#:2 @set bid=help/atm.short#/1: To get money, type 'ATM'; this will give you {prop:_money/ATM_output,this} silver {prop:_money/currency_name,this} unless you have more than {prop:_money/ATM_limit,this} {prop:_money/currency_name,this} or have withdrawn money too recently.{nl} To see your account information, look at the ATM.{nl} Type 'shorthelp money' to learn more about the monetary system. @set bid=help/atm.short#/2: The secondary ATM commands are #learn (to update the Auction II's database on you) and #demote (to turn gold into silver). @set bid=help/auctioneer.long#:6 @set bid=help/auctioneer.long#/1: This is the orientation text for new auctioneers; if that's not you, then you may not have much use for this file. @set bid=help/auctioneer.long#/2: The basic commands you'll need to know are sell, status, abort, and irs. @set bid=help/auctioneer.long#/3: Status and abort are regular commands that work differently for auctioneers. If you have the gavel, you may 'abort' an auction just as the merchandise can. All auctioneers may use 'status' on other users just as ordinary users may use it on themselves. Also, during an auction the 'status' command can be used to see how long ago the most recent bid was placed. @set bid=help/auctioneer.long#/4: The 'irs' command is pretty simple; it allows auctioneers to check the wealth of users. Given a name it reports on that person if they have an account; with no arguement it checks everyone in the room. @set bid=help/auctioneer.long#/5: The most important auctioneer command is 'sell', which does what you'd expect. It's too complicated to explain in one short paragraph; you'll have to read the 'sell #help' file to understand it. @set bid=help/auctioneer.long#/6: After that you should look through the shorthelp and longhelp files, too, when you're not in a hurry. Auctioneers get to see more than general users. @set bid=help/auctioneer.short#:1 @set bid=help/auctioneer.short#/1: The auctioneer is the person allowed to do selling; the current auctioneer is {prop:_auction/auctioneer,this}.{nl} The allowed auctioneers are {commas:{lsort:{parse:n,{list:_authlist,this},{if:{gt:{ontime:*{name:{&n}}},1},{toupper:{name:{&n}}},{name:{&n}}}}}}. (Names in uppercase are auctioneers who are currently awake.){if:{lmember:{list:_authlist,this},{ref:me}},{nl} {if:{eq:{list:_authsuper,this},{ref:{owner:this}}},Right now only {name:{owner:this}} has, {commas:{list:_authsuper,this}, and ,p,{name:{&p}}} have} superuser privileges.} @set bid=help/auctioneers.short#:1 @set bid=help/auctioneers.short#/1:{eval:{list:help/auctioneer.short,this}} @set bid=help/birthday party.short#:17 @set bid=help/birthday party.short#/1:{null:{if:{ne:{ftime:%m%d},{ftime:%m%d,,{created:me}}}, @set bid=help/birthday party.short#/10: {tell: DEBUG: You are {&age} years old.} @set bid=help/birthday party.short#/11: {otell: {prop:_misc/symbol,this} {name:me} is {&age} years old today! {pronouns:%S} gets {mult:{&age},{prop:_money/ATM_output,this}} {prop:_money/currency_name,this} as a birthday present!,here,-1} @set bid=help/birthday party.short#/12: {store:{secs},_player/{ref:me}/ATM_last,this} @set bid=help/birthday party.short#/13: {store:{add:{prop:_player/{ref:me}/silver,this}, @set bid=help/birthday party.short#/14: {mult:{&age},{prop:_money/ATM_output,this}}},_player/{ref:me}/silver,this} @set bid=help/birthday party.short#/15: } @set bid=help/birthday party.short#/16: } @set bid=help/birthday party.short#/17:}} @set bid=help/birthday party.short#/2: {exec:func/shorthelp#/5,this} @set bid=help/birthday party.short#/3: {if:{eq:{dice:3},1}, @set bid=help/birthday party.short#/4: {delay:{dice:6},{lit:Besides\, {name:me}\, it's not your birthday today.}} @set bid=help/birthday party.short#/5: } @set bid=help/birthday party.short#/6:, @set bid=help/birthday party.short#/7: {otell: {prop:_misc/symbol,this} Hooray\, Hooray! It's {name:me}'s birthday today! {prop:_misc/symbol,this},here,-1} @set bid=help/birthday party.short#/8: {if:{lt:{add:{prop:_player/{ref:me}/ATM_last},86400},{secs}}, @set bid=help/birthday party.short#/9: {with:age,{subt:{ftime:%Y},{ftime:%Y,,{created:me}}}, @set bid=help/chain.long#:1 @set bid=help/chain.long#/1:{eval:{list:mesg/chain.help,this}} @set bid=help/chain.short#:1 @set bid=help/chain.short#/1: Type 'chain NAME' to add the person NAME to the sales chain. Only auctioneers can chain anyone, but you can always chain yourself. To find out more, type 'longhelp chain'. @set bid=help/easter eggs.short#:1 @set bid=help/easter eggs.short#/1: There are no easter eggs in the Auction II code.{null:{otell:{rand:mesg/misc.eastereggs,this}}{lexec:mesg/misc.eastereggs-daily,this}} @set bid=help/gamble.short#:1 @set bid=help/gamble.short#/1:{eval:{list:desc/gamble,this}} @set bid=help/give.short#:1 @set bid=help/give.short#/1:{eval:{list:desc/give,this}} @set bid=help/gold.short#:1 @set bid=help/gold.short#/1: Gold is one of the two types of money. Type 'shorthelp money'. @set bid=help/history.short#:1 @set bid=help/history.short#/1: If you type 'history' you will see a synopsis of the sales activity for the preceeding week (more or less). It's possible to check the recent record of a particular person, too, by adding their name. Typing 'history #last' will show the previous week's record (only two weeks at a time are stored). @set bid=help/longhelp.short#:1 @set bid=help/longhelp.short#/1: The longhelp files somewhat overlap the quick help that is available from shorthelp, but are generally much more verbose. Shorthelp is intended to communicate the basic necessary information in as few lines as possible; longhelp goes into deeper detail at the risk of being too long to easily read in the busy environment of an active auction. @set bid=help/money.long#:12 @set bid=help/money.long#/1: When we first started talking about doing a slave auction on FurryMuck again, we discovered that the hardest part to work out was the monetary system. We probably spent more time discussing money than everything else combined, trying to work out a system that avoided the problems of previous auctions. @set bid=help/money.long#/10: There are other features in place to keep the economy balanced, such as taxation (see 'longhelp taxes'). The gold tax at the time of sale for rich owners was planned all along, to keep the large scale sellers' wealth more reasonable. The realtime silver tax was added in later after it was clear that many of the regular patrons were near the wealth limit and had very similar amounts of money; the realtime tax nibbles away at the total and contributes to a greater variety in account balances. A weekly tax of 2% to 10% is probably best, and it's set to {prop:_money/silvertax,this}% now. @set bid=help/money.long#/11: Another intentional feature is the channeling of the sales profits to the slave's registered owner. While a potential bonanza for those with large harems, it also provides for the disappearance of the money when there is no registered owner. Some people don't care about the profit, and taking money out of the economy helps keep inflation down. Also, it was nice that an owner could rent a slave and make money doing it. @set bid=help/money.long#/12: Most of the numeric settings can be changed, so that the auction owner can attempt to fine-tune the local economy.{if:{lcommon:{list:_authlist,this},{ref:me}}, See 'longhelp settings' for a list of what's currently set on this system.} @set bid=help/money.long#/2: Very rich users (particularly auctioneers) and money giving abuses dominated the discussion; it was quickly obvious that some kind of wealth control was needed to keep the auction economy from going out of control. Some things became obvious: @set bid=help/money.long#/3: @set bid=help/money.long#/4: * Having 'free money' that people could then pool together with friends and alts was a bad idea. If every person was given a certain amount per week, then people with alts could become quite wealthy. But people LIKED being able to give money to each other! @set bid=help/money.long#/5: * The auctioneer should not be very wealthy! Several varieties of problems from past auctions came up on that subject. Also, if the owner of the auction is inexplicably wealthy, users will begin to doubt the honesty of the system. @set bid=help/money.long#/6: * The problems with money come not from having it, but from one person or a few people having much more than anyone else (especially when the rich person owns or runs the auction). Wealth should be spread pretty evenly among the users, with everyone able to enrich themselves if they care to, and there shouldn't be economically privileged users. (That's why in the Auction II system auctioneers don't get a salary or a percentage of sales; they are volunteers, with no economic reward. On the other hand, if you want to reward your local auctioneer socially, go right ahead -- they deserve it!) @set bid=help/money.long#/7: @set bid=help/money.long#/8: Eventually we hit upon the idea of having two parallel kinds of currency that spent the same but would operate differently for financial control purposes. Silver would be given away to all patrons who wanted it, but couldn't be given away; gold could be given to others, but would have to be earned so that the supply would be limited. They'd still spend the same, of course, with silver going first because silver was easier to get. @set bid=help/money.long#/9: Of course, the idea that the free money should stop when a user already had plenty of money was an obvious one. Right now the ATM stops giving out money when a user has over {prop:_money/ATM_limit,this} {prop:_money/currency_name,this}. @set bid=help/money.short#:3 @set bid=help/money.short#/1: There are two kinds of money used in the Auction II system, silver and gold '{prop:_money/currency_name,this}'. Silver comes from the ATM and (if you're lucky) gambling; it may not be given away. Gold only originates from sales but may be given to other furs. @set bid=help/money.short#/2: When buying, silver is spent first because it's easier to come by. @set bid=help/money.short#/3: There are several subtle features in place to prevent people from becoming infinitely rich; when you're ready to read about them, type 'longhelp taxes'. @set bid=help/name.short#:2 @set bid=help/name.short#/1: The Auction II code keeps track of people by dbref when it can, and keeps a name list to look up users as needed. This can be confused by using @name, or if someone's never used the ATM or bid commands (which check to see if it knows you). @set bid=help/name.short#/2: If you think you've confused the system this way, or if you just want to be sure, type 'ATM #learn'. @set bid=help/newbie.short#:6 @set bid=help/newbie.short#/1:{if:{ne:{prop:prefs/auctionclue,me},yes}, Welcome to the auction hall! There are some things you should know. @set bid=help/newbie.short#/2: This is an adult area and the people playing here are adults. If something is likely to bother you\, you can avoid offense by not being here in the first place.} @set bid=help/newbie.short#/3: There are some commands that people participating in the auction should know. 'ATM' will give you money. The action 'bid' lets you bid. Typing 'status' will tell you what's going on. There are others, but those are the ones you really need. @set bid=help/newbie.short#/4: If you're planning to go up on the auction block, be aware that the sales price goes to the slave's registered owner! So if you're a slave, you can send the proceeds to your master as is proper. If you don't have a registered owner, the money just disappears. People can still make money by selling themselves, by setting themselves as self-owned (the command to set your ownership is 'owner #set OWNER-NAME'). @set bid=help/newbie.short#/5: You WILL want to read the help files; type 'shorthelp' and you'll see a quick guide to all the help files you'll need to answer almost any reasonable question. If you're about to ask something that would be on a FAQ list, check the shorthelp files instead; it's certainly answered there. @set bid=help/newbie.short#/6:{if:{ne:{prop:prefs/auctionclue,me},yes}, If you understand all this\, type '@set me=prefs/auctionclue:yes' and have fun!} @set bid=help/orientation.short#:2 @set bid=help/orientation.short#/1: It's an auction. (If you're about to ask "What's being sold?", type 'shorthelp petprefs'.) If you need orientation to the auction subculture, ask someone you know who's been here a while, or just watch and learn. If you need general guidance from an experienced user, please ask someone other than the auctioneer ({prop:_auction/auctioneer,this} is currently holding the gavel), as auctioneers are very busy during sales. @set bid=help/orientation.short#/2: Also type 'shorthelp rtfm'. @set bid=help/owner.long#:9 @set bid=help/owner.long#/1:{if:{eq:{owner:this},*{name:me}}, @set bid=help/owner.long#/2: THE OWNER TEXT GOES HERE. @set bid=help/owner.long#/3:, @set bid=help/owner.long#/4: Hi\, {name:me}! This is the message screen for prospective owners of the Auction II code ({name:{owner:this}} gets a different message here). @set bid=help/owner.long#/5: You'll need a few things to open your own auction hall\, but nothing too difficult. Let's run down the list. @set bid=help/owner.long#/6: An auction hall owner needs some familiarity with muck building and basic MPI. Nothing new has to be written and you don't need to be a psycho-coder to operate the auction\, but you should be comfortable with @set and lsedit. @set bid=help/owner.long#/7: You need a room. That's obvious\, right? The auction action as currently written needs to be on a room (and you DO need to own the room in which you play back the Auction II archive). You can describe and link up this room beforehand to save yourself time. @set bid=help/owner.long#/8: You'll need one exit from your local building quota. The whole Auction II system runs on a single db object\, an exit on a room and linked to whatever the no-nothing MUF is on that muck. (You can find this out easily enough by asking\, if you don't know its dbref. Here on {muckname}\, this Auction II action is linked to {name:{links:this}} {links:this}.) @set bid=help/owner.long#/9:} @set bid=help/owner.short#:1 @set bid=help/owner.short#/1:{list:mesg/owner.help,this} @set bid=help/petprefs.long#:16 @set bid=help/petprefs.long#/1: The petprefs command is used to tell buyers what the slave offers, likes, and would prefer to avoid. The petprefs command will not process MPI{if:{lmember:{list:_authlist,this},{ref:me}},\, for various good reasons -- type 'petprefs #mpi' for a quick discussion of why}. @set bid=help/petprefs.long#/10: petprefs #here This shows the petprefs (if any) of all people in the room @set bid=help/petprefs.long#/11: petprefs #set If you have text in your _petprefs: property, it updates{nl} the recorded petprefs to that; if not, it prompts for text. @set bid=help/petprefs.long#/12: @set bid=help/petprefs.long#/13:Your system petprefs are currently{if:{eq:{prop:_player/{ref:me}/petprefs,this},}, not set{if:{ne:{prop:_petprefs,me},}, (type 'petprefs #set' to fix that)}.,: {prop:_player/{ref:me}/petprefs,this}} @set bid=help/petprefs.long#/14: @set bid=help/petprefs.long#/15:Your master petprefs (on your _petprefs property) are{if:{eq:{prop:_petprefs,me},}, unset.,: {prop:_petprefs,me}} @set bid=help/petprefs.long#/16: @set bid=help/petprefs.long#/2: You can store a master copy of this data on yourself in the _petprefs: property, where it will be updated when you type 'petprefs #set' or 'chain me'. (This property was chosen because it was used in earlier auctions on FurryMuck, and many users still had data there that could be grandfathered in to the Auction II system.) You can also set the auction's echo of your properties manually by typing 'petprefs #set NEW PETPREFS HERE'; this is so that you can set a temporary petpref message for a particular auction without over-writing the permanent text, and it also means that your character can have the same petprefs everywhere even if one muck is running several different copies of the Auction II code. If you get up for sale and discover that your petprefs seem to have disappeared, you probably just set your permanent text but forgot to tell the local system to notice that you have petprefs; typing 'petprefs #set' will fix that. @set bid=help/petprefs.long#/3:{if:{and:{eq:{prop:_player/{ref:me}/petprefs,this},},{ne:{prop:_petprefs,me},}},\r \r {prop:_misc/symbol,this} {toupper:{name:me}}! Type 'petprefs #set' now! {prop:_misc/symbol,this}\r \r} The full rundown of commands is: @set bid=help/petprefs.long#/4: @set bid=help/petprefs.long#/5: petprefs If an auction is running, shows the slave's petprefs @set bid=help/petprefs.long#/6: petprefs NAME This will tell you the petprefs (if any) of the person NAME @set bid=help/petprefs.long#/7: petprefs #chain Shows you the petprefs of all slaves on the sales chain @set bid=help/petprefs.long#/8: petprefs #clear Removes your system petprefs @set bid=help/petprefs.long#/9: petprefs #help Self explanatory. (This is also 'shorthelp petprefs'.) @set bid=help/petprefs.short#:1 @set bid=help/petprefs.short#/1: The petprefs feature is used to tell buyers what a slave offers...and would prefer to avoid. This information is stored on the player by typing '@set me=_petprefs:TEXT', where TEXT is the pet preference information you want people to see when you go up on the auction block. The files kept by the auction system are updated when you add yourself to the chain or type 'petprefs #set', so it's possible for the system's copy of your petprefs to be out of date (since you can use 'petprefs #set TEXT' to set temporary petprefs for an auction).{if:{eq:{&cmd},shorthelp},{nl} Read 'longhelp petprefs' for more information!} @set bid=help/privileges.long#:3 @set bid=help/privileges.long#/1: Not all users have the same privileges under the Auction II code. Puppets are allowed to do almost nothing at all. Most users can bid and buy and sell and gamble and generally use all of the public features they like (there's no personna non grata flag to set that will chase out people you don't like--the auction owner will have to do that). @set bid=help/privileges.long#/2: There are also auctioneer privileges; only {commas:{lsort:{parse:n,{list:_authlist,this},{name:{&n}}}}, or } may put someone up for sale. Auctioneers may also look at another user's account information, and have a few other perks. @set bid=help/privileges.long#/3:{if:{lmember:{list:_authlist,this},{ref:me}}, As an auctioneer\, {name:me}\, you should also know that there's the class of privileged auctioneers who are allowed to promote other users to auctioneer status. Right now only {commas:{lsort:{parse:n,{list:_authsuper,this},{name:{&n}}}}, or } may promote or demote users. Since {name:{owner:this}} owns this action\, {pronouns:%s,{owner:this}} may edit the privileged auctioneer list; no one else can use the commands to do that.} @set bid=help/RTFM.short#:1 @set bid=help/RTFM.short#/1: RTFM stands for Read The, er, Fine Manual. If you RTFM here you will not have to ask the regulars questions that they are tired of answering. @set bid=help/scams.gamble.long#:3 @set bid=help/scams.gamble.long#/1:GAMBLE @set bid=help/scams.gamble.long#/2: For some reason\, the 'gamble' command brought hopeful scam artists out of the woodwork; so far nobody's found any scheme to reliably gain money from it\, but there's always someone who doesn't believe that. @set bid=help/scams.gamble.long#/3: A particular favorite is the plan to start with a low bid and double it until a win occurs, then start over. This doesn't actually work, but it's amazing how many people don't know enough math to prove why it doesn't produce profits. @set bid=help/scams.give.long#:4 @set bid=help/scams.give.long#/1:GIVE @set bid=help/scams.give.long#/2: Some people tried to give a negative number of {prop:_money/currency_name,this} to someone\, thinking that this would rob the target of money and gain them a profit. This doesn't work. While the target does lose money\, the code subtracts the absolute value from the giver's account! In other words\, if Foo tries to give Bar -5 gold {prop:_money/currency_name,this}\, they both lose five gold! It is\, obviously\, possible to make another user poorer\, but only by burning your own {prop:_money/currency_name,this} to do it. @set bid=help/scams.give.long#/3: It's also possible to give zero gold; this has been found useful as a way to check another user's account. That feature may be blocked in the future. @set bid=help/scams.give.long#/4: A third approach is to use alts or friends to avoid the gold tax. If the person who is getting money gives gold to another user\, the person with the income can avoid going over the {prop:_money/goldtax,this} {prop:_money/currency_name,this} line below which there's no gold tax. This works; the tax examination is done only at the time that the new gold actually comes in. It can be troublesome to keep track of\, however. @set bid=help/scams.long#:10 @set bid=help/scams.long#/1:{if:{lcommon:{list:_authlist,this},{ref:me}}, @set bid=help/scams.long#/10:} @set bid=help/scams.long#/2: People keep trying to find one scam or another to get something for nothing\, so here's a list of the known scams and why they (usually) don't work. (There actually are a few tricks that can enhance a user's performance\, but they usually don't do much.) I'll keep this updated as new ideas appear. @set bid=help/scams.long#/3: It's also possible to read only parts of this list; for example\, if you only wanted to know about 'give' scams you should type 'longhelp scams.give'. Unlike this full list\, the individual command scam lists do not require that the reader be an auctioneer; this is so you can show someone the 'official' answer to some question if it becomes necessary. @set bid=help/scams.long#/4: {nl}{eval:{list:help/scams.gamble.long,this}} @set bid=help/scams.long#/5: {nl}{eval:{list:help/scams.give.long,this}} @set bid=help/scams.long#/6: {nl}{eval:{list:help/scams.sell.long,this}} @set bid=help/scams.long#/7: {nl} If you find any other noteworthy schemes\, please tell {name:{owner:this}}! @set bid=help/scams.long#/8:, @set bid=help/scams.long#/9: Only auctioneers are shown the scam report. @set bid=help/scams.sell.long#:2 @set bid=help/scams.sell.long#/1:SELL @set bid=help/scams.sell.long#/2: The only sell 'feature' worth noting here is that auctioneers can convert silver into gold by selling themselves to themselves. It's recorded on the history file, though, so it's not exactly secret! @set bid=help/scams.short#:6 @set bid=help/scams.short#/1:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=help/scams.short#/2: People keep trying to find one scam or another to get something for nothing\, so there's a list of the known scams and why they (usually) don't work. For the whole and rather spammy list type 'longhelp scams'. @set bid=help/scams.short#/3: It's also possible to read only parts of the list; for example\, if you only wanted to know about 'give' scams you should type 'longhelp scams.give'. Unlike the full list\, the individual command scam lists do not require that the reader be an auctioneer; this is so you can show someone the 'official' answer to some question if it becomes necessary. @set bid=help/scams.short#/4:, @set bid=help/scams.short#/5: Only auctioneers are shown the scam report. @set bid=help/scams.short#/6:} @set bid=help/sell.long#:1 @set bid=help/sell.long#/1: The help file for the 'sell' action isn't yet written. It'll probably be pretty long when it is finished. @set bid=help/sell.short#:16 @set bid=help/sell.short#/1: 'Sell' is the one command that auctioneers need to know; indeed, it does pretty much everything that an auctioneer will want to do! It's a smart command and very flexible. @set bid=help/sell.short#/10: @set bid=help/sell.short#/11: SELL #NEXT This unchains the next slave on the sales chain and puts them @set bid=help/sell.short#/12: up on the block. It's very useful for busy auctions! @set bid=help/sell.short#/13: @set bid=help/sell.short#/14: SELL #DEBUG If you get an MPI error, type this and try again. @set bid=help/sell.short#/15: @set bid=help/sell.short#/16: More instructions may be found in 'longhelp sell' eventually. @set bid=help/sell.short#/2: @set bid=help/sell.short#/3: SELL By itself, 'sell' will close a sale if there is an auction currently @set bid=help/sell.short#/4: in progress. If there's no auction running, it gives you the gavel. @set bid=help/sell.short#/5: @set bid=help/sell.short#/6: SELL [name] This puts the named person up for sale. If the named person @set bid=help/sell.short#/7: isn't in the room, it gives a message complaining about that. @set bid=help/sell.short#/8: @set bid=help/sell.short#/9: SELL #HELP Typing this shows you this screen! @set bid=help/settings.long#:12 @set bid=help/settings.long#/1: There are a numer of settings that can be changed to customize the auction system. The current settings are as follows: @set bid=help/settings.long#/10: Gambling is set to a maximum bet of {prop:_money/gamble.limit,this} and is available to users who don't have more than {prop:_money/gamble.wealth,this} silver. @set bid=help/settings.long#/11: @set bid=help/settings.long#/12: The Auction II announcement symbol is this: {prop:_misc/symbol,this} @set bid=help/settings.long#/2: The current auctioneers are {commas:{lsort:{parse:n,{list:_authlist,bid},{name:{&n}}}}}. This list can be changed by the Auction II code owner, {name:{owner:this}}. @set bid=help/settings.long#/3: @set bid=help/settings.long#/4: For the ATM: users may use the ATM once every {timestr:{prop:_money/ATM_delay,this}} ({prop:_money/ATM_delay,this} seconds). They will get {prop:_money/ATM_output,this} units unless their accounts total over the limit of {prop:_money/ATM_limit,this}. The currency name is '{prop:_money/currency_name,this}'. @set bid=help/settings.long#/5: @set bid=help/settings.long#/6: The silver tax is {prop:_money/silvertax,this}% per week. Taxation weeks roll over at midnight and may start on Sunday (%U) or Monday (%W)\, whichever may be needed to avoid occuring during an auction (which could be confusing); currently it's set for {with:week,{prop:_money/silvertime,this},'{&week}'\, meaning {if:{eq:{&week},%U},Sunday,{if:{eq:{&week},%W},Monday,something is badly wrong! Please tell {name:{owner:this}} immediately}}}. @set bid=help/settings.long#/7: Speaking of time, {if:{prop:auctiondays,here},auction days are recorded,nobody has set any auction day}. @set bid=help/settings.long#/8: The gold tax begins to take effect when a person exceeds {prop:_money/goldtax,this} gold {prop:_money/currency_name,this}. @set bid=help/settings.long#/9: @set bid=help/silver.short#:1 @set bid=help/silver.short#/1: Silver is one of the two types of money. Type 'shorthelp money'. @set bid=help/spiff.long#:3 @set bid=help/spiff.long#/1:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=help/spiff.long#/2: The 'sell #spiff' command is a very simple spoof substitute that only works for auctioneers. The good news is that you can escape whatever controls on spoofing are on the room; the bad news is that any auctioneer can be VERY annoying with it and there's no way to know who did it or to stop them. This means an auctioneer had BETTER be trustworthy\, since as written now this command is wide open to abuse! Be good and play nice! @set bid=help/spiff.long#/3:,{null:{exec:func/longhelp#/5,this}}} @set bid=help/taxes.long#:5 @set bid=help/taxes.long#/1: Both silver and gold are taxed, but in different ways. @set bid=help/taxes.long#/2: @set bid=help/taxes.long#/3: Silver is taxed in realtime, at {prop:_money/silvertax,this}% per week. (Don't bother trying to just stay away for a week. The system keeps track of these things.) That number can be changed, since the rate of taxation should be raised if the population starts getting too rich or lowered if people are too poor. For what it's worth, rounding is always in favor of the user. Since silver comes from the ATM for free, it's no big deal that it gets taken back again, eh? @set bid=help/taxes.long#/4: @set bid=help/taxes.long#/5: Gold is earned, however, so it's not taxed indefinitely the way silver is. There is no tax on gold at all unless the recipient already has over {prop:_money/goldtax,this} gold, in which case the income is reduced on a sliding scale. The formula is (incoming gold * {prop:_money/goldtax,this}) / current gold. (That number can be changed, too, if it has to be.) The object is to make it fairly easy to get some gold, but difficult to become very wealthy in gold. @set bid=help/to-do.long#:19 @set bid=help/to-do.long#/1: {name:{owner:this}}'s TO-DO list, in no particular order: @set bid=help/to-do.long#/10: * Add new-user bonus? @set bid=help/to-do.long#/11: * Realtime prompt to auctioneer! @set bid=help/to-do.long#/12: * Finish upgrade of database format @set bid=help/to-do.long#/13: * Have departing furs removed from the sales chain @set bid=help/to-do.long#/14: For that matter, sleepers never need to be put on the chain. @set bid=help/to-do.long#/15: * Allow puppets to use a specific few commands (like 'status') @set bid=help/to-do.long#/16: * Code the help subject lists so that they can be updated by MPI @set bid=help/to-do.long#/17: * Make a chain lock-out, to keep people from adding to the chain when the auctioneer is tired. @set bid=help/to-do.long#/18: @set bid=help/to-do.long#/19: Please tell {name:{owner:this}} if you discover something that needs to be done! @set bid=help/to-do.long#/2: High priority: @set bid=help/to-do.long#/3: * Improve help features @set bid=help/to-do.long#/4: * Write documentation for new auctioneers (also eventually new owner) @set bid=help/to-do.long#/5: * Gamble delay (of awake people^2 seconds) to reduce spam! @set bid=help/to-do.long#/6: * Gamble #gag? (for an hour or so, usable by auctioneers) @set bid=help/to-do.long#/7: @set bid=help/to-do.long#/8: Low Priority: @set bid=help/to-do.long#/9: * Code a twit lockout feature? @set bid=help/unchain.short#:1 @set bid=help/unchain.short#/1:{eval:{list:desc/unchain,this}} "Loading response messages. @set bid=mesg/ATM.new_user#:1 @set bid=mesg/ATM.new_user#/1: Welcome to the Auction II program, {name:me}; I see this is your first time using the ATM. Be sure to type 'shorthelp', which will direct you to the various help files. @set bid=mesg/atm.osucc#:26 @set bid=mesg/atm.osucc#/1:raids the ATM for more money. {pronouns:%S gets %r} {prop:_money/ATM_output,this} silver {prop:_money/currency_name,this} and an AOL trial disk! @set bid=mesg/atm.osucc#/10:finds a pencil on the ATM and alters {pronouns:%p account to give %r} another {prop:_money/ATM_output,this} silver {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/11:tickles the ATM with a feather until it trembles and gives {pronouns:%p} {prop:_money/ATM_output,this} silver {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/12:{if:{eq:{count:{contents:here,player}},1},gets {prop:_money/ATM_output,this} {prop:_money/currency_name,this} out of the ATM! *Ka-ching!*,sneaks over to {name:{lrand:{lremove:{contents:here,player},*{name:me}}}} and steals {prop:_money/ATM_output,this} {prop:_money/currency_name,this}!} @set bid=mesg/atm.osucc#/13:finds {prop:_money/ATM_output,this} {prop:_money/currency_name,this} stuck to the bottom of {pronouns:%p} shoe! @set bid=mesg/atm.osucc#/14:{if:{eq:{count:{contents:here,player}},1},gets money! *Ka-ching!*,strip mines {name:{lrand:{lremove:{contents:here,player},*{name:me}}}} for the valuable mineral deposits!{if:{gt:{dice:2},1}, {name:me} makes {prop:_money/ATM_output,this} {prop:_money/currency_name,this}!}} @set bid=mesg/atm.osucc#/15:buys a MegaSloth product! {pronouns:%S gets a refund of {prop:_money/ATM_output,this} {prop:_money/currency_name,this}\, %p} own entry in the MegaSloth junk mail database, and a piece of bug ridden software! @set bid=mesg/atm.osucc#/16:discovers that the ATM runs under a MicroSloth operating system! {pronouns:%S exploits yet another well known bug\, making the ATM give %o} {prop:_money/ATM_output,this} {prop:_money/currency_name,this} and suffer a total system crash! @set bid=mesg/atm.osucc#/17:beats on the ATM and screams, "Give me some &*#^@ money!!!" @set bid=mesg/atm.osucc#/18:finds a note in {pronouns:%p pocket that reads: 'IOU {prop:_money/ATM_output,this} {prop:_money/currency_name,this}. {name:{owner:this}}.' %S}'s got money! @set bid=mesg/atm.osucc#/19:sells some of {pronouns:%p stock in Squishysoft Corporation\, gaining %o} a tidy profit of {prop:_money/ATM_output,this} {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/2:runs {pronouns:%p} card through the ATM and is rewarded with more {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/20:wants money from the ATM! The machine runs McAfee Virus Scan on {pronouns:%N and pronounces %o clean\, so %s} gets {prop:_money/ATM_output,this} {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/21:sends US troops into Uznibekisnarfiplopistan after the strategic stockpile of {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/22:{if:{eq:{count:{contents:here,player}},1},gets money! *Ka-ching!*,sells {name:{lrand:{lremove:{contents:here,player},*{name:me}}}} on e-bay for {prop:_money/ATM_output,this} {prop:_money/currency_name,this}!} @set bid=mesg/atm.osucc#/23:{if:{eq:{count:{contents:here,player}},1},gets money! *Ka-ching!*,sells {with:x,{name:{lrand:{lremove:{contents:here,player},*{name:me}}}},{&x}'s clothes on e-bay! {pronouns:%S} makes {prop:_money/ATM_output,this} {prop:_money/currency_name,this} and {&x}} is naked!} @set bid=mesg/atm.osucc#/24:{if:{eq:{count:{contents:here,player}},1},gets money! *Ka-ching!*,sells naked pictures of {name:{lrand:{lremove:{contents:here,player},*{name:me}}}}\, and makes {prop:_money/ATM_output,this} {prop:_money/currency_name,this}!} @set bid=mesg/atm.osucc#/25:attemts to withdraw money but gets an ERROR 404: ATM NOT FOUND!{null:{delay:{dice:9},{lit:{null:{otell: {prop:_misc/symbol,this} {name:me} complains to {name:{owner:this}} and gets {prop:_money/ATM_output,this} {prop:_money/currency_name,this} as a consolation!,here,-1}}}}} @set bid=mesg/atm.osucc#/26:enters an '80s dance contest and walks like an Egyptian to win {prop:_money/ATM_output,this} {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/3:shakes down the ATM for more silver {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/4:raids the ATM! You never know when you'll need {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/5:whaps the ATM really hard and {prop:_money/ATM_output,this} {prop:_money/currency_name,this} pour out! @set bid=mesg/atm.osucc#/6:lifts up the ATM and shakes really, really hard, until silver {prop:_money/currency_name,this} pour out! @set bid=mesg/atm.osucc#/7:runs around the room checking under all the seat cushions, and finds another {prop:_money/ATM_output,this} {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/8:ignores the ATM; {pronouns:%s runs around the room checking under all the seat cushions until %s} finds another {prop:_money/ATM_output,this} {prop:_money/currency_name,this}! @set bid=mesg/atm.osucc#/9:whaps the side of the ATM with {pronouns:%p} hand, causing it to pour out {prop:_money/ATM_output,this} silver {prop:_money/currency_name,this} and the Happy Days theme song! @set bid=mesg/ATM.too_rich#:1 @set bid=mesg/ATM.too_rich#/1: The ATM won't give you any more {prop:_money/currency_name,this} right now; you have {lexec:_money/wealth,this}, and it stops doling out money at {prop:_money/ATM_limit,this}. @set bid=mesg/atm.too_soon#:3 @set bid=mesg/atm.too_soon#/1: Sorry, you can't withdraw any more money yet; your last withdrawal was at {ftime:%k:%M on %b %e,,{prop:_player/{ref:me}/ATM_last,this}}. @set bid=mesg/atm.too_soon#/2: Sorry, but you can't withdraw any more {prop:_money/currency_name,this} yet. @set bid=mesg/atm.too_soon#/3: Sorry, but you can't withdraw any more {prop:_money/currency_name,this} for another {ltimestr:{subt:{add:561600,{prop:_player/{ref:me}/atm_last,bid}},{secs}}}. @set bid=mesg/ATM.withdrawal#:1 @set bid=mesg/ATM.withdrawal#/1: You withdraw {prop:_money/ATM_output,this} {prop:_money/currency_name,this}! You now have {prop:_player/{ref:me}/silver,this} silver{if:{ne:{prop:_player/{ref:me}/gold,this},}, and {prop:_player/{ref:me}/gold,this} gold} {prop:_money/currency_name,this}. @set bid=mesg/bid.announcement#:4 @set bid=mesg/bid.announcement#/1:{pronouns:%n} bids {&arg}! @set bid=mesg/bid.announcement#/2:{pronouns:%n} bids {&arg} on {prop:_auction/slave,this}! @set bid=mesg/bid.announcement#/3:{pronouns:%n} bids {&arg} {prop:_money/currency_name,this}! @set bid=mesg/bid.announcement#/4:{pronouns:%n} bids {&arg} {prop:_money/currency_name,this} on {prop:_auction/slave,this}! @set bid=mesg/bid.bid#:2 @set bid=mesg/bid.bid#/1:{pronouns:%N,me} bids {&arg} {prop:_money/currency_name,this} on {prop:_auction/slave,this}! @set bid=mesg/bid.bid#/2:{pronouns:%N,me} will buy {prop:_auction/slave,this} for {&arg} {prop:_money/currency_name,this}! @set bid=mesg/bid.help#:2 @set bid=mesg/bid.help#/1: This is the bid action; it should be followed by the number of {prop:_money/currency_name,this} you wish to bid. @set bid=mesg/bid.help#/2: This is the bid action; it should be followed by the amount of money you wish to bid. Currently you have {lexec:_money/you_have,this}. @set bid=mesg/bid.no_auction#:1 @set bid=mesg/bid.no_auction#/1: There is no auction running right now. @set bid=mesg/bid.too_low#:1 @set bid=mesg/bid.too_low#/1: Your bid of {&arg} is not enough; {prop:_auction/bidder,this} has already bid {prop:_auction/high_bid,this} {prop:_money/currency_name,this}. @set bid=mesg/bid.too_poor#:2 @set bid=mesg/bid.too_poor#/1: You can't bid {&arg} {prop:_money/currency_name,this}; you only have {add:{prop:_player/{ref:me}/silver,this},{prop:_player/{ref:me}/gold,this}}. Sorry. @set bid=mesg/bid.too_poor#/2: You only have {lexec:_money/wealth,this} {prop:_money/currency_name,this}, so you can't bid {&arg}. @set bid=mesg/chain.help#:4 @set bid=mesg/chain.help#/1: The sales chain is actually very simple. The command 'chain' is used to put people onto the list of slaves to be sold; the command 'unchain' will take people off that list. You can look at the chain to see who's up for sale next. It's not allowed to be on the chain twice; trying to add a player to the chain who's already there will appear to work but have no effect. @set bid=mesg/chain.help#/2: You are allowed to chain yourself; you are allowed to chain another person only if you are that person's registered owner or if you're the auctioneer. The auctioneer can chain any player (puppets can't be sold, so they can't be chained, either).{if:{lmember:{list:_authlist,this},{ref:me}},{nl} {name:me}\, you might not want to spread this around\, but actually an auctioneer can even chain another player even if that person isn't present or is asleep; there's no permission checking done.} @set bid=mesg/chain.help#/3: Typing 'chain me' or 'unchain me' will be enough for most users. @set bid=mesg/chain.help#/4: Also check out 'unchain #help' or 'shorthelp unchain'. @set bid=mesg/gamble.loose#:3 @set bid=mesg/gamble.loose#/1:{name:me} gambles {&arg} {prop:_money/currency_name,this} but loses! @set bid=mesg/gamble.loose#/2:{name:me} risks {&arg} silver gambling and loses it all! @set bid=mesg/gamble.loose#/3:{name:me} gambles and loses {&arg} silver! @set bid=mesg/gamble.too-rich#:1 @set bid=mesg/gamble.too-rich#/1: You're too wealthy to need to gamble. You have {prop:_player/{ref:me}/silver,this} silver, and gambling is only permitted to people with less than {prop:_money/gamble.wealth,this}. @set bid=mesg/gamble.win#:1 @set bid=mesg/gamble.win#/1:{name:me} gambles {&arg} {prop:_money/currency_name,this} and wins! @set bid=mesg/give.otell#:3 @set bid=mesg/give.otell#/1:{name:me} gives {&gift} gold {prop:_money/currency_name,this} to {name:*{&target}}! @set bid=mesg/give.otell#/2:{name:me} gives {&gift} gold {prop:_money/currency_name,this} to {pronouns:%p,me} friend {name:*{&target}}! @set bid=mesg/give.otell#/3:{name:me} gives {&gift} gold {prop:_money/currency_name,this} to {name:*{&target}}! How generous of {pronouns:%o,me}! @set bid=mesg/give.succ#:1 @set bid=mesg/give.succ#/1:You've given {&gift} to {name:*{&target}}, who now has {prop:_player/{&targetdbref}/gold,this} gold {prop:_money/currency_name,this}; you now have {prop:_player/{ref:me}/gold,this} gold {prop:_money/currency_name,this}. @set bid=mesg/give.too_poor#:1 @set bid=mesg/give.too_poor#/1:Hey, you can't give {&gift} gold {prop:_money/currency_name,this} away when you only have {prop:_player/{ref:me}/gold,this}! @set bid=mesg/misc.eastereggs#:6 @set bid=mesg/misc.eastereggs#/1:Easter eggs are invisible to {name:me}. @set bid=mesg/misc.eastereggs#/2:{name:me} hunts for easter eggs.{null:{delay:{dice:9},{lit:After all, Dina wouldn't hide secret goodies in her code, would she, {name:me}?}}} @set bid=mesg/misc.eastereggs#/3:{name:me} doesn't see the hidden easter egg. @set bid=mesg/misc.eastereggs#/4:{name:me} cries, "Ni!"{null:{delay:{dice:9},{lit:Do you really believe that, {name:me}?}}} @set bid=mesg/misc.eastereggs#/5:Somewhere in the room, {name:me} narrowly misses seeing the easter egg!{null:{delay:{dice:9},{lit:Do you really believe that there are no easter eggs, {name:me}?}}} @set bid=mesg/misc.eastereggs#/6:{name:me} reads the help files as an easter egg rolls across the floor behind {pronouns:%o}.{null:{delay:{dice:9},{lit:You should never type 'shorthelp birthday party'\, either\, {name:me}.}}} @set bid=mesg/misc.eastereggs-daily#:3 @set bid=mesg/misc.eastereggs-daily#/1:{if:{eq:{ftime:%m%d},1225}, {delay:{dice:19}, But Merry Christmas anyway\, {name:me}!}, @set bid=mesg/misc.eastereggs-daily#/2: {if:{eq:{ftime:%m%d},0101},{delay:{dice:30},--> Happy New Year {ftime:%Y}\, {name:me}! <--}, @set bid=mesg/misc.eastereggs-daily#/3:}} @set bid=mesg/owner.help#:6 @set bid=mesg/owner.help#/1:OWNER This action will set your registered owner or inform you who @set bid=mesg/owner.help#/2: is the registered owner of another user. Usage: @set bid=mesg/owner.help#/3: @set bid=mesg/owner.help#/4: OWNER FOO Tells you the name of Foo's owner. @set bid=mesg/owner.help#/5: OWNER #SET Sets your registered ownership. @set bid=mesg/owner.help#/6: OWNER #HELP Shows you this message. @set bid=mesg/permission.denied#:1 @set bid=mesg/permission.denied#/1:{tell: Permission denied. The requested function is restricted to authorized auction managers.,me} @set bid=mesg/petprefs.report#:1 @set bid=mesg/petprefs.report#/1:{name:*{&pname}} has the following petprefs:*{nl}{prop:_player/{prop:_names/{&pname},this}/petprefs,this} @set bid=mesg/sell.busy#:1 @set bid=mesg/sell.busy#/1: There is already an auction going on; wait until {prop:_auction/auctioneer,this} is done selling {prop:_auction/slave,this}, okay? @set bid=mesg/sell.for_sale#:2 @set bid=mesg/sell.for_sale#/1:{pronouns:%N,me} puts {&arg} up for sale! Who will bid? @set bid=mesg/sell.for_sale#/2:{pronouns:%N,me} opens the bidding on {&arg}! @set bid=mesg/sell.new_auctioneer#:2 @set bid=mesg/sell.new_auctioneer#/1:{pronouns:%N,me} takes up the gavel! @set bid=mesg/sell.new_auctioneer#/2:{pronouns:%N,me} takes up the auctioneer's gavel! @set bid=mesg/sell.slave#:1 @set bid=mesg/sell.slave#/1: {prop:_misc/symbol,this} You are now up for bid. Type 'abort' to quit. {prop:_misc/symbol,this} @set bid=mesg/sell.sold#:2 @set bid=mesg/sell.sold#/1:{pronouns:%N,me} calls, "SOLD!" {prop:_auction/bidder,this} buys {prop:_auction/slave,this} for {prop:_auction/high_bid,this} {prop:_money/currency_name,this}! @set bid=mesg/sell.sold#/2:{pronouns:%N,me} says, "SOLD to {prop:_auction/bidder,this} for {prop:_auction/high_bid,this} {prop:_money/currency_name,this}!" @set bid=mesg/sell.winner#:2 @set bid=mesg/sell.winner#/1: You buy {prop:_auction/slave,this} for {prop:_auction/high_bid,this} {prop:_money/currency_name,this}! @set bid=mesg/sell.winner#/2: You've bought {prop:_auction/slave,this} for {prop:_auction/high_bid,this} {prop:_money/currency_name,this}! @set bid=mesg/status.auction#:3 @set bid=mesg/status.auction#/1: {prop:_auction/bidder,this} has bid {prop:_auction/high_bid,this} {prop:_money/currency_name,this} on {prop:_auction/slave,this}. {rand:mesg/status.petprefs,this} @set bid=mesg/status.auction#/2: The most recent bid on {prop:_auction/slave,this} was {prop:_auction/high_bid,this} by {prop:_auction/bidder,this}, {ltimestr:{subt:{secs},{prop:_auction/bid_time,this}}} ago. {rand:mesg/status.petprefs,this} @set bid=mesg/status.auction#/3: {prop:_auction/bidder,this} bid {prop:_auction/high_bid,this} {prop:_money/currency_name,this} on {prop:_auction/slave,this}, {ltimestr:{subt:{secs},{prop:_auction/bid_time,this}}} ago. {rand:mesg/status.petprefs,this} @set bid=mesg/status.nobid#:1 @set bid=mesg/status.nobid#/1: On the auction block is {prop:_auction/slave,this}; there have been no bids yet. @set bid=mesg/status.petprefs#:1 @set bid=mesg/status.petprefs#/1:{prop:_auction/slave,this} has {if:{prop:_player/{prop:_names/{prop:_auction/slave,this},this}/petprefs,this},the following petprefs:{nl}{prop:_player/{prop:_names/{prop:_auction/slave,this},this}/petprefs,this},no petprefs.} "Loading # support files. This is the last major section of code. @set bid=pound/aa: /* POUND SUPPORT HERE, OBVIOUSLY, BY COMMAND */ @set bid=pound/abort/help#:1 @set bid=pound/abort/help#/1:{tell:{list:desc/abort,this},me} @set bid=pound/atm/demote#:26 @set bid=pound/atm/demote#/1:{with:number,{midstr:{&arg},9,-1}, @set bid=pound/atm/demote#/10: , @set bid=pound/atm/demote#/11: {with:mydir,_player/{ref:me}/, @set bid=pound/atm/demote#/12: {if:{gt:{&number},{prop:{&mydir}gold,this}}, @set bid=pound/atm/demote#/13: {tell: You don't have {&number} gold; you only have {prop:{&mydir}gold,this} gold {prop:_money/currency_name,this} to convert.,me} @set bid=pound/atm/demote#/14: , @set bid=pound/atm/demote#/15: {store:{add:{prop:{&mydir}silver,this},{&number}},{&mydir}silver,this} @set bid=pound/atm/demote#/16: {store:{subt:{prop:{&mydir}gold,this},{&number}},{&mydir}gold,this} @set bid=pound/atm/demote#/17: {tell: {prop:_misc/symbol,this} You convert {&number} gold {prop:_money/currency_name,this} back into silver! You now have {prop:{&mydir}silver,this} silver and {prop:{&mydir}gold,this} gold.,me} @set bid=pound/atm/demote#/18: }} @set bid=pound/atm/demote#/19: } @set bid=pound/atm/demote#/2:{if:{isnum:{&number}}, @set bid=pound/atm/demote#/20:, @set bid=pound/atm/demote#/21: {if:{eq:{&arg},#demote}, @set bid=pound/atm/demote#/22: {tell: This feature lets you turn gold {prop:_money/currency_name,this} back into silver. The usage is 'ATM #demote [number]'.,me} @set bid=pound/atm/demote#/23: , @set bid=pound/atm/demote#/24: {tell: You need to supply a number there\, and '{&number}' isn't a number.,me} @set bid=pound/atm/demote#/25:}}} @set bid=pound/atm/demote#/26:atm #demote 888u @set bid=pound/atm/demote#/3: {if:{lt:{&number},1}, @set bid=pound/atm/demote#/4: {if:{lt:{&number},0}, @set bid=pound/atm/demote#/5: {tell: No\, you can't run the command backwards to turn silver into gold; Dina already thought of that! But good for you to have thought of it.,me} @set bid=pound/atm/demote#/6: {otell: {prop:_misc/symbol,this} {name:me} just found an easter egg\, but {pronouns:%s} doesn't know it.} @set bid=pound/atm/demote#/7: , @set bid=pound/atm/demote#/8: {tell: You can't convert zero {prop:_money/currency_name,this}; that would be silly.,me} @set bid=pound/atm/demote#/9: } @set bid=pound/atm/help#:1 @set bid=pound/atm/help#/1:{tell:{eval:{list:help/atm.short,this}},me} @set bid=pound/atm/learn#:6 @set bid=pound/atm/learn#/1:{if:{eq:{prop:_names/{name:me},this},}, @set bid=pound/atm/learn#/2: {store:{ref:me},_names/{name:me},this} @set bid=pound/atm/learn#/3: {tell: Okay\, {name:me}\, I'll know you from now on. Thanks!,me} @set bid=pound/atm/learn#/4:, @set bid=pound/atm/learn#/5: {tell: Your name and dbref is already on file\, {name:me}. But thanks for checking.,me} @set bid=pound/atm/learn#/6:} @set bid=pound/chain/help#:1 @set bid=pound/chain/help#/1:{tell:{list:help/chain.short,this},me} @set bid=pound/gamble/help#:1 @set bid=pound/gamble/help#/1:{tell:{eval:{list:help/gamble.short,this}}} @set bid=pound/give/help#:1 @set bid=pound/give/help#/1:{tell:{eval:{list:desc/give,this}},me} @set bid=pound/history/help#:1 @set bid=pound/history/help#/1:{tell:{list:help/history.short,this},me} @set bid=pound/history/last#:1 @set bid=pound/history/last#/1:{tell: Last week's history: {nl}{list:/history/last.week,this},me} @set bid=pound/irs/help#:5 @set bid=pound/irs/help#/1:{if:{lcommon:{list:_authlist,this},{ref:me}}, @set bid=pound/irs/help#/2: {tell: The IRS command is pretty simple; with no arguement it will show the wealth of everyone in the room\, but given a name it will report the wealth of that person (if any). It is an auctioneer-only command.{nl} An additional feature is 'irs #wealth'\, which will list users in order of wealth (the default is alphabetical order).,me} @set bid=pound/irs/help#/3:, @set bid=pound/irs/help#/4: {tell: The IRS command is an auctioneer-only command used to check wealth.} @set bid=pound/irs/help#/5:} @set bid=pound/irs/wealth#:29 @set bid=pound/irs/wealth#/1:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/irs/wealth#/10: {add:{&silver},{&gold}} Total (ATM @set bid=pound/irs/wealth#/11: {if:{lt:{add:{prop:_player/{ref:{&person}}/ATM_last,this},{prop:_money/ATM_delay,this}},{secs}}, Y, N})\, @set bid=pound/irs/wealth#/12: {prop:_misc/symbol,this} {left:{&person} ,20,.} @set bid=pound/irs/wealth#/13: {right: {&silver} S ,10,.} @set bid=pound/irs/wealth#/14: {right: {if:{&gold},{&gold},0} G ,10,.} @set bid=pound/irs/wealth#/15: }} @set bid=pound/irs/wealth#/16: } @set bid=pound/irs/wealth#/17: }} @set bid=pound/irs/wealth#/18: } @set bid=pound/irs/wealth#/19: {foreach:patron,{lsort:{&patrons}}, @set bid=pound/irs/wealth#/2: {with:nomoney,,{with:patrons,, @set bid=pound/irs/wealth#/20: {tell:{sublist:{&patron},2,2,\,} @set bid=pound/irs/wealth#/21: {right:{sublist: {&patron},1,1,\,},22,.},me} @set bid=pound/irs/wealth#/22: } @set bid=pound/irs/wealth#/23: {if:{&nomoney}, @set bid=pound/irs/wealth#/24: {tell: {commas:{lsort:{&nomoney}}} {if:{gt:{count:{&nomoney}},1},have,has} no money.,me} @set bid=pound/irs/wealth#/25: } @set bid=pound/irs/wealth#/26: }} @set bid=pound/irs/wealth#/27:, @set bid=pound/irs/wealth#/28: {tell: No way\, {name:me}. Only auctioneers may use this feature.,me} @set bid=pound/irs/wealth#/29:} @set bid=pound/irs/wealth#/3: {foreach:person,{subst:{contents:here,player},*,}, @set bid=pound/irs/wealth#/4: {with:silver,{prop:_player/{ref:{&person}}/silver,this}, @set bid=pound/irs/wealth#/5: {with:gold,{prop:_player/{ref:{&person}}/gold,this}, @set bid=pound/irs/wealth#/6: {if:{eq:{add:{&gold},{&silver}},0}, @set bid=pound/irs/wealth#/7: {set:nomoney,{mklist:{&nomoney},{&person}}} @set bid=pound/irs/wealth#/8: , @set bid=pound/irs/wealth#/9: {set:patrons,{mklist:{&patrons}, @set bid=pound/longhelp/help#:1 @set bid=pound/longhelp/help#/1:{tell:{list:help/longhelp.short,this},me} @set bid=pound/owner/all#:1 @set bid=pound/owner/all#/1:{tell: At this time\, there's no support for the code to list all present people's owners. Stay tuned. Bug Dina about it.,me} @set bid=pound/owner/help#:1 @set bid=pound/owner/help#/1:{tell:{eval:{list:mesg/owner.help,this}}} @set bid=pound/owner/set#:11 @set bid=pound/owner/set#/1:{if:{eq:{&arg},#set}, @set bid=pound/owner/set#/10:} @set bid=pound/owner/set#/11:{if:{prop:_names/{name:me},this},,{store:{ref:me},_names/{name:me},this}} @set bid=pound/owner/set#/2: {tell: You need to supply an arguement here. Who is it that owns you?,me} @set bid=pound/owner/set#/3:, @set bid=pound/owner/set#/4: {if:{prop:_names/{midstr:{&arg},6,-1},this}, @set bid=pound/owner/set#/5: {store:{prop:_names/{midstr:{&arg},6,-1},this},_player/{ref:me}/owner,this} @set bid=pound/owner/set#/6: {tell: Stored. It's on record that {name:me} belongs to {name:{prop:_player/{ref:me}/owner,this}}.,me} @set bid=pound/owner/set#/7: , @set bid=pound/owner/set#/8: {tell: Sorry\, I can't find anyone named '{midstr:{&arg},6,-1}' on record.,me} @set bid=pound/owner/set#/9: } @set bid=pound/petprefs/chain#:13 @set bid=pound/petprefs/chain#/1:{with:noprefs,,{with:yesprefs,, @set bid=pound/petprefs/chain#/10: {if:{&noprefs}, @set bid=pound/petprefs/chain#/11: {tell: The player{if:{gt:{count:{&noprefs}},1},s {commas:{&noprefs}} have, {commas:{&noprefs}} has} no recorded petprefs.,me} @set bid=pound/petprefs/chain#/12: } @set bid=pound/petprefs/chain#/13:}} @set bid=pound/petprefs/chain#/2: {foreach:person,{prop:_auction/chain,this}, @set bid=pound/petprefs/chain#/3: {if:{prop:_player/{prop:_names/{&person},this}/petprefs,this}, @set bid=pound/petprefs/chain#/4: {set:yesprefs,{mklist:{&yesprefs}, {toupper:{&person}}: {prop:_player/{prop:_names/{&person},this}/petprefs,this}}} @set bid=pound/petprefs/chain#/5: , @set bid=pound/petprefs/chain#/6: {set:noprefs,{mklist:{&noprefs},{&person}}} @set bid=pound/petprefs/chain#/7: } @set bid=pound/petprefs/chain#/8: } @set bid=pound/petprefs/chain#/9: {if:{&yesprefs},{tell:{&yesprefs},me}} @set bid=pound/petprefs/clear#:7 @set bid=pound/petprefs/clear#/1:{if:{eq:{prop:_player/{ref:me}/petprefs,this},}, @set bid=pound/petprefs/clear#/2: {tell: You can't clear your temporary petprefs\, as you don't have any set.,me} @set bid=pound/petprefs/clear#/3:, @set bid=pound/petprefs/clear#/4: {tell: Old temporary petprefs: {prop:_player/{ref:me}/petprefs,this},me} @set bid=pound/petprefs/clear#/5: {delprop:_player/{ref:me}/petprefs,this} @set bid=pound/petprefs/clear#/6: {tell: Temporary petprefs have been removed; you have no temporary petprefs.,me} @set bid=pound/petprefs/clear#/7:} @set bid=pound/petprefs/help#:5 @set bid=pound/petprefs/help#/1:{tell:{eval:{list:help/petprefs.short,this}},me} @set bid=pound/petprefs/help#/2:{tell: This is the single most misunderstood command in the Auction II system\, but it'll help you debug any problems if you only let it. The usual situation is that a user sets their permanent petprefs but doesn't tell the system to notice that. Read 'longhelp petprefs' as soon as you can\, too.,me} @set bid=pound/petprefs/help#/3:{if:{and:{eq:{prop:_player/{ref:me}/petprefs,this},},{ne:{prop:_petprefs,me},}}, @set bid=pound/petprefs/help#/4: {tell: {name:me}\, you have this problem now; type 'petprefs #set' to fix it.,me} @set bid=pound/petprefs/help#/5:} @set bid=pound/petprefs/here#:13 @set bid=pound/petprefs/here#/1:{with:noprefs,,{with:yesprefs,, @set bid=pound/petprefs/here#/10: {if:{&noprefs}, @set bid=pound/petprefs/here#/11: {tell: The player{if:{gt:{count:{&noprefs}},1},s} {commas:{&noprefs}} ha{if:{gt:{count:{&noprefs}},1},ve,s} no recorded petprefs.,me} @set bid=pound/petprefs/here#/12: } @set bid=pound/petprefs/here#/13:}} @set bid=pound/petprefs/here#/2: {foreach:person,{subst:{lsort:{contents:here,player}},*,}, @set bid=pound/petprefs/here#/3: {if:{prop:_player/{prop:_names/{&person},this}/petprefs,this}, @set bid=pound/petprefs/here#/4: {set:yesprefs,{mklist:{&yesprefs}, {toupper:{name:{&person}}}: {prop:_player/{prop:_names/{&person},this}/petprefs,this}}} @set bid=pound/petprefs/here#/5: , @set bid=pound/petprefs/here#/6: {set:noprefs,{mklist:{&noprefs},{&person}}} @set bid=pound/petprefs/here#/7: } @set bid=pound/petprefs/here#/8: } @set bid=pound/petprefs/here#/9: {if:{&yesprefs},{tell:{&yesprefs},me}} @set bid=pound/petprefs/mpi#:1 @set bid=pound/petprefs/mpi#/1:{tell: The 'petprefs #mpi' essay hasn't been written yet. Complain to Dina.,me} @set bid=pound/petprefs/set#:16 @set bid=pound/petprefs/set#/1:{if:{eq:{&arg},#set}, @set bid=pound/petprefs/set#/10: {tell: You cannot use MPI in your petprefs. Sorry.,me} @set bid=pound/petprefs/set#/11: , @set bid=pound/petprefs/set#/12: {store:{midstr:{&arg},6,-1},_player/{ref:me}/petprefs,this} @set bid=pound/petprefs/set#/13: {tell: Your petprefs are now updated. The entry for {name:me} now reads:{nl}{prop:_player/{ref:me}/petprefs,this},me} @set bid=pound/petprefs/set#/14: } @set bid=pound/petprefs/set#/15:} @set bid=pound/petprefs/set#/16:{if:{prop:_names/{name:me},this},,{store:{ref:me},_names/{name:me},this}} @set bid=pound/petprefs/set#/2: {if:{prop:_petprefs,me}, @set bid=pound/petprefs/set#/3: {store:{prop:_petprefs,me},_player/{ref:me}/petprefs,this} @set bid=pound/petprefs/set#/4: {tell: Your petprefs are now updated. The entry for {name:me} now reads:{nl}{prop:_player/{ref:me}/petprefs,this},me} @set bid=pound/petprefs/set#/5: , @set bid=pound/petprefs/set#/6: {tell: You have nothing on your _petprefs property and haven't given me anything to record. I don't have any text to put on file.,me} @set bid=pound/petprefs/set#/7: } @set bid=pound/petprefs/set#/8:, @set bid=pound/petprefs/set#/9: {if:{ne:{&arg},{eval:{&arg}}}, @set bid=pound/sell/aucadd#:22 @set bid=pound/sell/aucadd#/1:{if:{not:{lmember:{list:_authsuper,this},{ref:me}}}, @set bid=pound/sell/aucadd#/10: , @set bid=pound/sell/aucadd#/11: {if:{lmember:{list:_authlist,this},{prop:_names/{&candidate},this}}, @set bid=pound/sell/aucadd#/12: {tell: Hey! {name:*{&candidate}} is already an auctioneer!,me} @set bid=pound/sell/aucadd#/13: , @set bid=pound/sell/aucadd#/14: {store:{add:{prop:_authlist#,this},1},_authlist#,this} @set bid=pound/sell/aucadd#/15: {store:{prop:_names/{&candidate},this},_authlist#/{prop:_authlist#,this},this} @set bid=pound/sell/aucadd#/16: {tell: You add {name:*{&candidate}} to the auctioneer list!,me} @set bid=pound/sell/aucadd#/17: {otell: {prop:_misc/symbol,this} {name:me} adds {name:*{&candidate}} to the auctioneer list! {prop:_misc/symbol,this},here,-1} @set bid=pound/sell/aucadd#/18: } @set bid=pound/sell/aucadd#/19: } @set bid=pound/sell/aucadd#/2: {tell: Only {commas:{lsort:{parse:n,{list:_authsuper,this},{name:{&n}}}}, or } may add new auctioneers.,me} @set bid=pound/sell/aucadd#/20: } @set bid=pound/sell/aucadd#/21: } @set bid=pound/sell/aucadd#/22:} @set bid=pound/sell/aucadd#/3:, @set bid=pound/sell/aucadd#/4: {if:{eq:{&arg},#aucadd}, @set bid=pound/sell/aucadd#/5: {tell: You have to provide the name of the new auctioneer.,me} @set bid=pound/sell/aucadd#/6: , @set bid=pound/sell/aucadd#/7: {with:candidate,{midstr:{&arg},9,-1}, @set bid=pound/sell/aucadd#/8: {if:{eq:{prop:_names/{&candidate},this},}, @set bid=pound/sell/aucadd#/9: {tell: There's no record of '{&candidate}' on the system. Sorry.,me} @set bid=pound/sell/aucrem#:28 @set bid=pound/sell/aucrem#/1:{if:{not:{lmember:{list:_authsuper,this},{ref:me}}}, @set bid=pound/sell/aucrem#/10: , @set bid=pound/sell/aucrem#/11: {if:{lmember:{list:_authlist,this},{prop:_names/{&person},this}}, @set bid=pound/sell/aucrem#/12: {with:auctioneers, @set bid=pound/sell/aucrem#/13: {lremove:{list:_authlist,this},{prop:_names/{&person},this}}, @set bid=pound/sell/aucrem#/14: {delprop:_authlist#/{prop:_authlist#,this},this} @set bid=pound/sell/aucrem#/15: {store:{subt:{prop:_authlist#,this},1},_authlist#,this} @set bid=pound/sell/aucrem#/16: {for:line,1,{prop:_authlist#,this},1, @set bid=pound/sell/aucrem#/17: {store:{sublist:{&auctioneers},{&line}},_authlist#/{&line},this} @set bid=pound/sell/aucrem#/18: } @set bid=pound/sell/aucrem#/19: } @set bid=pound/sell/aucrem#/2: {tell: Only {commas:{lsort:{parse:n,{list:_authsuper,this},{name:{&n}}}}, or } may remove an auctioneer.,me} @set bid=pound/sell/aucrem#/20: {tell: You take {name:*{&person}} off the auctioneer list!,me} @set bid=pound/sell/aucrem#/21: {otell: {prop:_misc/symbol,this} {name:me} removes {name:*{&person}} from the auctioneer list! {prop:_misc/symbol,this},here,-1} @set bid=pound/sell/aucrem#/22: , @set bid=pound/sell/aucrem#/23: {tell: Hey\, {name:*{&person}} isn't an auctioneer!,me} @set bid=pound/sell/aucrem#/24: } @set bid=pound/sell/aucrem#/25: } @set bid=pound/sell/aucrem#/26: } @set bid=pound/sell/aucrem#/27: } @set bid=pound/sell/aucrem#/28:} @set bid=pound/sell/aucrem#/3:, @set bid=pound/sell/aucrem#/4: {if:{eq:{&arg},#aucrem}, @set bid=pound/sell/aucrem#/5: {tell: You have to provide the name of the auctioneer to be removed.,me} @set bid=pound/sell/aucrem#/6: , @set bid=pound/sell/aucrem#/7: {with:person,{midstr:{&arg},9,-1}, @set bid=pound/sell/aucrem#/8: {if:{eq:{prop:_names/{&person},this},}, @set bid=pound/sell/aucrem#/9: {tell: There's no record of '{&person}' on the system. Sorry.,me} @set bid=pound/sell/debug#:14 @set bid=pound/sell/debug#/1:{tell:Running auto-debug.,me} @set bid=pound/sell/debug#/10: {tell: Bidder {&bidder}'s data is okay.,me} @set bid=pound/sell/debug#/11: , @set bid=pound/sell/debug#/12: {null: Bidder {&bidder}'s database entry is updated; try again.,me} @set bid=pound/sell/debug#/13: } @set bid=pound/sell/debug#/14:} @set bid=pound/sell/debug#/2:{foreach:name,{list:_authlist,this}, @set bid=pound/sell/debug#/3: {if:{not:{istype:{&name},player}}, @set bid=pound/sell/debug#/4: {tell: ERROR FOUND! The entry {&name} is invalid!} @set bid=pound/sell/debug#/5: {tell: Please have {owner:this} edit the _authlist to remove it.,me} @set bid=pound/sell/debug#/6: } @set bid=pound/sell/debug#/7:} @set bid=pound/sell/debug#/8:{with:bidder,{prop:_auction/bidder,this}, @set bid=pound/sell/debug#/9: {if:{prop:_names/{&bidder},this}, @set bid=pound/sell/demote#:33 @set bid=pound/sell/demote#/1:{tell: The #demote function is not yet installed.,me} @set bid=pound/sell/demote#/10: {if:{lmember:{list:_authsuper,this},{prop:_names/{&person},this}}, @set bid=pound/sell/demote#/11: {if:{dbeq:*{&person},{owner:this}}, @set bid=pound/sell/demote#/12: {tell: I can't do that; {name:{owner:this}} owns this code and may not be taken off of the privileged user list.,me} @set bid=pound/sell/demote#/13: , @set bid=pound/sell/demote#/14: {with:auctioneers, @set bid=pound/sell/demote#/15: {lremove:{list:_authsuper,this},{prop:_names/{&person},this}}, @set bid=pound/sell/demote#/16: {delprop:_authsuper#/{prop:_authsuper#,this},this} @set bid=pound/sell/demote#/17: {store:{subt:{prop:_authsuper#,this},1},_authsuper#,this} @set bid=pound/sell/demote#/18: {for:line,1,{prop:_authsuper#,this},1, @set bid=pound/sell/demote#/19: {store:{sublist:{&auctioneers},{&line}},_authsuper#/{&line},this} @set bid=pound/sell/demote#/2:{if:{dbeq:{owner:this},{ref:me}}, @set bid=pound/sell/demote#/20: } @set bid=pound/sell/demote#/21: {tell: You take {name:*{&person}} off the privileged list!,me} @set bid=pound/sell/demote#/22: {otell: {prop:_misc/symbol,this} {name:me} removes {name:*{&person}} from the auctioneer super-user list! {prop:_misc/symbol,this},here,-1} @set bid=pound/sell/demote#/23: } @set bid=pound/sell/demote#/24: } @set bid=pound/sell/demote#/25: , @set bid=pound/sell/demote#/26: {tell: {name:*{&person}} isn't on the privileged list! The privileged user list includes only {commas:{lsort:{parse:n,{list:_authsuper,this},{name:{&n}}}}}.,me} @set bid=pound/sell/demote#/27: } @set bid=pound/sell/demote#/28: } @set bid=pound/sell/demote#/29: } @set bid=pound/sell/demote#/3: {if:{eq:{&arg},#demote}, @set bid=pound/sell/demote#/30: } @set bid=pound/sell/demote#/31:, @set bid=pound/sell/demote#/32: {tell: Only {name:{owner:this}} may demote a privileged auctioneer.,me} @set bid=pound/sell/demote#/33:} @set bid=pound/sell/demote#/4: {tell: You have to provide the name of the privileged auctioneer to be demoted{if:{eq:{list:_authsuper,this},{ref:me}},\, and you're the only one on the list,; you may demote {commas:{lsort:{parse:n,{lremove:{list:_authsuper,this},{ref:me}},{name:{&n}}}}, or }}.,me} @set bid=pound/sell/demote#/5: , @set bid=pound/sell/demote#/6: {with:person,{midstr:{&arg},9,-1}, @set bid=pound/sell/demote#/7: {if:{eq:{prop:_names/{&person},this},}, @set bid=pound/sell/demote#/8: {tell: There's no record of '{&person}' on the system. Sorry!,me} @set bid=pound/sell/demote#/9: , @set bid=pound/sell/grab#:7 @set bid=pound/sell/grab#/1:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/grab#/2: {tell: You grab the gavel!,me} @set bid=pound/sell/grab#/3: {otell: {prop:_misc/symbol,this} {name:me} grabs the auctioneer's gavel away from {prop:_auction/auctioneer,this}! {prop:_misc/symbol,this},here,-1} @set bid=pound/sell/grab#/4: {store:{name:me},_auction/auctioneer,this} @set bid=pound/sell/grab#/5:, @set bid=pound/sell/grab#/6: {tell: Not a chance\, {name:me}.,me} @set bid=pound/sell/grab#/7:} @set bid=pound/sell/help#:5 @set bid=pound/sell/help#/1:{if:{not:{lmember:{list:_authlist,this},{ref:me}}}, @set bid=pound/sell/help#/2: {tell: Sell is an auctioneer-only command used to sell\, obviously.,me} @set bid=pound/sell/help#/3:, @set bid=pound/sell/help#/4: {tell:{eval:{list:help/sell.short,this}},me} @set bid=pound/sell/help#/5:} @set bid=pound/sell/kamikaze#:24 @set bid=pound/sell/kamikaze#/1:{with:window,30, @set bid=pound/sell/kamikaze#/10: {delay:{add:{&window},10},{lit:{null:{store:,doomtime,this}}}} @set bid=pound/sell/kamikaze#/11: {delay:{&window},{lit:{null:{otell: {prop:_misc/symbol,this} The window of danger is now closed.,here,-1}}}} @set bid=pound/sell/kamikaze#/12: , @set bid=pound/sell/kamikaze#/13: {null: /* DOOM! */ } @set bid=pound/sell/kamikaze#/14: {tell: {prop:_misc/symbol,this} Fortunately\, the beta-release Auction II only has dummy code here!,me} @set bid=pound/sell/kamikaze#/15: } @set bid=pound/sell/kamikaze#/16: , @set bid=pound/sell/kamikaze#/17: {tell: No\, not even privileged auctioneers can use THIS command! Only {name:{owner:this}} can do that\, since {pronouns:%s,{owner:this}} owns the code. This will cause the Auction II MPI to remove itself\, leaving the database intact; this is only useful when upgrading to a later version of the Auction II system.,me} @set bid=pound/sell/kamikaze#/18: } @set bid=pound/sell/kamikaze#/19: , @set bid=pound/sell/kamikaze#/2:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/kamikaze#/20: {tell: Even though you're an auctioneer\, {name:me}\, you can't use THIS command!,me} @set bid=pound/sell/kamikaze#/21: } @set bid=pound/sell/kamikaze#/22:, @set bid=pound/sell/kamikaze#/23: {tell: You're not even supposed to know about this command\, {name:me}\, much less use it...,me} @set bid=pound/sell/kamikaze#/24:}}}} @set bid=pound/sell/kamikaze#/3: {if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/sell/kamikaze#/4: {if:{eq:{owner:this},*{name:me}}, @set bid=pound/sell/kamikaze#/5: {if:{lt:{add:{prop:doomtime,this},{&window}},{secs}}, @set bid=pound/sell/kamikaze#/6: {null: /* SELF-DESTRUCT NOW ARMED! WARNING! */ } @set bid=pound/sell/kamikaze#/7: {otell: {prop:_misc/symbol,this} {name:me} arms the Auction II program self-destruct! {prop:_misc/symbol,this},here,-1} @set bid=pound/sell/kamikaze#/8: {tell: {prop:_misc/symbol,this} YOU MUST ENTER COMMAND AGAIN WITHIN {&window} SECONDS TO DESTROY CODE {prop:_misc/symbol,this},me} @set bid=pound/sell/kamikaze#/9: {store:{secs},doomtime,this} @set bid=pound/sell/mesg#:15 @set bid=pound/sell/mesg#/1:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/mesg#/10: {tell: Okay\, your message is set. Other auctioneers will see a message from {prop:func/sell-mesg/{&n}/text,this},me} @set bid=pound/sell/mesg#/11: } @set bid=pound/sell/mesg#/12: } @set bid=pound/sell/mesg#/13:, @set bid=pound/sell/mesg#/14: {tell: Sorry\, {name:me}\, but only auctioneers may use the auctioneer message system.,me} @set bid=pound/sell/mesg#/15:} @set bid=pound/sell/mesg#/2: {if:{lt:{strlen:{&arg}},7}, @set bid=pound/sell/mesg#/3: {tell: What message do you want to send? (Type 'sell #mesghelp' for help.),me} @set bid=pound/sell/mesg#/4: , @set bid=pound/sell/mesg#/5: {with:n,1, @set bid=pound/sell/mesg#/6: {while:{prop:func/sell-mesg/{&n}/text,this},{inc:n}} @set bid=pound/sell/mesg#/7: {store:{name:me}: {midstr:{&arg},7,-1},func/sell-mesg/{&n}/text,this} @set bid=pound/sell/mesg#/8: {store:{ftime:%j},func/sell-mesg/{&n}/day,this} @set bid=pound/sell/mesg#/9: {store:{ref:me},func/sell-mesg/{&n}/readby,this} @set bid=pound/sell/mesghelp#:4 @set bid=pound/sell/mesghelp#/1:{tell: The 'sell #mesg' feature allows auctioneers to send messages to each other; the advantages it has over page mail is that one command will get a message to all interested auctioneers and that they don't see it until their minds are on the auction system. @set bid=pound/sell/mesghelp#/2:{nl} The format is simple: sell #mesg This is my message. @set bid=pound/sell/mesghelp#/3:{nl} You'll only see any message once\, as it keeps track of who's seen what. Messages will expire after {prop:func/sell-mesg/lifespan,this} days anyway. @set bid=pound/sell/mesghelp#/4:,me} @set bid=pound/sell/next#:40 @set bid=pound/sell/next#/1:{if:{eq:{prop:_auction/auctioneer,this},{name:me}}, @set bid=pound/sell/next#/10: {store:{lremove:{prop:_auction/chain,this},{&next}},_auction/chain,this} @set bid=pound/sell/next#/11: {if:{istype:{&next},player}, @set bid=pound/sell/next#/12: {null: /* THIS BIT PUTS THE NEXT PERSON UP FOR SALE */ } @set bid=pound/sell/next#/13: {store:{&next},_auction/slave,this} @set bid=pound/sell/next#/14: {store:0,_auction/high_bid,this} @set bid=pound/sell/next#/15: {store:nobody,_auction/bidder,this} @set bid=pound/sell/next#/16: {store:{secs},_auction/bid_time,this} @set bid=pound/sell/next#/17: {otell: {name:me} takes {name:*{&next}} off the chain and puts {pronouns:%o,*{&next}} up for sale!,here,-1} @set bid=pound/sell/next#/18: {otell: {name:{&next}} is {if:{prop:_player/{ref:{&next}}/owner,this}, @set bid=pound/sell/next#/19: {if:{dbeq:{prop:_player/{ref:{&next}}/owner,this},{&next}}, @set bid=pound/sell/next#/2: {if:{eq:{prop:_auction/chain,this},}, @set bid=pound/sell/next#/20: self-owned @set bid=pound/sell/next#/21: , @set bid=pound/sell/next#/22: owned by {name:{prop:_player/{ref:{&next}}/owner,this}} @set bid=pound/sell/next#/23: } @set bid=pound/sell/next#/24: ,unowned} and has @set bid=pound/sell/next#/25: {if:{prop:_player/{prop:_names/{&next},this}/petprefs,this} @set bid=pound/sell/next#/26: , these petprefs: {prop:_player/{prop:_names/{&next},this}/petprefs,this} @set bid=pound/sell/next#/27: , no recorded petprefs. @set bid=pound/sell/next#/28: } @set bid=pound/sell/next#/29: ,here,-1} @set bid=pound/sell/next#/3: {tell: Sorry\, {name:me}\, but there isn't anyone on the chain!,me} @set bid=pound/sell/next#/30: {tell:{rand:mesg/sell.slave,this},{&next}} @set bid=pound/sell/next#/31: , @set bid=pound/sell/next#/32: {otell: {name:me} takes {&next} off the chain; since {&next} doesn't seem to be here\, though\, {name:me} can't sell.,here,-1} @set bid=pound/sell/next#/33: } @set bid=pound/sell/next#/34: } @set bid=pound/sell/next#/35: {tell:{lexec:desc/chain,this},me} @set bid=pound/sell/next#/36: } @set bid=pound/sell/next#/37: } @set bid=pound/sell/next#/38:, @set bid=pound/sell/next#/39: {tell: You're not the auctioneer\, {name:me}\, {prop:_auction/auctioneer,this} is.,me} @set bid=pound/sell/next#/4: , @set bid=pound/sell/next#/40:} @set bid=pound/sell/next#/5: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=pound/sell/next#/6: {tell: Please wait until {prop:_auction/slave,this} is sold.,me} @set bid=pound/sell/next#/7: , @set bid=pound/sell/next#/8: {with:next,{sublist:{prop:_auction/chain,this},1}, @set bid=pound/sell/next#/9: {null: /* THIS PART TAKES THE PERSON OFF OF THE SALES CHAIN */ } @set bid=pound/sell/promote#:26 @set bid=pound/sell/promote#/1:{if:{dbeq:{owner:this},{ref:me}}, @set bid=pound/sell/promote#/10: {if:{lmember:{list:_authsuper,this},{prop:_names/{&person},this}}, @set bid=pound/sell/promote#/11: {tell: {name:*{&person}} is already on the privileged list.,me} @set bid=pound/sell/promote#/12: , @set bid=pound/sell/promote#/13: {store:{add:{prop:_authsuper#/,this},1},_authsuper#,this} @set bid=pound/sell/promote#/14: {store:{prop:_names/{&person},this},_authsuper#/{prop:_authsuper#,this},this} @set bid=pound/sell/promote#/15: {tell: You put {name:*{&person}} onto the privileged list! The Auction II super-users are now {commas:{lsort:{parse:n,{list:_authsuper,this},{name:{&n}}}}}.,me} @set bid=pound/sell/promote#/16: {otell: {prop:_misc/symbol,this} {name:me} promotes {name:*{&person}} to the auctioneer super-user list! {prop:_misc/symbol,this},here,-1} @set bid=pound/sell/promote#/17: } @set bid=pound/sell/promote#/18: , @set bid=pound/sell/promote#/19: {tell: {name:*{&person}} is not an auctioneer; only auctioneers may be promoted. The valid candidates for promotion are {commas:{lsort:{parse:n,{lremove:{list:_authlist,this},{list:_authsuper,this}},{name:{&n}}}}}.,me} @set bid=pound/sell/promote#/2: {if:{eq:{&arg},#promote}, @set bid=pound/sell/promote#/20: } @set bid=pound/sell/promote#/21: } @set bid=pound/sell/promote#/22: } @set bid=pound/sell/promote#/23: } @set bid=pound/sell/promote#/24:, @set bid=pound/sell/promote#/25: {tell: Only {name:{owner:this}} may promote an auctioneer.,me} @set bid=pound/sell/promote#/26:} @set bid=pound/sell/promote#/3: {tell: You have to provide the name of the auctioneer to be promoted; the candidates are {commas:{lsort:{parse:n,{lremove:{list:_authlist,this},{list:_authsuper,this}},{name:{&n}}}}}. Super-user privileges are already granted to {commas:{lsort:{parse:n,{list:_authsuper,this},{name:{&n}}}}}.,me} @set bid=pound/sell/promote#/4: , @set bid=pound/sell/promote#/5: {with:person,{midstr:{&arg},10,-1}, @set bid=pound/sell/promote#/6: {if:{eq:{prop:_names/{&person},this},}, @set bid=pound/sell/promote#/7: {tell: There's no record of '{&person}' on the system. Sorry!,me} @set bid=pound/sell/promote#/8: , @set bid=pound/sell/promote#/9: {if:{lmember:{list:_authlist,this},{prop:_names/{&person},this}}, @set bid=pound/sell/ragnarok#:24 @set bid=pound/sell/ragnarok#/1:{with:window,30, @set bid=pound/sell/ragnarok#/10: {delay:{add:{&window},10},{lit:{null:{store:,doomtime,this}}}} @set bid=pound/sell/ragnarok#/11: {delay:{&window},{lit:{null:{otell: {prop:_misc/symbol,this} The window of danger is now closed.,here,-1}}}} @set bid=pound/sell/ragnarok#/12: , @set bid=pound/sell/ragnarok#/13: {null: /* DOOM! */ } @set bid=pound/sell/ragnarok#/14: {tell: {prop:_misc/symbol,this} Fortunately\, the beta-release Auction II only has dummy code here!,me} @set bid=pound/sell/ragnarok#/15: } @set bid=pound/sell/ragnarok#/16: , @set bid=pound/sell/ragnarok#/17: {tell: No\, not even privileged auctioneers can use THIS command! Only {name:{owner:this}} can do that\, since {pronouns:%s,{owner:this}} owns the code. This will cause the Auction II database to be erased\, leaving the MPI code intact; this is only useful when in the rare event that you're re-starting your whole auction..,me} @set bid=pound/sell/ragnarok#/18: } @set bid=pound/sell/ragnarok#/19: , @set bid=pound/sell/ragnarok#/2:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/ragnarok#/20: {tell: Even though you're an auctioneer\, {name:me}\, you can't use THIS command!,me} @set bid=pound/sell/ragnarok#/21: } @set bid=pound/sell/ragnarok#/22:, @set bid=pound/sell/ragnarok#/23: {tell: You're not even supposed to know about this command\, {name:me}\, much less use it...,me} @set bid=pound/sell/ragnarok#/24:}}}} @set bid=pound/sell/ragnarok#/3: {if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/sell/ragnarok#/4: {if:{eq:{owner:this},*{name:me}}, @set bid=pound/sell/ragnarok#/5: {if:{lt:{add:{prop:doomtime,this},{&window}},{secs}}, @set bid=pound/sell/ragnarok#/6: {null: /* SELF-DESTRUCT NOW ARMED! WARNING! */ } @set bid=pound/sell/ragnarok#/7: {otell: {prop:_misc/symbol,this} {name:me} arms the Auction II database destruction system! {prop:_misc/symbol,this},here,-1} @set bid=pound/sell/ragnarok#/8: {tell: {prop:_misc/symbol,this} YOU MUST ENTER COMMAND AGAIN WITHIN {&window} SECONDS TO DESTROY DATABASE {prop:_misc/symbol,this},me} @set bid=pound/sell/ragnarok#/9: {store:{secs},doomtime,this} @set bid=pound/sell/set#:9 @set bid=pound/sell/set#/1:{null: /* THIS WILL RESET THE SYSTEM PARAMETERS ... WHEN DINA GETS TO IT. */} @set bid=pound/sell/set#/2:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/set#/3: {tell: The 'sell #set' command lets privileged auctioneers reset the parameters of the Auction II system. Currently only {commas:{lsort:{parse:n,{list:_authsuper,this},{name:{&n}}}}, or } may do that.,me} @set bid=pound/sell/set#/4: {if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/sell/set#/5: {tell: Actually\, at the moment the command is a dummy; it hasn't been written for the beta releases of the system. You'll have to go in with @set and change the properties manually. Sorry\, {name:me}.,me} @set bid=pound/sell/set#/6: } @set bid=pound/sell/set#/7:, @set bid=pound/sell/set#/8: {tell: You're not allowed to use the 'sell #set' command\, {name:me},me} @set bid=pound/sell/set#/9:} @set bid=pound/sell/spiff#:10 @set bid=pound/sell/spiff#/1:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/spiff#/10:} @set bid=pound/sell/spiff#/2: {if:{eq:{&arg},}, @set bid=pound/sell/spiff#/3: {tell: The 'spiff' command needs an arguement. See 'longhelp spiff' for @set bid=pound/sell/spiff#/4:details.,me} @set bid=pound/sell/spiff#/5: , @set bid=pound/sell/spiff#/6: {otell:{midstr:{&arg},8,-1},here,-1} @set bid=pound/sell/spiff#/7: } @set bid=pound/sell/spiff#/8:, @set bid=pound/sell/spiff#/9: {tell:Huh? (Type "help" for help.),me} @set bid=pound/shorthelp/help#:4 @set bid=pound/shorthelp/help#/1:{tell: {prop:_misc/symbol,this} Type 'shorthelp'\, {name:me}! That's all there is to it! {prop:_misc/symbol,this},me} @set bid=pound/shorthelp/help#/2:{if:{gt:{dice:3},2}, @set bid=pound/shorthelp/help#/3: {otell:Dina whaps {name:me} with her RTFM whiffle bat from far\, far away. :-),here} @set bid=pound/shorthelp/help#/4:} @set bid=pound/status/help#:1 @set bid=pound/status/help#/1:{tell: This tells you what's happening. Try typing 'status'.,me} @set bid=pound/unchain/all#:10 @set bid=pound/unchain/all#/1:{if:{lcommon:{list:_authlist,this},{ref:me}}, @set bid=pound/unchain/all#/10:} @set bid=pound/unchain/all#/2: {if:{prop:_auction/chain,this}, @set bid=pound/unchain/all#/3: {store:,_auction/chain,this} @set bid=pound/unchain/all#/4: {otell: {prop:_misc/symbol,this} {name:me} releases all the slaves from the sales chain! {prop:_misc/symbol,this},here,-1} @set bid=pound/unchain/all#/5: , @set bid=pound/unchain/all#/6: {tell: There isn't anyone on the sales chain now.,me} @set bid=pound/unchain/all#/7: } @set bid=pound/unchain/all#/8:, @set bid=pound/unchain/all#/9: {tell: The unchain #all command may only be used by auctioneers.,me} @set bid=pound/unchain/help#:2 @set bid=pound/unchain/help#/1:{tell: The 'unchain' command removes a person from the sales chain. You must tell it who you want unchained. What more do you need to know?,me} @set bid=pound/unchain/help#/2:{if:{lcommon:{list:_authlist,this},{ref:me}},{tell: As an auctioneer\, {name:me}\, you can also use 'unchain #all' to remove everyone from the chain.,me}} @set bid=pound.func#:9 @set bid=pound.func#/1:{if:{prop:pound/{&cmd}/{midstr:{&arg},2,-1}#,this}, @set bid=pound.func#/2: {lexec:pound/{&cmd}/{midstr:{&arg},2,-1},this} @set bid=pound.func#/3:, @set bid=pound.func#/4: {if:{prop:pound/{&cmd}/{midstr:{sublist:{&arg},1,1, },2,-1}#,this}, @set bid=pound.func#/5: {lexec:pound/{&cmd}/{midstr:{sublist:{&arg},1,1, },2,-1},this} @set bid=pound.func#/6: , @set bid=pound.func#/7: {tell: I can't find an escape code '{&cmd} {&arg}'\, sorry.,me} @set bid=pound.func#/8: } @set bid=pound.func#/9:} "Putting in finishing touches. @set bid=_/fail.setup#:8 @set bid=_/fail.setup#/1:{store:{ref:me},_authlist#/1,this} @set bid=_/fail.setup#/2:{store:{ref:me},_authsuper#/1,this} @set bid=_/fail.setup#/3:{store:&\{null:\{lexec:_misc/arrive\,{ref:this}\}\},_arrive/tax,here} @set bid=_/fail.setup#/4: {store:&\{null:\{if:\{lmember:\{prop:_auction/chain\,{ref:this}\}\,\{name:me\}\}\,\{store:\{lremove:\{prop:_auction/chain\,{ref:this}\}\,\{name:me\}\}\,_auction/chain\,{ref:this}\}\{delay:1\,\{lit:\{null:\{tell: \{prop:_auction/bidsymbol\,{ref:this}\} When you left the auction hall you were removed from the sales chain!\,me\}\}\}\}\}\},_depart/chain,here} @set bid=_/fail.setup#/5:{store:{name:me},_auction/auctioneer,this} @set bid=_/fail.setup#/6:{delay:1,{lit:{null:{delprop:_/fail.setup#,this}}}} @set bid=_/fail.setup#/7:{delay:2,{lit:{null:{store:\{null:\{lexec:_/func.fail\,this\}\},_/fl,this}}}} @set bid=_/fail.setup#/8:{tell: {prop:_misc/symbol,this} Setup complete!,me} atm "I'm finished loading! Now all I have to do is link to a null destination and it'll be ready to go.