@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ Monitor Rune "Security System" by Yohshee @@ Copyright (C) 1999 Rick Coogle @@ @@ This code may be distributed freely as long as the two lines @@ above are not removed from the file. @@ @@ @@ A simple little device for seeing who's invading your privacy. ;) @@ Simply quote these files to your MU* and set the MNUM of the @@ RecStone to the dbref of the Monitor Rune (&MNUM Recstone=). Also, @@ change all instances of #5818 to the dbref of your Recstone. @@ If you are carrying the RecStone with you, you will be notified whenever @@ someone enters the location of the Rune. Otherwise, it will simply log @@ all activity in that area for later viewing. You can also scare somebody @@ by using the runep command to project a message to the room -- letting them @@ know that you are listening! ;) @@ Type "use recstone" for all of the commands. @@ @@ @@ Comments are welcome -- simply e-mail me at yohshee@hotmail.com with your @@ suggestions. :) @@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @create RecStone=10 @Desc RecStone=A small blue stone with a little hole in it. When you hold it up to your ear, you hear voices. &ACTNUM RecStone=$actnum: @pemit %#=There are currently [words(lattr([v(mnum)]/log.*))] actions. &ACTVIEW RecStone=$actview: @pemit %#=%ch%cbAll Action:%cn%r[iter(lattr([v(mnum)]/log.*), %r%ch%crAction #@:%cn [get([v(mnum)]/##)])] &WIPEACT RecStone=$wipeact:@pemit %#=Actions are cleared!;@wipe [v(mnum)]/log.* @Use RecStone=Monitor Rune commands:%ractnum - Number of actions so far.%ractview - View all actions that have taken place.%ractselect - View one action by number.%rwipeact - Wipes out all action.%rpmonitor - Send the Rune to monitor a particular player.%rtoggle log - Toggle logging.%rtoggle project - Toggle message projection.%rrunep - Make the Rune project a message to the room. &ACTSELECT RecStone=$actselect *:@pemit %#=Action %0:%r[get([v(mnum)]/log.%0)] <OGGLE RecStone=$toggle log:&LOGGING [v(mnum)]=abs(sub(get([v(mnum)]/logging),1)); @pemit %#=Monitor Rune is [ifelse(get([v(mnum)]/logging),logging.,not logging.)] &PTOGGLE RecStone=$toggle project:&ACTIVATED [v(mnum)]=abs(sub(get([v(mnum)]/activated),1)); @pemit %#=Monitor Rune is [ifelse(get([v(mnum)]/activated),on.,off.)] &PMONITOR RecStone=$pmonitor *:@force [v(mnum)]=@tel/quiet loc(*%0) &LOCTOG RecStone=$toggle sendloc:&SENDLOC &pmonitor rec=$pmonitor *:&SENDLOC [v(mnum)]=abs(sub(get([v(mnum)]/sendloc),1)); @pemit %#=Monitor Rune [ifelse(get([v(mnum)]/sendloc),is,isn't)] sending its location. &PROJECT RecStone=$runep *:@pemit %#=You make the Monitor Rune project: << %0 >>;@remit loc([v(mnum)])=Monitor Rune projects: << %0 >> @Ouse RecStone=studies the RecStone intently for a moment. @create Monitor Rune=10 @@ Be sure to change this lock! ;) @lock Monitor Rune=*Yohshee &ACTIVATED Monitor Rune=1 @Listen Monitor Rune=* @Ahear Monitor Rune=@switch v(activated)=1,{@switch and(hasflag(loc(#5818),connected),strmatch(type(loc(#5818)),PLAYER))=1,{@pemit loc(#5818)=<%cr%chMonitor Rune%cn[ifelse(v(sendloc),%bat [name(loc(me))]%b([loc(me)]), )]> %0}}; @switch v(logging)=1,{&log.[words(lattr(me/log.*))] me=%cg%n%cn (%#) at [time()]: %0} &LOGGING Monitor Rune=1 &SENDLOC Monitor Rune=0 @Desc Monitor Rune=A small green stone with some mesh covering a tiny hole on the rounded side of it. A piece of metal has been adhered to the bottom. @@ It is a good idea to set this thing DARK. @set Monitor Rune=DARK @set Monitor Rune=MONITOR