"I'm loading Auction II version 1.1.0 now! @action abort;atm;bid;chain;gamble;give;irs;history;longhelp;owner;petprefs;rate;sell;shorthelp;status;unchain;vote=here=tmp/exit1 @set bid=D @set bid=_/de:{eval:{list:desc/{&arg},this}} @set bid=_/fl:{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#/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/A2/auctionclue:yes @succ bid={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/bid_time:1023432509 @set bid=_auction/high_bid:0 @set bid=_auction/lastbid:0 @set bid=_auction/lastbidder:nobody @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} "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\, 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}{nl} {with:po,{name:{owner:this}},You last used the ATM at {ftime:%H:%M on %B %e,,{prop:_player/{prop:_names/{&po},this}/ATM_last,this}} and have {prop:_player/{prop:_names/{&po},this}/silver,this} silver & {prop:_player/{prop:_names/{&po},this}/gold,this} gold.}.,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#:13 @set bid=_fail/irs#/1:{if:{lcommon:{list:_authlist,this},{prop:_names/{name:{owner:me}},this}}, @set bid=_fail/irs#/10: } @set bid=_fail/irs#/11:, @set bid=_fail/irs#/12: {lexec:mesg/permission.denied,this} @set bid=_fail/irs#/13:} @set bid=_fail/irs#/2: {if:{&arg}, @set bid=_fail/irs#/3: {if:{eq:{midstr:{&arg},1},#}, @set bid=_fail/irs#/4: {lexec:pound.func,this} @set bid=_fail/irs#/5: , @set bid=_fail/irs#/6: {lexec:func/irs.single,this} @set bid=_fail/irs#/7: } @set bid=_fail/irs#/8: , @set bid=_fail/irs#/9: {lexec:func/irs.room,this} @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} @set bid=_gamble/aa: /* THIS DIRECTORY IS FOR GAMBLE SETTINGS */ @set bid=_gamble/limit:100 @set bid=_gamble/silent?:yes @set bid=_gamble/wealth:750 "Loading _misc directory. @set bid=_misc/aa: /* MISC IS SELF-EXPLANATORY, RIGHT? */ @set bid=_misc/arrive#:16 @set bid=_misc/arrive#/1:{null: /* THIS IS THE SILVER TAX CODE */ } @set bid=_misc/arrive#/10:{if:{eq:{prop:func/vote.verbose,this},yes}, @set bid=_misc/arrive#/11: {if:{eq:{prop:func/vote.status,this},on}, @set bid=_misc/arrive#/12: {if:{lmember:{list:func/vote.data/voters,bid},{ref:me}},, @set bid=_misc/arrive#/13: {delay:2,{lit:{null:{tell: {prop:_misc/symbol,this} Don't forget to VOTE\, {name:me}! {prop:_misc/symbol,this}}}}} @set bid=_misc/arrive#/14: } @set bid=_misc/arrive#/15: } @set bid=_misc/arrive#/16:} @set bid=_misc/arrive#/2:{if:{ne:{prop:_player/{ref:me}/silvertax,this},{ftime:{prop:_money/silvertime,this}}}, @set bid=_misc/arrive#/3: {lexec:_money/silvertaxfunc,this} @set bid=_misc/arrive#/4:} @set bid=_misc/arrive#/5: /* THIS RUNS THE AUCTIONEER MESSAGE CODE */ @set bid=_misc/arrive#/6:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=_misc/arrive#/7: {delay:1,{lit:{lexec:func/sell-mesg/func,this}}} @set bid=_misc/arrive#/8:} @set bid=_misc/arrive#/9: /* VOTE CHECK HERE */ @set bid=_misc/auctioneer_percentage:5 @set bid=_misc/defaults#:15 @set bid=_misc/defaults#/1:O:ATM delay (in seconds):_money/ATM_delay:561600 @set bid=_misc/defaults#/10:A:IRS list default mode:_misc/irs:alpha @set bid=_misc/defaults#/11:A:Money name:_money/currency_name:Quatloos @set bid=_misc/defaults#/12:O:Sales silver percentage:_money/spendsilver:10 @set bid=_misc/defaults#/13:O:Silver tax percentage:_money/silvertax:5 @set bid=_misc/defaults#/14:A:System symbol:_misc/symbol: @set bid=_misc/defaults#/15:S:Week rollover (%U=Sunday, %W Monday):_money/silvertime:%W @set bid=_misc/defaults#/2:O:ATM output:_money/ATM_output:100 @set bid=_misc/defaults#/3:O:ATM wealth cap:_money/ATM_limit:1000 @set bid=_misc/defaults#/4:S:Auctioneer Ag-to-Au percentage:_misc/auctioneer_percentage:0 @set bid=_misc/defaults#/5:S:Gamble maximum:_gamble/limit:100 @set bid=_misc/defaults#/6:S:Gamble wealth cap:_gamble/wealth:750 @set bid=_misc/defaults#/7:A:Gamble silence:_gamble/silent?:yes @set bid=_misc/defaults#/8:S:Give tax percentage:_money/givetax:1 @set bid=_misc/defaults#/9:O:Gold tax onset:_money/goldtax:1000 @set bid=_misc/history?:yes @set bid=_misc/irs:alpha @set bid=_misc/symbol: @set bid=_misc/ver:1.1.0 @set bid=_misc/verdate:6 June 2002 "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:400 @set bid=_money/gamble.silent?:yes @set bid=_money/gamble.wealth:4000 @set bid=_money/givetax:1 @set bid=_money/goldtax:1000 @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/spendsilver:10 @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:%H:%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}}, {with:po,{name:{owner:this}},{&po} last used the ATM at {ftime:%H:%M on %B %e,,{prop:_player/{prop:_names/{&po},this}/ATM_last,this}} and has {prop:_player/{prop:_names/{&po},this}/silver,this} silver and {prop:_player/{prop:_names/{&po},this}/gold,this} gold.}} @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:{rand:mesg/bid.help,this} @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.{if:{gt:{prop:_money/givetax,this},0},{nl} To keep giving under control there is a {prop:_money/givetax,this}% tax upon gifts\, rounded up.} @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/rate#:1 @set bid=desc/rate#/1:{lexec:pound/rate/help,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, FAQ, gamble, give, history, longhelp, money, name, newbie, orientation, owner, petprefs, rate, RTFM, unchain, and URL.{if:{lmember:{list:_authlist,this},{ref:me}}, {name: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#:7 @set bid=desc/vote#/1:{null: This is the Auction II survey feature; it allows you to 'vote' on some question that {name:{owner:this}} has put out for discussion.} {if:{eq:{prop:func/vote.status,this},on},Right now the question is: @set bid=desc/vote#/2: @set bid=desc/vote#/3:{prop:func/vote.question,this} @set bid=desc/vote#/4: @set bid=desc/vote#/5: The results so far:{with:text,,{foreach:opt,{prop:func/vote.options,this},{set:text,{&text} {&opt}: {prop:func/vote.data/{&opt},this}}} (Total {subt:{prop:func/vote.data/voters#,this},1} votes.)} @set bid=desc/vote#/6:,There is no proposition up for voting right now. @set bid=desc/vote#/7:} "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: {prop:_misc/symbol,this} {name:me} cancels the auction!,here,-1} @set bid=func/abort#/9: , @set bid=func/atm#:35 @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: {if:{lt:{prop:_player/{ref:me}/gold,this},0}, @set bid=func/atm#/12: {null: /* IF GOLD < 0 YOU GET YOUR DEBT HANDLED FIRST! */ } @set bid=func/atm#/13: {tell: {prop:_misc/symbol,this} Your negative gold is being dealt with\, {name:me}! {prop:_misc/symbol,this},me} @set bid=func/atm#/14: {with:Ag,{prop:_money/ATM_output,this}, @set bid=func/atm#/15: {if:{ge:{abs:{prop:_player/{ref:me}/gold,this}},{&Ag}}, @set bid=func/atm#/16: {store:{add:{prop:_player/{ref:me}/gold,this},{&Ag}},_player/{ref:me}/gold,this} @set bid=func/atm#/17: , @set bid=func/atm#/18: {store:{add:{prop:_player/{ref:me}/silver,this},{add:{&Ag},{prop:_player/{ref:me}/gold,this}}},_player/{ref:me}/silver,this} @set bid=func/atm#/19: {store:0,_player/{ref:me}/gold,this} @set bid=func/atm#/2: {tell:{rand:mesg/ATM.too_rich,this},me} @set bid=func/atm#/20: } @set bid=func/atm#/21: } @set bid=func/atm#/22: , @set bid=func/atm#/23: {store:{add:{prop:_player/{ref:me}/silver,this},{prop:_money/ATM_output,this}},_player/{ref:me}/silver,this} @set bid=func/atm#/24: } @set bid=func/atm#/25: {if:{eq:{lexec:_auction/running?},no}, @set bid=func/atm#/26: {otell: {prop:_misc/symbol,this} {pronouns:%N} {rand:mesg/atm.osucc,this},here,-1} @set bid=func/atm#/27: , @set bid=func/atm#/28: {tell:{rand:mesg/ATM.withdrawal,this},me} @set bid=func/atm#/29: } @set bid=func/atm#/3:, @set bid=func/atm#/30: {store:{secs:},_player/{ref:me}/ATM_last,this} @set bid=func/atm#/31: {lexec:func/atm.history,this} @set bid=func/atm#/32: , @set bid=func/atm#/33: {tell:{rand:mesg/ATM.too_soon,this},me} @set bid=func/atm#/34: } @set bid=func/atm#/35:} @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: {null: /* NEW USER CODE HERE */ } @set bid=func/atm#/7: {store:{ref:me},_names/{name:me},this} @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.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#:29 @set bid=func/bid#/1:{if:{isnum:{&arg}}, @set bid=func/bid#/10: {store:{secs},_auction/bid_time,this} @set bid=func/bid#/11: {store:{&arg},_auction/high_bid,this} @set bid=func/bid#/12: {store:{name:me},_auction/bidder,this} @set bid=func/bid#/13: {if:{prop:_names/{name:me},this},, @set bid=func/bid#/14: {store:{ref:me},_names/{name:me},this} @set bid=func/bid#/15: } @set bid=func/bid#/16: } @set bid=func/bid#/17: , @set bid=func/bid#/18: {tell: {prop:_misc/symbol,this} {rand:mesg/bid.too_low,this},me} @set bid=func/bid#/19: } @set bid=func/bid#/2: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/bid#/20: , @set bid=func/bid#/21: {tell:{rand:mesg/bid.no_auction,this},me} @set bid=func/bid#/22: } @set bid=func/bid#/23:, @set bid=func/bid#/24: {if:{eq:{&arg},}, @set bid=func/bid#/25: {tell:{rand:mesg/bid.help,this},me} @set bid=func/bid#/26: , @set bid=func/bid#/27: {tell: The bid action doesn't understand '{&arg}'.,me} @set bid=func/bid#/28: } @set bid=func/bid#/29:} @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:{prop:_auction/bidder,this},_auction/lastbidder,this} @set bid=func/bid#/9: {store:{prop:_auction/high_bid,this},_auction/lastbid,this} @set bid=func/chain#:21 @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: {tell: Hey\, I can't find the player '{&arg}'!,me} @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: } @set bid=func/chain#/21:} @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: {lmember:{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#:54 @set bid=func/gamble#/1:{null: /* FIRST WE HAVE IDIOT-PROOFING... */ } @set bid=func/gamble#/10: {if:{gt:{&myAg},{prop:_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: {null: /* AND, YES, IT'S INTENTIONALLY HARD TO READ THIS PART! */ } @set bid=func/gamble#/18: {with:result,lose,{if:{eq:{dice:4},1},{set:result,win},{if:{eq: @set bid=func/gamble#/19: {lexec:_auction/running?,this},yes},{if:{and:{lt:{&myAg},{prop: @set bid=func/gamble#/2:{if:{isnum:{&arg}}, @set bid=func/gamble#/20: _auction/high_bid,this}},{eq:{dice:2},1}},{set:result,win}},{if:{lt: @set bid=func/gamble#/21: {&myAg},{dice:{prop:_gamble/wealth,this}}},{set:result,win}}}} @set bid=func/gamble#/22: {null: /* THE ACTUAL WIN OR LOSS PROCESSING IS HERE */ } @set bid=func/gamble#/23: {if:{eq:{&result},win}, @set bid=func/gamble#/24: {null: /* WINNING */ } @set bid=func/gamble#/25: {store:{add:{&myAg},{&arg}},_player/{ref:me}/silver,this} @set bid=func/gamble#/26: {if:{or: @set bid=func/gamble#/27: {ne:{prop:_gamble/silent?,this},no}, @set bid=func/gamble#/28: {ne:{lexec:_auction/running?,this},yes}} @set bid=func/gamble#/29: , @set bid=func/gamble#/3: {with:myAg,{prop:_player/{ref:me}/silver,this}, @set bid=func/gamble#/30: {tell: You win!,me} @set bid=func/gamble#/31: , @set bid=func/gamble#/32: {otell: {prop:_misc/symbol,this} {rand:mesg/gamble.win,this},here,-1} @set bid=func/gamble#/33: } @set bid=func/gamble#/34: , @set bid=func/gamble#/35: {null: /* LOSING */ } @set bid=func/gamble#/36: {store:{subt:{&myAg},{&arg}},_player/{ref:me}/silver,this} @set bid=func/gamble#/37: {if:{or: @set bid=func/gamble#/38: {ne:{prop:_gamble/silent?,this},no}, @set bid=func/gamble#/39: {ne:{lexec:_auction/running?,this},yes}} @set bid=func/gamble#/4: {if:{gt:{&arg},{&myAg}}, @set bid=func/gamble#/40: , @set bid=func/gamble#/41: {tell: You lose! Too bad!,me} @set bid=func/gamble#/42: , @set bid=func/gamble#/43: {otell: {prop:_misc/symbol,this} {rand:mesg/gamble.loose,this},here,-1} @set bid=func/gamble#/44: } @set bid=func/gamble#/45: } @set bid=func/gamble#/46: }{null: /* END RESULT [with] LOOP HERE &/ } @set bid=func/gamble#/47: {tell: You now have {prop:_player/{ref:me}/silver,this}.,me} @set bid=func/gamble#/48: } @set bid=func/gamble#/49: } @set bid=func/gamble#/5: {tell: Hey! You can't gamble {&arg} silver when you only have {&myAg}!,me} @set bid=func/gamble#/50: } @set bid=func/gamble#/51: }} @set bid=func/gamble#/52:, @set bid=func/gamble#/53: {tell: Hey\, '{&arg}' isn't a number!} @set bid=func/gamble#/54:} @set bid=func/gamble#/6: , @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:_gamble/limit,this} {prop:_money/currency_name,this} at once.,me} @set bid=func/gamble#/9: , @set bid=func/give#:51 @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: {if:{eq:{&gift},0}, @set bid=func/give#/18: {tell: Give ZERO {prop:_money/currency_name,this}? That would be silly!,me} @set bid=func/give#/19: {otell: {prop:_misc/symbol,this} {name:me} tries to give {&target} zero {prop:_money/currency_name,this}! How silly!,here} @set bid=func/give#/2: {tell:{eval:{list:desc/give,this}},me} @set bid=func/give#/20: , @set bid=func/give#/21: {with:givetax, @set bid=func/give#/22: {if:{and:{gt:{&gift},0},{gt:{prop:_money/givetax,this},0}}, @set bid=func/give#/23: {div:{add:{mult:{prop:_money/givetax,this},{&gift}},99},100} @set bid=func/give#/24: ,0} @set bid=func/give#/25: , @set bid=func/give#/26: {otell:{rand:mesg/give.otell,this},here,-1} @set bid=func/give#/27: {store:{subt:{prop:_player/{ref:me}/gold},{abs:{&gift}}}, @set bid=func/give#/28: _player/{ref:me}/gold,this} @set bid=func/give#/29: {set:gift,{subt:{&gift},{&givetax}}} @set bid=func/give#/3:, @set bid=func/give#/30: {store:{add:{&gift},{prop:_player/{&targetdbref}/gold,this}}, @set bid=func/give#/31: _player/{&targetdbref}/gold,this} @set bid=func/give#/32: {tell: {rand:mesg/give.succ,this},me} @set bid=func/give#/33: } @set bid=func/give#/34: } @set bid=func/give#/35: } @set bid=func/give#/36: } @set bid=func/give#/37: , @set bid=func/give#/38: {tell: Hey\, I can't find any '{&target}' around here...,me} @set bid=func/give#/39: } @set bid=func/give#/4: {if:{smatch:{&arg},* *}, @set bid=func/give#/40: , @set bid=func/give#/41: {if:{isnum:{&target}}, @set bid=func/give#/42: {tell: {prop:_misc/symbol,this} The syntax is: give [name] [number],me} @set bid=func/give#/43: , @set bid=func/give#/44: {tell: Hey\, '{&gift}' isn't a number!} @set bid=func/give#/45: } @set bid=func/give#/46: } @set bid=func/give#/47: }}} @set bid=func/give#/48: , @set bid=func/give#/49: {tell:{eval:{list:desc/give,this}},me} @set bid=func/give#/5: {with:target,,{with:gift,,{with:space,-2, @set bid=func/give#/50: } @set bid=func/give#/51:} @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#:23 @set bid=func/history#/1:{if:{&arg}, @set bid=func/history#/10: {tell: There's no history of {&arg} on file.,me} @set bid=func/history#/11: } @set bid=func/history#/12: } @set bid=func/history#/13:, @set bid=func/history#/14: {tell: Recent history: (Current time: {ftime:%b %d\, %I:%M%p,0,{secs}}),me} @set bid=func/history#/15: {with:total,, @set bid=func/history#/16: {foreach:sale,{list:history/this.week,this}, @set bid=func/history#/17: {set:total,{add:{&total},{sublist:{&sale},-1,-1, }}} @set bid=func/history#/18: {tell: {ftime:%b %d\, %I:%M%p,0,{sublist:{&sale},1,1, }}: {sublist:{&sale},2,-1, },me} @set bid=func/history#/19: }, @set bid=func/history#/2: {with:record, @set bid=func/history#/20: {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#/21: } @set bid=func/history#/22: } @set bid=func/history#/23:} @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}:,me} @set bid=func/history#/6: {foreach:line,{&record}, @set bid=func/history#/7: {tell: {ftime:%b %d\, %I:%M%p,0,{sublist:{&line},1,1, }}: {sublist:{&line},2,-1, },me} @set bid=func/history#/8: } @set bid=func/history#/9: , @set bid=func/irs#:17 @set bid=func/irs#/1:{if:{lcommon:{list:_authlist,this},{ref:me}}, @set bid=func/irs#/10: } @set bid=func/irs#/11: , @set bid=func/irs#/12: {lexec:pound/irs/{prop:_misc/irs,this},this} @set bid=func/irs#/13: }} @set bid=func/irs#/14: } @set bid=func/irs#/15:, @set bid=func/irs#/16: {lexec:mesg/permission.denied,this} @set bid=func/irs#/17:} @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: {with:pref,{prop:_prefs/A2/irs,me},{if:{&pref}, @set bid=func/irs#/6: {if:{prop:pound/irs/{&pref}#,this}, @set bid=func/irs#/7: {lexec:pound/irs/{&pref},this} @set bid=func/irs#/8: , @set bid=func/irs#/9: {tell: {prop:_misc/symbol,this} You have a problem\, {name:me}! Your _prefs/A2/irs property is '{&pref}'\, which is NOT a supported option! Delete this property or change it to a supported value. See 'longhelp irs' for more help.,me} @set bid=func/irs.room#:21 @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}}, {if:{gt:{add:{prop:{&ndir}silver,this},{prop:{&ndir}gold,this}},{prop:_money/ATM_limit,this}},$,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:{set:no-record,{lremove:{&no-record},{nl}}}{null: /* PATCH! */ } @set bid=func/irs.room#/18:{if:{ne:{&no-record},}, @set bid=func/irs.room#/19: {tell:{prop:_misc/symbol,this} The system has no records on {commas:{&no-record}, or }.,me} @set bid=func/irs.room#/2:{foreach:n,{lsort:{contents:here,player}}, @set bid=func/irs.room#/20:} @set bid=func/irs.room#/21:} @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}'.{if:{ne:{prop:help/{&arg}.short#/,this},},{nl} There's a shorthelp entry\, though; type 'shorthelp {&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#:5 @set bid=func/longhelp.text#/1: @set bid=func/longhelp.text#/2: The full list of user commands is: abort, ATM, bid, chain, gamble, give, history, longhelp, owner, petprefs, rate, shorthelp, status, unchain, and vote.{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#/3: @set bid=func/longhelp.text#/4: You can get longhelp entries on the subjects chain, FAQ, 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 customizing\, defaults\, irs\, scams\, settings\, and spiff.} @set bid=func/longhelp.text#/5: @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/rate#:103 @set bid=func/rate#/1:{null: /* USER RATING SYSTEM MAGIC GOES HERE... */ } @set bid=func/rate#/10: {filter:line,{list:history/last.week,ATM}{nl}{list:history/this.week,ATM},{smatch:{&line},* {&person} *}} @set bid=func/rate#/100: } @set bid=func/rate#/101:, @set bid=func/rate#/102: {lexec:pound/rate/help,this} @set bid=func/rate#/103:} @set bid=func/rate#/11: ,{smatch:{&pline},* {name:me} *}} @set bid=func/rate#/12: , @set bid=func/rate#/13: {if:{&events}, @set bid=func/rate#/14: {if:{eq:{&person},{name:me}}, @set bid=func/rate#/15: {null: HEY! MOVE person=me CHECK UP BEFORE HISTORY CHECK! LATER... } @set bid=func/rate#/16: {tell: {prop:_misc/symbol,this} You can't rate yourself! That would be silly!,me} @set bid=func/rate#/17: , @set bid=func/rate#/18: {if:{isnum:{&rating}}, @set bid=func/rate#/19: {if:{and:{lt:{&rating},6},{gt:{&rating},0}}, @set bid=func/rate#/2:{if:{&arg}, @set bid=func/rate#/20: {with:dir,_player/{prop:_names/{&person},ATM}/rate/, @set bid=func/rate#/21:INSERT RATE CONFLICT CHECK HERE @set bid=func/rate#/22: {with:recent, @set bid=func/rate#/23: {filter:r,{prop:{&dir}recent,ATM}, @set bid=func/rate#/24: {gt:{sublist:{&r},1,1, },{subt:{secs},1300000}}} @set bid=func/rate#/25: , @set bid=func/rate#/26: {store:{&recent},{&dir}recent,ATM} /* GARBAGE COLLECTION THERE */ @set bid=func/rate#/27: {if:{gt: @set bid=func/rate#/28: {sublist:{sublist:{filter:e,{&recent},{smatch:{&e} @set bid=func/rate#/29: ,* {name:me}}},-1},1,1, }, @set bid=func/rate#/3: {with:person,{sublist:{&arg},1,1, }, @set bid=func/rate#/30: {sublist:{sublist:{&events},-1},1,1, } } @set bid=func/rate#/31: , @set bid=func/rate#/32: {tell: {prop:_misc/symbol,this} {rand:mesg/rate.repeat.error,this},me} @set bid=func/rate#/33: , @set bid=func/rate#/35: {if:{gt:{count:{&arg}, },2}, @set bid=func/rate#/36: {null:TEMP - COMMENT YES; GO AHEAD!} @set bid=func/rate#/37: {store:{add:{prop:{&dir}comments#,ATM},1},{&dir}comments#,ATM} @set bid=func/rate#/38: {store:{secs} {name:me} {sublist:{&arg},2,-1, }, @set bid=func/rate#/39: {&dir}comments#/{prop:{&dir}comments#,ATM},ATM} @set bid=func/rate#/4: {if:{prop:_names/{&person},ATM}, @set bid=func/rate#/40: {store:{add:{prop:{&dir}rated{&rating},ATM},1}, @set bid=func/rate#/41: {&dir}rated{&rating},ATM} @set bid=func/rate#/42: {store:{prop:{&dir}recent,ATM}{nl}{secs} {name:me}, @set bid=func/rate#/43: {&dir}recent,ATM} @set bid=func/rate#/44: {otell: {prop:_misc/symbol,this} {rand:mesg/rate.otell,this},here,-1} @set bid=func/rate#/45: , @set bid=func/rate#/46: {null:TEMP - COMMENT NO; IT'll CHECK (for now give a comment!)} @set bid=func/rate#/47: {if:{or:{eq:{&rating},5},{eq:{&rating},1}}, @set bid=func/rate#/48: {tell: {prop:_misc/symbol,this} {rand: @set bid=func/rate#/49: mesg/rate.51error,this},me} @set bid=func/rate#/5: {if:{gt:{count:{&arg}, },1}, @set bid=func/rate#/50: , @set bid=func/rate#/51: {store:{add:{prop:{&dir}rated{&rating},ATM},1}, @set bid=func/rate#/52: {&dir}rated{&rating},ATM} @set bid=func/rate#/53: {store:{prop:{&dir}recent,ATM}{nl}{secs} {name:me}, @set bid=func/rate#/54: {&dir}recent,ATM} @set bid=func/rate#/55: {otell: {prop:_misc/symbol,this} {rand: @set bid=func/rate#/56: mesg/rate.otell,this},here,-1} @set bid=func/rate#/57: } @set bid=func/rate#/58: } @set bid=func/rate#/6: {null: /* SOMEBODY IS BEING RATED HERE */ } @set bid=func/rate#/60: }END IF checking if too recent a rating @set bid=func/rate#/61: }END WITH-recent @set bid=func/rate#/62:END RATE CONFLICT CHECK HERE @set bid=func/rate#/63: }END WITH-DIR @set bid=func/rate#/64: , @set bid=func/rate#/65: {tell: {prop:_misc/symbol,this} Ratings should be from 5 (great) to 1 (awful); you entered {&rating}\, which isn't between five and one.} @set bid=func/rate#/66: } @set bid=func/rate#/67: , @set bid=func/rate#/68: {tell: {prop:_misc/symbol,this} I know who {&person} is\, but '{&rating}' isn't a number.,me} @set bid=func/rate#/69: } @set bid=func/rate#/7: {with:rating,{sublist:{&arg},2,2, }, @set bid=func/rate#/71: }END IF me-rating-myself @set bid=func/rate#/72: , @set bid=func/rate#/73: {tell: {prop:_misc/symbol,this} You have no recent sales history between you and {name:*{&person}}; therefore you are not allowed to rate {name:*{&person}} at this time.,me} @set bid=func/rate#/74: } @set bid=func/rate#/75: }END WITH-events @set bid=func/rate#/76: }END WITH-rating @set bid=func/rate#/77: , @set bid=func/rate#/78: @set bid=func/rate#/79: {null: /* HERE WE'RE LOOKING UP SOMEBODY'S RATINGS */ } @set bid=func/rate#/8: {with:events, @set bid=func/rate#/80: @set bid=func/rate#/81: {with:dir,_player/{prop:_names/{&person},ATM}/rate/, @set bid=func/rate#/82: {with:ratelist, {prop:_misc/symbol,this}, @set bid=func/rate#/83: {for:a,5,1,-1, @set bid=func/rate#/84: {if:{prop:{&dir}rated{&a},ATM},,{store:0,{&dir}rated{&a},ATM}} @set bid=func/rate#/85: {set:ratelist,{&ratelist} {prop:func/ratings#/{&a},this}[{&a}] = {prop:{&dir}rated{&a},ATM}} @set bid=func/rate#/86: } @set bid=func/rate#/87: {tell: {prop:_misc/symbol,this} {name:*{&person}} has been given the following ratings:{nl}{&ratelist},me} @set bid=func/rate#/88: {if:{prop:{&dir}comments#,ATM}, @set bid=func/rate#/89: {with:rate,{rand:{&dir}comments,ATM}, @set bid=func/rate#/9: {filter:pline, @set bid=func/rate#/90: {tell: {prop:_misc/symbol,this} {rand:mesg/rating.comment,this}{nl} {prop:_misc/symbol,this} {sublist:{&rate},4,-1, },me} @set bid=func/rate#/91: } @set bid=func/rate#/92: , @set bid=func/rate#/93: {tell: Nobody has made any comments on {name:*{&person}} yet.,me} @set bid=func/rate#/94: } @set bid=func/rate#/95: }}END WITH-dir & WITH-ratelist @set bid=func/rate#/96: } @set bid=func/rate#/97: , @set bid=func/rate#/98: {tell: {prop:_misc/symbol,this} Sorry\, {name:me}\, I can't find any record on '{&person}'.,me} @set bid=func/rate#/99: } @set bid=func/ratings#:5 @set bid=func/ratings#/1:Awful @set bid=func/ratings#/2:Poor @set bid=func/ratings#/3:Okay @set bid=func/ratings#/4:Good @set bid=func/ratings#/5:Great @set bid=func/sell#:54 @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: {prop:_misc/symbol,this} {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: {otell: {name:{&arg}} has no petprefs set.,here,-1} @set bid=func/sell#/24: } @set bid=func/sell#/25: {if:{prop:_player/{prop:_names/{&arg},this}/minbid,this}, @set bid=func/sell#/26: {store:{subt:{prop:_player/{prop:_names/{&arg},this}/minbid,this},1},_auction/high_bid,this} @set bid=func/sell#/27: {otell: {prop:_misc/symbol,this} There is a minimum bid of {prop:_player/{prop:_names/{&arg},this}/minbid,this} on {name:{&arg}}.,here,-1} @set bid=func/sell#/28: } @set bid=func/sell#/29: {tell:{rand:mesg/sell.slave,this},{&arg}} @set bid=func/sell#/3: {null: /* I'M THE CURRENT AUCTIONEER /* } @set bid=func/sell#/30: {if:{eq:{prop:_player/{prop:_names/{&arg},this}/owner,this},}, @set bid=func/sell#/31: {tell: {prop:_misc/symbol,this} You are unowned\, and will not get the profits from this sale.,{&arg}} @set bid=func/sell#/32: } @set bid=func/sell#/33: , @set bid=func/sell#/34: {tell: I can't find the player '{&arg}' here.,me} @set bid=func/sell#/35: } @set bid=func/sell#/36: } @set bid=func/sell#/37: } @set bid=func/sell#/38: , @set bid=func/sell#/39: {null: /* I'M NOT THE CURRENT AUCTIONEER /* } @set bid=func/sell#/4: {if:{eq:{&arg},}, @set bid=func/sell#/40: {if:{eq:{&arg},}, @set bid=func/sell#/41: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/sell#/42: {tell:{rand:mesg/sell.busy,this},me} @set bid=func/sell#/43: , @set bid=func/sell#/44: {store:{name:me},_auction/auctioneer,this} @set bid=func/sell#/45: {otell: {prop:_misc/symbol} {rand:mesg/sell.new_auctioneer,this},here,-1} @set bid=func/sell#/46: } @set bid=func/sell#/47: , @set bid=func/sell#/48: {tell: You must take the gavel if you want to sell someone.,me} @set bid=func/sell#/49: } @set bid=func/sell#/5: {if:{eq:{lexec:_auction/running?,this},yes}, @set bid=func/sell#/50: } @set bid=func/sell#/51:, @set bid=func/sell#/52: {lexec:mesg/permission.denied,this} @set bid=func/sell#/53: {tell: See the 'shorthelp auctioneer' file for more information.,me} @set bid=func/sell#/54:} @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/sell-mesg/lifespan:30 @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}'.{if:{ne:{prop:help/{&arg}.long#/,this},},{nl} There's a longhelp entry\, though; type 'longhelp {&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#:49 @set bid=func/sold#/1:{null: /* THIS IS WHERE THE SELLING TAKES PLACE */ } @set bid=func/sold#/10: {null: /* THIS IS THE NEW ACCOUNT LIGHTENING CODE BEING TESTED... */ } @set bid=func/sold#/11: {with:Ag-part,{div:{mult:{prop:_money/spendsilver,this},{&bid}},100}, @set bid=func/sold#/12: {with:Au-part,{subt:{&bid},{&Ag-part}}, @set bid=func/sold#/13: {tell: Spend debug: Bid {&bid} = {&Ag-part}Ag + {&Au-part}Au (at {prop:_money/spendsilver,this}% silver),{owner:this}} @set bid=func/sold#/14: {tell: DEBUG: {name:{&winref}} has {&silver} silver and {&gold} gold.,{owner:this}} @set bid=func/sold#/15: {if:{lt:{&silver},{&Ag-part}}, @set bid=func/sold#/16: {set:Ag-part,{&silver}}{set:Au-part,{subt:{&bid},{&silver}}}, @set bid=func/sold#/17: {if:{lt:{&gold},{&Au-part}}, @set bid=func/sold#/18: {set:Au-part,{&gold}}{set:Ag-part,{subt:{&bid},{&gold}}} @set bid=func/sold#/19: }} @set bid=func/sold#/2:{if:{eq:{prop:_auction/high_bid,this},0}, @set bid=func/sold#/20: {tell: DEBUG: Bid {&bid} = {&Ag-part}Ag + {&Au-part}Au,#151545} @set bid=func/sold#/21: {store:{subt:{&silver},{&Ag-part}},_player/{&winref}/silver,this} @set bid=func/sold#/22: {store:{subt:{&gold},{&Au-part}},_player/{&winref}/gold,this} @set bid=func/sold#/23: }} @set bid=func/sold#/24: }} @set bid=func/sold#/25: {null: /* HERE THE PAYMENT IS MADE TO THE OWNER OF RECORD */ } @set bid=func/sold#/26: {with:owner, @set bid=func/sold#/27: {prop:_player/{prop:_names/{prop:_auction/slave,this},this}/owner,this} @set bid=func/sold#/28: , @set bid=func/sold#/29: {if:{ne:{&owner},}, @set bid=func/sold#/3: {tell: You can't sell {prop:_auction/slave,this} yet; there's no bid!,me} @set bid=func/sold#/30: {with:ownergold,{prop:_player/{&owner}/gold,this}, @set bid=func/sold#/31: {if:{lt:{&ownergold},{prop:_money/goldtax,this}}, @set bid=func/sold#/32: {store:{add:{&bid},{&ownergold}},_player/{&owner}/gold,this} @set bid=func/sold#/33: , @set bid=func/sold#/34: {null: /* THE GOLD TAX IS PROCESSED HERE */ } @set bid=func/sold#/35: {store: @set bid=func/sold#/36: {add:{&ownergold},{div:{mult:{&bid},{prop:_money/goldtax,this}},{&ownergold}}}, @set bid=func/sold#/37: _player/{&owner}/gold,this} @set bid=func/sold#/38: } @set bid=func/sold#/39: } @set bid=func/sold#/4:, @set bid=func/sold#/40: } @set bid=func/sold#/41: } @set bid=func/sold#/42: {if:{eq:{prop:_misc/history?,this},yes},{lexec:func/sold.history,this}} @set bid=func/sold#/43: {if:{gt:{prop:_misc/auctioneer_percentage,this},0},{lexec:func/sell-conversion,this}} @set bid=func/sold#/44: {otell:{rand:mesg/sell.sold,this},here,-1} @set bid=func/sold#/45: {store:,_auction/slave,this} @set bid=func/sold#/46: {store:,_auction/bidder,this} @set bid=func/sold#/47: {store:0,_auction/high_bid,this} @set bid=func/sold#/48: }} @set bid=func/sold#/49:} @set bid=func/sold#/5: {with:bid,{prop:_auction/high_bid,this}, @set bid=func/sold#/6: {with:winref,{prop:_names/{prop:_auction/bidder,this},this}, @set bid=func/sold#/7: {with:silver,{prop:_player/{&winref}/silver,this}, @set bid=func/sold#/8: {with:gold,{prop:_player/{&winref}/gold,this}, @set bid=func/sold#/9: {null: /* HERE THE WINNER'S ACCOUNT IS LIGHTENED */ } @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: {secs} {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#:31 @set bid=func/status#/1:{if:{eq:{&arg},}, @set bid=func/status#/10: } @set bid=func/status#/11: {tell: You have {lexec:_money/you_have,this}.,me} @set bid=func/status#/12: {if:{and: @set bid=func/status#/13: {eq:{name:me},{prop:_auction/auctioneer,this}}, @set bid=func/status#/14: {eq:{lexec:_auction/running?,this},yes} @set bid=func/status#/15: }, @set bid=func/status#/16: {lexec:func/status.auctioneer,this} @set bid=func/status#/17: } @set bid=func/status#/18:, @set bid=func/status#/19: {if:{or:{eq:{&arg},me},{not:{and: @set bid=func/status#/2: {if:{eq:{lexec:_auction/running?},yes}, @set bid=func/status#/20: {lmember:{list:_authlist,this},{ref:me}}, @set bid=func/status#/21: {ne:{prop:_names/{&arg},this},}}}} @set bid=func/status#/22: , @set bid=func/status#/23: {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#/24: {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#/25: , @set bid=func/status#/26: {with:fur,{prop:_names/{&arg},this}, @set bid=func/status#/27: {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#/28: {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#/29: } @set bid=func/status#/3: {if:{eq:{prop:_auction/bidder,this},nobody}, @set bid=func/status#/30: } @set bid=func/status#/31:} @set bid=func/status#/4: {tell: {prop:_misc/symbol,this} There's been no bid yet{if:{prop:_auction/high_bid},; there is a minimum bid of {add:{prop:_auction/high_bid,this},1}} on {prop:_auction/slave,this}.,me} @set bid=func/status#/5: , @set bid=func/status#/6: {tell:{rand:mesg/status.auction,this},me} @set bid=func/status#/7: } @set bid=func/status#/8: , @set bid=func/status#/9: {tell: There is no auction running now.,me} @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#:22 @set bid=func/vote#/1:{if:{eq:{&arg},}, @set bid=func/vote#/10: {if:{lmember:{list:func/vote.data/voters,this},{ref:{owner:me}}}, @set bid=func/vote#/11: {tell: Sorry\, {name:{owner:me}}\, but you have already voted in this poll.,me} @set bid=func/vote#/12: , @set bid=func/vote#/13: {store:{add:{prop:func/vote.data/voters#,this},1},func/vote.data/voters#,this} @set bid=func/vote#/14: {store:{ref:{owner:me}},func/vote.data/voters#/{prop:func/vote.data/voters#,this},this} @set bid=func/vote#/15: {store:{add:{prop:func/vote.data/{&arg},this},1},func/vote.data/{&arg},this} @set bid=func/vote#/16: {tell: {prop:_misc/symbol,this} You vote {&arg}! {prop:_misc/symbol,this},me} @set bid=func/vote#/17: {tell:{eval:{prop:desc/vote#/5,this}},me} @set bid=func/vote#/18: {otell:{name:me} votes in the poll! (Type 'vote'.),here,-1} @set bid=func/vote#/19: } @set bid=func/vote#/2: {tell:{eval:{list:desc/vote,this}},me} @set bid=func/vote#/20: } @set bid=func/vote#/21:} @set bid=func/vote#/22:} @set bid=func/vote#/3:, @set bid=func/vote#/4:{if:{lmember:{list:func/vote.data/voters,this},{ref:{owner:me}}}, @set bid=func/vote#/5: {tell: Sorry\, {name:{owner:me}}\, but you may only vote once per poll.,me} @set bid=func/vote#/6:, @set bid=func/vote#/7: {if:{eq:{prop:func/vote.data/{&arg},this},}, @set bid=func/vote#/8: {tell: Sorry\, but '{&arg}' doesn't seem to be an option; try voting {commas:{prop:func/vote.options,this}, or }.,me} @set bid=func/vote#/9: , @set bid=func/vote.data/voters#:1 @set bid=func/vote.data/voters#/1:#0 @set bid=func/vote.status:off @set bid=func/vote.verbose:yes "Loading help files. This may take a while, too. @set bid=help/aa: /* YOU DON'T REALLY NEED ME TO EXPLAIN 'HELP', DO YOU? */ @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. See 'irs #help'. @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.{nl} See 'longhelp auctioneer'\, which gives help FOR auctioneers.} @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:{gt:{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#:4 @set bid=help/chain.long#/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=help/chain.long#/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. It doesn't really matter\, though\, since a person who's not present can't be sold.} @set bid=help/chain.long#/3: Typing 'chain me' or 'unchain me' will be enough for most users. @set bid=help/chain.long#/4: Also check out 'unchain #help' or 'shorthelp unchain'. @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/customizing.long#:2 @set bid=help/customizing.long#/1: There's not too much you can do to customize the way the Auction II system works for you...yet. This may come along in later versions of the system, but as of Ver. {prop:_misc/ver,this} ({prop:_misc/verdate}) it only does so much.{if:{lmember:{list:_authlist,this},{ref:{owner:me}}},{nl} As an auctioneer\, you CAN do a few things; see 'longhelp irs'.} @set bid=help/customizing.long#/2: See 'longhelp petprefs'. @set bid=help/defaults.long#:9 @set bid=help/defaults.long#/1:{null:{with:symbol,{prop:_misc/symbol,this}, @set bid=help/defaults.long#/2:{tell: The Auction II system ships with certain defaults; checking this may tell you something about how this version differs from the system as it ships.{nl} {&symbol} PRM SETTING DEFAULT CURRENT {&symbol},me} @set bid=help/defaults.long#/3:{foreach:line,{list:_misc/defaults,this}, @set bid=help/defaults.long#/4: {tell: {&symbol} {sublist:{&line},1,1,:} {sublist:{&line},2,2,:}:{right:{sublist:{&line},4,4,:},{subt:45,{strlen:{sublist:{&line},2,2,:}}}} - {prop:{sublist:{&line},3,3,:},this},me} @set bid=help/defaults.long#/5:} @set bid=help/defaults.long#/6:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=help/defaults.long#/7: {tell: Permission (PRM) refers to who may reset the value; A=Auctioneers\, S=Superusers\, O=Owner. The syntax is 'sell #set [SETTING NAME] [VALUE]'.,me} @set bid=help/defaults.long#/8:} @set bid=help/defaults.long#/9:}} @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}}} @set bid=help/faq.long#:10 @set bid=help/faq.long#/1: This is the Auction II system FAQ list (version June 2002). Send any suggested additions to Dina! @set bid=help/faq.long#/10:A: If the buyer and slave can't make their plans work, it's suggested that the slave just give back the money. We can't MAKE a player do something on a muck, after all, so that's about the only thing to do. @set bid=help/faq.long#/2: @set bid=help/faq.long#/3:Q: Help, my petprefs don't work! @set bid=help/faq.long#/4:A: This is the single most misunderstood command in the Auction II system. The usual situation is that a user sets their permanent petprefs but doesn't tell the system to notice that; try typing 'petprefs #set'. If that doesn't work, see 'longhelp petprefs'. @set bid=help/faq.long#/5: @set bid=help/faq.long#/6:Q: I got sold but didn't get any money! What gives? @set bid=help/faq.long#/7:A: You didn't set your ownership. Since the payment goes to the slave's owner, you must be owned by yourself if you're to get any money from a sale. See 'owner #help'. @set bid=help/faq.long#/8: @set bid=help/faq.long#/9:Q: My slave and I can't get together! Now what? @set bid=help/faq.short#:1 @set bid=help/faq.short#/1: There is a FAQ available for the Auction II system, but it's a fairly long piece of text which you may not want to call up in the middle of a spammy auction. Type 'longhelp faq' to see it. @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/irs.long#:3 @set bid=help/irs.long#/1: The 'irs' command is an auctioneer-only command used to check wealth.{if:{lmember:{list:_authlist,this},{ref:{owner:me}}}, Simply by typing 'irs' you'll see {if:{eq:{prop:_misc/irs,this},alpha},an alphabetized list of users in the room and how much money they have,{if:{eq:{prop:_misc/irs,this},wealth},a list of every user in the room sorted by wealth,NOTHING because the _misc/irs property has been set to '{prop:_misc/irs,this}' when it needs to be either 'alpha' or 'wealth' -- tell {name:{owner:this}} ASAP so it can be fixed}}. You can also type 'irs Foo' to see Foo's personal account information. @set bid=help/irs.long#/2: The list formats may always be manually evoked; use 'irs #wealth' to get a list of the players in the room sorted by wealth and 'irs #alpha' to see them in alphabetical order. @set bid=help/irs.long#/3: You may customize the way the 'irs' command works for you by setting the _prefs/A2/irs property on yourself; the currently supported legal values are alpha and wealth. Only {name:{owner:this}} can reset the system default.} @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 a few months later after it became 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. The give tax (currently {prop:_money/givetax,this}% per gift) was also a late addition, coming in nearly two years after the Auction II system went online when a gold glut made it obvious that a small restriction on giving was a good idea for economic control in the long run. @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 the currently settings}. @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; they are volunteers, with no economic reward. (They {if:{_misc/auctioneer_percentage,this},do get a little of their own silver transmuted to gold on every sale\, but it's pretty pitiful,can have some of their silver transmuted to gold for every sale\, but that's currently turned off}.) 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. You can type 'petprefs #set TEXT' to {if:{prop:_player/{ref:me}/petprefs,this},update your current petprefs,do this now since you currently have none}.{if:{prop:_petprefs,me}, You may also import the petprefs you have on your _petprefs property by typing 'petprefs #set'.}{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/rate.long#:3 @set bid=help/rate.long#/1: Checking a user's ratings is as explained in 'shorthelp rate'. The comment displayed, if any, is random. Variations may appear later (such as a graph and a way to see ALL comments). @set bid=help/rate.long#/2: To rate somebody, you must be associated with them in the sales history and you must not have rated them since the most recent sales event involving both of you (and you can't rate yourself). The syntax is 'rate NAME NUMBER [COMMENT]', Comments are optional except when giving 5 ro 1 ratings; they're polite any time, but when giving extreme ratings comments are required and should explain why the rating is deserved. @set bid=help/rate.long#/3: Your ratings are {with:mydir,_player/{ref:me}/rate/,5-{prop:{&mydir}rating-5}\, 4-{prop:{&mydir}rating-4}\, 3-{prop:{&mydir}rating-3}\, 2-{prop:{&mydir}rating-2}\, 1-{prop:{&mydir}rating-1}\, and you have {if:{prop:{&mydir}comments#,this},{prop:{&mydir}comments#,this},no}} comments. @set bid=help/rate.short#:4 @set bid=help/rate.short#/1: The rate command lets players give feedback on each other. @set bid=help/rate.short#/2: Usage is simple. To find out Foo's ratings so far, just type 'rate Foo'. The rating numbers range from 5 {prop: ratings#/5,this} to 1 {prop: ratings#/1,this}. @set bid=help/rate.short#/3: To rate somebody, you must be associated with them in the sales history (see 'shorthelp history'); the syntax is 'rate NAME NUMBER [COMMENT]'. @set bid=help/rate.short#/4: See 'longhelp rate'. @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.{null:{if:{gt:{dice:3},2},{otell:{name:me} Reads The Fine Manual!}}} @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#:34 @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.long#/10: 'sell #debug' code to set things right.) @set bid=help/sell.long#/11: @set bid=help/sell.long#/12: SELL #GRAB This command will let an auctioneer 'grap' the gavel away from @set bid=help/sell.long#/13: another in the middle of an auction; this is useful when an @set bid=help/sell.long#/14: auctioneer goes idle or disconnects. @set bid=help/sell.long#/15: @set bid=help/sell.long#/16:{if:{lmember:{list:_authsuper,this},{ref:me}}, SELL #KAMIKAZE This command causes the Auction II code on this db object @set bid=help/sell.long#/17: to self-destruct\, allowing a clean install of a new version @set bid=help/sell.long#/18: while preserving the user database records. Fortunately\, @set bid=help/sell.long#/19: only {name:{owner:this}} may use this command.} @set bid=help/sell.long#/2: @set bid=help/sell.long#/20: @set bid=help/sell.long#/21: SELL #MESG This is the command that posts the system's internal auctioneer @set bid=help/sell.long#/22: messages; more information can be found in 'sell #mesghelp'. @set bid=help/sell.long#/23: @set bid=help/sell.long#/24:{if:{lmember:{list:_authsuper,this},{ref:me}}, SELL #RAGNAROK The second very destructive feature\, this command will wipe @set bid=help/sell.long#/25: the user database clean\, leaving no money or petprefs for @set bid=help/sell.long#/26: anyone. It'll probably never be needed but it's here just @set bid=help/sell.long#/27: in case; only {name:{owner:this}} may use this command.} @set bid=help/sell.long#/28: @set bid=help/sell.long#/29: SELL #SET This allows people with the proper privileges to reconfigure the @set bid=help/sell.long#/3: The 'sell' command is the auctioneer's great tool... This file assumes you've read 'shorthelp sell' (which is the same as 'sell #help') and won't repeat the basics from that text. Advanced features will be covered here. @set bid=help/sell.long#/30: Auction II system parameters. Type 'sell #set' for more help. @set bid=help/sell.long#/31: @set bid=help/sell.long#/32: SELL #SPIFF This allows auctioneers (and only auctioneers) to spoof @set bid=help/sell.long#/33: unhindered by the usual limitations of the spoof command. @set bid=help/sell.long#/34: It's VERY easy to abuse, though, so don't... @set bid=help/sell.long#/4: Related information may be found in 'sell #help', 'longhelp auctioneer', and 'bid #help'. @set bid=help/sell.long#/5: @set bid=help/sell.long#/6: SELL #DEBUG If the Auction II system burps up MPI errors on you, especially @set bid=help/sell.long#/7: during an auction, try this. It can never hurt and will often @set bid=help/sell.long#/8: find the problem. (For example, if 'shorthelp auctioneer' is @set bid=help/sell.long#/9: not working, you've probably had an auctioneer toaded. Run the @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'. @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#:14 @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: The give tax is currently {if:{prop:_money/givetax,this},{prop:_money/givetax,this}% per transaction,turned off}. @set bid=help/settings.long#/11: @set bid=help/settings.long#/12: Gambling is set to a maximum bet of {prop:_gamble/limit,this} and is available to users who don't have more than {prop:_gamble/wealth,this} silver. @set bid=help/settings.long#/13: @set bid=help/settings.long#/14: The Auction II announcement symbol is this: {prop:_misc/symbol,this}{if:{lcommon:{list:_authlist,this},{ref:me}},{nl} {nl} As an auctioneer\, {name:me}\, you should also see 'longhelp defaults'.} @set bid=help/settings.long#/2: @set bid=help/settings.long#/3: The current auctioneers are {commas:{lsort:{parse:n,{list:_authlist,this},{name:{&n}}}}}. This list can be changed by the Auction II code owner, {name:{owner:this}}.{if:{lcommon:{list:_authlist,this},{ref:me}}, The auctioneer transmutation percentage is set to {prop:_misc/auctioneer_percentage,this}%.} @set bid=help/settings.long#/4: @set bid=help/settings.long#/5: 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#/6: @set bid=help/settings.long#/7: 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#/8: Speaking of time, {if:{prop:auctiondays,here},auction days are recorded,nobody has set any auction day}. @set bid=help/settings.long#/9: The gold tax begins to take effect when a person exceeds {prop:_money/goldtax,this} gold {prop:_money/currency_name,this}. @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#:7 @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 just staying 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/taxes.long#/6: @set bid=help/taxes.long#/7: It is also possible to tax giving; this is {if:{gt:{prop:_money/givetax,this},0},currently {prop:_money/givetax,this}% of the amount given,not currently enabled}. The gift tax rounds up to a whole number. @set bid=help/to-do.long#:18 @set bid=help/to-do.long#/1: Dina's TO-DO list, in no particular order: @set bid=help/to-do.long#/10: * Code a twit lockout feature? @set bid=help/to-do.long#/11: * Add new-user bonus? @set bid=help/to-do.long#/12: * Realtime prompt to auctioneer! @set bid=help/to-do.long#/13: * Sleepers never need to be put on the chain. @set bid=help/to-do.long#/14: * Allow puppets to use a specific few commands (like 'status') @set bid=help/to-do.long#/15: * Code the help subject lists so that they can be updated by MPI @set bid=help/to-do.long#/16: * Make a chain lock-out, to keep people from adding to the chain when the auctioneer is tired. @set bid=help/to-do.long#/17: @set bid=help/to-do.long#/18: Please {if:{eq:{ref:this},#59909},tell Dina,email dina_at_furry@yahoo.com} 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 (an eternal entry on this list!) @set bid=help/to-do.long#/4: * Write documentation for new new owners @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: * Improve the currently pretty mediocre FAQ @set bid=help/unchain.short#:1 @set bid=help/unchain.short#/1:{eval:{list:desc/unchain,this}} @set bid=help/url.short#:1 @set bid=help/url.short#/1: The Auction II homepage is at http://www.geocities.com/dina_at_furry/ and should be visited. It has links, on-line help, and the Auction II system is available for download there. @set bid=help/version.short#:1 @set bid=help/version.short#/1: {prop:_misc/symbol,this} This action is running Auction II version {prop:_misc/ver,this} (v. {prop:_misc/verdate,this}). @set bid=history/high.for.week:0 @set bid=history/now:0 "Loading response messages. @set bid=mesg/aa: /* MESSAGE TEXTS GO HERE */ @set bid=mesg/ATM.new_user#:2 @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.new_user#/2: Welcome to the Auction II system, {name:me}! Please read the help files to learn how to use the program here; type 'shorthelp' and it'll walk you through it from there. @set bid=mesg/ATM.osucc#:29 @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#/27:{if:{eq:{count:{contents:here,player}},1},gets money! *Ka-ching!*,{with:other,{name:{lrand:{lremove:{contents:here,player},*{name:me}}}},spots {&other} pulling out a cigarette! {name:me} quickly pulls out a fire extinguisher and covers {&other} from head to foot in white foam!{nl}{&other} drips on the carpet.{null:{delay:{dice:9},{lit:{null:{otell: {prop:_misc/symbol,this} {name:me} gets a {prop:_money/ATM_output,this} {prop:_money/currency_name,this} reward for enforcing the no smoking policy!,here,-1}}}}}}} @set bid=mesg/ATM.osucc#/28:washes {pronouns:%p} pants and finds {prop:_money/ATM_output,this} {prop:_money/currency_name,this} wadded up in the drier afterwards! @set bid=mesg/ATM.osucc#/29:holds a bake sale for the benefit of impoverished {prop:species,me}s and makes {prop:_money/ATM_output,this} {prop:_money/currency_name,this}. Good for {pronouns:%o}! @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#:3 @set bid=mesg/bid.bid#/1:{with:n,{pronouns:%N,me},{&n}{if:{smatch:{&n},*{name:me}*},, ({name:me})}} bids {&arg} {prop:_money/currency_name,this} on {prop:_auction/slave,this}! @set bid=mesg/bid.bid#/2:{with:n,{pronouns:%N,me},{&n}{if:{smatch:{&n},*{name:me}*},, ({name:me})}} will buy {prop:_auction/slave,this} for {&arg} {prop:_money/currency_name,this}! @set bid=mesg/bid.bid#/3:{name:me} offers {&arg} {prop:_money/currency_name,this} for {prop:_auction/slave,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.help2#:2 @set bid=mesg/bid.help2#/1:You may set a minimum bid price with 'bid #minimum [number]'. @set bid=mesg/bid.help2#/2:By using 'bid #minimum [number]' you may set a starting price. @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.rejected#:1 @set bid=mesg/bid.rejected#/1:doesn't like {prop:_auction/bidder,this}'s bid! {pronouns:%S} refuses {prop:_auction/bidder,this}'s bid if {prop:_auction/high_bid,this} and brings back {prop:_auction/lastbidder,this}'s offer of {prop:_auction/lastbid,this}! @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/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:_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#:2 @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.succ#/2:{name:*{&target}} got {&gift} gold (after the {prop:_money/givetax,this}% tax of {&givetax}) and now has {prop:_player/{&targetdbref}/gold,this}. You have {prop:_player/{ref:me}/gold,this} gold {prop:_money/currency_name,this} left. @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.easteregg-day/0101: {prop:_misc/symbol,this} Happy New Year {ftime:%Y}\, {name:me}! @set bid=mesg/misc.easteregg-day/0222:{null:{otell: {prop:_misc/symbol,this} On Tuesday February 22nd 2000 the very first Auction II slave auction took place at Dina's auction hall on FurryMuck\, {subt:{ftime:%Y},2000} years ago today.,here,-1}} @set bid=mesg/misc.easteregg-day/0310: {prop:_misc/symbol} Don't spread it around, but this is Dina's VR birthday. :-) @set bid=mesg/misc.easteregg-day/0819: {prop:_misc/symbol,this} Today in 2001 Dina released Version 1.0 of the Auction II system; as a publically available piece of software it's {subt:{ftime:%Y},2001} years old today. Happy birthday! @set bid=mesg/misc.easteregg-day/1225: But Merry Christmas anyway\, {name:me}! @set bid=mesg/misc.easteregg-day/1226: Are you enjoying Boxing Day\, {name:me}? @set bid=mesg/misc.eastereggs#:6 @set bid=mesg/misc.eastereggs#/1:Easter eggs are invisible to {name:me}.{null:{lexec:mesg/misc.eastereggs-daily,this}} @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.{null:{lexec:mesg/misc.eastereggs-daily,this}} @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#:4 @set bid=mesg/misc.eastereggs-daily#/1:{null:{if:{prop:mesg/misc.easteregg-day/{ftime:%m%d},this}, @set bid=mesg/misc.eastereggs-daily#/2: {delay:{dice:30},{lit:{eval:{prop:mesg/misc.easteregg-day/{ftime:%m%d},this}}}} @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/rate.51error#:2 @set bid=mesg/rate.51error#/1:When giving a rating of 5 or 1, you must also supply a comment. @set bid=mesg/rate.51error#/2:When giving a rating of {&rating} you must also supply a comment. Please explain why you thought {name:*{&person}} was so {if:{eq:{&rating},5},wonderful,awful} that a {&rating} is deserved. @set bid=mesg/rate.otell#:1 @set bid=mesg/rate.otell#/1:{name:me} rates {&person} a '{&rating}'! @set bid=mesg/rate.repeat.error#:1 @set bid=mesg/rate.repeat.error#/1:You have already rated {name:*{&person}}; you can't rate twice for one purchase. @set bid=mesg/rating.comment#:3 @set bid=mesg/rating.comment#/1:{sublist:{&rate},2,2, } gave {name:*{&person}} a rating of {sublist:{&rate},3,3, } on {ftime:%b %d\, %Y,,{sublist:{&rate},1,1, }} with the comment: @set bid=mesg/rating.comment#/2:On {ftime:%b %d\, %Y,,{sublist:{&rate},1,1, }} {sublist:{&rate},2,2, } gave a rating of {sublist:{&rate},3,3, } and said: @set bid=mesg/rating.comment#/3:{name:*{&person}} has {prop:{&dir}comments#,ATM} comments; {sublist:{&rate},2,2, } gave a rating of {sublist:{&rate},3,3, } and said: @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#:3 @set bid=mesg/sell.for_sale#/1:{pronouns:%N,me} puts {name:{&arg}} up for sale! Who will bid? @set bid=mesg/sell.for_sale#/2:{pronouns:%N,me} opens the bidding on {name:{&arg}}! @set bid=mesg/sell.for_sale#/3:{pronouns:%N,me} opens bidding on {name:{&arg}} (who has ratings of{with:rates,,{for:a,5,1,-1,{set:rates,{&rates} {prop:_player/{prop:_names/{&arg},bid}/rate/rated{&a},bid}}},{&rates}})! Come one, come all! @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.set/money.osucc#:3 @set bid=mesg/sell.set/money.osucc#/1:changes the name of the currency! You all have pockets full of {&money}! @set bid=mesg/sell.set/money.osucc#/2:decides {pronouns:%s doesn't like having '{prop:_money/currency_name,this}'; %s renames them '{&money}'!{if:{gt:{dice:2},1}, (%S's got special powers - %s can do that.)}} @set bid=mesg/sell.set/money.osucc#/3:performs Stupid Auctioneer Tricks! With a wave of {pronouns:%p} magic wand all your {prop:_money/currency_name,this} become {&money}! @set bid=mesg/sell.set/symbol.osucc#:2 @set bid=mesg/sell.set/symbol.osucc#/1:changes the Auction II system symbol! @set bid=mesg/sell.set/symbol.osucc#/2:declares that '{&symbol}' is a better Auction II system symbol than '{prop:_misc/symbol,this}' and changes it! @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}. ({prop:_auction/slave,this}'s ratings are{with:rates,,{for:a,5,1,-1,{set:rates,{&rates} {prop:_player/{prop:_names/{prop:_auction/slave,bid},bid}/rate/rated{&a},bid}}}}.) {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. {prop:_auction/slave,this}'s ratings are{with:rates,,{for:a,5,1,-1,{set:rates,{&rates} {prop:_player/{prop:_names/{prop:_auction/slave,bid},bid}/rate/rated{&a},bid}}}}. {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/forget#:20 @set bid=pound/atm/forget#/1:{if:{eq:{count:{&arg}, },2}, @set bid=pound/atm/forget#/10: {delprop:_names/{&oldname},this} @set bid=pound/atm/forget#/11: {tell: {prop:_misc/symbol,this} Okay\, the old '{&oldname}' lookup has been removed. Thanks\, {&oldname}/{name:me}!,me} @set bid=pound/atm/forget#/12: } @set bid=pound/atm/forget#/13: } @set bid=pound/atm/forget#/14: , @set bid=pound/atm/forget#/15: {tell: Sorry\, I can't find anyone named '{&oldname}' on file.,me} @set bid=pound/atm/forget#/16: } @set bid=pound/atm/forget#/17: } @set bid=pound/atm/forget#/18:, @set bid=pound/atm/forget#/19: {tell: {prop:_misc/symbol,this} This feature will remove an old name from the database\, in the event that you change your name. You'll have to type 'ATM #forget OLD_NAME'\, though.,me} @set bid=pound/atm/forget#/2: {with:oldname,{sublist:{&arg},2,2, }, @set bid=pound/atm/forget#/20:} @set bid=pound/atm/forget#/3: {if:{prop:_names/{&oldname},this}, @set bid=pound/atm/forget#/4: {if:{ne:{ref:me},{prop:_names/{&oldname},this}}, @set bid=pound/atm/forget#/5: {tell: {prop:_misc/symbol,this} Hey\, you can't erase that file! You're not {&oldname}!,me} @set bid=pound/atm/forget#/6: , @set bid=pound/atm/forget#/7: {if:{eq:{name:me},{&oldname}}, @set bid=pound/atm/forget#/8: {tell: Delete your own file? Don't be silly!,me} @set bid=pound/atm/forget#/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: {prop:_misc/symbol,this} Okay\, {name:me}\, I'll know you from now on. Thanks!{nl} If you've changed your name\, please do an 'ATM #forget'\, okay? The Auction II system CAN be confused by that.,me} @set bid=pound/atm/learn#/4:, @set bid=pound/atm/learn#/5: {tell: {prop:_misc/symbol,this} Your name and dbref is already on file\, {name:me}. But thanks for checking.,me} @set bid=pound/atm/learn#/6:} @set bid=pound/bid/help#:4 @set bid=pound/bid/help#/1:{tell:{rand:mesg/bid.help,this} {rand:mesg/bid.help2},me} @set bid=pound/bid/help#/2:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/bid/help#/3: {tell: {name:me}\, when you are the auctioneer you may use the 'bid #reject' to reject the most recent bid; this restores the next most recent offer as the high bid. Note that the system has only one memory slot\, so you cannot scroll back through the bidding history (which is not stored). There's no software interlock to keep you from rejecting a bid and selling to someone you like better but it's not right so don't\, okay?,me} @set bid=pound/bid/help#/4:} @set bid=pound/bid/minimum#:9 @set bid=pound/bid/minimum#/1:{null: /* THE MINIMUM BID SUPPORT WILL GO HERE... SEE NEXT VERSION? */ } @set bid=pound/bid/minimum#/2:{with:minbid,{sublist:{&arg},-1,-1, }, @set bid=pound/bid/minimum#/3:{if:{isnum:{&minbid}}, @set bid=pound/bid/minimum#/4: {tell: DEBUG: {&arg},me} @set bid=pound/bid/minimum#/5: {tell: {prop:_misc/symbol,this} You set your starting price to {&minbid}!,me} @set bid=pound/bid/minimum#/6: {store:{&minbid},_player/{ref:me}/minbid,this} @set bid=pound/bid/minimum#/7:, @set bid=pound/bid/minimum#/8: {tell: {prop:_misc/symbol,this} Command syntax is 'bid #minimum #'\, where # is the minimum allowed bid for you. Zero is a legal value. Currently you{if:{prop:_player/{ref:me}/minbid,this},r starting bid is {prop:_player/{ref:me}/minbid,bid}, have no minimum bid set}.,me} @set bid=pound/bid/minimum#/9:}} @set bid=pound/bid/reject#:20 @set bid=pound/bid/reject#/1:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/bid/reject#/10: {store:{prop:_auction/lastbid,this},_auction/high_bid,this} @set bid=pound/bid/reject#/11: } @set bid=pound/bid/reject#/12: , @set bid=pound/bid/reject#/13: {tell: {prop:_misc/symbol,this} You can't reject a bid! There is no bid!,me} @set bid=pound/bid/reject#/14: } @set bid=pound/bid/reject#/15: , @set bid=pound/bid/reject#/16: {tell: {prop:_misc/symbol,this} You can only reject a bid when you're the auctioneer\, {name:me}! Right now that's {prop:_auction/auctioneer,this}.,me} @set bid=pound/bid/reject#/17: } @set bid=pound/bid/reject#/18:, @set bid=pound/bid/reject#/19: {tell: {prop:_misc/symbol,this} Only the current auctioneer may use this feature.,me} @set bid=pound/bid/reject#/2: {if:{or:{eq:{prop:_auction/auctioneer,this},{name:me}},{eq:{prop:_auction/slave,this},{name:me}}}, @set bid=pound/bid/reject#/20:} @set bid=pound/bid/reject#/3: {if:{prop:_auction/high_bid,this}, @set bid=pound/bid/reject#/4: {if:{eq:{prop:_auction/high_bid,this},{prop:_auction/lastbid,this}}, @set bid=pound/bid/reject#/5: {tell: DEBUG - stuff here} @set bid=pound/bid/reject#/6: {tell: {prop:_misc/symbol,this} Um\, there's no last bid on record; I don't know who bid before this...,me} @set bid=pound/bid/reject#/7: , @set bid=pound/bid/reject#/8: {otell: {prop:_misc/symbol,this} {name:me} {rand:mesg/bid.rejected,this},here,-1} @set bid=pound/bid/reject#/9: {store:{prop:_auction/lastbidder,this},_auction/bidder,this} @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/alpha#:26 @set bid=pound/irs/alpha#/1:{null: /* THIS LISTS PEOPLE PRESENT IN ALPHABETICAL ORDER */ } @set bid=pound/irs/alpha#/10: {right: {add:{prop:{&ndir}silver,this},{&gold}} Total (ATM ,20,.} @set bid=pound/irs/alpha#/11: {ftime:%R %b %d,,{prop:{&ndir}ATM_last,bid}} @set bid=pound/irs/alpha#/12: {if:{gt:{add:{prop:{&ndir}silver,this},{&gold}},{prop:_money/ATM_limit,this}}, $,{if:{lt:{add:{prop:{&ndir}ATM_last,this},{prop:_money/ATM_delay,this}},{secs}}, Y, N}}) @set bid=pound/irs/alpha#/13: ,me} @set bid=pound/irs/alpha#/14: }} @set bid=pound/irs/alpha#/15: , @set bid=pound/irs/alpha#/16: {set:no-record,{mklist:{&no-record},{name:{&n}}}} @set bid=pound/irs/alpha#/17: } @set bid=pound/irs/alpha#/18: } @set bid=pound/irs/alpha#/19: {set:no-record,{lremove:{&no-record},{nl}}}{null: /* PATCH! */ } @set bid=pound/irs/alpha#/2:{if:{lmember:{list:_authlist,this},{ref:{owner:me}}}, @set bid=pound/irs/alpha#/20: {if:{ne:{&no-record},}, @set bid=pound/irs/alpha#/21: {tell:{prop:_misc/symbol,this} The system has no records on {commas:{&no-record}, or }.,me} @set bid=pound/irs/alpha#/22: } @set bid=pound/irs/alpha#/23: } @set bid=pound/irs/alpha#/24:, @set bid=pound/irs/alpha#/25: {tell: I don't think so\, {name:me}. Only auctioneers may use this feature.,me} @set bid=pound/irs/alpha#/26:} @set bid=pound/irs/alpha#/3: {with:no-record,, @set bid=pound/irs/alpha#/4: {foreach:n,{lsort:{contents:here,player}}, @set bid=pound/irs/alpha#/5: {if:{ne:{prop:_names/{name:{&n}},this},}, @set bid=pound/irs/alpha#/6: {with:ndir,_player/{prop:_names/{name:{&n}},this}/,{with:gold,{prop:{&ndir}gold,this}, @set bid=pound/irs/alpha#/7: {tell:{prop:_misc/symbol,this} {left:{name:{&n}} ,20,.} @set bid=pound/irs/alpha#/8: {right: {prop:{&ndir}silver,this} S ,10,.} @set bid=pound/irs/alpha#/9: {right: {if:{&gold},{&gold},0} G ,10,.} @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} See 'longhelp irs' for more information.,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#:32 @set bid=pound/irs/wealth#/1:{null: /* THIS LISTS PEOPLE PRESENT IN ORDER OF WEALTH */ } @set bid=pound/irs/wealth#/10: {set:patrons,{mklist:{&patrons}, @set bid=pound/irs/wealth#/11: {add:{&silver},{&gold}} Total (ATM {ftime:%R %b %d,,{prop:_player/{ref:{&person}}/ATM_last,bid}} @set bid=pound/irs/wealth#/12: {if:{gt:{add:{&silver},{&gold}},{prop:_money/ATM_limit,this}}, $,{if:{lt:{add:{prop:_player/{ref:{&person}}/ATM_last,this},{prop:_money/ATM_delay,this}},{secs}}, Y, N}})\, @set bid=pound/irs/wealth#/13: {prop:_misc/symbol,this} {left:{&person} ,20,.} @set bid=pound/irs/wealth#/14: {right: {&silver} S ,10,.} @set bid=pound/irs/wealth#/15: {right: {if:{&gold},{&gold},0} G ,10,.}{left:,{subt:8,{strlen:{add:{&silver},{&gold}}}},.} @set bid=pound/irs/wealth#/16: }} @set bid=pound/irs/wealth#/17: } @set bid=pound/irs/wealth#/18: }} @set bid=pound/irs/wealth#/19: } @set bid=pound/irs/wealth#/2:{if:{lmember:{list:_authlist,this},{ref:{owner:me}}}, @set bid=pound/irs/wealth#/20:{set:patrons,{lremove:{&patrons},{nl}}}{null: /* PATCH! */ } @set bid=pound/irs/wealth#/21:{set:nomoney,{lremove:{&nomoney},{nl}}}{null: /* PATCH! */ } @set bid=pound/irs/wealth#/22: {foreach:patron,{lsort:{&patrons}}, @set bid=pound/irs/wealth#/23: {tell:{sublist:{&patron},2,2,\,} @set bid=pound/irs/wealth#/24: {right:{sublist: {&patron},1,1,\,},22,.},me} @set bid=pound/irs/wealth#/25: } @set bid=pound/irs/wealth#/26: {if:{&nomoney}, @set bid=pound/irs/wealth#/27: {tell: {commas:{lsort:{&nomoney}}} {if:{gt:{count:{&nomoney}},1},have,has} no money.,me} @set bid=pound/irs/wealth#/28: } @set bid=pound/irs/wealth#/29: }} @set bid=pound/irs/wealth#/3: {with:nomoney,,{with:patrons,, @set bid=pound/irs/wealth#/30:, @set bid=pound/irs/wealth#/31: {tell: I don't think so\, {name:me}. Only auctioneers may use this feature.,me} @set bid=pound/irs/wealth#/32:} @set bid=pound/irs/wealth#/4: {foreach:person,{subst:{contents:here,player},*,}, @set bid=pound/irs/wealth#/5: {with:silver,{prop:_player/{ref:{&person}}/silver,this}, @set bid=pound/irs/wealth#/6: {with:gold,{prop:_player/{ref:{&person}}/gold,this}, @set bid=pound/irs/wealth#/7: {if:{eq:{add:{&gold},{&silver}},0}, @set bid=pound/irs/wealth#/8: {set:nomoney,{mklist:{&nomoney},{&person}}} @set bid=pound/irs/wealth#/9: , @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/rate/help#:1 @set bid=pound/rate/help#/1:{null:{tell: {prop:_misc/symbol,this} Type 'rate Foo' to see Foo's ratings.{nl} Usage: rate NAME [ NUMBER(1-5) [ OPTIONAL COMMENT ] ]{nl} See 'shorthelp rate' for more information and how to rate somebody.,me}} @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#:21 @set bid=pound/sell/debug#/1:{tell:Running auto-debug.,me} @set bid=pound/sell/debug#/10: } @set bid=pound/sell/debug#/11: {tell: ERROR FOUND! The entry '{&name}' in the _authlist file is invalid!{nl} This usually means that the auctioneer of dbref '{&name}' has been @toaded. That entry has been removed from the auctioneer dbref list.,me} @set bid=pound/sell/debug#/12: } @set bid=pound/sell/debug#/13:} @set bid=pound/sell/debug#/14:{with:bidder,{prop:_auction/bidder,this}, @set bid=pound/sell/debug#/15: {if:{prop:_names/{&bidder},this}, @set bid=pound/sell/debug#/16: {tell: Bidder {&bidder}'s data is okay.,me} @set bid=pound/sell/debug#/17: , @set bid=pound/sell/debug#/18: {tell: ERROR FOUND! Tell {&bidder} to type 'ATM #learm'.,me} @set bid=pound/sell/debug#/19: } @set bid=pound/sell/debug#/2:{foreach:name,{list:_authlist,this}, @set bid=pound/sell/debug#/20:} @set bid=pound/sell/debug#/21:{tell:Scan finished.,me} @set bid=pound/sell/debug#/3: {if:{not:{istype:{&name},player}}, @set bid=pound/sell/debug#/4: {with:newlist,{lremove:{list:_authlist,this},{&name}}, @set bid=pound/sell/debug#/5: {delprop:_authlist/#{prop:_authlist#,this},this} @set bid=pound/sell/debug#/6: {store:{subt:{prop:_authlist#,this},1},_authlist#,this} @set bid=pound/sell/debug#/7: {for:a,1,{prop:_authlist#,this},1, @set bid=pound/sell/debug#/8: {store:{sublist:{&newlist},{&a}},_authlist#/{&a},this} @set bid=pound/sell/debug#/9: } @set bid=pound/sell/demote#:32 @set bid=pound/sell/demote#/1:{if:{dbeq:{owner:this},{ref:me}}, @set bid=pound/sell/demote#/10: {if:{dbeq:*{&person},{owner:this}}, @set bid=pound/sell/demote#/11: {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#/12: , @set bid=pound/sell/demote#/13: {with:auctioneers, @set bid=pound/sell/demote#/14: {lremove:{list:_authsuper,this},{prop:_names/{&person},this}}, @set bid=pound/sell/demote#/15: {delprop:_authsuper#/{prop:_authsuper#,this},this} @set bid=pound/sell/demote#/16: {store:{subt:{prop:_authsuper#,this},1},_authsuper#,this} @set bid=pound/sell/demote#/17: {for:line,1,{prop:_authsuper#,this},1, @set bid=pound/sell/demote#/18: {store:{sublist:{&auctioneers},{&line}},_authsuper#/{&line},this} @set bid=pound/sell/demote#/19: } @set bid=pound/sell/demote#/2: {if:{eq:{&arg},#demote}, @set bid=pound/sell/demote#/20: {tell: You take {name:*{&person}} off the privileged list! The superuser list is reduced to {commas:{list:_authsuper,this}, and ,p,{name:{&p}}}.,me} @set bid=pound/sell/demote#/21: {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#/22: } @set bid=pound/sell/demote#/23: } @set bid=pound/sell/demote#/24: , @set bid=pound/sell/demote#/25: {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#/26: } @set bid=pound/sell/demote#/27: } @set bid=pound/sell/demote#/28: } @set bid=pound/sell/demote#/29: } @set bid=pound/sell/demote#/3: {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#/30:, @set bid=pound/sell/demote#/31: {tell: Only {name:{owner:this}} may demote a privileged auctioneer.,me} @set bid=pound/sell/demote#/32:} @set bid=pound/sell/demote#/4: , @set bid=pound/sell/demote#/5: {with:person,{midstr:{&arg},9,-1}, @set bid=pound/sell/demote#/6: {if:{eq:{prop:_names/{&person},this},}, @set bid=pound/sell/demote#/7: {tell: There's no record of '{&person}' on the system. Sorry!,me} @set bid=pound/sell/demote#/8: , @set bid=pound/sell/demote#/9: {if:{lmember:{list:_authsuper,this},{prop:_names/{&person},this}}, @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#:33 @set bid=pound/sell/kamikaze#/1:{with:window,15,{with:symbol,{prop:_misc/symbol,this}, @set bid=pound/sell/kamikaze#/10: {delay:{&window},{lit:{null:{store:,doomtime,this}{tell: SELL #KAMIKAZE: {if:{ne:{prop:_misc/symbol,this},},The window of opportunity is now closed.{null:{otell: THE AUCTION II SELF-DESTRUCT HAS NOW DISARMED ITSELF.}},(Dina REALLY hopes you knew what you were doing\, {name:me}.)},me}}}} @set bid=pound/sell/kamikaze#/11: , @set bid=pound/sell/kamikaze#/12: {null: /* DOOM! */ } @set bid=pound/sell/kamikaze#/13: {otell: {&symbol} {toupper:{name:me}} DESTROYS THE AUCTION II SYSTEM'S MPI CODE! {&symbol},here,-1} @set bid=pound/sell/kamikaze#/14: {tell:{lit: {delprop:_auction,this} }} @set bid=pound/sell/kamikaze#/15: {tell:{lit: {delprop:_fail,this} }} @set bid=pound/sell/kamikaze#/16: {tell:{lit: {delprop:_misc,this} }} @set bid=pound/sell/kamikaze#/17: {tell:{lit: {delprop:_money,this} }} @set bid=pound/sell/kamikaze#/18: {tell:{lit: {delprop:desc,this} }} @set bid=pound/sell/kamikaze#/19: {tell:{lit: {delprop:help,this} }} @set bid=pound/sell/kamikaze#/2:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/kamikaze#/20: {tell:{lit: {delprop:mesg,this} }} @set bid=pound/sell/kamikaze#/21: {tell:{lit: {delprop:pound,this} }} @set bid=pound/sell/kamikaze#/22: {tell:{lit: {delprop:pound.func,this} }}{tell: {&symbol} YES\, THIS VERSION HAS A SAFETIED VERSION OF THE SELF DESTRUCT\, FOR TESTING. BE THANKFUL!,me} @set bid=pound/sell/kamikaze#/23: {tell: {&symbol} It's done\, {name:me}; the Auction II code is wiped out\, leaving only the data files. I just hope you knew what you were doing.,me} @set bid=pound/sell/kamikaze#/24: } @set bid=pound/sell/kamikaze#/25: , @set bid=pound/sell/kamikaze#/26: {tell: No\, not even privileged auctioneers can use THIS command! Only {name:{owner:this}} can do that! 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#/27: } @set bid=pound/sell/kamikaze#/28: , @set bid=pound/sell/kamikaze#/29: {tell: Even though you're an auctioneer\, {name:me}\, you can't use THIS command!,me} @set bid=pound/sell/kamikaze#/3: {if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/sell/kamikaze#/30: } @set bid=pound/sell/kamikaze#/31:, @set bid=pound/sell/kamikaze#/32: {tell: You're not even supposed to know about this command\, {name:me}\, much less use it...,me} @set bid=pound/sell/kamikaze#/33:}}} @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: {&symbol} {toupper:{name:me}} ARMS THE AUCTION II PROGRAM SELF-DESTRUCT! {&symbol},here,-1} @set bid=pound/sell/kamikaze#/8: {tell:{nl} {&symbol} YOU MUST ENTER THE COMMAND AGAIN WITHIN {&window} SECONDS TO DESTROY CODE {&symbol}{nl} 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#/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#:14 @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\, since the message is delivered when the auctioneer enters; this room is {if:{eq:{prop:_arrive/tax,here},&\{null:\{lexec:_misc/arrive\,{ref:this}\}\}},configured to do that,supposed to do that but is BROKEN -- tell {name:{owner:this}} {if:{lcommon:{list:_authsuper,this},{ref:me}},that the _arrive/tax: property must be set to '&\{null:\{lexec:_misc/arrive\,{ref:this}\}\}' before auctioneer messages or the silver tax will work,immediately and ask {name:{owner:this}} to check this help file}}. @set bid=pound/sell/mesghelp#/10: {null:{inc:n}} @set bid=pound/sell/mesghelp#/11: }} @set bid=pound/sell/mesghelp#/12:, @set bid=pound/sell/mesghelp#/13: {tell: There are currently no auctioneer messages.,me} @set bid=pound/sell/mesghelp#/14:} @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 (and of course you've seen your own message). Messages will expire after {prop:func/sell-mesg/lifespan,this} days anyway; that lifespan can be adjusted if necessary. @set bid=pound/sell/mesghelp#/4:,me} @set bid=pound/sell/mesghelp#/5:{if:{prop:func/sell-mesg/1/day,this}, @set bid=pound/sell/mesghelp#/6: {tell: The current messages are:,me} @set bid=pound/sell/mesghelp#/7: {with:n,1,{while:{prop:func/sell-mesg/{&n}/day,this}, @set bid=pound/sell/mesghelp#/8: {tell: #{&n}\, from {prop:func/sell-mesg/{&n}/text,this},me} @set bid=pound/sell/mesghelp#/9: {tell: (Read by {commas:{lsort:{parse:p,{prop:func/sell-mesg/{&n}/readby,this},{name:{&p}}}}}.),me} @set bid=pound/sell/next#:46 @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: {null:{otell: {prop:_misc/symbol,this} {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} @set bid=pound/sell/next#/25: \, has ratings of{with:rates,,{for:a,5,1,-1,{set:rates,{&rates} {prop:_player/{ref:{&next}}/rate/rated{&a},bid}}},{&rates}} @set bid=pound/sell/next#/26: \, and has @set bid=pound/sell/next#/27: {if:{prop:_player/{prop:_names/{&next},this}/petprefs,this} @set bid=pound/sell/next#/28: , these petprefs: {prop:_player/{prop:_names/{&next},this}/petprefs,this} @set bid=pound/sell/next#/29: , no recorded petprefs. @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: } @set bid=pound/sell/next#/31: ,here,-1}} @set bid=pound/sell/next#/32: {if:{prop:_player/{prop:_names/{&next},this}/minbid,this}, @set bid=pound/sell/next#/33: {store:{subt:{prop:_player/{prop:_names/{&next},this}/minbid,this},1},_auction/high_bid,this} @set bid=pound/sell/next#/34: {otell: {prop:_misc/symbol,this} There is a minimum bid of {prop:_player/{prop:_names/{&next},this}/minbid,this} on {name:{&next}}.,here,-1} @set bid=pound/sell/next#/35: } @set bid=pound/sell/next#/36: {tell:{rand:mesg/sell.slave,this},{&next}} @set bid=pound/sell/next#/37: , @set bid=pound/sell/next#/38: {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#/39: } @set bid=pound/sell/next#/4: , @set bid=pound/sell/next#/40: } @set bid=pound/sell/next#/41: {tell:{lexec:desc/chain,this},me} @set bid=pound/sell/next#/42: } @set bid=pound/sell/next#/43: } @set bid=pound/sell/next#/44:, @set bid=pound/sell/next#/45: {tell: You're not the auctioneer\, {name:me}\, {prop:_auction/auctioneer,this} is.,me} @set bid=pound/sell/next#/46:} @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#:31 @set bid=pound/sell/ragnarok#/1:{with:window,15,{with:symbol,{prop:_misc/symbol,this}, @set bid=pound/sell/ragnarok#/10: {otell: {&symbol} {toupper:{name:me}} ARMS THE AUCTION II DATABASE DESTRUCTION SYSTEM! {&symbol},here,-1} @set bid=pound/sell/ragnarok#/11: {tell:{nl} {&symbol} YOU MUST ENTER COMMAND AGAIN WITHIN {&window} SECONDS TO DESTROY DATABASE {&symbol}{nl} 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/ragnarok#/12: {store:{secs},doomtime,this} @set bid=pound/sell/ragnarok#/13: {delay:{&window},{lit:{null:{store:,doomtime,this}{tell: SELL #RAGNAROK: {if:{ne:{prop:_misc/symbol,this},},The window of opportunity is now closed.{null:{otell: THE AUCTION II DATABASE SELF-DESTRUCT HAS NOW DISARMED ITSELF.,here,-1}},(Dina REALLY hopes you knew what you were doing\, {name:me}.)},me}}}} @set bid=pound/sell/ragnarok#/14: , @set bid=pound/sell/ragnarok#/15: {null: /* DOOM! */ } @set bid=pound/sell/ragnarok#/16: {otell: {&symbol} {toupper:{name:me}} DESTROYS THE DATABASE! {&symbol},here,-1} @set bid=pound/sell/ragnarok#/17: {delprop:_names,this} @set bid=pound/sell/ragnarok#/18: {delprop:_player,this} @set bid=pound/sell/ragnarok#/19: {delprop:history,this} @set bid=pound/sell/ragnarok#/2:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/ragnarok#/20: {tell: {&symbol} It's done\, {name:me}; the user database is completely wiped. I hope you knew what you were doing.,me} @set bid=pound/sell/ragnarok#/21: } @set bid=pound/sell/ragnarok#/22: , @set bid=pound/sell/ragnarok#/23: {tell: No\, not even privileged auctioneers can use THIS command! Only {name:{owner:this}} can do that! This will cause the Auction II database to be completely wiped; this is only useful when resetting the whole auction system\, if then.,me} @set bid=pound/sell/ragnarok#/24: } @set bid=pound/sell/ragnarok#/25: , @set bid=pound/sell/ragnarok#/26: {tell: Even though you're an auctioneer\, {name:me}\, you can't use THIS command!,me} @set bid=pound/sell/ragnarok#/27: } @set bid=pound/sell/ragnarok#/28:, @set bid=pound/sell/ragnarok#/29: {tell: DEBUG: You are not an auctioneer.} @set bid=pound/sell/ragnarok#/3: {tell: DEBUG: You are an auctioneer.} @set bid=pound/sell/ragnarok#/30: {tell: You're not even supposed to know about this command\, {name:me}\, much less use it...,me} @set bid=pound/sell/ragnarok#/31:}} }} } @set bid=pound/sell/ragnarok#/4: {if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/sell/ragnarok#/5: {tell: DEBUG: You are a superuser.} @set bid=pound/sell/ragnarok#/6: {if:{eq:{owner:this},*{name:me}}, @set bid=pound/sell/ragnarok#/7: {DEBUG: You are the owner.} @set bid=pound/sell/ragnarok#/8: {if:{lt:{add:{prop:doomtime,this},{&window}},{secs}}, @set bid=pound/sell/ragnarok#/9: {null: /* SELF-DESTRUCT NOW ARMED! WARNING! */ } @set bid=pound/sell/set/defaults#:25 @set bid=pound/sell/set/defaults#/1:{null: /* THIS RESETS THE SYSTEM TO DEFAULT SETTINGS /* } @set bid=pound/sell/set/defaults#/10: {with:window,15,{with:symbol,{prop:_misc/symbol,this}, @set bid=pound/sell/set/defaults#/11: {if:{lt:{add:{prop:doomtime,this},{&window}},{secs}}, @set bid=pound/sell/set/defaults#/12: {otell: {&symbol} {toupper:{name:me}} PREPARES TO RESET THE SYSTEM TO DEFAULT! {&symbol},here,-1} @set bid=pound/sell/set/defaults#/13: {tell: {&symbol} You must enter the command again within {&window} seconds to reset system. Note that your current settings aren't saved\, so once this is done it's done.,me} @set bid=pound/sell/set/defaults#/14: {store:{secs},doomtime,this} @set bid=pound/sell/set/defaults#/15: {delay:{add:{&window},5},{lit:{null:{delprop:doomtime,this}}}} @set bid=pound/sell/set/defaults#/16: , @set bid=pound/sell/set/defaults#/17: {otell: {&symbol} {toupper:{name:me}} RESETS THE AUCTION II SYSTEM TO DEFAULT SETTINGS! {&symbol},here,-1} @set bid=pound/sell/set/defaults#/18: /* RESET CODE HERE; THE LIST OF PROPS & SETTINGS IS EASY TO EXPAND */ @set bid=pound/sell/set/defaults#/19: {foreach:option,{list:_misc/defaults,this}, @set bid=pound/sell/set/defaults#/2:{if:{ne:{owner:this},*{name:me}}, @set bid=pound/sell/set/defaults#/20: {store:{sublist:{&option},4,-1,:},{sublist:{&option},3,3,:},this} @set bid=pound/sell/set/defaults#/21: } @set bid=pound/sell/set/defaults#/22: {tell: {prop:_misc/symbol,this} Okay\, it's done. I hope you knew what you were doing. {prop:_misc/symbol,this},me} @set bid=pound/sell/set/defaults#/23: } @set bid=pound/sell/set/defaults#/24: }} @set bid=pound/sell/set/defaults#/25:} @set bid=pound/sell/set/defaults#/3: {if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/set/defaults#/4: {tell: {prop:_misc/symbol,this} Only {name:{owner:this}} may reset to default settings.,me} @set bid=pound/sell/set/defaults#/5: , @set bid=pound/sell/set/defaults#/6: {tell: {prop:_misc/symbol,this} Oh\, come on\, {name:me}; you know you aren't allowed to reset the system to defaults!,me} @set bid=pound/sell/set/defaults#/7: } @set bid=pound/sell/set/defaults#/8:, @set bid=pound/sell/set/defaults#/9: {null: /* TEMP - IT'S THE OWNER */ } @set bid=pound/sell/set/help#:10 @set bid=pound/sell/set/help#/1:{null: /* THIS SHOULD LIST ALL AVAILABLE COMMANDS FOR SELL #SET */ } @set bid=pound/sell/set/help#/10:{tell: {nl} Also\, any supported configuration value may be changed by using the value's name if the command comes from a player with sufficient permissions; see 'longhelp defaults' for the complete list of system values as of Ver {prop:_misc/ver,this} ({prop:_misc/verdate,this}).,me} @set bid=pound/sell/set/help#/2:{tell: {prop:_misc/symbol,this} Available simplified sell #set commands:{nl}For auctioneers:,me} @set bid=pound/sell/set/help#/3: {tell: help - shows this list{nl} money - changes the name of the currency,me} @set bid=pound/sell/set/help#/4:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/set/help#/5: {tell:For superusers:{nl} symbol - changes the system symbol,me} @set bid=pound/sell/set/help#/6: {if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/sell/set/help#/7: {tell:For the action owner ({name:{owner:this}}) only:{nl} defaults - resets system configuration options to default values,me} @set bid=pound/sell/set/help#/8: } @set bid=pound/sell/set/help#/9:} @set bid=pound/sell/set/money#:8 @set bid=pound/sell/set/money#/1:{null: /* THIS CHANGES THE CURRENCY NAME */ } @set bid=pound/sell/set/money#/2:{with:money,{sublist:{&arg},3,-1, }, @set bid=pound/sell/set/money#/3:{if:{eq:{&money},money}, @set bid=pound/sell/set/money#/4: {tell: You need to provide a new currency name\, like this: 'sell #set money Quatloos',me} @set bid=pound/sell/set/money#/5:, @set bid=pound/sell/set/money#/6: {otell: {prop:_misc/symbol,this} {name:me} {rand:mesg/sell.set/money.osucc,this},here,-1} @set bid=pound/sell/set/money#/7: {store:{&money},_money/currency_name,this} @set bid=pound/sell/set/money#/8:}} @set bid=pound/sell/set/symbol#:12 @set bid=pound/sell/set/symbol#/1:{null: /* THIS RESETS THE AUCTION II SYSTEM SYMBOL */ } @set bid=pound/sell/set/symbol#/10:, @set bid=pound/sell/set/symbol#/11: {tell: {prop:_misc/symbol,this} Sorry\, {name:me}\, but only {commas:{lsort:{parse:n,{list:_authsuper,this},{name:{&n}}}}, or } may reset the system symbol.,me} @set bid=pound/sell/set/symbol#/12:} @set bid=pound/sell/set/symbol#/2:{if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/sell/set/symbol#/3: {with:symbol,{sublist:{&arg},3,-1, }, @set bid=pound/sell/set/symbol#/4: {if:{eq:{&symbol},symbol}, @set bid=pound/sell/set/symbol#/5: {tell: You need to provide a new symbol to replace the old one\, like this: 'sell #set symbol {prop:_misc/symbol,this}',me} @set bid=pound/sell/set/symbol#/6: , @set bid=pound/sell/set/symbol#/7: {otell: {prop:_misc/symbol,this} {&symbol} {name:me} {rand:mesg/sell.set/symbol.osucc,this} {&symbol} {prop:_misc/symbol,this},here,-1} @set bid=pound/sell/set/symbol#/8: {store:{&symbol},_misc/symbol,this} @set bid=pound/sell/set/symbol#/9: }} @set bid=pound/sell/set#:35 @set bid=pound/sell/set#/1:{null: /* THIS WILL RESET THE SYSTEM PARAMETERS ... WHEN DINA GETS TO IT. */} @set bid=pound/sell/set#/10: {if:{prop:pound/sell/set/{sublist:{&arg},2,2, }#,this}, @set bid=pound/sell/set#/11: {lexec:pound/sell/set/{sublist:{&arg},2,2, },this} @set bid=pound/sell/set#/12: , @set bid=pound/sell/set#/13: {with:datline,{filter:v,{list:_misc/defaults,this},{eq:{sublist:{&v},2,2,:},{sublist:{&arg},2,-2, }}}, @set bid=pound/sell/set#/14: {with:perm,{sublist:{&datline},1,1,:}, @set bid=pound/sell/set#/15: {if:{&datline}, @set bid=pound/sell/set#/16: {if:{or: @set bid=pound/sell/set#/17: {eq:{&perm},A}, @set bid=pound/sell/set#/18: {eq:{owner:this},*{name:me}}, @set bid=pound/sell/set#/19: {and:{lmember:{list:_authsuper,this},{ref:me}},{eq:{&perm},S}} @set bid=pound/sell/set#/2:{if:{lmember:{list:_authlist,this},{ref:me}}, @set bid=pound/sell/set#/20: } @set bid=pound/sell/set#/21: , @set bid=pound/sell/set#/22: {otell: {prop:_misc/symbol,this} {name:me} changes the {tolower:{sublist:{&datline},2,2,:}} from {prop:{sublist:{&datline},3,3,:},this} to {sublist:{&arg},-1,-1, }! {prop:_misc/symbol,this},here,-1} @set bid=pound/sell/set#/23: {store:{sublist:{&arg},-1,-1, },{sublist:{&datline},3,3,:},this} @set bid=pound/sell/set#/24: , @set bid=pound/sell/set#/25: {tell: {prop:_misc/symbol,this} You don't have permission; only {if:{eq:{&perm},O},{name:{owner:this}},superusers} may change that.,me} @set bid=pound/sell/set#/26: } @set bid=pound/sell/set#/27: , @set bid=pound/sell/set#/28: {tell: {prop:_misc/symbol,this} The system can't figure out what you mean by 'sell {&arg}'\, {name:me}; are you sure you typed that correctly?} @set bid=pound/sell/set#/29: } @set bid=pound/sell/set#/3: {if:{eq:{&arg},#set}, @set bid=pound/sell/set#/30: }} @set bid=pound/sell/set#/31: } @set bid=pound/sell/set#/32: } @set bid=pound/sell/set#/33:, @set bid=pound/sell/set#/34: {tell: You're not allowed to use the 'sell #set' command\, {name:me},me} @set bid=pound/sell/set#/35:} @set bid=pound/sell/set#/4: {tell: The sell #set command lets auctioneers change certain things about the Auction II system paremeters. Ordinary auctioneers may change the currency name ('sell #set money').{nl} Privileged auctioneers may reset more basic parameters of the Auction II system such as ATM output\, taxes\, and so on. Currently only {commas:{lsort:{parse:n,{list:_authsuper,this},{name:{&n}}}}, or } may do that.{nl} See 'sell #set help' for the command list.,me} @set bid=pound/sell/set#/5: {if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/sell/set#/6: {tell: Actually\, at the moment the command is mostly empty; the commands that will be here haven't been written for this release 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#/7: } @set bid=pound/sell/set#/8: {null: /* THIS WILL BE FIXED BY THE NEXT RELEASE! */ } @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#:1 @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 (but it understands 'me').{if:{lcommon:{list:_authlist,this},{ref:me}}, As an auctioneer\, {name:me}\, you can also use 'unchain #all' to remove everyone from the chain.,What more do you need to know?},me}} @set bid=pound/vote/help#:2 @set bid=pound/vote/help#/1:{tell: The 'vote' command is pretty simple to use. Simply type 'vote yes' to vote yes on a subject\, 'vote no' to vote no\, and so on; the question and options may be changed at {commas:{list:_authsuper,this}, or ,n,{name:{&n}}}'s whim. You may vote only once per question.{nl}{eval:{prop:desc/vote#/5,this}},me} @set bid=pound/vote/help#/2:{if:{lmember:{list:_authsuper,this},{ref:me}},{tell: {prop:_misc/symbol,this} As a privileged user\, {name:me}\, you should know of #reset (to reset the question) and #options (which sets the voting options); remember that using either of these will erase the currently running question! You may also use #on and #off\, which do exactly what you'd think they'd do; they're non-destructive and may be togged at will.,me}} @set bid=pound/vote/off#:10 @set bid=pound/vote/off#/1:{if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/vote/off#/10:} @set bid=pound/vote/off#/2: {if:{eq:{prop:func/vote.status,this},off}, @set bid=pound/vote/off#/3: {tell: Vote is already off.,me} @set bid=pound/vote/off#/4: , @set bid=pound/vote/off#/5: {store:off,func/vote.status,this} @set bid=pound/vote/off#/6: {otell: {prop:_misc/symbol,this} {name:me} turns off the vote command! {prop:_misc/symbol,this},here,-1} @set bid=pound/vote/off#/7: } @set bid=pound/vote/off#/8:, @set bid=pound/vote/off#/9: {tell: Sorry\, {name:me}\, but only {commas:{list:_authsuper,this}, or ,n,{name:{&n}}} may turn off the vote command.,me} @set bid=pound/vote/on#:10 @set bid=pound/vote/on#/1:{if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/vote/on#/10:} @set bid=pound/vote/on#/2: {if:{eq:{prop:func/vote.status,this},on}, @set bid=pound/vote/on#/3: {tell: Vote is already on.,me} @set bid=pound/vote/on#/4: , @set bid=pound/vote/on#/5: {store:on,func/vote.status,this} @set bid=pound/vote/on#/6: {otell: {prop:_misc/symbol,this} {name:me} turns on voting! Type 'vote' now! {prop:_misc/symbol,this},here,-1} @set bid=pound/vote/on#/7: } @set bid=pound/vote/on#/8:, @set bid=pound/vote/on#/9: {tell: Sorry\, {name:me}\, but only {commas:{list:_authsuper,this}, or ,n,{name:{&n}}} may turn on the vote command.,me} @set bid=pound/vote/options#:18 @set bid=pound/vote/options#/1:{if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/vote/options#/10: , } @set bid=pound/vote/options#/11: {store:#0,func/vote.data/voters#/1,this} @set bid=pound/vote/options#/12: {store:1,func/vote.data/voters#,this} @set bid=pound/vote/options#/13: {tell: Vote function reset!{nl} The question: {prop:func/vote.question,this}{nl} The options: {commas:{prop:func/vote.options,this}, or },me} @set bid=pound/vote/options#/14: } @set bid=pound/vote/options#/15: } @set bid=pound/vote/options#/16:, @set bid=pound/vote/options#/17: {tell: Sorry\, but only {commas:{list:_authsuper,this}, or ,n,{name:{&n}}} may use this command.,me} @set bid=pound/vote/options#/18:} @set bid=pound/vote/options#/2: {if:{lt:{count:{&arg}, },3}, @set bid=pound/vote/options#/3: {tell: There must be at least two options. People can't vote if they don't have any choices. If necessary\, read 'vote #help' for guidance.,me} @set bid=pound/vote/options#/4: , @set bid=pound/vote/options#/5: {delprop:func/vote.data/,this} @set bid=pound/vote/options#/6: {with:options,{sublist:{&arg},2,-1, }, @set bid=pound/vote/options#/7: {store:{subst:{&options}, ,\r},func/vote.options,this} @set bid=pound/vote/options#/8: {foreach:opt,{&options}, @set bid=pound/vote/options#/9: {store:0,func/vote.data/{&opt},this} @set bid=pound/vote/reset#:15 @set bid=pound/vote/reset#/1:{if:{lmember:{list:_authsuper,this},{ref:me}}, @set bid=pound/vote/reset#/10: {store:1,func/vote.data/voters#,this} @set bid=pound/vote/reset#/11: {tell: {prop:_misc/symbol,this} Done! The vote question is now: {prop:func/vote.question,this},me} @set bid=pound/vote/reset#/12: } @set bid=pound/vote/reset#/13:, @set bid=pound/vote/reset#/14: {tell: Sorry\, but only {commas:{list:_authsuper,this}, or ,n,{name:{&n}}} may change the voting message.,me} @set bid=pound/vote/reset#/15:} @set bid=pound/vote/reset#/2: {if:{eq:{&arg},#reset}, @set bid=pound/vote/reset#/3: {tell: This command requires the new question. (See 'vote #help'.),me} @set bid=pound/vote/reset#/4: , @set bid=pound/vote/reset#/5: {store:{midstr:{&arg},8,-1},func/vote.question,this} @set bid=pound/vote/reset#/6: {foreach:opt,{prop:func/vote.options,this}, @set bid=pound/vote/reset#/7: {store:0,func/vote.data/{&opt},this} @set bid=pound/vote/reset#/8: } @set bid=pound/vote/reset#/9: {store:#0,func/vote.data/voters#/1,this} @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=_/fl:{null:{lexec:_/fail.setup,this}} @set bid=_/sc:{null:{lexec:_/fail.setup,this}} @set bid=_/fail.setup#:9 @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:{delay:2,{lit:{null:{store:\{null:\{if:\{ne:\{midstr:\{&arg\}\,1\}\,#\}\,\{lexec:func/\{&cmd\}\,this\}\,\{lexec:pound.func\,this\}\}\},_/sc,this}}}} @set bid=_/fail.setup#/9:{delay:3,{lit:{null:{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.