object 34@DEEPMUD
lst own=34@DEEPMUD
obj loc=0
str nam=notebook
str desc=It the wizards lab notebook, you might want to read it.
str txt=Instructions: 1) use notebook 2) pg1, pg2, pg3, etc. - will display the contents of the pages in the book. 3) last - will tell who wrote the last page and what it was. 4) write pg# text - will update the notebook.
cmd write=@set $me cmd $1 "@_echo \"$+2 - ${actor.nam}\"";
	@set $me cmd last "@_echo \"Last entry was $1 written by ${actor.nam}\""
cmd pg1=@_echo "Page 1 - This is a sample page - UnterWiz"
cmd last=@_echo "Last entry was pg1 written by UnterWiz"
endobj
object 51@DEEPMUD
lst own=51@DEEPMUD
obj loc=0
str nam=tape recorder
str tnam=tape recorder
str desc=A minature voice activated tape recorder for taking dictation.  There seem to be directions written on the back.
str txt=Speak normally while using the tape to record, rewind to start recording at the beginning of the tape, play will replay recorded material.
cmd play=@_echo "${me.r1}";@_echo "${me.r2}";@_echo "${me.r3}";
	@_echo "${me.r4}";@_echo "${me.r5}";@_echo "${me.r6}";
	@_echo "${me.r7}";@_echo "${me.r8}";@_echo "${me.r9}";
	@_echo "${me.r10}";@_echo "${me.r11}";@_echo "${me.r12}"
cmd rewind=@set $me cmd say "s1 $$+1"
cmd rec=@set $me nam "$actor.nam";
	@say $3;
	@set $me str $1 "${actor.nam}: $3";
	@set $me nam "${me.tnam}";
	@set $me cmd say "$2 $$+1"
cmd s1=rec r1 s2 $1
cmd s2=rec r2 s3 $1
cmd s3=rec r3 s4 $1
cmd s4=rec r4 s5 $1
cmd s5=rec r5 s6 $1
cmd s6=rec r6 s7 $1
cmd s7=rec r7 s8 $1
cmd s8=rec r8 s9 $1
cmd s9=rec r9 s10 $1
cmd s10=rec r10 s11 $1
cmd s11=rec r11 s12 $1
cmd s12=rec r12 s1 $1
str r1=<blank>
str r2=<blank>
str r3=<blank>
str r4=<blank>
str r5=<blank>
str r6=<blank>
str r7=<blank>
str r8=<blank>
str r9=<blank>
str r10=<blank>
str r11=<blank>
str r12=<blank>
cmd say=s1 $+1
endobj
object 52@DEEPMUD
lst own=52@DEEPMUD
obj loc=0
str nam=Reusable message cartridge
cmd record=@set $me name "A message for $1";
	@set $me lock "$2";
	@set $me str msg "$+3 - $actor.nam";
	@set $me cmd succ replay
cmd replay=@_echo "$me.msg";
	@do 'picks up and reads a one time message, which then erases itself in a flash of light.';
	@unset $me msg;
	@unset $me lock;
	@unset $me succ;
	@set $me name "Reusable message cartridge"
str txt=Directions: use this message cartidge and then enter "record UserName UserOID message text".
endobj