@create Cannen=10 @lock Cannen=*Yohshee @Desc Cannen=A long, slender device with a flat base and a hemispherical top. The metal casing is polished and the device twinkles in the light with a shining golden color. The top of the Cannen appears to be made of two halves, attached to each other by five rivets. It has a long, cylindrical switch coming out of the very center, and it is [ifelse(get(me/playing),pressed in.,not pressed in.)] There is a sliding door on one side of the device, and it appears to be [ifelse(get(me/dooropen),open.,closed.)]. It appears to come from a very advanced civilization. @Succ Cannen=You carefully lift up the Cannen by its stand. @Osucc Cannen=lifts up the Cannen by its thin, rodlike stand. @Fail Cannen=You can't seem to lift up the device. @Ofail Cannen=can't pick up the Cannen. @Rfail Cannen=You try to put in the object, but the door is closed. @Orfail Cannen=tries to insert the object into the Cannen, but its door is closed. @Drop Cannen=You carefully set the Cannen down on the ground. @Odrop Cannen=carefully sets down the Cannen. @Use Cannen=Cannen commands:%rdoor switch - press the switch that opens/closes the door.%rplay Cannen - Plays any Maradisc that happens to be in the device. @Ouse Cannen=examines the Cannen for a second. &PLAYING Cannen=0 &DOOROPEN Cannen=0 &DOORSWITCH Cannen=$door switch:&dooropen me=abs(sub(get(me/dooropen),1));@switch get(me/dooropen)=1,{@emit [name(%#)] presses a tiny button on the front of the Cannen and the door slides open.;@set me=enter_ok},{@emit [name(%#)] presses a tiny button on the front of the Cannen and the door slides closed.;@set me=!enter_ok} &PLAY Cannen=$play Cannen:@switch [get(me/dooropen)]=1,{@pemit %#=You have to close the door before you can play the disc.}, {@switch [words(lcon(me))]=>1,{@pemit %#=The Cannen can only hold one object.},{@switch hasattr(con(me),maradisc)=1,{@emit The Cannen is now playing [get(con(me)/title)];@dolist [lnum(words(lattr(con(me)/song.*)))]=@wait 5=@emit [get(con(me)/song.[#@])]},{@pemit %#=The object inside the Cannen is not a Maradisc! Take it out before you break the thing!}}} @set Cannen=INHERIT @set Cannen=OPAQUE