@@ Bunny Torture (Oy)

@create %cr%chBunny Controller%cn=10
@lock Bunny Controller=*Yohshee
&ADDBUN Bunny Controller=$bunny/addmsg *:@switch strmatch(owner(me),%#)=1,{&BUN-[words(lattr([v(bunnyobj)]/bun-*))] [v(bunnyobj)]=%0;@pemit %#='%0' has been added to the %crTorture%cn message list!},{@pemit %#=Only the owner may add messages to the %ch%crBunny Torture%cn!}
&BUNNYOBJ Bunny Controller=#5759
&RESET_LOG_CMD Bunny Controller=$bunny/resetlog:@pemit %#=Logs reset!!!;@dolist [get([v(bunnyobj)]/num3_logs)]=&log_## [v(bunnyobj)]=;&num3_logs [v(bunnyobj)]=0;&num_logs [v(bunnyobj)]=30;&num2_logs [v(bunnyobj)]=0
&EXAM_LOG_CMD Bunny Controller=$bunny/log *:@switch [hasattr([v(bunnyobj)],log_%0)]=0,{@pemit %#=Sorry, no log like that.},{@pemit %#=[get_eval([v(bunnyobj)]/log_%0)]}
&LOGS_CMD Bunny Controller=$bunny/logs:@pemit %#=[setq(0,get([v(bunnyobj)]/num2_logs))]There [ifelse(gt(%q0,1),are,is)] %q0 log<s>.
&SETLOG Bunny Controller=$bunny/logmode *:@switch strmatch(%0,on)=1,{&logmode [v(bunnyobj)]=1; @pemit %#=The Bunny Torture device is now logging.},{&logmode [v(bunnyobj)]=0; @pemit %#=The Bunny Torture device is no longer logging.}
&SETTARG Bunny Controller=$bunny/target *:&TARGET [v(bunnyobj)]=%0; @pemit %#=The Bunny Torture device will now follow and torture [capstr(%0)]. Mwahahaha!
&SETNUMBUN Bunny Controller=$bunny/setnum *:@switch isnum(%0)={&numbun [v(bunnyobj)]=%0; @pemit %#=The Bunny Torture will create %0 bunnies upon initialization.},{@pemit %#=You must use a number as the parameter.}
&SETSEND Bunny Controller=$bunny/sendloc *:@switch strmatch(%0,on)=1,{&sendloc [v(bunnyobj)]=1; @pemit %#=The Bunny Torture device will now notify you when the person tries to escape.},{&sendloc [v(bunnyobj)]=1; @pemit %#=The Bunny Torture device will no longer notify you when the person tries to escape.}
&INIT Bunny Controller=$bunny/initialize:@set [v(bunnyobj)]=!halted; @trigger [v(bunnyobj)]/init
&TERM Bunny Controller=$bunny/terminate:@set [v(bunnyobj)]=!halted; @trigger [v(bunnyobj)]/term
&ACTIVATE Bunny Controller=$bunny/activate:@set [v(bunnyobj)]=!halted; @trigger [v(bunnyobj)]/activate
&STOP Bunny Controller=$bunny/stop:@trigger [v(bunnyobj)]/stop; @wait 3={@set [v(bunnyobj)]=halted}
&STEALTH Bunny Controller=$bunny/stealth *:@switch strmatch(%0,on)=1,{@set [v(bunnyobj)]=Dark; @pemit %#=The Torture has now entered %cx%chStealth%cn mode!},{@set [v(bunnyobj)]=!Dark; @pemit %#=The Torture has left Stealth mode.}
@Desc Bunny Controller=You see a small, dark pink, metal box, which could easily fit into the palm of one's hand. Several little colored dials and buttons are on this thing, and a long antenna juts out of the top of it. A speaker is mounted into the top area of the device, and it emits a sound now and then. A picture of a bunny rabbit has been overlaid onto the speaker. Perhaps it controls something...eeeevil?
@Use Bunny Controller=~ Bunny Torture Commands ~%rbunny/addmsg <message> - Add an annoying message to the torture.%rbunny/logmode <on/off> - Turns logging on and off.%rbunny/sendloc <on/off> - Turns messaging on or off.%rbunny/target <target> - Sets the target of the torture.%rbunny/setnum <number> - Sets the number of bunnies that will be created.%rbunny/logs - Displays the number of logs.%rbunny/log <number> - Displays log number <number>%rbunny/resetlog - Resets the logs.%rbunny/initialize - Sets up the bunnies in the torture.%rbunny/terminate - Destroys all of the created bunnies in the torture.%rbunny/activate - Sends the Torture after the target.%rbunny/stop - Halts the Torture and gathers all of the bunnies.%rbunny/stealth <on/off> - Turns stealth mode on or off.%rbunny/get - Makes the Torture return to your inventory.
&GETBOX Bunny Controller=$bunny/get:@pemit %#=The torture box returns to you.;@trigger [v(bunnyobj)]/stop; @wait 3={@tel [v(bunnyobj)]=[loc(me)]}
@lock/UseLock Bunny Controller=*Yohshee
@set Bunny Controller=SAFE

@create %cr%chBunny Torture%cn=10
@lock Bunny Torture=*Yohshee
&BUN-0 Bunny Torture=jumps around, saying, "Hello hello!"
&BUN-1 Bunny Torture=hops up on your head, looking down into your face saying, "Ain't I just the cutest?"
&BUN-2 Bunny Torture=dances a cute dance for you.
&BUN-3 Bunny Torture=sings, "Lalala-la-la--lalala, lalala, lah-lah-lah-laaaah!"
&BUN-4 Bunny Torture=sings, "I love you, you love me...we're best friends and always will be!"
&LISTEN-LEFT Bunny Torture=^* has left.:@switch strmatch(%0,v(target))=1,{@dolist v(bunnies)={take ##; @halt ##}; @wait 5={@switch strlen(lock([loc(me)]/telout))=>0,{@vl me=[lock([loc(me)]/telout)]; @vm me=[loc(me)]; @unlock/telout loc(me); @tel loc(*%0); @lock/telout %vm=%vl; @vm me; @vl me}, {@tel loc(*%0)}; @dolist lcon(me)={drop ##; @trigger ##/timer}; @switch and(hasflag([loc(v(control))],connected),v(sendloc))=1,{@pemit [loc(v(control))]=<%ch%crBunny Torture%cn> %0 tried to escape to [name(loc(*%0))] ([loc(*%0)])!}}}
&SENDLOC Bunny Torture=1
&LOG_CMD Bunny Torture=^*:@switch v(logmode)=1,{@switch [v(num_logs)]=30,{&log_[add([v(num2_logs)],1)] me=Beginning:%r%0;&num2_logs me=[add([v(num2_logs)],1)];&num_logs me=1;&num3_logs me=[v(num3_logs)] [v(num2_logs)]},{@edit me/log_[v(num2_logs)]=$,\%r[%0];&num_logs me=[add([v(num_logs)],1)]}}
&NUM_LOGS Bunny Torture=30
&NUM3_LOGS Bunny Torture=0
&NUM2_LOGS Bunny Torture=0
&LOGMODE Bunny Torture=0
&BUN-5 Bunny Torture=hops up on your shoulder and kisses you on the cheek about five times.
&BUN-6 Bunny Torture=gives you some pretty posies that %s picked!
&CONTROL Bunny Torture=#5378
&NUMBUN Bunny Torture=5
&INIT Bunny Torture=@pemit %l=Initializing the Bunny Torture....; @dolist lnum(add([v(numbun)],1))={@vz me=Bunny #@; @create %vz; &BUNNIES me=[v(bunnies)] [num(%vz)]; @set %vz=inherit; &timer %vz=@wait 5={pose [get_eval(#5759/\[first(shuffle(lattr(#5759/bun-*)))\])\]}\; @wait 6={@trigger me/timer}}; @wait v(numbun)={@pemit %l=The Bunny Torture has been initialized!; @vz me}
&TERM Bunny Torture=@dolist lcon(me)={@switch strmatch(owner(##),owner(me))=1, {@set ##=dark; @destroy ##; @tel ##=#10}}; @wait 6={&bunnies me; @pemit %l=The Bunny Torture's bunnies are no more.; @set me=halted}
&ACTIVATE Bunny Torture=@switch type(*[v(target)])=PLAYER,{@tel loc(*[v(target)]); @dolist v(bunnies)={drop ##; @trigger ##/timer}; @pemit %l=Bunny Torture activated!},{@pemit %l=The target isn't a player!}
&TARGET Bunny Torture=Skylark
&STOP Bunny Torture=@dolist v(bunnies)={take ##; @halt ##}; @pemit %l=Bunny Torture stopped!
&LISTEN-DISCONN Bunny Torture=^* has disconnected.:@switch strmatch(%0,v(target))=1,{@pemit loc(v(control))=The Target has disconnected. Stopping Torture...; @trigger me/stop; @tel loc(v(control))}
@Desc Bunny Torture=Yeargh. This steel box is painted a bright, blinding pink color. Several rivets hammered into it on all sides hold it together, and a large dish pointing upward has been mounted on the top of it. On the all of the faces of this box save for the top and bottom ones, is a picture of a cute bunny rabbit. Painfully cute, actually. A two-door hatch is on one side of it, closed quite tightly. Just by looking at this thing, you get a sense that...that...that it's really, really, REALLY annoying. [ifelse(gt(words(lcon(me)),0),Ach\, it's moving too...something's inside of it!,)]
@set Bunny Torture=HAVEN
@set Bunny Torture=INHERIT
@set Bunny Torture=MONITOR
@set Bunny Torture=OPAQUE
@set Bunny Torture=HALTED
@set Bunny Torture=IMMORTAL
@set Bunny Torture=MYOPIC
@set Bunny Torture=TERSE
@set Bunny Torture=SAFE