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