Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion Mushcode/AccountSubsystem
Original file line number Diff line number Diff line change
Expand Up @@ -32,7 +32,7 @@
&CMD_ALLACCTS Account SubSystem <AS>=$+allaccts*:@break [lte(bittype(%#),5)]=@pemit %#=Permission denied.;@pemit %#=[u(fn_allaccts[gt(words(%0),0)],trim(%0))]
&FN_ALLACCTS0 Account SubSystem <AS>=[list(search(eplayer=[lit([hasattr(##,_acctowner)])]),---- Account Owner: [name(%i0)]%(%i0%)[iter(get(%i0/_accounts),%r[space(5)]--> [printf($-26s $-16s $s,[name(%i0)]%(%i0%),get(%i0/lastip),get(%i0/last))])],,printf($-35:-:s $-16:-:s $-25:-:s,---- Account Name,IP Address,Last On))][repeat(-,78)]
&FN_ALLACCTS1 Account SubSystem <AS>=[ifelse(and(isdbref(setr(0,pmatch(%0))),hasattr(%q0,_acctowner)),[printf($-35:-:s $-16:-:s $-25:-:s,---- Account Name,IP Address,Last On)]%r---- Account Owner: [name(%q0)]%(%q0%)[iter(get(%q0/_accounts),%r[space(5)]--> [printf($-26s $-16s $s,[name(%i0)]%(%i0%),get(%i0/lastip),get(%i0/last))])]%r[repeat(-,78)],Target is a member of master account [setq(1,search(eplayer=%[and%(match%(get%(##/_accounts%)%,%q0%)%,hasattr%(##/_acctowner%)%)%]))][iter(%q1,name(%q1))])]
@set Account SubSystem <AS>=INDESTRUCTABLE SAFE INHERIT
@set Account SubSystem <AS>=INDESTRUCTIBLE SAFE INHERIT

@@ things you need to do
@@ 1. in netrhost.conf set up the following:
Expand Down
2 changes: 1 addition & 1 deletion Mushcode/MedusaObject
Original file line number Diff line number Diff line change
Expand Up @@ -25,4 +25,4 @@
@Startup Global: The Medusa Object=@dolist search(eplayer=[lit([hasflag(##,guest)])])={@swi/f [hasflag(##,connect)]=0,@set ##=!fubar !slave}
&SITES Global: The Medusa Object=*.static.midphase.com *static.bresnan.net
&VERSION Global: The Medusa Object=1.0.0 07/18/2017
@set Global: The Medusa Object=INDESTRUCTABLE SAFE INHERIT
@set Global: The Medusa Object=INDESTRUCTIBLE SAFE INHERIT
2 changes: 1 addition & 1 deletion Mushcode/MultiDescer
Original file line number Diff line number Diff line change
Expand Up @@ -31,4 +31,4 @@
&HELP_LIST_LIST Descer=[ljust(+desc/list,30)] - List all descriptions by <label>.
&CMD_HELPDESC Descer=$+desc/help:@pemit %#=[repeat(-,78)]%r[ansi(g,Multi Descer)]: [iter(v(help_list),%r[u(help_list_##)])]%r[repeat(-,78)]
&CREDITS Descer=Kitai, modified by Ashen-Shugar
@set Descer=INDESTRUCTABLE SAFE INHERIT
@set Descer=INDESTRUCTIBLE SAFE INHERIT
4 changes: 1 addition & 3 deletions Mushcode/Roster
Original file line number Diff line number Diff line change
Expand Up @@ -26,6 +26,4 @@
&CMD_ROSTER_SETLIST Roster Object <RO>=$+roster/set:@pemit %#=[header(+roster)]%rFollowing attributes are settable:%r[wrap(trim(iter(v(list_order),ifelse(pos(@,itext(0)),,before(itext(0),|)))),78)]%r[footer()]
&CMD_ROSTER_SET_ALT Roster Object <RO>=$+set *=*:@include/command me/CMD_ROSTER_SET
&CMD_ROSTER_SETLIST_ALT Roster Object <RO>=$+set:@include/command me/CMD_ROSTER_SETLIST
@set Roster Object <RO>=INDESTRUCTABLE
@set Roster Object <RO>=SAFE
@set Roster Object <RO>=INHERIT
@set Roster Object <RO>=INDESTRUCTIBLE SAFE INHERIT
8 changes: 4 additions & 4 deletions Mushcode/TrendObj
Original file line number Diff line number Diff line change
Expand Up @@ -38,14 +38,14 @@ think <Initialization> -- Trend Object Version 1.0.5
think <Generation> -- Creating SIDEFX Sandbox Object
@create TrendSDFX=10
&FN_SETSTEP TrendSDFX=[set([v(F-DB)],STEP:%0)]
@set TrendSDFX=INDESTRUCTABLE SAFE INHERIT SIDEFX NO_COMMAND
@set TrendSDFX=INDESTRUCTIBLE SAFE INHERIT SIDEFX NO_COMMAND

@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -- Create the TrendDB that houses the yearly statistics (done daily)
@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
think <Generation> -- Creating Trend Database Storage Object
@create TrendDB=10
@set TrendDB=INDESTRUCTABLE SAFE HALT
@set TrendDB=INDESTRUCTIBLE SAFE HALT

@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -- Create the main functionary object
Expand Down Expand Up @@ -119,7 +119,7 @@ think <Generation> -- Creating Main Functionary Object
&FN_RUNHOUR_FOOT TrendFun=[setq(h,timefmt($h,secs()))][space(4)]+[repeat(-,72)]+%r[printf([space(5)]$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s$-3s,u(fn_colorhour_foot,00),u(fn_colorhour_foot,01),u(fn_colorhour_foot,02),u(fn_colorhour_foot,03),u(fn_colorhour_foot,04),u(fn_colorhour_foot,05),u(fn_colorhour_foot,06),u(fn_colorhour_foot,07),u(fn_colorhour_foot,08),u(fn_colorhour_foot,09),u(fn_colorhour_foot,10),u(fn_colorhour_foot,11),u(fn_colorhour_foot,12),u(fn_colorhour_foot,13),u(fn_colorhour_foot,14),u(fn_colorhour_foot,15),u(fn_colorhour_foot,16),u(fn_colorhour_foot,17),u(fn_colorhour_foot,18),u(fn_colorhour_foot,19),u(fn_colorhour_foot,20),u(fn_colorhour_foot,21),u(fn_colorhour_foot,22),u(fn_colorhour_foot,23))]%r[space(4)]%[Version: [v(version)]%] Key: [ansi(hy,AVG PLAYER)] [ansi(hc,MAX PLAYER)] [ansi(hm,MAX UNIQUE)] [ansi(hr,YESTERDAY HOURS)]
&FN_COLORHOUR_FOOT TrendFun=%ch[switch([lt(%0,%qh)][eq(%0,%qh)],10,%cc,01,%cx%cC,%cr)]%0%cn
@wait 0=&FN_STARTTIME TrendFun=[secs()]
@set TrendFun=INDESTRUCTABLE SAFE INHERIT
@set TrendFun=INDESTRUCTIBLE SAFE INHERIT

@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -- Create the master TrendOBJ with the commands
Expand All @@ -140,7 +140,7 @@ think <Generation> -- Creating Main Command Object
&CMD_TRENDHOUR TrendObj=$+trend/hour:@pemit %#=[u([v(F-DB)]/fn_runhour)]
@startup TrendObj=@wait 100=@tr/quiet me/do_keeper
@Aconnect TrendObj=@tr/quiet me/do_time;@skip/ifelse [gt(words(lwho()),mul(get([v(F-DB)]/step),20))]={&STEP [v(F-DB)]=[add(get([v(F-DB)]/step),1)]};@skip/ifelse [u([v(F-DB)]/fn_monthhigh)]%qa={&%qz [v(DB)]=%q5;&%qz_date [v(DB)]=[timefmt($02M-$02D-$Y $02h:$02T:$02S,secs())];@skip/ifelse %qb={&%qz_date_max [v(DB)]=[timefmt($02M-$02D-$Y $02h:$02T:$02S,secs())]}};@skip/ifelse [u([v(F-DB)]/fn_yearhigh)]%qa={&%qz [v(DB)]=%q5;&%qz_date [v(DB)]=[timefmt($02M-$02D-$Y $02h:$02T:$02S,secs())];@skip/ifelse %qb={&%qz_date_max [v(DB)]=[timefmt($02M-$02D-$Y $02h:$02T:$02S,secs())]}};@skip/ifelse [u([v(F-DB)]/fn_hourhigh)]%qa={&H_[setr(x,timefmt($h,setr(y,secs())))] [v(DB)]=%q9;&H_%qx_SECS [v(DB)]=[secs()];@switch/all 1=%qb,{&H_%qx_AVG [v(DB)]=[timefmt($02M-$02D-$Y $02h:$02T:$02S,%qy)]},%qc,{&H_%qx_MAX [v(db)]=[timefmt($02M-$02D-$Y $02h:$02T:$02S,%qy)]},%qd,{&H_%qx_UNIQUE [v(DB)]=[timefmt($02M-$02D-$Y $02h:$02T:$02S,%qy)]}}
@set TrendObj=INDESTRUCTABLE SAFE INHERIT !NO_COMMAND !HALT
@set TrendObj=INDESTRUCTIBLE SAFE INHERIT !NO_COMMAND !HALT
think Applying the COMMANDS flag. Ignore if you see a PERMISSION DENIED
@set TrendObj=COMMANDS
@tr/quiet trendobj/startup
Expand Down
14 changes: 3 additions & 11 deletions Mushcode/follow
Original file line number Diff line number Diff line change
Expand Up @@ -9,9 +9,7 @@
&CMD_FOLLOWLOCK FollowCode=$+flock/*:@pemit %#=[u([parent(me)]/FOLLOWLOCKMSG[match(allow deny list,first(%0))],rest(%0))];@break [!r(0)];@eval [u([parent(me)]/DOFOLLOWLOCK,rest(%0))]
&VERSION FollowCode=FollowCode 1.0.3 [Ashen-Shugar]
@adisconnect FollowCode=@include/command/override me/cmd_desert=,,,
@set FollowCode=INDESTRUCTABLE
@set FollowCode=SAFE
@set FollowCode=INHERIT
@set FollowCode=INDESTRUCTIBLE SAFE INHERIT
@@
@@ Create the Follow function code
@@
Expand Down Expand Up @@ -40,10 +38,7 @@
&DESERTMSG1 FollowFunction=[ifelse(!match([get(%#/followers)] [get(%#/following)],setr(1,ifelse(isdbref(setr(9,locate(%#,%0,n))),%q9,pmatch(%0)))),Follow: <+desert> they arn't following you and you arn't following them.[setq(0,0)],[switchall(1,match(get(%#/followers),%q1),You desert your follower [name(%q1)].[setq(9,1)],match(get(%#/following),%q1),[ifelse(%q9,%r)]You desert from following [name(%q1)].)][setq(0,1)])]
&DODESERT2 FollowFunction=[setq(9,get(%0/followers))][iter(get(%0/following),[set(itext(0),FOLLOWERS:[setdiff(get([itext(0)]/followers),%0)])][pemit(itext(0),[name(%#)] has deserted you and is no longer following.)])][iter(%q9,[set(itext(0),FOLLOWING:[setdiff(get([itext(0)]/following),%0)])][pemit(itext(0),[name(%#)] has deserted you and you can no longer follow [obj(%#)].)])][set(%0,following:)][set(%0,followers:)]
&DODESERT1 FollowFunction=[setq(9,get(%0/followers))][ifelse(match(get(%0/following),%1),[set(%0,following:[setdiff(get(%0/following),%1)])][set(%1,followers:[setdiff(get(%1/followers),%#)])][pemit(%1,[name(%0)] has deserted you and is no longer following.)])][ifelse(match(%q9,%1),[set(%0,followers:[setdiff(Get(%0/followers),%1)])][set(%1,following:[setdiff(get(%1/following),%#)])][pemit(%1,[name(%0)] has deserted you and you can no longer follow [obj(%#)].)])]
@set FollowFunction=INDESTRUCTABLE
@set FollowFunction=SAFE
@set FollowFunction=INHERIT
@set FollowFunction=SIDEFX
@set FollowFunction=INDESTRUCTIBLE SAFE INHERIT SIDEFX
@parent FollowCode=FollowFunction
@@
@@ define these softfunctions on your @function object. Must be set PRIVALAGED
Expand All @@ -59,10 +54,7 @@
@@ &A_GOTO HookObj=[setq(1,ifelse(and(gt(words(%m),1),wildmatch(go* mo*,%m)),rest(%m),%m))][iter(%qf,[u(setup_follow,itext(0))][pemit(itext(0),You attempt to follow %n.)][move(itext(0),%q1)][u(parse_follow,%q1,itext(0))])]
@@ &SETUP_FOLLOW HookObj=[setq(g,iter(get(%0/followers),ifelse(match(loc(itext(0)),loc(%0)),itext(0))))]
@@ &PARSE_FOLLOW HookObj=[iter(%qg,[u(setup_follow,itext(0))][pemit(itext(0),You attempt to follow [name(%1)].)][move(itext(0),%0)][u(parse_follow,%0)])]
@@ @set HookObj=INDESTRUCTABLE
@@ @set HookObj=SAFE
@@ @set HookObj=INHERIT
@@ @set HookObj=SIDEFX
@@ @set HookObj=INDESTRUCTIBLE SAFE INHERIT SIDEFX
@@
@@ @@ Make attributes wizard only (initialize variables in hash)
&FOLLOWERS me
Expand Down
8 changes: 1 addition & 7 deletions Mushcode/mailwrappers/StartObject
Original file line number Diff line number Diff line change
Expand Up @@ -10,13 +10,7 @@
&VC_OLD StartObject=@pemit %0=%rYou are now going to be configured to join all the available bbs boards.;@progprompt me=Continue? (Y/N) :;&DID_START %0=WORKING2;@program %0=[v(DB)]/vd
@VC StartObject=@pemit %0=%rDo you wish to use a TM3/MUX compatible page system. This means, that you can use 'p <message>' or 'page <message>' to page the last person you paged. If you choose not to, you may use 'lp <message>' to page the last person you paged. (the choice will not effect the lp command).;@progprompt me=Enable TM3/MUX page (Y/N) :;&DID_START %0=WORKING2;@program %0=[v(DB)]/ve
@VE StartObject=@swi [match(y n,%0)]=0,{@pemit %#=%rI'm sorry, but that's not a valid choice. Please choose 'Y' or 'N'.;@program %#=[v(DB)]/ve},1,{@pemit %#=%rYou have chosen to use the TM3/MUX page interface. You can unset this latter by typing: @toggle me=!muxpage;@toggle %#=muxpage;@tr me/vd=%#},2,{@pemit %#=%rYou have chosen NOT to use the TM3/MUX page interface. You can set this latter by typing: @toggle me=muxpage;@tr me/vd=%#}
@set StartObject=DARK
@set StartObject=INHERIT
@set StartObject=MONITOR
@set StartObject=UNFINDABLE
@set StartObject=SAFE
@set StartObject=SCLOAK
@set StartObject=INDESTRUCTABLE
@set StartObject=INDESTRUCTIBLE SAFE INHERIT SCLOAK DARK UNFINDABLE MONITOR
@toggle StartObject=prog
@pemit %#=This can cause an error/permission denied if it's not configured. Ignore it.
@set StartObject=COMMAND
6 changes: 1 addition & 5 deletions Mushcode/mailwrappers/brandymail.wrap
Original file line number Diff line number Diff line change
Expand Up @@ -92,8 +92,4 @@
&CMD_+SKIM_BACKUP Send Mail RhostAliases <SMA>=$+skim*:@sudo %#={mail/status %0}
&MAIL_STATUS_BM Send Mail RhostAliases <SMA>=[ifelse(eq(setr(0,before(after(v(0),%(),%))),get(%1/MailCurrent)),+,%b)][before(after(v(0),%[),%])][rjust(r(0),5)]%) %b[ljc(trim(after(before(v(0),<),:)),19)][ljc(trim(ifelse(words(setr(0,after(v(0),Subj:))),r(0),NONE)),20)][ljust(before(after(v(0),> %(),%bB),6)][extract(before(after(v(0),<),>),1,4)]
@set Send Mail RhostAliases <SMA>/CMD_+SKIM_BACKUP = no_command
@set Send Mail RhostAliases <SMA>=INDESTRUCTABLE
@set Send Mail RhostAliases <SMA>=SHOWFAILCMD
@set Send Mail RhostAliases <SMA>=SAFE
@set Send Mail RhostAliases <SMA>=INHERIT
@set Send Mail RhostAliases <SMA>=STOP
@set Send Mail RhostAliases <SMA>=INDESTRUCTIBLE SAFE INHERIT SHOWFAILCMD STOP
6 changes: 1 addition & 5 deletions Mushcode/mailwrappers/force/brandymail.wrap
Original file line number Diff line number Diff line change
Expand Up @@ -92,8 +92,4 @@
&CMD_+SKIM_BACKUP Send Mail RhostAliases <SMA>=$+skim*:@fo %#={mail/status %0}
&MAIL_STATUS_BM Send Mail RhostAliases <SMA>=[ifelse(eq(setr(0,before(after(v(0),%(),%))),get(%1/MailCurrent)),+,%b)][before(after(v(0),%[),%])][rjust(r(0),5)]%) %b[ljc(trim(after(before(v(0),<),:)),19)][ljc(trim(ifelse(words(setr(0,after(v(0),Subj:))),r(0),NONE)),20)][ljust(before(after(v(0),> %(),%bB),6)][extract(before(after(v(0),<),>),1,4)]
@set Send Mail RhostAliases <SMA>/CMD_+SKIM_BACKUP = no_command
@set Send Mail RhostAliases <SMA>=INDESTRUCTABLE
@set Send Mail RhostAliases <SMA>=SHOWFAILCMD
@set Send Mail RhostAliases <SMA>=SAFE
@set Send Mail RhostAliases <SMA>=INHERIT
@set Send Mail RhostAliases <SMA>=STOP
@set Send Mail RhostAliases <SMA>=INDESTRUCTIBLE SAFE INHERIT SHOWFAILCMD STOP
8 changes: 1 addition & 7 deletions Mushcode/mailwrappers/force/muxmail.wrap
Original file line number Diff line number Diff line change
Expand Up @@ -58,10 +58,4 @@
&MAIL_FWDRPLY @mail RhostAliases <MRA>=[switch(%0%1,00,-,01,F,10,R)]
&MAIL_STATUS_MUX @mail RhostAliases <MRA>=%[[ifelse(words(setr(0,grab(v(mail_field),*[mid(v(0),1,1)]*))),r(0),-------)][u(mail_fwdrply,strmatch(v(0),*Bytes%) Reply*),strmatch(v(0),*Bytes%) Fwd*))]%] [ljust(before(after(v(0),%(),%)),4)]%([rjust(before(after(v(0),> %(),%bB),4)]%) [mid(v(0),9,23)] Sub: [ifelse(words(after(v(0),Subj:)),after(v(0),Subj:),%bNONE)]
@set @mail RhostAliases <MRA>/CMD_@MAIL_GENERIC_BACKUP = no_command
@set @mail RhostAliases <MRA>=INDESTRUCTABLE
@set @mail RhostAliases <MRA>=SHOWFAILCMD
@set @mail RhostAliases <MRA>=SAFE
@set @mail RhostAliases <MRA>=INHERIT
@set @mail RhostAliases <MRA>=STOP


@set @mail RhostAliases <MRA>=INDESTRUCTIBLE SAFE INHERIT SHOWFAILCMD STOP
8 changes: 1 addition & 7 deletions Mushcode/mailwrappers/force/pennmail.wrap
Original file line number Diff line number Diff line change
Expand Up @@ -54,10 +54,4 @@
&MAIL_FIELD_PENN PennMailer Object <PMO>=N--X- U---- -M-X- --SX- ---XE
&MAIL_FWDRPLY PennMailer Object <PMO>=[switch(%0%1,00,-,01,F,10,R)]
&MAIL_STATUS_PENN PennMailer Object <PMO>=%[[edit(ifelse(words(setr(0,grab(v(mail_field_penn),*[mid(v(0),1,1)]*))),r(0),---X-),X,u(mail_fwdrply,strmatch(v(0),*Bytes%) Reply*),strmatch(v(0),*Bytes%) Fwd*)))]%]%b%b-:[ljust(trim(before(after(v(0),%(),%))),5)][ljc(trim(after(before(v(0),<),:)),14)][ljc(ifelse(words(after(v(0),Subj:)),after(v(0),Subj:),%bNONE),31)]%cn[mid(before(after(v(0),<),>),0,16)]
@set PennMailer Object <PMO>=SCLOAK
@set PennMailer Object <PMO>=INDESTRUCTABLE
@set PennMailer Object <PMO>=DARK
@set PennMailer Object <PMO>=SAFE
@set PennMailer Object <PMO>=INHERIT
@set PennMailer Object <PMO>=UNFINDABLE
@set PennMailer Object <PMO>=STOP
@set PennMailer Object <PMO>=INDESTRUCTIBLE SAFE INHERIT STOP SCLOAK DARK UNFINDABLE
8 changes: 1 addition & 7 deletions Mushcode/mailwrappers/muxmail.wrap
Original file line number Diff line number Diff line change
Expand Up @@ -58,10 +58,4 @@
&MAIL_FWDRPLY @mail RhostAliases <MRA>=[switch(%0%1,00,-,01,F,10,R)]
&MAIL_STATUS_MUX @mail RhostAliases <MRA>=%[[ifelse(words(setr(0,grab(v(mail_field),*[mid(v(0),1,1)]*))),r(0),-------)][u(mail_fwdrply,strmatch(v(0),*Bytes%) Reply*),strmatch(v(0),*Bytes%) Fwd*))]%] [ljust(before(after(v(0),%(),%)),4)]%([rjust(before(after(v(0),> %(),%bB),4)]%) [mid(v(0),9,23)] Sub: [ifelse(words(after(v(0),Subj:)),after(v(0),Subj:),%bNONE)]
@set @mail RhostAliases <MRA>/CMD_@MAIL_GENERIC_BACKUP = no_command
@set @mail RhostAliases <MRA>=INDESTRUCTABLE
@set @mail RhostAliases <MRA>=SHOWFAILCMD
@set @mail RhostAliases <MRA>=SAFE
@set @mail RhostAliases <MRA>=INHERIT
@set @mail RhostAliases <MRA>=STOP


@set @mail RhostAliases <MRA>=INDESTRUCTIBLE SAFE INHERIT SHOWFAILCMD STOP
8 changes: 1 addition & 7 deletions Mushcode/mailwrappers/pennmail.wrap
Original file line number Diff line number Diff line change
Expand Up @@ -54,10 +54,4 @@
&MAIL_FIELD_PENN PennMailer Object <PMO>=N--X- U---- -M-X- --SX- ---XE
&MAIL_FWDRPLY PennMailer Object <PMO>=[switch(%0%1,00,-,01,F,10,R)]
&MAIL_STATUS_PENN PennMailer Object <PMO>=%[[edit(ifelse(words(setr(0,grab(v(mail_field_penn),*[mid(v(0),1,1)]*))),r(0),---X-),X,u(mail_fwdrply,strmatch(v(0),*Bytes%) Reply*),strmatch(v(0),*Bytes%) Fwd*)))]%]%b%b-:[ljust(trim(before(after(v(0),%(),%))),5)][ljc(trim(after(before(v(0),<),:)),14)][ljc(ifelse(words(after(v(0),Subj:)),after(v(0),Subj:),%bNONE),31)]%cn[mid(before(after(v(0),<),>),0,16)]
@set PennMailer Object <PMO>=SCLOAK
@set PennMailer Object <PMO>=INDESTRUCTABLE
@set PennMailer Object <PMO>=DARK
@set PennMailer Object <PMO>=SAFE
@set PennMailer Object <PMO>=INHERIT
@set PennMailer Object <PMO>=UNFINDABLE
@set PennMailer Object <PMO>=STOP
@set PennMailer Object <PMO>=INDESTRUCTIBLE SAFE INHERIT STOP SCLOAK DARK UNFINDABLE
2 changes: 1 addition & 1 deletion Mushcode/scan
Original file line number Diff line number Diff line change
Expand Up @@ -28,7 +28,7 @@
&CMD_SEARCHTREE Global: ScanObj <SO>=$+searchtree *:@pemit %#=[list(lcon(globalroom()),[ansi(hc,[name(%i0)]%(%i0[flags(%i0)]%))][u(fn_pipe,%i0,edit(%0,+,%[+%]))])][ifelse(!match(X,%q1),ansi(hc,<--END))]
&CMD_SEARCHBYOBJ Global: ScanObj <SO>=$+searchbyobj *=*:@pemit %#=[list([listdiff([setq(0,locate(%#,%0,*))] [lcon(loc(%q0))],#-1 #-2)],[ansi(hc,[name(%i0)]%(%i0[flags(%i0)]%))][u(fn_pipe,%i0,%1)])][ifelse(!match(X,%q1),ansi(hc,<--END))]
&CMD_SEARCHDB Global: ScanObj <So>=$+searchdb *:@break [lt(bittype(%#),6)]=@pemit %#=Permission denied;@pemit %#=[list(search(eval=%[grep%(##%,*%,*%0*%)%]),[ansi(hc,[name(%i0)]%(%i0[flags(%i0)]%))][u(fn_pipe,%i0,edit(%0,+,%[+%]))])][ifelse(!match(X,%q1),ansi(hc,<--END))]
@set Global: ScanObj <SO>=INDESTRUCTABLE SAFE INHERIT STOP
@set Global: ScanObj <SO>=INDESTRUCTIBLE SAFE INHERIT STOP
@@
@@ @scan -- Returns error message
@@ @scan[/room /self /zone /global] <exact command> -- scan for command (optional location with switch)
Expand Down