COWbrowse

You are looking at a command called setprivate

setprivate {target} to {option}
or
setprivate {option} (to edit the room's privacy)

This allows you some privacy from intrusion, or makes a location a private place. Only those within the owner's friends list may pass the restriction.

Options:

allowall - Remove _private_ from the target's materials, thus allowing anyone to get to it via the go, goto, or into commands.

go - Clear the go restriction, while leaving alone the goto or into restrictions.

nogo - Set the go restriction. No object may go through an exit to a location with the go restriction unless it is on the owner's friends list,.

goto - Clear the goto restriction while leaving alone the go or into restrictions.

nogoto - Set the goto restriction. No object may goto a restricted object, nor to any object within its inventory, unless it is on the owner's friend's list.

into - Clear the into restriction while leaving alone the go or goto restrictions.

nointo - Set the into restriction. No object may use the into command to enter a restricted object, unless it is on the owner's friend's list. (not yet implemented)

rejectall - Set all above restrictions.

Related:

read the material called private

read the command called go

read the command called goto

Created by thorn, last updated 26 Oct 2008

Code

get $target,$rel,$text in $loc;
if $target > 0 then checklock else gettext;
##gettext:
$target = $loc;
get $text;
runsub checklock;
##checklock:
if $pw like $target's pwd then checktext else locked;
##locked:
sayto $init_obj,"Sorry but [$target] is locked.";
##checktext:
print "[$actor] edits [$target]'s privacy setting.";
$material = $target's material;
swap $material add _private_;
$matvals = $target's matvals;
manipulate $matvals get private to $private;
if $text == 'allowall' then setallow else check2;
manipulate $matvals set private to $private;
set $target's material to $material;
set $target's matvals to $matvals;
##check2:
if $text == 'go' then setgo else check3;
##check3:
if $text == 'nogo' then setnogo else check4;
##check4:
if $text == 'goto' then setgoto else check5;
##check5:
if $text == 'nogoto' then setnogoto else check6;
##check6:
if $text == 'into' then setinto else check7;
##check7:
if $text == 'nointo' then setnointo else check8;
##check8:
if $text == 'rejectall' then setreject else check9;
##check9:
sayto $initobj,"Invalid parameter: setprivate to either allowall go nogo goto nogoto into nointo or rejectall";
##setallow:
swap $material take _private_;
$private = '';
print "[$target] is no longer private";
##setgo:
manipulate $private set go to '' by 2;
print "[$target] now allows entry via go";
##setnogo:
manipulate $private set go to 1 by 2;
print "[$target] no longer allows entry via go except for friends";
##setgoto:
manipulate $private set goto to '' by 2;
print "[$target] now allows entry via goto";
##setnogoto:
manipulate $private set goto to 1 by 2;
print "[$target] no longer allows entry via goto except for friends";
##setinto:
manipulate $private set into to '' by 2;
print "[$target] now allows entry via into";
##setnointo:
manipulate $private set into to 1 by 2;
print "[$target] no longer allows entry via into except for friends";
##setreject:
manipulate $private set go to 1 by 2;
manipulate $private set goto to 1 by 2;
manipulate $private set into to 1 by 2;
print "[$target] no longer allows entry via go, goto, or into except for friends";